diff --git a/stage0/src/Init/Control/Id.lean b/stage0/src/Init/Control/Id.lean index ada17ce3cd..d6d3235067 100644 --- a/stage0/src/Init/Control/Id.lean +++ b/stage0/src/Init/Control/Id.lean @@ -20,6 +20,9 @@ f x @[inline] def Id.map {α β : Type u} (f : α → β) (x : Id α) : Id β := f x +instance Id.hasBind : HasBind Id := +{ bind := @Id.bind } + instance Id.monad : Monad Id := { pure := @Id.pure, bind := @Id.bind, map := @Id.map } diff --git a/stage0/src/Init/Lean/Elab/Command.lean b/stage0/src/Init/Lean/Elab/Command.lean index a70256a77e..9e98690df6 100644 --- a/stage0/src/Init/Lean/Elab/Command.lean +++ b/stage0/src/Init/Lean/Elab/Command.lean @@ -192,6 +192,8 @@ adaptReader (fun (ctx : Context) => { macroStack := { before := beforeStx, after instance : MonadMacroAdapter CommandElabM := { getEnv := getEnv, getCurrMacroScope := getCurrMacroScope, + getNextMacroScope := do s ← get; pure s.nextMacroScope, + setNextMacroScope := fun next => modify $ fun s => { nextMacroScope := next, .. s }, throwError := @throwError, throwUnsupportedSyntax := @throwUnsupportedSyntax} diff --git a/stage0/src/Init/Lean/Elab/DoNotation.lean b/stage0/src/Init/Lean/Elab/DoNotation.lean index d955e61ae4..2f582c72c6 100644 --- a/stage0/src/Init/Lean/Elab/DoNotation.lean +++ b/stage0/src/Init/Lean/Elab/DoNotation.lean @@ -5,18 +5,18 @@ Authors: Leonardo de Moura -/ prelude import Init.Lean.Elab.Term +import Init.Lean.Elab.TermBinders import Init.Lean.Elab.Quotation namespace Lean namespace Elab namespace Term -private def mkIdMonadFor (ref : Syntax) (type : Expr) : TermElabM (Expr × Expr) := do +private def mkIdBindFor (ref : Syntax) (type : Expr) : TermElabM (Expr × Expr) := do u ← getLevel ref type; -let id := (Lean.mkConst `Id [u]); -let idType := Lean.mkApp (Lean.mkConst `Id [u]) type; -let idMonad := Lean.mkConst `Id.monad [u]; -pure (idType, idMonad) +let id := Lean.mkConst `Id [u]; +let idBindVal := Lean.mkConst `Id.hasBind [u]; +pure (id, idBindVal) private def extractMonad (ref : Syntax) (expectedType? : Option Expr) : TermElabM (Expr × Expr) := do match expectedType? with @@ -28,11 +28,11 @@ match expectedType? with | Expr.app m _ _ => catch (do - monadInst ← mkAppM ref `Monad #[m]; - monad ← synthesizeInst ref monadInst; - pure (m, monad)) - (fun ex => mkIdMonadFor ref type) - | _ => mkIdMonadFor ref type + bindInstType ← mkAppM ref `HasBind #[m]; + bindInstVal ← synthesizeInst ref bindInstType; + pure (m, bindInstVal)) + (fun ex => mkIdBindFor ref type) + | _ => mkIdBindFor ref type private def getDoElems (stx : Syntax) : Array Syntax := --parser! "do " >> (bracketedDoSeq <|> doSeq) @@ -43,13 +43,43 @@ if arg.getKind == `Lean.Parser.Term.bracketedDoSeq then else arg.getArgs -/- Expand `doLet`, `doPat`, and nonterminal `doExpr` -/ -private partial def expandDoElems : Array Syntax → Nat → TermElabM (Option Syntax) -| doElems, i => +private partial def hasLiftMethod : Syntax → Bool +| Syntax.node k args => + if k == `Lean.Parser.Term.do then false + else if k == `Lean.Parser.Term.liftMethod then true + else args.any hasLiftMethod +| _ => false + +private partial def expandLiftMethodAux : Syntax → StateT (Array Syntax) TermElabM Syntax +| stx@(Syntax.node k args) => + if k == `Lean.Parser.Term.do then pure stx + else if k == `Lean.Parser.Term.liftMethod then withFreshMacroScope $ do + let term := args.get! 1; + term ← expandLiftMethodAux term; + auxDo ← `(do a ← $term; $(Syntax.missing)); + let auxDoElems := (getDoElems auxDo).pop; + modify $ fun s => s ++ auxDoElems; + `(a) + else do + args ← args.mapM expandLiftMethodAux; + pure $ Syntax.node k args +| stx => pure stx + +private def expandLiftMethod (stx : Syntax) : TermElabM (Option (Array Syntax)) := +if hasLiftMethod stx then do + (stx, doElems) ← (expandLiftMethodAux stx).run #[]; + let doElems := doElems.push stx; + pure doElems +else + pure none + +/- Expand `doLet`, `doPat`, nonterminal `doExpr`s, and `liftMethod` -/ +private partial def expandDoElems : Bool → Array Syntax → Nat → TermElabM (Option Syntax) +| modified, doElems, i => let mkRest : Unit → TermElabM Syntax := fun _ => do { let restElems := doElems.extract (i+2) doElems.size; if restElems.size == 1 then - pure (restElems.get! 0) + pure $ (restElems.get! 0).getArg 0 else `(do { $restElems* }) }; @@ -57,54 +87,148 @@ private partial def expandDoElems : Array Syntax → Nat → TermElabM (Option S if i == 0 then pure rest else - let newElems := doElems.extract 0 (i-1); + let newElems := doElems.extract 0 i; let newElems := newElems.push $ Syntax.node `Lean.Parser.Term.doExpr #[rest]; `(do { $newElems* }) }; - if h : i < doElems.size then + if h : i < doElems.size then do let doElem := doElems.get ⟨i, h⟩; - if doElem.getKind == `Lean.Parser.Term.doLet then do - let letDecl := doElem.getArg 1; - rest ← mkRest (); - newBody ← `(let $letDecl:letDecl; $rest); - addPrefix newBody - else if doElem.getKind == `Lean.Parser.Term.doPat then withFreshMacroScope $ do - -- (termParser >> leftArrow) >> termParser >> optional (" | " >> termParser) - let pat := doElem.getArg 0; - let discr := doElem.getArg 2; - let optElse := doElem.getArg 3; - rest ← mkRest (); - newBody ← - if optElse.isNone then do - `(do x ← $discr; match x with | $pat => $rest) - else - let elseBody := optElse.getArg 1; - `(do x ← $discr; match x with | $pat => $rest | _ => $elseBody); - addPrefix newBody - else if i < doElems.size - 2 && doElem.getKind == `Lean.Parser.Term.doExpr then do - -- def doExpr := parser! termParser - let term := doElem.getArg 0; - auxDo ← `(do x ← $term; $(Syntax.missing)); - let doElemNew := (getDoElems auxDo).get! 0; - let doElems := doElems.set! i doElemNew; - expandDoElems doElems (i+2) - else - expandDoElems doElems (i+2) + doElemsNew? ← expandLiftMethod doElem; + match doElemsNew? with + | some doElemsNew => do + let post := doElems.extract (i+1) doElems.size; + let pre := doElems.extract 0 i; + let doElems := pre ++ doElemsNew ++ post; + tmp ← `(do { $doElems* }); + expandDoElems true doElems i + | none => + if doElem.getKind == `Lean.Parser.Term.doLet then do + let letDecl := doElem.getArg 1; + rest ← mkRest (); + newBody ← `(let $letDecl:letDecl; $rest); + addPrefix newBody + else if doElem.getKind == `Lean.Parser.Term.doPat then withFreshMacroScope $ do + -- (termParser >> leftArrow) >> termParser >> optional (" | " >> termParser) + let pat := doElem.getArg 0; + let discr := doElem.getArg 2; + let optElse := doElem.getArg 3; + rest ← mkRest (); + newBody ← + if optElse.isNone then do + `(do x ← $discr; match x with | $pat => $rest) + else + let elseBody := optElse.getArg 1; + `(do x ← $discr; match x with | $pat => $rest | _ => $elseBody); + addPrefix newBody + else if i < doElems.size - 1 && doElem.getKind == `Lean.Parser.Term.doExpr then do + -- def doExpr := parser! termParser + let term := doElem.getArg 0; + auxDo ← `(do x ← $term; $(Syntax.missing)); + let doElemNew := (getDoElems auxDo).get! 0; + let doElems := doElems.set! i doElemNew; + expandDoElems true doElems (i+2) + else + expandDoElems modified doElems (i+2) + else if modified then + `(do { $doElems* }) else pure none +private def ensureDoElemType (ref : Syntax) (expectedMonad : Expr) (expectedType : Expr) (val : Expr) : TermElabM Expr := do +-- TODO: try MonadLift +ensureHasType ref expectedType val + +structure ProcessedDoElem := +(action : Expr) +(var : Expr) + +instance ProcessedDoElem.inhabited : Inhabited ProcessedDoElem := ⟨⟨arbitrary _, arbitrary _⟩⟩ + +private def extractTypeFormerAppArg (ref : Syntax) (type : Expr) : TermElabM Expr := do +type ← withReducible $ whnf ref type; +match type with +| Expr.app _ a _ => pure a +| _ => throwError ref ("type former application expected" ++ indentExpr type) + +/- +HasBind.bind : ∀ {m : Type u_1 → Type u_2} [self : HasBind m] {α β : Type u_1}, m α → (α → m β) → m β +-/ +private def mkBind (ref : Syntax) (m bindInstVal : Expr) (elems : Array ProcessedDoElem) (body : Expr) : TermElabM Expr := +if elems.isEmpty then + pure body +else do + let x := elems.back.var; -- any variable would work since they must be in the same universe + xType ← inferType ref x; + u_1 ← getLevel ref xType; + u_1 ← decLevel ref u_1; + bodyType ← inferType ref body; + u_2 ← getLevel ref bodyType; + u_2 ← decLevel ref u_2; + let bindAndInst := mkApp2 (Lean.mkConst `HasBind.bind [u_1, u_2]) m bindInstVal; + elems.foldrM + (fun elem body => do + -- dbgTrace (">>> " ++ toString body); + let var := elem.var; + let action := elem.action; + α ← inferType ref var; + mβ ← inferType ref body; + β ← extractTypeFormerAppArg ref mβ; + f ← mkLambda ref #[var] body; + -- dbgTrace (">>> f: " ++ toString f); + let body := mkAppN bindAndInst #[α, β, action, f]; + pure body) + body + +private partial def processDoElemsAux (doElems : Array Syntax) (m bindInstVal : Expr) (expectedType : Expr) : Nat → Array ProcessedDoElem → TermElabM Expr +| i, elems => + let doElem := doElems.get! i; + let k := doElem.getKind; + let ref := doElem; + if k == `Lean.Parser.Term.doId then do + when (i == doElems.size - 1) $ + throwError ref "the last statement in a 'do' block must be an expression"; + -- try (ident >> optType >> leftArrow) >> termParser + let id := doElem.getIdAt 0; + let typeStx := expandOptType ref (doElem.getArg 1); + let actionStx := doElem.getArg 3; + type ← elabType typeStx; + let actionExpectedType := mkApp m type; + action ← elabTerm actionStx actionExpectedType; + action ← ensureDoElemType actionStx m actionExpectedType action; + withLocalDecl ref id type $ fun x => + processDoElemsAux (i+1) (elems.push { action := action, var := x }) + else if doElem.getKind == `Lean.Parser.Term.doExpr then do + when (i != doElems.size - 1) $ + throwError ref ("unexpected 'do' expression element" ++ Format.line ++ doElem); + let bodyStx := doElem.getArg 0; + body ← elabTerm bodyStx expectedType; + body ← ensureDoElemType ref m expectedType body; + mkBind ref m bindInstVal elems body + else + throwError ref ("unexpected 'do' expression element" ++ Format.line ++ doElem) + +private def processDoElems (doElems : Array Syntax) (m bindInstVal : Expr) (expectedType : Expr) : TermElabM Expr := +processDoElemsAux doElems m bindInstVal expectedType 0 #[] + @[builtinTermElab «do»] def elabDo : TermElab := fun stx expectedType? => do let ref := stx; tryPostponeIfNoneOrMVar expectedType?; let doElems := getDoElems stx; - stxNew? ← expandDoElems doElems 0; + stxNew? ← expandDoElems false doElems 0; match stxNew? with | some stxNew => withMacroExpansion stx stxNew $ elabTerm stxNew expectedType? | none => do + trace `Elab.do ref $ fun _ => stx; let doElems := doElems.getSepElems; - (m, monad) ← extractMonad ref expectedType?; - throwError stx ("WIP " ++ toString doElems ++ Format.line ++ monad) + (m, bindInstVal) ← extractMonad ref expectedType?; + result ← processDoElems doElems m bindInstVal expectedType?.get!; + -- dbgTrace ("result: " ++ toString result); + pure result + +@[init] private def regTraceClasses : IO Unit := do +registerTraceClass `Elab.do; +pure () end Term end Elab diff --git a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean index 789609c747..73cc708c68 100644 --- a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean +++ b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean @@ -177,6 +177,8 @@ adaptReader (fun (ctx : Context) => { macroStack := { before := beforeStx, after instance : MonadMacroAdapter TacticM := { getEnv := getEnv, getCurrMacroScope := getCurrMacroScope, + getNextMacroScope := do s ← get; pure s.nextMacroScope, + setNextMacroScope := fun next => modify $ fun s => { nextMacroScope := next, .. s }, throwError := @throwError, throwUnsupportedSyntax := @throwUnsupportedSyntax } diff --git a/stage0/src/Init/Lean/Elab/Term.lean b/stage0/src/Init/Lean/Elab/Term.lean index f1312fba1b..3a34e3dd81 100644 --- a/stage0/src/Init/Lean/Elab/Term.lean +++ b/stage0/src/Init/Lean/Elab/Term.lean @@ -470,6 +470,8 @@ private def elabTermUsing (s : State) (stx : Syntax) (expectedType? : Option Exp instance : MonadMacroAdapter TermElabM := { getEnv := getEnv, getCurrMacroScope := getCurrMacroScope, + getNextMacroScope := do s ← get; pure s.nextMacroScope, + setNextMacroScope := fun next => modify $ fun s => { nextMacroScope := next, .. s }, throwError := @throwError, throwUnsupportedSyntax := @throwUnsupportedSyntax} diff --git a/stage0/src/Init/Lean/Elab/TermBinders.lean b/stage0/src/Init/Lean/Elab/TermBinders.lean index f7bd3c0ee1..293240f2c3 100644 --- a/stage0/src/Init/Lean/Elab/TermBinders.lean +++ b/stage0/src/Init/Lean/Elab/TermBinders.lean @@ -253,6 +253,17 @@ fun stx expectedType? => do e ← elabTerm body none; mkLambda stx xs e +def withLocalDecl {α} (ref : Syntax) (n : Name) (type : Expr) (k : Expr → TermElabM α) : TermElabM α := do +fvarId ← mkFreshFVarId; +ctx ← read; +let lctx := ctx.lctx.mkLocalDecl fvarId n type; +let localInsts := ctx.localInstances; +let fvar := mkFVar fvarId; +c? ← isClass ref type; +match c? with +| some c => adaptReader (fun (ctx : Context) => { lctx := lctx, localInstances := localInsts.push { className := c, fvar := fvar }, .. ctx }) $ k fvar +| none => adaptReader (fun (ctx : Context) => { lctx := lctx, .. ctx }) $ k fvar + def withLetDecl {α} (ref : Syntax) (n : Name) (type : Expr) (val : Expr) (k : Expr → TermElabM α) : TermElabM α := do fvarId ← mkFreshFVarId; ctx ← read; diff --git a/stage0/src/Init/Lean/Elab/Util.lean b/stage0/src/Init/Lean/Elab/Util.lean index e068d4f139..c993556f57 100644 --- a/stage0/src/Init/Lean/Elab/Util.lean +++ b/stage0/src/Init/Lean/Elab/Util.lean @@ -226,16 +226,19 @@ fun stx => class MonadMacroAdapter (m : Type → Type) := (getEnv {} : m Environment) (getCurrMacroScope {} : m MacroScope) +(getNextMacroScope {} : m MacroScope) +(setNextMacroScope {} : MacroScope → m Unit) (throwError {} {α : Type} : Syntax → MessageData → m α) (throwUnsupportedSyntax {} {α : Type} : m α) @[inline] def adaptMacro {m : Type → Type} [Monad m] [MonadMacroAdapter m] (x : Macro) (stx : Syntax) : m Syntax := do scp ← MonadMacroAdapter.getCurrMacroScope; env ← MonadMacroAdapter.getEnv; -match x stx { currMacroScope := scp, mainModule := env.mainModule } with -| Except.error Macro.Exception.unsupportedSyntax => MonadMacroAdapter.throwUnsupportedSyntax -| Except.error (Macro.Exception.error msg) => MonadMacroAdapter.throwError stx msg -| Except.ok stx => pure stx +next ← MonadMacroAdapter.getNextMacroScope; +match x stx { currMacroScope := scp, mainModule := env.mainModule } next with +| EStateM.Result.error Macro.Exception.unsupportedSyntax _ => MonadMacroAdapter.throwUnsupportedSyntax +| EStateM.Result.error (Macro.Exception.error msg) _ => MonadMacroAdapter.throwError stx msg +| EStateM.Result.ok stx nextMacroScope => do MonadMacroAdapter.setNextMacroScope nextMacroScope; pure stx @[init] private def regTraceClasses : IO Unit := do registerTraceClass `Elab; diff --git a/stage0/src/Init/LeanInit.lean b/stage0/src/Init/LeanInit.lean index f03079c1ad..45bdfdd144 100644 --- a/stage0/src/Init/LeanInit.lean +++ b/stage0/src/Init/LeanInit.lean @@ -9,7 +9,7 @@ import Init.Data.Array.Basic import Init.Data.UInt import Init.Data.Hashable import Init.Control.Reader -import Init.Control.Except +import Init.Control.EState namespace Lean /- @@ -371,7 +371,7 @@ inductive Exception end Macro -abbrev MacroM := ReaderT Macro.Context (ExceptT Macro.Exception Id) +abbrev MacroM := ReaderT Macro.Context (EStateM Macro.Exception MacroScope) def Macro.addMacroScope (n : Name) : MacroM Name := do ctx ← read; @@ -380,10 +380,14 @@ pure $ Lean.addMacroScope ctx.mainModule n ctx.currMacroScope def Macro.throwUnsupported {α} : MacroM α := throw Macro.Exception.unsupportedSyntax +@[inline] protected def Macro.withFreshMacroScope {α} (x : MacroM α) : MacroM α := do +fresh ← modifyGet (fun s => (s, s+1)); +adaptReader (fun (ctx : Macro.Context) => { currMacroScope := fresh, .. ctx }) x + instance MacroM.monadQuotation : MonadQuotation MacroM := { getCurrMacroScope := fun ctx => pure ctx.currMacroScope, getMainModule := fun ctx => pure ctx.mainModule, - withFreshMacroScope := fun _ x => x } + withFreshMacroScope := @Macro.withFreshMacroScope } abbrev Macro := Syntax → MacroM Syntax diff --git a/stage0/stdlib/Init/Control/Id.c b/stage0/stdlib/Init/Control/Id.c index a2e174740a..6adab54ca4 100644 --- a/stage0/stdlib/Init/Control/Id.c +++ b/stage0/stdlib/Init/Control/Id.c @@ -20,7 +20,6 @@ lean_object* l_Id_monad___closed__6; lean_object* l_Id_monad___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Id_monad___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Id_run(lean_object*); -lean_object* l_Id_monad___closed__9; lean_object* l_Id_monad; lean_object* l_Id_monad___closed__8; lean_object* l_Id_monad___closed__3; @@ -36,8 +35,10 @@ lean_object* l_Id_monad___closed__2; lean_object* l_Id_pure(lean_object*); lean_object* l_Id_monad___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Id_monad___closed__5; +lean_object* l_Id_hasBind; lean_object* l_Id_MonadRun; lean_object* l_Id_MonadRun___closed__1; +lean_object* l_Id_hasBind___closed__1; lean_object* l_Id_run___rarg(lean_object*); lean_object* l_Id_monad___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Id_pure___rarg(lean_object* x_1) { @@ -96,6 +97,22 @@ x_3 = lean_alloc_closure((void*)(l_Id_map___rarg), 2, 0); return x_3; } } +lean_object* _init_l_Id_hasBind___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Id_bind), 2, 0); +return x_1; +} +} +lean_object* _init_l_Id_hasBind() { +_start: +{ +lean_object* x_1; +x_1 = l_Id_hasBind___closed__1; +return x_1; +} +} lean_object* l_Id_monad___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -191,17 +208,9 @@ return x_6; lean_object* _init_l_Id_monad___closed__8() { _start: { -lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Id_bind), 2, 0); -return x_1; -} -} -lean_object* _init_l_Id_monad___closed__9() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Id_monad___closed__7; -x_2 = l_Id_monad___closed__8; +x_2 = l_Id_hasBind___closed__1; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -212,7 +221,7 @@ lean_object* _init_l_Id_monad() { _start: { lean_object* x_1; -x_1 = l_Id_monad___closed__9; +x_1 = l_Id_monad___closed__8; return x_1; } } @@ -285,6 +294,10 @@ _G_initialized = true; res = initialize_Init_Control_Lift(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Id_hasBind___closed__1 = _init_l_Id_hasBind___closed__1(); +lean_mark_persistent(l_Id_hasBind___closed__1); +l_Id_hasBind = _init_l_Id_hasBind(); +lean_mark_persistent(l_Id_hasBind); l_Id_monad___closed__1 = _init_l_Id_monad___closed__1(); lean_mark_persistent(l_Id_monad___closed__1); l_Id_monad___closed__2 = _init_l_Id_monad___closed__2(); @@ -301,8 +314,6 @@ l_Id_monad___closed__7 = _init_l_Id_monad___closed__7(); lean_mark_persistent(l_Id_monad___closed__7); l_Id_monad___closed__8 = _init_l_Id_monad___closed__8(); lean_mark_persistent(l_Id_monad___closed__8); -l_Id_monad___closed__9 = _init_l_Id_monad___closed__9(); -lean_mark_persistent(l_Id_monad___closed__9); l_Id_monad = _init_l_Id_monad(); lean_mark_persistent(l_Id_monad); l_Id_MonadRun___closed__1 = _init_l_Id_MonadRun___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c index 982c50a4f2..dc599d7370 100644 --- a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c @@ -14,20 +14,20 @@ extern "C" { #endif lean_object* l_Lean_Elab_Term_elabModN___closed__2; -lean_object* l_Lean_Elab_Term_elabBAnd___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabseqLeft___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBAnd___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabseqLeft___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getEnv___rarg(lean_object*); extern lean_object* l_Lean_Name_toString___closed__1; -lean_object* l_Lean_Elab_Term_elabDiv(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabAdd___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabDiv(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAdd___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabseqLeft___closed__1; -lean_object* l_Lean_Elab_Term_elabBind___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBind___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppStx(lean_object*, lean_object*); lean_object* l_Lean_extractMacroScopes(lean_object*); lean_object* l_Lean_Elab_Term_elabAdd___closed__1; extern lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabModN___closed__1; -lean_object* l_Lean_Elab_Term_elabIff(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabIff(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandIf___closed__3; extern lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabGE(lean_object*); @@ -37,7 +37,6 @@ extern lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main__ extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabNe(lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabEq___closed__1; -extern lean_object* l_Lean_Macro_throwUnsupported___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabHEq___closed__1; lean_object* l_Lean_Elab_Term_instantiateMVars(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__23; @@ -47,12 +46,12 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabCons___closed__1; lean_object* l_Lean_Elab_Term_expandIf___closed__5; lean_object* l_Lean_Elab_Term_elabseqLeft___closed__2; lean_object* l_Lean_Elab_Term_elabMod___closed__2; -lean_object* l_Lean_Elab_Term_elabPow(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabPow(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAdd___closed__1; lean_object* l_Lean_Elab_Term_elabModN___closed__3; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__2; -lean_object* l_Lean_Elab_Term_elabBOr___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabInfix(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBOr___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabInfix(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__5; lean_object* l_Lean_Elab_Term_expandSubtype___closed__9; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30; @@ -60,9 +59,9 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandIf(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabParserMacro___closed__1; extern lean_object* l_Lean_Parser_Term_eq___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; -lean_object* l_Lean_Elab_Term_elabInfixOp(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabInfixOp(lean_object*, lean_object*, lean_object*, lean_object*); 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* l_Lean_Elab_Term_expandHave___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__1; lean_object* l_Lean_Elab_Term_getDeclName_x3f(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__14; @@ -87,7 +86,7 @@ lean_object* l_Lean_Elab_Term_elabPow___closed__3; lean_object* lean_environment_find(lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__2___closed__4; lean_object* l_Lean_Elab_Term_elabMod___closed__1; -lean_object* l_Lean_Elab_Term_expandDollar(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDollar(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_mul___elambda__1___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabLE___closed__1; @@ -95,42 +94,42 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabEquiv___closed__1; extern lean_object* l_Lean_Parser_Term_andM___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_elabEquiv___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__17; -lean_object* l_Lean_Elab_Term_elabEquiv___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabEquiv___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__4; extern lean_object* l_Lean_Parser_Term_pow___elambda__1___closed__1; -lean_object* l_Lean_Elab_Term_expandSubtype(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandSubtype(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_parser_x21___elambda__1___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandHave___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabParserMacro___closed__2; -lean_object* l_Lean_Elab_Term_elabMul___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMul___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__8; lean_object* l_Lean_Elab_Term_expandIf___closed__7; lean_object* l_Lean_Elab_Term_elabModN___closed__4; -lean_object* l_Lean_Elab_Term_elabseq(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabEq___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabseq(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabEq___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_seqRight___elambda__1___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAppend(lean_object*); lean_object* l_Lean_Elab_Term_expandSubtype___closed__10; lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_8__explodeHeadPat___lambda__1___closed__3; -lean_object* l_Lean_Elab_Term_elabModN(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabModN(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAndThen___closed__1; extern lean_object* l_Lean_Parser_Term_gt___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabEquiv(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabEquiv(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_ElabFComp(lean_object*); lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__6; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__6; -lean_object* l_Lean_Elab_Term_elabAnd(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAnd(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandSubtype___closed__11; lean_object* l_Lean_Elab_Term_elabLT___closed__3; extern lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabDiv___closed__3; -lean_object* l_Lean_Elab_Term_elabBNe(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBNe(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandWhere___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabLT___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabLT___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_string_utf8_byte_size(lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBNe(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__4; @@ -141,24 +140,24 @@ lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabAnonymousCtor___closed__2 lean_object* l_Lean_Elab_Term_elabLT___closed__1; lean_object* l_Lean_Elab_Term_elabEquiv___closed__2; lean_object* l_Lean_Elab_Term_getMainModule___rarg(lean_object*); -lean_object* l_Lean_Elab_Term_elabMod___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMod___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__6; lean_object* l_Lean_Elab_Term_elabAppend___closed__3; extern lean_object* l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -lean_object* l_Lean_Elab_Term_expandWhere___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandWhere___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_lt___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabModN___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabEq(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabModN___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabEq(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandShow___closed__1; lean_object* l_Lean_Elab_Term_elabSub___closed__2; lean_object* l___private_Init_Lean_Elab_Quotation_1__quoteName___main(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Lean_Elab_Term_expandSubtype___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMapConst(lean_object*); -lean_object* l_Lean_Elab_Term_elabMapRev(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMapRev(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_subtype___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_prod___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_expandDollarProj(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDollarProj(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabOrM___closed__1; extern lean_object* l_Lean_Parser_Term_or___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabseq___closed__1; @@ -190,27 +189,27 @@ lean_object* lean_array_fget(lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_declareBuiltinTermElab___closed__3; lean_object* l_Lean_Elab_Term_elabAnonymousCtor(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabseq___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabseq___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandDollar(lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabEq(lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__1; -lean_object* l_Lean_Elab_Term_elabMul(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMul(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabseq___closed__2; extern lean_object* l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabNe___closed__1; extern lean_object* l_Lean_Parser_Term_band___elambda__1___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBAnd___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabIff___closed__1; -lean_object* l_Lean_Elab_Term_elabAppend(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAppend(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_or___elambda__1___closed__1; lean_object* lean_nat_sub(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_expandShow___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandShow___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBOr___closed__1; extern lean_object* l_Lean_Parser_Term_ne___elambda__1___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBind(lean_object*); -lean_object* l_Lean_Elab_Term_elabMapConst(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMapConst(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_mul___elambda__1___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabOrElse(lean_object*); extern lean_object* l_Lean_Parser_Term_div___elambda__1___closed__1; @@ -226,24 +225,24 @@ extern lean_object* l_Lean_Parser_Term_seq___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__10; lean_object* l_Lean_Elab_Term_elabLE___closed__1; lean_object* l_Lean_Elab_Term_ElabFComp___closed__4; -lean_object* l_Lean_Elab_Term_expandIf(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabDiv___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabLE___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabOrElse(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandIf(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabDiv___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabLE___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabOrElse(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAppend___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMap___closed__1; extern lean_object* l_Lean_Parser_Term_equiv___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__4; lean_object* l_Lean_Elab_Term_elabDiv___closed__1; -lean_object* l_Lean_Elab_Term_elabBind(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBind(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabEquiv___closed__3; lean_object* l_Lean_Elab_Term_elabTParserMacro___closed__1; lean_object* l_Lean_Elab_Term_expandIf___closed__6; -lean_object* l_Lean_Elab_Term_ElabFComp(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_ElabFComp(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabOrElse___closed__1; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__8; lean_object* l_Lean_Elab_Term_expandIf___closed__9; -lean_object* l_Lean_Elab_Term_elabProd___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabProd___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTermAux___main(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabPow(lean_object*); extern lean_object* l_Lean_Parser_Term_mod___elambda__1___closed__1; @@ -251,9 +250,9 @@ lean_object* l_Lean_Elab_Term_elabMapRev___closed__1; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__7; extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__27; -lean_object* l_Lean_Elab_Term_elabSub(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabSub(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_fcomp___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabMapRev___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMapRev___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabMod___closed__3; lean_object* l_Lean_Elab_Term_elabLE___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabGT(lean_object*); @@ -264,16 +263,16 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabIff___closed__2; lean_object* l_Lean_Elab_Term_expandSubtype___closed__8; -lean_object* l_Lean_Elab_Term_elabHEq(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabHEq(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_expandDollar___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDollar___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabseqRight___closed__1; -lean_object* l_Lean_Elab_Term_elabMapConstRev(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMapConstRev(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabProd(lean_object*); lean_object* l_Lean_Elab_Term_elabseqRight___closed__2; -lean_object* l_Lean_Elab_Term_elabIff___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabIff___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabLT___closed__2; -lean_object* l_Lean_Elab_Term_elabBAnd(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBAnd(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31; lean_object* l_Lean_Elab_Term_getCurrMacroScope(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_orM___elambda__1___closed__2; @@ -283,10 +282,10 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandDollar___closed__1; lean_object* l_Lean_Elab_Term_expandSubtype___closed__4; extern lean_object* l_Lean_Parser_Term_iff___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__9; -lean_object* l_Lean_Elab_Term_elabLE(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabLE(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__31; extern lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -lean_object* l_Lean_Elab_Term_expandShow(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandShow(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabOr___closed__1; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__3; extern lean_object* l_Lean_mkAppStx___closed__6; @@ -294,16 +293,16 @@ lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__3; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabHEq(lean_object*); lean_object* l_Lean_Elab_Term_elabMap___closed__3; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabLE(lean_object*); -lean_object* l_Lean_Elab_Term_elabOr___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabOr___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_beq___elambda__1___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabTParserMacro___closed__3; uint8_t l_coeDecidableEq(uint8_t); extern lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___rarg___closed__5; -lean_object* l_Lean_Elab_Term_elabAppend___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAppend___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandShow(lean_object*); lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__15; lean_object* l_Lean_Elab_Term_elabPow___closed__2; -lean_object* l_Lean_Elab_Term_elabInfixOp___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabInfixOp___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabseqLeft___closed__1; extern lean_object* l_Lean_Parser_Term_append___elambda__1___closed__1; @@ -312,29 +311,29 @@ extern lean_object* l_Lean_Parser_Term_mapConstRev___elambda__1___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandSubtype___closed__1; extern lean_object* l_Lean_Parser_Term_beq___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_bor___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabCons___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabPow___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabCons___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabPow___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAndM___closed__1; extern lean_object* l___private_Init_Lean_Elab_Term_10__mkPairsAux___main___closed__5; -lean_object* l_Lean_Elab_Term_elabGE(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabGE(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMapConstRev(lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabLT___closed__4; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBAnd(lean_object*); -lean_object* l_Lean_Elab_Term_elabMapConstRev___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabOr(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMapConstRev___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabOr(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAndThen(lean_object*); lean_object* l_Lean_Elab_Term_elabMap___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; lean_object* l_Lean_Elab_Term_elabAnd___closed__2; extern lean_object* l_Lean_Parser_Term_mapConstRev___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabMapConstRev___closed__1; -lean_object* l_Lean_Elab_Term_elabBOr(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBOr(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_seq___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__10; -lean_object* l_Lean_Elab_Term_elabAndM(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabOrElse___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAndM(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabOrElse___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_addMacroScope(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabOrM___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__11; @@ -347,22 +346,22 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMod(lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabCons(lean_object*); extern lean_object* l_Lean_nullKind___closed__2; extern lean_object* l_Lean_Parser_Term_heq___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabBEq___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBEq___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAppend___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabseqRight(lean_object*); -lean_object* l_Lean_Elab_Term_expandDollarProj___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDollarProj___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAppend___closed__1; -lean_object* l_Lean_Elab_Term_elabGT(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabGT(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandDollarProj___closed__1; extern lean_object* l_Lean_Parser_Term_have___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabAnd___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabMap___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAnd___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMap___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabGE___closed__2; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__5; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMod___closed__1; lean_object* l_Lean_Elab_Term_elabMap___closed__2; lean_object* l_Lean_Elab_Term_expandSubtype___closed__3; -lean_object* l_Lean_Elab_Term_expandHave(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandHave(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; extern lean_object* l_Lean_Parser_Term_le___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_str___elambda__1___closed__2; @@ -379,17 +378,17 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAndThen___closed__1; extern lean_object* l_Lean_Parser_Term_if___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; lean_object* l_Lean_Elab_Term_elabLE___closed__3; -lean_object* l_Lean_Elab_Term_elabLT(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabLT(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_let___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__12; lean_object* l_Lean_Syntax_getArgs(lean_object*); lean_object* l_Lean_Elab_Term_expandIf___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabOrM(lean_object*); lean_object* l_Lean_Elab_Term_elabLE___closed__4; -lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabIff___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMapRev(lean_object*); -lean_object* l_Lean_Elab_Term_elabGE___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabGE___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_seqRight___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_expandIf___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabAnonymousCtor(lean_object*); @@ -409,13 +408,13 @@ lean_object* l_Lean_Elab_Term_expandSubtype___closed__5; lean_object* l_Lean_Elab_Term_adaptExpander(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabTParserMacro___closed__2; lean_object* l_Lean_mkStxStrLit(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabInfix___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabInfix___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabGE___closed__1; -lean_object* l_Lean_Elab_Term_ElabFComp___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_ElabFComp___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Meta_DiscrTree_6__shouldAddAsStar___closed__8; extern lean_object* l_Lean_Parser_Term_mapConst___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_ElabFComp___closed__1; -lean_object* l_Lean_Elab_Term_elabBEq(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBEq(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_pow___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_cons___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__1; @@ -423,7 +422,7 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandDollarProj___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabEquiv(lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___closed__1; lean_object* l_Lean_Elab_Term_ElabFComp___closed__3; -lean_object* l_Lean_Elab_Term_elabAndThen___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAndThen___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__9; extern lean_object* l_Lean_Parser_Term_and___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__13; @@ -437,30 +436,30 @@ lean_object* l_Lean_Expr_consumeMData___main(lean_object*); lean_object* l_Lean_Elab_Term_elabGT___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabseq___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__3; -lean_object* l_Lean_Elab_Term_elabGT___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabGT___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_mapConst___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__15; -lean_object* l_Lean_Elab_Term_elabHEq___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabOrM(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabHEq___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabOrM(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_addBuiltinTermElab(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAndThen___closed__2; uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabMapConst___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMapConst___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAndThen___closed__3; lean_object* l_Lean_Elab_Term_expandSubtype___closed__12; -lean_object* l_Lean_Elab_Term_elabseqLeft(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabseqLeft(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabParserMacro(lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBind___closed__1; lean_object* l_Lean_Elab_Term_elabMapConst___closed__1; -lean_object* l_Lean_Elab_Term_elabseqRight(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabseqRight(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_expandHave(lean_object*); uint8_t l_List_beq___main___at_Lean_Elab_Term_elabParserMacro___spec__1(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabseqRight___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabseqRight___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabOr(lean_object*); lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__5; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__14; lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); -lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMap(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabTParserMacro___closed__1; extern lean_object* l_Lean_mkOptionalNode___closed__2; @@ -468,9 +467,9 @@ extern lean_object* l_Lean_Parser_Term_bne___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; extern lean_object* l_Lean_Elab_Term_elabListLit___closed__3; lean_object* l_Lean_mkCTermIdFrom(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabCons(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabCons(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -lean_object* l_Lean_Elab_Term_elabMod(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMod(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__7; extern lean_object* l_Lean_Parser_Term_map___elambda__1___closed__2; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBOr(lean_object*); @@ -481,10 +480,10 @@ lean_object* l_Lean_Elab_Term_elabBEq___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabTParserMacro(lean_object*); lean_object* l_Lean_Elab_Term_elabBNe___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabBEq(lean_object*); -lean_object* l_Lean_Elab_Term_elabBNe___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabBNe___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__1; lean_object* l_Lean_Elab_Term_elabSub___closed__1; -lean_object* l_Lean_Elab_Term_elabMap(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabMap(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabProd___closed__1; lean_object* l_Lean_indentExpr(lean_object*); lean_object* l_Lean_Elab_Term_elabseqRight___closed__3; @@ -494,7 +493,7 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAndM(lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__25; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabAnd___closed__1; extern lean_object* l_Lean_Parser_Term_map___elambda__1___closed__1; -lean_object* l_Lean_Elab_Term_elabAndThen(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAndThen(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabGT___closed__1; extern lean_object* l_Lean_Parser_Term_bindOp___elambda__1___closed__2; extern lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___rarg___closed__6; @@ -502,11 +501,11 @@ extern lean_object* l_Lean_Parser_Term_modN___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabNe___closed__2; extern lean_object* l_Lean_Parser_Term_and___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__7; -lean_object* l_Lean_Elab_Term_elabNe(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabNe(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_ElabFComp___closed__2; -lean_object* l_Lean_Elab_Term_elabProd(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabSub___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabProd(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabSub___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; extern lean_object* l_Lean_Parser_Term_dollar___elambda__1___closed__2; @@ -514,158 +513,163 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabDiv(lean_object*); lean_object* l_Lean_Elab_Term_elabNe___closed__1; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__4; lean_object* l_Lean_Elab_Term_elabBEq___closed__1; -lean_object* l_Lean_Elab_Term_elabNe___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabNe___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabSub___closed__3; -lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_mod___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__22; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabDiv___closed__1; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__9; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33; -lean_object* l_Lean_Elab_Term_expandWhere(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabAdd(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandWhere(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_elabAdd(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__8; lean_object* l_Lean_Elab_Term_elabAndM___closed__1; -lean_object* l_Lean_Elab_Term_elabAndM___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_expandDollar(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAndM___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDollar(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_46; uint8_t x_47; -x_46 = l_Lean_Parser_Term_dollar___elambda__1___closed__2; +uint8_t x_4; lean_object* x_48; uint8_t x_49; +x_48 = l_Lean_Parser_Term_dollar___elambda__1___closed__2; lean_inc(x_1); -x_47 = l_Lean_Syntax_isOfKind(x_1, x_46); -if (x_47 == 0) +x_49 = l_Lean_Syntax_isOfKind(x_1, x_48); +if (x_49 == 0) { -uint8_t x_48; -x_48 = 0; -x_3 = x_48; -goto block_45; +uint8_t x_50; +x_50 = 0; +x_4 = x_50; +goto block_47; } else { -lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; -x_49 = l_Lean_Syntax_getArgs(x_1); -x_50 = lean_array_get_size(x_49); -lean_dec(x_49); -x_51 = lean_unsigned_to_nat(3u); -x_52 = lean_nat_dec_eq(x_50, x_51); -lean_dec(x_50); -x_3 = x_52; -goto block_45; +lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; +x_51 = l_Lean_Syntax_getArgs(x_1); +x_52 = lean_array_get_size(x_51); +lean_dec(x_51); +x_53 = lean_unsigned_to_nat(3u); +x_54 = lean_nat_dec_eq(x_52, x_53); +lean_dec(x_52); +x_4 = x_54; +goto block_47; } -block_45: +block_47: { -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) { -lean_object* x_5; +lean_object* x_6; lean_object* x_7; lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__1; -return x_5; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_38; uint8_t x_39; -x_6 = lean_unsigned_to_nat(0u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_38 = l_Lean_mkAppStx___closed__8; -lean_inc(x_7); -x_39 = l_Lean_Syntax_isOfKind(x_7, x_38); -if (x_39 == 0) +lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_40; uint8_t x_41; +x_8 = lean_unsigned_to_nat(0u); +x_9 = l_Lean_Syntax_getArg(x_1, x_8); +x_40 = l_Lean_mkAppStx___closed__8; +lean_inc(x_9); +x_41 = l_Lean_Syntax_isOfKind(x_9, x_40); +if (x_41 == 0) { -uint8_t x_40; -x_40 = 0; -x_8 = x_40; -goto block_37; +uint8_t x_42; +x_42 = 0; +x_10 = x_42; +goto block_39; } else { -lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; -x_41 = l_Lean_Syntax_getArgs(x_7); -x_42 = lean_array_get_size(x_41); -lean_dec(x_41); -x_43 = lean_unsigned_to_nat(2u); -x_44 = lean_nat_dec_eq(x_42, x_43); -lean_dec(x_42); -x_8 = x_44; -goto block_37; +lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; +x_43 = l_Lean_Syntax_getArgs(x_9); +x_44 = lean_array_get_size(x_43); +lean_dec(x_43); +x_45 = lean_unsigned_to_nat(2u); +x_46 = lean_nat_dec_eq(x_44, x_45); +lean_dec(x_44); +x_10 = x_46; +goto block_39; } -block_37: +block_39: { -uint8_t x_9; -x_9 = l_coeDecidableEq(x_8); -if (x_9 == 0) +uint8_t x_11; +x_11 = l_coeDecidableEq(x_10); +if (x_11 == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; -x_10 = lean_unsigned_to_nat(2u); -x_11 = l_Lean_Syntax_getArg(x_1, x_10); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_12 = lean_unsigned_to_nat(2u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); lean_dec(x_1); -x_12 = l_Array_empty___closed__1; -x_13 = lean_array_push(x_12, x_7); -x_14 = lean_array_push(x_12, x_11); -x_15 = l_Lean_nullKind___closed__2; -x_16 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_16, 0, x_15); -lean_ctor_set(x_16, 1, x_14); -x_17 = lean_array_push(x_13, x_16); -x_18 = l_Lean_mkAppStx___closed__8; -x_19 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_19, 0, x_18); -lean_ctor_set(x_19, 1, x_17); -x_20 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_20, 0, x_19); -return x_20; +x_14 = l_Array_empty___closed__1; +x_15 = lean_array_push(x_14, x_9); +x_16 = lean_array_push(x_14, x_13); +x_17 = l_Lean_nullKind___closed__2; +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_array_push(x_15, x_18); +x_20 = l_Lean_mkAppStx___closed__8; +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_19); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_3); +return x_22; } else { -lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_21 = l_Lean_Syntax_getArg(x_7, x_6); -x_22 = lean_unsigned_to_nat(1u); -x_23 = l_Lean_Syntax_getArg(x_7, x_22); -lean_dec(x_7); -x_24 = lean_unsigned_to_nat(2u); -x_25 = l_Lean_Syntax_getArg(x_1, x_24); +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_23 = l_Lean_Syntax_getArg(x_9, x_8); +x_24 = lean_unsigned_to_nat(1u); +x_25 = l_Lean_Syntax_getArg(x_9, x_24); +lean_dec(x_9); +x_26 = lean_unsigned_to_nat(2u); +x_27 = l_Lean_Syntax_getArg(x_1, x_26); lean_dec(x_1); -x_26 = l_Lean_Syntax_getArgs(x_23); -lean_dec(x_23); -x_27 = lean_array_push(x_26, x_25); -x_28 = l_Array_empty___closed__1; -x_29 = lean_array_push(x_28, x_21); -x_30 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_27, x_27, x_6, x_28); -lean_dec(x_27); -x_31 = l_Lean_nullKind___closed__2; -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_30); -x_33 = lean_array_push(x_29, x_32); -x_34 = l_Lean_mkAppStx___closed__8; -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_33); -x_36 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_36, 0, x_35); -return x_36; +x_28 = l_Lean_Syntax_getArgs(x_25); +lean_dec(x_25); +x_29 = lean_array_push(x_28, x_27); +x_30 = l_Array_empty___closed__1; +x_31 = lean_array_push(x_30, x_23); +x_32 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_29, x_29, x_8, x_30); +lean_dec(x_29); +x_33 = l_Lean_nullKind___closed__2; +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = lean_array_push(x_31, x_34); +x_36 = l_Lean_mkAppStx___closed__8; +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_35); +x_38 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_3); +return x_38; } } } } } } -lean_object* l_Lean_Elab_Term_expandDollar___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandDollar___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_expandDollar(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_expandDollar(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandDollar___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandDollar___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandDollar___boxed), 3, 0); return x_1; } } @@ -691,101 +695,109 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_expandDollarProj(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandDollarProj(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; uint8_t x_4; -x_3 = l_Lean_Parser_Term_dollarProj___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_dollarProj___elambda__1___closed__2; lean_inc(x_1); -x_4 = l_Lean_Syntax_isOfKind(x_1, x_3); -if (x_4 == 0) -{ -uint8_t x_5; -x_5 = l_Lean_Elab_Term_elabParen___closed__4; +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { -lean_object* x_6; +uint8_t x_6; +x_6 = l_Lean_Elab_Term_elabParen___closed__4; +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_dec(x_1); -x_6 = l_Lean_Macro_throwUnsupported___closed__1; -return x_6; +x_7 = lean_box(1); +x_8 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_3); +return x_8; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = lean_unsigned_to_nat(2u); +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_9 = lean_unsigned_to_nat(0u); x_10 = l_Lean_Syntax_getArg(x_1, x_9); +x_11 = lean_unsigned_to_nat(2u); +x_12 = l_Lean_Syntax_getArg(x_1, x_11); lean_dec(x_1); -x_11 = l_Array_empty___closed__1; -x_12 = lean_array_push(x_11, x_8); -x_13 = l_Lean_Elab_Term_expandDollarProj___closed__1; -x_14 = lean_array_push(x_12, x_13); -x_15 = lean_array_push(x_14, x_10); -x_16 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -x_17 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_15); -x_18 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_18, 0, x_17); -return x_18; +x_13 = l_Array_empty___closed__1; +x_14 = lean_array_push(x_13, x_10); +x_15 = l_Lean_Elab_Term_expandDollarProj___closed__1; +x_16 = lean_array_push(x_14, x_15); +x_17 = lean_array_push(x_16, x_12); +x_18 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_3); +return x_20; } } else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; uint8_t x_22; uint8_t x_23; -x_19 = l_Lean_Syntax_getArgs(x_1); -x_20 = lean_array_get_size(x_19); -lean_dec(x_19); -x_21 = lean_unsigned_to_nat(3u); -x_22 = lean_nat_dec_eq(x_20, x_21); -lean_dec(x_20); -x_23 = l_coeDecidableEq(x_22); -if (x_23 == 0) +lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; uint8_t x_25; +x_21 = l_Lean_Syntax_getArgs(x_1); +x_22 = lean_array_get_size(x_21); +lean_dec(x_21); +x_23 = lean_unsigned_to_nat(3u); +x_24 = lean_nat_dec_eq(x_22, x_23); +lean_dec(x_22); +x_25 = l_coeDecidableEq(x_24); +if (x_25 == 0) { -lean_object* x_24; +lean_object* x_26; lean_object* x_27; lean_dec(x_1); -x_24 = l_Lean_Macro_throwUnsupported___closed__1; -return x_24; +x_26 = lean_box(1); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_3); +return x_27; } else { -lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_25 = lean_unsigned_to_nat(0u); -x_26 = l_Lean_Syntax_getArg(x_1, x_25); -x_27 = lean_unsigned_to_nat(2u); -x_28 = l_Lean_Syntax_getArg(x_1, x_27); +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_28 = lean_unsigned_to_nat(0u); +x_29 = l_Lean_Syntax_getArg(x_1, x_28); +x_30 = lean_unsigned_to_nat(2u); +x_31 = l_Lean_Syntax_getArg(x_1, x_30); lean_dec(x_1); -x_29 = l_Array_empty___closed__1; -x_30 = lean_array_push(x_29, x_26); -x_31 = l_Lean_Elab_Term_expandDollarProj___closed__1; -x_32 = lean_array_push(x_30, x_31); -x_33 = lean_array_push(x_32, x_28); -x_34 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_33); -x_36 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_36, 0, x_35); -return x_36; +x_32 = l_Array_empty___closed__1; +x_33 = lean_array_push(x_32, x_29); +x_34 = l_Lean_Elab_Term_expandDollarProj___closed__1; +x_35 = lean_array_push(x_33, x_34); +x_36 = lean_array_push(x_35, x_31); +x_37 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +x_39 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_39, 0, x_38); +lean_ctor_set(x_39, 1, x_3); +return x_39; } } } } -lean_object* l_Lean_Elab_Term_expandDollarProj___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandDollarProj___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_expandDollarProj(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_expandDollarProj(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandDollarProj___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandDollarProj___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandDollarProj___boxed), 3, 0); return x_1; } } @@ -898,259 +910,267 @@ lean_ctor_set(x_3, 1, x_1); return x_3; } } -lean_object* l_Lean_Elab_Term_expandIf(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandIf(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_118; uint8_t x_119; -x_118 = l_Lean_Parser_Term_if___elambda__1___closed__2; +uint8_t x_4; lean_object* x_121; uint8_t x_122; +x_121 = l_Lean_Parser_Term_if___elambda__1___closed__2; lean_inc(x_1); -x_119 = l_Lean_Syntax_isOfKind(x_1, x_118); -if (x_119 == 0) +x_122 = l_Lean_Syntax_isOfKind(x_1, x_121); +if (x_122 == 0) { -uint8_t x_120; -x_120 = 0; -x_3 = x_120; -goto block_117; +uint8_t x_123; +x_123 = 0; +x_4 = x_123; +goto block_120; } else { -lean_object* x_121; lean_object* x_122; lean_object* x_123; uint8_t x_124; -x_121 = l_Lean_Syntax_getArgs(x_1); -x_122 = lean_array_get_size(x_121); -lean_dec(x_121); -x_123 = lean_unsigned_to_nat(7u); -x_124 = lean_nat_dec_eq(x_122, x_123); -lean_dec(x_122); -x_3 = x_124; -goto block_117; +lean_object* x_124; lean_object* x_125; lean_object* x_126; uint8_t x_127; +x_124 = l_Lean_Syntax_getArgs(x_1); +x_125 = lean_array_get_size(x_124); +lean_dec(x_124); +x_126 = lean_unsigned_to_nat(7u); +x_127 = lean_nat_dec_eq(x_125, x_126); +lean_dec(x_125); +x_4 = x_127; +goto block_120; } -block_117: +block_120: { -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) { -lean_object* x_5; +lean_object* x_6; lean_object* x_7; lean_dec(x_2); lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__1; -return x_5; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_42; uint8_t x_43; uint8_t x_44; -x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_42 = l_Lean_nullKind___closed__2; -lean_inc(x_7); -x_43 = l_Lean_Syntax_isOfKind(x_7, x_42); -if (x_43 == 0) +lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_45; uint8_t x_46; uint8_t x_47; +x_8 = lean_unsigned_to_nat(1u); +x_9 = l_Lean_Syntax_getArg(x_1, x_8); +x_45 = l_Lean_nullKind___closed__2; +lean_inc(x_9); +x_46 = l_Lean_Syntax_isOfKind(x_9, x_45); +if (x_46 == 0) { -uint8_t x_112; -x_112 = 0; -x_44 = x_112; -goto block_111; +uint8_t x_115; +x_115 = 0; +x_47 = x_115; +goto block_114; } else { -lean_object* x_113; lean_object* x_114; lean_object* x_115; uint8_t x_116; -x_113 = l_Lean_Syntax_getArgs(x_7); -x_114 = lean_array_get_size(x_113); -lean_dec(x_113); -x_115 = lean_unsigned_to_nat(2u); -x_116 = lean_nat_dec_eq(x_114, x_115); -lean_dec(x_114); -x_44 = x_116; -goto block_111; +lean_object* x_116; lean_object* x_117; lean_object* x_118; uint8_t x_119; +x_116 = l_Lean_Syntax_getArgs(x_9); +x_117 = lean_array_get_size(x_116); +lean_dec(x_116); +x_118 = lean_unsigned_to_nat(2u); +x_119 = lean_nat_dec_eq(x_117, x_118); +lean_dec(x_117); +x_47 = x_119; +goto block_114; } -block_41: +block_44: { -uint8_t x_9; -x_9 = l_coeDecidableEq(x_8); -if (x_9 == 0) +uint8_t x_11; +x_11 = l_coeDecidableEq(x_10); +if (x_11 == 0) { -lean_object* x_10; +lean_object* x_12; lean_object* x_13; lean_dec(x_2); lean_dec(x_1); -x_10 = l_Lean_Macro_throwUnsupported___closed__1; -return x_10; +x_12 = lean_box(1); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_3); +return x_13; } else { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; -x_11 = lean_unsigned_to_nat(2u); -x_12 = l_Lean_Syntax_getArg(x_1, x_11); -x_13 = lean_unsigned_to_nat(4u); -x_14 = l_Lean_Syntax_getArg(x_1, x_13); -x_15 = lean_unsigned_to_nat(6u); -x_16 = l_Lean_Syntax_getArg(x_1, x_15); +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = lean_unsigned_to_nat(4u); +x_17 = l_Lean_Syntax_getArg(x_1, x_16); +x_18 = lean_unsigned_to_nat(6u); +x_19 = l_Lean_Syntax_getArg(x_1, x_18); lean_dec(x_1); -x_17 = lean_ctor_get(x_2, 1); -lean_inc(x_17); -x_18 = lean_ctor_get(x_2, 0); -lean_inc(x_18); +x_20 = lean_ctor_get(x_2, 1); +lean_inc(x_20); +x_21 = lean_ctor_get(x_2, 0); +lean_inc(x_21); lean_dec(x_2); -x_19 = lean_box(0); -x_20 = l_Lean_Elab_Term_expandIf___closed__1; -x_21 = l_Lean_addMacroScope(x_18, x_20, x_17); -x_22 = l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; -x_23 = l_Lean_Elab_Term_expandIf___closed__3; -x_24 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_24, 0, x_19); -lean_ctor_set(x_24, 1, x_22); -lean_ctor_set(x_24, 2, x_21); -lean_ctor_set(x_24, 3, x_23); -x_25 = l_Array_empty___closed__1; -x_26 = lean_array_push(x_25, x_24); -x_27 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_28 = lean_array_push(x_26, x_27); -x_29 = l_Lean_mkTermIdFromIdent___closed__2; -x_30 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_28); -x_31 = lean_array_push(x_25, x_30); -x_32 = lean_array_push(x_25, x_12); -x_33 = lean_array_push(x_32, x_14); -x_34 = lean_array_push(x_33, x_16); -x_35 = l_Lean_nullKind___closed__2; -x_36 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -x_37 = lean_array_push(x_31, x_36); -x_38 = l_Lean_mkAppStx___closed__8; +x_22 = lean_box(0); +x_23 = l_Lean_Elab_Term_expandIf___closed__1; +x_24 = l_Lean_addMacroScope(x_21, x_23, x_20); +x_25 = l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; +x_26 = l_Lean_Elab_Term_expandIf___closed__3; +x_27 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_27, 0, x_22); +lean_ctor_set(x_27, 1, x_25); +lean_ctor_set(x_27, 2, x_24); +lean_ctor_set(x_27, 3, x_26); +x_28 = l_Array_empty___closed__1; +x_29 = lean_array_push(x_28, x_27); +x_30 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_31 = lean_array_push(x_29, x_30); +x_32 = l_Lean_mkTermIdFromIdent___closed__2; +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_31); +x_34 = lean_array_push(x_28, x_33); +x_35 = lean_array_push(x_28, x_15); +x_36 = lean_array_push(x_35, x_17); +x_37 = lean_array_push(x_36, x_19); +x_38 = l_Lean_nullKind___closed__2; x_39 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_39, 0, x_38); lean_ctor_set(x_39, 1, x_37); -x_40 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_40, 0, x_39); -return x_40; +x_40 = lean_array_push(x_34, x_39); +x_41 = l_Lean_mkAppStx___closed__8; +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_40); +x_43 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_3); +return x_43; } } -block_111: +block_114: { -uint8_t x_45; -x_45 = l_coeDecidableEq(x_44); -if (x_45 == 0) +uint8_t x_48; +x_48 = l_coeDecidableEq(x_47); +if (x_48 == 0) { -if (x_43 == 0) +if (x_46 == 0) { -uint8_t x_46; -lean_dec(x_7); -x_46 = 0; -x_8 = x_46; -goto block_41; +uint8_t x_49; +lean_dec(x_9); +x_49 = 0; +x_10 = x_49; +goto block_44; } else { -lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; -x_47 = l_Lean_Syntax_getArgs(x_7); -lean_dec(x_7); -x_48 = lean_array_get_size(x_47); -lean_dec(x_47); -x_49 = lean_unsigned_to_nat(0u); -x_50 = lean_nat_dec_eq(x_48, x_49); -lean_dec(x_48); -x_8 = x_50; -goto block_41; +lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; +x_50 = l_Lean_Syntax_getArgs(x_9); +lean_dec(x_9); +x_51 = lean_array_get_size(x_50); +lean_dec(x_50); +x_52 = lean_unsigned_to_nat(0u); +x_53 = lean_nat_dec_eq(x_51, x_52); +lean_dec(x_51); +x_10 = x_53; +goto block_44; } } else { -lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; -x_51 = lean_unsigned_to_nat(0u); -x_52 = l_Lean_Syntax_getArg(x_7, x_51); -lean_dec(x_7); -x_53 = lean_unsigned_to_nat(2u); -x_54 = l_Lean_Syntax_getArg(x_1, x_53); -x_55 = lean_unsigned_to_nat(4u); -x_56 = l_Lean_Syntax_getArg(x_1, x_55); -x_57 = lean_unsigned_to_nat(6u); -x_58 = l_Lean_Syntax_getArg(x_1, x_57); +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +x_54 = lean_unsigned_to_nat(0u); +x_55 = l_Lean_Syntax_getArg(x_9, x_54); +lean_dec(x_9); +x_56 = lean_unsigned_to_nat(2u); +x_57 = l_Lean_Syntax_getArg(x_1, x_56); +x_58 = lean_unsigned_to_nat(4u); +x_59 = l_Lean_Syntax_getArg(x_1, x_58); +x_60 = lean_unsigned_to_nat(6u); +x_61 = l_Lean_Syntax_getArg(x_1, x_60); lean_dec(x_1); -x_59 = lean_ctor_get(x_2, 1); -lean_inc(x_59); -x_60 = lean_ctor_get(x_2, 0); -lean_inc(x_60); +x_62 = lean_ctor_get(x_2, 1); +lean_inc(x_62); +x_63 = lean_ctor_get(x_2, 0); +lean_inc(x_63); lean_dec(x_2); -x_61 = lean_box(0); -x_62 = l_Lean_Elab_Term_expandIf___closed__7; -x_63 = l_Lean_addMacroScope(x_60, x_62, x_59); -x_64 = l_Lean_Elab_Term_expandIf___closed__6; -x_65 = l_Lean_Elab_Term_expandIf___closed__9; -x_66 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_66, 0, x_61); -lean_ctor_set(x_66, 1, x_64); -lean_ctor_set(x_66, 2, x_63); -lean_ctor_set(x_66, 3, x_65); -x_67 = l_Array_empty___closed__1; -x_68 = lean_array_push(x_67, x_66); -x_69 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_70 = lean_array_push(x_68, x_69); -x_71 = l_Lean_mkTermIdFromIdent___closed__2; -x_72 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_72, 0, x_71); -lean_ctor_set(x_72, 1, x_70); -x_73 = lean_array_push(x_67, x_72); -x_74 = lean_array_push(x_67, x_54); -x_75 = lean_array_push(x_67, x_52); -x_76 = lean_array_push(x_75, x_69); -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_71); -lean_ctor_set(x_77, 1, x_76); -x_78 = lean_array_push(x_67, x_77); -x_79 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_79, 0, x_42); -lean_ctor_set(x_79, 1, x_78); -x_80 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_81 = lean_array_push(x_80, x_79); -x_82 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_83 = lean_array_push(x_81, x_82); -lean_inc(x_83); -x_84 = lean_array_push(x_83, x_56); -x_85 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_85); -lean_ctor_set(x_86, 1, x_84); -x_87 = lean_array_push(x_67, x_86); -x_88 = lean_array_push(x_87, x_69); +x_64 = lean_box(0); +x_65 = l_Lean_Elab_Term_expandIf___closed__7; +x_66 = l_Lean_addMacroScope(x_63, x_65, x_62); +x_67 = l_Lean_Elab_Term_expandIf___closed__6; +x_68 = l_Lean_Elab_Term_expandIf___closed__9; +x_69 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_69, 0, x_64); +lean_ctor_set(x_69, 1, x_67); +lean_ctor_set(x_69, 2, x_66); +lean_ctor_set(x_69, 3, x_68); +x_70 = l_Array_empty___closed__1; +x_71 = lean_array_push(x_70, x_69); +x_72 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_73 = lean_array_push(x_71, x_72); +x_74 = l_Lean_mkTermIdFromIdent___closed__2; +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_74); +lean_ctor_set(x_75, 1, x_73); +x_76 = lean_array_push(x_70, x_75); +x_77 = lean_array_push(x_70, x_57); +x_78 = lean_array_push(x_70, x_55); +x_79 = lean_array_push(x_78, x_72); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_74); +lean_ctor_set(x_80, 1, x_79); +x_81 = lean_array_push(x_70, x_80); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_45); +lean_ctor_set(x_82, 1, x_81); +x_83 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_84 = lean_array_push(x_83, x_82); +x_85 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_86 = lean_array_push(x_84, x_85); +lean_inc(x_86); +x_87 = lean_array_push(x_86, x_59); +x_88 = l_Lean_Parser_Term_fun___elambda__1___closed__2; x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_42); -lean_ctor_set(x_89, 1, x_88); -x_90 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_91 = lean_array_push(x_90, x_89); -x_92 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_93 = lean_array_push(x_91, x_92); -x_94 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_95 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_93); -x_96 = lean_array_push(x_74, x_95); -x_97 = lean_array_push(x_83, x_58); +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_87); +x_90 = lean_array_push(x_70, x_89); +x_91 = lean_array_push(x_90, x_72); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_45); +lean_ctor_set(x_92, 1, x_91); +x_93 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_94 = lean_array_push(x_93, x_92); +x_95 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_96 = lean_array_push(x_94, x_95); +x_97 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; x_98 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_98, 0, x_85); -lean_ctor_set(x_98, 1, x_97); -x_99 = lean_array_push(x_67, x_98); -x_100 = lean_array_push(x_99, x_69); +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_96); +x_99 = lean_array_push(x_77, x_98); +x_100 = lean_array_push(x_86, x_61); x_101 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_101, 0, x_42); +lean_ctor_set(x_101, 0, x_88); lean_ctor_set(x_101, 1, x_100); -x_102 = lean_array_push(x_90, x_101); -x_103 = lean_array_push(x_102, x_92); +x_102 = lean_array_push(x_70, x_101); +x_103 = lean_array_push(x_102, x_72); x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_94); +lean_ctor_set(x_104, 0, x_45); lean_ctor_set(x_104, 1, x_103); -x_105 = lean_array_push(x_96, x_104); -x_106 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_106, 0, x_42); -lean_ctor_set(x_106, 1, x_105); -x_107 = lean_array_push(x_73, x_106); -x_108 = l_Lean_mkAppStx___closed__8; +x_105 = lean_array_push(x_93, x_104); +x_106 = lean_array_push(x_105, x_95); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_97); +lean_ctor_set(x_107, 1, x_106); +x_108 = lean_array_push(x_99, x_107); x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_108); -lean_ctor_set(x_109, 1, x_107); -x_110 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_110, 0, x_109); -return x_110; +lean_ctor_set(x_109, 0, x_45); +lean_ctor_set(x_109, 1, x_108); +x_110 = lean_array_push(x_76, x_109); +x_111 = l_Lean_mkAppStx___closed__8; +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_110); +x_113 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_3); +return x_113; } } } @@ -1161,7 +1181,7 @@ lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandIf___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandIf), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandIf), 3, 0); return x_1; } } @@ -1306,336 +1326,347 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_expandSubtype(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandSubtype(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_150; uint8_t x_151; -x_150 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; +uint8_t x_4; lean_object* x_154; uint8_t x_155; +x_154 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; lean_inc(x_1); -x_151 = l_Lean_Syntax_isOfKind(x_1, x_150); -if (x_151 == 0) +x_155 = l_Lean_Syntax_isOfKind(x_1, x_154); +if (x_155 == 0) { -uint8_t x_152; -x_152 = 0; -x_3 = x_152; -goto block_149; +uint8_t x_156; +x_156 = 0; +x_4 = x_156; +goto block_153; } else { -lean_object* x_153; lean_object* x_154; lean_object* x_155; uint8_t x_156; -x_153 = l_Lean_Syntax_getArgs(x_1); -x_154 = lean_array_get_size(x_153); -lean_dec(x_153); -x_155 = lean_unsigned_to_nat(6u); -x_156 = lean_nat_dec_eq(x_154, x_155); -lean_dec(x_154); -x_3 = x_156; -goto block_149; +lean_object* x_157; lean_object* x_158; lean_object* x_159; uint8_t x_160; +x_157 = l_Lean_Syntax_getArgs(x_1); +x_158 = lean_array_get_size(x_157); +lean_dec(x_157); +x_159 = lean_unsigned_to_nat(6u); +x_160 = lean_nat_dec_eq(x_158, x_159); +lean_dec(x_158); +x_4 = x_160; +goto block_153; } -block_149: +block_153: { -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) { -lean_object* x_5; +lean_object* x_6; lean_object* x_7; lean_dec(x_2); lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__1; -return x_5; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_66; uint8_t x_67; uint8_t x_68; -x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = lean_unsigned_to_nat(2u); +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_69; uint8_t x_70; uint8_t x_71; +x_8 = lean_unsigned_to_nat(1u); x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_66 = l_Lean_nullKind___closed__2; -lean_inc(x_9); -x_67 = l_Lean_Syntax_isOfKind(x_9, x_66); -if (x_67 == 0) +x_10 = lean_unsigned_to_nat(2u); +x_11 = l_Lean_Syntax_getArg(x_1, x_10); +x_69 = l_Lean_nullKind___closed__2; +lean_inc(x_11); +x_70 = l_Lean_Syntax_isOfKind(x_11, x_69); +if (x_70 == 0) { -uint8_t x_145; -x_145 = 0; -x_68 = x_145; -goto block_144; +uint8_t x_149; +x_149 = 0; +x_71 = x_149; +goto block_148; } else { -lean_object* x_146; lean_object* x_147; uint8_t x_148; -x_146 = l_Lean_Syntax_getArgs(x_9); -x_147 = lean_array_get_size(x_146); -lean_dec(x_146); -x_148 = lean_nat_dec_eq(x_147, x_6); -lean_dec(x_147); -x_68 = x_148; -goto block_144; +lean_object* x_150; lean_object* x_151; uint8_t x_152; +x_150 = l_Lean_Syntax_getArgs(x_11); +x_151 = lean_array_get_size(x_150); +lean_dec(x_150); +x_152 = lean_nat_dec_eq(x_151, x_8); +lean_dec(x_151); +x_71 = x_152; +goto block_148; } -block_65: +block_68: { -uint8_t x_11; -x_11 = l_coeDecidableEq(x_10); -if (x_11 == 0) +uint8_t x_13; +x_13 = l_coeDecidableEq(x_12); +if (x_13 == 0) { -lean_object* x_12; -lean_dec(x_7); +lean_object* x_14; lean_object* x_15; +lean_dec(x_9); lean_dec(x_2); lean_dec(x_1); -x_12 = l_Lean_Macro_throwUnsupported___closed__1; -return x_12; +x_14 = lean_box(1); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_3); +return x_15; } else { -lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; -x_13 = lean_unsigned_to_nat(4u); -x_14 = l_Lean_Syntax_getArg(x_1, x_13); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_16 = lean_unsigned_to_nat(4u); +x_17 = l_Lean_Syntax_getArg(x_1, x_16); lean_dec(x_1); -x_15 = lean_ctor_get(x_2, 1); -lean_inc(x_15); -x_16 = lean_ctor_get(x_2, 0); -lean_inc(x_16); +x_18 = lean_ctor_get(x_2, 1); +lean_inc(x_18); +x_19 = lean_ctor_get(x_2, 0); +lean_inc(x_19); lean_dec(x_2); -x_17 = lean_box(0); -x_18 = l_Lean_Elab_Term_expandSubtype___closed__4; -x_19 = l_Lean_addMacroScope(x_16, x_18, x_15); -x_20 = l_Lean_Elab_Term_expandSubtype___closed__3; -x_21 = l_Lean_Elab_Term_expandSubtype___closed__6; -x_22 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_22, 0, x_17); -lean_ctor_set(x_22, 1, x_20); -lean_ctor_set(x_22, 2, x_19); -lean_ctor_set(x_22, 3, x_21); -x_23 = l_Array_empty___closed__1; -x_24 = lean_array_push(x_23, x_22); -x_25 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_26 = lean_array_push(x_24, x_25); -x_27 = l_Lean_mkTermIdFromIdent___closed__2; -x_28 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_28, 0, x_27); -lean_ctor_set(x_28, 1, x_26); -x_29 = lean_array_push(x_23, x_28); -x_30 = lean_array_push(x_23, x_7); -x_31 = lean_array_push(x_30, x_25); -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_27); -lean_ctor_set(x_32, 1, x_31); -x_33 = lean_array_push(x_23, x_32); -x_34 = l_Lean_Elab_Term_expandSubtype___closed__12; -x_35 = lean_array_push(x_33, x_34); -x_36 = l_Lean_nullKind___closed__2; -x_37 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_37, 0, x_36); -lean_ctor_set(x_37, 1, x_35); -x_38 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_39 = lean_array_push(x_38, x_37); -x_40 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_41 = lean_array_push(x_39, x_40); -x_42 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_42); -lean_ctor_set(x_43, 1, x_41); -x_44 = lean_array_push(x_23, x_43); -x_45 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_45, 0, x_36); -lean_ctor_set(x_45, 1, x_44); -x_46 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_47 = lean_array_push(x_46, x_45); -x_48 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_49 = lean_array_push(x_47, x_48); -x_50 = lean_array_push(x_49, x_14); -x_51 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_50); -x_53 = lean_array_push(x_23, x_52); -x_54 = lean_array_push(x_53, x_25); +x_20 = lean_box(0); +x_21 = l_Lean_Elab_Term_expandSubtype___closed__4; +x_22 = l_Lean_addMacroScope(x_19, x_21, x_18); +x_23 = l_Lean_Elab_Term_expandSubtype___closed__3; +x_24 = l_Lean_Elab_Term_expandSubtype___closed__6; +x_25 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_25, 0, x_20); +lean_ctor_set(x_25, 1, x_23); +lean_ctor_set(x_25, 2, x_22); +lean_ctor_set(x_25, 3, x_24); +x_26 = l_Array_empty___closed__1; +x_27 = lean_array_push(x_26, x_25); +x_28 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_29 = lean_array_push(x_27, x_28); +x_30 = l_Lean_mkTermIdFromIdent___closed__2; +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +x_32 = lean_array_push(x_26, x_31); +x_33 = lean_array_push(x_26, x_9); +x_34 = lean_array_push(x_33, x_28); +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_30); +lean_ctor_set(x_35, 1, x_34); +x_36 = lean_array_push(x_26, x_35); +x_37 = l_Lean_Elab_Term_expandSubtype___closed__12; +x_38 = lean_array_push(x_36, x_37); +x_39 = l_Lean_nullKind___closed__2; +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_39); +lean_ctor_set(x_40, 1, x_38); +x_41 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_42 = lean_array_push(x_41, x_40); +x_43 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_44 = lean_array_push(x_42, x_43); +x_45 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = lean_array_push(x_26, x_46); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_39); +lean_ctor_set(x_48, 1, x_47); +x_49 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_50 = lean_array_push(x_49, x_48); +x_51 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_52 = lean_array_push(x_50, x_51); +x_53 = lean_array_push(x_52, x_17); +x_54 = l_Lean_Parser_Term_fun___elambda__1___closed__2; x_55 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_55, 0, x_36); -lean_ctor_set(x_55, 1, x_54); -x_56 = lean_array_push(x_38, x_55); -x_57 = lean_array_push(x_56, x_40); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_53); +x_56 = lean_array_push(x_26, x_55); +x_57 = lean_array_push(x_56, x_28); x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_42); +lean_ctor_set(x_58, 0, x_39); lean_ctor_set(x_58, 1, x_57); -x_59 = lean_array_push(x_23, x_58); -x_60 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_60, 0, x_36); -lean_ctor_set(x_60, 1, x_59); -x_61 = lean_array_push(x_29, x_60); -x_62 = l_Lean_mkAppStx___closed__8; +x_59 = lean_array_push(x_41, x_58); +x_60 = lean_array_push(x_59, x_43); +x_61 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_61, 0, x_45); +lean_ctor_set(x_61, 1, x_60); +x_62 = lean_array_push(x_26, x_61); x_63 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_61); -x_64 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_64, 0, x_63); -return x_64; +lean_ctor_set(x_63, 0, x_39); +lean_ctor_set(x_63, 1, x_62); +x_64 = lean_array_push(x_32, x_63); +x_65 = l_Lean_mkAppStx___closed__8; +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_3); +return x_67; } } -block_144: +block_148: { -uint8_t x_69; -x_69 = l_coeDecidableEq(x_68); -if (x_69 == 0) +uint8_t x_72; +x_72 = l_coeDecidableEq(x_71); +if (x_72 == 0) { -if (x_67 == 0) +if (x_70 == 0) { -uint8_t x_70; -lean_dec(x_9); -x_70 = 0; -x_10 = x_70; -goto block_65; +uint8_t x_73; +lean_dec(x_11); +x_73 = 0; +x_12 = x_73; +goto block_68; } else { -lean_object* x_71; lean_object* x_72; lean_object* x_73; uint8_t x_74; -x_71 = l_Lean_Syntax_getArgs(x_9); -lean_dec(x_9); -x_72 = lean_array_get_size(x_71); -lean_dec(x_71); -x_73 = lean_unsigned_to_nat(0u); -x_74 = lean_nat_dec_eq(x_72, x_73); -lean_dec(x_72); -x_10 = x_74; -goto block_65; +lean_object* x_74; lean_object* x_75; lean_object* x_76; uint8_t x_77; +x_74 = l_Lean_Syntax_getArgs(x_11); +lean_dec(x_11); +x_75 = lean_array_get_size(x_74); +lean_dec(x_74); +x_76 = lean_unsigned_to_nat(0u); +x_77 = lean_nat_dec_eq(x_75, x_76); +lean_dec(x_75); +x_12 = x_77; +goto block_68; } } else { -lean_object* x_75; lean_object* x_76; uint8_t x_77; lean_object* x_138; uint8_t x_139; -x_75 = lean_unsigned_to_nat(0u); -x_76 = l_Lean_Syntax_getArg(x_9, x_75); -lean_dec(x_9); -x_138 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; -lean_inc(x_76); -x_139 = l_Lean_Syntax_isOfKind(x_76, x_138); -if (x_139 == 0) +lean_object* x_78; lean_object* x_79; uint8_t x_80; lean_object* x_142; uint8_t x_143; +x_78 = lean_unsigned_to_nat(0u); +x_79 = l_Lean_Syntax_getArg(x_11, x_78); +lean_dec(x_11); +x_142 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; +lean_inc(x_79); +x_143 = l_Lean_Syntax_isOfKind(x_79, x_142); +if (x_143 == 0) { -uint8_t x_140; -x_140 = 0; -x_77 = x_140; -goto block_137; +uint8_t x_144; +x_144 = 0; +x_80 = x_144; +goto block_141; } else { -lean_object* x_141; lean_object* x_142; uint8_t x_143; -x_141 = l_Lean_Syntax_getArgs(x_76); -x_142 = lean_array_get_size(x_141); -lean_dec(x_141); -x_143 = lean_nat_dec_eq(x_142, x_8); -lean_dec(x_142); -x_77 = x_143; -goto block_137; +lean_object* x_145; lean_object* x_146; uint8_t x_147; +x_145 = l_Lean_Syntax_getArgs(x_79); +x_146 = lean_array_get_size(x_145); +lean_dec(x_145); +x_147 = lean_nat_dec_eq(x_146, x_10); +lean_dec(x_146); +x_80 = x_147; +goto block_141; } -block_137: +block_141: { -uint8_t x_78; -x_78 = l_coeDecidableEq(x_77); -if (x_78 == 0) +uint8_t x_81; +x_81 = l_coeDecidableEq(x_80); +if (x_81 == 0) { -lean_object* x_79; -lean_dec(x_76); -lean_dec(x_7); +lean_object* x_82; lean_object* x_83; +lean_dec(x_79); +lean_dec(x_9); lean_dec(x_2); lean_dec(x_1); -x_79 = l_Lean_Macro_throwUnsupported___closed__1; -return x_79; +x_82 = lean_box(1); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_82); +lean_ctor_set(x_83, 1, x_3); +return x_83; } else { -lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; -x_80 = l_Lean_Syntax_getArg(x_76, x_6); -lean_dec(x_76); -x_81 = lean_unsigned_to_nat(4u); -x_82 = l_Lean_Syntax_getArg(x_1, x_81); +lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_84 = l_Lean_Syntax_getArg(x_79, x_8); +lean_dec(x_79); +x_85 = lean_unsigned_to_nat(4u); +x_86 = l_Lean_Syntax_getArg(x_1, x_85); lean_dec(x_1); -x_83 = lean_ctor_get(x_2, 1); -lean_inc(x_83); -x_84 = lean_ctor_get(x_2, 0); -lean_inc(x_84); +x_87 = lean_ctor_get(x_2, 1); +lean_inc(x_87); +x_88 = lean_ctor_get(x_2, 0); +lean_inc(x_88); lean_dec(x_2); -x_85 = lean_box(0); -x_86 = l_Lean_Elab_Term_expandSubtype___closed__4; -x_87 = l_Lean_addMacroScope(x_84, x_86, x_83); -x_88 = l_Lean_Elab_Term_expandSubtype___closed__3; -x_89 = l_Lean_Elab_Term_expandSubtype___closed__6; -x_90 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_90, 0, x_85); -lean_ctor_set(x_90, 1, x_88); -lean_ctor_set(x_90, 2, x_87); -lean_ctor_set(x_90, 3, x_89); -x_91 = l_Array_empty___closed__1; -x_92 = lean_array_push(x_91, x_90); -x_93 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_94 = lean_array_push(x_92, x_93); -x_95 = l_Lean_mkTermIdFromIdent___closed__2; -x_96 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_96, 0, x_95); -lean_ctor_set(x_96, 1, x_94); -x_97 = lean_array_push(x_91, x_96); -x_98 = lean_array_push(x_91, x_7); -x_99 = lean_array_push(x_98, x_93); +x_89 = lean_box(0); +x_90 = l_Lean_Elab_Term_expandSubtype___closed__4; +x_91 = l_Lean_addMacroScope(x_88, x_90, x_87); +x_92 = l_Lean_Elab_Term_expandSubtype___closed__3; +x_93 = l_Lean_Elab_Term_expandSubtype___closed__6; +x_94 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_94, 0, x_89); +lean_ctor_set(x_94, 1, x_92); +lean_ctor_set(x_94, 2, x_91); +lean_ctor_set(x_94, 3, x_93); +x_95 = l_Array_empty___closed__1; +x_96 = lean_array_push(x_95, x_94); +x_97 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_98 = lean_array_push(x_96, x_97); +x_99 = l_Lean_mkTermIdFromIdent___closed__2; x_100 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_100, 0, x_95); -lean_ctor_set(x_100, 1, x_99); -x_101 = lean_array_push(x_91, x_100); -x_102 = l_Lean_Elab_Term_expandSubtype___closed__8; -x_103 = lean_array_push(x_102, x_80); -x_104 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_105 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_105, 0, x_104); -lean_ctor_set(x_105, 1, x_103); -x_106 = lean_array_push(x_91, x_105); -x_107 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_107, 0, x_66); -lean_ctor_set(x_107, 1, x_106); -x_108 = lean_array_push(x_101, x_107); +lean_ctor_set(x_100, 0, x_99); +lean_ctor_set(x_100, 1, x_98); +x_101 = lean_array_push(x_95, x_100); +x_102 = lean_array_push(x_95, x_9); +x_103 = lean_array_push(x_102, x_97); +x_104 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_104, 0, x_99); +lean_ctor_set(x_104, 1, x_103); +x_105 = lean_array_push(x_95, x_104); +x_106 = l_Lean_Elab_Term_expandSubtype___closed__8; +x_107 = lean_array_push(x_106, x_84); +x_108 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_66); -lean_ctor_set(x_109, 1, x_108); -x_110 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_111 = lean_array_push(x_110, x_109); -x_112 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_113 = lean_array_push(x_111, x_112); -x_114 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_115, 0, x_114); -lean_ctor_set(x_115, 1, x_113); -x_116 = lean_array_push(x_91, x_115); -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_66); -lean_ctor_set(x_117, 1, x_116); -x_118 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_119 = lean_array_push(x_118, x_117); -x_120 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_121 = lean_array_push(x_119, x_120); -x_122 = lean_array_push(x_121, x_82); -x_123 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_124 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_124, 0, x_123); -lean_ctor_set(x_124, 1, x_122); -x_125 = lean_array_push(x_91, x_124); -x_126 = lean_array_push(x_125, x_93); -x_127 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_127, 0, x_66); -lean_ctor_set(x_127, 1, x_126); -x_128 = lean_array_push(x_110, x_127); -x_129 = lean_array_push(x_128, x_112); -x_130 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_130, 0, x_114); -lean_ctor_set(x_130, 1, x_129); -x_131 = lean_array_push(x_91, x_130); -x_132 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_132, 0, x_66); -lean_ctor_set(x_132, 1, x_131); -x_133 = lean_array_push(x_97, x_132); -x_134 = l_Lean_mkAppStx___closed__8; -x_135 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_135, 0, x_134); -lean_ctor_set(x_135, 1, x_133); -x_136 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_136, 0, x_135); -return x_136; +lean_ctor_set(x_109, 0, x_108); +lean_ctor_set(x_109, 1, x_107); +x_110 = lean_array_push(x_95, x_109); +x_111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_111, 0, x_69); +lean_ctor_set(x_111, 1, x_110); +x_112 = lean_array_push(x_105, x_111); +x_113 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_113, 0, x_69); +lean_ctor_set(x_113, 1, x_112); +x_114 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_115 = lean_array_push(x_114, x_113); +x_116 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_117 = lean_array_push(x_115, x_116); +x_118 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_117); +x_120 = lean_array_push(x_95, x_119); +x_121 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_121, 0, x_69); +lean_ctor_set(x_121, 1, x_120); +x_122 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_123 = lean_array_push(x_122, x_121); +x_124 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_125 = lean_array_push(x_123, x_124); +x_126 = lean_array_push(x_125, x_86); +x_127 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_128 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_128, 0, x_127); +lean_ctor_set(x_128, 1, x_126); +x_129 = lean_array_push(x_95, x_128); +x_130 = lean_array_push(x_129, x_97); +x_131 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_131, 0, x_69); +lean_ctor_set(x_131, 1, x_130); +x_132 = lean_array_push(x_114, x_131); +x_133 = lean_array_push(x_132, x_116); +x_134 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_134, 0, x_118); +lean_ctor_set(x_134, 1, x_133); +x_135 = lean_array_push(x_95, x_134); +x_136 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_136, 0, x_69); +lean_ctor_set(x_136, 1, x_135); +x_137 = lean_array_push(x_101, x_136); +x_138 = l_Lean_mkAppStx___closed__8; +x_139 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_139, 0, x_138); +lean_ctor_set(x_139, 1, x_137); +x_140 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_140, 0, x_139); +lean_ctor_set(x_140, 1, x_3); +return x_140; } } } @@ -1648,7 +1679,7 @@ lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandSubtype___closed__1( _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandSubtype), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandSubtype), 3, 0); return x_1; } } @@ -2313,175 +2344,182 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_expandShow(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandShow(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_64; uint8_t x_65; -x_64 = l_Lean_Parser_Term_show___elambda__1___closed__2; +uint8_t x_4; lean_object* x_67; uint8_t x_68; +x_67 = l_Lean_Parser_Term_show___elambda__1___closed__2; lean_inc(x_1); -x_65 = l_Lean_Syntax_isOfKind(x_1, x_64); -if (x_65 == 0) +x_68 = l_Lean_Syntax_isOfKind(x_1, x_67); +if (x_68 == 0) { -uint8_t x_66; -x_66 = 0; -x_3 = x_66; -goto block_63; +uint8_t x_69; +x_69 = 0; +x_4 = x_69; +goto block_66; } else { -lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; -x_67 = l_Lean_Syntax_getArgs(x_1); -x_68 = lean_array_get_size(x_67); -lean_dec(x_67); -x_69 = lean_unsigned_to_nat(3u); -x_70 = lean_nat_dec_eq(x_68, x_69); -lean_dec(x_68); -x_3 = x_70; -goto block_63; +lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73; +x_70 = l_Lean_Syntax_getArgs(x_1); +x_71 = lean_array_get_size(x_70); +lean_dec(x_70); +x_72 = lean_unsigned_to_nat(3u); +x_73 = lean_nat_dec_eq(x_71, x_72); +lean_dec(x_71); +x_4 = x_73; +goto block_66; } -block_63: +block_66: { -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) { -lean_object* x_5; +lean_object* x_6; lean_object* x_7; lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__1; -return x_5; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_57; uint8_t x_58; -x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = lean_unsigned_to_nat(2u); +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_60; uint8_t x_61; +x_8 = lean_unsigned_to_nat(1u); x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_57 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; -lean_inc(x_9); -x_58 = l_Lean_Syntax_isOfKind(x_9, x_57); -if (x_58 == 0) +x_10 = lean_unsigned_to_nat(2u); +x_11 = l_Lean_Syntax_getArg(x_1, x_10); +x_60 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; +lean_inc(x_11); +x_61 = l_Lean_Syntax_isOfKind(x_11, x_60); +if (x_61 == 0) { -uint8_t x_59; -x_59 = 0; -x_10 = x_59; -goto block_56; +uint8_t x_62; +x_62 = 0; +x_12 = x_62; +goto block_59; } else { -lean_object* x_60; lean_object* x_61; uint8_t x_62; -x_60 = l_Lean_Syntax_getArgs(x_9); -x_61 = lean_array_get_size(x_60); -lean_dec(x_60); -x_62 = lean_nat_dec_eq(x_61, x_8); -lean_dec(x_61); -x_10 = x_62; -goto block_56; +lean_object* x_63; lean_object* x_64; uint8_t x_65; +x_63 = l_Lean_Syntax_getArgs(x_11); +x_64 = lean_array_get_size(x_63); +lean_dec(x_63); +x_65 = lean_nat_dec_eq(x_64, x_10); +lean_dec(x_64); +x_12 = x_65; +goto block_59; } -block_56: +block_59: { -uint8_t x_11; -x_11 = l_coeDecidableEq(x_10); -if (x_11 == 0) +uint8_t x_13; +x_13 = l_coeDecidableEq(x_12); +if (x_13 == 0) { -lean_object* x_12; +lean_object* x_14; lean_object* x_15; +lean_dec(x_11); lean_dec(x_9); -lean_dec(x_7); lean_dec(x_1); -x_12 = l_Lean_Macro_throwUnsupported___closed__1; -return x_12; +x_14 = lean_box(1); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_3); +return x_15; } else { -lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_13 = l_Lean_Syntax_getArg(x_9, x_6); -lean_dec(x_9); -x_14 = l_Lean_Elab_Term_expandShow___closed__2; -x_15 = l_Lean_mkTermIdFrom(x_1, x_14); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_16 = l_Lean_Syntax_getArg(x_11, x_8); +lean_dec(x_11); +x_17 = l_Lean_Elab_Term_expandShow___closed__2; +x_18 = l_Lean_mkTermIdFrom(x_1, x_17); lean_dec(x_1); -x_16 = l_Array_empty___closed__1; -lean_inc(x_15); -x_17 = lean_array_push(x_16, x_15); -x_18 = l_Lean_Elab_Term_expandSubtype___closed__8; -x_19 = lean_array_push(x_18, x_7); -x_20 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_20); -lean_ctor_set(x_21, 1, x_19); -x_22 = lean_array_push(x_16, x_21); -x_23 = l_Lean_nullKind___closed__2; +x_19 = l_Array_empty___closed__1; +lean_inc(x_18); +x_20 = lean_array_push(x_19, x_18); +x_21 = l_Lean_Elab_Term_expandSubtype___closed__8; +x_22 = lean_array_push(x_21, x_9); +x_23 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; x_24 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_24, 0, x_23); lean_ctor_set(x_24, 1, x_22); -x_25 = lean_array_push(x_17, x_24); -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_23); -lean_ctor_set(x_26, 1, x_25); -x_27 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_28 = lean_array_push(x_27, x_26); -x_29 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_30 = lean_array_push(x_28, x_29); -x_31 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_30); -x_33 = lean_array_push(x_16, x_32); -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_23); -lean_ctor_set(x_34, 1, x_33); -x_35 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_36 = lean_array_push(x_35, x_34); -x_37 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_38 = lean_array_push(x_36, x_37); -x_39 = lean_array_push(x_38, x_15); -x_40 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_39); -x_42 = lean_array_push(x_16, x_41); -x_43 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_44 = lean_array_push(x_42, x_43); -x_45 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_45, 0, x_23); -lean_ctor_set(x_45, 1, x_44); -x_46 = lean_array_push(x_27, x_45); -x_47 = lean_array_push(x_46, x_29); +x_25 = lean_array_push(x_19, x_24); +x_26 = l_Lean_nullKind___closed__2; +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_25); +x_28 = lean_array_push(x_20, x_27); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_26); +lean_ctor_set(x_29, 1, x_28); +x_30 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_31 = lean_array_push(x_30, x_29); +x_32 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_33 = lean_array_push(x_31, x_32); +x_34 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_33); +x_36 = lean_array_push(x_19, x_35); +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_26); +lean_ctor_set(x_37, 1, x_36); +x_38 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_39 = lean_array_push(x_38, x_37); +x_40 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_41 = lean_array_push(x_39, x_40); +x_42 = lean_array_push(x_41, x_18); +x_43 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_array_push(x_19, x_44); +x_46 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_47 = lean_array_push(x_45, x_46); x_48 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_48, 0, x_31); +lean_ctor_set(x_48, 0, x_26); lean_ctor_set(x_48, 1, x_47); -x_49 = lean_array_push(x_16, x_48); -x_50 = lean_array_push(x_16, x_13); +x_49 = lean_array_push(x_30, x_48); +x_50 = lean_array_push(x_49, x_32); x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_23); +lean_ctor_set(x_51, 0, x_34); lean_ctor_set(x_51, 1, x_50); -x_52 = lean_array_push(x_49, x_51); -x_53 = l_Lean_mkAppStx___closed__8; +x_52 = lean_array_push(x_19, x_51); +x_53 = lean_array_push(x_19, x_16); x_54 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_54, 0, x_53); -lean_ctor_set(x_54, 1, x_52); -x_55 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_55, 0, x_54); -return x_55; +lean_ctor_set(x_54, 0, x_26); +lean_ctor_set(x_54, 1, x_53); +x_55 = lean_array_push(x_52, x_54); +x_56 = l_Lean_mkAppStx___closed__8; +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_55); +x_58 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_3); +return x_58; } } } } } } -lean_object* l_Lean_Elab_Term_expandShow___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandShow___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_expandShow(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_expandShow(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandShow___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandShow___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandShow___boxed), 3, 0); return x_1; } } @@ -2495,555 +2533,571 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Term_expandHave(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandHave(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_258; uint8_t x_259; -x_258 = l_Lean_Parser_Term_have___elambda__1___closed__2; +uint8_t x_4; lean_object* x_263; uint8_t x_264; +x_263 = l_Lean_Parser_Term_have___elambda__1___closed__2; lean_inc(x_1); -x_259 = l_Lean_Syntax_isOfKind(x_1, x_258); -if (x_259 == 0) +x_264 = l_Lean_Syntax_isOfKind(x_1, x_263); +if (x_264 == 0) { -uint8_t x_260; -x_260 = 0; -x_3 = x_260; -goto block_257; +uint8_t x_265; +x_265 = 0; +x_4 = x_265; +goto block_262; } else { -lean_object* x_261; lean_object* x_262; lean_object* x_263; uint8_t x_264; -x_261 = l_Lean_Syntax_getArgs(x_1); -x_262 = lean_array_get_size(x_261); -lean_dec(x_261); -x_263 = lean_unsigned_to_nat(6u); -x_264 = lean_nat_dec_eq(x_262, x_263); -lean_dec(x_262); -x_3 = x_264; -goto block_257; +lean_object* x_266; lean_object* x_267; lean_object* x_268; uint8_t x_269; +x_266 = l_Lean_Syntax_getArgs(x_1); +x_267 = lean_array_get_size(x_266); +lean_dec(x_266); +x_268 = lean_unsigned_to_nat(6u); +x_269 = lean_nat_dec_eq(x_267, x_268); +lean_dec(x_267); +x_4 = x_269; +goto block_262; } -block_257: +block_262: { -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) { -lean_object* x_5; +lean_object* x_6; lean_object* x_7; lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__1; -return x_5; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_131; uint8_t x_132; uint8_t x_133; -x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_131 = l_Lean_nullKind___closed__2; -lean_inc(x_7); -x_132 = l_Lean_Syntax_isOfKind(x_7, x_131); -if (x_132 == 0) +lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_135; uint8_t x_136; uint8_t x_137; +x_8 = lean_unsigned_to_nat(1u); +x_9 = l_Lean_Syntax_getArg(x_1, x_8); +x_135 = l_Lean_nullKind___closed__2; +lean_inc(x_9); +x_136 = l_Lean_Syntax_isOfKind(x_9, x_135); +if (x_136 == 0) +{ +uint8_t x_257; +x_257 = 0; +x_137 = x_257; +goto block_256; +} +else +{ +lean_object* x_258; lean_object* x_259; lean_object* x_260; uint8_t x_261; +x_258 = l_Lean_Syntax_getArgs(x_9); +x_259 = lean_array_get_size(x_258); +lean_dec(x_258); +x_260 = lean_unsigned_to_nat(0u); +x_261 = lean_nat_dec_eq(x_259, x_260); +lean_dec(x_259); +x_137 = x_261; +goto block_256; +} +block_134: +{ +uint8_t x_11; +x_11 = l_coeDecidableEq(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_dec(x_9); +lean_dec(x_1); +x_12 = lean_box(1); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_3); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; uint8_t x_72; lean_object* x_128; uint8_t x_129; +x_14 = lean_unsigned_to_nat(0u); +x_15 = l_Lean_Syntax_getArg(x_9, x_14); +lean_dec(x_9); +x_16 = lean_unsigned_to_nat(2u); +x_17 = l_Lean_Syntax_getArg(x_1, x_16); +x_18 = lean_unsigned_to_nat(3u); +x_19 = l_Lean_Syntax_getArg(x_1, x_18); +x_128 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; +lean_inc(x_19); +x_129 = l_Lean_Syntax_isOfKind(x_19, x_128); +if (x_129 == 0) +{ +uint8_t x_130; +x_130 = 0; +x_72 = x_130; +goto block_127; +} +else +{ +lean_object* x_131; lean_object* x_132; uint8_t x_133; +x_131 = l_Lean_Syntax_getArgs(x_19); +x_132 = lean_array_get_size(x_131); +lean_dec(x_131); +x_133 = lean_nat_dec_eq(x_132, x_16); +lean_dec(x_132); +x_72 = x_133; +goto block_127; +} +block_71: +{ +uint8_t x_21; +x_21 = l_coeDecidableEq(x_20); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; +lean_dec(x_19); +lean_dec(x_17); +lean_dec(x_15); +lean_dec(x_1); +x_22 = lean_box(1); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_3); +return x_23; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_24 = l_Lean_Syntax_getArg(x_19, x_8); +lean_dec(x_19); +x_25 = lean_unsigned_to_nat(5u); +x_26 = l_Lean_Syntax_getArg(x_1, x_25); +lean_dec(x_1); +x_27 = l_Array_empty___closed__1; +x_28 = lean_array_push(x_27, x_15); +x_29 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_30 = lean_array_push(x_28, x_29); +x_31 = l_Lean_mkTermIdFromIdent___closed__2; +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_30); +x_33 = lean_array_push(x_27, x_32); +x_34 = l_Lean_Elab_Term_expandSubtype___closed__8; +x_35 = lean_array_push(x_34, x_17); +x_36 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_35); +x_38 = lean_array_push(x_27, x_37); +x_39 = l_Lean_nullKind___closed__2; +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_39); +lean_ctor_set(x_40, 1, x_38); +x_41 = lean_array_push(x_33, x_40); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_39); +lean_ctor_set(x_42, 1, x_41); +x_43 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_44 = lean_array_push(x_43, x_42); +x_45 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_46 = lean_array_push(x_44, x_45); +x_47 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_46); +x_49 = lean_array_push(x_27, x_48); +x_50 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_50, 0, x_39); +lean_ctor_set(x_50, 1, x_49); +x_51 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_52 = lean_array_push(x_51, x_50); +x_53 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_54 = lean_array_push(x_52, x_53); +x_55 = lean_array_push(x_54, x_26); +x_56 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_55); +x_58 = lean_array_push(x_27, x_57); +x_59 = lean_array_push(x_58, x_29); +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_39); +lean_ctor_set(x_60, 1, x_59); +x_61 = lean_array_push(x_43, x_60); +x_62 = lean_array_push(x_61, x_45); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_47); +lean_ctor_set(x_63, 1, x_62); +x_64 = lean_array_push(x_27, x_63); +x_65 = lean_array_push(x_27, x_24); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_39); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_array_push(x_64, x_66); +x_68 = l_Lean_mkAppStx___closed__8; +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_67); +x_70 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_3); +return x_70; +} +} +block_127: +{ +uint8_t x_73; +x_73 = l_coeDecidableEq(x_72); +if (x_73 == 0) +{ +lean_object* x_74; uint8_t x_75; +x_74 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; +lean_inc(x_19); +x_75 = l_Lean_Syntax_isOfKind(x_19, x_74); +if (x_75 == 0) +{ +uint8_t x_76; +x_76 = 0; +x_20 = x_76; +goto block_71; +} +else +{ +lean_object* x_77; lean_object* x_78; uint8_t x_79; +x_77 = l_Lean_Syntax_getArgs(x_19); +x_78 = lean_array_get_size(x_77); +lean_dec(x_77); +x_79 = lean_nat_dec_eq(x_78, x_16); +lean_dec(x_78); +x_20 = x_79; +goto block_71; +} +} +else +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_80 = l_Lean_Syntax_getArg(x_19, x_8); +lean_dec(x_19); +x_81 = lean_unsigned_to_nat(5u); +x_82 = l_Lean_Syntax_getArg(x_1, x_81); +lean_dec(x_1); +x_83 = l_Array_empty___closed__1; +x_84 = lean_array_push(x_83, x_15); +x_85 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_86 = lean_array_push(x_84, x_85); +x_87 = l_Lean_mkTermIdFromIdent___closed__2; +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_86); +x_89 = lean_array_push(x_83, x_88); +x_90 = l_Lean_Elab_Term_expandSubtype___closed__8; +x_91 = lean_array_push(x_90, x_17); +x_92 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_91); +x_94 = lean_array_push(x_83, x_93); +x_95 = l_Lean_nullKind___closed__2; +x_96 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_96, 0, x_95); +lean_ctor_set(x_96, 1, x_94); +x_97 = lean_array_push(x_89, x_96); +x_98 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_98, 0, x_95); +lean_ctor_set(x_98, 1, x_97); +x_99 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_100 = lean_array_push(x_99, x_98); +x_101 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_102 = lean_array_push(x_100, x_101); +x_103 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_104 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_102); +x_105 = lean_array_push(x_83, x_104); +x_106 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_106, 0, x_95); +lean_ctor_set(x_106, 1, x_105); +x_107 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_108 = lean_array_push(x_107, x_106); +x_109 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_110 = lean_array_push(x_108, x_109); +x_111 = lean_array_push(x_110, x_82); +x_112 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_113 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_111); +x_114 = lean_array_push(x_83, x_113); +x_115 = lean_array_push(x_114, x_85); +x_116 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_116, 0, x_95); +lean_ctor_set(x_116, 1, x_115); +x_117 = lean_array_push(x_99, x_116); +x_118 = lean_array_push(x_117, x_101); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_103); +lean_ctor_set(x_119, 1, x_118); +x_120 = lean_array_push(x_83, x_119); +x_121 = lean_array_push(x_83, x_80); +x_122 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_122, 0, x_95); +lean_ctor_set(x_122, 1, x_121); +x_123 = lean_array_push(x_120, x_122); +x_124 = l_Lean_mkAppStx___closed__8; +x_125 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_125, 0, x_124); +lean_ctor_set(x_125, 1, x_123); +x_126 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_126, 0, x_125); +lean_ctor_set(x_126, 1, x_3); +return x_126; +} +} +} +} +block_256: +{ +uint8_t x_138; +x_138 = l_coeDecidableEq(x_137); +if (x_138 == 0) +{ +if (x_136 == 0) +{ +uint8_t x_139; +x_139 = 0; +x_10 = x_139; +goto block_134; +} +else +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; uint8_t x_143; +x_140 = l_Lean_Syntax_getArgs(x_9); +x_141 = lean_array_get_size(x_140); +lean_dec(x_140); +x_142 = lean_unsigned_to_nat(2u); +x_143 = lean_nat_dec_eq(x_141, x_142); +lean_dec(x_141); +x_10 = x_143; +goto block_134; +} +} +else +{ +lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; uint8_t x_148; uint8_t x_197; lean_object* x_250; uint8_t x_251; +lean_dec(x_9); +x_144 = lean_unsigned_to_nat(2u); +x_145 = l_Lean_Syntax_getArg(x_1, x_144); +x_146 = lean_unsigned_to_nat(3u); +x_147 = l_Lean_Syntax_getArg(x_1, x_146); +x_250 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; +lean_inc(x_147); +x_251 = l_Lean_Syntax_isOfKind(x_147, x_250); +if (x_251 == 0) { uint8_t x_252; x_252 = 0; -x_133 = x_252; -goto block_251; +x_197 = x_252; +goto block_249; } else { -lean_object* x_253; lean_object* x_254; lean_object* x_255; uint8_t x_256; -x_253 = l_Lean_Syntax_getArgs(x_7); +lean_object* x_253; lean_object* x_254; uint8_t x_255; +x_253 = l_Lean_Syntax_getArgs(x_147); x_254 = lean_array_get_size(x_253); lean_dec(x_253); -x_255 = lean_unsigned_to_nat(0u); -x_256 = lean_nat_dec_eq(x_254, x_255); +x_255 = lean_nat_dec_eq(x_254, x_144); lean_dec(x_254); -x_133 = x_256; -goto block_251; +x_197 = x_255; +goto block_249; } -block_130: +block_196: { -uint8_t x_9; -x_9 = l_coeDecidableEq(x_8); -if (x_9 == 0) +uint8_t x_149; +x_149 = l_coeDecidableEq(x_148); +if (x_149 == 0) { -lean_object* x_10; -lean_dec(x_7); +lean_object* x_150; lean_object* x_151; +lean_dec(x_147); +lean_dec(x_145); lean_dec(x_1); -x_10 = l_Lean_Macro_throwUnsupported___closed__1; -return x_10; +x_150 = lean_box(1); +x_151 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_151, 0, x_150); +lean_ctor_set(x_151, 1, x_3); +return x_151; } else { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; uint8_t x_68; lean_object* x_124; uint8_t x_125; -x_11 = lean_unsigned_to_nat(0u); -x_12 = l_Lean_Syntax_getArg(x_7, x_11); -lean_dec(x_7); -x_13 = lean_unsigned_to_nat(2u); -x_14 = l_Lean_Syntax_getArg(x_1, x_13); -x_15 = lean_unsigned_to_nat(3u); -x_16 = l_Lean_Syntax_getArg(x_1, x_15); -x_124 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; -lean_inc(x_16); -x_125 = l_Lean_Syntax_isOfKind(x_16, x_124); -if (x_125 == 0) -{ -uint8_t x_126; -x_126 = 0; -x_68 = x_126; -goto block_123; -} -else -{ -lean_object* x_127; lean_object* x_128; uint8_t x_129; -x_127 = l_Lean_Syntax_getArgs(x_16); -x_128 = lean_array_get_size(x_127); -lean_dec(x_127); -x_129 = lean_nat_dec_eq(x_128, x_13); -lean_dec(x_128); -x_68 = x_129; -goto block_123; -} -block_67: -{ -uint8_t x_18; -x_18 = l_coeDecidableEq(x_17); -if (x_18 == 0) -{ -lean_object* x_19; -lean_dec(x_16); -lean_dec(x_14); -lean_dec(x_12); +lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; +x_152 = l_Lean_Syntax_getArg(x_147, x_8); +lean_dec(x_147); +x_153 = lean_unsigned_to_nat(5u); +x_154 = l_Lean_Syntax_getArg(x_1, x_153); +x_155 = l_Lean_Elab_Term_expandShow___closed__2; +x_156 = l_Lean_mkTermIdFrom(x_1, x_155); lean_dec(x_1); -x_19 = l_Lean_Macro_throwUnsupported___closed__1; -return x_19; +x_157 = l_Array_empty___closed__1; +x_158 = lean_array_push(x_157, x_156); +x_159 = l_Lean_Elab_Term_expandSubtype___closed__8; +x_160 = lean_array_push(x_159, x_145); +x_161 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_162 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_162, 0, x_161); +lean_ctor_set(x_162, 1, x_160); +x_163 = lean_array_push(x_157, x_162); +x_164 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_164, 0, x_135); +lean_ctor_set(x_164, 1, x_163); +x_165 = lean_array_push(x_158, x_164); +x_166 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_166, 0, x_135); +lean_ctor_set(x_166, 1, x_165); +x_167 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_168 = lean_array_push(x_167, x_166); +x_169 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_170 = lean_array_push(x_168, x_169); +x_171 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_172 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_172, 0, x_171); +lean_ctor_set(x_172, 1, x_170); +x_173 = lean_array_push(x_157, x_172); +x_174 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_174, 0, x_135); +lean_ctor_set(x_174, 1, x_173); +x_175 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_176 = lean_array_push(x_175, x_174); +x_177 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_178 = lean_array_push(x_176, x_177); +x_179 = lean_array_push(x_178, x_154); +x_180 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_181 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_181, 0, x_180); +lean_ctor_set(x_181, 1, x_179); +x_182 = lean_array_push(x_157, x_181); +x_183 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_184 = lean_array_push(x_182, x_183); +x_185 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_185, 0, x_135); +lean_ctor_set(x_185, 1, x_184); +x_186 = lean_array_push(x_167, x_185); +x_187 = lean_array_push(x_186, x_169); +x_188 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_188, 0, x_171); +lean_ctor_set(x_188, 1, x_187); +x_189 = lean_array_push(x_157, x_188); +x_190 = lean_array_push(x_157, x_152); +x_191 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_191, 0, x_135); +lean_ctor_set(x_191, 1, x_190); +x_192 = lean_array_push(x_189, x_191); +x_193 = l_Lean_mkAppStx___closed__8; +x_194 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_194, 0, x_193); +lean_ctor_set(x_194, 1, x_192); +x_195 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_195, 0, x_194); +lean_ctor_set(x_195, 1, x_3); +return x_195; +} +} +block_249: +{ +uint8_t x_198; +x_198 = l_coeDecidableEq(x_197); +if (x_198 == 0) +{ +lean_object* x_199; uint8_t x_200; +x_199 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; +lean_inc(x_147); +x_200 = l_Lean_Syntax_isOfKind(x_147, x_199); +if (x_200 == 0) +{ +uint8_t x_201; +x_201 = 0; +x_148 = x_201; +goto block_196; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_20 = l_Lean_Syntax_getArg(x_16, x_6); -lean_dec(x_16); -x_21 = lean_unsigned_to_nat(5u); -x_22 = l_Lean_Syntax_getArg(x_1, x_21); +lean_object* x_202; lean_object* x_203; uint8_t x_204; +x_202 = l_Lean_Syntax_getArgs(x_147); +x_203 = lean_array_get_size(x_202); +lean_dec(x_202); +x_204 = lean_nat_dec_eq(x_203, x_144); +lean_dec(x_203); +x_148 = x_204; +goto block_196; +} +} +else +{ +lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; +x_205 = l_Lean_Syntax_getArg(x_147, x_8); +lean_dec(x_147); +x_206 = lean_unsigned_to_nat(5u); +x_207 = l_Lean_Syntax_getArg(x_1, x_206); +x_208 = l_Lean_Elab_Term_expandShow___closed__2; +x_209 = l_Lean_mkTermIdFrom(x_1, x_208); lean_dec(x_1); -x_23 = l_Array_empty___closed__1; -x_24 = lean_array_push(x_23, x_12); -x_25 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_26 = lean_array_push(x_24, x_25); -x_27 = l_Lean_mkTermIdFromIdent___closed__2; -x_28 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_28, 0, x_27); -lean_ctor_set(x_28, 1, x_26); -x_29 = lean_array_push(x_23, x_28); -x_30 = l_Lean_Elab_Term_expandSubtype___closed__8; -x_31 = lean_array_push(x_30, x_14); -x_32 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set(x_33, 1, x_31); -x_34 = lean_array_push(x_23, x_33); -x_35 = l_Lean_nullKind___closed__2; -x_36 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -x_37 = lean_array_push(x_29, x_36); -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_35); -lean_ctor_set(x_38, 1, x_37); -x_39 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_40 = lean_array_push(x_39, x_38); -x_41 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_42 = lean_array_push(x_40, x_41); -x_43 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_44 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_44, 0, x_43); -lean_ctor_set(x_44, 1, x_42); -x_45 = lean_array_push(x_23, x_44); -x_46 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_46, 0, x_35); -lean_ctor_set(x_46, 1, x_45); -x_47 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_48 = lean_array_push(x_47, x_46); -x_49 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_50 = lean_array_push(x_48, x_49); -x_51 = lean_array_push(x_50, x_22); -x_52 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_51); -x_54 = lean_array_push(x_23, x_53); -x_55 = lean_array_push(x_54, x_25); -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_35); -lean_ctor_set(x_56, 1, x_55); -x_57 = lean_array_push(x_39, x_56); -x_58 = lean_array_push(x_57, x_41); -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_43); -lean_ctor_set(x_59, 1, x_58); -x_60 = lean_array_push(x_23, x_59); -x_61 = lean_array_push(x_23, x_20); -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_35); -lean_ctor_set(x_62, 1, x_61); -x_63 = lean_array_push(x_60, x_62); -x_64 = l_Lean_mkAppStx___closed__8; -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set(x_65, 1, x_63); -x_66 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_66, 0, x_65); -return x_66; -} -} -block_123: -{ -uint8_t x_69; -x_69 = l_coeDecidableEq(x_68); -if (x_69 == 0) -{ -lean_object* x_70; uint8_t x_71; -x_70 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; -lean_inc(x_16); -x_71 = l_Lean_Syntax_isOfKind(x_16, x_70); -if (x_71 == 0) -{ -uint8_t x_72; -x_72 = 0; -x_17 = x_72; -goto block_67; -} -else -{ -lean_object* x_73; lean_object* x_74; uint8_t x_75; -x_73 = l_Lean_Syntax_getArgs(x_16); -x_74 = lean_array_get_size(x_73); -lean_dec(x_73); -x_75 = lean_nat_dec_eq(x_74, x_13); -lean_dec(x_74); -x_17 = x_75; -goto block_67; -} -} -else -{ -lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_76 = l_Lean_Syntax_getArg(x_16, x_6); -lean_dec(x_16); -x_77 = lean_unsigned_to_nat(5u); -x_78 = l_Lean_Syntax_getArg(x_1, x_77); -lean_dec(x_1); -x_79 = l_Array_empty___closed__1; -x_80 = lean_array_push(x_79, x_12); -x_81 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_82 = lean_array_push(x_80, x_81); -x_83 = l_Lean_mkTermIdFromIdent___closed__2; -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_83); -lean_ctor_set(x_84, 1, x_82); -x_85 = lean_array_push(x_79, x_84); -x_86 = l_Lean_Elab_Term_expandSubtype___closed__8; -x_87 = lean_array_push(x_86, x_14); -x_88 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_88); -lean_ctor_set(x_89, 1, x_87); -x_90 = lean_array_push(x_79, x_89); -x_91 = l_Lean_nullKind___closed__2; -x_92 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_92, 0, x_91); -lean_ctor_set(x_92, 1, x_90); -x_93 = lean_array_push(x_85, x_92); -x_94 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_94, 0, x_91); -lean_ctor_set(x_94, 1, x_93); -x_95 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_96 = lean_array_push(x_95, x_94); -x_97 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_98 = lean_array_push(x_96, x_97); -x_99 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_100 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_100, 0, x_99); -lean_ctor_set(x_100, 1, x_98); -x_101 = lean_array_push(x_79, x_100); -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_91); -lean_ctor_set(x_102, 1, x_101); -x_103 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_104 = lean_array_push(x_103, x_102); -x_105 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_106 = lean_array_push(x_104, x_105); -x_107 = lean_array_push(x_106, x_78); -x_108 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_108); -lean_ctor_set(x_109, 1, x_107); -x_110 = lean_array_push(x_79, x_109); -x_111 = lean_array_push(x_110, x_81); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_91); -lean_ctor_set(x_112, 1, x_111); -x_113 = lean_array_push(x_95, x_112); -x_114 = lean_array_push(x_113, x_97); -x_115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_115, 0, x_99); -lean_ctor_set(x_115, 1, x_114); -x_116 = lean_array_push(x_79, x_115); -x_117 = lean_array_push(x_79, x_76); -x_118 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_118, 0, x_91); -lean_ctor_set(x_118, 1, x_117); -x_119 = lean_array_push(x_116, x_118); -x_120 = l_Lean_mkAppStx___closed__8; -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_120); -lean_ctor_set(x_121, 1, x_119); -x_122 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_122, 0, x_121); -return x_122; -} -} -} -} -block_251: -{ -uint8_t x_134; -x_134 = l_coeDecidableEq(x_133); -if (x_134 == 0) -{ -if (x_132 == 0) -{ -uint8_t x_135; -x_135 = 0; -x_8 = x_135; -goto block_130; -} -else -{ -lean_object* x_136; lean_object* x_137; lean_object* x_138; uint8_t x_139; -x_136 = l_Lean_Syntax_getArgs(x_7); -x_137 = lean_array_get_size(x_136); -lean_dec(x_136); -x_138 = lean_unsigned_to_nat(2u); -x_139 = lean_nat_dec_eq(x_137, x_138); -lean_dec(x_137); -x_8 = x_139; -goto block_130; -} -} -else -{ -lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; uint8_t x_144; uint8_t x_192; lean_object* x_245; uint8_t x_246; -lean_dec(x_7); -x_140 = lean_unsigned_to_nat(2u); -x_141 = l_Lean_Syntax_getArg(x_1, x_140); -x_142 = lean_unsigned_to_nat(3u); -x_143 = l_Lean_Syntax_getArg(x_1, x_142); -x_245 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; -lean_inc(x_143); -x_246 = l_Lean_Syntax_isOfKind(x_143, x_245); -if (x_246 == 0) -{ -uint8_t x_247; -x_247 = 0; -x_192 = x_247; -goto block_244; -} -else -{ -lean_object* x_248; lean_object* x_249; uint8_t x_250; -x_248 = l_Lean_Syntax_getArgs(x_143); -x_249 = lean_array_get_size(x_248); -lean_dec(x_248); -x_250 = lean_nat_dec_eq(x_249, x_140); -lean_dec(x_249); -x_192 = x_250; -goto block_244; -} -block_191: -{ -uint8_t x_145; -x_145 = l_coeDecidableEq(x_144); -if (x_145 == 0) -{ -lean_object* x_146; -lean_dec(x_143); -lean_dec(x_141); -lean_dec(x_1); -x_146 = l_Lean_Macro_throwUnsupported___closed__1; -return x_146; -} -else -{ -lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; -x_147 = l_Lean_Syntax_getArg(x_143, x_6); -lean_dec(x_143); -x_148 = lean_unsigned_to_nat(5u); -x_149 = l_Lean_Syntax_getArg(x_1, x_148); -x_150 = l_Lean_Elab_Term_expandShow___closed__2; -x_151 = l_Lean_mkTermIdFrom(x_1, x_150); -lean_dec(x_1); -x_152 = l_Array_empty___closed__1; -x_153 = lean_array_push(x_152, x_151); -x_154 = l_Lean_Elab_Term_expandSubtype___closed__8; -x_155 = lean_array_push(x_154, x_141); -x_156 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_157 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_157, 0, x_156); -lean_ctor_set(x_157, 1, x_155); -x_158 = lean_array_push(x_152, x_157); -x_159 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_159, 0, x_131); -lean_ctor_set(x_159, 1, x_158); -x_160 = lean_array_push(x_153, x_159); -x_161 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_161, 0, x_131); -lean_ctor_set(x_161, 1, x_160); -x_162 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_163 = lean_array_push(x_162, x_161); -x_164 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_165 = lean_array_push(x_163, x_164); -x_166 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_167 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_167, 0, x_166); -lean_ctor_set(x_167, 1, x_165); -x_168 = lean_array_push(x_152, x_167); -x_169 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_169, 0, x_131); -lean_ctor_set(x_169, 1, x_168); -x_170 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_171 = lean_array_push(x_170, x_169); -x_172 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_173 = lean_array_push(x_171, x_172); -x_174 = lean_array_push(x_173, x_149); -x_175 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_176 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_176, 0, x_175); -lean_ctor_set(x_176, 1, x_174); -x_177 = lean_array_push(x_152, x_176); -x_178 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_179 = lean_array_push(x_177, x_178); -x_180 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_180, 0, x_131); -lean_ctor_set(x_180, 1, x_179); -x_181 = lean_array_push(x_162, x_180); -x_182 = lean_array_push(x_181, x_164); -x_183 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_183, 0, x_166); -lean_ctor_set(x_183, 1, x_182); -x_184 = lean_array_push(x_152, x_183); -x_185 = lean_array_push(x_152, x_147); -x_186 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_186, 0, x_131); -lean_ctor_set(x_186, 1, x_185); -x_187 = lean_array_push(x_184, x_186); -x_188 = l_Lean_mkAppStx___closed__8; -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_188); -lean_ctor_set(x_189, 1, x_187); -x_190 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_190, 0, x_189); -return x_190; -} -} -block_244: -{ -uint8_t x_193; -x_193 = l_coeDecidableEq(x_192); -if (x_193 == 0) -{ -lean_object* x_194; uint8_t x_195; -x_194 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; -lean_inc(x_143); -x_195 = l_Lean_Syntax_isOfKind(x_143, x_194); -if (x_195 == 0) -{ -uint8_t x_196; -x_196 = 0; -x_144 = x_196; -goto block_191; -} -else -{ -lean_object* x_197; lean_object* x_198; uint8_t x_199; -x_197 = l_Lean_Syntax_getArgs(x_143); -x_198 = lean_array_get_size(x_197); -lean_dec(x_197); -x_199 = lean_nat_dec_eq(x_198, x_140); -lean_dec(x_198); -x_144 = x_199; -goto block_191; -} -} -else -{ -lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; -x_200 = l_Lean_Syntax_getArg(x_143, x_6); -lean_dec(x_143); -x_201 = lean_unsigned_to_nat(5u); -x_202 = l_Lean_Syntax_getArg(x_1, x_201); -x_203 = l_Lean_Elab_Term_expandShow___closed__2; -x_204 = l_Lean_mkTermIdFrom(x_1, x_203); -lean_dec(x_1); -x_205 = l_Array_empty___closed__1; -x_206 = lean_array_push(x_205, x_204); -x_207 = l_Lean_Elab_Term_expandSubtype___closed__8; -x_208 = lean_array_push(x_207, x_141); -x_209 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_210 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_210, 0, x_209); -lean_ctor_set(x_210, 1, x_208); -x_211 = lean_array_push(x_205, x_210); -x_212 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_212, 0, x_131); -lean_ctor_set(x_212, 1, x_211); -x_213 = lean_array_push(x_206, x_212); -x_214 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_214, 0, x_131); -lean_ctor_set(x_214, 1, x_213); -x_215 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_216 = lean_array_push(x_215, x_214); -x_217 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_218 = lean_array_push(x_216, x_217); -x_219 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; -x_220 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_220, 0, x_219); -lean_ctor_set(x_220, 1, x_218); -x_221 = lean_array_push(x_205, x_220); -x_222 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_222, 0, x_131); -lean_ctor_set(x_222, 1, x_221); -x_223 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_224 = lean_array_push(x_223, x_222); -x_225 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_226 = lean_array_push(x_224, x_225); -x_227 = lean_array_push(x_226, x_202); -x_228 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_229 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_229, 0, x_228); -lean_ctor_set(x_229, 1, x_227); -x_230 = lean_array_push(x_205, x_229); -x_231 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_232 = lean_array_push(x_230, x_231); -x_233 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_233, 0, x_131); -lean_ctor_set(x_233, 1, x_232); -x_234 = lean_array_push(x_215, x_233); -x_235 = lean_array_push(x_234, x_217); -x_236 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_236, 0, x_219); -lean_ctor_set(x_236, 1, x_235); -x_237 = lean_array_push(x_205, x_236); -x_238 = lean_array_push(x_205, x_200); -x_239 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_239, 0, x_131); -lean_ctor_set(x_239, 1, x_238); -x_240 = lean_array_push(x_237, x_239); -x_241 = l_Lean_mkAppStx___closed__8; -x_242 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_242, 0, x_241); -lean_ctor_set(x_242, 1, x_240); -x_243 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_243, 0, x_242); -return x_243; +x_210 = l_Array_empty___closed__1; +x_211 = lean_array_push(x_210, x_209); +x_212 = l_Lean_Elab_Term_expandSubtype___closed__8; +x_213 = lean_array_push(x_212, x_145); +x_214 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_215 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_215, 0, x_214); +lean_ctor_set(x_215, 1, x_213); +x_216 = lean_array_push(x_210, x_215); +x_217 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_217, 0, x_135); +lean_ctor_set(x_217, 1, x_216); +x_218 = lean_array_push(x_211, x_217); +x_219 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_219, 0, x_135); +lean_ctor_set(x_219, 1, x_218); +x_220 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_221 = lean_array_push(x_220, x_219); +x_222 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_223 = lean_array_push(x_221, x_222); +x_224 = l___private_Init_Lean_Parser_Parser_14__antiquotNestedExpr___elambda__1___closed__2; +x_225 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_225, 0, x_224); +lean_ctor_set(x_225, 1, x_223); +x_226 = lean_array_push(x_210, x_225); +x_227 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_227, 0, x_135); +lean_ctor_set(x_227, 1, x_226); +x_228 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_229 = lean_array_push(x_228, x_227); +x_230 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_231 = lean_array_push(x_229, x_230); +x_232 = lean_array_push(x_231, x_207); +x_233 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_234 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_234, 0, x_233); +lean_ctor_set(x_234, 1, x_232); +x_235 = lean_array_push(x_210, x_234); +x_236 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_237 = lean_array_push(x_235, x_236); +x_238 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_238, 0, x_135); +lean_ctor_set(x_238, 1, x_237); +x_239 = lean_array_push(x_220, x_238); +x_240 = lean_array_push(x_239, x_222); +x_241 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_241, 0, x_224); +lean_ctor_set(x_241, 1, x_240); +x_242 = lean_array_push(x_210, x_241); +x_243 = lean_array_push(x_210, x_205); +x_244 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_244, 0, x_135); +lean_ctor_set(x_244, 1, x_243); +x_245 = lean_array_push(x_242, x_244); +x_246 = l_Lean_mkAppStx___closed__8; +x_247 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_247, 0, x_246); +lean_ctor_set(x_247, 1, x_245); +x_248 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_248, 0, x_247); +lean_ctor_set(x_248, 1, x_3); +return x_248; } } } @@ -3052,20 +3106,20 @@ return x_243; } } } -lean_object* l_Lean_Elab_Term_expandHave___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandHave___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_expandHave(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_expandHave(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandHave___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandHave___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandHave___boxed), 3, 0); return x_1; } } @@ -3079,133 +3133,137 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { _start: { -lean_object* x_9; uint8_t x_10; -x_9 = lean_unsigned_to_nat(0u); -x_10 = lean_nat_dec_eq(x_5, x_9); -if (x_10 == 0) +lean_object* x_10; uint8_t x_11; +x_10 = lean_unsigned_to_nat(0u); +x_11 = lean_nat_dec_eq(x_5, x_10); +if (x_11 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_11 = lean_unsigned_to_nat(1u); -x_12 = lean_nat_sub(x_5, x_11); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_sub(x_5, x_12); lean_dec(x_5); -x_13 = lean_array_fget(x_4, x_12); -x_14 = l_Lean_Parser_Term_let___elambda__1___closed__1; +x_14 = lean_array_fget(x_4, x_13); +x_15 = l_Lean_Parser_Term_let___elambda__1___closed__1; lean_inc(x_2); -x_15 = lean_name_mk_string(x_2, x_14); -x_16 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__1; +x_16 = lean_name_mk_string(x_2, x_15); +x_17 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__1; lean_inc(x_3); -x_17 = lean_array_push(x_3, x_16); -x_18 = lean_array_push(x_17, x_13); -x_19 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_20 = lean_array_push(x_18, x_19); -x_21 = lean_array_push(x_20, x_7); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_15); -lean_ctor_set(x_22, 1, x_21); -x_5 = x_12; +x_18 = lean_array_push(x_3, x_17); +x_19 = lean_array_push(x_18, x_14); +x_20 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_21 = lean_array_push(x_19, x_20); +x_22 = lean_array_push(x_21, x_7); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_16); +lean_ctor_set(x_23, 1, x_22); +x_5 = x_13; x_6 = lean_box(0); -x_7 = x_22; +x_7 = x_23; goto _start; } else { -lean_object* x_24; +lean_object* x_25; lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); -x_24 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_24, 0, x_7); -return x_24; +x_25 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_7); +lean_ctor_set(x_25, 1, x_9); +return x_25; } } } -lean_object* l_Lean_Elab_Term_expandWhere(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandWhere(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_17; uint8_t x_18; -x_17 = l_Lean_Parser_Term_where___elambda__1___closed__2; +uint8_t x_4; lean_object* x_19; uint8_t x_20; +x_19 = l_Lean_Parser_Term_where___elambda__1___closed__2; lean_inc(x_1); -x_18 = l_Lean_Syntax_isOfKind(x_1, x_17); -if (x_18 == 0) +x_20 = l_Lean_Syntax_isOfKind(x_1, x_19); +if (x_20 == 0) { -uint8_t x_19; -x_19 = 0; -x_3 = x_19; -goto block_16; +uint8_t x_21; +x_21 = 0; +x_4 = x_21; +goto block_18; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; -x_20 = l_Lean_Syntax_getArgs(x_1); -x_21 = lean_array_get_size(x_20); -lean_dec(x_20); -x_22 = lean_unsigned_to_nat(3u); -x_23 = lean_nat_dec_eq(x_21, x_22); -lean_dec(x_21); -x_3 = x_23; -goto block_16; +lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; +x_22 = l_Lean_Syntax_getArgs(x_1); +x_23 = lean_array_get_size(x_22); +lean_dec(x_22); +x_24 = lean_unsigned_to_nat(3u); +x_25 = lean_nat_dec_eq(x_23, x_24); +lean_dec(x_23); +x_4 = x_25; +goto block_18; } -block_16: +block_18: { -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) { -lean_object* x_5; +lean_object* x_6; lean_object* x_7; lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__1; -return x_5; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_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; -x_6 = lean_unsigned_to_nat(0u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = lean_unsigned_to_nat(2u); +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_8 = lean_unsigned_to_nat(0u); x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = l_Lean_Syntax_getArgs(x_9); -lean_dec(x_9); -x_11 = l_Array_empty___closed__1; -x_12 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_8, x_10, x_6, x_11); -lean_dec(x_10); -x_13 = lean_array_get_size(x_12); -x_14 = l_Lean_mkAppStx___closed__6; -x_15 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(x_1, x_14, x_11, x_12, x_13, lean_box(0), x_7, x_2); +x_10 = lean_unsigned_to_nat(2u); +x_11 = l_Lean_Syntax_getArg(x_1, x_10); +x_12 = l_Lean_Syntax_getArgs(x_11); +lean_dec(x_11); +x_13 = l_Array_empty___closed__1; +x_14 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_10, x_12, x_8, x_13); lean_dec(x_12); +x_15 = lean_array_get_size(x_14); +x_16 = l_Lean_mkAppStx___closed__6; +x_17 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(x_1, x_16, x_13, x_14, x_15, lean_box(0), x_9, x_2, x_3); +lean_dec(x_14); lean_dec(x_1); -return x_15; +return x_17; } } } } -lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { _start: { -lean_object* x_9; -x_9 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +lean_object* x_10; +x_10 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_expandWhere___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); lean_dec(x_8); lean_dec(x_4); lean_dec(x_1); -return x_9; +return x_10; } } -lean_object* l_Lean_Elab_Term_expandWhere___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_expandWhere___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_expandWhere(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_expandWhere(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_expandWhere___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandWhere___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_expandWhere___boxed), 3, 0); return x_1; } } @@ -4566,79 +4624,80 @@ x_5 = l_Lean_Elab_Term_addBuiltinTermElab(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l_Lean_Elab_Term_elabInfix(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Elab_Term_elabInfix(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; -x_4 = lean_unsigned_to_nat(0u); -x_5 = l_Lean_Syntax_getArg(x_2, x_4); -x_6 = lean_unsigned_to_nat(2u); -x_7 = l_Lean_Syntax_getArg(x_2, x_6); -x_8 = l_Lean_mkAppStx___closed__9; -x_9 = lean_array_push(x_8, x_5); -x_10 = lean_array_push(x_9, x_7); -x_11 = l_Lean_mkAppStx(x_1, x_10); -x_12 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_12, 0, x_11); -return x_12; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_5 = lean_unsigned_to_nat(0u); +x_6 = l_Lean_Syntax_getArg(x_2, x_5); +x_7 = lean_unsigned_to_nat(2u); +x_8 = l_Lean_Syntax_getArg(x_2, x_7); +x_9 = l_Lean_mkAppStx___closed__9; +x_10 = lean_array_push(x_9, x_6); +x_11 = lean_array_push(x_10, x_8); +x_12 = l_Lean_mkAppStx(x_1, x_11); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_4); +return x_13; } } -lean_object* l_Lean_Elab_Term_elabInfix___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Elab_Term_elabInfix___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Elab_Term_elabInfix(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_5; +} +} +lean_object* l_Lean_Elab_Term_elabInfixOp(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_unsigned_to_nat(1u); +x_6 = l_Lean_Syntax_getArg(x_2, x_5); +x_7 = l_Lean_mkCTermIdFrom(x_6, x_1); +lean_dec(x_6); +x_8 = l_Lean_Elab_Term_elabInfix(x_7, x_2, x_3, x_4); +return x_8; +} +} +lean_object* l_Lean_Elab_Term_elabInfixOp___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_5; +} +} +lean_object* l_Lean_Elab_Term_elabProd(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = l___private_Init_Lean_Elab_Term_10__mkPairsAux___main___closed__5; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; +} +} +lean_object* l_Lean_Elab_Term_elabProd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Lean_Elab_Term_elabInfix(x_1, x_2, x_3); -lean_dec(x_3); -lean_dec(x_2); -return x_4; -} -} -lean_object* l_Lean_Elab_Term_elabInfixOp(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; -x_4 = lean_unsigned_to_nat(1u); -x_5 = l_Lean_Syntax_getArg(x_2, x_4); -x_6 = l_Lean_mkCTermIdFrom(x_5, x_1); -lean_dec(x_5); -x_7 = l_Lean_Elab_Term_elabInfix(x_6, x_2, x_3); -return x_7; -} -} -lean_object* l_Lean_Elab_Term_elabInfixOp___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_1, x_2, x_3); -lean_dec(x_3); -lean_dec(x_2); -return x_4; -} -} -lean_object* l_Lean_Elab_Term_elabProd(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; -x_3 = l___private_Init_Lean_Elab_Term_10__mkPairsAux___main___closed__5; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; -} -} -lean_object* l_Lean_Elab_Term_elabProd___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabProd(x_1, x_2); +x_4 = l_Lean_Elab_Term_elabProd(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabProd___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabProd___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabProd___boxed), 3, 0); return x_1; } } @@ -4688,30 +4747,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_ElabFComp(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_ElabFComp(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_ElabFComp___closed__4; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_ElabFComp___closed__4; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_ElabFComp___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_ElabFComp___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_ElabFComp(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_ElabFComp(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_ElabFComp___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_ElabFComp___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_ElabFComp___boxed), 3, 0); return x_1; } } @@ -4735,30 +4794,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabAdd(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAdd(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabAdd___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabAdd___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabAdd___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAdd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabAdd(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabAdd(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabAdd___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAdd___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAdd___boxed), 3, 0); return x_1; } } @@ -4800,30 +4859,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabSub(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabSub(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabSub___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabSub___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabSub___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabSub___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabSub(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabSub(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabSub___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabSub___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabSub___boxed), 3, 0); return x_1; } } @@ -4865,30 +4924,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabMul(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMul(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabMul___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabMul___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabMul___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMul___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabMul(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabMul(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabMul___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMul___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMul___boxed), 3, 0); return x_1; } } @@ -4930,30 +4989,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabDiv(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabDiv(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabDiv___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabDiv___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabDiv___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabDiv___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabDiv(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabDiv(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabDiv___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabDiv___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabDiv___boxed), 3, 0); return x_1; } } @@ -4995,30 +5054,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabMod(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMod(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabMod___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabMod___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabMod___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMod___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabMod(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabMod(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabMod___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMod___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMod___boxed), 3, 0); return x_1; } } @@ -5068,30 +5127,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabModN(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabModN(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabModN___closed__4; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabModN___closed__4; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabModN___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabModN___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabModN(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabModN(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabModN___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabModN___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabModN___boxed), 3, 0); return x_1; } } @@ -5133,30 +5192,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabPow(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabPow(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabPow___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabPow___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabPow___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabPow___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabPow(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabPow(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabPow___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabPow___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabPow___boxed), 3, 0); return x_1; } } @@ -5206,30 +5265,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabLE(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabLE(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabLE___closed__4; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabLE___closed__4; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabLE___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabLE___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabLE(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabLE(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabLE___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabLE___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabLE___boxed), 3, 0); return x_1; } } @@ -5261,30 +5320,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabGE(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabGE(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabGE___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabGE___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabGE___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabGE___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabGE(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabGE(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabGE___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabGE___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabGE___boxed), 3, 0); return x_1; } } @@ -5334,30 +5393,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabLT(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabLT(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabLT___closed__4; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabLT___closed__4; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabLT___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabLT___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabLT(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabLT(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabLT___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabLT___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabLT___boxed), 3, 0); return x_1; } } @@ -5389,30 +5448,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabGT(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabGT(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabGT___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabGT___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabGT___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabGT___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabGT(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabGT(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabGT___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabGT___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabGT___boxed), 3, 0); return x_1; } } @@ -5426,30 +5485,30 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Term_elabEq(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabEq(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Expr_eq_x3f___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Expr_eq_x3f___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabEq___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabEq___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabEq(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabEq(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabEq___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabEq___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabEq___boxed), 3, 0); return x_1; } } @@ -5481,30 +5540,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabNe(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabNe(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabNe___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabNe___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabNe___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabNe___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabNe(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabNe(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabNe___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabNe___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabNe___boxed), 3, 0); return x_1; } } @@ -5538,30 +5597,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabBEq(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBEq(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabBEq___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabBEq___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabBEq___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBEq___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabBEq(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabBEq(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabBEq___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBEq___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBEq___boxed), 3, 0); return x_1; } } @@ -5585,30 +5644,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabBNe(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBNe(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabBNe___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabBNe___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabBNe___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBNe___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabBNe(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabBNe(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabBNe___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBNe___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBNe___boxed), 3, 0); return x_1; } } @@ -5622,30 +5681,30 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Term_elabHEq(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabHEq(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Expr_heq_x3f___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Expr_heq_x3f___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabHEq___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabHEq___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabHEq(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabHEq(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabHEq___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabHEq___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabHEq___boxed), 3, 0); return x_1; } } @@ -5695,30 +5754,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabEquiv(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabEquiv(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabEquiv___closed__4; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabEquiv___closed__4; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabEquiv___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabEquiv___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabEquiv(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabEquiv(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabEquiv___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabEquiv___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabEquiv___boxed), 3, 0); return x_1; } } @@ -5750,30 +5809,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabAnd(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAnd(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabAnd___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabAnd___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabAnd___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAnd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabAnd(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabAnd(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabAnd___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAnd___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAnd___boxed), 3, 0); return x_1; } } @@ -5805,30 +5864,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabOr(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabOr(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabOr___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabOr___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabOr___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabOr___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabOr(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabOr(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabOr___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabOr___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabOr___boxed), 3, 0); return x_1; } } @@ -5860,30 +5919,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabIff(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabIff(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabIff___closed__2; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabIff___closed__2; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabIff___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabIff___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabIff(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabIff(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabIff___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabIff___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabIff___boxed), 3, 0); return x_1; } } @@ -5907,30 +5966,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabBAnd(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBAnd(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabBAnd___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabBAnd___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabBAnd___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBAnd___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabBAnd(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabBAnd(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabBAnd___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBAnd___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBAnd___boxed), 3, 0); return x_1; } } @@ -5954,30 +6013,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabBOr(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBOr(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabBOr___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabBOr___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabBOr___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBOr___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabBOr(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabBOr(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabBOr___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBOr___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBOr___boxed), 3, 0); return x_1; } } @@ -6019,30 +6078,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabAppend(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAppend(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabAppend___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabAppend___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabAppend___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAppend___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabAppend(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabAppend(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabAppend___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAppend___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAppend___boxed), 3, 0); return x_1; } } @@ -6056,30 +6115,30 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Term_elabCons(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabCons(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabListLit___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabListLit___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabCons___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabCons___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabCons(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabCons(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabCons___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabCons___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabCons___boxed), 3, 0); return x_1; } } @@ -6121,30 +6180,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabAndThen(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAndThen(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabAndThen___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabAndThen___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabAndThen___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAndThen___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabAndThen(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabAndThen(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabAndThen___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAndThen___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAndThen___boxed), 3, 0); return x_1; } } @@ -6158,30 +6217,30 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Term_elabBind(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBind(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabBind___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabBind___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabBind(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabBind(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabBind___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBind___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabBind___boxed), 3, 0); return x_1; } } @@ -6223,30 +6282,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabseq(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabseq(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabseq___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabseq___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabseq___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabseq___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabseq(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabseq(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabseq___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabseq___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabseq___boxed), 3, 0); return x_1; } } @@ -6288,30 +6347,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabseqLeft(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabseqLeft(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabseqLeft___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabseqLeft___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabseqLeft___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabseqLeft___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabseqLeft(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabseqLeft(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabseqLeft___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabseqLeft___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabseqLeft___boxed), 3, 0); return x_1; } } @@ -6353,30 +6412,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabseqRight(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabseqRight(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabseqRight___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabseqRight___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabseqRight___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabseqRight___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabseqRight(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabseqRight(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabseqRight___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabseqRight___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabseqRight___boxed), 3, 0); return x_1; } } @@ -6418,30 +6477,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabMap(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMap(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabMap___closed__3; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabMap___closed__3; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabMap___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMap___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabMap(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabMap(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabMap___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMap___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMap___boxed), 3, 0); return x_1; } } @@ -6465,30 +6524,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabMapRev(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMapRev(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabMapRev___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabMapRev___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabMapRev___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMapRev___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabMapRev(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabMapRev(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabMapRev___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMapRev___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMapRev___boxed), 3, 0); return x_1; } } @@ -6512,30 +6571,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabMapConst(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMapConst(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabMapConst___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabMapConst___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabMapConst___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMapConst___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabMapConst(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabMapConst(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabMapConst___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMapConst___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMapConst___boxed), 3, 0); return x_1; } } @@ -6559,30 +6618,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabMapConstRev(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMapConstRev(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabMapConstRev___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabMapConstRev___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabMapConstRev___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabMapConstRev___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabMapConstRev(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabMapConstRev(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabMapConstRev___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMapConstRev___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabMapConstRev___boxed), 3, 0); return x_1; } } @@ -6596,30 +6655,30 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Term_elabOrElse(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabOrElse(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabOrElse___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabOrElse___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabOrElse(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabOrElse(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabOrElse___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabOrElse___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabOrElse___boxed), 3, 0); return x_1; } } @@ -6643,30 +6702,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabOrM(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabOrM(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabOrM___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabOrM___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabOrM(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabOrM(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabOrM___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabOrM___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabOrM___boxed), 3, 0); return x_1; } } @@ -6690,30 +6749,30 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Term_elabAndM(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAndM(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Term_elabAndM___closed__1; -x_4 = l_Lean_Elab_Term_elabInfixOp(x_3, x_1, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Term_elabAndM___closed__1; +x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); +return x_5; } } -lean_object* l_Lean_Elab_Term_elabAndM___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Term_elabAndM___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Term_elabAndM(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Term_elabAndM(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Term_elabAndM___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAndM___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabAndM___boxed), 3, 0); return x_1; } } diff --git a/stage0/stdlib/Init/Lean/Elab/Command.c b/stage0/stdlib/Init/Lean/Elab/Command.c index 89f44d8e0f..fd092bcb4d 100644 --- a/stage0/stdlib/Init/Lean/Elab/Command.c +++ b/stage0/stdlib/Init/Lean/Elab/Command.c @@ -137,6 +137,7 @@ extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_SMap_empty___at_Lean_Elab_Command_mkBuiltinCommandElabTable___spec__1___closed__2; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabExport(lean_object*); lean_object* l___private_Init_Lean_Elab_Command_13__addNamespace(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_commandElabAttribute___closed__2; lean_object* l_Lean_Elab_Command_CommandElabM_monadLog___lambda__2___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__5; @@ -268,13 +269,14 @@ size_t l_Lean_Name_hash(lean_object*); lean_object* l_Lean_Elab_Term_elabTermAux___main(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); extern lean_object* l_Char_HasRepr___closed__1; lean_object* l_Lean_Elab_Command_registerBuiltinCommandElabAttr___lambda__1___closed__4; -lean_object* l_Lean_Elab_getMacros(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_getMacros(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Command_1__ioErrorToMessage___boxed(lean_object*, lean_object*, lean_object*); uint8_t l___private_Init_Lean_Elab_Command_14__checkAnonymousScope(lean_object*); lean_object* l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* l_Lean_Syntax_prettyPrint(lean_object*); lean_object* l_Lean_Elab_Command_adaptExpander(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__5; lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSynth___closed__3; lean_object* l_Lean_KVMap_insertCore___main(lean_object*, lean_object*, lean_object*); @@ -354,6 +356,7 @@ extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3; lean_object* l_Lean_Elab_Command_withMacroExpansion(lean_object*); lean_object* l_Lean_Elab_Command_withDeclId___closed__3; lean_object* l_Lean_ConstantInfo_type(lean_object*); +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__6; lean_object* l_ReaderT_bind___at_Lean_Elab_Command_CommandElabM_monadLog___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_sortDeclLevelParams(lean_object*, lean_object*); @@ -403,6 +406,7 @@ lean_object* l_Lean_Elab_Command_elabEnd___closed__6; lean_object* l_Lean_Elab_Command_elabExport___boxed(lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_le(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_CommandElabM_monadLog___closed__6; +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_getCurrMacroScope(lean_object*, lean_object*); lean_object* l_Lean_getMaxRecDepth(lean_object*); lean_object* l_Lean_Elab_Command_getMainModule(lean_object*, lean_object*); @@ -482,6 +486,7 @@ lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_ob lean_object* l_Lean_Elab_Command_declareBuiltinCommandElab___closed__7; lean_object* l_Lean_Elab_Command_elabVariable___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Command_12__addScopes(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__7; uint8_t l_Lean_DataValue_sameCtor(lean_object*, lean_object*); lean_object* l_HashMapImp_find_x3f___at_Lean_Elab_Command_elabCommand___main___spec__5(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Command_14__checkAnonymousScope___boxed(lean_object*); @@ -521,6 +526,7 @@ lean_object* l_Lean_Elab_Command_registerBuiltinCommandElabAttr___lambda__1___bo lean_object* l_Lean_Syntax_asNode(lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_elabExport___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_compile_decl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object*, lean_object*, lean_object*); uint8_t l___private_Init_Lean_Elab_Command_15__checkEndHeader(lean_object*, lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_CommandElabM_inhabited___closed__1; @@ -4622,15 +4628,220 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Elab_Command_withMacroExpansion___rarg), return x_2; } } +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_1, 3); +lean_inc(x_4); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_3); +return x_5; +} +} +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +x_4 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +lean_dec(x_4); +x_7 = !lean_is_exclusive(x_5); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; +x_8 = lean_ctor_get(x_5, 3); +lean_dec(x_8); +lean_ctor_set(x_5, 3, x_1); +x_9 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_6); +if (lean_obj_tag(x_9) == 0) +{ +uint8_t x_10; +x_10 = !lean_is_exclusive(x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = lean_ctor_get(x_9, 0); +lean_dec(x_11); +x_12 = lean_box(0); +lean_ctor_set(x_9, 0, x_12); +return x_9; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_9, 1); +lean_inc(x_13); +lean_dec(x_9); +x_14 = lean_box(0); +x_15 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_13); +return x_15; +} +} +else +{ +uint8_t x_16; +x_16 = !lean_is_exclusive(x_9); +if (x_16 == 0) +{ +return x_9; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_9, 0); +x_18 = lean_ctor_get(x_9, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_9); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_20 = lean_ctor_get(x_5, 0); +x_21 = lean_ctor_get(x_5, 1); +x_22 = lean_ctor_get(x_5, 2); +x_23 = lean_ctor_get(x_5, 4); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_5); +x_24 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_24, 0, x_20); +lean_ctor_set(x_24, 1, x_21); +lean_ctor_set(x_24, 2, x_22); +lean_ctor_set(x_24, 3, x_1); +lean_ctor_set(x_24, 4, x_23); +x_25 = l___private_Init_Lean_Elab_Command_3__setState(x_24, x_2, x_6); +if (lean_obj_tag(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_25, 1); +lean_inc(x_26); +if (lean_is_exclusive(x_25)) { + lean_ctor_release(x_25, 0); + lean_ctor_release(x_25, 1); + x_27 = x_25; +} else { + lean_dec_ref(x_25); + x_27 = lean_box(0); +} +x_28 = lean_box(0); +if (lean_is_scalar(x_27)) { + x_29 = lean_alloc_ctor(0, 2, 0); +} else { + x_29 = x_27; +} +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_26); +return x_29; +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_30 = lean_ctor_get(x_25, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_25, 1); +lean_inc(x_31); +if (lean_is_exclusive(x_25)) { + lean_ctor_release(x_25, 0); + lean_ctor_release(x_25, 1); + x_32 = x_25; +} else { + lean_dec_ref(x_25); + x_32 = lean_box(0); +} +if (lean_is_scalar(x_32)) { + x_33 = lean_alloc_ctor(1, 2, 0); +} else { + x_33 = x_32; +} +lean_ctor_set(x_33, 0, x_30); +lean_ctor_set(x_33, 1, x_31); +return x_33; +} +} +} +else +{ +uint8_t x_34; +lean_dec(x_2); +lean_dec(x_1); +x_34 = !lean_is_exclusive(x_4); +if (x_34 == 0) +{ +return x_4; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_35 = lean_ctor_get(x_4, 0); +x_36 = lean_ctor_get(x_4, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_4); +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_35); +lean_ctor_set(x_37, 1, x_36); +return x_37; +} +} +} +} lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__1() { _start: { lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__1___boxed), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Command_CommandElabCoreM_monadState___closed__1; +x_2 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__1; +x_3 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Command_CommandElabM_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__3() { +_start: +{ +lean_object* x_1; x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_getEnv), 2, 0); return x_1; } } -lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__2() { +lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__2), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__5() { _start: { lean_object* x_1; @@ -4638,7 +4849,7 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_throwError), 1, 0); return x_1; } } -lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__3() { +lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__6() { _start: { lean_object* x_1; @@ -4646,30 +4857,44 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_throwUnsupportedSyntax___bo return x_1; } } -lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4() { +lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__7() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_1 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_1 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__3; x_2 = l_Lean_Elab_Command_CommandElabM_MonadQuotation___closed__1; x_3 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__2; -x_4 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__3; -x_5 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_5, 0, x_1); -lean_ctor_set(x_5, 1, x_2); -lean_ctor_set(x_5, 2, x_3); -lean_ctor_set(x_5, 3, x_4); -return x_5; +x_4 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4; +x_5 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__5; +x_6 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__6; +x_7 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_7, 0, x_1); +lean_ctor_set(x_7, 1, x_2); +lean_ctor_set(x_7, 2, x_3); +lean_ctor_set(x_7, 3, x_4); +lean_ctor_set(x_7, 4, x_5); +lean_ctor_set(x_7, 5, x_6); +return x_7; } } lean_object* _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter() { _start: { lean_object* x_1; -x_1 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4; +x_1 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__7; return x_1; } } +lean_object* l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___lambda__1(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Elab_Command_elabCommand___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -5067,56 +5292,56 @@ lean_ctor_set(x_34, 5, x_12); lean_ctor_set(x_34, 6, x_30); if (lean_obj_tag(x_1) == 1) { -lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; -x_105 = lean_ctor_get(x_1, 0); -lean_inc(x_105); -x_106 = lean_ctor_get(x_1, 1); -lean_inc(x_106); -x_107 = l_Lean_nullKind; -x_108 = lean_name_eq(x_105, x_107); -lean_dec(x_105); -if (x_108 == 0) +lean_object* x_132; lean_object* x_133; lean_object* x_134; uint8_t x_135; +x_132 = lean_ctor_get(x_1, 0); +lean_inc(x_132); +x_133 = lean_ctor_get(x_1, 1); +lean_inc(x_133); +x_134 = l_Lean_nullKind; +x_135 = lean_name_eq(x_132, x_134); +lean_dec(x_132); +if (x_135 == 0) { -lean_object* x_109; -lean_dec(x_106); +lean_object* x_136; +lean_dec(x_133); lean_inc(x_34); -x_109 = l_Lean_Elab_Command_getOptions(x_34, x_33); -if (lean_obj_tag(x_109) == 0) +x_136 = l_Lean_Elab_Command_getOptions(x_34, x_33); +if (lean_obj_tag(x_136) == 0) { -lean_object* x_110; lean_object* x_111; lean_object* x_112; uint8_t x_113; -x_110 = lean_ctor_get(x_109, 0); -lean_inc(x_110); -x_111 = lean_ctor_get(x_109, 1); -lean_inc(x_111); -lean_dec(x_109); -x_112 = l_Lean_Elab_Command_elabCommand___main___closed__1; -x_113 = l_Lean_checkTraceOption(x_110, x_112); -lean_dec(x_110); -if (x_113 == 0) +lean_object* x_137; lean_object* x_138; lean_object* x_139; uint8_t x_140; +x_137 = lean_ctor_get(x_136, 0); +lean_inc(x_137); +x_138 = lean_ctor_get(x_136, 1); +lean_inc(x_138); +lean_dec(x_136); +x_139 = l_Lean_Elab_Command_elabCommand___main___closed__1; +x_140 = l_Lean_checkTraceOption(x_137, x_139); +lean_dec(x_137); +if (x_140 == 0) { -x_35 = x_111; -goto block_104; +x_35 = x_138; +goto block_131; } else { -lean_object* x_114; lean_object* x_115; +lean_object* x_141; lean_object* x_142; lean_inc(x_1); -x_114 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_114, 0, x_1); +x_141 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_141, 0, x_1); lean_inc(x_34); -x_115 = l_Lean_Elab_Command_logTrace(x_112, x_1, x_114, x_34, x_111); -if (lean_obj_tag(x_115) == 0) +x_142 = l_Lean_Elab_Command_logTrace(x_139, x_1, x_141, x_34, x_138); +if (lean_obj_tag(x_142) == 0) { -lean_object* x_116; -x_116 = lean_ctor_get(x_115, 1); -lean_inc(x_116); -lean_dec(x_115); -x_35 = x_116; -goto block_104; +lean_object* x_143; +x_143 = lean_ctor_get(x_142, 1); +lean_inc(x_143); +lean_dec(x_142); +x_35 = x_143; +goto block_131; } else { -uint8_t x_117; +uint8_t x_144; lean_dec(x_34); lean_dec(x_30); lean_dec(x_25); @@ -5126,30 +5351,30 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_117 = !lean_is_exclusive(x_115); -if (x_117 == 0) +x_144 = !lean_is_exclusive(x_142); +if (x_144 == 0) { -return x_115; +return x_142; } else { -lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_118 = lean_ctor_get(x_115, 0); -x_119 = lean_ctor_get(x_115, 1); -lean_inc(x_119); -lean_inc(x_118); -lean_dec(x_115); -x_120 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_120, 0, x_118); -lean_ctor_set(x_120, 1, x_119); -return x_120; +lean_object* x_145; lean_object* x_146; lean_object* x_147; +x_145 = lean_ctor_get(x_142, 0); +x_146 = lean_ctor_get(x_142, 1); +lean_inc(x_146); +lean_inc(x_145); +lean_dec(x_142); +x_147 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_147, 0, x_145); +lean_ctor_set(x_147, 1, x_146); +return x_147; } } } } else { -uint8_t x_121; +uint8_t x_148; lean_dec(x_34); lean_dec(x_30); lean_dec(x_25); @@ -5159,29 +5384,29 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_121 = !lean_is_exclusive(x_109); -if (x_121 == 0) +x_148 = !lean_is_exclusive(x_136); +if (x_148 == 0) { -return x_109; +return x_136; } else { -lean_object* x_122; lean_object* x_123; lean_object* x_124; -x_122 = lean_ctor_get(x_109, 0); -x_123 = lean_ctor_get(x_109, 1); -lean_inc(x_123); -lean_inc(x_122); -lean_dec(x_109); -x_124 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_124, 0, x_122); -lean_ctor_set(x_124, 1, x_123); -return x_124; +lean_object* x_149; lean_object* x_150; lean_object* x_151; +x_149 = lean_ctor_get(x_136, 0); +x_150 = lean_ctor_get(x_136, 1); +lean_inc(x_150); +lean_inc(x_149); +lean_dec(x_136); +x_151 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_151, 0, x_149); +lean_ctor_set(x_151, 1, x_150); +return x_151; } } } else { -lean_object* x_125; lean_object* x_126; +lean_object* x_152; lean_object* x_153; lean_dec(x_30); lean_dec(x_25); lean_dec(x_12); @@ -5190,15 +5415,15 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_125 = lean_unsigned_to_nat(0u); -x_126 = l_Array_forMAux___main___at_Lean_Elab_Command_elabCommand___main___spec__7(x_106, x_125, x_34, x_33); -lean_dec(x_106); -return x_126; +x_152 = lean_unsigned_to_nat(0u); +x_153 = l_Array_forMAux___main___at_Lean_Elab_Command_elabCommand___main___spec__7(x_133, x_152, x_34, x_33); +lean_dec(x_133); +return x_153; } } else { -lean_object* x_127; lean_object* x_128; +lean_object* x_154; lean_object* x_155; lean_dec(x_30); lean_dec(x_25); lean_dec(x_12); @@ -5206,12 +5431,12 @@ lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_127 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_128 = l_Lean_Elab_Command_throwError___rarg(x_1, x_127, x_34, x_33); +x_154 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_155 = l_Lean_Elab_Command_throwError___rarg(x_1, x_154, x_34, x_33); lean_dec(x_1); -return x_128; +return x_155; } -block_104: +block_131: { lean_object* x_36; lean_inc(x_34); @@ -5269,22 +5494,76 @@ lean_inc(x_34); x_77 = l_Lean_Elab_Command_getEnv(x_34, x_76); if (lean_obj_tag(x_77) == 0) { -lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +lean_object* x_78; lean_object* x_79; lean_object* x_80; x_78 = lean_ctor_get(x_77, 0); lean_inc(x_78); x_79 = lean_ctor_get(x_77, 1); lean_inc(x_79); lean_dec(x_77); -x_80 = lean_environment_main_module(x_78); -x_81 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_81, 0, x_80); -lean_ctor_set(x_81, 1, x_75); -lean_inc(x_1); -x_82 = l_Lean_Elab_getMacros(x_47, x_1, x_81); -lean_dec(x_47); -if (lean_obj_tag(x_82) == 0) +lean_inc(x_34); +x_80 = l___private_Init_Lean_Elab_Command_2__getState(x_34, x_79); +if (lean_obj_tag(x_80) == 0) { -lean_object* x_83; +lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_81 = lean_ctor_get(x_80, 0); +lean_inc(x_81); +x_82 = lean_ctor_get(x_80, 1); +lean_inc(x_82); +lean_dec(x_80); +x_83 = lean_ctor_get(x_81, 3); +lean_inc(x_83); +lean_dec(x_81); +x_84 = lean_environment_main_module(x_78); +x_85 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_75); +lean_inc(x_1); +x_86 = l_Lean_Elab_getMacros(x_47, x_1, x_85, x_83); +lean_dec(x_47); +if (lean_obj_tag(x_86) == 0) +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_86, 0); +lean_inc(x_87); +x_88 = lean_ctor_get(x_86, 1); +lean_inc(x_88); +lean_dec(x_86); +lean_inc(x_34); +x_89 = l___private_Init_Lean_Elab_Command_2__getState(x_34, x_82); +if (lean_obj_tag(x_89) == 0) +{ +lean_object* x_90; lean_object* x_91; uint8_t x_92; +x_90 = lean_ctor_get(x_89, 0); +lean_inc(x_90); +x_91 = lean_ctor_get(x_89, 1); +lean_inc(x_91); +lean_dec(x_89); +x_92 = !lean_is_exclusive(x_90); +if (x_92 == 0) +{ +lean_object* x_93; lean_object* x_94; +x_93 = lean_ctor_get(x_90, 3); +lean_dec(x_93); +lean_ctor_set(x_90, 3, x_88); +lean_inc(x_34); +x_94 = l___private_Init_Lean_Elab_Command_3__setState(x_90, x_34, x_91); +if (lean_obj_tag(x_94) == 0) +{ +lean_object* x_95; +lean_dec(x_49); +lean_dec(x_44); +lean_dec(x_34); +x_95 = lean_ctor_get(x_94, 1); +lean_inc(x_95); +lean_dec(x_94); +x_50 = x_87; +x_51 = x_95; +goto block_56; +} +else +{ +lean_object* x_96; lean_object* x_97; +lean_dec(x_87); lean_dec(x_30); lean_dec(x_25); lean_dec(x_12); @@ -5292,56 +5571,141 @@ lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_83 = lean_ctor_get(x_82, 0); -lean_inc(x_83); -lean_dec(x_82); -if (lean_obj_tag(x_83) == 0) +x_96 = lean_ctor_get(x_94, 0); +lean_inc(x_96); +x_97 = lean_ctor_get(x_94, 1); +lean_inc(x_97); +lean_dec(x_94); +x_57 = x_96; +x_58 = x_97; +goto block_73; +} +} +else { -lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_84 = lean_ctor_get(x_83, 0); -lean_inc(x_84); -lean_dec(x_83); -x_85 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_85, 0, x_84); -x_86 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_86, 0, x_85); +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_98 = lean_ctor_get(x_90, 0); +x_99 = lean_ctor_get(x_90, 1); +x_100 = lean_ctor_get(x_90, 2); +x_101 = lean_ctor_get(x_90, 4); +lean_inc(x_101); +lean_inc(x_100); +lean_inc(x_99); +lean_inc(x_98); +lean_dec(x_90); +x_102 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_102, 0, x_98); +lean_ctor_set(x_102, 1, x_99); +lean_ctor_set(x_102, 2, x_100); +lean_ctor_set(x_102, 3, x_88); +lean_ctor_set(x_102, 4, x_101); lean_inc(x_34); -x_87 = l_Lean_Elab_Command_throwError___rarg(x_1, x_86, x_34, x_79); -x_88 = lean_ctor_get(x_87, 0); -lean_inc(x_88); -x_89 = lean_ctor_get(x_87, 1); -lean_inc(x_89); -lean_dec(x_87); -x_57 = x_88; -x_58 = x_89; -goto block_73; -} -else +x_103 = l___private_Init_Lean_Elab_Command_3__setState(x_102, x_34, x_91); +if (lean_obj_tag(x_103) == 0) { -lean_object* x_90; -x_90 = lean_box(1); -x_57 = x_90; -x_58 = x_79; -goto block_73; -} -} -else -{ -lean_object* x_91; +lean_object* x_104; lean_dec(x_49); lean_dec(x_44); lean_dec(x_34); -x_91 = lean_ctor_get(x_82, 0); -lean_inc(x_91); -lean_dec(x_82); -x_50 = x_91; -x_51 = x_79; +x_104 = lean_ctor_get(x_103, 1); +lean_inc(x_104); +lean_dec(x_103); +x_50 = x_87; +x_51 = x_104; goto block_56; } +else +{ +lean_object* x_105; lean_object* x_106; +lean_dec(x_87); +lean_dec(x_30); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_105 = lean_ctor_get(x_103, 0); +lean_inc(x_105); +x_106 = lean_ctor_get(x_103, 1); +lean_inc(x_106); +lean_dec(x_103); +x_57 = x_105; +x_58 = x_106; +goto block_73; +} +} } else { -lean_object* x_92; lean_object* x_93; +lean_object* x_107; lean_object* x_108; +lean_dec(x_88); +lean_dec(x_87); +lean_dec(x_30); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_107 = lean_ctor_get(x_89, 0); +lean_inc(x_107); +x_108 = lean_ctor_get(x_89, 1); +lean_inc(x_108); +lean_dec(x_89); +x_57 = x_107; +x_58 = x_108; +goto block_73; +} +} +else +{ +lean_object* x_109; +lean_dec(x_30); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_109 = lean_ctor_get(x_86, 0); +lean_inc(x_109); +lean_dec(x_86); +if (lean_obj_tag(x_109) == 0) +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; +x_110 = lean_ctor_get(x_109, 0); +lean_inc(x_110); +lean_dec(x_109); +x_111 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_111, 0, x_110); +x_112 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_112, 0, x_111); +lean_inc(x_34); +x_113 = l_Lean_Elab_Command_throwError___rarg(x_1, x_112, x_34, x_82); +x_114 = lean_ctor_get(x_113, 0); +lean_inc(x_114); +x_115 = lean_ctor_get(x_113, 1); +lean_inc(x_115); +lean_dec(x_113); +x_57 = x_114; +x_58 = x_115; +goto block_73; +} +else +{ +lean_object* x_116; +x_116 = lean_box(1); +x_57 = x_116; +x_58 = x_82; +goto block_73; +} +} +} +else +{ +lean_object* x_117; lean_object* x_118; +lean_dec(x_78); lean_dec(x_75); lean_dec(x_47); lean_dec(x_30); @@ -5351,13 +5715,35 @@ lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_92 = lean_ctor_get(x_77, 0); -lean_inc(x_92); -x_93 = lean_ctor_get(x_77, 1); -lean_inc(x_93); +x_117 = lean_ctor_get(x_80, 0); +lean_inc(x_117); +x_118 = lean_ctor_get(x_80, 1); +lean_inc(x_118); +lean_dec(x_80); +x_57 = x_117; +x_58 = x_118; +goto block_73; +} +} +else +{ +lean_object* x_119; lean_object* x_120; +lean_dec(x_75); +lean_dec(x_47); +lean_dec(x_30); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_119 = lean_ctor_get(x_77, 0); +lean_inc(x_119); +x_120 = lean_ctor_get(x_77, 1); +lean_inc(x_120); lean_dec(x_77); -x_57 = x_92; -x_58 = x_93; +x_57 = x_119; +x_58 = x_120; goto block_73; } block_56: @@ -5444,7 +5830,7 @@ return x_72; } else { -uint8_t x_94; +uint8_t x_121; lean_dec(x_44); lean_dec(x_34); lean_dec(x_30); @@ -5455,29 +5841,29 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_94 = !lean_is_exclusive(x_46); -if (x_94 == 0) +x_121 = !lean_is_exclusive(x_46); +if (x_121 == 0) { return x_46; } else { -lean_object* x_95; lean_object* x_96; lean_object* x_97; -x_95 = lean_ctor_get(x_46, 0); -x_96 = lean_ctor_get(x_46, 1); -lean_inc(x_96); -lean_inc(x_95); +lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_122 = lean_ctor_get(x_46, 0); +x_123 = lean_ctor_get(x_46, 1); +lean_inc(x_123); +lean_inc(x_122); lean_dec(x_46); -x_97 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_97, 0, x_95); -lean_ctor_set(x_97, 1, x_96); -return x_97; +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_122); +lean_ctor_set(x_124, 1, x_123); +return x_124; } } } else { -lean_object* x_98; lean_object* x_99; +lean_object* x_125; lean_object* x_126; lean_dec(x_44); lean_dec(x_30); lean_dec(x_25); @@ -5486,16 +5872,16 @@ lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_98 = lean_ctor_get(x_45, 0); -lean_inc(x_98); +x_125 = lean_ctor_get(x_45, 0); +lean_inc(x_125); lean_dec(x_45); -x_99 = l___private_Init_Lean_Elab_Command_5__elabCommandUsing___main(x_37, x_1, x_98, x_34, x_38); -return x_99; +x_126 = l___private_Init_Lean_Elab_Command_5__elabCommandUsing___main(x_37, x_1, x_125, x_34, x_38); +return x_126; } } else { -uint8_t x_100; +uint8_t x_127; lean_dec(x_34); lean_dec(x_30); lean_dec(x_25); @@ -5505,30 +5891,30 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_100 = !lean_is_exclusive(x_36); -if (x_100 == 0) +x_127 = !lean_is_exclusive(x_36); +if (x_127 == 0) { return x_36; } else { -lean_object* x_101; lean_object* x_102; lean_object* x_103; -x_101 = lean_ctor_get(x_36, 0); -x_102 = lean_ctor_get(x_36, 1); -lean_inc(x_102); -lean_inc(x_101); +lean_object* x_128; lean_object* x_129; lean_object* x_130; +x_128 = lean_ctor_get(x_36, 0); +x_129 = lean_ctor_get(x_36, 1); +lean_inc(x_129); +lean_inc(x_128); lean_dec(x_36); -x_103 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_103, 0, x_101); -lean_ctor_set(x_103, 1, x_102); -return x_103; +x_130 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_130, 0, x_128); +lean_ctor_set(x_130, 1, x_129); +return x_130; } } } } else { -uint8_t x_129; +uint8_t x_156; lean_dec(x_30); lean_dec(x_25); lean_dec(x_12); @@ -5537,123 +5923,123 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_129 = !lean_is_exclusive(x_32); -if (x_129 == 0) +x_156 = !lean_is_exclusive(x_32); +if (x_156 == 0) { return x_32; } else { -lean_object* x_130; lean_object* x_131; lean_object* x_132; -x_130 = lean_ctor_get(x_32, 0); -x_131 = lean_ctor_get(x_32, 1); -lean_inc(x_131); -lean_inc(x_130); +lean_object* x_157; lean_object* x_158; lean_object* x_159; +x_157 = lean_ctor_get(x_32, 0); +x_158 = lean_ctor_get(x_32, 1); +lean_inc(x_158); +lean_inc(x_157); lean_dec(x_32); -x_132 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_132, 0, x_130); -lean_ctor_set(x_132, 1, x_131); -return x_132; +x_159 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_159, 0, x_157); +lean_ctor_set(x_159, 1, x_158); +return x_159; } } } else { -lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; -x_133 = lean_ctor_get(x_27, 0); -x_134 = lean_ctor_get(x_27, 1); -x_135 = lean_ctor_get(x_27, 2); -x_136 = lean_ctor_get(x_27, 3); -x_137 = lean_ctor_get(x_27, 4); -lean_inc(x_137); -lean_inc(x_136); -lean_inc(x_135); -lean_inc(x_134); -lean_inc(x_133); +lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; +x_160 = lean_ctor_get(x_27, 0); +x_161 = lean_ctor_get(x_27, 1); +x_162 = lean_ctor_get(x_27, 2); +x_163 = lean_ctor_get(x_27, 3); +x_164 = lean_ctor_get(x_27, 4); +lean_inc(x_164); +lean_inc(x_163); +lean_inc(x_162); +lean_inc(x_161); +lean_inc(x_160); lean_dec(x_27); -x_138 = lean_nat_add(x_136, x_24); -x_139 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_139, 0, x_133); -lean_ctor_set(x_139, 1, x_134); -lean_ctor_set(x_139, 2, x_135); -lean_ctor_set(x_139, 3, x_138); -lean_ctor_set(x_139, 4, x_137); -x_140 = l___private_Init_Lean_Elab_Command_3__setState(x_139, x_2, x_28); -if (lean_obj_tag(x_140) == 0) +x_165 = lean_nat_add(x_163, x_24); +x_166 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_166, 0, x_160); +lean_ctor_set(x_166, 1, x_161); +lean_ctor_set(x_166, 2, x_162); +lean_ctor_set(x_166, 3, x_165); +lean_ctor_set(x_166, 4, x_164); +x_167 = l___private_Init_Lean_Elab_Command_3__setState(x_166, x_2, x_28); +if (lean_obj_tag(x_167) == 0) { -lean_object* x_141; lean_object* x_142; lean_object* x_143; -x_141 = lean_ctor_get(x_140, 1); -lean_inc(x_141); -lean_dec(x_140); -lean_inc(x_136); +lean_object* x_168; lean_object* x_169; lean_object* x_170; +x_168 = lean_ctor_get(x_167, 1); +lean_inc(x_168); +lean_dec(x_167); +lean_inc(x_163); lean_inc(x_12); lean_inc(x_11); lean_inc(x_25); lean_inc(x_9); lean_inc(x_8); lean_inc(x_7); -x_142 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_142, 0, x_7); -lean_ctor_set(x_142, 1, x_8); -lean_ctor_set(x_142, 2, x_9); -lean_ctor_set(x_142, 3, x_25); -lean_ctor_set(x_142, 4, x_11); -lean_ctor_set(x_142, 5, x_12); -lean_ctor_set(x_142, 6, x_136); +x_169 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_169, 0, x_7); +lean_ctor_set(x_169, 1, x_8); +lean_ctor_set(x_169, 2, x_9); +lean_ctor_set(x_169, 3, x_25); +lean_ctor_set(x_169, 4, x_11); +lean_ctor_set(x_169, 5, x_12); +lean_ctor_set(x_169, 6, x_163); if (lean_obj_tag(x_1) == 1) { -lean_object* x_213; lean_object* x_214; lean_object* x_215; uint8_t x_216; -x_213 = lean_ctor_get(x_1, 0); -lean_inc(x_213); -x_214 = lean_ctor_get(x_1, 1); -lean_inc(x_214); -x_215 = l_Lean_nullKind; -x_216 = lean_name_eq(x_213, x_215); -lean_dec(x_213); -if (x_216 == 0) +lean_object* x_262; lean_object* x_263; lean_object* x_264; uint8_t x_265; +x_262 = lean_ctor_get(x_1, 0); +lean_inc(x_262); +x_263 = lean_ctor_get(x_1, 1); +lean_inc(x_263); +x_264 = l_Lean_nullKind; +x_265 = lean_name_eq(x_262, x_264); +lean_dec(x_262); +if (x_265 == 0) { -lean_object* x_217; -lean_dec(x_214); -lean_inc(x_142); -x_217 = l_Lean_Elab_Command_getOptions(x_142, x_141); -if (lean_obj_tag(x_217) == 0) +lean_object* x_266; +lean_dec(x_263); +lean_inc(x_169); +x_266 = l_Lean_Elab_Command_getOptions(x_169, x_168); +if (lean_obj_tag(x_266) == 0) { -lean_object* x_218; lean_object* x_219; lean_object* x_220; uint8_t x_221; -x_218 = lean_ctor_get(x_217, 0); -lean_inc(x_218); -x_219 = lean_ctor_get(x_217, 1); -lean_inc(x_219); -lean_dec(x_217); -x_220 = l_Lean_Elab_Command_elabCommand___main___closed__1; -x_221 = l_Lean_checkTraceOption(x_218, x_220); -lean_dec(x_218); -if (x_221 == 0) +lean_object* x_267; lean_object* x_268; lean_object* x_269; uint8_t x_270; +x_267 = lean_ctor_get(x_266, 0); +lean_inc(x_267); +x_268 = lean_ctor_get(x_266, 1); +lean_inc(x_268); +lean_dec(x_266); +x_269 = l_Lean_Elab_Command_elabCommand___main___closed__1; +x_270 = l_Lean_checkTraceOption(x_267, x_269); +lean_dec(x_267); +if (x_270 == 0) { -x_143 = x_219; -goto block_212; +x_170 = x_268; +goto block_261; } else { -lean_object* x_222; lean_object* x_223; +lean_object* x_271; lean_object* x_272; lean_inc(x_1); -x_222 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_222, 0, x_1); -lean_inc(x_142); -x_223 = l_Lean_Elab_Command_logTrace(x_220, x_1, x_222, x_142, x_219); -if (lean_obj_tag(x_223) == 0) +x_271 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_271, 0, x_1); +lean_inc(x_169); +x_272 = l_Lean_Elab_Command_logTrace(x_269, x_1, x_271, x_169, x_268); +if (lean_obj_tag(x_272) == 0) { -lean_object* x_224; -x_224 = lean_ctor_get(x_223, 1); -lean_inc(x_224); -lean_dec(x_223); -x_143 = x_224; -goto block_212; +lean_object* x_273; +x_273 = lean_ctor_get(x_272, 1); +lean_inc(x_273); +lean_dec(x_272); +x_170 = x_273; +goto block_261; } else { -lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; -lean_dec(x_142); -lean_dec(x_136); +lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; +lean_dec(x_169); +lean_dec(x_163); lean_dec(x_25); lean_dec(x_12); lean_dec(x_11); @@ -5661,386 +6047,462 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_225 = lean_ctor_get(x_223, 0); +x_274 = lean_ctor_get(x_272, 0); +lean_inc(x_274); +x_275 = lean_ctor_get(x_272, 1); +lean_inc(x_275); +if (lean_is_exclusive(x_272)) { + lean_ctor_release(x_272, 0); + lean_ctor_release(x_272, 1); + x_276 = x_272; +} else { + lean_dec_ref(x_272); + x_276 = lean_box(0); +} +if (lean_is_scalar(x_276)) { + x_277 = lean_alloc_ctor(1, 2, 0); +} else { + x_277 = x_276; +} +lean_ctor_set(x_277, 0, x_274); +lean_ctor_set(x_277, 1, x_275); +return x_277; +} +} +} +else +{ +lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; +lean_dec(x_169); +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_1); +x_278 = lean_ctor_get(x_266, 0); +lean_inc(x_278); +x_279 = lean_ctor_get(x_266, 1); +lean_inc(x_279); +if (lean_is_exclusive(x_266)) { + lean_ctor_release(x_266, 0); + lean_ctor_release(x_266, 1); + x_280 = x_266; +} else { + lean_dec_ref(x_266); + x_280 = lean_box(0); +} +if (lean_is_scalar(x_280)) { + x_281 = lean_alloc_ctor(1, 2, 0); +} else { + x_281 = x_280; +} +lean_ctor_set(x_281, 0, x_278); +lean_ctor_set(x_281, 1, x_279); +return x_281; +} +} +else +{ +lean_object* x_282; lean_object* x_283; +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_1); +x_282 = lean_unsigned_to_nat(0u); +x_283 = l_Array_forMAux___main___at_Lean_Elab_Command_elabCommand___main___spec__7(x_263, x_282, x_169, x_168); +lean_dec(x_263); +return x_283; +} +} +else +{ +lean_object* x_284; lean_object* x_285; +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_284 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_285 = l_Lean_Elab_Command_throwError___rarg(x_1, x_284, x_169, x_168); +lean_dec(x_1); +return x_285; +} +block_261: +{ +lean_object* x_171; +lean_inc(x_169); +x_171 = l___private_Init_Lean_Elab_Command_2__getState(x_169, x_170); +if (lean_obj_tag(x_171) == 0) +{ +lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; +x_172 = lean_ctor_get(x_171, 0); +lean_inc(x_172); +x_173 = lean_ctor_get(x_171, 1); +lean_inc(x_173); +lean_dec(x_171); +x_174 = l_Lean_Elab_Command_commandElabAttribute; +x_175 = lean_ctor_get(x_174, 1); +lean_inc(x_175); +x_176 = lean_ctor_get(x_172, 0); +lean_inc(x_176); +x_177 = l_Lean_PersistentEnvExtension_getState___rarg(x_175, x_176); +lean_dec(x_176); +lean_dec(x_175); +x_178 = lean_ctor_get(x_177, 1); +lean_inc(x_178); +lean_dec(x_177); +lean_inc(x_1); +x_179 = l_Lean_Syntax_getKind(x_1); +x_180 = l_Lean_SMap_find_x3f___at_Lean_Elab_Command_elabCommand___main___spec__1(x_178, x_179); +if (lean_obj_tag(x_180) == 0) +{ +lean_object* x_181; +lean_dec(x_172); +lean_inc(x_169); +x_181 = l_Lean_Elab_Command_getEnv(x_169, x_173); +if (lean_obj_tag(x_181) == 0) +{ +lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_192; lean_object* x_193; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; +x_182 = lean_ctor_get(x_181, 0); +lean_inc(x_182); +x_183 = lean_ctor_get(x_181, 1); +lean_inc(x_183); +if (lean_is_exclusive(x_181)) { + lean_ctor_release(x_181, 0); + lean_ctor_release(x_181, 1); + x_184 = x_181; +} else { + lean_dec_ref(x_181); + x_184 = lean_box(0); +} +x_209 = l_Lean_Elab_Command_getCurrMacroScope(x_169, x_183); +x_210 = lean_ctor_get(x_209, 0); +lean_inc(x_210); +x_211 = lean_ctor_get(x_209, 1); +lean_inc(x_211); +lean_dec(x_209); +lean_inc(x_169); +x_212 = l_Lean_Elab_Command_getEnv(x_169, x_211); +if (lean_obj_tag(x_212) == 0) +{ +lean_object* x_213; lean_object* x_214; lean_object* x_215; +x_213 = lean_ctor_get(x_212, 0); +lean_inc(x_213); +x_214 = lean_ctor_get(x_212, 1); +lean_inc(x_214); +lean_dec(x_212); +lean_inc(x_169); +x_215 = l___private_Init_Lean_Elab_Command_2__getState(x_169, x_214); +if (lean_obj_tag(x_215) == 0) +{ +lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; +x_216 = lean_ctor_get(x_215, 0); +lean_inc(x_216); +x_217 = lean_ctor_get(x_215, 1); +lean_inc(x_217); +lean_dec(x_215); +x_218 = lean_ctor_get(x_216, 3); +lean_inc(x_218); +lean_dec(x_216); +x_219 = lean_environment_main_module(x_213); +x_220 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_220, 0, x_219); +lean_ctor_set(x_220, 1, x_210); +lean_inc(x_1); +x_221 = l_Lean_Elab_getMacros(x_182, x_1, x_220, x_218); +lean_dec(x_182); +if (lean_obj_tag(x_221) == 0) +{ +lean_object* x_222; lean_object* x_223; lean_object* x_224; +x_222 = lean_ctor_get(x_221, 0); +lean_inc(x_222); +x_223 = lean_ctor_get(x_221, 1); +lean_inc(x_223); +lean_dec(x_221); +lean_inc(x_169); +x_224 = l___private_Init_Lean_Elab_Command_2__getState(x_169, x_217); +if (lean_obj_tag(x_224) == 0) +{ +lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; +x_225 = lean_ctor_get(x_224, 0); lean_inc(x_225); -x_226 = lean_ctor_get(x_223, 1); +x_226 = lean_ctor_get(x_224, 1); lean_inc(x_226); -if (lean_is_exclusive(x_223)) { - lean_ctor_release(x_223, 0); - lean_ctor_release(x_223, 1); - x_227 = x_223; -} else { - lean_dec_ref(x_223); - x_227 = lean_box(0); -} -if (lean_is_scalar(x_227)) { - x_228 = lean_alloc_ctor(1, 2, 0); -} else { - x_228 = x_227; -} -lean_ctor_set(x_228, 0, x_225); -lean_ctor_set(x_228, 1, x_226); -return x_228; -} -} -} -else -{ -lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; -lean_dec(x_142); -lean_dec(x_136); -lean_dec(x_25); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_229 = lean_ctor_get(x_217, 0); +lean_dec(x_224); +x_227 = lean_ctor_get(x_225, 0); +lean_inc(x_227); +x_228 = lean_ctor_get(x_225, 1); +lean_inc(x_228); +x_229 = lean_ctor_get(x_225, 2); lean_inc(x_229); -x_230 = lean_ctor_get(x_217, 1); +x_230 = lean_ctor_get(x_225, 4); lean_inc(x_230); -if (lean_is_exclusive(x_217)) { - lean_ctor_release(x_217, 0); - lean_ctor_release(x_217, 1); - x_231 = x_217; +if (lean_is_exclusive(x_225)) { + lean_ctor_release(x_225, 0); + lean_ctor_release(x_225, 1); + lean_ctor_release(x_225, 2); + lean_ctor_release(x_225, 3); + lean_ctor_release(x_225, 4); + x_231 = x_225; } else { - lean_dec_ref(x_217); + lean_dec_ref(x_225); x_231 = lean_box(0); } if (lean_is_scalar(x_231)) { - x_232 = lean_alloc_ctor(1, 2, 0); + x_232 = lean_alloc_ctor(0, 5, 0); } else { x_232 = x_231; } -lean_ctor_set(x_232, 0, x_229); -lean_ctor_set(x_232, 1, x_230); -return x_232; -} -} -else +lean_ctor_set(x_232, 0, x_227); +lean_ctor_set(x_232, 1, x_228); +lean_ctor_set(x_232, 2, x_229); +lean_ctor_set(x_232, 3, x_223); +lean_ctor_set(x_232, 4, x_230); +lean_inc(x_169); +x_233 = l___private_Init_Lean_Elab_Command_3__setState(x_232, x_169, x_226); +if (lean_obj_tag(x_233) == 0) { -lean_object* x_233; lean_object* x_234; -lean_dec(x_136); -lean_dec(x_25); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_233 = lean_unsigned_to_nat(0u); -x_234 = l_Array_forMAux___main___at_Lean_Elab_Command_elabCommand___main___spec__7(x_214, x_233, x_142, x_141); -lean_dec(x_214); -return x_234; -} +lean_object* x_234; +lean_dec(x_184); +lean_dec(x_179); +lean_dec(x_169); +x_234 = lean_ctor_get(x_233, 1); +lean_inc(x_234); +lean_dec(x_233); +x_185 = x_222; +x_186 = x_234; +goto block_191; } else { lean_object* x_235; lean_object* x_236; -lean_dec(x_136); +lean_dec(x_222); +lean_dec(x_163); lean_dec(x_25); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_235 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_236 = l_Lean_Elab_Command_throwError___rarg(x_1, x_235, x_142, x_141); -lean_dec(x_1); -return x_236; +x_235 = lean_ctor_get(x_233, 0); +lean_inc(x_235); +x_236 = lean_ctor_get(x_233, 1); +lean_inc(x_236); +lean_dec(x_233); +x_192 = x_235; +x_193 = x_236; +goto block_208; } -block_212: -{ -lean_object* x_144; -lean_inc(x_142); -x_144 = l___private_Init_Lean_Elab_Command_2__getState(x_142, x_143); -if (lean_obj_tag(x_144) == 0) -{ -lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; -x_145 = lean_ctor_get(x_144, 0); -lean_inc(x_145); -x_146 = lean_ctor_get(x_144, 1); -lean_inc(x_146); -lean_dec(x_144); -x_147 = l_Lean_Elab_Command_commandElabAttribute; -x_148 = lean_ctor_get(x_147, 1); -lean_inc(x_148); -x_149 = lean_ctor_get(x_145, 0); -lean_inc(x_149); -x_150 = l_Lean_PersistentEnvExtension_getState___rarg(x_148, x_149); -lean_dec(x_149); -lean_dec(x_148); -x_151 = lean_ctor_get(x_150, 1); -lean_inc(x_151); -lean_dec(x_150); -lean_inc(x_1); -x_152 = l_Lean_Syntax_getKind(x_1); -x_153 = l_Lean_SMap_find_x3f___at_Lean_Elab_Command_elabCommand___main___spec__1(x_151, x_152); -if (lean_obj_tag(x_153) == 0) -{ -lean_object* x_154; -lean_dec(x_145); -lean_inc(x_142); -x_154 = l_Lean_Elab_Command_getEnv(x_142, x_146); -if (lean_obj_tag(x_154) == 0) -{ -lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_165; lean_object* x_166; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; -x_155 = lean_ctor_get(x_154, 0); -lean_inc(x_155); -x_156 = lean_ctor_get(x_154, 1); -lean_inc(x_156); -if (lean_is_exclusive(x_154)) { - lean_ctor_release(x_154, 0); - lean_ctor_release(x_154, 1); - x_157 = x_154; -} else { - lean_dec_ref(x_154); - x_157 = lean_box(0); } -x_182 = l_Lean_Elab_Command_getCurrMacroScope(x_142, x_156); -x_183 = lean_ctor_get(x_182, 0); -lean_inc(x_183); -x_184 = lean_ctor_get(x_182, 1); -lean_inc(x_184); +else +{ +lean_object* x_237; lean_object* x_238; +lean_dec(x_223); +lean_dec(x_222); +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_237 = lean_ctor_get(x_224, 0); +lean_inc(x_237); +x_238 = lean_ctor_get(x_224, 1); +lean_inc(x_238); +lean_dec(x_224); +x_192 = x_237; +x_193 = x_238; +goto block_208; +} +} +else +{ +lean_object* x_239; +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_239 = lean_ctor_get(x_221, 0); +lean_inc(x_239); +lean_dec(x_221); +if (lean_obj_tag(x_239) == 0) +{ +lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; +x_240 = lean_ctor_get(x_239, 0); +lean_inc(x_240); +lean_dec(x_239); +x_241 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_241, 0, x_240); +x_242 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_242, 0, x_241); +lean_inc(x_169); +x_243 = l_Lean_Elab_Command_throwError___rarg(x_1, x_242, x_169, x_217); +x_244 = lean_ctor_get(x_243, 0); +lean_inc(x_244); +x_245 = lean_ctor_get(x_243, 1); +lean_inc(x_245); +lean_dec(x_243); +x_192 = x_244; +x_193 = x_245; +goto block_208; +} +else +{ +lean_object* x_246; +x_246 = lean_box(1); +x_192 = x_246; +x_193 = x_217; +goto block_208; +} +} +} +else +{ +lean_object* x_247; lean_object* x_248; +lean_dec(x_213); +lean_dec(x_210); lean_dec(x_182); -lean_inc(x_142); -x_185 = l_Lean_Elab_Command_getEnv(x_142, x_184); -if (lean_obj_tag(x_185) == 0) -{ -lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; -x_186 = lean_ctor_get(x_185, 0); -lean_inc(x_186); -x_187 = lean_ctor_get(x_185, 1); -lean_inc(x_187); -lean_dec(x_185); -x_188 = lean_environment_main_module(x_186); -x_189 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_189, 0, x_188); -lean_ctor_set(x_189, 1, x_183); -lean_inc(x_1); -x_190 = l_Lean_Elab_getMacros(x_155, x_1, x_189); -lean_dec(x_155); -if (lean_obj_tag(x_190) == 0) -{ -lean_object* x_191; -lean_dec(x_136); +lean_dec(x_163); lean_dec(x_25); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_191 = lean_ctor_get(x_190, 0); -lean_inc(x_191); -lean_dec(x_190); -if (lean_obj_tag(x_191) == 0) -{ -lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; -x_192 = lean_ctor_get(x_191, 0); -lean_inc(x_192); -lean_dec(x_191); -x_193 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_193, 0, x_192); -x_194 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_194, 0, x_193); -lean_inc(x_142); -x_195 = l_Lean_Elab_Command_throwError___rarg(x_1, x_194, x_142, x_187); -x_196 = lean_ctor_get(x_195, 0); -lean_inc(x_196); -x_197 = lean_ctor_get(x_195, 1); -lean_inc(x_197); -lean_dec(x_195); -x_165 = x_196; -x_166 = x_197; -goto block_181; -} -else -{ -lean_object* x_198; -x_198 = lean_box(1); -x_165 = x_198; -x_166 = x_187; -goto block_181; +x_247 = lean_ctor_get(x_215, 0); +lean_inc(x_247); +x_248 = lean_ctor_get(x_215, 1); +lean_inc(x_248); +lean_dec(x_215); +x_192 = x_247; +x_193 = x_248; +goto block_208; } } else { -lean_object* x_199; -lean_dec(x_157); -lean_dec(x_152); -lean_dec(x_142); -x_199 = lean_ctor_get(x_190, 0); -lean_inc(x_199); -lean_dec(x_190); -x_158 = x_199; -x_159 = x_187; -goto block_164; -} -} -else -{ -lean_object* x_200; lean_object* x_201; -lean_dec(x_183); -lean_dec(x_155); -lean_dec(x_136); +lean_object* x_249; lean_object* x_250; +lean_dec(x_210); +lean_dec(x_182); +lean_dec(x_163); lean_dec(x_25); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_200 = lean_ctor_get(x_185, 0); -lean_inc(x_200); -x_201 = lean_ctor_get(x_185, 1); -lean_inc(x_201); -lean_dec(x_185); -x_165 = x_200; -x_166 = x_201; -goto block_181; +x_249 = lean_ctor_get(x_212, 0); +lean_inc(x_249); +x_250 = lean_ctor_get(x_212, 1); +lean_inc(x_250); +lean_dec(x_212); +x_192 = x_249; +x_193 = x_250; +goto block_208; } -block_164: +block_191: { -lean_object* x_160; lean_object* x_161; lean_object* x_162; -lean_inc(x_158); -x_160 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_160, 0, x_1); -lean_ctor_set(x_160, 1, x_158); -x_161 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_161, 0, x_160); -lean_ctor_set(x_161, 1, x_12); -x_162 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_162, 0, x_7); -lean_ctor_set(x_162, 1, x_8); -lean_ctor_set(x_162, 2, x_9); -lean_ctor_set(x_162, 3, x_25); -lean_ctor_set(x_162, 4, x_11); -lean_ctor_set(x_162, 5, x_161); -lean_ctor_set(x_162, 6, x_136); -x_1 = x_158; -x_2 = x_162; -x_3 = x_159; +lean_object* x_187; lean_object* x_188; lean_object* x_189; +lean_inc(x_185); +x_187 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_187, 0, x_1); +lean_ctor_set(x_187, 1, x_185); +x_188 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_188, 0, x_187); +lean_ctor_set(x_188, 1, x_12); +x_189 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_189, 0, x_7); +lean_ctor_set(x_189, 1, x_8); +lean_ctor_set(x_189, 2, x_9); +lean_ctor_set(x_189, 3, x_25); +lean_ctor_set(x_189, 4, x_11); +lean_ctor_set(x_189, 5, x_188); +lean_ctor_set(x_189, 6, x_163); +x_1 = x_185; +x_2 = x_189; +x_3 = x_186; goto _start; } -block_181: +block_208: { -if (lean_obj_tag(x_165) == 0) +if (lean_obj_tag(x_192) == 0) { -lean_object* x_167; -lean_dec(x_152); -lean_dec(x_142); +lean_object* x_194; +lean_dec(x_179); +lean_dec(x_169); lean_dec(x_1); -if (lean_is_scalar(x_157)) { - x_167 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_184)) { + x_194 = lean_alloc_ctor(1, 2, 0); } else { - x_167 = x_157; - lean_ctor_set_tag(x_167, 1); + x_194 = x_184; + lean_ctor_set_tag(x_194, 1); } -lean_ctor_set(x_167, 0, x_165); -lean_ctor_set(x_167, 1, x_166); -return x_167; +lean_ctor_set(x_194, 0, x_192); +lean_ctor_set(x_194, 1, x_193); +return x_194; } else { -lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; -lean_dec(x_157); -x_168 = l_Lean_Name_toString___closed__1; -x_169 = l_Lean_Name_toStringWithSep___main(x_168, x_152); -x_170 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_170, 0, x_169); -x_171 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_171, 0, x_170); -x_172 = l_Lean_Elab_Term_elabTermAux___main___closed__3; -x_173 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_173, 0, x_172); -lean_ctor_set(x_173, 1, x_171); -x_174 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_175 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_175, 0, x_173); -lean_ctor_set(x_175, 1, x_174); -x_176 = l_Lean_Elab_Command_throwError___rarg(x_1, x_175, x_142, x_166); +lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; +lean_dec(x_184); +x_195 = l_Lean_Name_toString___closed__1; +x_196 = l_Lean_Name_toStringWithSep___main(x_195, x_179); +x_197 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_197, 0, x_196); +x_198 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_198, 0, x_197); +x_199 = l_Lean_Elab_Term_elabTermAux___main___closed__3; +x_200 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_200, 0, x_199); +lean_ctor_set(x_200, 1, x_198); +x_201 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_202 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_202, 0, x_200); +lean_ctor_set(x_202, 1, x_201); +x_203 = l_Lean_Elab_Command_throwError___rarg(x_1, x_202, x_169, x_193); lean_dec(x_1); -x_177 = lean_ctor_get(x_176, 0); -lean_inc(x_177); -x_178 = lean_ctor_get(x_176, 1); -lean_inc(x_178); -if (lean_is_exclusive(x_176)) { - lean_ctor_release(x_176, 0); - lean_ctor_release(x_176, 1); - x_179 = x_176; +x_204 = lean_ctor_get(x_203, 0); +lean_inc(x_204); +x_205 = lean_ctor_get(x_203, 1); +lean_inc(x_205); +if (lean_is_exclusive(x_203)) { + lean_ctor_release(x_203, 0); + lean_ctor_release(x_203, 1); + x_206 = x_203; } else { - lean_dec_ref(x_176); - x_179 = lean_box(0); + lean_dec_ref(x_203); + x_206 = lean_box(0); } -if (lean_is_scalar(x_179)) { - x_180 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_206)) { + x_207 = lean_alloc_ctor(1, 2, 0); } else { - x_180 = x_179; + x_207 = x_206; } -lean_ctor_set(x_180, 0, x_177); -lean_ctor_set(x_180, 1, x_178); -return x_180; -} -} -} -else -{ -lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; -lean_dec(x_152); -lean_dec(x_142); -lean_dec(x_136); -lean_dec(x_25); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_202 = lean_ctor_get(x_154, 0); -lean_inc(x_202); -x_203 = lean_ctor_get(x_154, 1); -lean_inc(x_203); -if (lean_is_exclusive(x_154)) { - lean_ctor_release(x_154, 0); - lean_ctor_release(x_154, 1); - x_204 = x_154; -} else { - lean_dec_ref(x_154); - x_204 = lean_box(0); -} -if (lean_is_scalar(x_204)) { - x_205 = lean_alloc_ctor(1, 2, 0); -} else { - x_205 = x_204; -} -lean_ctor_set(x_205, 0, x_202); -lean_ctor_set(x_205, 1, x_203); -return x_205; -} -} -else -{ -lean_object* x_206; lean_object* x_207; -lean_dec(x_152); -lean_dec(x_136); -lean_dec(x_25); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -x_206 = lean_ctor_get(x_153, 0); -lean_inc(x_206); -lean_dec(x_153); -x_207 = l___private_Init_Lean_Elab_Command_5__elabCommandUsing___main(x_145, x_1, x_206, x_142, x_146); +lean_ctor_set(x_207, 0, x_204); +lean_ctor_set(x_207, 1, x_205); return x_207; } } +} else { -lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; -lean_dec(x_142); -lean_dec(x_136); +lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; +lean_dec(x_179); +lean_dec(x_169); +lean_dec(x_163); lean_dec(x_25); lean_dec(x_12); lean_dec(x_11); @@ -6048,33 +6510,51 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_208 = lean_ctor_get(x_144, 0); -lean_inc(x_208); -x_209 = lean_ctor_get(x_144, 1); -lean_inc(x_209); -if (lean_is_exclusive(x_144)) { - lean_ctor_release(x_144, 0); - lean_ctor_release(x_144, 1); - x_210 = x_144; +x_251 = lean_ctor_get(x_181, 0); +lean_inc(x_251); +x_252 = lean_ctor_get(x_181, 1); +lean_inc(x_252); +if (lean_is_exclusive(x_181)) { + lean_ctor_release(x_181, 0); + lean_ctor_release(x_181, 1); + x_253 = x_181; } else { - lean_dec_ref(x_144); - x_210 = lean_box(0); + lean_dec_ref(x_181); + x_253 = lean_box(0); } -if (lean_is_scalar(x_210)) { - x_211 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_253)) { + x_254 = lean_alloc_ctor(1, 2, 0); } else { - x_211 = x_210; -} -lean_ctor_set(x_211, 0, x_208); -lean_ctor_set(x_211, 1, x_209); -return x_211; + x_254 = x_253; } +lean_ctor_set(x_254, 0, x_251); +lean_ctor_set(x_254, 1, x_252); +return x_254; } } else { -lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; -lean_dec(x_136); +lean_object* x_255; lean_object* x_256; +lean_dec(x_179); +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_255 = lean_ctor_get(x_180, 0); +lean_inc(x_255); +lean_dec(x_180); +x_256 = l___private_Init_Lean_Elab_Command_5__elabCommandUsing___main(x_172, x_1, x_255, x_169, x_173); +return x_256; +} +} +else +{ +lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; +lean_dec(x_169); +lean_dec(x_163); lean_dec(x_25); lean_dec(x_12); lean_dec(x_11); @@ -6082,32 +6562,66 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_237 = lean_ctor_get(x_140, 0); -lean_inc(x_237); -x_238 = lean_ctor_get(x_140, 1); -lean_inc(x_238); -if (lean_is_exclusive(x_140)) { - lean_ctor_release(x_140, 0); - lean_ctor_release(x_140, 1); - x_239 = x_140; +x_257 = lean_ctor_get(x_171, 0); +lean_inc(x_257); +x_258 = lean_ctor_get(x_171, 1); +lean_inc(x_258); +if (lean_is_exclusive(x_171)) { + lean_ctor_release(x_171, 0); + lean_ctor_release(x_171, 1); + x_259 = x_171; } else { - lean_dec_ref(x_140); - x_239 = lean_box(0); + lean_dec_ref(x_171); + x_259 = lean_box(0); } -if (lean_is_scalar(x_239)) { - x_240 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_259)) { + x_260 = lean_alloc_ctor(1, 2, 0); } else { - x_240 = x_239; + x_260 = x_259; } -lean_ctor_set(x_240, 0, x_237); -lean_ctor_set(x_240, 1, x_238); -return x_240; +lean_ctor_set(x_260, 0, x_257); +lean_ctor_set(x_260, 1, x_258); +return x_260; } } } else { -uint8_t x_241; +lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; +lean_dec(x_163); +lean_dec(x_25); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_1); +x_286 = lean_ctor_get(x_167, 0); +lean_inc(x_286); +x_287 = lean_ctor_get(x_167, 1); +lean_inc(x_287); +if (lean_is_exclusive(x_167)) { + lean_ctor_release(x_167, 0); + lean_ctor_release(x_167, 1); + x_288 = x_167; +} else { + lean_dec_ref(x_167); + x_288 = lean_box(0); +} +if (lean_is_scalar(x_288)) { + x_289 = lean_alloc_ctor(1, 2, 0); +} else { + x_289 = x_288; +} +lean_ctor_set(x_289, 0, x_286); +lean_ctor_set(x_289, 1, x_287); +return x_289; +} +} +} +else +{ +uint8_t x_290; lean_dec(x_2); lean_dec(x_25); lean_dec(x_12); @@ -6116,652 +6630,780 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_241 = !lean_is_exclusive(x_26); -if (x_241 == 0) +x_290 = !lean_is_exclusive(x_26); +if (x_290 == 0) { return x_26; } else { -lean_object* x_242; lean_object* x_243; lean_object* x_244; -x_242 = lean_ctor_get(x_26, 0); -x_243 = lean_ctor_get(x_26, 1); -lean_inc(x_243); -lean_inc(x_242); +lean_object* x_291; lean_object* x_292; lean_object* x_293; +x_291 = lean_ctor_get(x_26, 0); +x_292 = lean_ctor_get(x_26, 1); +lean_inc(x_292); +lean_inc(x_291); lean_dec(x_26); -x_244 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_244, 0, x_242); -lean_ctor_set(x_244, 1, x_243); -return x_244; +x_293 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_293, 0, x_291); +lean_ctor_set(x_293, 1, x_292); +return x_293; } } } else { -lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; +lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_dec(x_2); -x_245 = lean_unsigned_to_nat(1u); -x_246 = lean_nat_add(x_10, x_245); +x_294 = lean_unsigned_to_nat(1u); +x_295 = lean_nat_add(x_10, x_294); lean_dec(x_10); lean_inc(x_12); lean_inc(x_11); -lean_inc(x_246); +lean_inc(x_295); lean_inc(x_9); lean_inc(x_8); lean_inc(x_7); -x_247 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_247, 0, x_7); -lean_ctor_set(x_247, 1, x_8); -lean_ctor_set(x_247, 2, x_9); -lean_ctor_set(x_247, 3, x_246); -lean_ctor_set(x_247, 4, x_11); -lean_ctor_set(x_247, 5, x_12); -lean_ctor_set(x_247, 6, x_13); -lean_inc(x_247); -x_248 = l___private_Init_Lean_Elab_Command_2__getState(x_247, x_6); -if (lean_obj_tag(x_248) == 0) +x_296 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_296, 0, x_7); +lean_ctor_set(x_296, 1, x_8); +lean_ctor_set(x_296, 2, x_9); +lean_ctor_set(x_296, 3, x_295); +lean_ctor_set(x_296, 4, x_11); +lean_ctor_set(x_296, 5, x_12); +lean_ctor_set(x_296, 6, x_13); +lean_inc(x_296); +x_297 = l___private_Init_Lean_Elab_Command_2__getState(x_296, x_6); +if (lean_obj_tag(x_297) == 0) { -lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; -x_249 = lean_ctor_get(x_248, 0); -lean_inc(x_249); -x_250 = lean_ctor_get(x_248, 1); -lean_inc(x_250); -lean_dec(x_248); -x_251 = lean_ctor_get(x_249, 0); -lean_inc(x_251); -x_252 = lean_ctor_get(x_249, 1); -lean_inc(x_252); -x_253 = lean_ctor_get(x_249, 2); -lean_inc(x_253); -x_254 = lean_ctor_get(x_249, 3); -lean_inc(x_254); -x_255 = lean_ctor_get(x_249, 4); -lean_inc(x_255); -if (lean_is_exclusive(x_249)) { - lean_ctor_release(x_249, 0); - lean_ctor_release(x_249, 1); - lean_ctor_release(x_249, 2); - lean_ctor_release(x_249, 3); - lean_ctor_release(x_249, 4); - x_256 = x_249; +lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; +x_298 = lean_ctor_get(x_297, 0); +lean_inc(x_298); +x_299 = lean_ctor_get(x_297, 1); +lean_inc(x_299); +lean_dec(x_297); +x_300 = lean_ctor_get(x_298, 0); +lean_inc(x_300); +x_301 = lean_ctor_get(x_298, 1); +lean_inc(x_301); +x_302 = lean_ctor_get(x_298, 2); +lean_inc(x_302); +x_303 = lean_ctor_get(x_298, 3); +lean_inc(x_303); +x_304 = lean_ctor_get(x_298, 4); +lean_inc(x_304); +if (lean_is_exclusive(x_298)) { + lean_ctor_release(x_298, 0); + lean_ctor_release(x_298, 1); + lean_ctor_release(x_298, 2); + lean_ctor_release(x_298, 3); + lean_ctor_release(x_298, 4); + x_305 = x_298; } else { - lean_dec_ref(x_249); - x_256 = lean_box(0); + lean_dec_ref(x_298); + x_305 = lean_box(0); } -x_257 = lean_nat_add(x_254, x_245); -if (lean_is_scalar(x_256)) { - x_258 = lean_alloc_ctor(0, 5, 0); +x_306 = lean_nat_add(x_303, x_294); +if (lean_is_scalar(x_305)) { + x_307 = lean_alloc_ctor(0, 5, 0); } else { - x_258 = x_256; + x_307 = x_305; } -lean_ctor_set(x_258, 0, x_251); -lean_ctor_set(x_258, 1, x_252); -lean_ctor_set(x_258, 2, x_253); -lean_ctor_set(x_258, 3, x_257); -lean_ctor_set(x_258, 4, x_255); -x_259 = l___private_Init_Lean_Elab_Command_3__setState(x_258, x_247, x_250); -if (lean_obj_tag(x_259) == 0) +lean_ctor_set(x_307, 0, x_300); +lean_ctor_set(x_307, 1, x_301); +lean_ctor_set(x_307, 2, x_302); +lean_ctor_set(x_307, 3, x_306); +lean_ctor_set(x_307, 4, x_304); +x_308 = l___private_Init_Lean_Elab_Command_3__setState(x_307, x_296, x_299); +if (lean_obj_tag(x_308) == 0) { -lean_object* x_260; lean_object* x_261; lean_object* x_262; -x_260 = lean_ctor_get(x_259, 1); -lean_inc(x_260); -lean_dec(x_259); -lean_inc(x_254); +lean_object* x_309; lean_object* x_310; lean_object* x_311; +x_309 = lean_ctor_get(x_308, 1); +lean_inc(x_309); +lean_dec(x_308); +lean_inc(x_303); lean_inc(x_12); lean_inc(x_11); -lean_inc(x_246); +lean_inc(x_295); lean_inc(x_9); lean_inc(x_8); lean_inc(x_7); -x_261 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_261, 0, x_7); -lean_ctor_set(x_261, 1, x_8); -lean_ctor_set(x_261, 2, x_9); -lean_ctor_set(x_261, 3, x_246); -lean_ctor_set(x_261, 4, x_11); -lean_ctor_set(x_261, 5, x_12); -lean_ctor_set(x_261, 6, x_254); +x_310 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_310, 0, x_7); +lean_ctor_set(x_310, 1, x_8); +lean_ctor_set(x_310, 2, x_9); +lean_ctor_set(x_310, 3, x_295); +lean_ctor_set(x_310, 4, x_11); +lean_ctor_set(x_310, 5, x_12); +lean_ctor_set(x_310, 6, x_303); if (lean_obj_tag(x_1) == 1) { -lean_object* x_332; lean_object* x_333; lean_object* x_334; uint8_t x_335; -x_332 = lean_ctor_get(x_1, 0); -lean_inc(x_332); -x_333 = lean_ctor_get(x_1, 1); -lean_inc(x_333); -x_334 = l_Lean_nullKind; -x_335 = lean_name_eq(x_332, x_334); -lean_dec(x_332); -if (x_335 == 0) +lean_object* x_403; lean_object* x_404; lean_object* x_405; uint8_t x_406; +x_403 = lean_ctor_get(x_1, 0); +lean_inc(x_403); +x_404 = lean_ctor_get(x_1, 1); +lean_inc(x_404); +x_405 = l_Lean_nullKind; +x_406 = lean_name_eq(x_403, x_405); +lean_dec(x_403); +if (x_406 == 0) { -lean_object* x_336; -lean_dec(x_333); -lean_inc(x_261); -x_336 = l_Lean_Elab_Command_getOptions(x_261, x_260); -if (lean_obj_tag(x_336) == 0) -{ -lean_object* x_337; lean_object* x_338; lean_object* x_339; uint8_t x_340; -x_337 = lean_ctor_get(x_336, 0); -lean_inc(x_337); -x_338 = lean_ctor_get(x_336, 1); -lean_inc(x_338); -lean_dec(x_336); -x_339 = l_Lean_Elab_Command_elabCommand___main___closed__1; -x_340 = l_Lean_checkTraceOption(x_337, x_339); -lean_dec(x_337); -if (x_340 == 0) -{ -x_262 = x_338; -goto block_331; -} -else -{ -lean_object* x_341; lean_object* x_342; -lean_inc(x_1); -x_341 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_341, 0, x_1); -lean_inc(x_261); -x_342 = l_Lean_Elab_Command_logTrace(x_339, x_1, x_341, x_261, x_338); -if (lean_obj_tag(x_342) == 0) -{ -lean_object* x_343; -x_343 = lean_ctor_get(x_342, 1); -lean_inc(x_343); -lean_dec(x_342); -x_262 = x_343; -goto block_331; -} -else -{ -lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; -lean_dec(x_261); -lean_dec(x_254); -lean_dec(x_246); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_344 = lean_ctor_get(x_342, 0); -lean_inc(x_344); -x_345 = lean_ctor_get(x_342, 1); -lean_inc(x_345); -if (lean_is_exclusive(x_342)) { - lean_ctor_release(x_342, 0); - lean_ctor_release(x_342, 1); - x_346 = x_342; -} else { - lean_dec_ref(x_342); - x_346 = lean_box(0); -} -if (lean_is_scalar(x_346)) { - x_347 = lean_alloc_ctor(1, 2, 0); -} else { - x_347 = x_346; -} -lean_ctor_set(x_347, 0, x_344); -lean_ctor_set(x_347, 1, x_345); -return x_347; -} -} -} -else -{ -lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; -lean_dec(x_261); -lean_dec(x_254); -lean_dec(x_246); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_348 = lean_ctor_get(x_336, 0); -lean_inc(x_348); -x_349 = lean_ctor_get(x_336, 1); -lean_inc(x_349); -if (lean_is_exclusive(x_336)) { - lean_ctor_release(x_336, 0); - lean_ctor_release(x_336, 1); - x_350 = x_336; -} else { - lean_dec_ref(x_336); - x_350 = lean_box(0); -} -if (lean_is_scalar(x_350)) { - x_351 = lean_alloc_ctor(1, 2, 0); -} else { - x_351 = x_350; -} -lean_ctor_set(x_351, 0, x_348); -lean_ctor_set(x_351, 1, x_349); -return x_351; -} -} -else -{ -lean_object* x_352; lean_object* x_353; -lean_dec(x_254); -lean_dec(x_246); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_352 = lean_unsigned_to_nat(0u); -x_353 = l_Array_forMAux___main___at_Lean_Elab_Command_elabCommand___main___spec__7(x_333, x_352, x_261, x_260); -lean_dec(x_333); -return x_353; -} -} -else -{ -lean_object* x_354; lean_object* x_355; -lean_dec(x_254); -lean_dec(x_246); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -x_354 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_355 = l_Lean_Elab_Command_throwError___rarg(x_1, x_354, x_261, x_260); -lean_dec(x_1); -return x_355; -} -block_331: -{ -lean_object* x_263; -lean_inc(x_261); -x_263 = l___private_Init_Lean_Elab_Command_2__getState(x_261, x_262); -if (lean_obj_tag(x_263) == 0) -{ -lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; -x_264 = lean_ctor_get(x_263, 0); -lean_inc(x_264); -x_265 = lean_ctor_get(x_263, 1); -lean_inc(x_265); -lean_dec(x_263); -x_266 = l_Lean_Elab_Command_commandElabAttribute; -x_267 = lean_ctor_get(x_266, 1); -lean_inc(x_267); -x_268 = lean_ctor_get(x_264, 0); -lean_inc(x_268); -x_269 = l_Lean_PersistentEnvExtension_getState___rarg(x_267, x_268); -lean_dec(x_268); -lean_dec(x_267); -x_270 = lean_ctor_get(x_269, 1); -lean_inc(x_270); -lean_dec(x_269); -lean_inc(x_1); -x_271 = l_Lean_Syntax_getKind(x_1); -x_272 = l_Lean_SMap_find_x3f___at_Lean_Elab_Command_elabCommand___main___spec__1(x_270, x_271); -if (lean_obj_tag(x_272) == 0) -{ -lean_object* x_273; -lean_dec(x_264); -lean_inc(x_261); -x_273 = l_Lean_Elab_Command_getEnv(x_261, x_265); -if (lean_obj_tag(x_273) == 0) -{ -lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_284; lean_object* x_285; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; -x_274 = lean_ctor_get(x_273, 0); -lean_inc(x_274); -x_275 = lean_ctor_get(x_273, 1); -lean_inc(x_275); -if (lean_is_exclusive(x_273)) { - lean_ctor_release(x_273, 0); - lean_ctor_release(x_273, 1); - x_276 = x_273; -} else { - lean_dec_ref(x_273); - x_276 = lean_box(0); -} -x_301 = l_Lean_Elab_Command_getCurrMacroScope(x_261, x_275); -x_302 = lean_ctor_get(x_301, 0); -lean_inc(x_302); -x_303 = lean_ctor_get(x_301, 1); -lean_inc(x_303); -lean_dec(x_301); -lean_inc(x_261); -x_304 = l_Lean_Elab_Command_getEnv(x_261, x_303); -if (lean_obj_tag(x_304) == 0) -{ -lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; -x_305 = lean_ctor_get(x_304, 0); -lean_inc(x_305); -x_306 = lean_ctor_get(x_304, 1); -lean_inc(x_306); -lean_dec(x_304); -x_307 = lean_environment_main_module(x_305); -x_308 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_308, 0, x_307); -lean_ctor_set(x_308, 1, x_302); -lean_inc(x_1); -x_309 = l_Lean_Elab_getMacros(x_274, x_1, x_308); -lean_dec(x_274); -if (lean_obj_tag(x_309) == 0) -{ -lean_object* x_310; -lean_dec(x_254); -lean_dec(x_246); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -x_310 = lean_ctor_get(x_309, 0); +lean_object* x_407; +lean_dec(x_404); lean_inc(x_310); -lean_dec(x_309); -if (lean_obj_tag(x_310) == 0) +x_407 = l_Lean_Elab_Command_getOptions(x_310, x_309); +if (lean_obj_tag(x_407) == 0) { -lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; -x_311 = lean_ctor_get(x_310, 0); -lean_inc(x_311); +lean_object* x_408; lean_object* x_409; lean_object* x_410; uint8_t x_411; +x_408 = lean_ctor_get(x_407, 0); +lean_inc(x_408); +x_409 = lean_ctor_get(x_407, 1); +lean_inc(x_409); +lean_dec(x_407); +x_410 = l_Lean_Elab_Command_elabCommand___main___closed__1; +x_411 = l_Lean_checkTraceOption(x_408, x_410); +lean_dec(x_408); +if (x_411 == 0) +{ +x_311 = x_409; +goto block_402; +} +else +{ +lean_object* x_412; lean_object* x_413; +lean_inc(x_1); +x_412 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_412, 0, x_1); +lean_inc(x_310); +x_413 = l_Lean_Elab_Command_logTrace(x_410, x_1, x_412, x_310, x_409); +if (lean_obj_tag(x_413) == 0) +{ +lean_object* x_414; +x_414 = lean_ctor_get(x_413, 1); +lean_inc(x_414); +lean_dec(x_413); +x_311 = x_414; +goto block_402; +} +else +{ +lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_dec(x_310); -x_312 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_312, 0, x_311); -x_313 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_313, 0, x_312); -lean_inc(x_261); -x_314 = l_Lean_Elab_Command_throwError___rarg(x_1, x_313, x_261, x_306); -x_315 = lean_ctor_get(x_314, 0); -lean_inc(x_315); -x_316 = lean_ctor_get(x_314, 1); -lean_inc(x_316); -lean_dec(x_314); -x_284 = x_315; -x_285 = x_316; -goto block_300; -} -else -{ -lean_object* x_317; -x_317 = lean_box(1); -x_284 = x_317; -x_285 = x_306; -goto block_300; -} -} -else -{ -lean_object* x_318; -lean_dec(x_276); -lean_dec(x_271); -lean_dec(x_261); -x_318 = lean_ctor_get(x_309, 0); -lean_inc(x_318); -lean_dec(x_309); -x_277 = x_318; -x_278 = x_306; -goto block_283; -} -} -else -{ -lean_object* x_319; lean_object* x_320; -lean_dec(x_302); -lean_dec(x_274); -lean_dec(x_254); -lean_dec(x_246); +lean_dec(x_303); +lean_dec(x_295); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_319 = lean_ctor_get(x_304, 0); -lean_inc(x_319); -x_320 = lean_ctor_get(x_304, 1); -lean_inc(x_320); -lean_dec(x_304); -x_284 = x_319; -x_285 = x_320; -goto block_300; +lean_dec(x_1); +x_415 = lean_ctor_get(x_413, 0); +lean_inc(x_415); +x_416 = lean_ctor_get(x_413, 1); +lean_inc(x_416); +if (lean_is_exclusive(x_413)) { + lean_ctor_release(x_413, 0); + lean_ctor_release(x_413, 1); + x_417 = x_413; +} else { + lean_dec_ref(x_413); + x_417 = lean_box(0); } -block_283: +if (lean_is_scalar(x_417)) { + x_418 = lean_alloc_ctor(1, 2, 0); +} else { + x_418 = x_417; +} +lean_ctor_set(x_418, 0, x_415); +lean_ctor_set(x_418, 1, x_416); +return x_418; +} +} +} +else { -lean_object* x_279; lean_object* x_280; lean_object* x_281; -lean_inc(x_277); -x_279 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_279, 0, x_1); -lean_ctor_set(x_279, 1, x_277); -x_280 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_280, 0, x_279); -lean_ctor_set(x_280, 1, x_12); -x_281 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_281, 0, x_7); -lean_ctor_set(x_281, 1, x_8); -lean_ctor_set(x_281, 2, x_9); -lean_ctor_set(x_281, 3, x_246); -lean_ctor_set(x_281, 4, x_11); -lean_ctor_set(x_281, 5, x_280); -lean_ctor_set(x_281, 6, x_254); -x_1 = x_277; -x_2 = x_281; -x_3 = x_278; +lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; +lean_dec(x_310); +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_1); +x_419 = lean_ctor_get(x_407, 0); +lean_inc(x_419); +x_420 = lean_ctor_get(x_407, 1); +lean_inc(x_420); +if (lean_is_exclusive(x_407)) { + lean_ctor_release(x_407, 0); + lean_ctor_release(x_407, 1); + x_421 = x_407; +} else { + lean_dec_ref(x_407); + x_421 = lean_box(0); +} +if (lean_is_scalar(x_421)) { + x_422 = lean_alloc_ctor(1, 2, 0); +} else { + x_422 = x_421; +} +lean_ctor_set(x_422, 0, x_419); +lean_ctor_set(x_422, 1, x_420); +return x_422; +} +} +else +{ +lean_object* x_423; lean_object* x_424; +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_1); +x_423 = lean_unsigned_to_nat(0u); +x_424 = l_Array_forMAux___main___at_Lean_Elab_Command_elabCommand___main___spec__7(x_404, x_423, x_310, x_309); +lean_dec(x_404); +return x_424; +} +} +else +{ +lean_object* x_425; lean_object* x_426; +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_425 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_426 = l_Lean_Elab_Command_throwError___rarg(x_1, x_425, x_310, x_309); +lean_dec(x_1); +return x_426; +} +block_402: +{ +lean_object* x_312; +lean_inc(x_310); +x_312 = l___private_Init_Lean_Elab_Command_2__getState(x_310, x_311); +if (lean_obj_tag(x_312) == 0) +{ +lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; +x_313 = lean_ctor_get(x_312, 0); +lean_inc(x_313); +x_314 = lean_ctor_get(x_312, 1); +lean_inc(x_314); +lean_dec(x_312); +x_315 = l_Lean_Elab_Command_commandElabAttribute; +x_316 = lean_ctor_get(x_315, 1); +lean_inc(x_316); +x_317 = lean_ctor_get(x_313, 0); +lean_inc(x_317); +x_318 = l_Lean_PersistentEnvExtension_getState___rarg(x_316, x_317); +lean_dec(x_317); +lean_dec(x_316); +x_319 = lean_ctor_get(x_318, 1); +lean_inc(x_319); +lean_dec(x_318); +lean_inc(x_1); +x_320 = l_Lean_Syntax_getKind(x_1); +x_321 = l_Lean_SMap_find_x3f___at_Lean_Elab_Command_elabCommand___main___spec__1(x_319, x_320); +if (lean_obj_tag(x_321) == 0) +{ +lean_object* x_322; +lean_dec(x_313); +lean_inc(x_310); +x_322 = l_Lean_Elab_Command_getEnv(x_310, x_314); +if (lean_obj_tag(x_322) == 0) +{ +lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_333; lean_object* x_334; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; +x_323 = lean_ctor_get(x_322, 0); +lean_inc(x_323); +x_324 = lean_ctor_get(x_322, 1); +lean_inc(x_324); +if (lean_is_exclusive(x_322)) { + lean_ctor_release(x_322, 0); + lean_ctor_release(x_322, 1); + x_325 = x_322; +} else { + lean_dec_ref(x_322); + x_325 = lean_box(0); +} +x_350 = l_Lean_Elab_Command_getCurrMacroScope(x_310, x_324); +x_351 = lean_ctor_get(x_350, 0); +lean_inc(x_351); +x_352 = lean_ctor_get(x_350, 1); +lean_inc(x_352); +lean_dec(x_350); +lean_inc(x_310); +x_353 = l_Lean_Elab_Command_getEnv(x_310, x_352); +if (lean_obj_tag(x_353) == 0) +{ +lean_object* x_354; lean_object* x_355; lean_object* x_356; +x_354 = lean_ctor_get(x_353, 0); +lean_inc(x_354); +x_355 = lean_ctor_get(x_353, 1); +lean_inc(x_355); +lean_dec(x_353); +lean_inc(x_310); +x_356 = l___private_Init_Lean_Elab_Command_2__getState(x_310, x_355); +if (lean_obj_tag(x_356) == 0) +{ +lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; +x_357 = lean_ctor_get(x_356, 0); +lean_inc(x_357); +x_358 = lean_ctor_get(x_356, 1); +lean_inc(x_358); +lean_dec(x_356); +x_359 = lean_ctor_get(x_357, 3); +lean_inc(x_359); +lean_dec(x_357); +x_360 = lean_environment_main_module(x_354); +x_361 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_361, 0, x_360); +lean_ctor_set(x_361, 1, x_351); +lean_inc(x_1); +x_362 = l_Lean_Elab_getMacros(x_323, x_1, x_361, x_359); +lean_dec(x_323); +if (lean_obj_tag(x_362) == 0) +{ +lean_object* x_363; lean_object* x_364; lean_object* x_365; +x_363 = lean_ctor_get(x_362, 0); +lean_inc(x_363); +x_364 = lean_ctor_get(x_362, 1); +lean_inc(x_364); +lean_dec(x_362); +lean_inc(x_310); +x_365 = l___private_Init_Lean_Elab_Command_2__getState(x_310, x_358); +if (lean_obj_tag(x_365) == 0) +{ +lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; +x_366 = lean_ctor_get(x_365, 0); +lean_inc(x_366); +x_367 = lean_ctor_get(x_365, 1); +lean_inc(x_367); +lean_dec(x_365); +x_368 = lean_ctor_get(x_366, 0); +lean_inc(x_368); +x_369 = lean_ctor_get(x_366, 1); +lean_inc(x_369); +x_370 = lean_ctor_get(x_366, 2); +lean_inc(x_370); +x_371 = lean_ctor_get(x_366, 4); +lean_inc(x_371); +if (lean_is_exclusive(x_366)) { + lean_ctor_release(x_366, 0); + lean_ctor_release(x_366, 1); + lean_ctor_release(x_366, 2); + lean_ctor_release(x_366, 3); + lean_ctor_release(x_366, 4); + x_372 = x_366; +} else { + lean_dec_ref(x_366); + x_372 = lean_box(0); +} +if (lean_is_scalar(x_372)) { + x_373 = lean_alloc_ctor(0, 5, 0); +} else { + x_373 = x_372; +} +lean_ctor_set(x_373, 0, x_368); +lean_ctor_set(x_373, 1, x_369); +lean_ctor_set(x_373, 2, x_370); +lean_ctor_set(x_373, 3, x_364); +lean_ctor_set(x_373, 4, x_371); +lean_inc(x_310); +x_374 = l___private_Init_Lean_Elab_Command_3__setState(x_373, x_310, x_367); +if (lean_obj_tag(x_374) == 0) +{ +lean_object* x_375; +lean_dec(x_325); +lean_dec(x_320); +lean_dec(x_310); +x_375 = lean_ctor_get(x_374, 1); +lean_inc(x_375); +lean_dec(x_374); +x_326 = x_363; +x_327 = x_375; +goto block_332; +} +else +{ +lean_object* x_376; lean_object* x_377; +lean_dec(x_363); +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_376 = lean_ctor_get(x_374, 0); +lean_inc(x_376); +x_377 = lean_ctor_get(x_374, 1); +lean_inc(x_377); +lean_dec(x_374); +x_333 = x_376; +x_334 = x_377; +goto block_349; +} +} +else +{ +lean_object* x_378; lean_object* x_379; +lean_dec(x_364); +lean_dec(x_363); +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_378 = lean_ctor_get(x_365, 0); +lean_inc(x_378); +x_379 = lean_ctor_get(x_365, 1); +lean_inc(x_379); +lean_dec(x_365); +x_333 = x_378; +x_334 = x_379; +goto block_349; +} +} +else +{ +lean_object* x_380; +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_380 = lean_ctor_get(x_362, 0); +lean_inc(x_380); +lean_dec(x_362); +if (lean_obj_tag(x_380) == 0) +{ +lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; +x_381 = lean_ctor_get(x_380, 0); +lean_inc(x_381); +lean_dec(x_380); +x_382 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_382, 0, x_381); +x_383 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_383, 0, x_382); +lean_inc(x_310); +x_384 = l_Lean_Elab_Command_throwError___rarg(x_1, x_383, x_310, x_358); +x_385 = lean_ctor_get(x_384, 0); +lean_inc(x_385); +x_386 = lean_ctor_get(x_384, 1); +lean_inc(x_386); +lean_dec(x_384); +x_333 = x_385; +x_334 = x_386; +goto block_349; +} +else +{ +lean_object* x_387; +x_387 = lean_box(1); +x_333 = x_387; +x_334 = x_358; +goto block_349; +} +} +} +else +{ +lean_object* x_388; lean_object* x_389; +lean_dec(x_354); +lean_dec(x_351); +lean_dec(x_323); +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_388 = lean_ctor_get(x_356, 0); +lean_inc(x_388); +x_389 = lean_ctor_get(x_356, 1); +lean_inc(x_389); +lean_dec(x_356); +x_333 = x_388; +x_334 = x_389; +goto block_349; +} +} +else +{ +lean_object* x_390; lean_object* x_391; +lean_dec(x_351); +lean_dec(x_323); +lean_dec(x_303); +lean_dec(x_295); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_390 = lean_ctor_get(x_353, 0); +lean_inc(x_390); +x_391 = lean_ctor_get(x_353, 1); +lean_inc(x_391); +lean_dec(x_353); +x_333 = x_390; +x_334 = x_391; +goto block_349; +} +block_332: +{ +lean_object* x_328; lean_object* x_329; lean_object* x_330; +lean_inc(x_326); +x_328 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_328, 0, x_1); +lean_ctor_set(x_328, 1, x_326); +x_329 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_329, 0, x_328); +lean_ctor_set(x_329, 1, x_12); +x_330 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_330, 0, x_7); +lean_ctor_set(x_330, 1, x_8); +lean_ctor_set(x_330, 2, x_9); +lean_ctor_set(x_330, 3, x_295); +lean_ctor_set(x_330, 4, x_11); +lean_ctor_set(x_330, 5, x_329); +lean_ctor_set(x_330, 6, x_303); +x_1 = x_326; +x_2 = x_330; +x_3 = x_327; goto _start; } -block_300: +block_349: { -if (lean_obj_tag(x_284) == 0) +if (lean_obj_tag(x_333) == 0) { -lean_object* x_286; -lean_dec(x_271); -lean_dec(x_261); +lean_object* x_335; +lean_dec(x_320); +lean_dec(x_310); lean_dec(x_1); -if (lean_is_scalar(x_276)) { - x_286 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_325)) { + x_335 = lean_alloc_ctor(1, 2, 0); } else { - x_286 = x_276; - lean_ctor_set_tag(x_286, 1); + x_335 = x_325; + lean_ctor_set_tag(x_335, 1); } -lean_ctor_set(x_286, 0, x_284); -lean_ctor_set(x_286, 1, x_285); -return x_286; +lean_ctor_set(x_335, 0, x_333); +lean_ctor_set(x_335, 1, x_334); +return x_335; } else { -lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; -lean_dec(x_276); -x_287 = l_Lean_Name_toString___closed__1; -x_288 = l_Lean_Name_toStringWithSep___main(x_287, x_271); -x_289 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_289, 0, x_288); -x_290 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_290, 0, x_289); -x_291 = l_Lean_Elab_Term_elabTermAux___main___closed__3; -x_292 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_292, 0, x_291); -lean_ctor_set(x_292, 1, x_290); -x_293 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_294 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_294, 0, x_292); -lean_ctor_set(x_294, 1, x_293); -x_295 = l_Lean_Elab_Command_throwError___rarg(x_1, x_294, x_261, x_285); +lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; +lean_dec(x_325); +x_336 = l_Lean_Name_toString___closed__1; +x_337 = l_Lean_Name_toStringWithSep___main(x_336, x_320); +x_338 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_338, 0, x_337); +x_339 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_339, 0, x_338); +x_340 = l_Lean_Elab_Term_elabTermAux___main___closed__3; +x_341 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_341, 0, x_340); +lean_ctor_set(x_341, 1, x_339); +x_342 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_343 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_343, 0, x_341); +lean_ctor_set(x_343, 1, x_342); +x_344 = l_Lean_Elab_Command_throwError___rarg(x_1, x_343, x_310, x_334); lean_dec(x_1); -x_296 = lean_ctor_get(x_295, 0); -lean_inc(x_296); -x_297 = lean_ctor_get(x_295, 1); -lean_inc(x_297); -if (lean_is_exclusive(x_295)) { - lean_ctor_release(x_295, 0); - lean_ctor_release(x_295, 1); - x_298 = x_295; +x_345 = lean_ctor_get(x_344, 0); +lean_inc(x_345); +x_346 = lean_ctor_get(x_344, 1); +lean_inc(x_346); +if (lean_is_exclusive(x_344)) { + lean_ctor_release(x_344, 0); + lean_ctor_release(x_344, 1); + x_347 = x_344; } else { - lean_dec_ref(x_295); - x_298 = lean_box(0); + lean_dec_ref(x_344); + x_347 = lean_box(0); } -if (lean_is_scalar(x_298)) { - x_299 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_347)) { + x_348 = lean_alloc_ctor(1, 2, 0); } else { - x_299 = x_298; + x_348 = x_347; } -lean_ctor_set(x_299, 0, x_296); -lean_ctor_set(x_299, 1, x_297); -return x_299; +lean_ctor_set(x_348, 0, x_345); +lean_ctor_set(x_348, 1, x_346); +return x_348; } } } else { -lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; -lean_dec(x_271); -lean_dec(x_261); -lean_dec(x_254); -lean_dec(x_246); +lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; +lean_dec(x_320); +lean_dec(x_310); +lean_dec(x_303); +lean_dec(x_295); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_321 = lean_ctor_get(x_273, 0); -lean_inc(x_321); -x_322 = lean_ctor_get(x_273, 1); -lean_inc(x_322); -if (lean_is_exclusive(x_273)) { - lean_ctor_release(x_273, 0); - lean_ctor_release(x_273, 1); - x_323 = x_273; +x_392 = lean_ctor_get(x_322, 0); +lean_inc(x_392); +x_393 = lean_ctor_get(x_322, 1); +lean_inc(x_393); +if (lean_is_exclusive(x_322)) { + lean_ctor_release(x_322, 0); + lean_ctor_release(x_322, 1); + x_394 = x_322; } else { - lean_dec_ref(x_273); - x_323 = lean_box(0); + lean_dec_ref(x_322); + x_394 = lean_box(0); } -if (lean_is_scalar(x_323)) { - x_324 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_394)) { + x_395 = lean_alloc_ctor(1, 2, 0); } else { - x_324 = x_323; + x_395 = x_394; } -lean_ctor_set(x_324, 0, x_321); -lean_ctor_set(x_324, 1, x_322); -return x_324; +lean_ctor_set(x_395, 0, x_392); +lean_ctor_set(x_395, 1, x_393); +return x_395; } } else { -lean_object* x_325; lean_object* x_326; -lean_dec(x_271); -lean_dec(x_254); -lean_dec(x_246); +lean_object* x_396; lean_object* x_397; +lean_dec(x_320); +lean_dec(x_303); +lean_dec(x_295); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_325 = lean_ctor_get(x_272, 0); -lean_inc(x_325); -lean_dec(x_272); -x_326 = l___private_Init_Lean_Elab_Command_5__elabCommandUsing___main(x_264, x_1, x_325, x_261, x_265); -return x_326; +x_396 = lean_ctor_get(x_321, 0); +lean_inc(x_396); +lean_dec(x_321); +x_397 = l___private_Init_Lean_Elab_Command_5__elabCommandUsing___main(x_313, x_1, x_396, x_310, x_314); +return x_397; } } else { -lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; -lean_dec(x_261); -lean_dec(x_254); -lean_dec(x_246); +lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; +lean_dec(x_310); +lean_dec(x_303); +lean_dec(x_295); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_327 = lean_ctor_get(x_263, 0); -lean_inc(x_327); -x_328 = lean_ctor_get(x_263, 1); -lean_inc(x_328); -if (lean_is_exclusive(x_263)) { - lean_ctor_release(x_263, 0); - lean_ctor_release(x_263, 1); - x_329 = x_263; +x_398 = lean_ctor_get(x_312, 0); +lean_inc(x_398); +x_399 = lean_ctor_get(x_312, 1); +lean_inc(x_399); +if (lean_is_exclusive(x_312)) { + lean_ctor_release(x_312, 0); + lean_ctor_release(x_312, 1); + x_400 = x_312; } else { - lean_dec_ref(x_263); - x_329 = lean_box(0); + lean_dec_ref(x_312); + x_400 = lean_box(0); } -if (lean_is_scalar(x_329)) { - x_330 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_400)) { + x_401 = lean_alloc_ctor(1, 2, 0); } else { - x_330 = x_329; + x_401 = x_400; } -lean_ctor_set(x_330, 0, x_327); -lean_ctor_set(x_330, 1, x_328); -return x_330; +lean_ctor_set(x_401, 0, x_398); +lean_ctor_set(x_401, 1, x_399); +return x_401; } } } else { -lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; -lean_dec(x_254); -lean_dec(x_246); +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; +lean_dec(x_303); +lean_dec(x_295); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_356 = lean_ctor_get(x_259, 0); -lean_inc(x_356); -x_357 = lean_ctor_get(x_259, 1); -lean_inc(x_357); -if (lean_is_exclusive(x_259)) { - lean_ctor_release(x_259, 0); - lean_ctor_release(x_259, 1); - x_358 = x_259; +x_427 = lean_ctor_get(x_308, 0); +lean_inc(x_427); +x_428 = lean_ctor_get(x_308, 1); +lean_inc(x_428); +if (lean_is_exclusive(x_308)) { + lean_ctor_release(x_308, 0); + lean_ctor_release(x_308, 1); + x_429 = x_308; } else { - lean_dec_ref(x_259); - x_358 = lean_box(0); + lean_dec_ref(x_308); + x_429 = lean_box(0); } -if (lean_is_scalar(x_358)) { - x_359 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_429)) { + x_430 = lean_alloc_ctor(1, 2, 0); } else { - x_359 = x_358; + x_430 = x_429; } -lean_ctor_set(x_359, 0, x_356); -lean_ctor_set(x_359, 1, x_357); -return x_359; +lean_ctor_set(x_430, 0, x_427); +lean_ctor_set(x_430, 1, x_428); +return x_430; } } else { -lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; -lean_dec(x_247); -lean_dec(x_246); +lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; +lean_dec(x_296); +lean_dec(x_295); lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_1); -x_360 = lean_ctor_get(x_248, 0); -lean_inc(x_360); -x_361 = lean_ctor_get(x_248, 1); -lean_inc(x_361); -if (lean_is_exclusive(x_248)) { - lean_ctor_release(x_248, 0); - lean_ctor_release(x_248, 1); - x_362 = x_248; +x_431 = lean_ctor_get(x_297, 0); +lean_inc(x_431); +x_432 = lean_ctor_get(x_297, 1); +lean_inc(x_432); +if (lean_is_exclusive(x_297)) { + lean_ctor_release(x_297, 0); + lean_ctor_release(x_297, 1); + x_433 = x_297; } else { - lean_dec_ref(x_248); - x_362 = lean_box(0); + lean_dec_ref(x_297); + x_433 = lean_box(0); } -if (lean_is_scalar(x_362)) { - x_363 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_433)) { + x_434 = lean_alloc_ctor(1, 2, 0); } else { - x_363 = x_362; + x_434 = x_433; } -lean_ctor_set(x_363, 0, x_360); -lean_ctor_set(x_363, 1, x_361); -return x_363; +lean_ctor_set(x_434, 0, x_431); +lean_ctor_set(x_434, 1, x_432); +return x_434; } } } else { -lean_object* x_364; lean_object* x_365; uint8_t x_366; +lean_object* x_435; lean_object* x_436; uint8_t x_437; lean_dec(x_13); lean_dec(x_12); lean_dec(x_11); @@ -6769,51 +7411,51 @@ lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_364 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; -x_365 = l_Lean_Elab_Command_throwError___rarg(x_1, x_364, x_2, x_6); +x_435 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; +x_436 = l_Lean_Elab_Command_throwError___rarg(x_1, x_435, x_2, x_6); lean_dec(x_1); -x_366 = !lean_is_exclusive(x_365); -if (x_366 == 0) +x_437 = !lean_is_exclusive(x_436); +if (x_437 == 0) { -return x_365; +return x_436; } else { -lean_object* x_367; lean_object* x_368; lean_object* x_369; -x_367 = lean_ctor_get(x_365, 0); -x_368 = lean_ctor_get(x_365, 1); -lean_inc(x_368); -lean_inc(x_367); -lean_dec(x_365); -x_369 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_369, 0, x_367); -lean_ctor_set(x_369, 1, x_368); -return x_369; +lean_object* x_438; lean_object* x_439; lean_object* x_440; +x_438 = lean_ctor_get(x_436, 0); +x_439 = lean_ctor_get(x_436, 1); +lean_inc(x_439); +lean_inc(x_438); +lean_dec(x_436); +x_440 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_440, 0, x_438); +lean_ctor_set(x_440, 1, x_439); +return x_440; } } } else { -uint8_t x_370; +uint8_t x_441; lean_dec(x_2); lean_dec(x_1); -x_370 = !lean_is_exclusive(x_4); -if (x_370 == 0) +x_441 = !lean_is_exclusive(x_4); +if (x_441 == 0) { return x_4; } else { -lean_object* x_371; lean_object* x_372; lean_object* x_373; -x_371 = lean_ctor_get(x_4, 0); -x_372 = lean_ctor_get(x_4, 1); -lean_inc(x_372); -lean_inc(x_371); +lean_object* x_442; lean_object* x_443; lean_object* x_444; +x_442 = lean_ctor_get(x_4, 0); +x_443 = lean_ctor_get(x_4, 1); +lean_inc(x_443); +lean_inc(x_442); lean_dec(x_4); -x_373 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_373, 0, x_371); -lean_ctor_set(x_373, 1, x_372); -return x_373; +x_444 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_444, 0, x_442); +lean_ctor_set(x_444, 1, x_443); +return x_444; } } } @@ -23126,6 +23768,12 @@ l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__3 = _init_l_Lean_Elab_ lean_mark_persistent(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__3); l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4 = _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4(); lean_mark_persistent(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__4); +l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__5 = _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__5(); +lean_mark_persistent(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__5); +l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__6 = _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__6(); +lean_mark_persistent(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__6); +l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__7 = _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__7(); +lean_mark_persistent(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter___closed__7); l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter = _init_l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter(); lean_mark_persistent(l_Lean_Elab_Command_Lean_Elab_MonadMacroAdapter); l_Lean_Elab_Command_elabCommand___main___closed__1 = _init_l_Lean_Elab_Command_elabCommand___main___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Elab/DoNotation.c b/stage0/stdlib/Init/Lean/Elab/DoNotation.c index e01dbb7b01..a332048673 100644 --- a/stage0/stdlib/Init/Lean/Elab/DoNotation.c +++ b/stage0/stdlib/Init/Lean/Elab/DoNotation.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Elab.DoNotation -// Imports: Init.Lean.Elab.Term Init.Lean.Elab.Quotation +// Imports: Init.Lean.Elab.Term Init.Lean.Elab.TermBinders Init.Lean.Elab.Quotation #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -15,124 +15,168 @@ extern "C" { #endif lean_object* l_Lean_Elab_Term_mkAppM(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__10; +lean_object* l___private_Init_Lean_Elab_DoNotation_6__expandLiftMethod(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_DoNotation_3__getDoElems(lean_object*); extern lean_object* l_Lean_MessageData_ofList___closed__3; -extern lean_object* l_List_repr___rarg___closed__1; -lean_object* l_Lean_Format_pretty(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_inferType(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; uint8_t lean_name_eq(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_do___elambda__1___closed__1; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__7; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__16; -extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__1; +extern lean_object* l_Option_get_x21___rarg___closed__3; +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2; +lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4; +extern lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3; +extern lean_object* l_PersistentHashMap_mkCollisionNode___rarg___closed__1; extern lean_object* l_Lean_Parser_Term_doPat___elambda__1___closed__2; extern lean_object* l_Array_empty___closed__1; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_object* l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2___boxed(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__3; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; +lean_object* l___private_Init_Lean_Elab_DoNotation_10__mkBind___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_checkTraceOption(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3; +lean_object* l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; +lean_object* l_Lean_Elab_Term_decLevel(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); -lean_object* lean_string_append(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__14; +uint8_t l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod(lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); -extern lean_object* l_String_splitAux___main___closed__1; -extern lean_object* l_List_repr___rarg___closed__3; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__5; +lean_object* l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +extern lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__2; lean_object* l_Lean_Elab_Term_synthesizeInst(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2(uint8_t, lean_object*); lean_object* l___private_Init_Lean_Elab_DoNotation_3__getDoElems___boxed(lean_object*); -lean_object* lean_string_utf8_byte_size(lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__3; +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__6; lean_object* l_Lean_Elab_Term_getMainModule___rarg(lean_object*); extern lean_object* l_Lean_Parser_Term_do___elambda__1___closed__2; +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__3; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDo(lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; +lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_PersistentHashMap_Stats_toString___closed__5; +lean_object* l_Array_back___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__1(lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___boxed(lean_object*); lean_object* l_Lean_Elab_Term_whnf(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_getOptions(lean_object*, lean_object*); extern lean_object* l_Lean_mkTermIdFromIdent___closed__2; lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__4; -extern lean_object* l_Array_HasRepr___rarg___closed__1; +lean_object* l_Lean_Elab_Term_ProcessedDoElem_inhabited; +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(lean_object*, lean_object*, lean_object*); +uint8_t l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main(lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_declareBuiltinTermElab___closed__3; -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_Inhabited___closed__1; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getLevel(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_12__processDoElems(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__6; +extern lean_object* l_Lean_Elab_Term_elabLetDecl___closed__4; extern lean_object* l_Lean_Parser_Term_doId___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5; +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__4; +extern lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_back___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__1___boxed(lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2; lean_object* l_Lean_Elab_Term_elabTermAux___main(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__11; extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; +lean_object* l_Lean_Elab_Term_logTrace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); -extern lean_object* l_List_repr___rarg___closed__2; +extern lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; lean_object* l_Lean_Elab_Term_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_List_reprAux___main___rarg___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__7; +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getCurrMacroScope(lean_object*, lean_object*); -extern lean_object* l_Lean_Options_empty; -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__1; +lean_object* l_Lean_Elab_Term_expandOptType(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_withLocalDecl___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__1; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Array_isEmpty___rarg(lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_let___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__1; lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabDo___closed__1; lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__3; lean_object* l_Lean_addMacroScope(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabDo___closed__3; -extern lean_object* l___private_Init_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg___closed__6; +uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__3; extern lean_object* l_Lean_nullKind___closed__2; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Syntax_inhabited; -lean_object* l_Lean_Elab_Term_elabDo___closed__2; +lean_object* l___private_Init_Lean_Elab_DoNotation_10__mkBind(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; uint8_t l_Lean_Expr_isMVar(lean_object*); extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__2; lean_object* l_Lean_mkApp(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; lean_object* l_Lean_Syntax_getArgs(lean_object*); -lean_object* l_List_toString___at_Lean_Elab_Term_elabDo___spec__1(lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getKind(lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_13__regTraceClasses(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__1; -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_panic_fn(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +lean_object* l_Lean_Elab_Term_elabType(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__3; +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; extern lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__2; uint8_t l_Lean_Syntax_isNone(lean_object*); -extern lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; extern lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; extern lean_object* l_Lean_Parser_Term_matchAlt___closed__2; -lean_object* l_Array_toList___rarg(lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__1; +extern lean_object* l_Lean_Expr_Inhabited; +lean_object* lean_array_pop(lean_object*); lean_object* l_Lean_Elab_Term_addBuiltinTermElab(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabDo(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__2; extern lean_object* l_Lean_Parser_Term_doLet___elambda__1___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__2; lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5; extern lean_object* l_Lean_mkOptionalNode___closed__2; +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__2; -lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4; +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3; +lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__1; lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_indentExpr(lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4; extern lean_object* l_addParenHeuristic___closed__1; -extern lean_object* l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__1; +lean_object* l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___boxed(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__1() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__1() { _start: { lean_object* x_1; @@ -140,39 +184,38 @@ x_1 = lean_mk_string("Id"); return x_1; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__1; +x_2 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__3() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3() { _start: { lean_object* x_1; -x_1 = lean_mk_string("monad"); +x_1 = lean_mk_string("hasBind"); return x_1; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2; -x_2 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__3; +x_1 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2; +x_2 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -lean_inc(x_2); x_5 = l_Lean_Elab_Term_getLevel(x_1, x_2, x_3, x_4); if (lean_obj_tag(x_5) == 0) { @@ -180,81 +223,78 @@ uint8_t x_6; x_6 = !lean_is_exclusive(x_5); if (x_6 == 0) { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; x_7 = lean_ctor_get(x_5, 0); x_8 = lean_box(0); x_9 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_9, 0, x_7); lean_ctor_set(x_9, 1, x_8); -x_10 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2; +x_10 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2; lean_inc(x_9); x_11 = l_Lean_mkConst(x_10, x_9); -x_12 = l_Lean_mkApp(x_11, x_2); -x_13 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4; -x_14 = l_Lean_mkConst(x_13, x_9); -x_15 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_15, 0, x_12); -lean_ctor_set(x_15, 1, x_14); -lean_ctor_set(x_5, 0, x_15); +x_12 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4; +x_13 = l_Lean_mkConst(x_12, x_9); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_11); +lean_ctor_set(x_14, 1, x_13); +lean_ctor_set(x_5, 0, x_14); return x_5; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_16 = lean_ctor_get(x_5, 0); -x_17 = lean_ctor_get(x_5, 1); -lean_inc(x_17); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_15 = lean_ctor_get(x_5, 0); +x_16 = lean_ctor_get(x_5, 1); lean_inc(x_16); +lean_inc(x_15); lean_dec(x_5); -x_18 = lean_box(0); -x_19 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_19, 0, x_16); -lean_ctor_set(x_19, 1, x_18); -x_20 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2; -lean_inc(x_19); -x_21 = l_Lean_mkConst(x_20, x_19); -x_22 = l_Lean_mkApp(x_21, x_2); -x_23 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4; -x_24 = l_Lean_mkConst(x_23, x_19); -x_25 = lean_alloc_ctor(0, 2, 0); -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_17); -return x_26; +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set(x_18, 1, x_17); +x_19 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2; +lean_inc(x_18); +x_20 = l_Lean_mkConst(x_19, x_18); +x_21 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4; +x_22 = l_Lean_mkConst(x_21, x_18); +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_22); +x_24 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_16); +return x_24; } } else { -uint8_t x_27; -lean_dec(x_2); -x_27 = !lean_is_exclusive(x_5); -if (x_27 == 0) +uint8_t x_25; +x_25 = !lean_is_exclusive(x_5); +if (x_25 == 0) { return x_5; } else { -lean_object* x_28; lean_object* x_29; lean_object* x_30; -x_28 = lean_ctor_get(x_5, 0); -x_29 = lean_ctor_get(x_5, 1); -lean_inc(x_29); -lean_inc(x_28); +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_5, 0); +x_27 = lean_ctor_get(x_5, 1); +lean_inc(x_27); +lean_inc(x_26); lean_dec(x_5); -x_30 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_30, 0, x_28); -lean_ctor_set(x_30, 1, x_29); -return x_30; +x_28 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_28, 0, x_26); +lean_ctor_set(x_28, 1, x_27); +return x_28; } } } } -lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_2, x_3, x_4); +x_5 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_2, x_3, x_4); lean_dec(x_1); return x_5; } @@ -287,24 +327,6 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__4() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("Monad"); -return x_1; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__4; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* l___private_Init_Lean_Elab_DoNotation_2__extractMonad(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -424,7 +446,7 @@ lean_inc(x_31); x_32 = l_Lean_mkOptionalNode___closed__2; lean_inc(x_31); x_33 = lean_array_push(x_32, x_31); -x_34 = l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5; +x_34 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__6; lean_inc(x_3); x_35 = l_Lean_Elab_Term_mkAppM(x_1, x_34, x_33, x_3, x_30); lean_dec(x_33); @@ -478,7 +500,7 @@ lean_dec(x_31); x_46 = lean_ctor_get(x_38, 1); lean_inc(x_46); lean_dec(x_38); -x_47 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_28, x_3, x_46); +x_47 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_28, x_3, x_46); return x_47; } } @@ -489,14 +511,14 @@ lean_dec(x_31); x_48 = lean_ctor_get(x_35, 1); lean_inc(x_48); lean_dec(x_35); -x_49 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_28, x_3, x_48); +x_49 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_28, x_3, x_48); return x_49; } } else { lean_object* x_50; -x_50 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_28, x_3, x_30); +x_50 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_28, x_3, x_30); return x_50; } } @@ -616,7 +638,7 @@ lean_inc(x_78); x_79 = l_Lean_mkOptionalNode___closed__2; lean_inc(x_78); x_80 = lean_array_push(x_79, x_78); -x_81 = l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5; +x_81 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__6; lean_inc(x_3); x_82 = l_Lean_Elab_Term_mkAppM(x_1, x_81, x_80, x_3, x_77); lean_dec(x_80); @@ -666,7 +688,7 @@ lean_dec(x_78); x_91 = lean_ctor_get(x_85, 1); lean_inc(x_91); lean_dec(x_85); -x_92 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_75, x_3, x_91); +x_92 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_75, x_3, x_91); return x_92; } } @@ -677,14 +699,14 @@ lean_dec(x_78); x_93 = lean_ctor_get(x_82, 1); lean_inc(x_93); lean_dec(x_82); -x_94 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_75, x_3, x_93); +x_94 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_75, x_3, x_93); return x_94; } } else { lean_object* x_95; -x_95 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_75, x_3, x_77); +x_95 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_75, x_3, x_77); return x_95; } } @@ -834,7 +856,7 @@ lean_inc(x_132); x_133 = l_Lean_mkOptionalNode___closed__2; lean_inc(x_132); x_134 = lean_array_push(x_133, x_132); -x_135 = l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5; +x_135 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__6; lean_inc(x_3); x_136 = l_Lean_Elab_Term_mkAppM(x_1, x_135, x_134, x_3, x_131); lean_dec(x_134); @@ -884,7 +906,7 @@ lean_dec(x_132); x_145 = lean_ctor_get(x_139, 1); lean_inc(x_145); lean_dec(x_139); -x_146 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_129, x_3, x_145); +x_146 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_129, x_3, x_145); return x_146; } } @@ -895,14 +917,14 @@ lean_dec(x_132); x_147 = lean_ctor_get(x_136, 1); lean_inc(x_147); lean_dec(x_136); -x_148 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_129, x_3, x_147); +x_148 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_129, x_3, x_147); return x_148; } } else { lean_object* x_149; -x_149 = l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor(x_1, x_129, x_3, x_131); +x_149 = l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor(x_1, x_129, x_3, x_131); return x_149; } } @@ -983,7 +1005,184 @@ lean_dec(x_1); return x_2; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__1() { +uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = lean_nat_dec_lt(x_4, x_3); +if (x_5 == 0) +{ +uint8_t x_6; +lean_dec(x_4); +x_6 = 0; +return x_6; +} +else +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_array_fget(x_2, x_4); +x_8 = l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main(x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_add(x_4, x_9); +lean_dec(x_4); +x_4 = x_10; +goto _start; +} +else +{ +lean_dec(x_4); +return x_8; +} +} +} +} +uint8_t l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; +x_2 = lean_ctor_get(x_1, 0); +x_3 = lean_ctor_get(x_1, 1); +x_4 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_5 = lean_name_eq(x_2, x_4); +if (x_5 == 0) +{ +lean_object* x_6; uint8_t x_7; +x_6 = l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; +x_7 = lean_name_eq(x_2, x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_8 = lean_array_get_size(x_3); +x_9 = lean_unsigned_to_nat(0u); +x_10 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___spec__1(x_3, x_3, x_8, x_9); +lean_dec(x_8); +return x_10; +} +else +{ +uint8_t x_11; +x_11 = 1; +return x_11; +} +} +else +{ +uint8_t x_12; +x_12 = 0; +return x_12; +} +} +else +{ +uint8_t x_13; +x_13 = 0; +return x_13; +} +} +} +lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___spec__1(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_6 = lean_box(x_5); +return x_6; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod(lean_object* x_1) { +_start: +{ +uint8_t x_2; +x_2 = l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main(x_1); +return x_2; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_array_get_size(x_2); +x_7 = lean_nat_dec_lt(x_1, x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_4); +lean_dec(x_1); +x_8 = l_Array_empty___closed__1; +x_9 = x_2; +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_3); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_5); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; 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_12 = lean_array_fget(x_2, x_1); +x_13 = lean_box(0); +x_14 = x_13; +x_15 = lean_array_fset(x_2, x_1, x_14); +lean_inc(x_4); +lean_inc(x_12); +x_16 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_12, x_3, x_4, x_5); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +x_19 = lean_ctor_get(x_17, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_17, 1); +lean_inc(x_20); +lean_dec(x_17); +x_21 = lean_unsigned_to_nat(1u); +x_22 = lean_nat_add(x_1, x_21); +x_23 = x_19; +lean_dec(x_12); +x_24 = lean_array_fset(x_15, x_1, x_23); +lean_dec(x_1); +x_1 = x_22; +x_2 = x_24; +x_3 = x_20; +x_5 = x_18; +goto _start; +} +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__1() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -995,40 +1194,17 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Array_empty___closed__1; -x_2 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__1; +x_2 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__1; x_3 = lean_array_push(x_1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__1; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__1; -x_2 = lean_unsigned_to_nat(0u); -x_3 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__3; -x_4 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_4, 0, x_1); -lean_ctor_set(x_4, 1, x_2); -lean_ctor_set(x_4, 2, x_3); -return x_4; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__5() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__3() { _start: { lean_object* x_1; @@ -1036,19 +1212,1095 @@ x_1 = lean_mk_string("←"); return x_1; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__5; +x_2 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__3; x_3 = lean_alloc_ctor(2, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__7() { +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +x_7 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_8 = lean_name_eq(x_5, x_7); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = !lean_is_exclusive(x_1); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_10 = lean_ctor_get(x_1, 1); +lean_dec(x_10); +x_11 = lean_ctor_get(x_1, 0); +lean_dec(x_11); +x_12 = l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; +x_13 = lean_name_eq(x_5, x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_14 = lean_unsigned_to_nat(0u); +x_15 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___spec__1(x_14, x_6, x_2, x_3, x_4); +x_16 = !lean_is_exclusive(x_15); +if (x_16 == 0) +{ +lean_object* x_17; uint8_t x_18; +x_17 = lean_ctor_get(x_15, 0); +x_18 = !lean_is_exclusive(x_17); +if (x_18 == 0) +{ +lean_object* x_19; +x_19 = lean_ctor_get(x_17, 0); +lean_ctor_set(x_1, 1, x_19); +lean_ctor_set(x_17, 0, x_1); +return x_15; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_17, 0); +x_21 = lean_ctor_get(x_17, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_17); +lean_ctor_set(x_1, 1, x_20); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_1); +lean_ctor_set(x_22, 1, x_21); +lean_ctor_set(x_15, 0, x_22); +return x_15; +} +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_23 = lean_ctor_get(x_15, 0); +x_24 = lean_ctor_get(x_15, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_15); +x_25 = lean_ctor_get(x_23, 0); +lean_inc(x_25); +x_26 = lean_ctor_get(x_23, 1); +lean_inc(x_26); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_27 = x_23; +} else { + lean_dec_ref(x_23); + x_27 = lean_box(0); +} +lean_ctor_set(x_1, 1, x_25); +if (lean_is_scalar(x_27)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_27; +} +lean_ctor_set(x_28, 0, x_1); +lean_ctor_set(x_28, 1, x_26); +x_29 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_24); +return x_29; +} +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; +lean_dec(x_5); +x_30 = l_Lean_Syntax_inhabited; +x_31 = lean_unsigned_to_nat(1u); +x_32 = lean_array_get(x_30, x_6, x_31); +lean_dec(x_6); +x_33 = !lean_is_exclusive(x_4); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; uint8_t x_36; +x_34 = lean_ctor_get(x_4, 5); +x_35 = lean_nat_add(x_34, x_31); +lean_ctor_set(x_4, 5, x_35); +x_36 = !lean_is_exclusive(x_3); +if (x_36 == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; uint8_t x_41; +x_37 = lean_ctor_get(x_3, 9); +lean_dec(x_37); +lean_ctor_set(x_3, 9, x_34); +lean_inc(x_3); +x_38 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_32, x_2, x_3, 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); +lean_dec(x_38); +x_41 = !lean_is_exclusive(x_39); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; uint8_t x_82; +x_42 = lean_ctor_get(x_39, 0); +x_43 = lean_ctor_get(x_39, 1); +x_44 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_40); +x_45 = lean_ctor_get(x_44, 0); +lean_inc(x_45); +x_46 = lean_ctor_get(x_44, 1); +lean_inc(x_46); +lean_dec(x_44); +x_47 = l_Lean_Elab_Term_getMainModule___rarg(x_46); +x_48 = lean_ctor_get(x_47, 0); +lean_inc(x_48); +x_49 = lean_ctor_get(x_47, 1); +lean_inc(x_49); +lean_dec(x_47); +x_50 = lean_box(0); +x_51 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3; +x_52 = l_Lean_addMacroScope(x_48, x_51, x_45); +x_53 = lean_box(0); +x_54 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__2; +x_55 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_55, 0, x_50); +lean_ctor_set(x_55, 1, x_54); +lean_ctor_set(x_55, 2, x_52); +lean_ctor_set(x_55, 3, x_53); +x_56 = l_Array_empty___closed__1; +x_57 = lean_array_push(x_56, x_55); +x_58 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_59 = lean_array_push(x_57, x_58); +x_60 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +x_61 = lean_array_push(x_59, x_60); +x_62 = lean_array_push(x_61, x_42); +x_63 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_ctor_set(x_1, 1, x_62); +lean_ctor_set(x_1, 0, x_63); +x_64 = lean_array_push(x_56, x_1); +x_65 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_66 = lean_array_push(x_64, x_65); +x_67 = lean_box(0); +x_68 = lean_array_push(x_66, x_67); +x_69 = l_Lean_nullKind___closed__2; +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_68); +x_71 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_72 = lean_array_push(x_71, x_70); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_7); +lean_ctor_set(x_73, 1, x_72); +x_74 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_73); +lean_dec(x_73); +x_75 = lean_array_pop(x_74); +x_76 = lean_unsigned_to_nat(0u); +x_77 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_75, x_75, x_76, x_43); +lean_dec(x_75); +x_78 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_49); +lean_dec(x_3); +x_79 = lean_ctor_get(x_78, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_78, 1); +lean_inc(x_80); +lean_dec(x_78); +x_81 = l_Lean_Elab_Term_getMainModule___rarg(x_80); +x_82 = !lean_is_exclusive(x_81); +if (x_82 == 0) +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_83 = lean_ctor_get(x_81, 0); +x_84 = l_Lean_addMacroScope(x_83, x_51, x_79); +x_85 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_85, 0, x_50); +lean_ctor_set(x_85, 1, x_54); +lean_ctor_set(x_85, 2, x_84); +lean_ctor_set(x_85, 3, x_53); +x_86 = lean_array_push(x_56, x_85); +x_87 = lean_array_push(x_86, x_58); +x_88 = l_Lean_mkTermIdFromIdent___closed__2; +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_87); +lean_ctor_set(x_39, 1, x_77); +lean_ctor_set(x_39, 0, x_89); +lean_ctor_set(x_81, 0, x_39); +return x_81; +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_90 = lean_ctor_get(x_81, 0); +x_91 = lean_ctor_get(x_81, 1); +lean_inc(x_91); +lean_inc(x_90); +lean_dec(x_81); +x_92 = l_Lean_addMacroScope(x_90, x_51, x_79); +x_93 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_93, 0, x_50); +lean_ctor_set(x_93, 1, x_54); +lean_ctor_set(x_93, 2, x_92); +lean_ctor_set(x_93, 3, x_53); +x_94 = lean_array_push(x_56, x_93); +x_95 = lean_array_push(x_94, x_58); +x_96 = l_Lean_mkTermIdFromIdent___closed__2; +x_97 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_97, 0, x_96); +lean_ctor_set(x_97, 1, x_95); +lean_ctor_set(x_39, 1, x_77); +lean_ctor_set(x_39, 0, x_97); +x_98 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_98, 0, x_39); +lean_ctor_set(x_98, 1, x_91); +return x_98; +} +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; +x_99 = lean_ctor_get(x_39, 0); +x_100 = lean_ctor_get(x_39, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_39); +x_101 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_40); +x_102 = lean_ctor_get(x_101, 0); +lean_inc(x_102); +x_103 = lean_ctor_get(x_101, 1); +lean_inc(x_103); +lean_dec(x_101); +x_104 = l_Lean_Elab_Term_getMainModule___rarg(x_103); +x_105 = lean_ctor_get(x_104, 0); +lean_inc(x_105); +x_106 = lean_ctor_get(x_104, 1); +lean_inc(x_106); +lean_dec(x_104); +x_107 = lean_box(0); +x_108 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3; +x_109 = l_Lean_addMacroScope(x_105, x_108, x_102); +x_110 = lean_box(0); +x_111 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__2; +x_112 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_112, 0, x_107); +lean_ctor_set(x_112, 1, x_111); +lean_ctor_set(x_112, 2, x_109); +lean_ctor_set(x_112, 3, x_110); +x_113 = l_Array_empty___closed__1; +x_114 = lean_array_push(x_113, x_112); +x_115 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_116 = lean_array_push(x_114, x_115); +x_117 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +x_118 = lean_array_push(x_116, x_117); +x_119 = lean_array_push(x_118, x_99); +x_120 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_ctor_set(x_1, 1, x_119); +lean_ctor_set(x_1, 0, x_120); +x_121 = lean_array_push(x_113, x_1); +x_122 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_123 = lean_array_push(x_121, x_122); +x_124 = lean_box(0); +x_125 = lean_array_push(x_123, x_124); +x_126 = l_Lean_nullKind___closed__2; +x_127 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_127, 0, x_126); +lean_ctor_set(x_127, 1, x_125); +x_128 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_129 = lean_array_push(x_128, x_127); +x_130 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_130, 0, x_7); +lean_ctor_set(x_130, 1, x_129); +x_131 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_130); +lean_dec(x_130); +x_132 = lean_array_pop(x_131); +x_133 = lean_unsigned_to_nat(0u); +x_134 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_132, x_132, x_133, x_100); +lean_dec(x_132); +x_135 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_106); +lean_dec(x_3); +x_136 = lean_ctor_get(x_135, 0); +lean_inc(x_136); +x_137 = lean_ctor_get(x_135, 1); +lean_inc(x_137); +lean_dec(x_135); +x_138 = l_Lean_Elab_Term_getMainModule___rarg(x_137); +x_139 = lean_ctor_get(x_138, 0); +lean_inc(x_139); +x_140 = lean_ctor_get(x_138, 1); +lean_inc(x_140); +if (lean_is_exclusive(x_138)) { + lean_ctor_release(x_138, 0); + lean_ctor_release(x_138, 1); + x_141 = x_138; +} else { + lean_dec_ref(x_138); + x_141 = lean_box(0); +} +x_142 = l_Lean_addMacroScope(x_139, x_108, x_136); +x_143 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_143, 0, x_107); +lean_ctor_set(x_143, 1, x_111); +lean_ctor_set(x_143, 2, x_142); +lean_ctor_set(x_143, 3, x_110); +x_144 = lean_array_push(x_113, x_143); +x_145 = lean_array_push(x_144, x_115); +x_146 = l_Lean_mkTermIdFromIdent___closed__2; +x_147 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_147, 0, x_146); +lean_ctor_set(x_147, 1, x_145); +x_148 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_148, 0, x_147); +lean_ctor_set(x_148, 1, x_134); +if (lean_is_scalar(x_141)) { + x_149 = lean_alloc_ctor(0, 2, 0); +} else { + x_149 = x_141; +} +lean_ctor_set(x_149, 0, x_148); +lean_ctor_set(x_149, 1, x_140); +return x_149; +} +} +else +{ +lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; uint8_t x_159; uint8_t x_160; uint8_t x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; +x_150 = lean_ctor_get(x_3, 0); +x_151 = lean_ctor_get(x_3, 1); +x_152 = lean_ctor_get(x_3, 2); +x_153 = lean_ctor_get(x_3, 3); +x_154 = lean_ctor_get(x_3, 4); +x_155 = lean_ctor_get(x_3, 5); +x_156 = lean_ctor_get(x_3, 6); +x_157 = lean_ctor_get(x_3, 7); +x_158 = lean_ctor_get(x_3, 8); +x_159 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_160 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_161 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); +lean_inc(x_158); +lean_inc(x_157); +lean_inc(x_156); +lean_inc(x_155); +lean_inc(x_154); +lean_inc(x_153); +lean_inc(x_152); +lean_inc(x_151); +lean_inc(x_150); +lean_dec(x_3); +x_162 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_162, 0, x_150); +lean_ctor_set(x_162, 1, x_151); +lean_ctor_set(x_162, 2, x_152); +lean_ctor_set(x_162, 3, x_153); +lean_ctor_set(x_162, 4, x_154); +lean_ctor_set(x_162, 5, x_155); +lean_ctor_set(x_162, 6, x_156); +lean_ctor_set(x_162, 7, x_157); +lean_ctor_set(x_162, 8, x_158); +lean_ctor_set(x_162, 9, x_34); +lean_ctor_set_uint8(x_162, sizeof(void*)*10, x_159); +lean_ctor_set_uint8(x_162, sizeof(void*)*10 + 1, x_160); +lean_ctor_set_uint8(x_162, sizeof(void*)*10 + 2, x_161); +lean_inc(x_162); +x_163 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_32, x_2, x_162, x_4); +x_164 = lean_ctor_get(x_163, 0); +lean_inc(x_164); +x_165 = lean_ctor_get(x_163, 1); +lean_inc(x_165); +lean_dec(x_163); +x_166 = lean_ctor_get(x_164, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_164, 1); +lean_inc(x_167); +if (lean_is_exclusive(x_164)) { + lean_ctor_release(x_164, 0); + lean_ctor_release(x_164, 1); + x_168 = x_164; +} else { + lean_dec_ref(x_164); + x_168 = lean_box(0); +} +x_169 = l_Lean_Elab_Term_getCurrMacroScope(x_162, x_165); +x_170 = lean_ctor_get(x_169, 0); +lean_inc(x_170); +x_171 = lean_ctor_get(x_169, 1); +lean_inc(x_171); +lean_dec(x_169); +x_172 = l_Lean_Elab_Term_getMainModule___rarg(x_171); +x_173 = lean_ctor_get(x_172, 0); +lean_inc(x_173); +x_174 = lean_ctor_get(x_172, 1); +lean_inc(x_174); +lean_dec(x_172); +x_175 = lean_box(0); +x_176 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3; +x_177 = l_Lean_addMacroScope(x_173, x_176, x_170); +x_178 = lean_box(0); +x_179 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__2; +x_180 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_180, 0, x_175); +lean_ctor_set(x_180, 1, x_179); +lean_ctor_set(x_180, 2, x_177); +lean_ctor_set(x_180, 3, x_178); +x_181 = l_Array_empty___closed__1; +x_182 = lean_array_push(x_181, x_180); +x_183 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_184 = lean_array_push(x_182, x_183); +x_185 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +x_186 = lean_array_push(x_184, x_185); +x_187 = lean_array_push(x_186, x_166); +x_188 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_ctor_set(x_1, 1, x_187); +lean_ctor_set(x_1, 0, x_188); +x_189 = lean_array_push(x_181, x_1); +x_190 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_191 = lean_array_push(x_189, x_190); +x_192 = lean_box(0); +x_193 = lean_array_push(x_191, x_192); +x_194 = l_Lean_nullKind___closed__2; +x_195 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_195, 0, x_194); +lean_ctor_set(x_195, 1, x_193); +x_196 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_197 = lean_array_push(x_196, x_195); +x_198 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_198, 0, x_7); +lean_ctor_set(x_198, 1, x_197); +x_199 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_198); +lean_dec(x_198); +x_200 = lean_array_pop(x_199); +x_201 = lean_unsigned_to_nat(0u); +x_202 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_200, x_200, x_201, x_167); +lean_dec(x_200); +x_203 = l_Lean_Elab_Term_getCurrMacroScope(x_162, x_174); +lean_dec(x_162); +x_204 = lean_ctor_get(x_203, 0); +lean_inc(x_204); +x_205 = lean_ctor_get(x_203, 1); +lean_inc(x_205); +lean_dec(x_203); +x_206 = l_Lean_Elab_Term_getMainModule___rarg(x_205); +x_207 = lean_ctor_get(x_206, 0); +lean_inc(x_207); +x_208 = lean_ctor_get(x_206, 1); +lean_inc(x_208); +if (lean_is_exclusive(x_206)) { + lean_ctor_release(x_206, 0); + lean_ctor_release(x_206, 1); + x_209 = x_206; +} else { + lean_dec_ref(x_206); + x_209 = lean_box(0); +} +x_210 = l_Lean_addMacroScope(x_207, x_176, x_204); +x_211 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_211, 0, x_175); +lean_ctor_set(x_211, 1, x_179); +lean_ctor_set(x_211, 2, x_210); +lean_ctor_set(x_211, 3, x_178); +x_212 = lean_array_push(x_181, x_211); +x_213 = lean_array_push(x_212, x_183); +x_214 = l_Lean_mkTermIdFromIdent___closed__2; +x_215 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_215, 0, x_214); +lean_ctor_set(x_215, 1, x_213); +if (lean_is_scalar(x_168)) { + x_216 = lean_alloc_ctor(0, 2, 0); +} else { + x_216 = x_168; +} +lean_ctor_set(x_216, 0, x_215); +lean_ctor_set(x_216, 1, x_202); +if (lean_is_scalar(x_209)) { + x_217 = lean_alloc_ctor(0, 2, 0); +} else { + x_217 = x_209; +} +lean_ctor_set(x_217, 0, x_216); +lean_ctor_set(x_217, 1, x_208); +return x_217; +} +} +else +{ +lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; uint8_t x_235; uint8_t x_236; uint8_t x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; +x_218 = lean_ctor_get(x_4, 0); +x_219 = lean_ctor_get(x_4, 1); +x_220 = lean_ctor_get(x_4, 2); +x_221 = lean_ctor_get(x_4, 3); +x_222 = lean_ctor_get(x_4, 4); +x_223 = lean_ctor_get(x_4, 5); +lean_inc(x_223); +lean_inc(x_222); +lean_inc(x_221); +lean_inc(x_220); +lean_inc(x_219); +lean_inc(x_218); +lean_dec(x_4); +x_224 = lean_nat_add(x_223, x_31); +x_225 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_225, 0, x_218); +lean_ctor_set(x_225, 1, x_219); +lean_ctor_set(x_225, 2, x_220); +lean_ctor_set(x_225, 3, x_221); +lean_ctor_set(x_225, 4, x_222); +lean_ctor_set(x_225, 5, x_224); +x_226 = lean_ctor_get(x_3, 0); +lean_inc(x_226); +x_227 = lean_ctor_get(x_3, 1); +lean_inc(x_227); +x_228 = lean_ctor_get(x_3, 2); +lean_inc(x_228); +x_229 = lean_ctor_get(x_3, 3); +lean_inc(x_229); +x_230 = lean_ctor_get(x_3, 4); +lean_inc(x_230); +x_231 = lean_ctor_get(x_3, 5); +lean_inc(x_231); +x_232 = lean_ctor_get(x_3, 6); +lean_inc(x_232); +x_233 = lean_ctor_get(x_3, 7); +lean_inc(x_233); +x_234 = lean_ctor_get(x_3, 8); +lean_inc(x_234); +x_235 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_236 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_237 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + lean_ctor_release(x_3, 2); + lean_ctor_release(x_3, 3); + lean_ctor_release(x_3, 4); + lean_ctor_release(x_3, 5); + lean_ctor_release(x_3, 6); + lean_ctor_release(x_3, 7); + lean_ctor_release(x_3, 8); + lean_ctor_release(x_3, 9); + x_238 = x_3; +} else { + lean_dec_ref(x_3); + x_238 = lean_box(0); +} +if (lean_is_scalar(x_238)) { + x_239 = lean_alloc_ctor(0, 10, 3); +} else { + x_239 = x_238; +} +lean_ctor_set(x_239, 0, x_226); +lean_ctor_set(x_239, 1, x_227); +lean_ctor_set(x_239, 2, x_228); +lean_ctor_set(x_239, 3, x_229); +lean_ctor_set(x_239, 4, x_230); +lean_ctor_set(x_239, 5, x_231); +lean_ctor_set(x_239, 6, x_232); +lean_ctor_set(x_239, 7, x_233); +lean_ctor_set(x_239, 8, x_234); +lean_ctor_set(x_239, 9, x_223); +lean_ctor_set_uint8(x_239, sizeof(void*)*10, x_235); +lean_ctor_set_uint8(x_239, sizeof(void*)*10 + 1, x_236); +lean_ctor_set_uint8(x_239, sizeof(void*)*10 + 2, x_237); +lean_inc(x_239); +x_240 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_32, x_2, x_239, x_225); +x_241 = lean_ctor_get(x_240, 0); +lean_inc(x_241); +x_242 = lean_ctor_get(x_240, 1); +lean_inc(x_242); +lean_dec(x_240); +x_243 = lean_ctor_get(x_241, 0); +lean_inc(x_243); +x_244 = lean_ctor_get(x_241, 1); +lean_inc(x_244); +if (lean_is_exclusive(x_241)) { + lean_ctor_release(x_241, 0); + lean_ctor_release(x_241, 1); + x_245 = x_241; +} else { + lean_dec_ref(x_241); + x_245 = lean_box(0); +} +x_246 = l_Lean_Elab_Term_getCurrMacroScope(x_239, x_242); +x_247 = lean_ctor_get(x_246, 0); +lean_inc(x_247); +x_248 = lean_ctor_get(x_246, 1); +lean_inc(x_248); +lean_dec(x_246); +x_249 = l_Lean_Elab_Term_getMainModule___rarg(x_248); +x_250 = lean_ctor_get(x_249, 0); +lean_inc(x_250); +x_251 = lean_ctor_get(x_249, 1); +lean_inc(x_251); +lean_dec(x_249); +x_252 = lean_box(0); +x_253 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3; +x_254 = l_Lean_addMacroScope(x_250, x_253, x_247); +x_255 = lean_box(0); +x_256 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__2; +x_257 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_257, 0, x_252); +lean_ctor_set(x_257, 1, x_256); +lean_ctor_set(x_257, 2, x_254); +lean_ctor_set(x_257, 3, x_255); +x_258 = l_Array_empty___closed__1; +x_259 = lean_array_push(x_258, x_257); +x_260 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_261 = lean_array_push(x_259, x_260); +x_262 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +x_263 = lean_array_push(x_261, x_262); +x_264 = lean_array_push(x_263, x_243); +x_265 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_ctor_set(x_1, 1, x_264); +lean_ctor_set(x_1, 0, x_265); +x_266 = lean_array_push(x_258, x_1); +x_267 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_268 = lean_array_push(x_266, x_267); +x_269 = lean_box(0); +x_270 = lean_array_push(x_268, x_269); +x_271 = l_Lean_nullKind___closed__2; +x_272 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_272, 0, x_271); +lean_ctor_set(x_272, 1, x_270); +x_273 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_274 = lean_array_push(x_273, x_272); +x_275 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_275, 0, x_7); +lean_ctor_set(x_275, 1, x_274); +x_276 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_275); +lean_dec(x_275); +x_277 = lean_array_pop(x_276); +x_278 = lean_unsigned_to_nat(0u); +x_279 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_277, x_277, x_278, x_244); +lean_dec(x_277); +x_280 = l_Lean_Elab_Term_getCurrMacroScope(x_239, x_251); +lean_dec(x_239); +x_281 = lean_ctor_get(x_280, 0); +lean_inc(x_281); +x_282 = lean_ctor_get(x_280, 1); +lean_inc(x_282); +lean_dec(x_280); +x_283 = l_Lean_Elab_Term_getMainModule___rarg(x_282); +x_284 = lean_ctor_get(x_283, 0); +lean_inc(x_284); +x_285 = lean_ctor_get(x_283, 1); +lean_inc(x_285); +if (lean_is_exclusive(x_283)) { + lean_ctor_release(x_283, 0); + lean_ctor_release(x_283, 1); + x_286 = x_283; +} else { + lean_dec_ref(x_283); + x_286 = lean_box(0); +} +x_287 = l_Lean_addMacroScope(x_284, x_253, x_281); +x_288 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_288, 0, x_252); +lean_ctor_set(x_288, 1, x_256); +lean_ctor_set(x_288, 2, x_287); +lean_ctor_set(x_288, 3, x_255); +x_289 = lean_array_push(x_258, x_288); +x_290 = lean_array_push(x_289, x_260); +x_291 = l_Lean_mkTermIdFromIdent___closed__2; +x_292 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_292, 0, x_291); +lean_ctor_set(x_292, 1, x_290); +if (lean_is_scalar(x_245)) { + x_293 = lean_alloc_ctor(0, 2, 0); +} else { + x_293 = x_245; +} +lean_ctor_set(x_293, 0, x_292); +lean_ctor_set(x_293, 1, x_279); +if (lean_is_scalar(x_286)) { + x_294 = lean_alloc_ctor(0, 2, 0); +} else { + x_294 = x_286; +} +lean_ctor_set(x_294, 0, x_293); +lean_ctor_set(x_294, 1, x_285); +return x_294; +} +} +} +else +{ +lean_object* x_295; uint8_t x_296; +lean_dec(x_1); +x_295 = l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; +x_296 = lean_name_eq(x_5, x_295); +if (x_296 == 0) +{ +lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; +x_297 = lean_unsigned_to_nat(0u); +x_298 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___spec__1(x_297, x_6, x_2, x_3, x_4); +x_299 = lean_ctor_get(x_298, 0); +lean_inc(x_299); +x_300 = lean_ctor_get(x_298, 1); +lean_inc(x_300); +if (lean_is_exclusive(x_298)) { + lean_ctor_release(x_298, 0); + lean_ctor_release(x_298, 1); + x_301 = x_298; +} else { + lean_dec_ref(x_298); + x_301 = lean_box(0); +} +x_302 = lean_ctor_get(x_299, 0); +lean_inc(x_302); +x_303 = lean_ctor_get(x_299, 1); +lean_inc(x_303); +if (lean_is_exclusive(x_299)) { + lean_ctor_release(x_299, 0); + lean_ctor_release(x_299, 1); + x_304 = x_299; +} else { + lean_dec_ref(x_299); + x_304 = lean_box(0); +} +x_305 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_305, 0, x_5); +lean_ctor_set(x_305, 1, x_302); +if (lean_is_scalar(x_304)) { + x_306 = lean_alloc_ctor(0, 2, 0); +} else { + x_306 = x_304; +} +lean_ctor_set(x_306, 0, x_305); +lean_ctor_set(x_306, 1, x_303); +if (lean_is_scalar(x_301)) { + x_307 = lean_alloc_ctor(0, 2, 0); +} else { + x_307 = x_301; +} +lean_ctor_set(x_307, 0, x_306); +lean_ctor_set(x_307, 1, x_300); +return x_307; +} +else +{ +lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; uint8_t x_329; uint8_t x_330; uint8_t x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; +lean_dec(x_5); +x_308 = l_Lean_Syntax_inhabited; +x_309 = lean_unsigned_to_nat(1u); +x_310 = lean_array_get(x_308, x_6, x_309); +lean_dec(x_6); +x_311 = lean_ctor_get(x_4, 0); +lean_inc(x_311); +x_312 = lean_ctor_get(x_4, 1); +lean_inc(x_312); +x_313 = lean_ctor_get(x_4, 2); +lean_inc(x_313); +x_314 = lean_ctor_get(x_4, 3); +lean_inc(x_314); +x_315 = lean_ctor_get(x_4, 4); +lean_inc(x_315); +x_316 = lean_ctor_get(x_4, 5); +lean_inc(x_316); +if (lean_is_exclusive(x_4)) { + lean_ctor_release(x_4, 0); + lean_ctor_release(x_4, 1); + lean_ctor_release(x_4, 2); + lean_ctor_release(x_4, 3); + lean_ctor_release(x_4, 4); + lean_ctor_release(x_4, 5); + x_317 = x_4; +} else { + lean_dec_ref(x_4); + x_317 = lean_box(0); +} +x_318 = lean_nat_add(x_316, x_309); +if (lean_is_scalar(x_317)) { + x_319 = lean_alloc_ctor(0, 6, 0); +} else { + x_319 = x_317; +} +lean_ctor_set(x_319, 0, x_311); +lean_ctor_set(x_319, 1, x_312); +lean_ctor_set(x_319, 2, x_313); +lean_ctor_set(x_319, 3, x_314); +lean_ctor_set(x_319, 4, x_315); +lean_ctor_set(x_319, 5, x_318); +x_320 = lean_ctor_get(x_3, 0); +lean_inc(x_320); +x_321 = lean_ctor_get(x_3, 1); +lean_inc(x_321); +x_322 = lean_ctor_get(x_3, 2); +lean_inc(x_322); +x_323 = lean_ctor_get(x_3, 3); +lean_inc(x_323); +x_324 = lean_ctor_get(x_3, 4); +lean_inc(x_324); +x_325 = lean_ctor_get(x_3, 5); +lean_inc(x_325); +x_326 = lean_ctor_get(x_3, 6); +lean_inc(x_326); +x_327 = lean_ctor_get(x_3, 7); +lean_inc(x_327); +x_328 = lean_ctor_get(x_3, 8); +lean_inc(x_328); +x_329 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_330 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_331 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + lean_ctor_release(x_3, 2); + lean_ctor_release(x_3, 3); + lean_ctor_release(x_3, 4); + lean_ctor_release(x_3, 5); + lean_ctor_release(x_3, 6); + lean_ctor_release(x_3, 7); + lean_ctor_release(x_3, 8); + lean_ctor_release(x_3, 9); + x_332 = x_3; +} else { + lean_dec_ref(x_3); + x_332 = lean_box(0); +} +if (lean_is_scalar(x_332)) { + x_333 = lean_alloc_ctor(0, 10, 3); +} else { + x_333 = x_332; +} +lean_ctor_set(x_333, 0, x_320); +lean_ctor_set(x_333, 1, x_321); +lean_ctor_set(x_333, 2, x_322); +lean_ctor_set(x_333, 3, x_323); +lean_ctor_set(x_333, 4, x_324); +lean_ctor_set(x_333, 5, x_325); +lean_ctor_set(x_333, 6, x_326); +lean_ctor_set(x_333, 7, x_327); +lean_ctor_set(x_333, 8, x_328); +lean_ctor_set(x_333, 9, x_316); +lean_ctor_set_uint8(x_333, sizeof(void*)*10, x_329); +lean_ctor_set_uint8(x_333, sizeof(void*)*10 + 1, x_330); +lean_ctor_set_uint8(x_333, sizeof(void*)*10 + 2, x_331); +lean_inc(x_333); +x_334 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_310, x_2, x_333, x_319); +x_335 = lean_ctor_get(x_334, 0); +lean_inc(x_335); +x_336 = lean_ctor_get(x_334, 1); +lean_inc(x_336); +lean_dec(x_334); +x_337 = lean_ctor_get(x_335, 0); +lean_inc(x_337); +x_338 = lean_ctor_get(x_335, 1); +lean_inc(x_338); +if (lean_is_exclusive(x_335)) { + lean_ctor_release(x_335, 0); + lean_ctor_release(x_335, 1); + x_339 = x_335; +} else { + lean_dec_ref(x_335); + x_339 = lean_box(0); +} +x_340 = l_Lean_Elab_Term_getCurrMacroScope(x_333, x_336); +x_341 = lean_ctor_get(x_340, 0); +lean_inc(x_341); +x_342 = lean_ctor_get(x_340, 1); +lean_inc(x_342); +lean_dec(x_340); +x_343 = l_Lean_Elab_Term_getMainModule___rarg(x_342); +x_344 = lean_ctor_get(x_343, 0); +lean_inc(x_344); +x_345 = lean_ctor_get(x_343, 1); +lean_inc(x_345); +lean_dec(x_343); +x_346 = lean_box(0); +x_347 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3; +x_348 = l_Lean_addMacroScope(x_344, x_347, x_341); +x_349 = lean_box(0); +x_350 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__2; +x_351 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_351, 0, x_346); +lean_ctor_set(x_351, 1, x_350); +lean_ctor_set(x_351, 2, x_348); +lean_ctor_set(x_351, 3, x_349); +x_352 = l_Array_empty___closed__1; +x_353 = lean_array_push(x_352, x_351); +x_354 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_355 = lean_array_push(x_353, x_354); +x_356 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +x_357 = lean_array_push(x_355, x_356); +x_358 = lean_array_push(x_357, x_337); +x_359 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_360 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_360, 0, x_359); +lean_ctor_set(x_360, 1, x_358); +x_361 = lean_array_push(x_352, x_360); +x_362 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_363 = lean_array_push(x_361, x_362); +x_364 = lean_box(0); +x_365 = lean_array_push(x_363, x_364); +x_366 = l_Lean_nullKind___closed__2; +x_367 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_367, 0, x_366); +lean_ctor_set(x_367, 1, x_365); +x_368 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_369 = lean_array_push(x_368, x_367); +x_370 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_370, 0, x_7); +lean_ctor_set(x_370, 1, x_369); +x_371 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_370); +lean_dec(x_370); +x_372 = lean_array_pop(x_371); +x_373 = lean_unsigned_to_nat(0u); +x_374 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_372, x_372, x_373, x_338); +lean_dec(x_372); +x_375 = l_Lean_Elab_Term_getCurrMacroScope(x_333, x_345); +lean_dec(x_333); +x_376 = lean_ctor_get(x_375, 0); +lean_inc(x_376); +x_377 = lean_ctor_get(x_375, 1); +lean_inc(x_377); +lean_dec(x_375); +x_378 = l_Lean_Elab_Term_getMainModule___rarg(x_377); +x_379 = lean_ctor_get(x_378, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_378, 1); +lean_inc(x_380); +if (lean_is_exclusive(x_378)) { + lean_ctor_release(x_378, 0); + lean_ctor_release(x_378, 1); + x_381 = x_378; +} else { + lean_dec_ref(x_378); + x_381 = lean_box(0); +} +x_382 = l_Lean_addMacroScope(x_379, x_347, x_376); +x_383 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_383, 0, x_346); +lean_ctor_set(x_383, 1, x_350); +lean_ctor_set(x_383, 2, x_382); +lean_ctor_set(x_383, 3, x_349); +x_384 = lean_array_push(x_352, x_383); +x_385 = lean_array_push(x_384, x_354); +x_386 = l_Lean_mkTermIdFromIdent___closed__2; +x_387 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_387, 0, x_386); +lean_ctor_set(x_387, 1, x_385); +if (lean_is_scalar(x_339)) { + x_388 = lean_alloc_ctor(0, 2, 0); +} else { + x_388 = x_339; +} +lean_ctor_set(x_388, 0, x_387); +lean_ctor_set(x_388, 1, x_374); +if (lean_is_scalar(x_381)) { + x_389 = lean_alloc_ctor(0, 2, 0); +} else { + x_389 = x_381; +} +lean_ctor_set(x_389, 0, x_388); +lean_ctor_set(x_389, 1, x_380); +return x_389; +} +} +} +else +{ +lean_object* x_390; lean_object* x_391; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +x_390 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_390, 0, x_1); +lean_ctor_set(x_390, 1, x_2); +x_391 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_391, 0, x_390); +lean_ctor_set(x_391, 1, x_4); +return x_391; +} +} +else +{ +lean_object* x_392; lean_object* x_393; +lean_dec(x_3); +x_392 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_392, 0, x_1); +lean_ctor_set(x_392, 1, x_2); +x_393 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_393, 0, x_392); +lean_ctor_set(x_393, 1, x_4); +return x_393; +} +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_6__expandLiftMethod(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = l___private_Init_Lean_Elab_DoNotation_4__hasLiftMethod___main(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_2); +lean_dec(x_1); +x_5 = lean_box(0); +x_6 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_3); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = l_Array_empty___closed__1; +x_8 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main(x_1, x_7, x_2, x_3); +x_9 = !lean_is_exclusive(x_8); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_ctor_get(x_8, 0); +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_array_push(x_12, x_11); +x_14 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_8, 0, x_14); +return x_8; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_15 = lean_ctor_get(x_8, 0); +x_16 = lean_ctor_get(x_8, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_8); +x_17 = lean_ctor_get(x_15, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); +lean_inc(x_18); +lean_dec(x_15); +x_19 = lean_array_push(x_18, x_17); +x_20 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_20, 0, x_19); +x_21 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_16); +return x_21; +} +} +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__1() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -1060,17 +2312,17 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Array_empty___closed__1; -x_2 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__7; +x_2 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__1; x_3 = lean_array_push(x_1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -1082,75 +2334,7 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__10() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Parser_Term_match___elambda__1___closed__1; -x_3 = lean_alloc_ctor(2, 2, 0); -lean_ctor_set(x_3, 0, x_1); -lean_ctor_set(x_3, 1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_empty___closed__1; -x_2 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__10; -x_3 = lean_array_push(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg___closed__6; -x_3 = lean_alloc_ctor(2, 2, 0); -lean_ctor_set(x_3, 0, x_1); -lean_ctor_set(x_3, 1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__1; -x_3 = lean_alloc_ctor(2, 2, 0); -lean_ctor_set(x_3, 0, x_1); -lean_ctor_set(x_3, 1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__14() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_empty___closed__1; -x_2 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_3 = lean_array_push(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_nullKind___closed__2; -x_2 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__14; -x_3 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_3, 0, x_1); -lean_ctor_set(x_3, 1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__16() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -1160,2874 +2344,4446 @@ x_3 = lean_array_push(x_1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__16; +x_1 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__4; x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; x_3 = lean_array_push(x_1, x_2); return x_3; } } -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_5; uint8_t x_6; -x_5 = lean_array_get_size(x_1); -x_6 = lean_nat_dec_lt(x_2, x_5); -if (x_6 == 0) +lean_object* x_6; uint8_t x_7; +x_6 = lean_array_get_size(x_2); +x_7 = lean_nat_dec_lt(x_3, x_6); +if (x_7 == 0) { -lean_object* x_7; lean_object* x_8; -lean_dec(x_5); +lean_dec(x_6); lean_dec(x_3); +if (x_1 == 0) +{ +lean_object* x_8; lean_object* x_9; +lean_dec(x_4); lean_dec(x_2); -lean_dec(x_1); -x_7 = lean_box(0); -x_8 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_8, 0, x_7); -lean_ctor_set(x_8, 1, x_4); -return x_8; +x_8 = lean_box(0); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_5); +return x_9; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; -x_9 = lean_array_fget(x_1, x_2); -lean_inc(x_9); -x_10 = l_Lean_Syntax_getKind(x_9); -x_11 = l_Lean_Parser_Term_doLet___elambda__1___closed__2; -x_12 = lean_name_eq(x_10, x_11); -if (x_12 == 0) -{ -lean_object* x_13; uint8_t x_14; -x_13 = l_Lean_Parser_Term_doPat___elambda__1___closed__2; -x_14 = lean_name_eq(x_10, x_13); -if (x_14 == 0) -{ -lean_object* x_15; lean_object* x_16; uint8_t x_17; -x_15 = lean_unsigned_to_nat(2u); -x_16 = lean_nat_sub(x_5, x_15); -lean_dec(x_5); -x_17 = lean_nat_dec_lt(x_2, x_16); -lean_dec(x_16); -if (x_17 == 0) -{ -lean_object* x_18; +lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_10 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); lean_dec(x_10); -lean_dec(x_9); -x_18 = lean_nat_add(x_2, x_15); +x_12 = l_Lean_Elab_Term_getMainModule___rarg(x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_14 = lean_ctor_get(x_12, 0); +lean_dec(x_14); +x_15 = lean_unsigned_to_nat(0u); +x_16 = l_Array_empty___closed__1; +x_17 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_2, x_2, x_15, x_16); lean_dec(x_2); -x_2 = x_18; -goto _start; +x_18 = l_Lean_nullKind___closed__2; +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +x_20 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_21 = lean_array_push(x_20, x_19); +x_22 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_23 = lean_array_push(x_21, x_22); +x_24 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_23); +x_26 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_27 = lean_array_push(x_26, x_25); +x_28 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_27); +x_30 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_12, 0, x_30); +return x_12; } else { -lean_object* x_20; uint8_t x_21; -x_20 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_21 = lean_name_eq(x_10, x_20); -lean_dec(x_10); -if (x_21 == 0) -{ -lean_object* x_22; -lean_dec(x_9); -x_22 = lean_nat_add(x_2, x_15); -lean_dec(x_2); -x_2 = x_22; -goto _start; -} -else -{ -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; -x_24 = lean_unsigned_to_nat(0u); -x_25 = l_Lean_Syntax_getArg(x_9, x_24); -lean_dec(x_9); -x_26 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_27 = lean_ctor_get(x_26, 0); -lean_inc(x_27); -x_28 = lean_ctor_get(x_26, 1); -lean_inc(x_28); -lean_dec(x_26); -x_29 = l_Lean_Elab_Term_getMainModule___rarg(x_28); -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -x_31 = lean_ctor_get(x_29, 1); +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_31 = lean_ctor_get(x_12, 1); lean_inc(x_31); -lean_dec(x_29); -x_32 = lean_box(0); -x_33 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_34 = l_Lean_addMacroScope(x_30, x_33, x_27); -x_35 = lean_box(0); -x_36 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_37 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_37, 0, x_32); -lean_ctor_set(x_37, 1, x_36); -lean_ctor_set(x_37, 2, x_34); -lean_ctor_set(x_37, 3, x_35); -x_38 = l_Array_empty___closed__1; -x_39 = lean_array_push(x_38, x_37); -x_40 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_41 = lean_array_push(x_39, x_40); -x_42 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -x_43 = lean_array_push(x_41, x_42); -x_44 = lean_array_push(x_43, x_25); -x_45 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_dec(x_12); +x_32 = lean_unsigned_to_nat(0u); +x_33 = l_Array_empty___closed__1; +x_34 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_2, x_2, x_32, x_33); +lean_dec(x_2); +x_35 = l_Lean_nullKind___closed__2; +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_34); +x_37 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_38 = lean_array_push(x_37, x_36); +x_39 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_40 = lean_array_push(x_38, x_39); +x_41 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_40); +x_43 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_44 = lean_array_push(x_43, x_42); +x_45 = l_Lean_Parser_Term_do___elambda__1___closed__2; x_46 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_46, 0, x_45); lean_ctor_set(x_46, 1, x_44); -x_47 = lean_array_push(x_38, x_46); -x_48 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_49 = lean_array_push(x_47, x_48); -x_50 = lean_box(0); -x_51 = lean_array_push(x_49, x_50); -x_52 = l_Lean_nullKind___closed__2; -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_51); -x_54 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_55 = lean_array_push(x_54, x_53); -x_56 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_56); -lean_ctor_set(x_57, 1, x_55); -x_58 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_57); -lean_dec(x_57); -x_59 = l_Lean_Syntax_inhabited; -x_60 = lean_array_get(x_59, x_58, x_24); -lean_dec(x_58); -x_61 = lean_array_set(x_1, x_2, x_60); -x_62 = lean_nat_add(x_2, x_15); -lean_dec(x_2); -x_1 = x_61; -x_2 = x_62; -x_4 = x_31; +x_47 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_47, 0, x_46); +x_48 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_31); +return x_48; +} +} +} +else +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_49 = lean_array_fget(x_2, x_3); +lean_inc(x_4); +lean_inc(x_49); +x_50 = l___private_Init_Lean_Elab_DoNotation_6__expandLiftMethod(x_49, x_4, x_5); +x_51 = lean_ctor_get(x_50, 0); +lean_inc(x_51); +if (lean_obj_tag(x_51) == 0) +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; uint8_t x_56; +x_52 = lean_ctor_get(x_50, 1); +lean_inc(x_52); +if (lean_is_exclusive(x_50)) { + lean_ctor_release(x_50, 0); + lean_ctor_release(x_50, 1); + x_53 = x_50; +} else { + lean_dec_ref(x_50); + x_53 = lean_box(0); +} +lean_inc(x_49); +x_54 = l_Lean_Syntax_getKind(x_49); +x_55 = l_Lean_Parser_Term_doLet___elambda__1___closed__2; +x_56 = lean_name_eq(x_54, x_55); +if (x_56 == 0) +{ +lean_object* x_57; uint8_t x_58; +x_57 = l_Lean_Parser_Term_doPat___elambda__1___closed__2; +x_58 = lean_name_eq(x_54, x_57); +if (x_58 == 0) +{ +lean_object* x_59; lean_object* x_60; uint8_t x_61; +lean_dec(x_53); +x_59 = lean_unsigned_to_nat(1u); +x_60 = lean_nat_sub(x_6, x_59); +lean_dec(x_6); +x_61 = lean_nat_dec_lt(x_3, x_60); +lean_dec(x_60); +if (x_61 == 0) +{ +lean_object* x_62; lean_object* x_63; +lean_dec(x_54); +lean_dec(x_49); +x_62 = lean_unsigned_to_nat(2u); +x_63 = lean_nat_add(x_3, x_62); +lean_dec(x_3); +x_3 = x_63; +x_5 = x_52; +goto _start; +} +else +{ +lean_object* x_65; uint8_t x_66; +x_65 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_66 = lean_name_eq(x_54, x_65); +lean_dec(x_54); +if (x_66 == 0) +{ +lean_object* x_67; lean_object* x_68; +lean_dec(x_49); +x_67 = lean_unsigned_to_nat(2u); +x_68 = lean_nat_add(x_3, x_67); +lean_dec(x_3); +x_3 = x_68; +x_5 = x_52; +goto _start; +} +else +{ +lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; uint8_t x_110; +x_70 = lean_unsigned_to_nat(0u); +x_71 = l_Lean_Syntax_getArg(x_49, x_70); +lean_dec(x_49); +x_72 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_52); +x_73 = lean_ctor_get(x_72, 0); +lean_inc(x_73); +x_74 = lean_ctor_get(x_72, 1); +lean_inc(x_74); +lean_dec(x_72); +x_75 = l_Lean_Elab_Term_getMainModule___rarg(x_74); +x_76 = lean_ctor_get(x_75, 0); +lean_inc(x_76); +x_77 = lean_ctor_get(x_75, 1); +lean_inc(x_77); +lean_dec(x_75); +x_78 = lean_box(0); +x_79 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_80 = l_Lean_addMacroScope(x_76, x_79, x_73); +x_81 = lean_box(0); +x_82 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_83 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_83, 0, x_78); +lean_ctor_set(x_83, 1, x_82); +lean_ctor_set(x_83, 2, x_80); +lean_ctor_set(x_83, 3, x_81); +x_84 = l_Array_empty___closed__1; +x_85 = lean_array_push(x_84, x_83); +x_86 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_87 = lean_array_push(x_85, x_86); +x_88 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +x_89 = lean_array_push(x_87, x_88); +x_90 = lean_array_push(x_89, x_71); +x_91 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_90); +x_93 = lean_array_push(x_84, x_92); +x_94 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_95 = lean_array_push(x_93, x_94); +x_96 = lean_box(0); +x_97 = lean_array_push(x_95, x_96); +x_98 = l_Lean_nullKind___closed__2; +x_99 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_99, 0, x_98); +lean_ctor_set(x_99, 1, x_97); +x_100 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_101 = lean_array_push(x_100, x_99); +x_102 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_103, 0, x_102); +lean_ctor_set(x_103, 1, x_101); +x_104 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_103); +lean_dec(x_103); +x_105 = l_Lean_Syntax_inhabited; +x_106 = lean_array_get(x_105, x_104, x_70); +lean_dec(x_104); +x_107 = lean_array_set(x_2, x_3, x_106); +x_108 = lean_unsigned_to_nat(2u); +x_109 = lean_nat_add(x_3, x_108); +lean_dec(x_3); +x_110 = 1; +x_1 = x_110; +x_2 = x_107; +x_3 = x_109; +x_5 = x_77; goto _start; } } } else { -lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; uint8_t x_74; -lean_dec(x_10); -x_64 = lean_unsigned_to_nat(0u); -x_65 = l_Lean_Syntax_getArg(x_9, x_64); -x_66 = lean_unsigned_to_nat(2u); -x_67 = l_Lean_Syntax_getArg(x_9, x_66); -x_68 = lean_unsigned_to_nat(3u); -x_69 = l_Lean_Syntax_getArg(x_9, x_68); -lean_dec(x_9); -x_70 = lean_nat_add(x_2, x_66); -x_71 = l_Array_extract___rarg(x_1, x_70, x_5); -lean_dec(x_5); -x_72 = lean_array_get_size(x_71); -x_73 = lean_unsigned_to_nat(1u); -x_74 = lean_nat_dec_eq(x_72, x_73); -lean_dec(x_72); -if (x_74 == 0) +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; uint8_t x_122; +lean_dec(x_54); +x_112 = lean_unsigned_to_nat(0u); +x_113 = l_Lean_Syntax_getArg(x_49, x_112); +x_114 = lean_unsigned_to_nat(2u); +x_115 = l_Lean_Syntax_getArg(x_49, x_114); +x_116 = lean_unsigned_to_nat(3u); +x_117 = l_Lean_Syntax_getArg(x_49, x_116); +lean_dec(x_49); +x_118 = lean_nat_add(x_3, x_114); +x_119 = l_Array_extract___rarg(x_2, x_118, x_6); +lean_dec(x_6); +x_120 = lean_array_get_size(x_119); +x_121 = lean_unsigned_to_nat(1u); +x_122 = lean_nat_dec_eq(x_120, x_121); +lean_dec(x_120); +if (x_122 == 0) { -uint8_t x_75; -x_75 = !lean_is_exclusive(x_4); -if (x_75 == 0) +uint8_t x_123; +lean_dec(x_53); +x_123 = !lean_is_exclusive(x_52); +if (x_123 == 0) { -lean_object* x_76; lean_object* x_77; uint8_t x_78; -x_76 = lean_ctor_get(x_4, 5); -x_77 = lean_nat_add(x_76, x_73); -lean_ctor_set(x_4, 5, x_77); -x_78 = !lean_is_exclusive(x_3); -if (x_78 == 0) +lean_object* x_124; lean_object* x_125; uint8_t x_126; +x_124 = lean_ctor_get(x_52, 5); +x_125 = lean_nat_add(x_124, x_121); +lean_ctor_set(x_52, 5, x_125); +x_126 = !lean_is_exclusive(x_4); +if (x_126 == 0) { -lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; uint8_t x_136; -x_79 = lean_ctor_get(x_3, 9); -lean_dec(x_79); -lean_ctor_set(x_3, 9, x_76); -x_80 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_81 = lean_ctor_get(x_80, 1); -lean_inc(x_81); -lean_dec(x_80); -x_82 = l_Lean_Elab_Term_getMainModule___rarg(x_81); -x_83 = lean_ctor_get(x_82, 1); -lean_inc(x_83); -if (lean_is_exclusive(x_82)) { - lean_ctor_release(x_82, 0); - lean_ctor_release(x_82, 1); - x_84 = x_82; +lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; uint8_t x_183; +x_127 = lean_ctor_get(x_4, 9); +lean_dec(x_127); +lean_ctor_set(x_4, 9, x_124); +x_128 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_52); +x_129 = lean_ctor_get(x_128, 1); +lean_inc(x_129); +lean_dec(x_128); +x_130 = l_Lean_Elab_Term_getMainModule___rarg(x_129); +x_131 = lean_ctor_get(x_130, 1); +lean_inc(x_131); +if (lean_is_exclusive(x_130)) { + lean_ctor_release(x_130, 0); + lean_ctor_release(x_130, 1); + x_132 = x_130; } else { - lean_dec_ref(x_82); - x_84 = lean_box(0); + lean_dec_ref(x_130); + x_132 = lean_box(0); } -x_85 = lean_box(0); -x_86 = l_Array_empty___closed__1; -x_87 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_71, x_71, x_64, x_86); -lean_dec(x_71); -x_88 = l_Lean_nullKind___closed__2; -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_88); -lean_ctor_set(x_89, 1, x_87); -x_90 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_91 = lean_array_push(x_90, x_89); -x_92 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_93 = lean_array_push(x_91, x_92); -x_94 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_95 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_93); -x_96 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_97 = lean_array_push(x_96, x_95); -x_98 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_99 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_99, 0, x_98); -lean_ctor_set(x_99, 1, x_97); -x_136 = l_Lean_Syntax_isNone(x_69); -if (x_136 == 0) +x_133 = lean_box(0); +x_134 = l_Array_empty___closed__1; +x_135 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_119, x_119, x_112, x_134); +lean_dec(x_119); +x_136 = l_Lean_nullKind___closed__2; +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_136); +lean_ctor_set(x_137, 1, x_135); +x_138 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_139 = lean_array_push(x_138, x_137); +x_140 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_141 = lean_array_push(x_139, x_140); +x_142 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_143 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_143, 0, x_142); +lean_ctor_set(x_143, 1, x_141); +x_144 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_145 = lean_array_push(x_144, x_143); +x_146 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_147 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_147, 0, x_146); +lean_ctor_set(x_147, 1, x_145); +x_183 = l_Lean_Syntax_isNone(x_117); +if (x_183 == 0) { -lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; -x_137 = l_Lean_Syntax_getArg(x_69, x_73); -lean_dec(x_69); -x_138 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_83); -x_139 = lean_ctor_get(x_138, 0); -lean_inc(x_139); -x_140 = lean_ctor_get(x_138, 1); -lean_inc(x_140); -lean_dec(x_138); -x_141 = l_Lean_Elab_Term_getMainModule___rarg(x_140); -x_142 = lean_ctor_get(x_141, 0); -lean_inc(x_142); -x_143 = lean_ctor_get(x_141, 1); -lean_inc(x_143); -lean_dec(x_141); -x_144 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_145 = l_Lean_addMacroScope(x_142, x_144, x_139); -x_146 = lean_box(0); -x_147 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_148 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_148, 0, x_85); -lean_ctor_set(x_148, 1, x_147); -lean_ctor_set(x_148, 2, x_145); -lean_ctor_set(x_148, 3, x_146); -x_149 = lean_array_push(x_86, x_148); -x_150 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_151 = lean_array_push(x_149, x_150); -x_152 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_151); -x_153 = lean_array_push(x_151, x_152); -x_154 = lean_array_push(x_153, x_67); -x_155 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_156 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_156, 0, x_155); -lean_ctor_set(x_156, 1, x_154); -x_157 = lean_array_push(x_86, x_156); -x_158 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_159 = lean_array_push(x_157, x_158); -x_160 = l_Lean_mkTermIdFromIdent___closed__2; -x_161 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_161, 0, x_160); -lean_ctor_set(x_161, 1, x_151); -x_162 = lean_array_push(x_86, x_161); -x_163 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_163, 0, x_88); -lean_ctor_set(x_163, 1, x_162); -x_164 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_165 = lean_array_push(x_164, x_163); -x_166 = lean_array_push(x_165, x_150); -x_167 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_168 = lean_array_push(x_166, x_167); -x_169 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_170 = lean_array_push(x_168, x_169); -x_171 = lean_array_push(x_86, x_65); -x_172 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_172, 0, x_88); -lean_ctor_set(x_172, 1, x_171); -x_173 = lean_array_push(x_86, x_172); -x_174 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_175 = lean_array_push(x_173, x_174); -x_176 = lean_array_push(x_175, x_99); -x_177 = l_Lean_Parser_Term_matchAlt___closed__2; -x_178 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_178, 0, x_177); -lean_ctor_set(x_178, 1, x_176); -x_179 = lean_array_push(x_86, x_178); -x_180 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_181 = lean_array_push(x_179, x_180); -x_182 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; -x_183 = lean_array_push(x_182, x_137); -x_184 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_184, 0, x_177); -lean_ctor_set(x_184, 1, x_183); -x_185 = lean_array_push(x_181, x_184); -x_186 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_186, 0, x_88); -lean_ctor_set(x_186, 1, x_185); -x_187 = lean_array_push(x_170, x_186); -x_188 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_188); -lean_ctor_set(x_189, 1, x_187); -x_190 = lean_array_push(x_86, x_189); -x_191 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_192 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_192, 0, x_191); -lean_ctor_set(x_192, 1, x_190); -x_193 = lean_array_push(x_159, x_192); -x_194 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_194, 0, x_88); -lean_ctor_set(x_194, 1, x_193); -x_195 = lean_array_push(x_96, x_194); -x_196 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_196, 0, x_98); -lean_ctor_set(x_196, 1, x_195); -x_100 = x_196; -x_101 = x_143; -goto block_135; -} -else -{ -lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; -lean_dec(x_69); -x_197 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_83); -x_198 = lean_ctor_get(x_197, 0); +lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; +x_184 = l_Lean_Syntax_getArg(x_117, x_121); +lean_dec(x_117); +x_185 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_131); +x_186 = lean_ctor_get(x_185, 0); +lean_inc(x_186); +x_187 = lean_ctor_get(x_185, 1); +lean_inc(x_187); +lean_dec(x_185); +x_188 = l_Lean_Elab_Term_getMainModule___rarg(x_187); +x_189 = lean_ctor_get(x_188, 0); +lean_inc(x_189); +x_190 = lean_ctor_get(x_188, 1); +lean_inc(x_190); +lean_dec(x_188); +x_191 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_192 = l_Lean_addMacroScope(x_189, x_191, x_186); +x_193 = lean_box(0); +x_194 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_195 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_195, 0, x_133); +lean_ctor_set(x_195, 1, x_194); +lean_ctor_set(x_195, 2, x_192); +lean_ctor_set(x_195, 3, x_193); +x_196 = lean_array_push(x_134, x_195); +x_197 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_198 = lean_array_push(x_196, x_197); +x_199 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; lean_inc(x_198); -x_199 = lean_ctor_get(x_197, 1); -lean_inc(x_199); -lean_dec(x_197); -x_200 = l_Lean_Elab_Term_getMainModule___rarg(x_199); -x_201 = lean_ctor_get(x_200, 0); -lean_inc(x_201); -x_202 = lean_ctor_get(x_200, 1); -lean_inc(x_202); -lean_dec(x_200); -x_203 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_204 = l_Lean_addMacroScope(x_201, x_203, x_198); -x_205 = lean_box(0); -x_206 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_207 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_207, 0, x_85); -lean_ctor_set(x_207, 1, x_206); -lean_ctor_set(x_207, 2, x_204); -lean_ctor_set(x_207, 3, x_205); -x_208 = lean_array_push(x_86, x_207); -x_209 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_210 = lean_array_push(x_208, x_209); -x_211 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_210); -x_212 = lean_array_push(x_210, x_211); -x_213 = lean_array_push(x_212, x_67); -x_214 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_215 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_215, 0, x_214); -lean_ctor_set(x_215, 1, x_213); -x_216 = lean_array_push(x_86, x_215); -x_217 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_218 = lean_array_push(x_216, x_217); -x_219 = l_Lean_mkTermIdFromIdent___closed__2; -x_220 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_220, 0, x_219); -lean_ctor_set(x_220, 1, x_210); -x_221 = lean_array_push(x_86, x_220); -x_222 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_222, 0, x_88); -lean_ctor_set(x_222, 1, x_221); -x_223 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_224 = lean_array_push(x_223, x_222); -x_225 = lean_array_push(x_224, x_209); -x_226 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_227 = lean_array_push(x_225, x_226); -x_228 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_229 = lean_array_push(x_227, x_228); -x_230 = lean_array_push(x_86, x_65); +x_200 = lean_array_push(x_198, x_199); +x_201 = lean_array_push(x_200, x_115); +x_202 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_203 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_203, 0, x_202); +lean_ctor_set(x_203, 1, x_201); +x_204 = lean_array_push(x_134, x_203); +x_205 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_206 = lean_array_push(x_204, x_205); +x_207 = l_Lean_mkTermIdFromIdent___closed__2; +x_208 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_208, 0, x_207); +lean_ctor_set(x_208, 1, x_198); +x_209 = lean_array_push(x_134, x_208); +x_210 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_210, 0, x_136); +lean_ctor_set(x_210, 1, x_209); +x_211 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_212 = lean_array_push(x_211, x_210); +x_213 = lean_array_push(x_212, x_197); +x_214 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_215 = lean_array_push(x_213, x_214); +x_216 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_217 = lean_array_push(x_215, x_216); +x_218 = lean_array_push(x_134, x_113); +x_219 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_219, 0, x_136); +lean_ctor_set(x_219, 1, x_218); +x_220 = lean_array_push(x_134, x_219); +x_221 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_222 = lean_array_push(x_220, x_221); +x_223 = lean_array_push(x_222, x_147); +x_224 = l_Lean_Parser_Term_matchAlt___closed__2; +x_225 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_225, 0, x_224); +lean_ctor_set(x_225, 1, x_223); +x_226 = lean_array_push(x_134, x_225); +x_227 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; +x_228 = lean_array_push(x_226, x_227); +x_229 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +x_230 = lean_array_push(x_229, x_184); x_231 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_231, 0, x_88); +lean_ctor_set(x_231, 0, x_224); lean_ctor_set(x_231, 1, x_230); -x_232 = lean_array_push(x_86, x_231); -x_233 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_234 = lean_array_push(x_232, x_233); -x_235 = lean_array_push(x_234, x_99); -x_236 = l_Lean_Parser_Term_matchAlt___closed__2; -x_237 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_237, 0, x_236); -lean_ctor_set(x_237, 1, x_235); -x_238 = lean_array_push(x_86, x_237); +x_232 = lean_array_push(x_228, x_231); +x_233 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_233, 0, x_136); +lean_ctor_set(x_233, 1, x_232); +x_234 = lean_array_push(x_217, x_233); +x_235 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_236 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_236, 0, x_235); +lean_ctor_set(x_236, 1, x_234); +x_237 = lean_array_push(x_134, x_236); +x_238 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; x_239 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_239, 0, x_88); -lean_ctor_set(x_239, 1, x_238); -x_240 = lean_array_push(x_229, x_239); -x_241 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_242 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_242, 0, x_241); -lean_ctor_set(x_242, 1, x_240); -x_243 = lean_array_push(x_86, x_242); -x_244 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_245 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_245, 0, x_244); -lean_ctor_set(x_245, 1, x_243); -x_246 = lean_array_push(x_218, x_245); -x_247 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_247, 0, x_88); -lean_ctor_set(x_247, 1, x_246); -x_248 = lean_array_push(x_96, x_247); -x_249 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_249, 0, x_98); -lean_ctor_set(x_249, 1, x_248); -x_100 = x_249; -x_101 = x_202; -goto block_135; -} -block_135: -{ -uint8_t x_102; -x_102 = lean_nat_dec_eq(x_2, x_64); -if (x_102 == 0) -{ -lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; uint8_t x_113; -lean_dec(x_84); -x_103 = lean_nat_sub(x_2, x_73); -lean_dec(x_2); -x_104 = l_Array_extract___rarg(x_1, x_64, x_103); -lean_dec(x_103); -lean_dec(x_1); -x_105 = l_Lean_mkOptionalNode___closed__2; -x_106 = lean_array_push(x_105, x_100); -x_107 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_108 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_108, 0, x_107); -lean_ctor_set(x_108, 1, x_106); -x_109 = lean_array_push(x_104, x_108); -x_110 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_101); -lean_dec(x_3); -x_111 = lean_ctor_get(x_110, 1); -lean_inc(x_111); -lean_dec(x_110); -x_112 = l_Lean_Elab_Term_getMainModule___rarg(x_111); -x_113 = !lean_is_exclusive(x_112); -if (x_113 == 0) -{ -lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_114 = lean_ctor_get(x_112, 0); -lean_dec(x_114); -x_115 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_109, x_109, x_64, x_86); -lean_dec(x_109); -x_116 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_116, 0, x_88); -lean_ctor_set(x_116, 1, x_115); -x_117 = lean_array_push(x_90, x_116); -x_118 = lean_array_push(x_117, x_92); -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_94); -lean_ctor_set(x_119, 1, x_118); -x_120 = lean_array_push(x_96, x_119); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_98); -lean_ctor_set(x_121, 1, x_120); -x_122 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_122, 0, x_121); -lean_ctor_set(x_112, 0, x_122); -return x_112; +lean_ctor_set(x_239, 0, x_238); +lean_ctor_set(x_239, 1, x_237); +x_240 = lean_array_push(x_206, x_239); +x_241 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_241, 0, x_136); +lean_ctor_set(x_241, 1, x_240); +x_242 = lean_array_push(x_144, x_241); +x_243 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_243, 0, x_146); +lean_ctor_set(x_243, 1, x_242); +x_148 = x_243; +x_149 = x_190; +goto block_182; } else { -lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; -x_123 = lean_ctor_get(x_112, 1); -lean_inc(x_123); -lean_dec(x_112); -x_124 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_109, x_109, x_64, x_86); -lean_dec(x_109); -x_125 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_125, 0, x_88); -lean_ctor_set(x_125, 1, x_124); -x_126 = lean_array_push(x_90, x_125); -x_127 = lean_array_push(x_126, x_92); -x_128 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_128, 0, x_94); -lean_ctor_set(x_128, 1, x_127); -x_129 = lean_array_push(x_96, x_128); -x_130 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_130, 0, x_98); -lean_ctor_set(x_130, 1, x_129); -x_131 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_131, 0, x_130); -x_132 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_132, 0, x_131); -lean_ctor_set(x_132, 1, x_123); -return x_132; -} -} -else -{ -lean_object* x_133; lean_object* x_134; -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_133 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_133, 0, x_100); -if (lean_is_scalar(x_84)) { - x_134 = lean_alloc_ctor(0, 2, 0); -} else { - x_134 = x_84; -} -lean_ctor_set(x_134, 0, x_133); -lean_ctor_set(x_134, 1, x_101); -return x_134; -} -} -} -else -{ -lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; uint8_t x_259; uint8_t x_260; uint8_t x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; uint8_t x_310; -x_250 = lean_ctor_get(x_3, 0); -x_251 = lean_ctor_get(x_3, 1); -x_252 = lean_ctor_get(x_3, 2); -x_253 = lean_ctor_get(x_3, 3); -x_254 = lean_ctor_get(x_3, 4); -x_255 = lean_ctor_get(x_3, 5); -x_256 = lean_ctor_get(x_3, 6); -x_257 = lean_ctor_get(x_3, 7); -x_258 = lean_ctor_get(x_3, 8); -x_259 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_260 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); -x_261 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); -lean_inc(x_258); +lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; +lean_dec(x_117); +x_244 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_131); +x_245 = lean_ctor_get(x_244, 0); +lean_inc(x_245); +x_246 = lean_ctor_get(x_244, 1); +lean_inc(x_246); +lean_dec(x_244); +x_247 = l_Lean_Elab_Term_getMainModule___rarg(x_246); +x_248 = lean_ctor_get(x_247, 0); +lean_inc(x_248); +x_249 = lean_ctor_get(x_247, 1); +lean_inc(x_249); +lean_dec(x_247); +x_250 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_251 = l_Lean_addMacroScope(x_248, x_250, x_245); +x_252 = lean_box(0); +x_253 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_254 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_254, 0, x_133); +lean_ctor_set(x_254, 1, x_253); +lean_ctor_set(x_254, 2, x_251); +lean_ctor_set(x_254, 3, x_252); +x_255 = lean_array_push(x_134, x_254); +x_256 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_257 = lean_array_push(x_255, x_256); +x_258 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; lean_inc(x_257); -lean_inc(x_256); -lean_inc(x_255); -lean_inc(x_254); -lean_inc(x_253); -lean_inc(x_252); -lean_inc(x_251); -lean_inc(x_250); -lean_dec(x_3); -x_262 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_262, 0, x_250); -lean_ctor_set(x_262, 1, x_251); -lean_ctor_set(x_262, 2, x_252); -lean_ctor_set(x_262, 3, x_253); -lean_ctor_set(x_262, 4, x_254); -lean_ctor_set(x_262, 5, x_255); -lean_ctor_set(x_262, 6, x_256); -lean_ctor_set(x_262, 7, x_257); -lean_ctor_set(x_262, 8, x_258); -lean_ctor_set(x_262, 9, x_76); -lean_ctor_set_uint8(x_262, sizeof(void*)*10, x_259); -lean_ctor_set_uint8(x_262, sizeof(void*)*10 + 1, x_260); -lean_ctor_set_uint8(x_262, sizeof(void*)*10 + 2, x_261); -x_263 = l_Lean_Elab_Term_getCurrMacroScope(x_262, x_4); -x_264 = lean_ctor_get(x_263, 1); -lean_inc(x_264); -lean_dec(x_263); -x_265 = l_Lean_Elab_Term_getMainModule___rarg(x_264); -x_266 = lean_ctor_get(x_265, 1); -lean_inc(x_266); -if (lean_is_exclusive(x_265)) { - lean_ctor_release(x_265, 0); - lean_ctor_release(x_265, 1); - x_267 = x_265; -} else { - lean_dec_ref(x_265); - x_267 = lean_box(0); -} -x_268 = lean_box(0); -x_269 = l_Array_empty___closed__1; -x_270 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_71, x_71, x_64, x_269); -lean_dec(x_71); -x_271 = l_Lean_nullKind___closed__2; -x_272 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_272, 0, x_271); -lean_ctor_set(x_272, 1, x_270); -x_273 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_274 = lean_array_push(x_273, x_272); -x_275 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; +x_259 = lean_array_push(x_257, x_258); +x_260 = lean_array_push(x_259, x_115); +x_261 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_262 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_262, 0, x_261); +lean_ctor_set(x_262, 1, x_260); +x_263 = lean_array_push(x_134, x_262); +x_264 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_265 = lean_array_push(x_263, x_264); +x_266 = l_Lean_mkTermIdFromIdent___closed__2; +x_267 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_267, 0, x_266); +lean_ctor_set(x_267, 1, x_257); +x_268 = lean_array_push(x_134, x_267); +x_269 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_269, 0, x_136); +lean_ctor_set(x_269, 1, x_268); +x_270 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_271 = lean_array_push(x_270, x_269); +x_272 = lean_array_push(x_271, x_256); +x_273 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_274 = lean_array_push(x_272, x_273); +x_275 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; x_276 = lean_array_push(x_274, x_275); -x_277 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_277 = lean_array_push(x_134, x_113); x_278 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_278, 0, x_277); -lean_ctor_set(x_278, 1, x_276); -x_279 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_280 = lean_array_push(x_279, x_278); -x_281 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_282 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_282, 0, x_281); -lean_ctor_set(x_282, 1, x_280); -x_310 = l_Lean_Syntax_isNone(x_69); -if (x_310 == 0) -{ -lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; -x_311 = l_Lean_Syntax_getArg(x_69, x_73); -lean_dec(x_69); -x_312 = l_Lean_Elab_Term_getCurrMacroScope(x_262, x_266); -x_313 = lean_ctor_get(x_312, 0); -lean_inc(x_313); -x_314 = lean_ctor_get(x_312, 1); -lean_inc(x_314); -lean_dec(x_312); -x_315 = l_Lean_Elab_Term_getMainModule___rarg(x_314); -x_316 = lean_ctor_get(x_315, 0); -lean_inc(x_316); -x_317 = lean_ctor_get(x_315, 1); -lean_inc(x_317); -lean_dec(x_315); -x_318 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_319 = l_Lean_addMacroScope(x_316, x_318, x_313); -x_320 = lean_box(0); -x_321 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_322 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_322, 0, x_268); -lean_ctor_set(x_322, 1, x_321); -lean_ctor_set(x_322, 2, x_319); -lean_ctor_set(x_322, 3, x_320); -x_323 = lean_array_push(x_269, x_322); -x_324 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_325 = lean_array_push(x_323, x_324); -x_326 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_325); -x_327 = lean_array_push(x_325, x_326); -x_328 = lean_array_push(x_327, x_67); -x_329 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_330 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_330, 0, x_329); -lean_ctor_set(x_330, 1, x_328); -x_331 = lean_array_push(x_269, x_330); -x_332 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_333 = lean_array_push(x_331, x_332); -x_334 = l_Lean_mkTermIdFromIdent___closed__2; -x_335 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_335, 0, x_334); -lean_ctor_set(x_335, 1, x_325); -x_336 = lean_array_push(x_269, x_335); -x_337 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_337, 0, x_271); -lean_ctor_set(x_337, 1, x_336); -x_338 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_339 = lean_array_push(x_338, x_337); -x_340 = lean_array_push(x_339, x_324); -x_341 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_342 = lean_array_push(x_340, x_341); -x_343 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_344 = lean_array_push(x_342, x_343); -x_345 = lean_array_push(x_269, x_65); -x_346 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_346, 0, x_271); -lean_ctor_set(x_346, 1, x_345); -x_347 = lean_array_push(x_269, x_346); -x_348 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_349 = lean_array_push(x_347, x_348); -x_350 = lean_array_push(x_349, x_282); -x_351 = l_Lean_Parser_Term_matchAlt___closed__2; -x_352 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_352, 0, x_351); -lean_ctor_set(x_352, 1, x_350); -x_353 = lean_array_push(x_269, x_352); -x_354 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_355 = lean_array_push(x_353, x_354); -x_356 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; -x_357 = lean_array_push(x_356, x_311); -x_358 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_358, 0, x_351); -lean_ctor_set(x_358, 1, x_357); -x_359 = lean_array_push(x_355, x_358); -x_360 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_360, 0, x_271); -lean_ctor_set(x_360, 1, x_359); -x_361 = lean_array_push(x_344, x_360); -x_362 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_363 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_363, 0, x_362); -lean_ctor_set(x_363, 1, x_361); -x_364 = lean_array_push(x_269, x_363); -x_365 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_366 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_366, 0, x_365); -lean_ctor_set(x_366, 1, x_364); -x_367 = lean_array_push(x_333, x_366); -x_368 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_368, 0, x_271); -lean_ctor_set(x_368, 1, x_367); -x_369 = lean_array_push(x_279, x_368); -x_370 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_370, 0, x_281); -lean_ctor_set(x_370, 1, x_369); -x_283 = x_370; -x_284 = x_317; -goto block_309; +lean_ctor_set(x_278, 0, x_136); +lean_ctor_set(x_278, 1, x_277); +x_279 = lean_array_push(x_134, x_278); +x_280 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_281 = lean_array_push(x_279, x_280); +x_282 = lean_array_push(x_281, x_147); +x_283 = l_Lean_Parser_Term_matchAlt___closed__2; +x_284 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_284, 0, x_283); +lean_ctor_set(x_284, 1, x_282); +x_285 = lean_array_push(x_134, x_284); +x_286 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_286, 0, x_136); +lean_ctor_set(x_286, 1, x_285); +x_287 = lean_array_push(x_276, x_286); +x_288 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_289 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_289, 0, x_288); +lean_ctor_set(x_289, 1, x_287); +x_290 = lean_array_push(x_134, x_289); +x_291 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_292 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_292, 0, x_291); +lean_ctor_set(x_292, 1, x_290); +x_293 = lean_array_push(x_265, x_292); +x_294 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_294, 0, x_136); +lean_ctor_set(x_294, 1, x_293); +x_295 = lean_array_push(x_144, x_294); +x_296 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_296, 0, x_146); +lean_ctor_set(x_296, 1, x_295); +x_148 = x_296; +x_149 = x_249; +goto block_182; } -else +block_182: { -lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; -lean_dec(x_69); -x_371 = l_Lean_Elab_Term_getCurrMacroScope(x_262, x_266); -x_372 = lean_ctor_get(x_371, 0); -lean_inc(x_372); -x_373 = lean_ctor_get(x_371, 1); -lean_inc(x_373); -lean_dec(x_371); -x_374 = l_Lean_Elab_Term_getMainModule___rarg(x_373); -x_375 = lean_ctor_get(x_374, 0); -lean_inc(x_375); -x_376 = lean_ctor_get(x_374, 1); -lean_inc(x_376); -lean_dec(x_374); -x_377 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_378 = l_Lean_addMacroScope(x_375, x_377, x_372); -x_379 = lean_box(0); -x_380 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_381 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_381, 0, x_268); -lean_ctor_set(x_381, 1, x_380); -lean_ctor_set(x_381, 2, x_378); -lean_ctor_set(x_381, 3, x_379); -x_382 = lean_array_push(x_269, x_381); -x_383 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_384 = lean_array_push(x_382, x_383); -x_385 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_384); -x_386 = lean_array_push(x_384, x_385); -x_387 = lean_array_push(x_386, x_67); -x_388 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_389 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_389, 0, x_388); -lean_ctor_set(x_389, 1, x_387); -x_390 = lean_array_push(x_269, x_389); -x_391 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_392 = lean_array_push(x_390, x_391); -x_393 = l_Lean_mkTermIdFromIdent___closed__2; -x_394 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_394, 0, x_393); -lean_ctor_set(x_394, 1, x_384); -x_395 = lean_array_push(x_269, x_394); -x_396 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_396, 0, x_271); -lean_ctor_set(x_396, 1, x_395); -x_397 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_398 = lean_array_push(x_397, x_396); -x_399 = lean_array_push(x_398, x_383); -x_400 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_401 = lean_array_push(x_399, x_400); -x_402 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_403 = lean_array_push(x_401, x_402); -x_404 = lean_array_push(x_269, x_65); -x_405 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_405, 0, x_271); -lean_ctor_set(x_405, 1, x_404); -x_406 = lean_array_push(x_269, x_405); -x_407 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_408 = lean_array_push(x_406, x_407); -x_409 = lean_array_push(x_408, x_282); -x_410 = l_Lean_Parser_Term_matchAlt___closed__2; -x_411 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_411, 0, x_410); -lean_ctor_set(x_411, 1, x_409); -x_412 = lean_array_push(x_269, x_411); -x_413 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_413, 0, x_271); -lean_ctor_set(x_413, 1, x_412); -x_414 = lean_array_push(x_403, x_413); -x_415 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_416 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_416, 0, x_415); -lean_ctor_set(x_416, 1, x_414); -x_417 = lean_array_push(x_269, x_416); -x_418 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_419 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_419, 0, x_418); -lean_ctor_set(x_419, 1, x_417); -x_420 = lean_array_push(x_392, x_419); -x_421 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_421, 0, x_271); -lean_ctor_set(x_421, 1, x_420); -x_422 = lean_array_push(x_279, x_421); -x_423 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_423, 0, x_281); -lean_ctor_set(x_423, 1, x_422); -x_283 = x_423; -x_284 = x_376; -goto block_309; -} -block_309: +uint8_t x_150; +x_150 = lean_nat_dec_eq(x_3, x_112); +if (x_150 == 0) { -uint8_t x_285; -x_285 = lean_nat_dec_eq(x_2, x_64); -if (x_285 == 0) -{ -lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; -lean_dec(x_267); -x_286 = lean_nat_sub(x_2, x_73); +lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; uint8_t x_160; +lean_dec(x_132); +x_151 = l_Array_extract___rarg(x_2, x_112, x_3); +lean_dec(x_3); lean_dec(x_2); -x_287 = l_Array_extract___rarg(x_1, x_64, x_286); -lean_dec(x_286); -lean_dec(x_1); -x_288 = l_Lean_mkOptionalNode___closed__2; -x_289 = lean_array_push(x_288, x_283); -x_290 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_291 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_291, 0, x_290); -lean_ctor_set(x_291, 1, x_289); -x_292 = lean_array_push(x_287, x_291); -x_293 = l_Lean_Elab_Term_getCurrMacroScope(x_262, x_284); -lean_dec(x_262); -x_294 = lean_ctor_get(x_293, 1); -lean_inc(x_294); -lean_dec(x_293); -x_295 = l_Lean_Elab_Term_getMainModule___rarg(x_294); -x_296 = lean_ctor_get(x_295, 1); -lean_inc(x_296); -if (lean_is_exclusive(x_295)) { - lean_ctor_release(x_295, 0); - lean_ctor_release(x_295, 1); - x_297 = x_295; -} else { - lean_dec_ref(x_295); - x_297 = lean_box(0); -} -x_298 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_292, x_292, x_64, x_269); -lean_dec(x_292); -x_299 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_299, 0, x_271); -lean_ctor_set(x_299, 1, x_298); -x_300 = lean_array_push(x_273, x_299); -x_301 = lean_array_push(x_300, x_275); -x_302 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_302, 0, x_277); -lean_ctor_set(x_302, 1, x_301); -x_303 = lean_array_push(x_279, x_302); -x_304 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_304, 0, x_281); -lean_ctor_set(x_304, 1, x_303); -x_305 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_305, 0, x_304); -if (lean_is_scalar(x_297)) { - x_306 = lean_alloc_ctor(0, 2, 0); -} else { - x_306 = x_297; -} -lean_ctor_set(x_306, 0, x_305); -lean_ctor_set(x_306, 1, x_296); -return x_306; -} -else -{ -lean_object* x_307; lean_object* x_308; -lean_dec(x_262); -lean_dec(x_2); -lean_dec(x_1); -x_307 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_307, 0, x_283); -if (lean_is_scalar(x_267)) { - x_308 = lean_alloc_ctor(0, 2, 0); -} else { - x_308 = x_267; -} -lean_ctor_set(x_308, 0, x_307); -lean_ctor_set(x_308, 1, x_284); -return x_308; -} -} -} -} -else -{ -lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; uint8_t x_441; uint8_t x_442; uint8_t x_443; lean_object* x_444; lean_object* x_445; lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; lean_object* x_463; lean_object* x_464; lean_object* x_465; lean_object* x_466; lean_object* x_467; uint8_t x_493; -x_424 = lean_ctor_get(x_4, 0); -x_425 = lean_ctor_get(x_4, 1); -x_426 = lean_ctor_get(x_4, 2); -x_427 = lean_ctor_get(x_4, 3); -x_428 = lean_ctor_get(x_4, 4); -x_429 = lean_ctor_get(x_4, 5); -lean_inc(x_429); -lean_inc(x_428); -lean_inc(x_427); -lean_inc(x_426); -lean_inc(x_425); -lean_inc(x_424); +x_152 = l_Lean_mkOptionalNode___closed__2; +x_153 = lean_array_push(x_152, x_148); +x_154 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_155 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_155, 0, x_154); +lean_ctor_set(x_155, 1, x_153); +x_156 = lean_array_push(x_151, x_155); +x_157 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_149); lean_dec(x_4); -x_430 = lean_nat_add(x_429, x_73); -x_431 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_431, 0, x_424); -lean_ctor_set(x_431, 1, x_425); -lean_ctor_set(x_431, 2, x_426); -lean_ctor_set(x_431, 3, x_427); -lean_ctor_set(x_431, 4, x_428); -lean_ctor_set(x_431, 5, x_430); -x_432 = lean_ctor_get(x_3, 0); -lean_inc(x_432); -x_433 = lean_ctor_get(x_3, 1); -lean_inc(x_433); -x_434 = lean_ctor_get(x_3, 2); -lean_inc(x_434); -x_435 = lean_ctor_get(x_3, 3); -lean_inc(x_435); -x_436 = lean_ctor_get(x_3, 4); -lean_inc(x_436); -x_437 = lean_ctor_get(x_3, 5); -lean_inc(x_437); -x_438 = lean_ctor_get(x_3, 6); -lean_inc(x_438); -x_439 = lean_ctor_get(x_3, 7); -lean_inc(x_439); -x_440 = lean_ctor_get(x_3, 8); -lean_inc(x_440); -x_441 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_442 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); -x_443 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); -if (lean_is_exclusive(x_3)) { - lean_ctor_release(x_3, 0); - lean_ctor_release(x_3, 1); - lean_ctor_release(x_3, 2); - lean_ctor_release(x_3, 3); - lean_ctor_release(x_3, 4); - lean_ctor_release(x_3, 5); - lean_ctor_release(x_3, 6); - lean_ctor_release(x_3, 7); - lean_ctor_release(x_3, 8); - lean_ctor_release(x_3, 9); - x_444 = x_3; -} else { - lean_dec_ref(x_3); - x_444 = lean_box(0); +x_158 = lean_ctor_get(x_157, 1); +lean_inc(x_158); +lean_dec(x_157); +x_159 = l_Lean_Elab_Term_getMainModule___rarg(x_158); +x_160 = !lean_is_exclusive(x_159); +if (x_160 == 0) +{ +lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; +x_161 = lean_ctor_get(x_159, 0); +lean_dec(x_161); +x_162 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_156, x_156, x_112, x_134); +lean_dec(x_156); +x_163 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_163, 0, x_136); +lean_ctor_set(x_163, 1, x_162); +x_164 = lean_array_push(x_138, x_163); +x_165 = lean_array_push(x_164, x_140); +x_166 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_166, 0, x_142); +lean_ctor_set(x_166, 1, x_165); +x_167 = lean_array_push(x_144, x_166); +x_168 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_168, 0, x_146); +lean_ctor_set(x_168, 1, x_167); +x_169 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_169, 0, x_168); +lean_ctor_set(x_159, 0, x_169); +return x_159; } -if (lean_is_scalar(x_444)) { - x_445 = lean_alloc_ctor(0, 10, 3); -} else { - x_445 = x_444; +else +{ +lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; +x_170 = lean_ctor_get(x_159, 1); +lean_inc(x_170); +lean_dec(x_159); +x_171 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_156, x_156, x_112, x_134); +lean_dec(x_156); +x_172 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_172, 0, x_136); +lean_ctor_set(x_172, 1, x_171); +x_173 = lean_array_push(x_138, x_172); +x_174 = lean_array_push(x_173, x_140); +x_175 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_175, 0, x_142); +lean_ctor_set(x_175, 1, x_174); +x_176 = lean_array_push(x_144, x_175); +x_177 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_177, 0, x_146); +lean_ctor_set(x_177, 1, x_176); +x_178 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_178, 0, x_177); +x_179 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_179, 0, x_178); +lean_ctor_set(x_179, 1, x_170); +return x_179; } -lean_ctor_set(x_445, 0, x_432); -lean_ctor_set(x_445, 1, x_433); -lean_ctor_set(x_445, 2, x_434); -lean_ctor_set(x_445, 3, x_435); -lean_ctor_set(x_445, 4, x_436); -lean_ctor_set(x_445, 5, x_437); -lean_ctor_set(x_445, 6, x_438); -lean_ctor_set(x_445, 7, x_439); -lean_ctor_set(x_445, 8, x_440); -lean_ctor_set(x_445, 9, x_429); -lean_ctor_set_uint8(x_445, sizeof(void*)*10, x_441); -lean_ctor_set_uint8(x_445, sizeof(void*)*10 + 1, x_442); -lean_ctor_set_uint8(x_445, sizeof(void*)*10 + 2, x_443); -x_446 = l_Lean_Elab_Term_getCurrMacroScope(x_445, x_431); -x_447 = lean_ctor_get(x_446, 1); -lean_inc(x_447); -lean_dec(x_446); -x_448 = l_Lean_Elab_Term_getMainModule___rarg(x_447); -x_449 = lean_ctor_get(x_448, 1); -lean_inc(x_449); -if (lean_is_exclusive(x_448)) { - lean_ctor_release(x_448, 0); - lean_ctor_release(x_448, 1); - x_450 = x_448; -} else { - lean_dec_ref(x_448); - x_450 = lean_box(0); } -x_451 = lean_box(0); -x_452 = l_Array_empty___closed__1; -x_453 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_71, x_71, x_64, x_452); -lean_dec(x_71); -x_454 = l_Lean_nullKind___closed__2; -x_455 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_455, 0, x_454); -lean_ctor_set(x_455, 1, x_453); -x_456 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_457 = lean_array_push(x_456, x_455); -x_458 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_459 = lean_array_push(x_457, x_458); -x_460 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_461 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_461, 0, x_460); -lean_ctor_set(x_461, 1, x_459); -x_462 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_463 = lean_array_push(x_462, x_461); -x_464 = l_Lean_Parser_Term_do___elambda__1___closed__2; +else +{ +lean_object* x_180; lean_object* x_181; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_180 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_180, 0, x_148); +if (lean_is_scalar(x_132)) { + x_181 = lean_alloc_ctor(0, 2, 0); +} else { + x_181 = x_132; +} +lean_ctor_set(x_181, 0, x_180); +lean_ctor_set(x_181, 1, x_149); +return x_181; +} +} +} +else +{ +lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; uint8_t x_306; uint8_t x_307; uint8_t x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; uint8_t x_356; +x_297 = lean_ctor_get(x_4, 0); +x_298 = lean_ctor_get(x_4, 1); +x_299 = lean_ctor_get(x_4, 2); +x_300 = lean_ctor_get(x_4, 3); +x_301 = lean_ctor_get(x_4, 4); +x_302 = lean_ctor_get(x_4, 5); +x_303 = lean_ctor_get(x_4, 6); +x_304 = lean_ctor_get(x_4, 7); +x_305 = lean_ctor_get(x_4, 8); +x_306 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); +x_307 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); +x_308 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); +lean_inc(x_305); +lean_inc(x_304); +lean_inc(x_303); +lean_inc(x_302); +lean_inc(x_301); +lean_inc(x_300); +lean_inc(x_299); +lean_inc(x_298); +lean_inc(x_297); +lean_dec(x_4); +x_309 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_309, 0, x_297); +lean_ctor_set(x_309, 1, x_298); +lean_ctor_set(x_309, 2, x_299); +lean_ctor_set(x_309, 3, x_300); +lean_ctor_set(x_309, 4, x_301); +lean_ctor_set(x_309, 5, x_302); +lean_ctor_set(x_309, 6, x_303); +lean_ctor_set(x_309, 7, x_304); +lean_ctor_set(x_309, 8, x_305); +lean_ctor_set(x_309, 9, x_124); +lean_ctor_set_uint8(x_309, sizeof(void*)*10, x_306); +lean_ctor_set_uint8(x_309, sizeof(void*)*10 + 1, x_307); +lean_ctor_set_uint8(x_309, sizeof(void*)*10 + 2, x_308); +x_310 = l_Lean_Elab_Term_getCurrMacroScope(x_309, x_52); +x_311 = lean_ctor_get(x_310, 1); +lean_inc(x_311); +lean_dec(x_310); +x_312 = l_Lean_Elab_Term_getMainModule___rarg(x_311); +x_313 = lean_ctor_get(x_312, 1); +lean_inc(x_313); +if (lean_is_exclusive(x_312)) { + lean_ctor_release(x_312, 0); + lean_ctor_release(x_312, 1); + x_314 = x_312; +} else { + lean_dec_ref(x_312); + x_314 = lean_box(0); +} +x_315 = lean_box(0); +x_316 = l_Array_empty___closed__1; +x_317 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_119, x_119, x_112, x_316); +lean_dec(x_119); +x_318 = l_Lean_nullKind___closed__2; +x_319 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_319, 0, x_318); +lean_ctor_set(x_319, 1, x_317); +x_320 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_321 = lean_array_push(x_320, x_319); +x_322 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_323 = lean_array_push(x_321, x_322); +x_324 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_325 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_325, 0, x_324); +lean_ctor_set(x_325, 1, x_323); +x_326 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_327 = lean_array_push(x_326, x_325); +x_328 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_329 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_329, 0, x_328); +lean_ctor_set(x_329, 1, x_327); +x_356 = l_Lean_Syntax_isNone(x_117); +if (x_356 == 0) +{ +lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; +x_357 = l_Lean_Syntax_getArg(x_117, x_121); +lean_dec(x_117); +x_358 = l_Lean_Elab_Term_getCurrMacroScope(x_309, x_313); +x_359 = lean_ctor_get(x_358, 0); +lean_inc(x_359); +x_360 = lean_ctor_get(x_358, 1); +lean_inc(x_360); +lean_dec(x_358); +x_361 = l_Lean_Elab_Term_getMainModule___rarg(x_360); +x_362 = lean_ctor_get(x_361, 0); +lean_inc(x_362); +x_363 = lean_ctor_get(x_361, 1); +lean_inc(x_363); +lean_dec(x_361); +x_364 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_365 = l_Lean_addMacroScope(x_362, x_364, x_359); +x_366 = lean_box(0); +x_367 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_368 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_368, 0, x_315); +lean_ctor_set(x_368, 1, x_367); +lean_ctor_set(x_368, 2, x_365); +lean_ctor_set(x_368, 3, x_366); +x_369 = lean_array_push(x_316, x_368); +x_370 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_371 = lean_array_push(x_369, x_370); +x_372 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_371); +x_373 = lean_array_push(x_371, x_372); +x_374 = lean_array_push(x_373, x_115); +x_375 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_376 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_376, 0, x_375); +lean_ctor_set(x_376, 1, x_374); +x_377 = lean_array_push(x_316, x_376); +x_378 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_379 = lean_array_push(x_377, x_378); +x_380 = l_Lean_mkTermIdFromIdent___closed__2; +x_381 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_381, 0, x_380); +lean_ctor_set(x_381, 1, x_371); +x_382 = lean_array_push(x_316, x_381); +x_383 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_383, 0, x_318); +lean_ctor_set(x_383, 1, x_382); +x_384 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_385 = lean_array_push(x_384, x_383); +x_386 = lean_array_push(x_385, x_370); +x_387 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_388 = lean_array_push(x_386, x_387); +x_389 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_390 = lean_array_push(x_388, x_389); +x_391 = lean_array_push(x_316, x_113); +x_392 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_392, 0, x_318); +lean_ctor_set(x_392, 1, x_391); +x_393 = lean_array_push(x_316, x_392); +x_394 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_395 = lean_array_push(x_393, x_394); +x_396 = lean_array_push(x_395, x_329); +x_397 = l_Lean_Parser_Term_matchAlt___closed__2; +x_398 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_398, 0, x_397); +lean_ctor_set(x_398, 1, x_396); +x_399 = lean_array_push(x_316, x_398); +x_400 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; +x_401 = lean_array_push(x_399, x_400); +x_402 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +x_403 = lean_array_push(x_402, x_357); +x_404 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_404, 0, x_397); +lean_ctor_set(x_404, 1, x_403); +x_405 = lean_array_push(x_401, x_404); +x_406 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_406, 0, x_318); +lean_ctor_set(x_406, 1, x_405); +x_407 = lean_array_push(x_390, x_406); +x_408 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_409 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_409, 0, x_408); +lean_ctor_set(x_409, 1, x_407); +x_410 = lean_array_push(x_316, x_409); +x_411 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_412 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_412, 0, x_411); +lean_ctor_set(x_412, 1, x_410); +x_413 = lean_array_push(x_379, x_412); +x_414 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_414, 0, x_318); +lean_ctor_set(x_414, 1, x_413); +x_415 = lean_array_push(x_326, x_414); +x_416 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_416, 0, x_328); +lean_ctor_set(x_416, 1, x_415); +x_330 = x_416; +x_331 = x_363; +goto block_355; +} +else +{ +lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; lean_object* x_442; lean_object* x_443; lean_object* x_444; lean_object* x_445; lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; lean_object* x_463; lean_object* x_464; lean_object* x_465; lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; +lean_dec(x_117); +x_417 = l_Lean_Elab_Term_getCurrMacroScope(x_309, x_313); +x_418 = lean_ctor_get(x_417, 0); +lean_inc(x_418); +x_419 = lean_ctor_get(x_417, 1); +lean_inc(x_419); +lean_dec(x_417); +x_420 = l_Lean_Elab_Term_getMainModule___rarg(x_419); +x_421 = lean_ctor_get(x_420, 0); +lean_inc(x_421); +x_422 = lean_ctor_get(x_420, 1); +lean_inc(x_422); +lean_dec(x_420); +x_423 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_424 = l_Lean_addMacroScope(x_421, x_423, x_418); +x_425 = lean_box(0); +x_426 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_427 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_427, 0, x_315); +lean_ctor_set(x_427, 1, x_426); +lean_ctor_set(x_427, 2, x_424); +lean_ctor_set(x_427, 3, x_425); +x_428 = lean_array_push(x_316, x_427); +x_429 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_430 = lean_array_push(x_428, x_429); +x_431 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_430); +x_432 = lean_array_push(x_430, x_431); +x_433 = lean_array_push(x_432, x_115); +x_434 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_435 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_435, 0, x_434); +lean_ctor_set(x_435, 1, x_433); +x_436 = lean_array_push(x_316, x_435); +x_437 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_438 = lean_array_push(x_436, x_437); +x_439 = l_Lean_mkTermIdFromIdent___closed__2; +x_440 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_440, 0, x_439); +lean_ctor_set(x_440, 1, x_430); +x_441 = lean_array_push(x_316, x_440); +x_442 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_442, 0, x_318); +lean_ctor_set(x_442, 1, x_441); +x_443 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_444 = lean_array_push(x_443, x_442); +x_445 = lean_array_push(x_444, x_429); +x_446 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_447 = lean_array_push(x_445, x_446); +x_448 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_449 = lean_array_push(x_447, x_448); +x_450 = lean_array_push(x_316, x_113); +x_451 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_451, 0, x_318); +lean_ctor_set(x_451, 1, x_450); +x_452 = lean_array_push(x_316, x_451); +x_453 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_454 = lean_array_push(x_452, x_453); +x_455 = lean_array_push(x_454, x_329); +x_456 = l_Lean_Parser_Term_matchAlt___closed__2; +x_457 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_457, 0, x_456); +lean_ctor_set(x_457, 1, x_455); +x_458 = lean_array_push(x_316, x_457); +x_459 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_459, 0, x_318); +lean_ctor_set(x_459, 1, x_458); +x_460 = lean_array_push(x_449, x_459); +x_461 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_462 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_462, 0, x_461); +lean_ctor_set(x_462, 1, x_460); +x_463 = lean_array_push(x_316, x_462); +x_464 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; x_465 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_465, 0, x_464); lean_ctor_set(x_465, 1, x_463); -x_493 = l_Lean_Syntax_isNone(x_69); -if (x_493 == 0) +x_466 = lean_array_push(x_438, x_465); +x_467 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_467, 0, x_318); +lean_ctor_set(x_467, 1, x_466); +x_468 = lean_array_push(x_326, x_467); +x_469 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_469, 0, x_328); +lean_ctor_set(x_469, 1, x_468); +x_330 = x_469; +x_331 = x_422; +goto block_355; +} +block_355: { -lean_object* x_494; lean_object* x_495; lean_object* x_496; lean_object* x_497; lean_object* x_498; lean_object* x_499; lean_object* x_500; lean_object* x_501; lean_object* x_502; lean_object* x_503; lean_object* x_504; lean_object* x_505; lean_object* x_506; lean_object* x_507; lean_object* x_508; lean_object* x_509; lean_object* x_510; lean_object* x_511; lean_object* x_512; lean_object* x_513; lean_object* x_514; lean_object* x_515; lean_object* x_516; lean_object* x_517; lean_object* x_518; lean_object* x_519; lean_object* x_520; lean_object* x_521; lean_object* x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; lean_object* x_528; lean_object* x_529; lean_object* x_530; lean_object* x_531; lean_object* x_532; lean_object* x_533; lean_object* x_534; lean_object* x_535; lean_object* x_536; lean_object* x_537; lean_object* x_538; lean_object* x_539; lean_object* x_540; lean_object* x_541; lean_object* x_542; lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; lean_object* x_547; lean_object* x_548; lean_object* x_549; lean_object* x_550; lean_object* x_551; lean_object* x_552; lean_object* x_553; -x_494 = l_Lean_Syntax_getArg(x_69, x_73); -lean_dec(x_69); -x_495 = l_Lean_Elab_Term_getCurrMacroScope(x_445, x_449); -x_496 = lean_ctor_get(x_495, 0); -lean_inc(x_496); -x_497 = lean_ctor_get(x_495, 1); -lean_inc(x_497); -lean_dec(x_495); -x_498 = l_Lean_Elab_Term_getMainModule___rarg(x_497); -x_499 = lean_ctor_get(x_498, 0); -lean_inc(x_499); -x_500 = lean_ctor_get(x_498, 1); -lean_inc(x_500); -lean_dec(x_498); -x_501 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_502 = l_Lean_addMacroScope(x_499, x_501, x_496); -x_503 = lean_box(0); -x_504 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_505 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_505, 0, x_451); -lean_ctor_set(x_505, 1, x_504); -lean_ctor_set(x_505, 2, x_502); -lean_ctor_set(x_505, 3, x_503); -x_506 = lean_array_push(x_452, x_505); -x_507 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_508 = lean_array_push(x_506, x_507); -x_509 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_508); -x_510 = lean_array_push(x_508, x_509); -x_511 = lean_array_push(x_510, x_67); -x_512 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_513 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_513, 0, x_512); -lean_ctor_set(x_513, 1, x_511); -x_514 = lean_array_push(x_452, x_513); -x_515 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_516 = lean_array_push(x_514, x_515); -x_517 = l_Lean_mkTermIdFromIdent___closed__2; -x_518 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_518, 0, x_517); -lean_ctor_set(x_518, 1, x_508); -x_519 = lean_array_push(x_452, x_518); -x_520 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_520, 0, x_454); -lean_ctor_set(x_520, 1, x_519); -x_521 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_522 = lean_array_push(x_521, x_520); -x_523 = lean_array_push(x_522, x_507); -x_524 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_525 = lean_array_push(x_523, x_524); -x_526 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_527 = lean_array_push(x_525, x_526); -x_528 = lean_array_push(x_452, x_65); -x_529 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_529, 0, x_454); -lean_ctor_set(x_529, 1, x_528); -x_530 = lean_array_push(x_452, x_529); -x_531 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_532 = lean_array_push(x_530, x_531); -x_533 = lean_array_push(x_532, x_465); -x_534 = l_Lean_Parser_Term_matchAlt___closed__2; -x_535 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_535, 0, x_534); -lean_ctor_set(x_535, 1, x_533); -x_536 = lean_array_push(x_452, x_535); -x_537 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_538 = lean_array_push(x_536, x_537); -x_539 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; -x_540 = lean_array_push(x_539, x_494); -x_541 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_541, 0, x_534); -lean_ctor_set(x_541, 1, x_540); -x_542 = lean_array_push(x_538, x_541); -x_543 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_543, 0, x_454); -lean_ctor_set(x_543, 1, x_542); -x_544 = lean_array_push(x_527, x_543); -x_545 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_546 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_546, 0, x_545); -lean_ctor_set(x_546, 1, x_544); -x_547 = lean_array_push(x_452, x_546); -x_548 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_549 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_549, 0, x_548); -lean_ctor_set(x_549, 1, x_547); -x_550 = lean_array_push(x_516, x_549); -x_551 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_551, 0, x_454); -lean_ctor_set(x_551, 1, x_550); -x_552 = lean_array_push(x_462, x_551); -x_553 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_553, 0, x_464); -lean_ctor_set(x_553, 1, x_552); -x_466 = x_553; -x_467 = x_500; -goto block_492; +uint8_t x_332; +x_332 = lean_nat_dec_eq(x_3, x_112); +if (x_332 == 0) +{ +lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; +lean_dec(x_314); +x_333 = l_Array_extract___rarg(x_2, x_112, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_334 = l_Lean_mkOptionalNode___closed__2; +x_335 = lean_array_push(x_334, x_330); +x_336 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_337 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_337, 0, x_336); +lean_ctor_set(x_337, 1, x_335); +x_338 = lean_array_push(x_333, x_337); +x_339 = l_Lean_Elab_Term_getCurrMacroScope(x_309, x_331); +lean_dec(x_309); +x_340 = lean_ctor_get(x_339, 1); +lean_inc(x_340); +lean_dec(x_339); +x_341 = l_Lean_Elab_Term_getMainModule___rarg(x_340); +x_342 = lean_ctor_get(x_341, 1); +lean_inc(x_342); +if (lean_is_exclusive(x_341)) { + lean_ctor_release(x_341, 0); + lean_ctor_release(x_341, 1); + x_343 = x_341; +} else { + lean_dec_ref(x_341); + x_343 = lean_box(0); +} +x_344 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_338, x_338, x_112, x_316); +lean_dec(x_338); +x_345 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_345, 0, x_318); +lean_ctor_set(x_345, 1, x_344); +x_346 = lean_array_push(x_320, x_345); +x_347 = lean_array_push(x_346, x_322); +x_348 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_348, 0, x_324); +lean_ctor_set(x_348, 1, x_347); +x_349 = lean_array_push(x_326, x_348); +x_350 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_350, 0, x_328); +lean_ctor_set(x_350, 1, x_349); +x_351 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_351, 0, x_350); +if (lean_is_scalar(x_343)) { + x_352 = lean_alloc_ctor(0, 2, 0); +} else { + x_352 = x_343; +} +lean_ctor_set(x_352, 0, x_351); +lean_ctor_set(x_352, 1, x_342); +return x_352; } else { -lean_object* x_554; lean_object* x_555; lean_object* x_556; lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_object* x_563; lean_object* x_564; lean_object* x_565; lean_object* x_566; lean_object* x_567; lean_object* x_568; lean_object* x_569; lean_object* x_570; lean_object* x_571; lean_object* x_572; lean_object* x_573; lean_object* x_574; lean_object* x_575; lean_object* x_576; lean_object* x_577; lean_object* x_578; lean_object* x_579; lean_object* x_580; lean_object* x_581; lean_object* x_582; lean_object* x_583; lean_object* x_584; lean_object* x_585; lean_object* x_586; lean_object* x_587; lean_object* x_588; lean_object* x_589; lean_object* x_590; lean_object* x_591; lean_object* x_592; lean_object* x_593; lean_object* x_594; lean_object* x_595; lean_object* x_596; lean_object* x_597; lean_object* x_598; lean_object* x_599; lean_object* x_600; lean_object* x_601; lean_object* x_602; lean_object* x_603; lean_object* x_604; lean_object* x_605; lean_object* x_606; -lean_dec(x_69); -x_554 = l_Lean_Elab_Term_getCurrMacroScope(x_445, x_449); -x_555 = lean_ctor_get(x_554, 0); -lean_inc(x_555); -x_556 = lean_ctor_get(x_554, 1); -lean_inc(x_556); -lean_dec(x_554); -x_557 = l_Lean_Elab_Term_getMainModule___rarg(x_556); -x_558 = lean_ctor_get(x_557, 0); -lean_inc(x_558); -x_559 = lean_ctor_get(x_557, 1); -lean_inc(x_559); -lean_dec(x_557); -x_560 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_561 = l_Lean_addMacroScope(x_558, x_560, x_555); -x_562 = lean_box(0); -x_563 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_564 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_564, 0, x_451); -lean_ctor_set(x_564, 1, x_563); -lean_ctor_set(x_564, 2, x_561); -lean_ctor_set(x_564, 3, x_562); -x_565 = lean_array_push(x_452, x_564); -x_566 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_567 = lean_array_push(x_565, x_566); -x_568 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_567); -x_569 = lean_array_push(x_567, x_568); -x_570 = lean_array_push(x_569, x_67); -x_571 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_572 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_572, 0, x_571); -lean_ctor_set(x_572, 1, x_570); -x_573 = lean_array_push(x_452, x_572); -x_574 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_575 = lean_array_push(x_573, x_574); -x_576 = l_Lean_mkTermIdFromIdent___closed__2; -x_577 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_577, 0, x_576); -lean_ctor_set(x_577, 1, x_567); -x_578 = lean_array_push(x_452, x_577); -x_579 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_579, 0, x_454); -lean_ctor_set(x_579, 1, x_578); -x_580 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_581 = lean_array_push(x_580, x_579); -x_582 = lean_array_push(x_581, x_566); -x_583 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_584 = lean_array_push(x_582, x_583); -x_585 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_586 = lean_array_push(x_584, x_585); -x_587 = lean_array_push(x_452, x_65); +lean_object* x_353; lean_object* x_354; +lean_dec(x_309); +lean_dec(x_3); +lean_dec(x_2); +x_353 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_353, 0, x_330); +if (lean_is_scalar(x_314)) { + x_354 = lean_alloc_ctor(0, 2, 0); +} else { + x_354 = x_314; +} +lean_ctor_set(x_354, 0, x_353); +lean_ctor_set(x_354, 1, x_331); +return x_354; +} +} +} +} +else +{ +lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_478; lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; uint8_t x_487; uint8_t x_488; uint8_t x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; lean_object* x_493; lean_object* x_494; lean_object* x_495; lean_object* x_496; lean_object* x_497; lean_object* x_498; lean_object* x_499; lean_object* x_500; lean_object* x_501; lean_object* x_502; lean_object* x_503; lean_object* x_504; lean_object* x_505; lean_object* x_506; lean_object* x_507; lean_object* x_508; lean_object* x_509; lean_object* x_510; lean_object* x_511; lean_object* x_512; lean_object* x_513; uint8_t x_538; +x_470 = lean_ctor_get(x_52, 0); +x_471 = lean_ctor_get(x_52, 1); +x_472 = lean_ctor_get(x_52, 2); +x_473 = lean_ctor_get(x_52, 3); +x_474 = lean_ctor_get(x_52, 4); +x_475 = lean_ctor_get(x_52, 5); +lean_inc(x_475); +lean_inc(x_474); +lean_inc(x_473); +lean_inc(x_472); +lean_inc(x_471); +lean_inc(x_470); +lean_dec(x_52); +x_476 = lean_nat_add(x_475, x_121); +x_477 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_477, 0, x_470); +lean_ctor_set(x_477, 1, x_471); +lean_ctor_set(x_477, 2, x_472); +lean_ctor_set(x_477, 3, x_473); +lean_ctor_set(x_477, 4, x_474); +lean_ctor_set(x_477, 5, x_476); +x_478 = lean_ctor_get(x_4, 0); +lean_inc(x_478); +x_479 = lean_ctor_get(x_4, 1); +lean_inc(x_479); +x_480 = lean_ctor_get(x_4, 2); +lean_inc(x_480); +x_481 = lean_ctor_get(x_4, 3); +lean_inc(x_481); +x_482 = lean_ctor_get(x_4, 4); +lean_inc(x_482); +x_483 = lean_ctor_get(x_4, 5); +lean_inc(x_483); +x_484 = lean_ctor_get(x_4, 6); +lean_inc(x_484); +x_485 = lean_ctor_get(x_4, 7); +lean_inc(x_485); +x_486 = lean_ctor_get(x_4, 8); +lean_inc(x_486); +x_487 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); +x_488 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); +x_489 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); +if (lean_is_exclusive(x_4)) { + lean_ctor_release(x_4, 0); + lean_ctor_release(x_4, 1); + lean_ctor_release(x_4, 2); + lean_ctor_release(x_4, 3); + lean_ctor_release(x_4, 4); + lean_ctor_release(x_4, 5); + lean_ctor_release(x_4, 6); + lean_ctor_release(x_4, 7); + lean_ctor_release(x_4, 8); + lean_ctor_release(x_4, 9); + x_490 = x_4; +} else { + lean_dec_ref(x_4); + x_490 = lean_box(0); +} +if (lean_is_scalar(x_490)) { + x_491 = lean_alloc_ctor(0, 10, 3); +} else { + x_491 = x_490; +} +lean_ctor_set(x_491, 0, x_478); +lean_ctor_set(x_491, 1, x_479); +lean_ctor_set(x_491, 2, x_480); +lean_ctor_set(x_491, 3, x_481); +lean_ctor_set(x_491, 4, x_482); +lean_ctor_set(x_491, 5, x_483); +lean_ctor_set(x_491, 6, x_484); +lean_ctor_set(x_491, 7, x_485); +lean_ctor_set(x_491, 8, x_486); +lean_ctor_set(x_491, 9, x_475); +lean_ctor_set_uint8(x_491, sizeof(void*)*10, x_487); +lean_ctor_set_uint8(x_491, sizeof(void*)*10 + 1, x_488); +lean_ctor_set_uint8(x_491, sizeof(void*)*10 + 2, x_489); +x_492 = l_Lean_Elab_Term_getCurrMacroScope(x_491, x_477); +x_493 = lean_ctor_get(x_492, 1); +lean_inc(x_493); +lean_dec(x_492); +x_494 = l_Lean_Elab_Term_getMainModule___rarg(x_493); +x_495 = lean_ctor_get(x_494, 1); +lean_inc(x_495); +if (lean_is_exclusive(x_494)) { + lean_ctor_release(x_494, 0); + lean_ctor_release(x_494, 1); + x_496 = x_494; +} else { + lean_dec_ref(x_494); + x_496 = lean_box(0); +} +x_497 = lean_box(0); +x_498 = l_Array_empty___closed__1; +x_499 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_119, x_119, x_112, x_498); +lean_dec(x_119); +x_500 = l_Lean_nullKind___closed__2; +x_501 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_501, 0, x_500); +lean_ctor_set(x_501, 1, x_499); +x_502 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_503 = lean_array_push(x_502, x_501); +x_504 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_505 = lean_array_push(x_503, x_504); +x_506 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_507 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_507, 0, x_506); +lean_ctor_set(x_507, 1, x_505); +x_508 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_509 = lean_array_push(x_508, x_507); +x_510 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_511 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_511, 0, x_510); +lean_ctor_set(x_511, 1, x_509); +x_538 = l_Lean_Syntax_isNone(x_117); +if (x_538 == 0) +{ +lean_object* x_539; lean_object* x_540; lean_object* x_541; lean_object* x_542; lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; lean_object* x_547; lean_object* x_548; lean_object* x_549; lean_object* x_550; lean_object* x_551; lean_object* x_552; lean_object* x_553; lean_object* x_554; lean_object* x_555; lean_object* x_556; lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_object* x_563; lean_object* x_564; lean_object* x_565; lean_object* x_566; lean_object* x_567; lean_object* x_568; lean_object* x_569; lean_object* x_570; lean_object* x_571; lean_object* x_572; lean_object* x_573; lean_object* x_574; lean_object* x_575; lean_object* x_576; lean_object* x_577; lean_object* x_578; lean_object* x_579; lean_object* x_580; lean_object* x_581; lean_object* x_582; lean_object* x_583; lean_object* x_584; lean_object* x_585; lean_object* x_586; lean_object* x_587; lean_object* x_588; lean_object* x_589; lean_object* x_590; lean_object* x_591; lean_object* x_592; lean_object* x_593; lean_object* x_594; lean_object* x_595; lean_object* x_596; lean_object* x_597; lean_object* x_598; +x_539 = l_Lean_Syntax_getArg(x_117, x_121); +lean_dec(x_117); +x_540 = l_Lean_Elab_Term_getCurrMacroScope(x_491, x_495); +x_541 = lean_ctor_get(x_540, 0); +lean_inc(x_541); +x_542 = lean_ctor_get(x_540, 1); +lean_inc(x_542); +lean_dec(x_540); +x_543 = l_Lean_Elab_Term_getMainModule___rarg(x_542); +x_544 = lean_ctor_get(x_543, 0); +lean_inc(x_544); +x_545 = lean_ctor_get(x_543, 1); +lean_inc(x_545); +lean_dec(x_543); +x_546 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_547 = l_Lean_addMacroScope(x_544, x_546, x_541); +x_548 = lean_box(0); +x_549 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_550 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_550, 0, x_497); +lean_ctor_set(x_550, 1, x_549); +lean_ctor_set(x_550, 2, x_547); +lean_ctor_set(x_550, 3, x_548); +x_551 = lean_array_push(x_498, x_550); +x_552 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_553 = lean_array_push(x_551, x_552); +x_554 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_553); +x_555 = lean_array_push(x_553, x_554); +x_556 = lean_array_push(x_555, x_115); +x_557 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_558 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_558, 0, x_557); +lean_ctor_set(x_558, 1, x_556); +x_559 = lean_array_push(x_498, x_558); +x_560 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_561 = lean_array_push(x_559, x_560); +x_562 = l_Lean_mkTermIdFromIdent___closed__2; +x_563 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_563, 0, x_562); +lean_ctor_set(x_563, 1, x_553); +x_564 = lean_array_push(x_498, x_563); +x_565 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_565, 0, x_500); +lean_ctor_set(x_565, 1, x_564); +x_566 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_567 = lean_array_push(x_566, x_565); +x_568 = lean_array_push(x_567, x_552); +x_569 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_570 = lean_array_push(x_568, x_569); +x_571 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_572 = lean_array_push(x_570, x_571); +x_573 = lean_array_push(x_498, x_113); +x_574 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_574, 0, x_500); +lean_ctor_set(x_574, 1, x_573); +x_575 = lean_array_push(x_498, x_574); +x_576 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_577 = lean_array_push(x_575, x_576); +x_578 = lean_array_push(x_577, x_511); +x_579 = l_Lean_Parser_Term_matchAlt___closed__2; +x_580 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_580, 0, x_579); +lean_ctor_set(x_580, 1, x_578); +x_581 = lean_array_push(x_498, x_580); +x_582 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; +x_583 = lean_array_push(x_581, x_582); +x_584 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +x_585 = lean_array_push(x_584, x_539); +x_586 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_586, 0, x_579); +lean_ctor_set(x_586, 1, x_585); +x_587 = lean_array_push(x_583, x_586); x_588 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_588, 0, x_454); +lean_ctor_set(x_588, 0, x_500); lean_ctor_set(x_588, 1, x_587); -x_589 = lean_array_push(x_452, x_588); -x_590 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_591 = lean_array_push(x_589, x_590); -x_592 = lean_array_push(x_591, x_465); -x_593 = l_Lean_Parser_Term_matchAlt___closed__2; +x_589 = lean_array_push(x_572, x_588); +x_590 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_591 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_591, 0, x_590); +lean_ctor_set(x_591, 1, x_589); +x_592 = lean_array_push(x_498, x_591); +x_593 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; x_594 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_594, 0, x_593); lean_ctor_set(x_594, 1, x_592); -x_595 = lean_array_push(x_452, x_594); +x_595 = lean_array_push(x_561, x_594); x_596 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_596, 0, x_454); +lean_ctor_set(x_596, 0, x_500); lean_ctor_set(x_596, 1, x_595); -x_597 = lean_array_push(x_586, x_596); -x_598 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_599 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_599, 0, x_598); -lean_ctor_set(x_599, 1, x_597); -x_600 = lean_array_push(x_452, x_599); -x_601 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_602 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_602, 0, x_601); -lean_ctor_set(x_602, 1, x_600); -x_603 = lean_array_push(x_575, x_602); -x_604 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_604, 0, x_454); -lean_ctor_set(x_604, 1, x_603); -x_605 = lean_array_push(x_462, x_604); -x_606 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_606, 0, x_464); -lean_ctor_set(x_606, 1, x_605); -x_466 = x_606; -x_467 = x_559; -goto block_492; -} -block_492: -{ -uint8_t x_468; -x_468 = lean_nat_dec_eq(x_2, x_64); -if (x_468 == 0) -{ -lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_478; lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; lean_object* x_488; lean_object* x_489; -lean_dec(x_450); -x_469 = lean_nat_sub(x_2, x_73); -lean_dec(x_2); -x_470 = l_Array_extract___rarg(x_1, x_64, x_469); -lean_dec(x_469); -lean_dec(x_1); -x_471 = l_Lean_mkOptionalNode___closed__2; -x_472 = lean_array_push(x_471, x_466); -x_473 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_474 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_474, 0, x_473); -lean_ctor_set(x_474, 1, x_472); -x_475 = lean_array_push(x_470, x_474); -x_476 = l_Lean_Elab_Term_getCurrMacroScope(x_445, x_467); -lean_dec(x_445); -x_477 = lean_ctor_get(x_476, 1); -lean_inc(x_477); -lean_dec(x_476); -x_478 = l_Lean_Elab_Term_getMainModule___rarg(x_477); -x_479 = lean_ctor_get(x_478, 1); -lean_inc(x_479); -if (lean_is_exclusive(x_478)) { - lean_ctor_release(x_478, 0); - lean_ctor_release(x_478, 1); - x_480 = x_478; -} else { - lean_dec_ref(x_478); - x_480 = lean_box(0); -} -x_481 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_475, x_475, x_64, x_452); -lean_dec(x_475); -x_482 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_482, 0, x_454); -lean_ctor_set(x_482, 1, x_481); -x_483 = lean_array_push(x_456, x_482); -x_484 = lean_array_push(x_483, x_458); -x_485 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_485, 0, x_460); -lean_ctor_set(x_485, 1, x_484); -x_486 = lean_array_push(x_462, x_485); -x_487 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_487, 0, x_464); -lean_ctor_set(x_487, 1, x_486); -x_488 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_488, 0, x_487); -if (lean_is_scalar(x_480)) { - x_489 = lean_alloc_ctor(0, 2, 0); -} else { - x_489 = x_480; -} -lean_ctor_set(x_489, 0, x_488); -lean_ctor_set(x_489, 1, x_479); -return x_489; +x_597 = lean_array_push(x_508, x_596); +x_598 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_598, 0, x_510); +lean_ctor_set(x_598, 1, x_597); +x_512 = x_598; +x_513 = x_545; +goto block_537; } else { -lean_object* x_490; lean_object* x_491; -lean_dec(x_445); -lean_dec(x_2); -lean_dec(x_1); -x_490 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_490, 0, x_466); -if (lean_is_scalar(x_450)) { - x_491 = lean_alloc_ctor(0, 2, 0); -} else { - x_491 = x_450; -} -lean_ctor_set(x_491, 0, x_490); -lean_ctor_set(x_491, 1, x_467); -return x_491; -} -} -} -} -else -{ -lean_object* x_607; lean_object* x_608; uint8_t x_609; -x_607 = l_Lean_Syntax_inhabited; -x_608 = lean_array_get(x_607, x_71, x_64); -lean_dec(x_71); -x_609 = !lean_is_exclusive(x_4); -if (x_609 == 0) -{ -lean_object* x_610; lean_object* x_611; uint8_t x_612; -x_610 = lean_ctor_get(x_4, 5); -x_611 = lean_nat_add(x_610, x_73); -lean_ctor_set(x_4, 5, x_611); -x_612 = !lean_is_exclusive(x_3); -if (x_612 == 0) -{ -lean_object* x_613; lean_object* x_614; lean_object* x_615; uint8_t x_664; -x_613 = lean_ctor_get(x_3, 9); -lean_dec(x_613); -lean_ctor_set(x_3, 9, x_610); -x_664 = l_Lean_Syntax_isNone(x_69); -if (x_664 == 0) -{ -lean_object* x_665; lean_object* x_666; lean_object* x_667; lean_object* x_668; lean_object* x_669; lean_object* x_670; lean_object* x_671; lean_object* x_672; lean_object* x_673; lean_object* x_674; lean_object* x_675; lean_object* x_676; lean_object* x_677; lean_object* x_678; lean_object* x_679; lean_object* x_680; lean_object* x_681; lean_object* x_682; lean_object* x_683; lean_object* x_684; lean_object* x_685; lean_object* x_686; lean_object* x_687; lean_object* x_688; lean_object* x_689; lean_object* x_690; lean_object* x_691; lean_object* x_692; lean_object* x_693; lean_object* x_694; lean_object* x_695; lean_object* x_696; lean_object* x_697; lean_object* x_698; lean_object* x_699; lean_object* x_700; lean_object* x_701; lean_object* x_702; lean_object* x_703; lean_object* x_704; lean_object* x_705; lean_object* x_706; lean_object* x_707; lean_object* x_708; lean_object* x_709; lean_object* x_710; lean_object* x_711; lean_object* x_712; lean_object* x_713; lean_object* x_714; lean_object* x_715; lean_object* x_716; lean_object* x_717; lean_object* x_718; lean_object* x_719; lean_object* x_720; lean_object* x_721; lean_object* x_722; lean_object* x_723; lean_object* x_724; lean_object* x_725; lean_object* x_726; lean_object* x_727; lean_object* x_728; lean_object* x_729; -x_665 = l_Lean_Syntax_getArg(x_69, x_73); -lean_dec(x_69); -x_666 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_667 = lean_ctor_get(x_666, 0); -lean_inc(x_667); -x_668 = lean_ctor_get(x_666, 1); -lean_inc(x_668); -lean_dec(x_666); -x_669 = l_Lean_Elab_Term_getMainModule___rarg(x_668); -x_670 = lean_ctor_get(x_669, 0); -lean_inc(x_670); -x_671 = lean_ctor_get(x_669, 1); -lean_inc(x_671); -lean_dec(x_669); -x_672 = lean_box(0); -x_673 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_674 = l_Lean_addMacroScope(x_670, x_673, x_667); -x_675 = lean_box(0); -x_676 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_677 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_677, 0, x_672); -lean_ctor_set(x_677, 1, x_676); -lean_ctor_set(x_677, 2, x_674); -lean_ctor_set(x_677, 3, x_675); -x_678 = l_Array_empty___closed__1; -x_679 = lean_array_push(x_678, x_677); -x_680 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_681 = lean_array_push(x_679, x_680); -x_682 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_681); -x_683 = lean_array_push(x_681, x_682); -x_684 = lean_array_push(x_683, x_67); -x_685 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_686 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_686, 0, x_685); -lean_ctor_set(x_686, 1, x_684); -x_687 = lean_array_push(x_678, x_686); -x_688 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_689 = lean_array_push(x_687, x_688); -x_690 = l_Lean_mkTermIdFromIdent___closed__2; -x_691 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_691, 0, x_690); -lean_ctor_set(x_691, 1, x_681); -x_692 = lean_array_push(x_678, x_691); -x_693 = l_Lean_nullKind___closed__2; -x_694 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_694, 0, x_693); -lean_ctor_set(x_694, 1, x_692); -x_695 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_696 = lean_array_push(x_695, x_694); -x_697 = lean_array_push(x_696, x_680); -x_698 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_699 = lean_array_push(x_697, x_698); -x_700 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_701 = lean_array_push(x_699, x_700); -x_702 = lean_array_push(x_678, x_65); -x_703 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_703, 0, x_693); -lean_ctor_set(x_703, 1, x_702); -x_704 = lean_array_push(x_678, x_703); -x_705 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_706 = lean_array_push(x_704, x_705); -x_707 = lean_array_push(x_706, x_608); -x_708 = l_Lean_Parser_Term_matchAlt___closed__2; -x_709 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_709, 0, x_708); -lean_ctor_set(x_709, 1, x_707); -x_710 = lean_array_push(x_678, x_709); -x_711 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_712 = lean_array_push(x_710, x_711); -x_713 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; -x_714 = lean_array_push(x_713, x_665); -x_715 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_715, 0, x_708); -lean_ctor_set(x_715, 1, x_714); -x_716 = lean_array_push(x_712, x_715); -x_717 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_717, 0, x_693); -lean_ctor_set(x_717, 1, x_716); -x_718 = lean_array_push(x_701, x_717); -x_719 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_720 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_720, 0, x_719); -lean_ctor_set(x_720, 1, x_718); -x_721 = lean_array_push(x_678, x_720); -x_722 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_723 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_723, 0, x_722); -lean_ctor_set(x_723, 1, x_721); -x_724 = lean_array_push(x_689, x_723); -x_725 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_725, 0, x_693); -lean_ctor_set(x_725, 1, x_724); -x_726 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_727 = lean_array_push(x_726, x_725); -x_728 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_729 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_729, 0, x_728); -lean_ctor_set(x_729, 1, x_727); -x_614 = x_729; -x_615 = x_671; -goto block_663; -} -else -{ -lean_object* x_730; lean_object* x_731; lean_object* x_732; lean_object* x_733; lean_object* x_734; lean_object* x_735; lean_object* x_736; lean_object* x_737; lean_object* x_738; lean_object* x_739; lean_object* x_740; lean_object* x_741; lean_object* x_742; lean_object* x_743; lean_object* x_744; lean_object* x_745; lean_object* x_746; lean_object* x_747; lean_object* x_748; lean_object* x_749; lean_object* x_750; lean_object* x_751; lean_object* x_752; lean_object* x_753; lean_object* x_754; lean_object* x_755; lean_object* x_756; lean_object* x_757; lean_object* x_758; lean_object* x_759; lean_object* x_760; lean_object* x_761; lean_object* x_762; lean_object* x_763; lean_object* x_764; lean_object* x_765; lean_object* x_766; lean_object* x_767; lean_object* x_768; lean_object* x_769; lean_object* x_770; lean_object* x_771; lean_object* x_772; lean_object* x_773; lean_object* x_774; lean_object* x_775; lean_object* x_776; lean_object* x_777; lean_object* x_778; lean_object* x_779; lean_object* x_780; lean_object* x_781; lean_object* x_782; lean_object* x_783; lean_object* x_784; lean_object* x_785; lean_object* x_786; lean_object* x_787; -lean_dec(x_69); -x_730 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_731 = lean_ctor_get(x_730, 0); -lean_inc(x_731); -x_732 = lean_ctor_get(x_730, 1); -lean_inc(x_732); -lean_dec(x_730); -x_733 = l_Lean_Elab_Term_getMainModule___rarg(x_732); -x_734 = lean_ctor_get(x_733, 0); -lean_inc(x_734); -x_735 = lean_ctor_get(x_733, 1); -lean_inc(x_735); -lean_dec(x_733); -x_736 = lean_box(0); -x_737 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_738 = l_Lean_addMacroScope(x_734, x_737, x_731); -x_739 = lean_box(0); -x_740 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_741 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_741, 0, x_736); -lean_ctor_set(x_741, 1, x_740); -lean_ctor_set(x_741, 2, x_738); -lean_ctor_set(x_741, 3, x_739); -x_742 = l_Array_empty___closed__1; -x_743 = lean_array_push(x_742, x_741); -x_744 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_745 = lean_array_push(x_743, x_744); -x_746 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_745); -x_747 = lean_array_push(x_745, x_746); -x_748 = lean_array_push(x_747, x_67); -x_749 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_750 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_750, 0, x_749); -lean_ctor_set(x_750, 1, x_748); -x_751 = lean_array_push(x_742, x_750); -x_752 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_753 = lean_array_push(x_751, x_752); -x_754 = l_Lean_mkTermIdFromIdent___closed__2; -x_755 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_755, 0, x_754); -lean_ctor_set(x_755, 1, x_745); -x_756 = lean_array_push(x_742, x_755); -x_757 = l_Lean_nullKind___closed__2; -x_758 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_758, 0, x_757); -lean_ctor_set(x_758, 1, x_756); -x_759 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_760 = lean_array_push(x_759, x_758); -x_761 = lean_array_push(x_760, x_744); -x_762 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_763 = lean_array_push(x_761, x_762); -x_764 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_765 = lean_array_push(x_763, x_764); -x_766 = lean_array_push(x_742, x_65); -x_767 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_767, 0, x_757); -lean_ctor_set(x_767, 1, x_766); -x_768 = lean_array_push(x_742, x_767); -x_769 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_770 = lean_array_push(x_768, x_769); -x_771 = lean_array_push(x_770, x_608); -x_772 = l_Lean_Parser_Term_matchAlt___closed__2; -x_773 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_773, 0, x_772); -lean_ctor_set(x_773, 1, x_771); -x_774 = lean_array_push(x_742, x_773); -x_775 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_775, 0, x_757); -lean_ctor_set(x_775, 1, x_774); -x_776 = lean_array_push(x_765, x_775); -x_777 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_778 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_778, 0, x_777); -lean_ctor_set(x_778, 1, x_776); -x_779 = lean_array_push(x_742, x_778); -x_780 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_781 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_781, 0, x_780); -lean_ctor_set(x_781, 1, x_779); -x_782 = lean_array_push(x_753, x_781); -x_783 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_783, 0, x_757); -lean_ctor_set(x_783, 1, x_782); -x_784 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_785 = lean_array_push(x_784, x_783); -x_786 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_787 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_787, 0, x_786); -lean_ctor_set(x_787, 1, x_785); -x_614 = x_787; -x_615 = x_735; -goto block_663; -} -block_663: -{ -uint8_t x_616; -x_616 = lean_nat_dec_eq(x_2, x_64); -if (x_616 == 0) -{ -lean_object* x_617; lean_object* x_618; lean_object* x_619; lean_object* x_620; lean_object* x_621; lean_object* x_622; lean_object* x_623; lean_object* x_624; lean_object* x_625; lean_object* x_626; uint8_t x_627; -x_617 = lean_nat_sub(x_2, x_73); -lean_dec(x_2); -x_618 = l_Array_extract___rarg(x_1, x_64, x_617); -lean_dec(x_617); -lean_dec(x_1); -x_619 = l_Lean_mkOptionalNode___closed__2; -x_620 = lean_array_push(x_619, x_614); -x_621 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +lean_object* x_599; lean_object* x_600; lean_object* x_601; lean_object* x_602; lean_object* x_603; lean_object* x_604; lean_object* x_605; lean_object* x_606; lean_object* x_607; lean_object* x_608; lean_object* x_609; lean_object* x_610; lean_object* x_611; lean_object* x_612; lean_object* x_613; lean_object* x_614; lean_object* x_615; lean_object* x_616; lean_object* x_617; lean_object* x_618; lean_object* x_619; lean_object* x_620; lean_object* x_621; lean_object* x_622; lean_object* x_623; lean_object* x_624; lean_object* x_625; lean_object* x_626; lean_object* x_627; lean_object* x_628; lean_object* x_629; lean_object* x_630; lean_object* x_631; lean_object* x_632; lean_object* x_633; lean_object* x_634; lean_object* x_635; lean_object* x_636; lean_object* x_637; lean_object* x_638; lean_object* x_639; lean_object* x_640; lean_object* x_641; lean_object* x_642; lean_object* x_643; lean_object* x_644; lean_object* x_645; lean_object* x_646; lean_object* x_647; lean_object* x_648; lean_object* x_649; lean_object* x_650; lean_object* x_651; +lean_dec(x_117); +x_599 = l_Lean_Elab_Term_getCurrMacroScope(x_491, x_495); +x_600 = lean_ctor_get(x_599, 0); +lean_inc(x_600); +x_601 = lean_ctor_get(x_599, 1); +lean_inc(x_601); +lean_dec(x_599); +x_602 = l_Lean_Elab_Term_getMainModule___rarg(x_601); +x_603 = lean_ctor_get(x_602, 0); +lean_inc(x_603); +x_604 = lean_ctor_get(x_602, 1); +lean_inc(x_604); +lean_dec(x_602); +x_605 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_606 = l_Lean_addMacroScope(x_603, x_605, x_600); +x_607 = lean_box(0); +x_608 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_609 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_609, 0, x_497); +lean_ctor_set(x_609, 1, x_608); +lean_ctor_set(x_609, 2, x_606); +lean_ctor_set(x_609, 3, x_607); +x_610 = lean_array_push(x_498, x_609); +x_611 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_612 = lean_array_push(x_610, x_611); +x_613 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_612); +x_614 = lean_array_push(x_612, x_613); +x_615 = lean_array_push(x_614, x_115); +x_616 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_617 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_617, 0, x_616); +lean_ctor_set(x_617, 1, x_615); +x_618 = lean_array_push(x_498, x_617); +x_619 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_620 = lean_array_push(x_618, x_619); +x_621 = l_Lean_mkTermIdFromIdent___closed__2; x_622 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_622, 0, x_621); -lean_ctor_set(x_622, 1, x_620); -x_623 = lean_array_push(x_618, x_622); -x_624 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_615); -lean_dec(x_3); -x_625 = lean_ctor_get(x_624, 1); -lean_inc(x_625); -lean_dec(x_624); -x_626 = l_Lean_Elab_Term_getMainModule___rarg(x_625); -x_627 = !lean_is_exclusive(x_626); -if (x_627 == 0) -{ -lean_object* x_628; lean_object* x_629; lean_object* x_630; lean_object* x_631; lean_object* x_632; lean_object* x_633; lean_object* x_634; lean_object* x_635; lean_object* x_636; lean_object* x_637; lean_object* x_638; lean_object* x_639; lean_object* x_640; lean_object* x_641; lean_object* x_642; lean_object* x_643; -x_628 = lean_ctor_get(x_626, 0); -lean_dec(x_628); -x_629 = l_Array_empty___closed__1; -x_630 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_623, x_623, x_64, x_629); -lean_dec(x_623); -x_631 = l_Lean_nullKind___closed__2; -x_632 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_632, 0, x_631); -lean_ctor_set(x_632, 1, x_630); -x_633 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_634 = lean_array_push(x_633, x_632); -x_635 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; +lean_ctor_set(x_622, 1, x_612); +x_623 = lean_array_push(x_498, x_622); +x_624 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_624, 0, x_500); +lean_ctor_set(x_624, 1, x_623); +x_625 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_626 = lean_array_push(x_625, x_624); +x_627 = lean_array_push(x_626, x_611); +x_628 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_629 = lean_array_push(x_627, x_628); +x_630 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_631 = lean_array_push(x_629, x_630); +x_632 = lean_array_push(x_498, x_113); +x_633 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_633, 0, x_500); +lean_ctor_set(x_633, 1, x_632); +x_634 = lean_array_push(x_498, x_633); +x_635 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; x_636 = lean_array_push(x_634, x_635); -x_637 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_638 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_638, 0, x_637); -lean_ctor_set(x_638, 1, x_636); -x_639 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_640 = lean_array_push(x_639, x_638); -x_641 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_642 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_642, 0, x_641); -lean_ctor_set(x_642, 1, x_640); -x_643 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_643, 0, x_642); -lean_ctor_set(x_626, 0, x_643); -return x_626; +x_637 = lean_array_push(x_636, x_511); +x_638 = l_Lean_Parser_Term_matchAlt___closed__2; +x_639 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_639, 0, x_638); +lean_ctor_set(x_639, 1, x_637); +x_640 = lean_array_push(x_498, x_639); +x_641 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_641, 0, x_500); +lean_ctor_set(x_641, 1, x_640); +x_642 = lean_array_push(x_631, x_641); +x_643 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_644 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_644, 0, x_643); +lean_ctor_set(x_644, 1, x_642); +x_645 = lean_array_push(x_498, x_644); +x_646 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_647 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_647, 0, x_646); +lean_ctor_set(x_647, 1, x_645); +x_648 = lean_array_push(x_620, x_647); +x_649 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_649, 0, x_500); +lean_ctor_set(x_649, 1, x_648); +x_650 = lean_array_push(x_508, x_649); +x_651 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_651, 0, x_510); +lean_ctor_set(x_651, 1, x_650); +x_512 = x_651; +x_513 = x_604; +goto block_537; } -else +block_537: { -lean_object* x_644; lean_object* x_645; lean_object* x_646; lean_object* x_647; lean_object* x_648; lean_object* x_649; lean_object* x_650; lean_object* x_651; lean_object* x_652; lean_object* x_653; lean_object* x_654; lean_object* x_655; lean_object* x_656; lean_object* x_657; lean_object* x_658; lean_object* x_659; lean_object* x_660; -x_644 = lean_ctor_get(x_626, 1); -lean_inc(x_644); -lean_dec(x_626); -x_645 = l_Array_empty___closed__1; -x_646 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_623, x_623, x_64, x_645); -lean_dec(x_623); -x_647 = l_Lean_nullKind___closed__2; -x_648 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_648, 0, x_647); -lean_ctor_set(x_648, 1, x_646); -x_649 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_650 = lean_array_push(x_649, x_648); -x_651 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_652 = lean_array_push(x_650, x_651); -x_653 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_654 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_654, 0, x_653); -lean_ctor_set(x_654, 1, x_652); -x_655 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_656 = lean_array_push(x_655, x_654); -x_657 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_658 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_658, 0, x_657); -lean_ctor_set(x_658, 1, x_656); -x_659 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_659, 0, x_658); -x_660 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_660, 0, x_659); -lean_ctor_set(x_660, 1, x_644); -return x_660; -} -} -else +uint8_t x_514; +x_514 = lean_nat_dec_eq(x_3, x_112); +if (x_514 == 0) { -lean_object* x_661; lean_object* x_662; +lean_object* x_515; lean_object* x_516; lean_object* x_517; lean_object* x_518; lean_object* x_519; lean_object* x_520; lean_object* x_521; lean_object* x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; lean_object* x_528; lean_object* x_529; lean_object* x_530; lean_object* x_531; lean_object* x_532; lean_object* x_533; lean_object* x_534; +lean_dec(x_496); +x_515 = l_Array_extract___rarg(x_2, x_112, x_3); lean_dec(x_3); lean_dec(x_2); -lean_dec(x_1); -x_661 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_661, 0, x_614); -x_662 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_662, 0, x_661); -lean_ctor_set(x_662, 1, x_615); -return x_662; +x_516 = l_Lean_mkOptionalNode___closed__2; +x_517 = lean_array_push(x_516, x_512); +x_518 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_519 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_519, 0, x_518); +lean_ctor_set(x_519, 1, x_517); +x_520 = lean_array_push(x_515, x_519); +x_521 = l_Lean_Elab_Term_getCurrMacroScope(x_491, x_513); +lean_dec(x_491); +x_522 = lean_ctor_get(x_521, 1); +lean_inc(x_522); +lean_dec(x_521); +x_523 = l_Lean_Elab_Term_getMainModule___rarg(x_522); +x_524 = lean_ctor_get(x_523, 1); +lean_inc(x_524); +if (lean_is_exclusive(x_523)) { + lean_ctor_release(x_523, 0); + lean_ctor_release(x_523, 1); + x_525 = x_523; +} else { + lean_dec_ref(x_523); + x_525 = lean_box(0); } +x_526 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_520, x_520, x_112, x_498); +lean_dec(x_520); +x_527 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_527, 0, x_500); +lean_ctor_set(x_527, 1, x_526); +x_528 = lean_array_push(x_502, x_527); +x_529 = lean_array_push(x_528, x_504); +x_530 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_530, 0, x_506); +lean_ctor_set(x_530, 1, x_529); +x_531 = lean_array_push(x_508, x_530); +x_532 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_532, 0, x_510); +lean_ctor_set(x_532, 1, x_531); +x_533 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_533, 0, x_532); +if (lean_is_scalar(x_525)) { + x_534 = lean_alloc_ctor(0, 2, 0); +} else { + x_534 = x_525; } +lean_ctor_set(x_534, 0, x_533); +lean_ctor_set(x_534, 1, x_524); +return x_534; } else { -lean_object* x_788; lean_object* x_789; lean_object* x_790; lean_object* x_791; lean_object* x_792; lean_object* x_793; lean_object* x_794; lean_object* x_795; lean_object* x_796; uint8_t x_797; uint8_t x_798; uint8_t x_799; lean_object* x_800; lean_object* x_801; lean_object* x_802; uint8_t x_835; -x_788 = lean_ctor_get(x_3, 0); -x_789 = lean_ctor_get(x_3, 1); -x_790 = lean_ctor_get(x_3, 2); -x_791 = lean_ctor_get(x_3, 3); -x_792 = lean_ctor_get(x_3, 4); -x_793 = lean_ctor_get(x_3, 5); -x_794 = lean_ctor_get(x_3, 6); -x_795 = lean_ctor_get(x_3, 7); -x_796 = lean_ctor_get(x_3, 8); -x_797 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_798 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); -x_799 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); -lean_inc(x_796); -lean_inc(x_795); -lean_inc(x_794); -lean_inc(x_793); -lean_inc(x_792); -lean_inc(x_791); -lean_inc(x_790); -lean_inc(x_789); -lean_inc(x_788); +lean_object* x_535; lean_object* x_536; +lean_dec(x_491); lean_dec(x_3); -x_800 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_800, 0, x_788); -lean_ctor_set(x_800, 1, x_789); -lean_ctor_set(x_800, 2, x_790); -lean_ctor_set(x_800, 3, x_791); -lean_ctor_set(x_800, 4, x_792); -lean_ctor_set(x_800, 5, x_793); -lean_ctor_set(x_800, 6, x_794); -lean_ctor_set(x_800, 7, x_795); -lean_ctor_set(x_800, 8, x_796); -lean_ctor_set(x_800, 9, x_610); -lean_ctor_set_uint8(x_800, sizeof(void*)*10, x_797); -lean_ctor_set_uint8(x_800, sizeof(void*)*10 + 1, x_798); -lean_ctor_set_uint8(x_800, sizeof(void*)*10 + 2, x_799); -x_835 = l_Lean_Syntax_isNone(x_69); -if (x_835 == 0) -{ -lean_object* x_836; lean_object* x_837; lean_object* x_838; lean_object* x_839; lean_object* x_840; lean_object* x_841; lean_object* x_842; lean_object* x_843; lean_object* x_844; lean_object* x_845; lean_object* x_846; lean_object* x_847; lean_object* x_848; lean_object* x_849; lean_object* x_850; lean_object* x_851; lean_object* x_852; lean_object* x_853; lean_object* x_854; lean_object* x_855; lean_object* x_856; lean_object* x_857; lean_object* x_858; lean_object* x_859; lean_object* x_860; lean_object* x_861; lean_object* x_862; lean_object* x_863; lean_object* x_864; lean_object* x_865; lean_object* x_866; lean_object* x_867; lean_object* x_868; lean_object* x_869; lean_object* x_870; lean_object* x_871; lean_object* x_872; lean_object* x_873; lean_object* x_874; lean_object* x_875; lean_object* x_876; lean_object* x_877; lean_object* x_878; lean_object* x_879; lean_object* x_880; lean_object* x_881; lean_object* x_882; lean_object* x_883; lean_object* x_884; lean_object* x_885; lean_object* x_886; lean_object* x_887; lean_object* x_888; lean_object* x_889; lean_object* x_890; lean_object* x_891; lean_object* x_892; lean_object* x_893; lean_object* x_894; lean_object* x_895; lean_object* x_896; lean_object* x_897; lean_object* x_898; lean_object* x_899; lean_object* x_900; -x_836 = l_Lean_Syntax_getArg(x_69, x_73); -lean_dec(x_69); -x_837 = l_Lean_Elab_Term_getCurrMacroScope(x_800, x_4); -x_838 = lean_ctor_get(x_837, 0); -lean_inc(x_838); -x_839 = lean_ctor_get(x_837, 1); -lean_inc(x_839); -lean_dec(x_837); -x_840 = l_Lean_Elab_Term_getMainModule___rarg(x_839); -x_841 = lean_ctor_get(x_840, 0); -lean_inc(x_841); -x_842 = lean_ctor_get(x_840, 1); -lean_inc(x_842); -lean_dec(x_840); -x_843 = lean_box(0); -x_844 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_845 = l_Lean_addMacroScope(x_841, x_844, x_838); -x_846 = lean_box(0); -x_847 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_848 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_848, 0, x_843); -lean_ctor_set(x_848, 1, x_847); -lean_ctor_set(x_848, 2, x_845); -lean_ctor_set(x_848, 3, x_846); -x_849 = l_Array_empty___closed__1; -x_850 = lean_array_push(x_849, x_848); -x_851 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_852 = lean_array_push(x_850, x_851); -x_853 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_852); -x_854 = lean_array_push(x_852, x_853); -x_855 = lean_array_push(x_854, x_67); -x_856 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_857 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_857, 0, x_856); -lean_ctor_set(x_857, 1, x_855); -x_858 = lean_array_push(x_849, x_857); -x_859 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_860 = lean_array_push(x_858, x_859); -x_861 = l_Lean_mkTermIdFromIdent___closed__2; -x_862 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_862, 0, x_861); -lean_ctor_set(x_862, 1, x_852); -x_863 = lean_array_push(x_849, x_862); -x_864 = l_Lean_nullKind___closed__2; -x_865 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_865, 0, x_864); -lean_ctor_set(x_865, 1, x_863); -x_866 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_867 = lean_array_push(x_866, x_865); -x_868 = lean_array_push(x_867, x_851); -x_869 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_870 = lean_array_push(x_868, x_869); -x_871 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_872 = lean_array_push(x_870, x_871); -x_873 = lean_array_push(x_849, x_65); -x_874 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_874, 0, x_864); -lean_ctor_set(x_874, 1, x_873); -x_875 = lean_array_push(x_849, x_874); -x_876 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_877 = lean_array_push(x_875, x_876); -x_878 = lean_array_push(x_877, x_608); -x_879 = l_Lean_Parser_Term_matchAlt___closed__2; -x_880 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_880, 0, x_879); -lean_ctor_set(x_880, 1, x_878); -x_881 = lean_array_push(x_849, x_880); -x_882 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_883 = lean_array_push(x_881, x_882); -x_884 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; -x_885 = lean_array_push(x_884, x_836); -x_886 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_886, 0, x_879); -lean_ctor_set(x_886, 1, x_885); -x_887 = lean_array_push(x_883, x_886); -x_888 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_888, 0, x_864); -lean_ctor_set(x_888, 1, x_887); -x_889 = lean_array_push(x_872, x_888); -x_890 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_891 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_891, 0, x_890); -lean_ctor_set(x_891, 1, x_889); -x_892 = lean_array_push(x_849, x_891); -x_893 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_894 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_894, 0, x_893); -lean_ctor_set(x_894, 1, x_892); -x_895 = lean_array_push(x_860, x_894); -x_896 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_896, 0, x_864); -lean_ctor_set(x_896, 1, x_895); -x_897 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_898 = lean_array_push(x_897, x_896); -x_899 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_900 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_900, 0, x_899); -lean_ctor_set(x_900, 1, x_898); -x_801 = x_900; -x_802 = x_842; -goto block_834; +lean_dec(x_2); +x_535 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_535, 0, x_512); +if (lean_is_scalar(x_496)) { + x_536 = lean_alloc_ctor(0, 2, 0); +} else { + x_536 = x_496; +} +lean_ctor_set(x_536, 0, x_535); +lean_ctor_set(x_536, 1, x_513); +return x_536; +} +} +} } else { -lean_object* x_901; lean_object* x_902; lean_object* x_903; lean_object* x_904; lean_object* x_905; lean_object* x_906; lean_object* x_907; lean_object* x_908; lean_object* x_909; lean_object* x_910; lean_object* x_911; lean_object* x_912; lean_object* x_913; lean_object* x_914; lean_object* x_915; lean_object* x_916; lean_object* x_917; lean_object* x_918; lean_object* x_919; lean_object* x_920; lean_object* x_921; lean_object* x_922; lean_object* x_923; lean_object* x_924; lean_object* x_925; lean_object* x_926; lean_object* x_927; lean_object* x_928; lean_object* x_929; lean_object* x_930; lean_object* x_931; lean_object* x_932; lean_object* x_933; lean_object* x_934; lean_object* x_935; lean_object* x_936; lean_object* x_937; lean_object* x_938; lean_object* x_939; lean_object* x_940; lean_object* x_941; lean_object* x_942; lean_object* x_943; lean_object* x_944; lean_object* x_945; lean_object* x_946; lean_object* x_947; lean_object* x_948; lean_object* x_949; lean_object* x_950; lean_object* x_951; lean_object* x_952; lean_object* x_953; lean_object* x_954; lean_object* x_955; lean_object* x_956; lean_object* x_957; lean_object* x_958; -lean_dec(x_69); -x_901 = l_Lean_Elab_Term_getCurrMacroScope(x_800, x_4); -x_902 = lean_ctor_get(x_901, 0); -lean_inc(x_902); -x_903 = lean_ctor_get(x_901, 1); -lean_inc(x_903); -lean_dec(x_901); -x_904 = l_Lean_Elab_Term_getMainModule___rarg(x_903); -x_905 = lean_ctor_get(x_904, 0); -lean_inc(x_905); -x_906 = lean_ctor_get(x_904, 1); -lean_inc(x_906); -lean_dec(x_904); -x_907 = lean_box(0); -x_908 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_909 = l_Lean_addMacroScope(x_905, x_908, x_902); -x_910 = lean_box(0); -x_911 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_912 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_912, 0, x_907); -lean_ctor_set(x_912, 1, x_911); -lean_ctor_set(x_912, 2, x_909); -lean_ctor_set(x_912, 3, x_910); -x_913 = l_Array_empty___closed__1; -x_914 = lean_array_push(x_913, x_912); -x_915 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +lean_object* x_652; lean_object* x_653; lean_object* x_654; uint8_t x_655; +x_652 = l_Lean_Syntax_inhabited; +x_653 = lean_array_get(x_652, x_119, x_112); +lean_dec(x_119); +x_654 = l_Lean_Syntax_getArg(x_653, x_112); +lean_dec(x_653); +x_655 = !lean_is_exclusive(x_52); +if (x_655 == 0) +{ +lean_object* x_656; lean_object* x_657; uint8_t x_658; +x_656 = lean_ctor_get(x_52, 5); +x_657 = lean_nat_add(x_656, x_121); +lean_ctor_set(x_52, 5, x_657); +x_658 = !lean_is_exclusive(x_4); +if (x_658 == 0) +{ +lean_object* x_659; lean_object* x_660; lean_object* x_661; uint8_t x_709; +x_659 = lean_ctor_get(x_4, 9); +lean_dec(x_659); +lean_ctor_set(x_4, 9, x_656); +x_709 = l_Lean_Syntax_isNone(x_117); +if (x_709 == 0) +{ +lean_object* x_710; lean_object* x_711; lean_object* x_712; lean_object* x_713; lean_object* x_714; lean_object* x_715; lean_object* x_716; lean_object* x_717; lean_object* x_718; lean_object* x_719; lean_object* x_720; lean_object* x_721; lean_object* x_722; lean_object* x_723; lean_object* x_724; lean_object* x_725; lean_object* x_726; lean_object* x_727; lean_object* x_728; lean_object* x_729; lean_object* x_730; lean_object* x_731; lean_object* x_732; lean_object* x_733; lean_object* x_734; lean_object* x_735; lean_object* x_736; lean_object* x_737; lean_object* x_738; lean_object* x_739; lean_object* x_740; lean_object* x_741; lean_object* x_742; lean_object* x_743; lean_object* x_744; lean_object* x_745; lean_object* x_746; lean_object* x_747; lean_object* x_748; lean_object* x_749; lean_object* x_750; lean_object* x_751; lean_object* x_752; lean_object* x_753; lean_object* x_754; lean_object* x_755; lean_object* x_756; lean_object* x_757; lean_object* x_758; lean_object* x_759; lean_object* x_760; lean_object* x_761; lean_object* x_762; lean_object* x_763; lean_object* x_764; lean_object* x_765; lean_object* x_766; lean_object* x_767; lean_object* x_768; lean_object* x_769; lean_object* x_770; lean_object* x_771; lean_object* x_772; lean_object* x_773; lean_object* x_774; +x_710 = l_Lean_Syntax_getArg(x_117, x_121); +lean_dec(x_117); +x_711 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_52); +x_712 = lean_ctor_get(x_711, 0); +lean_inc(x_712); +x_713 = lean_ctor_get(x_711, 1); +lean_inc(x_713); +lean_dec(x_711); +x_714 = l_Lean_Elab_Term_getMainModule___rarg(x_713); +x_715 = lean_ctor_get(x_714, 0); +lean_inc(x_715); +x_716 = lean_ctor_get(x_714, 1); +lean_inc(x_716); +lean_dec(x_714); +x_717 = lean_box(0); +x_718 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_719 = l_Lean_addMacroScope(x_715, x_718, x_712); +x_720 = lean_box(0); +x_721 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_722 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_722, 0, x_717); +lean_ctor_set(x_722, 1, x_721); +lean_ctor_set(x_722, 2, x_719); +lean_ctor_set(x_722, 3, x_720); +x_723 = l_Array_empty___closed__1; +x_724 = lean_array_push(x_723, x_722); +x_725 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_726 = lean_array_push(x_724, x_725); +x_727 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_726); +x_728 = lean_array_push(x_726, x_727); +x_729 = lean_array_push(x_728, x_115); +x_730 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_731 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_731, 0, x_730); +lean_ctor_set(x_731, 1, x_729); +x_732 = lean_array_push(x_723, x_731); +x_733 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_734 = lean_array_push(x_732, x_733); +x_735 = l_Lean_mkTermIdFromIdent___closed__2; +x_736 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_736, 0, x_735); +lean_ctor_set(x_736, 1, x_726); +x_737 = lean_array_push(x_723, x_736); +x_738 = l_Lean_nullKind___closed__2; +x_739 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_739, 0, x_738); +lean_ctor_set(x_739, 1, x_737); +x_740 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_741 = lean_array_push(x_740, x_739); +x_742 = lean_array_push(x_741, x_725); +x_743 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_744 = lean_array_push(x_742, x_743); +x_745 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_746 = lean_array_push(x_744, x_745); +x_747 = lean_array_push(x_723, x_113); +x_748 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_748, 0, x_738); +lean_ctor_set(x_748, 1, x_747); +x_749 = lean_array_push(x_723, x_748); +x_750 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_751 = lean_array_push(x_749, x_750); +x_752 = lean_array_push(x_751, x_654); +x_753 = l_Lean_Parser_Term_matchAlt___closed__2; +x_754 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_754, 0, x_753); +lean_ctor_set(x_754, 1, x_752); +x_755 = lean_array_push(x_723, x_754); +x_756 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; +x_757 = lean_array_push(x_755, x_756); +x_758 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +x_759 = lean_array_push(x_758, x_710); +x_760 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_760, 0, x_753); +lean_ctor_set(x_760, 1, x_759); +x_761 = lean_array_push(x_757, x_760); +x_762 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_762, 0, x_738); +lean_ctor_set(x_762, 1, x_761); +x_763 = lean_array_push(x_746, x_762); +x_764 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_765 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_765, 0, x_764); +lean_ctor_set(x_765, 1, x_763); +x_766 = lean_array_push(x_723, x_765); +x_767 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_768 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_768, 0, x_767); +lean_ctor_set(x_768, 1, x_766); +x_769 = lean_array_push(x_734, x_768); +x_770 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_770, 0, x_738); +lean_ctor_set(x_770, 1, x_769); +x_771 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_772 = lean_array_push(x_771, x_770); +x_773 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_774 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_774, 0, x_773); +lean_ctor_set(x_774, 1, x_772); +x_660 = x_774; +x_661 = x_716; +goto block_708; +} +else +{ +lean_object* x_775; lean_object* x_776; lean_object* x_777; lean_object* x_778; lean_object* x_779; lean_object* x_780; lean_object* x_781; lean_object* x_782; lean_object* x_783; lean_object* x_784; lean_object* x_785; lean_object* x_786; lean_object* x_787; lean_object* x_788; lean_object* x_789; lean_object* x_790; lean_object* x_791; lean_object* x_792; lean_object* x_793; lean_object* x_794; lean_object* x_795; lean_object* x_796; lean_object* x_797; lean_object* x_798; lean_object* x_799; lean_object* x_800; lean_object* x_801; lean_object* x_802; lean_object* x_803; lean_object* x_804; lean_object* x_805; lean_object* x_806; lean_object* x_807; lean_object* x_808; lean_object* x_809; lean_object* x_810; lean_object* x_811; lean_object* x_812; lean_object* x_813; lean_object* x_814; lean_object* x_815; lean_object* x_816; lean_object* x_817; lean_object* x_818; lean_object* x_819; lean_object* x_820; lean_object* x_821; lean_object* x_822; lean_object* x_823; lean_object* x_824; lean_object* x_825; lean_object* x_826; lean_object* x_827; lean_object* x_828; lean_object* x_829; lean_object* x_830; lean_object* x_831; lean_object* x_832; +lean_dec(x_117); +x_775 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_52); +x_776 = lean_ctor_get(x_775, 0); +lean_inc(x_776); +x_777 = lean_ctor_get(x_775, 1); +lean_inc(x_777); +lean_dec(x_775); +x_778 = l_Lean_Elab_Term_getMainModule___rarg(x_777); +x_779 = lean_ctor_get(x_778, 0); +lean_inc(x_779); +x_780 = lean_ctor_get(x_778, 1); +lean_inc(x_780); +lean_dec(x_778); +x_781 = lean_box(0); +x_782 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_783 = l_Lean_addMacroScope(x_779, x_782, x_776); +x_784 = lean_box(0); +x_785 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_786 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_786, 0, x_781); +lean_ctor_set(x_786, 1, x_785); +lean_ctor_set(x_786, 2, x_783); +lean_ctor_set(x_786, 3, x_784); +x_787 = l_Array_empty___closed__1; +x_788 = lean_array_push(x_787, x_786); +x_789 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_790 = lean_array_push(x_788, x_789); +x_791 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_790); +x_792 = lean_array_push(x_790, x_791); +x_793 = lean_array_push(x_792, x_115); +x_794 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_795 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_795, 0, x_794); +lean_ctor_set(x_795, 1, x_793); +x_796 = lean_array_push(x_787, x_795); +x_797 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_798 = lean_array_push(x_796, x_797); +x_799 = l_Lean_mkTermIdFromIdent___closed__2; +x_800 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_800, 0, x_799); +lean_ctor_set(x_800, 1, x_790); +x_801 = lean_array_push(x_787, x_800); +x_802 = l_Lean_nullKind___closed__2; +x_803 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_803, 0, x_802); +lean_ctor_set(x_803, 1, x_801); +x_804 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_805 = lean_array_push(x_804, x_803); +x_806 = lean_array_push(x_805, x_789); +x_807 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_808 = lean_array_push(x_806, x_807); +x_809 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_810 = lean_array_push(x_808, x_809); +x_811 = lean_array_push(x_787, x_113); +x_812 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_812, 0, x_802); +lean_ctor_set(x_812, 1, x_811); +x_813 = lean_array_push(x_787, x_812); +x_814 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_815 = lean_array_push(x_813, x_814); +x_816 = lean_array_push(x_815, x_654); +x_817 = l_Lean_Parser_Term_matchAlt___closed__2; +x_818 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_818, 0, x_817); +lean_ctor_set(x_818, 1, x_816); +x_819 = lean_array_push(x_787, x_818); +x_820 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_820, 0, x_802); +lean_ctor_set(x_820, 1, x_819); +x_821 = lean_array_push(x_810, x_820); +x_822 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_823 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_823, 0, x_822); +lean_ctor_set(x_823, 1, x_821); +x_824 = lean_array_push(x_787, x_823); +x_825 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_826 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_826, 0, x_825); +lean_ctor_set(x_826, 1, x_824); +x_827 = lean_array_push(x_798, x_826); +x_828 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_828, 0, x_802); +lean_ctor_set(x_828, 1, x_827); +x_829 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_830 = lean_array_push(x_829, x_828); +x_831 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_832 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_832, 0, x_831); +lean_ctor_set(x_832, 1, x_830); +x_660 = x_832; +x_661 = x_780; +goto block_708; +} +block_708: +{ +uint8_t x_662; +x_662 = lean_nat_dec_eq(x_3, x_112); +if (x_662 == 0) +{ +lean_object* x_663; lean_object* x_664; lean_object* x_665; lean_object* x_666; lean_object* x_667; lean_object* x_668; lean_object* x_669; lean_object* x_670; lean_object* x_671; uint8_t x_672; +lean_dec(x_53); +x_663 = l_Array_extract___rarg(x_2, x_112, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_664 = l_Lean_mkOptionalNode___closed__2; +x_665 = lean_array_push(x_664, x_660); +x_666 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_667 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_667, 0, x_666); +lean_ctor_set(x_667, 1, x_665); +x_668 = lean_array_push(x_663, x_667); +x_669 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_661); +lean_dec(x_4); +x_670 = lean_ctor_get(x_669, 1); +lean_inc(x_670); +lean_dec(x_669); +x_671 = l_Lean_Elab_Term_getMainModule___rarg(x_670); +x_672 = !lean_is_exclusive(x_671); +if (x_672 == 0) +{ +lean_object* x_673; lean_object* x_674; lean_object* x_675; lean_object* x_676; lean_object* x_677; lean_object* x_678; lean_object* x_679; lean_object* x_680; lean_object* x_681; lean_object* x_682; lean_object* x_683; lean_object* x_684; lean_object* x_685; lean_object* x_686; lean_object* x_687; lean_object* x_688; +x_673 = lean_ctor_get(x_671, 0); +lean_dec(x_673); +x_674 = l_Array_empty___closed__1; +x_675 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_668, x_668, x_112, x_674); +lean_dec(x_668); +x_676 = l_Lean_nullKind___closed__2; +x_677 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_677, 0, x_676); +lean_ctor_set(x_677, 1, x_675); +x_678 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_679 = lean_array_push(x_678, x_677); +x_680 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_681 = lean_array_push(x_679, x_680); +x_682 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_683 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_683, 0, x_682); +lean_ctor_set(x_683, 1, x_681); +x_684 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_685 = lean_array_push(x_684, x_683); +x_686 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_687 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_687, 0, x_686); +lean_ctor_set(x_687, 1, x_685); +x_688 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_688, 0, x_687); +lean_ctor_set(x_671, 0, x_688); +return x_671; +} +else +{ +lean_object* x_689; lean_object* x_690; lean_object* x_691; lean_object* x_692; lean_object* x_693; lean_object* x_694; lean_object* x_695; lean_object* x_696; lean_object* x_697; lean_object* x_698; lean_object* x_699; lean_object* x_700; lean_object* x_701; lean_object* x_702; lean_object* x_703; lean_object* x_704; lean_object* x_705; +x_689 = lean_ctor_get(x_671, 1); +lean_inc(x_689); +lean_dec(x_671); +x_690 = l_Array_empty___closed__1; +x_691 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_668, x_668, x_112, x_690); +lean_dec(x_668); +x_692 = l_Lean_nullKind___closed__2; +x_693 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_693, 0, x_692); +lean_ctor_set(x_693, 1, x_691); +x_694 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_695 = lean_array_push(x_694, x_693); +x_696 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_697 = lean_array_push(x_695, x_696); +x_698 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_699 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_699, 0, x_698); +lean_ctor_set(x_699, 1, x_697); +x_700 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_701 = lean_array_push(x_700, x_699); +x_702 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_703 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_703, 0, x_702); +lean_ctor_set(x_703, 1, x_701); +x_704 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_704, 0, x_703); +x_705 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_705, 0, x_704); +lean_ctor_set(x_705, 1, x_689); +return x_705; +} +} +else +{ +lean_object* x_706; lean_object* x_707; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_706 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_706, 0, x_660); +if (lean_is_scalar(x_53)) { + x_707 = lean_alloc_ctor(0, 2, 0); +} else { + x_707 = x_53; +} +lean_ctor_set(x_707, 0, x_706); +lean_ctor_set(x_707, 1, x_661); +return x_707; +} +} +} +else +{ +lean_object* x_833; lean_object* x_834; lean_object* x_835; lean_object* x_836; lean_object* x_837; lean_object* x_838; lean_object* x_839; lean_object* x_840; lean_object* x_841; uint8_t x_842; uint8_t x_843; uint8_t x_844; lean_object* x_845; lean_object* x_846; lean_object* x_847; uint8_t x_879; +x_833 = lean_ctor_get(x_4, 0); +x_834 = lean_ctor_get(x_4, 1); +x_835 = lean_ctor_get(x_4, 2); +x_836 = lean_ctor_get(x_4, 3); +x_837 = lean_ctor_get(x_4, 4); +x_838 = lean_ctor_get(x_4, 5); +x_839 = lean_ctor_get(x_4, 6); +x_840 = lean_ctor_get(x_4, 7); +x_841 = lean_ctor_get(x_4, 8); +x_842 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); +x_843 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); +x_844 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); +lean_inc(x_841); +lean_inc(x_840); +lean_inc(x_839); +lean_inc(x_838); +lean_inc(x_837); +lean_inc(x_836); +lean_inc(x_835); +lean_inc(x_834); +lean_inc(x_833); +lean_dec(x_4); +x_845 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_845, 0, x_833); +lean_ctor_set(x_845, 1, x_834); +lean_ctor_set(x_845, 2, x_835); +lean_ctor_set(x_845, 3, x_836); +lean_ctor_set(x_845, 4, x_837); +lean_ctor_set(x_845, 5, x_838); +lean_ctor_set(x_845, 6, x_839); +lean_ctor_set(x_845, 7, x_840); +lean_ctor_set(x_845, 8, x_841); +lean_ctor_set(x_845, 9, x_656); +lean_ctor_set_uint8(x_845, sizeof(void*)*10, x_842); +lean_ctor_set_uint8(x_845, sizeof(void*)*10 + 1, x_843); +lean_ctor_set_uint8(x_845, sizeof(void*)*10 + 2, x_844); +x_879 = l_Lean_Syntax_isNone(x_117); +if (x_879 == 0) +{ +lean_object* x_880; lean_object* x_881; lean_object* x_882; lean_object* x_883; lean_object* x_884; lean_object* x_885; lean_object* x_886; lean_object* x_887; lean_object* x_888; lean_object* x_889; lean_object* x_890; lean_object* x_891; lean_object* x_892; lean_object* x_893; lean_object* x_894; lean_object* x_895; lean_object* x_896; lean_object* x_897; lean_object* x_898; lean_object* x_899; lean_object* x_900; lean_object* x_901; lean_object* x_902; lean_object* x_903; lean_object* x_904; lean_object* x_905; lean_object* x_906; lean_object* x_907; lean_object* x_908; lean_object* x_909; lean_object* x_910; lean_object* x_911; lean_object* x_912; lean_object* x_913; lean_object* x_914; lean_object* x_915; lean_object* x_916; lean_object* x_917; lean_object* x_918; lean_object* x_919; lean_object* x_920; lean_object* x_921; lean_object* x_922; lean_object* x_923; lean_object* x_924; lean_object* x_925; lean_object* x_926; lean_object* x_927; lean_object* x_928; lean_object* x_929; lean_object* x_930; lean_object* x_931; lean_object* x_932; lean_object* x_933; lean_object* x_934; lean_object* x_935; lean_object* x_936; lean_object* x_937; lean_object* x_938; lean_object* x_939; lean_object* x_940; lean_object* x_941; lean_object* x_942; lean_object* x_943; lean_object* x_944; +x_880 = l_Lean_Syntax_getArg(x_117, x_121); +lean_dec(x_117); +x_881 = l_Lean_Elab_Term_getCurrMacroScope(x_845, x_52); +x_882 = lean_ctor_get(x_881, 0); +lean_inc(x_882); +x_883 = lean_ctor_get(x_881, 1); +lean_inc(x_883); +lean_dec(x_881); +x_884 = l_Lean_Elab_Term_getMainModule___rarg(x_883); +x_885 = lean_ctor_get(x_884, 0); +lean_inc(x_885); +x_886 = lean_ctor_get(x_884, 1); +lean_inc(x_886); +lean_dec(x_884); +x_887 = lean_box(0); +x_888 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_889 = l_Lean_addMacroScope(x_885, x_888, x_882); +x_890 = lean_box(0); +x_891 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_892 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_892, 0, x_887); +lean_ctor_set(x_892, 1, x_891); +lean_ctor_set(x_892, 2, x_889); +lean_ctor_set(x_892, 3, x_890); +x_893 = l_Array_empty___closed__1; +x_894 = lean_array_push(x_893, x_892); +x_895 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_896 = lean_array_push(x_894, x_895); +x_897 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_896); +x_898 = lean_array_push(x_896, x_897); +x_899 = lean_array_push(x_898, x_115); +x_900 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_901 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_901, 0, x_900); +lean_ctor_set(x_901, 1, x_899); +x_902 = lean_array_push(x_893, x_901); +x_903 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_904 = lean_array_push(x_902, x_903); +x_905 = l_Lean_mkTermIdFromIdent___closed__2; +x_906 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_906, 0, x_905); +lean_ctor_set(x_906, 1, x_896); +x_907 = lean_array_push(x_893, x_906); +x_908 = l_Lean_nullKind___closed__2; +x_909 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_909, 0, x_908); +lean_ctor_set(x_909, 1, x_907); +x_910 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_911 = lean_array_push(x_910, x_909); +x_912 = lean_array_push(x_911, x_895); +x_913 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_914 = lean_array_push(x_912, x_913); +x_915 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; x_916 = lean_array_push(x_914, x_915); -x_917 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_916); -x_918 = lean_array_push(x_916, x_917); -x_919 = lean_array_push(x_918, x_67); -x_920 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_921 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_921, 0, x_920); -lean_ctor_set(x_921, 1, x_919); -x_922 = lean_array_push(x_913, x_921); -x_923 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_924 = lean_array_push(x_922, x_923); -x_925 = l_Lean_mkTermIdFromIdent___closed__2; -x_926 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_926, 0, x_925); -lean_ctor_set(x_926, 1, x_916); -x_927 = lean_array_push(x_913, x_926); -x_928 = l_Lean_nullKind___closed__2; -x_929 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_929, 0, x_928); -lean_ctor_set(x_929, 1, x_927); -x_930 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_931 = lean_array_push(x_930, x_929); -x_932 = lean_array_push(x_931, x_915); -x_933 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_934 = lean_array_push(x_932, x_933); -x_935 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_936 = lean_array_push(x_934, x_935); -x_937 = lean_array_push(x_913, x_65); +x_917 = lean_array_push(x_893, x_113); +x_918 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_918, 0, x_908); +lean_ctor_set(x_918, 1, x_917); +x_919 = lean_array_push(x_893, x_918); +x_920 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_921 = lean_array_push(x_919, x_920); +x_922 = lean_array_push(x_921, x_654); +x_923 = l_Lean_Parser_Term_matchAlt___closed__2; +x_924 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_924, 0, x_923); +lean_ctor_set(x_924, 1, x_922); +x_925 = lean_array_push(x_893, x_924); +x_926 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; +x_927 = lean_array_push(x_925, x_926); +x_928 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +x_929 = lean_array_push(x_928, x_880); +x_930 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_930, 0, x_923); +lean_ctor_set(x_930, 1, x_929); +x_931 = lean_array_push(x_927, x_930); +x_932 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_932, 0, x_908); +lean_ctor_set(x_932, 1, x_931); +x_933 = lean_array_push(x_916, x_932); +x_934 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_935 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_935, 0, x_934); +lean_ctor_set(x_935, 1, x_933); +x_936 = lean_array_push(x_893, x_935); +x_937 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; x_938 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_938, 0, x_928); -lean_ctor_set(x_938, 1, x_937); -x_939 = lean_array_push(x_913, x_938); -x_940 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_941 = lean_array_push(x_939, x_940); -x_942 = lean_array_push(x_941, x_608); -x_943 = l_Lean_Parser_Term_matchAlt___closed__2; +lean_ctor_set(x_938, 0, x_937); +lean_ctor_set(x_938, 1, x_936); +x_939 = lean_array_push(x_904, x_938); +x_940 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_940, 0, x_908); +lean_ctor_set(x_940, 1, x_939); +x_941 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_942 = lean_array_push(x_941, x_940); +x_943 = l_Lean_Parser_Term_do___elambda__1___closed__2; x_944 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_944, 0, x_943); lean_ctor_set(x_944, 1, x_942); -x_945 = lean_array_push(x_913, x_944); -x_946 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_946, 0, x_928); -lean_ctor_set(x_946, 1, x_945); -x_947 = lean_array_push(x_936, x_946); -x_948 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_949 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_949, 0, x_948); -lean_ctor_set(x_949, 1, x_947); -x_950 = lean_array_push(x_913, x_949); -x_951 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_952 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_952, 0, x_951); -lean_ctor_set(x_952, 1, x_950); -x_953 = lean_array_push(x_924, x_952); -x_954 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_954, 0, x_928); -lean_ctor_set(x_954, 1, x_953); -x_955 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_956 = lean_array_push(x_955, x_954); -x_957 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_958 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_958, 0, x_957); -lean_ctor_set(x_958, 1, x_956); -x_801 = x_958; -x_802 = x_906; -goto block_834; -} -block_834: -{ -uint8_t x_803; -x_803 = lean_nat_dec_eq(x_2, x_64); -if (x_803 == 0) -{ -lean_object* x_804; lean_object* x_805; lean_object* x_806; lean_object* x_807; lean_object* x_808; lean_object* x_809; lean_object* x_810; lean_object* x_811; lean_object* x_812; lean_object* x_813; lean_object* x_814; lean_object* x_815; lean_object* x_816; lean_object* x_817; lean_object* x_818; lean_object* x_819; lean_object* x_820; lean_object* x_821; lean_object* x_822; lean_object* x_823; lean_object* x_824; lean_object* x_825; lean_object* x_826; lean_object* x_827; lean_object* x_828; lean_object* x_829; lean_object* x_830; lean_object* x_831; -x_804 = lean_nat_sub(x_2, x_73); -lean_dec(x_2); -x_805 = l_Array_extract___rarg(x_1, x_64, x_804); -lean_dec(x_804); -lean_dec(x_1); -x_806 = l_Lean_mkOptionalNode___closed__2; -x_807 = lean_array_push(x_806, x_801); -x_808 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_809 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_809, 0, x_808); -lean_ctor_set(x_809, 1, x_807); -x_810 = lean_array_push(x_805, x_809); -x_811 = l_Lean_Elab_Term_getCurrMacroScope(x_800, x_802); -lean_dec(x_800); -x_812 = lean_ctor_get(x_811, 1); -lean_inc(x_812); -lean_dec(x_811); -x_813 = l_Lean_Elab_Term_getMainModule___rarg(x_812); -x_814 = lean_ctor_get(x_813, 1); -lean_inc(x_814); -if (lean_is_exclusive(x_813)) { - lean_ctor_release(x_813, 0); - lean_ctor_release(x_813, 1); - x_815 = x_813; -} else { - lean_dec_ref(x_813); - x_815 = lean_box(0); -} -x_816 = l_Array_empty___closed__1; -x_817 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_810, x_810, x_64, x_816); -lean_dec(x_810); -x_818 = l_Lean_nullKind___closed__2; -x_819 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_819, 0, x_818); -lean_ctor_set(x_819, 1, x_817); -x_820 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_821 = lean_array_push(x_820, x_819); -x_822 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_823 = lean_array_push(x_821, x_822); -x_824 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_825 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_825, 0, x_824); -lean_ctor_set(x_825, 1, x_823); -x_826 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_827 = lean_array_push(x_826, x_825); -x_828 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_829 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_829, 0, x_828); -lean_ctor_set(x_829, 1, x_827); -x_830 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_830, 0, x_829); -if (lean_is_scalar(x_815)) { - x_831 = lean_alloc_ctor(0, 2, 0); -} else { - x_831 = x_815; -} -lean_ctor_set(x_831, 0, x_830); -lean_ctor_set(x_831, 1, x_814); -return x_831; +x_846 = x_944; +x_847 = x_886; +goto block_878; } else { -lean_object* x_832; lean_object* x_833; -lean_dec(x_800); -lean_dec(x_2); -lean_dec(x_1); -x_832 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_832, 0, x_801); -x_833 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_833, 0, x_832); -lean_ctor_set(x_833, 1, x_802); -return x_833; -} -} -} -} -else -{ -lean_object* x_959; lean_object* x_960; lean_object* x_961; lean_object* x_962; lean_object* x_963; lean_object* x_964; lean_object* x_965; lean_object* x_966; lean_object* x_967; lean_object* x_968; lean_object* x_969; lean_object* x_970; lean_object* x_971; lean_object* x_972; lean_object* x_973; lean_object* x_974; lean_object* x_975; uint8_t x_976; uint8_t x_977; uint8_t x_978; lean_object* x_979; lean_object* x_980; lean_object* x_981; lean_object* x_982; uint8_t x_1015; -x_959 = lean_ctor_get(x_4, 0); -x_960 = lean_ctor_get(x_4, 1); -x_961 = lean_ctor_get(x_4, 2); -x_962 = lean_ctor_get(x_4, 3); -x_963 = lean_ctor_get(x_4, 4); -x_964 = lean_ctor_get(x_4, 5); -lean_inc(x_964); -lean_inc(x_963); -lean_inc(x_962); -lean_inc(x_961); +lean_object* x_945; lean_object* x_946; lean_object* x_947; lean_object* x_948; lean_object* x_949; lean_object* x_950; lean_object* x_951; lean_object* x_952; lean_object* x_953; lean_object* x_954; lean_object* x_955; lean_object* x_956; lean_object* x_957; lean_object* x_958; lean_object* x_959; lean_object* x_960; lean_object* x_961; lean_object* x_962; lean_object* x_963; lean_object* x_964; lean_object* x_965; lean_object* x_966; lean_object* x_967; lean_object* x_968; lean_object* x_969; lean_object* x_970; lean_object* x_971; lean_object* x_972; lean_object* x_973; lean_object* x_974; lean_object* x_975; lean_object* x_976; lean_object* x_977; lean_object* x_978; lean_object* x_979; lean_object* x_980; lean_object* x_981; lean_object* x_982; lean_object* x_983; lean_object* x_984; lean_object* x_985; lean_object* x_986; lean_object* x_987; lean_object* x_988; lean_object* x_989; lean_object* x_990; lean_object* x_991; lean_object* x_992; lean_object* x_993; lean_object* x_994; lean_object* x_995; lean_object* x_996; lean_object* x_997; lean_object* x_998; lean_object* x_999; lean_object* x_1000; lean_object* x_1001; lean_object* x_1002; +lean_dec(x_117); +x_945 = l_Lean_Elab_Term_getCurrMacroScope(x_845, x_52); +x_946 = lean_ctor_get(x_945, 0); +lean_inc(x_946); +x_947 = lean_ctor_get(x_945, 1); +lean_inc(x_947); +lean_dec(x_945); +x_948 = l_Lean_Elab_Term_getMainModule___rarg(x_947); +x_949 = lean_ctor_get(x_948, 0); +lean_inc(x_949); +x_950 = lean_ctor_get(x_948, 1); +lean_inc(x_950); +lean_dec(x_948); +x_951 = lean_box(0); +x_952 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_953 = l_Lean_addMacroScope(x_949, x_952, x_946); +x_954 = lean_box(0); +x_955 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_956 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_956, 0, x_951); +lean_ctor_set(x_956, 1, x_955); +lean_ctor_set(x_956, 2, x_953); +lean_ctor_set(x_956, 3, x_954); +x_957 = l_Array_empty___closed__1; +x_958 = lean_array_push(x_957, x_956); +x_959 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_960 = lean_array_push(x_958, x_959); +x_961 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; lean_inc(x_960); -lean_inc(x_959); -lean_dec(x_4); -x_965 = lean_nat_add(x_964, x_73); -x_966 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_966, 0, x_959); -lean_ctor_set(x_966, 1, x_960); -lean_ctor_set(x_966, 2, x_961); -lean_ctor_set(x_966, 3, x_962); -lean_ctor_set(x_966, 4, x_963); -lean_ctor_set(x_966, 5, x_965); -x_967 = lean_ctor_get(x_3, 0); -lean_inc(x_967); -x_968 = lean_ctor_get(x_3, 1); -lean_inc(x_968); -x_969 = lean_ctor_get(x_3, 2); -lean_inc(x_969); -x_970 = lean_ctor_get(x_3, 3); -lean_inc(x_970); -x_971 = lean_ctor_get(x_3, 4); -lean_inc(x_971); -x_972 = lean_ctor_get(x_3, 5); -lean_inc(x_972); -x_973 = lean_ctor_get(x_3, 6); -lean_inc(x_973); -x_974 = lean_ctor_get(x_3, 7); -lean_inc(x_974); -x_975 = lean_ctor_get(x_3, 8); -lean_inc(x_975); -x_976 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_977 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); -x_978 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); -if (lean_is_exclusive(x_3)) { - lean_ctor_release(x_3, 0); - lean_ctor_release(x_3, 1); - lean_ctor_release(x_3, 2); - lean_ctor_release(x_3, 3); - lean_ctor_release(x_3, 4); - lean_ctor_release(x_3, 5); - lean_ctor_release(x_3, 6); - lean_ctor_release(x_3, 7); - lean_ctor_release(x_3, 8); - lean_ctor_release(x_3, 9); - x_979 = x_3; -} else { - lean_dec_ref(x_3); - x_979 = lean_box(0); +x_962 = lean_array_push(x_960, x_961); +x_963 = lean_array_push(x_962, x_115); +x_964 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_965 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_965, 0, x_964); +lean_ctor_set(x_965, 1, x_963); +x_966 = lean_array_push(x_957, x_965); +x_967 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_968 = lean_array_push(x_966, x_967); +x_969 = l_Lean_mkTermIdFromIdent___closed__2; +x_970 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_970, 0, x_969); +lean_ctor_set(x_970, 1, x_960); +x_971 = lean_array_push(x_957, x_970); +x_972 = l_Lean_nullKind___closed__2; +x_973 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_973, 0, x_972); +lean_ctor_set(x_973, 1, x_971); +x_974 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_975 = lean_array_push(x_974, x_973); +x_976 = lean_array_push(x_975, x_959); +x_977 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_978 = lean_array_push(x_976, x_977); +x_979 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_980 = lean_array_push(x_978, x_979); +x_981 = lean_array_push(x_957, x_113); +x_982 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_982, 0, x_972); +lean_ctor_set(x_982, 1, x_981); +x_983 = lean_array_push(x_957, x_982); +x_984 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_985 = lean_array_push(x_983, x_984); +x_986 = lean_array_push(x_985, x_654); +x_987 = l_Lean_Parser_Term_matchAlt___closed__2; +x_988 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_988, 0, x_987); +lean_ctor_set(x_988, 1, x_986); +x_989 = lean_array_push(x_957, x_988); +x_990 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_990, 0, x_972); +lean_ctor_set(x_990, 1, x_989); +x_991 = lean_array_push(x_980, x_990); +x_992 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_993 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_993, 0, x_992); +lean_ctor_set(x_993, 1, x_991); +x_994 = lean_array_push(x_957, x_993); +x_995 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_996 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_996, 0, x_995); +lean_ctor_set(x_996, 1, x_994); +x_997 = lean_array_push(x_968, x_996); +x_998 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_998, 0, x_972); +lean_ctor_set(x_998, 1, x_997); +x_999 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1000 = lean_array_push(x_999, x_998); +x_1001 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1002 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1002, 0, x_1001); +lean_ctor_set(x_1002, 1, x_1000); +x_846 = x_1002; +x_847 = x_950; +goto block_878; } -if (lean_is_scalar(x_979)) { - x_980 = lean_alloc_ctor(0, 10, 3); -} else { - x_980 = x_979; -} -lean_ctor_set(x_980, 0, x_967); -lean_ctor_set(x_980, 1, x_968); -lean_ctor_set(x_980, 2, x_969); -lean_ctor_set(x_980, 3, x_970); -lean_ctor_set(x_980, 4, x_971); -lean_ctor_set(x_980, 5, x_972); -lean_ctor_set(x_980, 6, x_973); -lean_ctor_set(x_980, 7, x_974); -lean_ctor_set(x_980, 8, x_975); -lean_ctor_set(x_980, 9, x_964); -lean_ctor_set_uint8(x_980, sizeof(void*)*10, x_976); -lean_ctor_set_uint8(x_980, sizeof(void*)*10 + 1, x_977); -lean_ctor_set_uint8(x_980, sizeof(void*)*10 + 2, x_978); -x_1015 = l_Lean_Syntax_isNone(x_69); -if (x_1015 == 0) +block_878: { -lean_object* x_1016; lean_object* x_1017; lean_object* x_1018; lean_object* x_1019; lean_object* x_1020; lean_object* x_1021; lean_object* x_1022; lean_object* x_1023; lean_object* x_1024; lean_object* x_1025; lean_object* x_1026; lean_object* x_1027; lean_object* x_1028; lean_object* x_1029; lean_object* x_1030; lean_object* x_1031; lean_object* x_1032; lean_object* x_1033; lean_object* x_1034; lean_object* x_1035; lean_object* x_1036; lean_object* x_1037; lean_object* x_1038; lean_object* x_1039; lean_object* x_1040; lean_object* x_1041; lean_object* x_1042; lean_object* x_1043; lean_object* x_1044; lean_object* x_1045; lean_object* x_1046; lean_object* x_1047; lean_object* x_1048; lean_object* x_1049; lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; lean_object* x_1053; lean_object* x_1054; lean_object* x_1055; lean_object* x_1056; lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; lean_object* x_1060; lean_object* x_1061; lean_object* x_1062; lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; lean_object* x_1068; lean_object* x_1069; lean_object* x_1070; lean_object* x_1071; lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; lean_object* x_1075; lean_object* x_1076; lean_object* x_1077; lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; -x_1016 = l_Lean_Syntax_getArg(x_69, x_73); -lean_dec(x_69); -x_1017 = l_Lean_Elab_Term_getCurrMacroScope(x_980, x_966); -x_1018 = lean_ctor_get(x_1017, 0); +uint8_t x_848; +x_848 = lean_nat_dec_eq(x_3, x_112); +if (x_848 == 0) +{ +lean_object* x_849; lean_object* x_850; lean_object* x_851; lean_object* x_852; lean_object* x_853; lean_object* x_854; lean_object* x_855; lean_object* x_856; lean_object* x_857; lean_object* x_858; lean_object* x_859; lean_object* x_860; lean_object* x_861; lean_object* x_862; lean_object* x_863; lean_object* x_864; lean_object* x_865; lean_object* x_866; lean_object* x_867; lean_object* x_868; lean_object* x_869; lean_object* x_870; lean_object* x_871; lean_object* x_872; lean_object* x_873; lean_object* x_874; lean_object* x_875; +lean_dec(x_53); +x_849 = l_Array_extract___rarg(x_2, x_112, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_850 = l_Lean_mkOptionalNode___closed__2; +x_851 = lean_array_push(x_850, x_846); +x_852 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_853 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_853, 0, x_852); +lean_ctor_set(x_853, 1, x_851); +x_854 = lean_array_push(x_849, x_853); +x_855 = l_Lean_Elab_Term_getCurrMacroScope(x_845, x_847); +lean_dec(x_845); +x_856 = lean_ctor_get(x_855, 1); +lean_inc(x_856); +lean_dec(x_855); +x_857 = l_Lean_Elab_Term_getMainModule___rarg(x_856); +x_858 = lean_ctor_get(x_857, 1); +lean_inc(x_858); +if (lean_is_exclusive(x_857)) { + lean_ctor_release(x_857, 0); + lean_ctor_release(x_857, 1); + x_859 = x_857; +} else { + lean_dec_ref(x_857); + x_859 = lean_box(0); +} +x_860 = l_Array_empty___closed__1; +x_861 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_854, x_854, x_112, x_860); +lean_dec(x_854); +x_862 = l_Lean_nullKind___closed__2; +x_863 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_863, 0, x_862); +lean_ctor_set(x_863, 1, x_861); +x_864 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_865 = lean_array_push(x_864, x_863); +x_866 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_867 = lean_array_push(x_865, x_866); +x_868 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_869 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_869, 0, x_868); +lean_ctor_set(x_869, 1, x_867); +x_870 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_871 = lean_array_push(x_870, x_869); +x_872 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_873 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_873, 0, x_872); +lean_ctor_set(x_873, 1, x_871); +x_874 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_874, 0, x_873); +if (lean_is_scalar(x_859)) { + x_875 = lean_alloc_ctor(0, 2, 0); +} else { + x_875 = x_859; +} +lean_ctor_set(x_875, 0, x_874); +lean_ctor_set(x_875, 1, x_858); +return x_875; +} +else +{ +lean_object* x_876; lean_object* x_877; +lean_dec(x_845); +lean_dec(x_3); +lean_dec(x_2); +x_876 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_876, 0, x_846); +if (lean_is_scalar(x_53)) { + x_877 = lean_alloc_ctor(0, 2, 0); +} else { + x_877 = x_53; +} +lean_ctor_set(x_877, 0, x_876); +lean_ctor_set(x_877, 1, x_847); +return x_877; +} +} +} +} +else +{ +lean_object* x_1003; lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; lean_object* x_1007; lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; lean_object* x_1011; lean_object* x_1012; lean_object* x_1013; lean_object* x_1014; lean_object* x_1015; lean_object* x_1016; lean_object* x_1017; lean_object* x_1018; lean_object* x_1019; uint8_t x_1020; uint8_t x_1021; uint8_t x_1022; lean_object* x_1023; lean_object* x_1024; lean_object* x_1025; lean_object* x_1026; uint8_t x_1058; +x_1003 = lean_ctor_get(x_52, 0); +x_1004 = lean_ctor_get(x_52, 1); +x_1005 = lean_ctor_get(x_52, 2); +x_1006 = lean_ctor_get(x_52, 3); +x_1007 = lean_ctor_get(x_52, 4); +x_1008 = lean_ctor_get(x_52, 5); +lean_inc(x_1008); +lean_inc(x_1007); +lean_inc(x_1006); +lean_inc(x_1005); +lean_inc(x_1004); +lean_inc(x_1003); +lean_dec(x_52); +x_1009 = lean_nat_add(x_1008, x_121); +x_1010 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_1010, 0, x_1003); +lean_ctor_set(x_1010, 1, x_1004); +lean_ctor_set(x_1010, 2, x_1005); +lean_ctor_set(x_1010, 3, x_1006); +lean_ctor_set(x_1010, 4, x_1007); +lean_ctor_set(x_1010, 5, x_1009); +x_1011 = lean_ctor_get(x_4, 0); +lean_inc(x_1011); +x_1012 = lean_ctor_get(x_4, 1); +lean_inc(x_1012); +x_1013 = lean_ctor_get(x_4, 2); +lean_inc(x_1013); +x_1014 = lean_ctor_get(x_4, 3); +lean_inc(x_1014); +x_1015 = lean_ctor_get(x_4, 4); +lean_inc(x_1015); +x_1016 = lean_ctor_get(x_4, 5); +lean_inc(x_1016); +x_1017 = lean_ctor_get(x_4, 6); +lean_inc(x_1017); +x_1018 = lean_ctor_get(x_4, 7); lean_inc(x_1018); -x_1019 = lean_ctor_get(x_1017, 1); +x_1019 = lean_ctor_get(x_4, 8); lean_inc(x_1019); -lean_dec(x_1017); -x_1020 = l_Lean_Elab_Term_getMainModule___rarg(x_1019); -x_1021 = lean_ctor_get(x_1020, 0); -lean_inc(x_1021); -x_1022 = lean_ctor_get(x_1020, 1); -lean_inc(x_1022); -lean_dec(x_1020); -x_1023 = lean_box(0); -x_1024 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_1025 = l_Lean_addMacroScope(x_1021, x_1024, x_1018); -x_1026 = lean_box(0); -x_1027 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_1028 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1028, 0, x_1023); -lean_ctor_set(x_1028, 1, x_1027); -lean_ctor_set(x_1028, 2, x_1025); -lean_ctor_set(x_1028, 3, x_1026); -x_1029 = l_Array_empty___closed__1; -x_1030 = lean_array_push(x_1029, x_1028); -x_1031 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_1032 = lean_array_push(x_1030, x_1031); -x_1033 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_1032); -x_1034 = lean_array_push(x_1032, x_1033); -x_1035 = lean_array_push(x_1034, x_67); -x_1036 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_1037 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1037, 0, x_1036); -lean_ctor_set(x_1037, 1, x_1035); -x_1038 = lean_array_push(x_1029, x_1037); -x_1039 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_1040 = lean_array_push(x_1038, x_1039); -x_1041 = l_Lean_mkTermIdFromIdent___closed__2; -x_1042 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1042, 0, x_1041); -lean_ctor_set(x_1042, 1, x_1032); -x_1043 = lean_array_push(x_1029, x_1042); -x_1044 = l_Lean_nullKind___closed__2; -x_1045 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1045, 0, x_1044); -lean_ctor_set(x_1045, 1, x_1043); -x_1046 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_1047 = lean_array_push(x_1046, x_1045); -x_1048 = lean_array_push(x_1047, x_1031); -x_1049 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_1050 = lean_array_push(x_1048, x_1049); -x_1051 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_1052 = lean_array_push(x_1050, x_1051); -x_1053 = lean_array_push(x_1029, x_65); -x_1054 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1054, 0, x_1044); -lean_ctor_set(x_1054, 1, x_1053); -x_1055 = lean_array_push(x_1029, x_1054); -x_1056 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_1057 = lean_array_push(x_1055, x_1056); -x_1058 = lean_array_push(x_1057, x_608); -x_1059 = l_Lean_Parser_Term_matchAlt___closed__2; -x_1060 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1060, 0, x_1059); -lean_ctor_set(x_1060, 1, x_1058); -x_1061 = lean_array_push(x_1029, x_1060); -x_1062 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13; -x_1063 = lean_array_push(x_1061, x_1062); -x_1064 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17; -x_1065 = lean_array_push(x_1064, x_1016); -x_1066 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1066, 0, x_1059); -lean_ctor_set(x_1066, 1, x_1065); -x_1067 = lean_array_push(x_1063, x_1066); -x_1068 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1068, 0, x_1044); -lean_ctor_set(x_1068, 1, x_1067); -x_1069 = lean_array_push(x_1052, x_1068); -x_1070 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_1071 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1071, 0, x_1070); -lean_ctor_set(x_1071, 1, x_1069); -x_1072 = lean_array_push(x_1029, x_1071); -x_1073 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_1074 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1074, 0, x_1073); -lean_ctor_set(x_1074, 1, x_1072); -x_1075 = lean_array_push(x_1040, x_1074); -x_1076 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1076, 0, x_1044); -lean_ctor_set(x_1076, 1, x_1075); -x_1077 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1078 = lean_array_push(x_1077, x_1076); -x_1079 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1020 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); +x_1021 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); +x_1022 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); +if (lean_is_exclusive(x_4)) { + lean_ctor_release(x_4, 0); + lean_ctor_release(x_4, 1); + lean_ctor_release(x_4, 2); + lean_ctor_release(x_4, 3); + lean_ctor_release(x_4, 4); + lean_ctor_release(x_4, 5); + lean_ctor_release(x_4, 6); + lean_ctor_release(x_4, 7); + lean_ctor_release(x_4, 8); + lean_ctor_release(x_4, 9); + x_1023 = x_4; +} else { + lean_dec_ref(x_4); + x_1023 = lean_box(0); +} +if (lean_is_scalar(x_1023)) { + x_1024 = lean_alloc_ctor(0, 10, 3); +} else { + x_1024 = x_1023; +} +lean_ctor_set(x_1024, 0, x_1011); +lean_ctor_set(x_1024, 1, x_1012); +lean_ctor_set(x_1024, 2, x_1013); +lean_ctor_set(x_1024, 3, x_1014); +lean_ctor_set(x_1024, 4, x_1015); +lean_ctor_set(x_1024, 5, x_1016); +lean_ctor_set(x_1024, 6, x_1017); +lean_ctor_set(x_1024, 7, x_1018); +lean_ctor_set(x_1024, 8, x_1019); +lean_ctor_set(x_1024, 9, x_1008); +lean_ctor_set_uint8(x_1024, sizeof(void*)*10, x_1020); +lean_ctor_set_uint8(x_1024, sizeof(void*)*10 + 1, x_1021); +lean_ctor_set_uint8(x_1024, sizeof(void*)*10 + 2, x_1022); +x_1058 = l_Lean_Syntax_isNone(x_117); +if (x_1058 == 0) +{ +lean_object* x_1059; lean_object* x_1060; lean_object* x_1061; lean_object* x_1062; lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; lean_object* x_1068; lean_object* x_1069; lean_object* x_1070; lean_object* x_1071; lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; lean_object* x_1075; lean_object* x_1076; lean_object* x_1077; lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; lean_object* x_1081; lean_object* x_1082; lean_object* x_1083; lean_object* x_1084; lean_object* x_1085; lean_object* x_1086; lean_object* x_1087; lean_object* x_1088; lean_object* x_1089; lean_object* x_1090; lean_object* x_1091; lean_object* x_1092; lean_object* x_1093; lean_object* x_1094; lean_object* x_1095; lean_object* x_1096; lean_object* x_1097; lean_object* x_1098; lean_object* x_1099; lean_object* x_1100; lean_object* x_1101; lean_object* x_1102; lean_object* x_1103; lean_object* x_1104; lean_object* x_1105; lean_object* x_1106; lean_object* x_1107; lean_object* x_1108; lean_object* x_1109; lean_object* x_1110; lean_object* x_1111; lean_object* x_1112; lean_object* x_1113; lean_object* x_1114; lean_object* x_1115; lean_object* x_1116; lean_object* x_1117; lean_object* x_1118; lean_object* x_1119; lean_object* x_1120; lean_object* x_1121; lean_object* x_1122; lean_object* x_1123; +x_1059 = l_Lean_Syntax_getArg(x_117, x_121); +lean_dec(x_117); +x_1060 = l_Lean_Elab_Term_getCurrMacroScope(x_1024, x_1010); +x_1061 = lean_ctor_get(x_1060, 0); +lean_inc(x_1061); +x_1062 = lean_ctor_get(x_1060, 1); +lean_inc(x_1062); +lean_dec(x_1060); +x_1063 = l_Lean_Elab_Term_getMainModule___rarg(x_1062); +x_1064 = lean_ctor_get(x_1063, 0); +lean_inc(x_1064); +x_1065 = lean_ctor_get(x_1063, 1); +lean_inc(x_1065); +lean_dec(x_1063); +x_1066 = lean_box(0); +x_1067 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_1068 = l_Lean_addMacroScope(x_1064, x_1067, x_1061); +x_1069 = lean_box(0); +x_1070 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_1071 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1071, 0, x_1066); +lean_ctor_set(x_1071, 1, x_1070); +lean_ctor_set(x_1071, 2, x_1068); +lean_ctor_set(x_1071, 3, x_1069); +x_1072 = l_Array_empty___closed__1; +x_1073 = lean_array_push(x_1072, x_1071); +x_1074 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_1075 = lean_array_push(x_1073, x_1074); +x_1076 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_1075); +x_1077 = lean_array_push(x_1075, x_1076); +x_1078 = lean_array_push(x_1077, x_115); +x_1079 = l_Lean_Parser_Term_doId___elambda__1___closed__2; x_1080 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1080, 0, x_1079); lean_ctor_set(x_1080, 1, x_1078); -x_981 = x_1080; -x_982 = x_1022; -goto block_1014; -} -else -{ -lean_object* x_1081; lean_object* x_1082; lean_object* x_1083; lean_object* x_1084; lean_object* x_1085; lean_object* x_1086; lean_object* x_1087; lean_object* x_1088; lean_object* x_1089; lean_object* x_1090; lean_object* x_1091; lean_object* x_1092; lean_object* x_1093; lean_object* x_1094; lean_object* x_1095; lean_object* x_1096; lean_object* x_1097; lean_object* x_1098; lean_object* x_1099; lean_object* x_1100; lean_object* x_1101; lean_object* x_1102; lean_object* x_1103; lean_object* x_1104; lean_object* x_1105; lean_object* x_1106; lean_object* x_1107; lean_object* x_1108; lean_object* x_1109; lean_object* x_1110; lean_object* x_1111; lean_object* x_1112; lean_object* x_1113; lean_object* x_1114; lean_object* x_1115; lean_object* x_1116; lean_object* x_1117; lean_object* x_1118; lean_object* x_1119; lean_object* x_1120; lean_object* x_1121; lean_object* x_1122; lean_object* x_1123; lean_object* x_1124; lean_object* x_1125; lean_object* x_1126; lean_object* x_1127; lean_object* x_1128; lean_object* x_1129; lean_object* x_1130; lean_object* x_1131; lean_object* x_1132; lean_object* x_1133; lean_object* x_1134; lean_object* x_1135; lean_object* x_1136; lean_object* x_1137; lean_object* x_1138; -lean_dec(x_69); -x_1081 = l_Lean_Elab_Term_getCurrMacroScope(x_980, x_966); -x_1082 = lean_ctor_get(x_1081, 0); -lean_inc(x_1082); -x_1083 = lean_ctor_get(x_1081, 1); -lean_inc(x_1083); -lean_dec(x_1081); -x_1084 = l_Lean_Elab_Term_getMainModule___rarg(x_1083); -x_1085 = lean_ctor_get(x_1084, 0); -lean_inc(x_1085); -x_1086 = lean_ctor_get(x_1084, 1); -lean_inc(x_1086); -lean_dec(x_1084); -x_1087 = lean_box(0); -x_1088 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; -x_1089 = l_Lean_addMacroScope(x_1085, x_1088, x_1082); -x_1090 = lean_box(0); -x_1091 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4; -x_1092 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1092, 0, x_1087); -lean_ctor_set(x_1092, 1, x_1091); -lean_ctor_set(x_1092, 2, x_1089); -lean_ctor_set(x_1092, 3, x_1090); -x_1093 = l_Array_empty___closed__1; -x_1094 = lean_array_push(x_1093, x_1092); -x_1095 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; -x_1096 = lean_array_push(x_1094, x_1095); -x_1097 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6; -lean_inc(x_1096); -x_1098 = lean_array_push(x_1096, x_1097); -x_1099 = lean_array_push(x_1098, x_67); -x_1100 = l_Lean_Parser_Term_doId___elambda__1___closed__2; -x_1101 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1101, 0, x_1100); -lean_ctor_set(x_1101, 1, x_1099); -x_1102 = lean_array_push(x_1093, x_1101); -x_1103 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_1104 = lean_array_push(x_1102, x_1103); -x_1105 = l_Lean_mkTermIdFromIdent___closed__2; -x_1106 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1106, 0, x_1105); -lean_ctor_set(x_1106, 1, x_1096); -x_1107 = lean_array_push(x_1093, x_1106); -x_1108 = l_Lean_nullKind___closed__2; +x_1081 = lean_array_push(x_1072, x_1080); +x_1082 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_1083 = lean_array_push(x_1081, x_1082); +x_1084 = l_Lean_mkTermIdFromIdent___closed__2; +x_1085 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1085, 0, x_1084); +lean_ctor_set(x_1085, 1, x_1075); +x_1086 = lean_array_push(x_1072, x_1085); +x_1087 = l_Lean_nullKind___closed__2; +x_1088 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1088, 0, x_1087); +lean_ctor_set(x_1088, 1, x_1086); +x_1089 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_1090 = lean_array_push(x_1089, x_1088); +x_1091 = lean_array_push(x_1090, x_1074); +x_1092 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_1093 = lean_array_push(x_1091, x_1092); +x_1094 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_1095 = lean_array_push(x_1093, x_1094); +x_1096 = lean_array_push(x_1072, x_113); +x_1097 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1097, 0, x_1087); +lean_ctor_set(x_1097, 1, x_1096); +x_1098 = lean_array_push(x_1072, x_1097); +x_1099 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1100 = lean_array_push(x_1098, x_1099); +x_1101 = lean_array_push(x_1100, x_654); +x_1102 = l_Lean_Parser_Term_matchAlt___closed__2; +x_1103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1103, 0, x_1102); +lean_ctor_set(x_1103, 1, x_1101); +x_1104 = lean_array_push(x_1072, x_1103); +x_1105 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__4; +x_1106 = lean_array_push(x_1104, x_1105); +x_1107 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5; +x_1108 = lean_array_push(x_1107, x_1059); x_1109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1109, 0, x_1108); -lean_ctor_set(x_1109, 1, x_1107); -x_1110 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11; -x_1111 = lean_array_push(x_1110, x_1109); -x_1112 = lean_array_push(x_1111, x_1095); -x_1113 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12; -x_1114 = lean_array_push(x_1112, x_1113); -x_1115 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15; -x_1116 = lean_array_push(x_1114, x_1115); -x_1117 = lean_array_push(x_1093, x_65); -x_1118 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1118, 0, x_1108); -lean_ctor_set(x_1118, 1, x_1117); -x_1119 = lean_array_push(x_1093, x_1118); -x_1120 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_1121 = lean_array_push(x_1119, x_1120); -x_1122 = lean_array_push(x_1121, x_608); -x_1123 = l_Lean_Parser_Term_matchAlt___closed__2; -x_1124 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1124, 0, x_1123); -lean_ctor_set(x_1124, 1, x_1122); -x_1125 = lean_array_push(x_1093, x_1124); -x_1126 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1126, 0, x_1108); -lean_ctor_set(x_1126, 1, x_1125); -x_1127 = lean_array_push(x_1116, x_1126); -x_1128 = l_Lean_Parser_Term_match___elambda__1___closed__2; -x_1129 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1129, 0, x_1128); -lean_ctor_set(x_1129, 1, x_1127); -x_1130 = lean_array_push(x_1093, x_1129); -x_1131 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_1132 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1132, 0, x_1131); -lean_ctor_set(x_1132, 1, x_1130); -x_1133 = lean_array_push(x_1104, x_1132); -x_1134 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1134, 0, x_1108); -lean_ctor_set(x_1134, 1, x_1133); -x_1135 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1136 = lean_array_push(x_1135, x_1134); -x_1137 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_1138 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1138, 0, x_1137); -lean_ctor_set(x_1138, 1, x_1136); -x_981 = x_1138; -x_982 = x_1086; -goto block_1014; -} -block_1014: -{ -uint8_t x_983; -x_983 = lean_nat_dec_eq(x_2, x_64); -if (x_983 == 0) -{ -lean_object* x_984; lean_object* x_985; lean_object* x_986; lean_object* x_987; lean_object* x_988; lean_object* x_989; lean_object* x_990; lean_object* x_991; lean_object* x_992; lean_object* x_993; lean_object* x_994; lean_object* x_995; lean_object* x_996; lean_object* x_997; lean_object* x_998; lean_object* x_999; lean_object* x_1000; lean_object* x_1001; lean_object* x_1002; lean_object* x_1003; lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; lean_object* x_1007; lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; lean_object* x_1011; -x_984 = lean_nat_sub(x_2, x_73); -lean_dec(x_2); -x_985 = l_Array_extract___rarg(x_1, x_64, x_984); -lean_dec(x_984); -lean_dec(x_1); -x_986 = l_Lean_mkOptionalNode___closed__2; -x_987 = lean_array_push(x_986, x_981); -x_988 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_989 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_989, 0, x_988); -lean_ctor_set(x_989, 1, x_987); -x_990 = lean_array_push(x_985, x_989); -x_991 = l_Lean_Elab_Term_getCurrMacroScope(x_980, x_982); -lean_dec(x_980); -x_992 = lean_ctor_get(x_991, 1); -lean_inc(x_992); -lean_dec(x_991); -x_993 = l_Lean_Elab_Term_getMainModule___rarg(x_992); -x_994 = lean_ctor_get(x_993, 1); -lean_inc(x_994); -if (lean_is_exclusive(x_993)) { - lean_ctor_release(x_993, 0); - lean_ctor_release(x_993, 1); - x_995 = x_993; -} else { - lean_dec_ref(x_993); - x_995 = lean_box(0); -} -x_996 = l_Array_empty___closed__1; -x_997 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_990, x_990, x_64, x_996); -lean_dec(x_990); -x_998 = l_Lean_nullKind___closed__2; -x_999 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_999, 0, x_998); -lean_ctor_set(x_999, 1, x_997); -x_1000 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_1001 = lean_array_push(x_1000, x_999); -x_1002 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_1003 = lean_array_push(x_1001, x_1002); -x_1004 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_1005 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1005, 0, x_1004); -lean_ctor_set(x_1005, 1, x_1003); -x_1006 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1007 = lean_array_push(x_1006, x_1005); -x_1008 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_1009 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1009, 0, x_1008); -lean_ctor_set(x_1009, 1, x_1007); -x_1010 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1010, 0, x_1009); -if (lean_is_scalar(x_995)) { - x_1011 = lean_alloc_ctor(0, 2, 0); -} else { - x_1011 = x_995; -} -lean_ctor_set(x_1011, 0, x_1010); -lean_ctor_set(x_1011, 1, x_994); -return x_1011; +lean_ctor_set(x_1109, 0, x_1102); +lean_ctor_set(x_1109, 1, x_1108); +x_1110 = lean_array_push(x_1106, x_1109); +x_1111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1111, 0, x_1087); +lean_ctor_set(x_1111, 1, x_1110); +x_1112 = lean_array_push(x_1095, x_1111); +x_1113 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_1114 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1114, 0, x_1113); +lean_ctor_set(x_1114, 1, x_1112); +x_1115 = lean_array_push(x_1072, x_1114); +x_1116 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1117 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1117, 0, x_1116); +lean_ctor_set(x_1117, 1, x_1115); +x_1118 = lean_array_push(x_1083, x_1117); +x_1119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1119, 0, x_1087); +lean_ctor_set(x_1119, 1, x_1118); +x_1120 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1121 = lean_array_push(x_1120, x_1119); +x_1122 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1123, 0, x_1122); +lean_ctor_set(x_1123, 1, x_1121); +x_1025 = x_1123; +x_1026 = x_1065; +goto block_1057; } else { -lean_object* x_1012; lean_object* x_1013; -lean_dec(x_980); -lean_dec(x_2); -lean_dec(x_1); -x_1012 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1012, 0, x_981); -x_1013 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1013, 0, x_1012); -lean_ctor_set(x_1013, 1, x_982); -return x_1013; -} -} -} -} -} -} -else -{ -lean_object* x_1139; lean_object* x_1140; lean_object* x_1141; lean_object* x_1142; lean_object* x_1143; lean_object* x_1144; uint8_t x_1145; -lean_dec(x_10); -x_1139 = lean_unsigned_to_nat(1u); -x_1140 = l_Lean_Syntax_getArg(x_9, x_1139); -lean_dec(x_9); -x_1141 = lean_unsigned_to_nat(2u); -x_1142 = lean_nat_add(x_2, x_1141); -x_1143 = l_Array_extract___rarg(x_1, x_1142, x_5); -lean_dec(x_5); -x_1144 = lean_array_get_size(x_1143); -x_1145 = lean_nat_dec_eq(x_1144, x_1139); -lean_dec(x_1144); -if (x_1145 == 0) -{ -lean_object* x_1146; lean_object* x_1147; lean_object* x_1148; lean_object* x_1149; lean_object* x_1150; lean_object* x_1151; lean_object* x_1152; lean_object* x_1153; lean_object* x_1154; lean_object* x_1155; lean_object* x_1156; lean_object* x_1157; lean_object* x_1158; lean_object* x_1159; lean_object* x_1160; lean_object* x_1161; lean_object* x_1162; lean_object* x_1163; lean_object* x_1164; lean_object* x_1165; lean_object* x_1166; lean_object* x_1167; uint8_t x_1168; -x_1146 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_1147 = lean_ctor_get(x_1146, 1); -lean_inc(x_1147); -lean_dec(x_1146); -x_1148 = l_Lean_Elab_Term_getMainModule___rarg(x_1147); -x_1149 = lean_ctor_get(x_1148, 1); -lean_inc(x_1149); -lean_dec(x_1148); -x_1150 = lean_unsigned_to_nat(0u); -x_1151 = l_Array_empty___closed__1; -x_1152 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1143, x_1143, x_1150, x_1151); -lean_dec(x_1143); -x_1153 = l_Lean_nullKind___closed__2; -x_1154 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1154, 0, x_1153); -lean_ctor_set(x_1154, 1, x_1152); -x_1155 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_1156 = lean_array_push(x_1155, x_1154); -x_1157 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_1158 = lean_array_push(x_1156, x_1157); -x_1159 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_1160 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1160, 0, x_1159); -lean_ctor_set(x_1160, 1, x_1158); -x_1161 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1162 = lean_array_push(x_1161, x_1160); -x_1163 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_1164 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1164, 0, x_1163); -lean_ctor_set(x_1164, 1, x_1162); -x_1165 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_1149); -x_1166 = lean_ctor_get(x_1165, 1); -lean_inc(x_1166); -lean_dec(x_1165); -x_1167 = l_Lean_Elab_Term_getMainModule___rarg(x_1166); -x_1168 = !lean_is_exclusive(x_1167); -if (x_1168 == 0) -{ -lean_object* x_1169; lean_object* x_1170; lean_object* x_1171; lean_object* x_1172; lean_object* x_1173; lean_object* x_1174; lean_object* x_1175; lean_object* x_1176; lean_object* x_1177; uint8_t x_1178; -x_1169 = lean_ctor_get(x_1167, 1); -x_1170 = lean_ctor_get(x_1167, 0); -lean_dec(x_1170); -x_1171 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; -x_1172 = lean_array_push(x_1171, x_1140); -x_1173 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_1174 = lean_array_push(x_1172, x_1173); -x_1175 = lean_array_push(x_1174, x_1164); -x_1176 = l_Lean_Parser_Term_let___elambda__1___closed__2; +lean_object* x_1124; lean_object* x_1125; lean_object* x_1126; lean_object* x_1127; lean_object* x_1128; lean_object* x_1129; lean_object* x_1130; lean_object* x_1131; lean_object* x_1132; lean_object* x_1133; lean_object* x_1134; lean_object* x_1135; lean_object* x_1136; lean_object* x_1137; lean_object* x_1138; lean_object* x_1139; lean_object* x_1140; lean_object* x_1141; lean_object* x_1142; lean_object* x_1143; lean_object* x_1144; lean_object* x_1145; lean_object* x_1146; lean_object* x_1147; lean_object* x_1148; lean_object* x_1149; lean_object* x_1150; lean_object* x_1151; lean_object* x_1152; lean_object* x_1153; lean_object* x_1154; lean_object* x_1155; lean_object* x_1156; lean_object* x_1157; lean_object* x_1158; lean_object* x_1159; lean_object* x_1160; lean_object* x_1161; lean_object* x_1162; lean_object* x_1163; lean_object* x_1164; lean_object* x_1165; lean_object* x_1166; lean_object* x_1167; lean_object* x_1168; lean_object* x_1169; lean_object* x_1170; lean_object* x_1171; lean_object* x_1172; lean_object* x_1173; lean_object* x_1174; lean_object* x_1175; lean_object* x_1176; lean_object* x_1177; lean_object* x_1178; lean_object* x_1179; lean_object* x_1180; lean_object* x_1181; +lean_dec(x_117); +x_1124 = l_Lean_Elab_Term_getCurrMacroScope(x_1024, x_1010); +x_1125 = lean_ctor_get(x_1124, 0); +lean_inc(x_1125); +x_1126 = lean_ctor_get(x_1124, 1); +lean_inc(x_1126); +lean_dec(x_1124); +x_1127 = l_Lean_Elab_Term_getMainModule___rarg(x_1126); +x_1128 = lean_ctor_get(x_1127, 0); +lean_inc(x_1128); +x_1129 = lean_ctor_get(x_1127, 1); +lean_inc(x_1129); +lean_dec(x_1127); +x_1130 = lean_box(0); +x_1131 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_1132 = l_Lean_addMacroScope(x_1128, x_1131, x_1125); +x_1133 = lean_box(0); +x_1134 = l_Lean_Elab_Term_elabLetDecl___closed__4; +x_1135 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1135, 0, x_1130); +lean_ctor_set(x_1135, 1, x_1134); +lean_ctor_set(x_1135, 2, x_1132); +lean_ctor_set(x_1135, 3, x_1133); +x_1136 = l_Array_empty___closed__1; +x_1137 = lean_array_push(x_1136, x_1135); +x_1138 = l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__4; +x_1139 = lean_array_push(x_1137, x_1138); +x_1140 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; +lean_inc(x_1139); +x_1141 = lean_array_push(x_1139, x_1140); +x_1142 = lean_array_push(x_1141, x_115); +x_1143 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_1144 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1144, 0, x_1143); +lean_ctor_set(x_1144, 1, x_1142); +x_1145 = lean_array_push(x_1136, x_1144); +x_1146 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_1147 = lean_array_push(x_1145, x_1146); +x_1148 = l_Lean_mkTermIdFromIdent___closed__2; +x_1149 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1149, 0, x_1148); +lean_ctor_set(x_1149, 1, x_1139); +x_1150 = lean_array_push(x_1136, x_1149); +x_1151 = l_Lean_nullKind___closed__2; +x_1152 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1152, 0, x_1151); +lean_ctor_set(x_1152, 1, x_1150); +x_1153 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__2; +x_1154 = lean_array_push(x_1153, x_1152); +x_1155 = lean_array_push(x_1154, x_1138); +x_1156 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__3; +x_1157 = lean_array_push(x_1155, x_1156); +x_1158 = l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; +x_1159 = lean_array_push(x_1157, x_1158); +x_1160 = lean_array_push(x_1136, x_113); +x_1161 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1161, 0, x_1151); +lean_ctor_set(x_1161, 1, x_1160); +x_1162 = lean_array_push(x_1136, x_1161); +x_1163 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1164 = lean_array_push(x_1162, x_1163); +x_1165 = lean_array_push(x_1164, x_654); +x_1166 = l_Lean_Parser_Term_matchAlt___closed__2; +x_1167 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1167, 0, x_1166); +lean_ctor_set(x_1167, 1, x_1165); +x_1168 = lean_array_push(x_1136, x_1167); +x_1169 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1169, 0, x_1151); +lean_ctor_set(x_1169, 1, x_1168); +x_1170 = lean_array_push(x_1159, x_1169); +x_1171 = l_Lean_Parser_Term_match___elambda__1___closed__2; +x_1172 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1172, 0, x_1171); +lean_ctor_set(x_1172, 1, x_1170); +x_1173 = lean_array_push(x_1136, x_1172); +x_1174 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1175 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1175, 0, x_1174); +lean_ctor_set(x_1175, 1, x_1173); +x_1176 = lean_array_push(x_1147, x_1175); x_1177 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1177, 0, x_1176); -lean_ctor_set(x_1177, 1, x_1175); -x_1178 = lean_nat_dec_eq(x_2, x_1150); -if (x_1178 == 0) +lean_ctor_set(x_1177, 0, x_1151); +lean_ctor_set(x_1177, 1, x_1176); +x_1178 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1179 = lean_array_push(x_1178, x_1177); +x_1180 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1181 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1181, 0, x_1180); +lean_ctor_set(x_1181, 1, x_1179); +x_1025 = x_1181; +x_1026 = x_1129; +goto block_1057; +} +block_1057: { -lean_object* x_1179; lean_object* x_1180; lean_object* x_1181; lean_object* x_1182; lean_object* x_1183; lean_object* x_1184; lean_object* x_1185; lean_object* x_1186; lean_object* x_1187; lean_object* x_1188; uint8_t x_1189; -lean_free_object(x_1167); -x_1179 = lean_nat_sub(x_2, x_1139); -lean_dec(x_2); -x_1180 = l_Array_extract___rarg(x_1, x_1150, x_1179); -lean_dec(x_1179); -lean_dec(x_1); -x_1181 = l_Lean_mkOptionalNode___closed__2; -x_1182 = lean_array_push(x_1181, x_1177); -x_1183 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_1184 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1184, 0, x_1183); -lean_ctor_set(x_1184, 1, x_1182); -x_1185 = lean_array_push(x_1180, x_1184); -x_1186 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_1169); +uint8_t x_1027; +x_1027 = lean_nat_dec_eq(x_3, x_112); +if (x_1027 == 0) +{ +lean_object* x_1028; lean_object* x_1029; lean_object* x_1030; lean_object* x_1031; lean_object* x_1032; lean_object* x_1033; lean_object* x_1034; lean_object* x_1035; lean_object* x_1036; lean_object* x_1037; lean_object* x_1038; lean_object* x_1039; lean_object* x_1040; lean_object* x_1041; lean_object* x_1042; lean_object* x_1043; lean_object* x_1044; lean_object* x_1045; lean_object* x_1046; lean_object* x_1047; lean_object* x_1048; lean_object* x_1049; lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; lean_object* x_1053; lean_object* x_1054; +lean_dec(x_53); +x_1028 = l_Array_extract___rarg(x_2, x_112, x_3); lean_dec(x_3); -x_1187 = lean_ctor_get(x_1186, 1); -lean_inc(x_1187); +lean_dec(x_2); +x_1029 = l_Lean_mkOptionalNode___closed__2; +x_1030 = lean_array_push(x_1029, x_1025); +x_1031 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1032 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1032, 0, x_1031); +lean_ctor_set(x_1032, 1, x_1030); +x_1033 = lean_array_push(x_1028, x_1032); +x_1034 = l_Lean_Elab_Term_getCurrMacroScope(x_1024, x_1026); +lean_dec(x_1024); +x_1035 = lean_ctor_get(x_1034, 1); +lean_inc(x_1035); +lean_dec(x_1034); +x_1036 = l_Lean_Elab_Term_getMainModule___rarg(x_1035); +x_1037 = lean_ctor_get(x_1036, 1); +lean_inc(x_1037); +if (lean_is_exclusive(x_1036)) { + lean_ctor_release(x_1036, 0); + lean_ctor_release(x_1036, 1); + x_1038 = x_1036; +} else { + lean_dec_ref(x_1036); + x_1038 = lean_box(0); +} +x_1039 = l_Array_empty___closed__1; +x_1040 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1033, x_1033, x_112, x_1039); +lean_dec(x_1033); +x_1041 = l_Lean_nullKind___closed__2; +x_1042 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1042, 0, x_1041); +lean_ctor_set(x_1042, 1, x_1040); +x_1043 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_1044 = lean_array_push(x_1043, x_1042); +x_1045 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_1046 = lean_array_push(x_1044, x_1045); +x_1047 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_1048 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1048, 0, x_1047); +lean_ctor_set(x_1048, 1, x_1046); +x_1049 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1050 = lean_array_push(x_1049, x_1048); +x_1051 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1052 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1052, 0, x_1051); +lean_ctor_set(x_1052, 1, x_1050); +x_1053 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1053, 0, x_1052); +if (lean_is_scalar(x_1038)) { + x_1054 = lean_alloc_ctor(0, 2, 0); +} else { + x_1054 = x_1038; +} +lean_ctor_set(x_1054, 0, x_1053); +lean_ctor_set(x_1054, 1, x_1037); +return x_1054; +} +else +{ +lean_object* x_1055; lean_object* x_1056; +lean_dec(x_1024); +lean_dec(x_3); +lean_dec(x_2); +x_1055 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1055, 0, x_1025); +if (lean_is_scalar(x_53)) { + x_1056 = lean_alloc_ctor(0, 2, 0); +} else { + x_1056 = x_53; +} +lean_ctor_set(x_1056, 0, x_1055); +lean_ctor_set(x_1056, 1, x_1026); +return x_1056; +} +} +} +} +} +} +else +{ +lean_object* x_1182; lean_object* x_1183; lean_object* x_1184; lean_object* x_1185; lean_object* x_1186; lean_object* x_1187; uint8_t x_1188; +lean_dec(x_54); +lean_dec(x_53); +x_1182 = lean_unsigned_to_nat(1u); +x_1183 = l_Lean_Syntax_getArg(x_49, x_1182); +lean_dec(x_49); +x_1184 = lean_unsigned_to_nat(2u); +x_1185 = lean_nat_add(x_3, x_1184); +x_1186 = l_Array_extract___rarg(x_2, x_1185, x_6); +lean_dec(x_6); +x_1187 = lean_array_get_size(x_1186); +x_1188 = lean_nat_dec_eq(x_1187, x_1182); +lean_dec(x_1187); +if (x_1188 == 0) +{ +lean_object* x_1189; lean_object* x_1190; lean_object* x_1191; lean_object* x_1192; lean_object* x_1193; lean_object* x_1194; lean_object* x_1195; lean_object* x_1196; lean_object* x_1197; lean_object* x_1198; lean_object* x_1199; lean_object* x_1200; lean_object* x_1201; lean_object* x_1202; lean_object* x_1203; lean_object* x_1204; lean_object* x_1205; lean_object* x_1206; lean_object* x_1207; lean_object* x_1208; lean_object* x_1209; lean_object* x_1210; uint8_t x_1211; +x_1189 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_52); +x_1190 = lean_ctor_get(x_1189, 1); +lean_inc(x_1190); +lean_dec(x_1189); +x_1191 = l_Lean_Elab_Term_getMainModule___rarg(x_1190); +x_1192 = lean_ctor_get(x_1191, 1); +lean_inc(x_1192); +lean_dec(x_1191); +x_1193 = lean_unsigned_to_nat(0u); +x_1194 = l_Array_empty___closed__1; +x_1195 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1186, x_1186, x_1193, x_1194); lean_dec(x_1186); -x_1188 = l_Lean_Elab_Term_getMainModule___rarg(x_1187); -x_1189 = !lean_is_exclusive(x_1188); -if (x_1189 == 0) -{ -lean_object* x_1190; lean_object* x_1191; lean_object* x_1192; lean_object* x_1193; lean_object* x_1194; lean_object* x_1195; lean_object* x_1196; lean_object* x_1197; lean_object* x_1198; -x_1190 = lean_ctor_get(x_1188, 0); -lean_dec(x_1190); -x_1191 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1185, x_1185, x_1150, x_1151); -lean_dec(x_1185); -x_1192 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1192, 0, x_1153); -lean_ctor_set(x_1192, 1, x_1191); -x_1193 = lean_array_push(x_1155, x_1192); -x_1194 = lean_array_push(x_1193, x_1157); -x_1195 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1195, 0, x_1159); -lean_ctor_set(x_1195, 1, x_1194); -x_1196 = lean_array_push(x_1161, x_1195); +x_1196 = l_Lean_nullKind___closed__2; x_1197 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1197, 0, x_1163); -lean_ctor_set(x_1197, 1, x_1196); -x_1198 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1198, 0, x_1197); -lean_ctor_set(x_1188, 0, x_1198); -return x_1188; -} -else -{ -lean_object* x_1199; lean_object* x_1200; lean_object* x_1201; lean_object* x_1202; lean_object* x_1203; lean_object* x_1204; lean_object* x_1205; lean_object* x_1206; lean_object* x_1207; lean_object* x_1208; -x_1199 = lean_ctor_get(x_1188, 1); -lean_inc(x_1199); -lean_dec(x_1188); -x_1200 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1185, x_1185, x_1150, x_1151); -lean_dec(x_1185); -x_1201 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1201, 0, x_1153); -lean_ctor_set(x_1201, 1, x_1200); -x_1202 = lean_array_push(x_1155, x_1201); -x_1203 = lean_array_push(x_1202, x_1157); -x_1204 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1204, 0, x_1159); -lean_ctor_set(x_1204, 1, x_1203); -x_1205 = lean_array_push(x_1161, x_1204); -x_1206 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1206, 0, x_1163); -lean_ctor_set(x_1206, 1, x_1205); -x_1207 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1197, 0, x_1196); +lean_ctor_set(x_1197, 1, x_1195); +x_1198 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_1199 = lean_array_push(x_1198, x_1197); +x_1200 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_1201 = lean_array_push(x_1199, x_1200); +x_1202 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_1203 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1203, 0, x_1202); +lean_ctor_set(x_1203, 1, x_1201); +x_1204 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1205 = lean_array_push(x_1204, x_1203); +x_1206 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1207 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1207, 0, x_1206); -x_1208 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1208, 0, x_1207); -lean_ctor_set(x_1208, 1, x_1199); -return x_1208; -} -} -else +lean_ctor_set(x_1207, 1, x_1205); +x_1208 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1192); +x_1209 = lean_ctor_get(x_1208, 1); +lean_inc(x_1209); +lean_dec(x_1208); +x_1210 = l_Lean_Elab_Term_getMainModule___rarg(x_1209); +x_1211 = !lean_is_exclusive(x_1210); +if (x_1211 == 0) { -lean_object* x_1209; +lean_object* x_1212; lean_object* x_1213; lean_object* x_1214; lean_object* x_1215; lean_object* x_1216; lean_object* x_1217; lean_object* x_1218; lean_object* x_1219; lean_object* x_1220; uint8_t x_1221; +x_1212 = lean_ctor_get(x_1210, 1); +x_1213 = lean_ctor_get(x_1210, 0); +lean_dec(x_1213); +x_1214 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; +x_1215 = lean_array_push(x_1214, x_1183); +x_1216 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_1217 = lean_array_push(x_1215, x_1216); +x_1218 = lean_array_push(x_1217, x_1207); +x_1219 = l_Lean_Parser_Term_let___elambda__1___closed__2; +x_1220 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1220, 0, x_1219); +lean_ctor_set(x_1220, 1, x_1218); +x_1221 = lean_nat_dec_eq(x_3, x_1193); +if (x_1221 == 0) +{ +lean_object* x_1222; lean_object* x_1223; lean_object* x_1224; lean_object* x_1225; lean_object* x_1226; lean_object* x_1227; lean_object* x_1228; lean_object* x_1229; lean_object* x_1230; uint8_t x_1231; +lean_free_object(x_1210); +x_1222 = l_Array_extract___rarg(x_2, x_1193, x_3); lean_dec(x_3); lean_dec(x_2); -lean_dec(x_1); -x_1209 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1209, 0, x_1177); -lean_ctor_set(x_1167, 0, x_1209); -return x_1167; -} -} -else -{ -lean_object* x_1210; lean_object* x_1211; lean_object* x_1212; lean_object* x_1213; lean_object* x_1214; lean_object* x_1215; lean_object* x_1216; lean_object* x_1217; uint8_t x_1218; -x_1210 = lean_ctor_get(x_1167, 1); -lean_inc(x_1210); -lean_dec(x_1167); -x_1211 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; -x_1212 = lean_array_push(x_1211, x_1140); -x_1213 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_1214 = lean_array_push(x_1212, x_1213); -x_1215 = lean_array_push(x_1214, x_1164); -x_1216 = l_Lean_Parser_Term_let___elambda__1___closed__2; -x_1217 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1217, 0, x_1216); -lean_ctor_set(x_1217, 1, x_1215); -x_1218 = lean_nat_dec_eq(x_2, x_1150); -if (x_1218 == 0) -{ -lean_object* x_1219; lean_object* x_1220; lean_object* x_1221; lean_object* x_1222; lean_object* x_1223; lean_object* x_1224; lean_object* x_1225; lean_object* x_1226; lean_object* x_1227; lean_object* x_1228; lean_object* x_1229; lean_object* x_1230; lean_object* x_1231; lean_object* x_1232; lean_object* x_1233; lean_object* x_1234; lean_object* x_1235; lean_object* x_1236; lean_object* x_1237; lean_object* x_1238; lean_object* x_1239; -x_1219 = lean_nat_sub(x_2, x_1139); -lean_dec(x_2); -x_1220 = l_Array_extract___rarg(x_1, x_1150, x_1219); -lean_dec(x_1219); -lean_dec(x_1); -x_1221 = l_Lean_mkOptionalNode___closed__2; -x_1222 = lean_array_push(x_1221, x_1217); -x_1223 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_1224 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1224, 0, x_1223); -lean_ctor_set(x_1224, 1, x_1222); -x_1225 = lean_array_push(x_1220, x_1224); -x_1226 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_1210); -lean_dec(x_3); -x_1227 = lean_ctor_get(x_1226, 1); -lean_inc(x_1227); -lean_dec(x_1226); -x_1228 = l_Lean_Elab_Term_getMainModule___rarg(x_1227); +x_1223 = l_Lean_mkOptionalNode___closed__2; +x_1224 = lean_array_push(x_1223, x_1220); +x_1225 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1226 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1226, 0, x_1225); +lean_ctor_set(x_1226, 1, x_1224); +x_1227 = lean_array_push(x_1222, x_1226); +x_1228 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1212); +lean_dec(x_4); x_1229 = lean_ctor_get(x_1228, 1); lean_inc(x_1229); -if (lean_is_exclusive(x_1228)) { - lean_ctor_release(x_1228, 0); - lean_ctor_release(x_1228, 1); - x_1230 = x_1228; -} else { - lean_dec_ref(x_1228); - x_1230 = lean_box(0); -} -x_1231 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1225, x_1225, x_1150, x_1151); -lean_dec(x_1225); -x_1232 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1232, 0, x_1153); -lean_ctor_set(x_1232, 1, x_1231); -x_1233 = lean_array_push(x_1155, x_1232); -x_1234 = lean_array_push(x_1233, x_1157); -x_1235 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1235, 0, x_1159); -lean_ctor_set(x_1235, 1, x_1234); -x_1236 = lean_array_push(x_1161, x_1235); +lean_dec(x_1228); +x_1230 = l_Lean_Elab_Term_getMainModule___rarg(x_1229); +x_1231 = !lean_is_exclusive(x_1230); +if (x_1231 == 0) +{ +lean_object* x_1232; lean_object* x_1233; lean_object* x_1234; lean_object* x_1235; lean_object* x_1236; lean_object* x_1237; lean_object* x_1238; lean_object* x_1239; lean_object* x_1240; +x_1232 = lean_ctor_get(x_1230, 0); +lean_dec(x_1232); +x_1233 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1227, x_1227, x_1193, x_1194); +lean_dec(x_1227); +x_1234 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1234, 0, x_1196); +lean_ctor_set(x_1234, 1, x_1233); +x_1235 = lean_array_push(x_1198, x_1234); +x_1236 = lean_array_push(x_1235, x_1200); x_1237 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1237, 0, x_1163); +lean_ctor_set(x_1237, 0, x_1202); lean_ctor_set(x_1237, 1, x_1236); -x_1238 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1238, 0, x_1237); -if (lean_is_scalar(x_1230)) { - x_1239 = lean_alloc_ctor(0, 2, 0); -} else { - x_1239 = x_1230; -} -lean_ctor_set(x_1239, 0, x_1238); -lean_ctor_set(x_1239, 1, x_1229); -return x_1239; -} -else -{ -lean_object* x_1240; lean_object* x_1241; -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); +x_1238 = lean_array_push(x_1204, x_1237); +x_1239 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1239, 0, x_1206); +lean_ctor_set(x_1239, 1, x_1238); x_1240 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1240, 0, x_1217); -x_1241 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1241, 0, x_1240); -lean_ctor_set(x_1241, 1, x_1210); -return x_1241; +lean_ctor_set(x_1240, 0, x_1239); +lean_ctor_set(x_1230, 0, x_1240); +return x_1230; } +else +{ +lean_object* x_1241; lean_object* x_1242; lean_object* x_1243; lean_object* x_1244; lean_object* x_1245; lean_object* x_1246; lean_object* x_1247; lean_object* x_1248; lean_object* x_1249; lean_object* x_1250; +x_1241 = lean_ctor_get(x_1230, 1); +lean_inc(x_1241); +lean_dec(x_1230); +x_1242 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1227, x_1227, x_1193, x_1194); +lean_dec(x_1227); +x_1243 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1243, 0, x_1196); +lean_ctor_set(x_1243, 1, x_1242); +x_1244 = lean_array_push(x_1198, x_1243); +x_1245 = lean_array_push(x_1244, x_1200); +x_1246 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1246, 0, x_1202); +lean_ctor_set(x_1246, 1, x_1245); +x_1247 = lean_array_push(x_1204, x_1246); +x_1248 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1248, 0, x_1206); +lean_ctor_set(x_1248, 1, x_1247); +x_1249 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1249, 0, x_1248); +x_1250 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1250, 0, x_1249); +lean_ctor_set(x_1250, 1, x_1241); +return x_1250; } } else { -lean_object* x_1242; lean_object* x_1243; lean_object* x_1244; lean_object* x_1245; lean_object* x_1246; lean_object* x_1247; uint8_t x_1248; -x_1242 = l_Lean_Syntax_inhabited; -x_1243 = lean_unsigned_to_nat(0u); -x_1244 = lean_array_get(x_1242, x_1143, x_1243); -lean_dec(x_1143); -x_1245 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_1246 = lean_ctor_get(x_1245, 1); -lean_inc(x_1246); -lean_dec(x_1245); -x_1247 = l_Lean_Elab_Term_getMainModule___rarg(x_1246); -x_1248 = !lean_is_exclusive(x_1247); -if (x_1248 == 0) -{ -lean_object* x_1249; lean_object* x_1250; lean_object* x_1251; lean_object* x_1252; lean_object* x_1253; lean_object* x_1254; lean_object* x_1255; lean_object* x_1256; lean_object* x_1257; uint8_t x_1258; -x_1249 = lean_ctor_get(x_1247, 1); -x_1250 = lean_ctor_get(x_1247, 0); -lean_dec(x_1250); -x_1251 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; -x_1252 = lean_array_push(x_1251, x_1140); -x_1253 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_1254 = lean_array_push(x_1252, x_1253); -x_1255 = lean_array_push(x_1254, x_1244); -x_1256 = l_Lean_Parser_Term_let___elambda__1___closed__2; -x_1257 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1257, 0, x_1256); -lean_ctor_set(x_1257, 1, x_1255); -x_1258 = lean_nat_dec_eq(x_2, x_1243); -if (x_1258 == 0) -{ -lean_object* x_1259; lean_object* x_1260; lean_object* x_1261; lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; lean_object* x_1265; lean_object* x_1266; lean_object* x_1267; lean_object* x_1268; uint8_t x_1269; -lean_free_object(x_1247); -x_1259 = lean_nat_sub(x_2, x_1139); -lean_dec(x_2); -x_1260 = l_Array_extract___rarg(x_1, x_1243, x_1259); -lean_dec(x_1259); -lean_dec(x_1); -x_1261 = l_Lean_mkOptionalNode___closed__2; -x_1262 = lean_array_push(x_1261, x_1257); -x_1263 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_1264 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1264, 0, x_1263); -lean_ctor_set(x_1264, 1, x_1262); -x_1265 = lean_array_push(x_1260, x_1264); -x_1266 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_1249); -lean_dec(x_3); -x_1267 = lean_ctor_get(x_1266, 1); -lean_inc(x_1267); -lean_dec(x_1266); -x_1268 = l_Lean_Elab_Term_getMainModule___rarg(x_1267); -x_1269 = !lean_is_exclusive(x_1268); -if (x_1269 == 0) -{ -lean_object* x_1270; lean_object* x_1271; lean_object* x_1272; lean_object* x_1273; lean_object* x_1274; lean_object* x_1275; lean_object* x_1276; lean_object* x_1277; lean_object* x_1278; lean_object* x_1279; lean_object* x_1280; lean_object* x_1281; lean_object* x_1282; lean_object* x_1283; lean_object* x_1284; lean_object* x_1285; -x_1270 = lean_ctor_get(x_1268, 0); -lean_dec(x_1270); -x_1271 = l_Array_empty___closed__1; -x_1272 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1265, x_1265, x_1243, x_1271); -lean_dec(x_1265); -x_1273 = l_Lean_nullKind___closed__2; -x_1274 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1274, 0, x_1273); -lean_ctor_set(x_1274, 1, x_1272); -x_1275 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_1276 = lean_array_push(x_1275, x_1274); -x_1277 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_1278 = lean_array_push(x_1276, x_1277); -x_1279 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_1280 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1280, 0, x_1279); -lean_ctor_set(x_1280, 1, x_1278); -x_1281 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1282 = lean_array_push(x_1281, x_1280); -x_1283 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_1284 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1284, 0, x_1283); -lean_ctor_set(x_1284, 1, x_1282); -x_1285 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1285, 0, x_1284); -lean_ctor_set(x_1268, 0, x_1285); -return x_1268; -} -else -{ -lean_object* x_1286; lean_object* x_1287; lean_object* x_1288; lean_object* x_1289; lean_object* x_1290; lean_object* x_1291; lean_object* x_1292; lean_object* x_1293; lean_object* x_1294; lean_object* x_1295; lean_object* x_1296; lean_object* x_1297; lean_object* x_1298; lean_object* x_1299; lean_object* x_1300; lean_object* x_1301; lean_object* x_1302; -x_1286 = lean_ctor_get(x_1268, 1); -lean_inc(x_1286); -lean_dec(x_1268); -x_1287 = l_Array_empty___closed__1; -x_1288 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1265, x_1265, x_1243, x_1287); -lean_dec(x_1265); -x_1289 = l_Lean_nullKind___closed__2; -x_1290 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1290, 0, x_1289); -lean_ctor_set(x_1290, 1, x_1288); -x_1291 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_1292 = lean_array_push(x_1291, x_1290); -x_1293 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_1294 = lean_array_push(x_1292, x_1293); -x_1295 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_1296 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1296, 0, x_1295); -lean_ctor_set(x_1296, 1, x_1294); -x_1297 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1298 = lean_array_push(x_1297, x_1296); -x_1299 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_1300 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1300, 0, x_1299); -lean_ctor_set(x_1300, 1, x_1298); -x_1301 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1301, 0, x_1300); -x_1302 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1302, 0, x_1301); -lean_ctor_set(x_1302, 1, x_1286); -return x_1302; -} -} -else -{ -lean_object* x_1303; -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_1303 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1303, 0, x_1257); -lean_ctor_set(x_1247, 0, x_1303); -return x_1247; -} -} -else -{ -lean_object* x_1304; lean_object* x_1305; lean_object* x_1306; lean_object* x_1307; lean_object* x_1308; lean_object* x_1309; lean_object* x_1310; lean_object* x_1311; uint8_t x_1312; -x_1304 = lean_ctor_get(x_1247, 1); -lean_inc(x_1304); -lean_dec(x_1247); -x_1305 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; -x_1306 = lean_array_push(x_1305, x_1140); -x_1307 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; -x_1308 = lean_array_push(x_1306, x_1307); -x_1309 = lean_array_push(x_1308, x_1244); -x_1310 = l_Lean_Parser_Term_let___elambda__1___closed__2; -x_1311 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1311, 0, x_1310); -lean_ctor_set(x_1311, 1, x_1309); -x_1312 = lean_nat_dec_eq(x_2, x_1243); -if (x_1312 == 0) -{ -lean_object* x_1313; lean_object* x_1314; lean_object* x_1315; lean_object* x_1316; lean_object* x_1317; lean_object* x_1318; lean_object* x_1319; lean_object* x_1320; lean_object* x_1321; lean_object* x_1322; lean_object* x_1323; lean_object* x_1324; lean_object* x_1325; lean_object* x_1326; lean_object* x_1327; lean_object* x_1328; lean_object* x_1329; lean_object* x_1330; lean_object* x_1331; lean_object* x_1332; lean_object* x_1333; lean_object* x_1334; lean_object* x_1335; lean_object* x_1336; lean_object* x_1337; lean_object* x_1338; lean_object* x_1339; lean_object* x_1340; -x_1313 = lean_nat_sub(x_2, x_1139); -lean_dec(x_2); -x_1314 = l_Array_extract___rarg(x_1, x_1243, x_1313); -lean_dec(x_1313); -lean_dec(x_1); -x_1315 = l_Lean_mkOptionalNode___closed__2; -x_1316 = lean_array_push(x_1315, x_1311); -x_1317 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -x_1318 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1318, 0, x_1317); -lean_ctor_set(x_1318, 1, x_1316); -x_1319 = lean_array_push(x_1314, x_1318); -x_1320 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_1304); -lean_dec(x_3); -x_1321 = lean_ctor_get(x_1320, 1); -lean_inc(x_1321); -lean_dec(x_1320); -x_1322 = l_Lean_Elab_Term_getMainModule___rarg(x_1321); -x_1323 = lean_ctor_get(x_1322, 1); -lean_inc(x_1323); -if (lean_is_exclusive(x_1322)) { - lean_ctor_release(x_1322, 0); - lean_ctor_release(x_1322, 1); - x_1324 = x_1322; -} else { - lean_dec_ref(x_1322); - x_1324 = lean_box(0); -} -x_1325 = l_Array_empty___closed__1; -x_1326 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1319, x_1319, x_1243, x_1325); -lean_dec(x_1319); -x_1327 = l_Lean_nullKind___closed__2; -x_1328 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1328, 0, x_1327); -lean_ctor_set(x_1328, 1, x_1326); -x_1329 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8; -x_1330 = lean_array_push(x_1329, x_1328); -x_1331 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9; -x_1332 = lean_array_push(x_1330, x_1331); -x_1333 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; -x_1334 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1334, 0, x_1333); -lean_ctor_set(x_1334, 1, x_1332); -x_1335 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2; -x_1336 = lean_array_push(x_1335, x_1334); -x_1337 = l_Lean_Parser_Term_do___elambda__1___closed__2; -x_1338 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1338, 0, x_1337); -lean_ctor_set(x_1338, 1, x_1336); -x_1339 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1339, 0, x_1338); -if (lean_is_scalar(x_1324)) { - x_1340 = lean_alloc_ctor(0, 2, 0); -} else { - x_1340 = x_1324; -} -lean_ctor_set(x_1340, 0, x_1339); -lean_ctor_set(x_1340, 1, x_1323); -return x_1340; -} -else -{ -lean_object* x_1341; lean_object* x_1342; -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_1341 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_1341, 0, x_1311); -x_1342 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1342, 0, x_1341); -lean_ctor_set(x_1342, 1, x_1304); -return x_1342; -} -} -} -} -} -} -} -lean_object* l___private_Init_Lean_Elab_DoNotation_4__expandDoElems(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -lean_object* x_5; -x_5 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main(x_1, x_2, x_3, x_4); -return x_5; -} -} -lean_object* l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2(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_String_splitAux___main___closed__1; -return x_3; -} -else -{ -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; -x_4 = lean_ctor_get(x_2, 0); -lean_inc(x_4); -x_5 = lean_ctor_get(x_2, 1); -lean_inc(x_5); -lean_dec(x_2); -x_6 = lean_box(0); -x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Lean_Syntax_formatStxAux___main(x_6, x_7, x_4); -x_9 = l_Lean_Options_empty; -x_10 = l_Lean_Format_pretty(x_8, x_9); -x_11 = l_List_reprAux___main___rarg___closed__1; -x_12 = lean_string_append(x_11, x_10); -lean_dec(x_10); -x_13 = l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2(x_1, x_5); -x_14 = lean_string_append(x_12, x_13); -lean_dec(x_13); -return x_14; -} -} -else -{ -if (lean_obj_tag(x_2) == 0) -{ -lean_object* x_15; -x_15 = l_String_splitAux___main___closed__1; -return x_15; -} -else -{ -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; lean_object* x_24; lean_object* x_25; -x_16 = lean_ctor_get(x_2, 0); -lean_inc(x_16); -x_17 = lean_ctor_get(x_2, 1); -lean_inc(x_17); -lean_dec(x_2); -x_18 = lean_box(0); -x_19 = lean_unsigned_to_nat(0u); -x_20 = l_Lean_Syntax_formatStxAux___main(x_18, x_19, x_16); -x_21 = l_Lean_Options_empty; -x_22 = l_Lean_Format_pretty(x_20, x_21); -x_23 = 0; -x_24 = l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2(x_23, x_17); -x_25 = lean_string_append(x_22, x_24); -lean_dec(x_24); -return x_25; -} -} -} -} -lean_object* l_List_toString___at_Lean_Elab_Term_elabDo___spec__1(lean_object* x_1) { -_start: -{ -if (lean_obj_tag(x_1) == 0) -{ -lean_object* x_2; -x_2 = l_List_repr___rarg___closed__1; -return x_2; -} -else -{ -uint8_t x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; -x_3 = 1; -x_4 = l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2(x_3, x_1); -x_5 = l_List_repr___rarg___closed__2; -x_6 = lean_string_append(x_5, x_4); +lean_object* x_1251; lean_dec(x_4); -x_7 = l_List_repr___rarg___closed__3; -x_8 = lean_string_append(x_6, x_7); +lean_dec(x_3); +lean_dec(x_2); +x_1251 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1251, 0, x_1220); +lean_ctor_set(x_1210, 0, x_1251); +return x_1210; +} +} +else +{ +lean_object* x_1252; lean_object* x_1253; lean_object* x_1254; lean_object* x_1255; lean_object* x_1256; lean_object* x_1257; lean_object* x_1258; lean_object* x_1259; uint8_t x_1260; +x_1252 = lean_ctor_get(x_1210, 1); +lean_inc(x_1252); +lean_dec(x_1210); +x_1253 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; +x_1254 = lean_array_push(x_1253, x_1183); +x_1255 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_1256 = lean_array_push(x_1254, x_1255); +x_1257 = lean_array_push(x_1256, x_1207); +x_1258 = l_Lean_Parser_Term_let___elambda__1___closed__2; +x_1259 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1259, 0, x_1258); +lean_ctor_set(x_1259, 1, x_1257); +x_1260 = lean_nat_dec_eq(x_3, x_1193); +if (x_1260 == 0) +{ +lean_object* x_1261; lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; lean_object* x_1265; lean_object* x_1266; lean_object* x_1267; lean_object* x_1268; lean_object* x_1269; lean_object* x_1270; lean_object* x_1271; lean_object* x_1272; lean_object* x_1273; lean_object* x_1274; lean_object* x_1275; lean_object* x_1276; lean_object* x_1277; lean_object* x_1278; lean_object* x_1279; lean_object* x_1280; +x_1261 = l_Array_extract___rarg(x_2, x_1193, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_1262 = l_Lean_mkOptionalNode___closed__2; +x_1263 = lean_array_push(x_1262, x_1259); +x_1264 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1265 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1265, 0, x_1264); +lean_ctor_set(x_1265, 1, x_1263); +x_1266 = lean_array_push(x_1261, x_1265); +x_1267 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1252); +lean_dec(x_4); +x_1268 = lean_ctor_get(x_1267, 1); +lean_inc(x_1268); +lean_dec(x_1267); +x_1269 = l_Lean_Elab_Term_getMainModule___rarg(x_1268); +x_1270 = lean_ctor_get(x_1269, 1); +lean_inc(x_1270); +if (lean_is_exclusive(x_1269)) { + lean_ctor_release(x_1269, 0); + lean_ctor_release(x_1269, 1); + x_1271 = x_1269; +} else { + lean_dec_ref(x_1269); + x_1271 = lean_box(0); +} +x_1272 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1266, x_1266, x_1193, x_1194); +lean_dec(x_1266); +x_1273 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1273, 0, x_1196); +lean_ctor_set(x_1273, 1, x_1272); +x_1274 = lean_array_push(x_1198, x_1273); +x_1275 = lean_array_push(x_1274, x_1200); +x_1276 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1276, 0, x_1202); +lean_ctor_set(x_1276, 1, x_1275); +x_1277 = lean_array_push(x_1204, x_1276); +x_1278 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1278, 0, x_1206); +lean_ctor_set(x_1278, 1, x_1277); +x_1279 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1279, 0, x_1278); +if (lean_is_scalar(x_1271)) { + x_1280 = lean_alloc_ctor(0, 2, 0); +} else { + x_1280 = x_1271; +} +lean_ctor_set(x_1280, 0, x_1279); +lean_ctor_set(x_1280, 1, x_1270); +return x_1280; +} +else +{ +lean_object* x_1281; lean_object* x_1282; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_1281 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1281, 0, x_1259); +x_1282 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1282, 0, x_1281); +lean_ctor_set(x_1282, 1, x_1252); +return x_1282; +} +} +} +else +{ +lean_object* x_1283; lean_object* x_1284; lean_object* x_1285; lean_object* x_1286; lean_object* x_1287; lean_object* x_1288; lean_object* x_1289; uint8_t x_1290; +x_1283 = l_Lean_Syntax_inhabited; +x_1284 = lean_unsigned_to_nat(0u); +x_1285 = lean_array_get(x_1283, x_1186, x_1284); +lean_dec(x_1186); +x_1286 = l_Lean_Syntax_getArg(x_1285, x_1284); +lean_dec(x_1285); +x_1287 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_52); +x_1288 = lean_ctor_get(x_1287, 1); +lean_inc(x_1288); +lean_dec(x_1287); +x_1289 = l_Lean_Elab_Term_getMainModule___rarg(x_1288); +x_1290 = !lean_is_exclusive(x_1289); +if (x_1290 == 0) +{ +lean_object* x_1291; lean_object* x_1292; lean_object* x_1293; lean_object* x_1294; lean_object* x_1295; lean_object* x_1296; lean_object* x_1297; lean_object* x_1298; lean_object* x_1299; uint8_t x_1300; +x_1291 = lean_ctor_get(x_1289, 1); +x_1292 = lean_ctor_get(x_1289, 0); +lean_dec(x_1292); +x_1293 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; +x_1294 = lean_array_push(x_1293, x_1183); +x_1295 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_1296 = lean_array_push(x_1294, x_1295); +x_1297 = lean_array_push(x_1296, x_1286); +x_1298 = l_Lean_Parser_Term_let___elambda__1___closed__2; +x_1299 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1299, 0, x_1298); +lean_ctor_set(x_1299, 1, x_1297); +x_1300 = lean_nat_dec_eq(x_3, x_1284); +if (x_1300 == 0) +{ +lean_object* x_1301; lean_object* x_1302; lean_object* x_1303; lean_object* x_1304; lean_object* x_1305; lean_object* x_1306; lean_object* x_1307; lean_object* x_1308; lean_object* x_1309; uint8_t x_1310; +lean_free_object(x_1289); +x_1301 = l_Array_extract___rarg(x_2, x_1284, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_1302 = l_Lean_mkOptionalNode___closed__2; +x_1303 = lean_array_push(x_1302, x_1299); +x_1304 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1305 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1305, 0, x_1304); +lean_ctor_set(x_1305, 1, x_1303); +x_1306 = lean_array_push(x_1301, x_1305); +x_1307 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1291); +lean_dec(x_4); +x_1308 = lean_ctor_get(x_1307, 1); +lean_inc(x_1308); +lean_dec(x_1307); +x_1309 = l_Lean_Elab_Term_getMainModule___rarg(x_1308); +x_1310 = !lean_is_exclusive(x_1309); +if (x_1310 == 0) +{ +lean_object* x_1311; lean_object* x_1312; lean_object* x_1313; lean_object* x_1314; lean_object* x_1315; lean_object* x_1316; lean_object* x_1317; lean_object* x_1318; lean_object* x_1319; lean_object* x_1320; lean_object* x_1321; lean_object* x_1322; lean_object* x_1323; lean_object* x_1324; lean_object* x_1325; lean_object* x_1326; +x_1311 = lean_ctor_get(x_1309, 0); +lean_dec(x_1311); +x_1312 = l_Array_empty___closed__1; +x_1313 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1306, x_1306, x_1284, x_1312); +lean_dec(x_1306); +x_1314 = l_Lean_nullKind___closed__2; +x_1315 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1315, 0, x_1314); +lean_ctor_set(x_1315, 1, x_1313); +x_1316 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_1317 = lean_array_push(x_1316, x_1315); +x_1318 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_1319 = lean_array_push(x_1317, x_1318); +x_1320 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_1321 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1321, 0, x_1320); +lean_ctor_set(x_1321, 1, x_1319); +x_1322 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1323 = lean_array_push(x_1322, x_1321); +x_1324 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1325 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1325, 0, x_1324); +lean_ctor_set(x_1325, 1, x_1323); +x_1326 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1326, 0, x_1325); +lean_ctor_set(x_1309, 0, x_1326); +return x_1309; +} +else +{ +lean_object* x_1327; lean_object* x_1328; lean_object* x_1329; lean_object* x_1330; lean_object* x_1331; lean_object* x_1332; lean_object* x_1333; lean_object* x_1334; lean_object* x_1335; lean_object* x_1336; lean_object* x_1337; lean_object* x_1338; lean_object* x_1339; lean_object* x_1340; lean_object* x_1341; lean_object* x_1342; lean_object* x_1343; +x_1327 = lean_ctor_get(x_1309, 1); +lean_inc(x_1327); +lean_dec(x_1309); +x_1328 = l_Array_empty___closed__1; +x_1329 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1306, x_1306, x_1284, x_1328); +lean_dec(x_1306); +x_1330 = l_Lean_nullKind___closed__2; +x_1331 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1331, 0, x_1330); +lean_ctor_set(x_1331, 1, x_1329); +x_1332 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_1333 = lean_array_push(x_1332, x_1331); +x_1334 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_1335 = lean_array_push(x_1333, x_1334); +x_1336 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_1337 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1337, 0, x_1336); +lean_ctor_set(x_1337, 1, x_1335); +x_1338 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1339 = lean_array_push(x_1338, x_1337); +x_1340 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1341 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1341, 0, x_1340); +lean_ctor_set(x_1341, 1, x_1339); +x_1342 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1342, 0, x_1341); +x_1343 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1343, 0, x_1342); +lean_ctor_set(x_1343, 1, x_1327); +return x_1343; +} +} +else +{ +lean_object* x_1344; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_1344 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1344, 0, x_1299); +lean_ctor_set(x_1289, 0, x_1344); +return x_1289; +} +} +else +{ +lean_object* x_1345; lean_object* x_1346; lean_object* x_1347; lean_object* x_1348; lean_object* x_1349; lean_object* x_1350; lean_object* x_1351; lean_object* x_1352; uint8_t x_1353; +x_1345 = lean_ctor_get(x_1289, 1); +lean_inc(x_1345); +lean_dec(x_1289); +x_1346 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__2; +x_1347 = lean_array_push(x_1346, x_1183); +x_1348 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__10; +x_1349 = lean_array_push(x_1347, x_1348); +x_1350 = lean_array_push(x_1349, x_1286); +x_1351 = l_Lean_Parser_Term_let___elambda__1___closed__2; +x_1352 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1352, 0, x_1351); +lean_ctor_set(x_1352, 1, x_1350); +x_1353 = lean_nat_dec_eq(x_3, x_1284); +if (x_1353 == 0) +{ +lean_object* x_1354; lean_object* x_1355; lean_object* x_1356; lean_object* x_1357; lean_object* x_1358; lean_object* x_1359; lean_object* x_1360; lean_object* x_1361; lean_object* x_1362; lean_object* x_1363; lean_object* x_1364; lean_object* x_1365; lean_object* x_1366; lean_object* x_1367; lean_object* x_1368; lean_object* x_1369; lean_object* x_1370; lean_object* x_1371; lean_object* x_1372; lean_object* x_1373; lean_object* x_1374; lean_object* x_1375; lean_object* x_1376; lean_object* x_1377; lean_object* x_1378; lean_object* x_1379; lean_object* x_1380; +x_1354 = l_Array_extract___rarg(x_2, x_1284, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_1355 = l_Lean_mkOptionalNode___closed__2; +x_1356 = lean_array_push(x_1355, x_1352); +x_1357 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_1358 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1358, 0, x_1357); +lean_ctor_set(x_1358, 1, x_1356); +x_1359 = lean_array_push(x_1354, x_1358); +x_1360 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1345); +lean_dec(x_4); +x_1361 = lean_ctor_get(x_1360, 1); +lean_inc(x_1361); +lean_dec(x_1360); +x_1362 = l_Lean_Elab_Term_getMainModule___rarg(x_1361); +x_1363 = lean_ctor_get(x_1362, 1); +lean_inc(x_1363); +if (lean_is_exclusive(x_1362)) { + lean_ctor_release(x_1362, 0); + lean_ctor_release(x_1362, 1); + x_1364 = x_1362; +} else { + lean_dec_ref(x_1362); + x_1364 = lean_box(0); +} +x_1365 = l_Array_empty___closed__1; +x_1366 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1359, x_1359, x_1284, x_1365); +lean_dec(x_1359); +x_1367 = l_Lean_nullKind___closed__2; +x_1368 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1368, 0, x_1367); +lean_ctor_set(x_1368, 1, x_1366); +x_1369 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2; +x_1370 = lean_array_push(x_1369, x_1368); +x_1371 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3; +x_1372 = lean_array_push(x_1370, x_1371); +x_1373 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__2; +x_1374 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1374, 0, x_1373); +lean_ctor_set(x_1374, 1, x_1372); +x_1375 = l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2; +x_1376 = lean_array_push(x_1375, x_1374); +x_1377 = l_Lean_Parser_Term_do___elambda__1___closed__2; +x_1378 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1378, 0, x_1377); +lean_ctor_set(x_1378, 1, x_1376); +x_1379 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1379, 0, x_1378); +if (lean_is_scalar(x_1364)) { + x_1380 = lean_alloc_ctor(0, 2, 0); +} else { + x_1380 = x_1364; +} +lean_ctor_set(x_1380, 0, x_1379); +lean_ctor_set(x_1380, 1, x_1363); +return x_1380; +} +else +{ +lean_object* x_1381; lean_object* x_1382; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_1381 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_1381, 0, x_1352); +x_1382 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1382, 0, x_1381); +lean_ctor_set(x_1382, 1, x_1345); +return x_1382; +} +} +} +} +} +else +{ +lean_object* x_1383; lean_object* x_1384; lean_object* x_1385; lean_object* x_1386; lean_object* x_1387; lean_object* x_1388; lean_object* x_1389; lean_object* x_1390; lean_object* x_1391; lean_object* x_1392; lean_object* x_1393; lean_object* x_1394; lean_object* x_1395; uint8_t x_1396; +lean_dec(x_49); +x_1383 = lean_ctor_get(x_50, 1); +lean_inc(x_1383); +lean_dec(x_50); +x_1384 = lean_ctor_get(x_51, 0); +lean_inc(x_1384); +lean_dec(x_51); +x_1385 = lean_unsigned_to_nat(1u); +x_1386 = lean_nat_add(x_3, x_1385); +x_1387 = l_Array_extract___rarg(x_2, x_1386, x_6); +lean_dec(x_6); +x_1388 = lean_unsigned_to_nat(0u); +x_1389 = l_Array_extract___rarg(x_2, x_1388, x_3); +lean_dec(x_2); +x_1390 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1384, x_1384, x_1388, x_1389); +lean_dec(x_1384); +x_1391 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_1387, x_1387, x_1388, x_1390); +lean_dec(x_1387); +x_1392 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1383); +x_1393 = lean_ctor_get(x_1392, 1); +lean_inc(x_1393); +lean_dec(x_1392); +x_1394 = l_Lean_Elab_Term_getMainModule___rarg(x_1393); +x_1395 = lean_ctor_get(x_1394, 1); +lean_inc(x_1395); +lean_dec(x_1394); +x_1396 = 1; +x_1 = x_1396; +x_2 = x_1391; +x_5 = x_1395; +goto _start; +} +} +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___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_1); +lean_dec(x_1); +x_7 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main(x_6, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___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_1); +lean_dec(x_1); +x_7 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems(x_6, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_7, 0, x_3); +x_8 = l_Lean_Elab_Term_ensureHasType(x_1, x_7, x_4, x_5, x_6); return x_8; } } -} -lean_object* _init_l_Lean_Elab_Term_elabDo___closed__1() { +lean_object* l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { -lean_object* x_1; -x_1 = lean_mk_string("WIP "); -return x_1; +lean_object* x_7; +x_7 = l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_2); +return x_7; } } -lean_object* _init_l_Lean_Elab_Term_elabDo___closed__2() { +lean_object* _init_l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_elabDo___closed__1; +x_1 = l_Lean_Expr_Inhabited___closed__1; +x_2 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_2, 0, x_1); +lean_ctor_set(x_2, 1, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_ProcessedDoElem_inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1; +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("type former application expected"); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__1; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Elab_Term_elabDo___closed__3() { +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_elabDo___closed__2; +x_1 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__2; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_5 = lean_ctor_get(x_3, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_3, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 2); +lean_inc(x_8); +x_9 = lean_ctor_get(x_3, 3); +lean_inc(x_9); +x_10 = lean_ctor_get(x_3, 4); +lean_inc(x_10); +x_11 = lean_ctor_get(x_3, 5); +lean_inc(x_11); +x_12 = lean_ctor_get(x_3, 6); +lean_inc(x_12); +x_13 = lean_ctor_get(x_3, 7); +lean_inc(x_13); +x_14 = lean_ctor_get(x_3, 8); +lean_inc(x_14); +x_15 = lean_ctor_get(x_3, 9); +lean_inc(x_15); +x_16 = !lean_is_exclusive(x_5); +if (x_16 == 0) +{ +uint8_t x_17; uint8_t x_18; uint8_t x_19; lean_object* x_20; uint8_t x_21; +x_17 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_18 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_19 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); +x_20 = lean_ctor_get(x_5, 0); +lean_dec(x_20); +x_21 = !lean_is_exclusive(x_6); +if (x_21 == 0) +{ +uint8_t x_22; lean_object* x_23; lean_object* x_24; +x_22 = 2; +lean_ctor_set_uint8(x_6, sizeof(void*)*1 + 6, x_22); +x_23 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_23, 0, x_5); +lean_ctor_set(x_23, 1, x_7); +lean_ctor_set(x_23, 2, x_8); +lean_ctor_set(x_23, 3, x_9); +lean_ctor_set(x_23, 4, x_10); +lean_ctor_set(x_23, 5, x_11); +lean_ctor_set(x_23, 6, x_12); +lean_ctor_set(x_23, 7, x_13); +lean_ctor_set(x_23, 8, x_14); +lean_ctor_set(x_23, 9, x_15); +lean_ctor_set_uint8(x_23, sizeof(void*)*10, x_17); +lean_ctor_set_uint8(x_23, sizeof(void*)*10 + 1, x_18); +lean_ctor_set_uint8(x_23, sizeof(void*)*10 + 2, x_19); +x_24 = l_Lean_Elab_Term_whnf(x_1, x_2, x_23, x_4); +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; +x_26 = lean_ctor_get(x_24, 0); +x_27 = lean_ctor_get(x_24, 1); +if (lean_obj_tag(x_26) == 5) +{ +lean_object* x_35; +lean_dec(x_3); +x_35 = lean_ctor_get(x_26, 1); +lean_inc(x_35); +lean_dec(x_26); +lean_ctor_set(x_24, 0, x_35); +return x_24; +} +else +{ +lean_object* x_36; +lean_free_object(x_24); +x_36 = lean_box(0); +x_28 = x_36; +goto block_34; +} +block_34: +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; +lean_dec(x_28); +x_29 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_29, 0, x_26); +x_30 = l_Lean_indentExpr(x_29); +x_31 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3; +x_32 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_30); +x_33 = l_Lean_Elab_Term_throwError___rarg(x_1, x_32, x_3, x_27); +return x_33; +} +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_24, 0); +x_38 = lean_ctor_get(x_24, 1); +lean_inc(x_38); +lean_inc(x_37); +lean_dec(x_24); +if (lean_obj_tag(x_37) == 5) +{ +lean_object* x_46; lean_object* x_47; +lean_dec(x_3); +x_46 = lean_ctor_get(x_37, 1); +lean_inc(x_46); +lean_dec(x_37); +x_47 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_38); +return x_47; +} +else +{ +lean_object* x_48; +x_48 = lean_box(0); +x_39 = x_48; +goto block_45; +} +block_45: +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +lean_dec(x_39); +x_40 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_40, 0, x_37); +x_41 = l_Lean_indentExpr(x_40); +x_42 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3; +x_43 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_41); +x_44 = l_Lean_Elab_Term_throwError___rarg(x_1, x_43, x_3, x_38); +return x_44; +} +} +} +else +{ +uint8_t x_49; +lean_dec(x_3); +x_49 = !lean_is_exclusive(x_24); +if (x_49 == 0) +{ +return x_24; +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_24, 0); +x_51 = lean_ctor_get(x_24, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_24); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set(x_52, 1, x_51); +return x_52; +} +} +} +else +{ +lean_object* x_53; uint8_t x_54; uint8_t x_55; uint8_t x_56; uint8_t x_57; uint8_t x_58; uint8_t x_59; uint8_t x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_53 = lean_ctor_get(x_6, 0); +x_54 = lean_ctor_get_uint8(x_6, sizeof(void*)*1); +x_55 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 1); +x_56 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 2); +x_57 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 3); +x_58 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 4); +x_59 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 5); +lean_inc(x_53); +lean_dec(x_6); +x_60 = 2; +x_61 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_61, 0, x_53); +lean_ctor_set_uint8(x_61, sizeof(void*)*1, x_54); +lean_ctor_set_uint8(x_61, sizeof(void*)*1 + 1, x_55); +lean_ctor_set_uint8(x_61, sizeof(void*)*1 + 2, x_56); +lean_ctor_set_uint8(x_61, sizeof(void*)*1 + 3, x_57); +lean_ctor_set_uint8(x_61, sizeof(void*)*1 + 4, x_58); +lean_ctor_set_uint8(x_61, sizeof(void*)*1 + 5, x_59); +lean_ctor_set_uint8(x_61, sizeof(void*)*1 + 6, x_60); +lean_ctor_set(x_5, 0, x_61); +x_62 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_62, 0, x_5); +lean_ctor_set(x_62, 1, x_7); +lean_ctor_set(x_62, 2, x_8); +lean_ctor_set(x_62, 3, x_9); +lean_ctor_set(x_62, 4, x_10); +lean_ctor_set(x_62, 5, x_11); +lean_ctor_set(x_62, 6, x_12); +lean_ctor_set(x_62, 7, x_13); +lean_ctor_set(x_62, 8, x_14); +lean_ctor_set(x_62, 9, x_15); +lean_ctor_set_uint8(x_62, sizeof(void*)*10, x_17); +lean_ctor_set_uint8(x_62, sizeof(void*)*10 + 1, x_18); +lean_ctor_set_uint8(x_62, sizeof(void*)*10 + 2, x_19); +x_63 = l_Lean_Elab_Term_whnf(x_1, x_2, x_62, x_4); +if (lean_obj_tag(x_63) == 0) +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_64 = lean_ctor_get(x_63, 0); +lean_inc(x_64); +x_65 = lean_ctor_get(x_63, 1); +lean_inc(x_65); +if (lean_is_exclusive(x_63)) { + lean_ctor_release(x_63, 0); + lean_ctor_release(x_63, 1); + x_66 = x_63; +} else { + lean_dec_ref(x_63); + x_66 = lean_box(0); +} +if (lean_obj_tag(x_64) == 5) +{ +lean_object* x_74; lean_object* x_75; +lean_dec(x_3); +x_74 = lean_ctor_get(x_64, 1); +lean_inc(x_74); +lean_dec(x_64); +if (lean_is_scalar(x_66)) { + x_75 = lean_alloc_ctor(0, 2, 0); +} else { + x_75 = x_66; +} +lean_ctor_set(x_75, 0, x_74); +lean_ctor_set(x_75, 1, x_65); +return x_75; +} +else +{ +lean_object* x_76; +lean_dec(x_66); +x_76 = lean_box(0); +x_67 = x_76; +goto block_73; +} +block_73: +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; +lean_dec(x_67); +x_68 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_68, 0, x_64); +x_69 = l_Lean_indentExpr(x_68); +x_70 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3; +x_71 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_71, 0, x_70); +lean_ctor_set(x_71, 1, x_69); +x_72 = l_Lean_Elab_Term_throwError___rarg(x_1, x_71, x_3, x_65); +return x_72; +} +} +else +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; +lean_dec(x_3); +x_77 = lean_ctor_get(x_63, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_63, 1); +lean_inc(x_78); +if (lean_is_exclusive(x_63)) { + lean_ctor_release(x_63, 0); + lean_ctor_release(x_63, 1); + x_79 = x_63; +} else { + lean_dec_ref(x_63); + x_79 = lean_box(0); +} +if (lean_is_scalar(x_79)) { + x_80 = lean_alloc_ctor(1, 2, 0); +} else { + x_80 = x_79; +} +lean_ctor_set(x_80, 0, x_77); +lean_ctor_set(x_80, 1, x_78); +return x_80; +} +} +} +else +{ +uint8_t x_81; uint8_t x_82; uint8_t x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; uint8_t x_89; uint8_t x_90; uint8_t x_91; uint8_t x_92; uint8_t x_93; uint8_t x_94; lean_object* x_95; uint8_t x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_81 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_82 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_83 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); +x_84 = lean_ctor_get(x_5, 1); +x_85 = lean_ctor_get(x_5, 2); +x_86 = lean_ctor_get(x_5, 3); +x_87 = lean_ctor_get(x_5, 4); +lean_inc(x_87); +lean_inc(x_86); +lean_inc(x_85); +lean_inc(x_84); +lean_dec(x_5); +x_88 = lean_ctor_get(x_6, 0); +lean_inc(x_88); +x_89 = lean_ctor_get_uint8(x_6, sizeof(void*)*1); +x_90 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 1); +x_91 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 2); +x_92 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 3); +x_93 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 4); +x_94 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 5); +if (lean_is_exclusive(x_6)) { + lean_ctor_release(x_6, 0); + x_95 = x_6; +} else { + lean_dec_ref(x_6); + x_95 = lean_box(0); +} +x_96 = 2; +if (lean_is_scalar(x_95)) { + x_97 = lean_alloc_ctor(0, 1, 7); +} else { + x_97 = x_95; +} +lean_ctor_set(x_97, 0, x_88); +lean_ctor_set_uint8(x_97, sizeof(void*)*1, x_89); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 1, x_90); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 2, x_91); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 3, x_92); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 4, x_93); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 5, x_94); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 6, x_96); +x_98 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_84); +lean_ctor_set(x_98, 2, x_85); +lean_ctor_set(x_98, 3, x_86); +lean_ctor_set(x_98, 4, x_87); +x_99 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_99, 0, x_98); +lean_ctor_set(x_99, 1, x_7); +lean_ctor_set(x_99, 2, x_8); +lean_ctor_set(x_99, 3, x_9); +lean_ctor_set(x_99, 4, x_10); +lean_ctor_set(x_99, 5, x_11); +lean_ctor_set(x_99, 6, x_12); +lean_ctor_set(x_99, 7, x_13); +lean_ctor_set(x_99, 8, x_14); +lean_ctor_set(x_99, 9, x_15); +lean_ctor_set_uint8(x_99, sizeof(void*)*10, x_81); +lean_ctor_set_uint8(x_99, sizeof(void*)*10 + 1, x_82); +lean_ctor_set_uint8(x_99, sizeof(void*)*10 + 2, x_83); +x_100 = l_Lean_Elab_Term_whnf(x_1, x_2, x_99, x_4); +if (lean_obj_tag(x_100) == 0) +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; +x_101 = lean_ctor_get(x_100, 0); +lean_inc(x_101); +x_102 = lean_ctor_get(x_100, 1); +lean_inc(x_102); +if (lean_is_exclusive(x_100)) { + lean_ctor_release(x_100, 0); + lean_ctor_release(x_100, 1); + x_103 = x_100; +} else { + lean_dec_ref(x_100); + x_103 = lean_box(0); +} +if (lean_obj_tag(x_101) == 5) +{ +lean_object* x_111; lean_object* x_112; +lean_dec(x_3); +x_111 = lean_ctor_get(x_101, 1); +lean_inc(x_111); +lean_dec(x_101); +if (lean_is_scalar(x_103)) { + x_112 = lean_alloc_ctor(0, 2, 0); +} else { + x_112 = x_103; +} +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_102); +return x_112; +} +else +{ +lean_object* x_113; +lean_dec(x_103); +x_113 = lean_box(0); +x_104 = x_113; +goto block_110; +} +block_110: +{ +lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +lean_dec(x_104); +x_105 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_105, 0, x_101); +x_106 = l_Lean_indentExpr(x_105); +x_107 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3; +x_108 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_108, 0, x_107); +lean_ctor_set(x_108, 1, x_106); +x_109 = l_Lean_Elab_Term_throwError___rarg(x_1, x_108, x_3, x_102); +return x_109; +} +} +else +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; +lean_dec(x_3); +x_114 = lean_ctor_get(x_100, 0); +lean_inc(x_114); +x_115 = lean_ctor_get(x_100, 1); +lean_inc(x_115); +if (lean_is_exclusive(x_100)) { + lean_ctor_release(x_100, 0); + lean_ctor_release(x_100, 1); + x_116 = x_100; +} else { + lean_dec_ref(x_100); + x_116 = lean_box(0); +} +if (lean_is_scalar(x_116)) { + x_117 = lean_alloc_ctor(1, 2, 0); +} else { + x_117 = x_116; +} +lean_ctor_set(x_117, 0, x_114); +lean_ctor_set(x_117, 1, x_115); +return x_117; +} +} +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Array_back___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__1(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_array_get_size(x_1); +x_3 = lean_unsigned_to_nat(1u); +x_4 = lean_nat_sub(x_2, x_3); +lean_dec(x_2); +x_5 = l_Lean_Elab_Term_ProcessedDoElem_inhabited; +x_6 = lean_array_get(x_5, x_1, x_4); +lean_dec(x_4); +return x_6; +} +} +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; uint8_t x_11; +x_10 = lean_unsigned_to_nat(0u); +x_11 = lean_nat_dec_eq(x_5, x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_sub(x_5, x_12); +lean_dec(x_5); +x_14 = lean_array_fget(x_4, x_13); +x_15 = lean_ctor_get(x_14, 1); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 0); +lean_inc(x_16); +lean_dec(x_14); +lean_inc(x_8); +lean_inc(x_15); +x_17 = l_Lean_Elab_Term_inferType(x_1, x_15, x_8, x_9); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +lean_inc(x_8); +lean_inc(x_7); +x_20 = l_Lean_Elab_Term_inferType(x_1, x_7, x_8, x_19); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_20, 1); +lean_inc(x_22); +lean_dec(x_20); +lean_inc(x_8); +x_23 = l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg(x_1, x_21, x_8, x_22); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +lean_dec(x_23); +x_26 = l_Lean_mkOptionalNode___closed__2; +x_27 = lean_array_push(x_26, x_15); +lean_inc(x_8); +x_28 = l_Lean_Elab_Term_mkLambda(x_1, x_27, x_7, x_8, x_25); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_29 = lean_ctor_get(x_28, 0); +lean_inc(x_29); +x_30 = lean_ctor_get(x_28, 1); +lean_inc(x_30); +lean_dec(x_28); +x_31 = l_PersistentHashMap_mkCollisionNode___rarg___closed__1; +x_32 = lean_array_push(x_31, x_18); +x_33 = lean_array_push(x_32, x_24); +x_34 = lean_array_push(x_33, x_16); +x_35 = lean_array_push(x_34, x_29); +lean_inc(x_3); +x_36 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_35, x_35, x_10, x_3); +lean_dec(x_35); +x_5 = x_13; +x_6 = lean_box(0); +x_7 = x_36; +x_9 = x_30; +goto _start; +} +else +{ +uint8_t x_38; +lean_dec(x_24); +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_3); +x_38 = !lean_is_exclusive(x_28); +if (x_38 == 0) +{ +return x_28; +} +else +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_39 = lean_ctor_get(x_28, 0); +x_40 = lean_ctor_get(x_28, 1); +lean_inc(x_40); +lean_inc(x_39); +lean_dec(x_28); +x_41 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_41, 0, x_39); +lean_ctor_set(x_41, 1, x_40); +return x_41; +} +} +} +else +{ +uint8_t x_42; +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_3); +x_42 = !lean_is_exclusive(x_23); +if (x_42 == 0) +{ +return x_23; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_23, 0); +x_44 = lean_ctor_get(x_23, 1); +lean_inc(x_44); +lean_inc(x_43); +lean_dec(x_23); +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_43); +lean_ctor_set(x_45, 1, x_44); +return x_45; +} +} +} +else +{ +uint8_t x_46; +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_3); +x_46 = !lean_is_exclusive(x_20); +if (x_46 == 0) +{ +return x_20; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_20, 0); +x_48 = lean_ctor_get(x_20, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_20); +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_47); +lean_ctor_set(x_49, 1, x_48); +return x_49; +} +} +} +else +{ +uint8_t x_50; +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_3); +x_50 = !lean_is_exclusive(x_17); +if (x_50 == 0) +{ +return x_17; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_17, 0); +x_52 = lean_ctor_get(x_17, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_17); +x_53 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_53, 0, x_51); +lean_ctor_set(x_53, 1, x_52); +return x_53; +} +} +} +else +{ +lean_object* x_54; +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_7); +lean_ctor_set(x_54, 1, x_9); +return x_54; +} +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_10__mkBind(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +uint8_t x_8; +x_8 = l_Array_isEmpty___rarg(x_4); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = l_Array_back___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__1(x_4); +x_10 = lean_ctor_get(x_9, 1); +lean_inc(x_10); +lean_dec(x_9); +lean_inc(x_6); +x_11 = l_Lean_Elab_Term_inferType(x_1, x_10, x_6, x_7); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +lean_inc(x_6); +x_14 = l_Lean_Elab_Term_getLevel(x_1, x_12, x_6, x_13); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +lean_inc(x_6); +x_17 = l_Lean_Elab_Term_decLevel(x_1, x_15, x_6, x_16); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +lean_inc(x_6); +lean_inc(x_5); +x_20 = l_Lean_Elab_Term_inferType(x_1, x_5, x_6, x_19); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_20, 1); +lean_inc(x_22); +lean_dec(x_20); +lean_inc(x_6); +x_23 = l_Lean_Elab_Term_getLevel(x_1, x_21, x_6, x_22); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +lean_dec(x_23); +lean_inc(x_6); +x_26 = l_Lean_Elab_Term_decLevel(x_1, x_24, x_6, x_25); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_27 = lean_ctor_get(x_26, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_26, 1); +lean_inc(x_28); +lean_dec(x_26); +x_29 = lean_box(0); +x_30 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_30, 0, x_27); +lean_ctor_set(x_30, 1, x_29); +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_18); +lean_ctor_set(x_31, 1, x_30); +x_32 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; +x_33 = l_Lean_mkConst(x_32, x_31); +x_34 = l_Lean_mkAppB(x_33, x_2, x_3); +x_35 = lean_array_get_size(x_4); +x_36 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__2(x_1, x_4, x_34, x_4, x_35, lean_box(0), x_5, x_6, x_28); +return x_36; +} +else +{ +uint8_t x_37; +lean_dec(x_18); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_37 = !lean_is_exclusive(x_26); +if (x_37 == 0) +{ +return x_26; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_26, 0); +x_39 = lean_ctor_get(x_26, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_26); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; +} +} +} +else +{ +uint8_t x_41; +lean_dec(x_18); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_41 = !lean_is_exclusive(x_23); +if (x_41 == 0) +{ +return x_23; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_23, 0); +x_43 = lean_ctor_get(x_23, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_23); +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_42); +lean_ctor_set(x_44, 1, x_43); +return x_44; +} +} +} +else +{ +uint8_t x_45; +lean_dec(x_18); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_45 = !lean_is_exclusive(x_20); +if (x_45 == 0) +{ +return x_20; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_20, 0); +x_47 = lean_ctor_get(x_20, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_20); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_46); +lean_ctor_set(x_48, 1, x_47); +return x_48; +} +} +} +else +{ +uint8_t x_49; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_49 = !lean_is_exclusive(x_17); +if (x_49 == 0) +{ +return x_17; +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_17, 0); +x_51 = lean_ctor_get(x_17, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_17); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set(x_52, 1, x_51); +return x_52; +} +} +} +else +{ +uint8_t x_53; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_53 = !lean_is_exclusive(x_14); +if (x_53 == 0) +{ +return x_14; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_14, 0); +x_55 = lean_ctor_get(x_14, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_14); +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +return x_56; +} +} +} +else +{ +uint8_t x_57; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_57 = !lean_is_exclusive(x_11); +if (x_57 == 0) +{ +return x_11; +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_11, 0); +x_59 = lean_ctor_get(x_11, 1); +lean_inc(x_59); +lean_inc(x_58); +lean_dec(x_11); +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_58); +lean_ctor_set(x_60, 1, x_59); +return x_60; +} +} +} +else +{ +lean_object* x_61; +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_61 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_61, 0, x_5); +lean_ctor_set(x_61, 1, x_7); +return x_61; +} +} +} +lean_object* l_Array_back___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__1___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Array_back___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__1(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +x_10 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_Init_Lean_Elab_DoNotation_10__mkBind___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +return x_10; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_10__mkBind___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; +x_8 = l___private_Init_Lean_Elab_DoNotation_10__mkBind(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_4); +lean_dec(x_1); +return x_8; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { +_start: +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_1, x_11); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_2); +lean_ctor_set(x_13, 1, x_8); +x_14 = lean_array_push(x_3, x_13); +x_15 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main(x_4, x_5, x_6, x_7, x_12, x_14, x_9, x_10); +return x_15; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unexpected 'do' expression element"); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__3; +x_2 = l_Lean_MessageData_ofList___closed__3; +x_3 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("the last statement in a 'do' block must be an expression"); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__6; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +_start: +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_9 = l_Lean_Syntax_inhabited; +x_10 = lean_array_get(x_9, x_1, x_5); +lean_inc(x_10); +x_11 = l_Lean_Syntax_getKind(x_10); +x_12 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +x_13 = lean_name_eq(x_11, x_12); +if (x_13 == 0) +{ +lean_object* x_14; uint8_t x_15; +x_14 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +x_15 = lean_name_eq(x_11, x_14); +lean_dec(x_11); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +lean_inc(x_10); +x_16 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_16, 0, x_10); +x_17 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4; +x_18 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_16); +x_19 = l_Lean_Elab_Term_throwError___rarg(x_10, x_18, x_7, x_8); +lean_dec(x_10); +return x_19; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; +x_20 = lean_array_get_size(x_1); +lean_dec(x_1); +x_21 = lean_unsigned_to_nat(1u); +x_22 = lean_nat_sub(x_20, x_21); +lean_dec(x_20); +x_23 = lean_nat_dec_eq(x_5, x_22); +lean_dec(x_22); +lean_dec(x_5); +if (x_23 == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_inc(x_10); +x_24 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_24, 0, x_10); +x_25 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4; +x_26 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_24); +x_27 = l_Lean_Elab_Term_throwError___rarg(x_10, x_26, x_7, x_8); +lean_dec(x_10); +x_28 = !lean_is_exclusive(x_27); +if (x_28 == 0) +{ +return x_27; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_27, 0); +x_30 = lean_ctor_get(x_27, 1); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_27); +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_29); +lean_ctor_set(x_31, 1, x_30); +return x_31; +} +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; lean_object* x_36; +x_32 = lean_unsigned_to_nat(0u); +x_33 = l_Lean_Syntax_getArg(x_10, x_32); +lean_inc(x_4); +x_34 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_34, 0, x_4); +x_35 = 1; +lean_inc(x_7); +x_36 = l_Lean_Elab_Term_elabTermAux___main(x_34, x_35, x_33, x_7, x_8); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +x_38 = lean_ctor_get(x_36, 1); +lean_inc(x_38); +lean_dec(x_36); +lean_inc(x_7); +lean_inc(x_10); +x_39 = l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType(x_10, x_2, x_4, x_37, x_7, x_38); +if (lean_obj_tag(x_39) == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_39, 0); +lean_inc(x_40); +x_41 = lean_ctor_get(x_39, 1); +lean_inc(x_41); +lean_dec(x_39); +x_42 = l___private_Init_Lean_Elab_DoNotation_10__mkBind(x_10, x_2, x_3, x_6, x_40, x_7, x_41); +lean_dec(x_6); +lean_dec(x_10); +return x_42; +} +else +{ +uint8_t x_43; +lean_dec(x_10); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_43 = !lean_is_exclusive(x_39); +if (x_43 == 0) +{ +return x_39; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_39, 0); +x_45 = lean_ctor_get(x_39, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_39); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_44); +lean_ctor_set(x_46, 1, x_45); +return x_46; +} +} +} +else +{ +uint8_t x_47; +lean_dec(x_10); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_47 = !lean_is_exclusive(x_36); +if (x_47 == 0) +{ +return x_36; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_36, 0); +x_49 = lean_ctor_get(x_36, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_36); +x_50 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_50, 0, x_48); +lean_ctor_set(x_50, 1, x_49); +return x_50; +} +} +} +} +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; +lean_dec(x_11); +x_51 = lean_array_get_size(x_1); +x_52 = lean_unsigned_to_nat(1u); +x_53 = lean_nat_sub(x_51, x_52); +lean_dec(x_51); +x_54 = lean_nat_dec_eq(x_5, x_53); +lean_dec(x_53); +if (x_54 == 0) +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_55 = lean_unsigned_to_nat(0u); +x_56 = l_Lean_Syntax_getIdAt(x_10, x_55); +x_57 = l_Lean_Syntax_getArg(x_10, x_52); +x_58 = l_Lean_Elab_Term_expandOptType(x_10, x_57); +lean_dec(x_57); +x_59 = lean_unsigned_to_nat(3u); +x_60 = l_Lean_Syntax_getArg(x_10, x_59); +lean_inc(x_7); +x_61 = l_Lean_Elab_Term_elabType(x_58, x_7, x_8); +if (lean_obj_tag(x_61) == 0) +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; uint8_t x_66; lean_object* x_67; +x_62 = lean_ctor_get(x_61, 0); +lean_inc(x_62); +x_63 = lean_ctor_get(x_61, 1); +lean_inc(x_63); +lean_dec(x_61); +lean_inc(x_62); +lean_inc(x_2); +x_64 = l_Lean_mkApp(x_2, x_62); +lean_inc(x_64); +x_65 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_65, 0, x_64); +x_66 = 1; +lean_inc(x_7); +lean_inc(x_60); +x_67 = l_Lean_Elab_Term_elabTermAux___main(x_65, x_66, x_60, x_7, x_63); +if (lean_obj_tag(x_67) == 0) +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_68 = lean_ctor_get(x_67, 0); +lean_inc(x_68); +x_69 = lean_ctor_get(x_67, 1); +lean_inc(x_69); +lean_dec(x_67); +lean_inc(x_7); +x_70 = l___private_Init_Lean_Elab_DoNotation_8__ensureDoElemType(x_60, x_2, x_64, x_68, x_7, x_69); +if (lean_obj_tag(x_70) == 0) +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; +x_71 = lean_ctor_get(x_70, 0); +lean_inc(x_71); +x_72 = lean_ctor_get(x_70, 1); +lean_inc(x_72); +lean_dec(x_70); +x_73 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___lambda__1___boxed), 10, 7); +lean_closure_set(x_73, 0, x_5); +lean_closure_set(x_73, 1, x_71); +lean_closure_set(x_73, 2, x_6); +lean_closure_set(x_73, 3, x_1); +lean_closure_set(x_73, 4, x_2); +lean_closure_set(x_73, 5, x_3); +lean_closure_set(x_73, 6, x_4); +x_74 = l_Lean_Elab_Term_withLocalDecl___rarg(x_10, x_56, x_62, x_73, x_7, x_72); +lean_dec(x_10); +return x_74; +} +else +{ +uint8_t x_75; +lean_dec(x_62); +lean_dec(x_56); +lean_dec(x_10); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_75 = !lean_is_exclusive(x_70); +if (x_75 == 0) +{ +return x_70; +} +else +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_76 = lean_ctor_get(x_70, 0); +x_77 = lean_ctor_get(x_70, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_70); +x_78 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_78, 0, x_76); +lean_ctor_set(x_78, 1, x_77); +return x_78; +} +} +} +else +{ +uint8_t x_79; +lean_dec(x_64); +lean_dec(x_62); +lean_dec(x_60); +lean_dec(x_56); +lean_dec(x_10); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_79 = !lean_is_exclusive(x_67); +if (x_79 == 0) +{ +return x_67; +} +else +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_80 = lean_ctor_get(x_67, 0); +x_81 = lean_ctor_get(x_67, 1); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_67); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_80); +lean_ctor_set(x_82, 1, x_81); +return x_82; +} +} +} +else +{ +uint8_t x_83; +lean_dec(x_60); +lean_dec(x_56); +lean_dec(x_10); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_83 = !lean_is_exclusive(x_61); +if (x_83 == 0) +{ +return x_61; +} +else +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_61, 0); +x_85 = lean_ctor_get(x_61, 1); +lean_inc(x_85); +lean_inc(x_84); +lean_dec(x_61); +x_86 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_86, 0, x_84); +lean_ctor_set(x_86, 1, x_85); +return x_86; +} +} +} +else +{ +lean_object* x_87; lean_object* x_88; uint8_t x_89; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_87 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__7; +x_88 = l_Lean_Elab_Term_throwError___rarg(x_10, x_87, x_7, x_8); +lean_dec(x_10); +x_89 = !lean_is_exclusive(x_88); +if (x_89 == 0) +{ +return x_88; +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; +x_90 = lean_ctor_get(x_88, 0); +x_91 = lean_ctor_get(x_88, 1); +lean_inc(x_91); +lean_inc(x_90); +lean_dec(x_88); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_90); +lean_ctor_set(x_92, 1, x_91); +return x_92; +} +} +} +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { +_start: +{ +lean_object* x_11; +x_11 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +lean_dec(x_1); +return x_11; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +_start: +{ +lean_object* x_9; +x_9 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +return x_9; +} +} +lean_object* l___private_Init_Lean_Elab_DoNotation_12__processDoElems(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_unsigned_to_nat(0u); +x_8 = l_Array_empty___closed__1; +x_9 = l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main(x_1, x_2, x_3, x_4, x_7, x_8, x_5, x_6); +return x_9; +} +} +lean_object* _init_l_Lean_Elab_Term_elabDo___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__1; +x_2 = l_Lean_Parser_Term_do___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} lean_object* l_Lean_Elab_Term_elabDo(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -4035,211 +6791,324 @@ lean_object* x_5; x_5 = l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(x_2, x_3, x_4); if (lean_obj_tag(x_5) == 0) { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; x_6 = lean_ctor_get(x_5, 1); lean_inc(x_6); lean_dec(x_5); x_7 = l___private_Init_Lean_Elab_DoNotation_3__getDoElems(x_1); -x_8 = lean_unsigned_to_nat(0u); +x_48 = 0; +x_49 = lean_unsigned_to_nat(0u); lean_inc(x_3); lean_inc(x_7); -x_9 = l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main(x_7, x_8, x_3, x_6); -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) +x_50 = l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main(x_48, x_7, x_49, x_3, x_6); +x_51 = lean_ctor_get(x_50, 0); +lean_inc(x_51); +if (lean_obj_tag(x_51) == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_unsigned_to_nat(2u); -x_13 = l_Array_empty___closed__1; -x_14 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_12, x_7, x_8, x_13); +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; +x_52 = lean_ctor_get(x_50, 1); +lean_inc(x_52); +lean_dec(x_50); +x_53 = l_Lean_Elab_Term_getOptions(x_3, x_52); +x_54 = lean_ctor_get(x_53, 0); +lean_inc(x_54); +x_55 = lean_ctor_get(x_53, 1); +lean_inc(x_55); +lean_dec(x_53); +x_56 = l_Lean_Elab_Term_elabDo___closed__1; +x_57 = l_Lean_checkTraceOption(x_54, x_56); +lean_dec(x_54); +if (x_57 == 0) +{ +x_8 = x_55; +goto block_47; +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; +lean_inc(x_1); +x_58 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_58, 0, x_1); +x_59 = l_Lean_Elab_Term_logTrace(x_56, x_1, x_58, x_3, x_55); +x_60 = lean_ctor_get(x_59, 1); +lean_inc(x_60); +lean_dec(x_59); +x_8 = x_60; +goto block_47; +} +} +else +{ +lean_object* x_61; lean_object* x_62; uint8_t x_63; +lean_dec(x_7); +x_61 = lean_ctor_get(x_50, 1); +lean_inc(x_61); +lean_dec(x_50); +x_62 = lean_ctor_get(x_51, 0); +lean_inc(x_62); +lean_dec(x_51); +x_63 = !lean_is_exclusive(x_3); +if (x_63 == 0) +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; lean_object* x_68; +x_64 = lean_ctor_get(x_3, 8); +lean_inc(x_62); +x_65 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_65, 0, x_1); +lean_ctor_set(x_65, 1, x_62); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +lean_ctor_set(x_3, 8, x_66); +x_67 = 1; +x_68 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_67, x_62, x_3, x_61); +return x_68; +} +else +{ +lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; uint8_t x_79; uint8_t x_80; uint8_t x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; uint8_t x_85; lean_object* x_86; +x_69 = lean_ctor_get(x_3, 0); +x_70 = lean_ctor_get(x_3, 1); +x_71 = lean_ctor_get(x_3, 2); +x_72 = lean_ctor_get(x_3, 3); +x_73 = lean_ctor_get(x_3, 4); +x_74 = lean_ctor_get(x_3, 5); +x_75 = lean_ctor_get(x_3, 6); +x_76 = lean_ctor_get(x_3, 7); +x_77 = lean_ctor_get(x_3, 8); +x_78 = lean_ctor_get(x_3, 9); +x_79 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_80 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_81 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); +lean_inc(x_78); +lean_inc(x_77); +lean_inc(x_76); +lean_inc(x_75); +lean_inc(x_74); +lean_inc(x_73); +lean_inc(x_72); +lean_inc(x_71); +lean_inc(x_70); +lean_inc(x_69); +lean_dec(x_3); +lean_inc(x_62); +x_82 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_82, 0, x_1); +lean_ctor_set(x_82, 1, x_62); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_82); +lean_ctor_set(x_83, 1, x_77); +x_84 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_84, 0, x_69); +lean_ctor_set(x_84, 1, x_70); +lean_ctor_set(x_84, 2, x_71); +lean_ctor_set(x_84, 3, x_72); +lean_ctor_set(x_84, 4, x_73); +lean_ctor_set(x_84, 5, x_74); +lean_ctor_set(x_84, 6, x_75); +lean_ctor_set(x_84, 7, x_76); +lean_ctor_set(x_84, 8, x_83); +lean_ctor_set(x_84, 9, x_78); +lean_ctor_set_uint8(x_84, sizeof(void*)*10, x_79); +lean_ctor_set_uint8(x_84, sizeof(void*)*10 + 1, x_80); +lean_ctor_set_uint8(x_84, sizeof(void*)*10 + 2, x_81); +x_85 = 1; +x_86 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_85, x_62, x_84, x_61); +return x_86; +} +} +block_47: +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_unsigned_to_nat(0u); +x_11 = l_Array_empty___closed__1; +x_12 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_9, x_7, x_10, x_11); lean_dec(x_7); lean_inc(x_3); -x_15 = l___private_Init_Lean_Elab_DoNotation_2__extractMonad(x_1, x_2, x_3, x_11); -if (lean_obj_tag(x_15) == 0) +lean_inc(x_2); +x_13 = l___private_Init_Lean_Elab_DoNotation_2__extractMonad(x_1, x_2, x_3, x_8); +lean_dec(x_1); +if (lean_obj_tag(x_13) == 0) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_16 = lean_ctor_get(x_15, 0); +lean_object* x_14; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_ctor_get(x_14, 0); lean_inc(x_16); -x_17 = lean_ctor_get(x_15, 1); +x_17 = lean_ctor_get(x_14, 1); lean_inc(x_17); -lean_dec(x_15); -x_18 = lean_ctor_get(x_16, 1); -lean_inc(x_18); -lean_dec(x_16); -x_19 = l_Array_toList___rarg(x_14); lean_dec(x_14); -x_20 = l_List_toString___at_Lean_Elab_Term_elabDo___spec__1(x_19); -x_21 = l_Array_HasRepr___rarg___closed__1; -x_22 = lean_string_append(x_21, x_20); -lean_dec(x_20); -x_23 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_23, 0, x_22); -x_24 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_24, 0, x_23); -x_25 = l_Lean_Elab_Term_elabDo___closed__3; -x_26 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_24); -x_27 = l_Lean_MessageData_ofList___closed__3; -x_28 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_28, 0, x_26); -lean_ctor_set(x_28, 1, x_27); -x_29 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_29, 0, x_18); -x_30 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_30, 0, x_28); -lean_ctor_set(x_30, 1, x_29); -x_31 = l_Lean_Elab_Term_throwError___rarg(x_1, x_30, x_3, x_17); -lean_dec(x_1); -return x_31; +x_18 = l_Lean_Expr_Inhabited; +x_19 = l_Option_get_x21___rarg___closed__3; +x_20 = lean_panic_fn(x_18, x_19); +x_21 = l___private_Init_Lean_Elab_DoNotation_12__processDoElems(x_12, x_16, x_17, x_20, x_3, x_15); +if (lean_obj_tag(x_21) == 0) +{ +uint8_t x_22; +x_22 = !lean_is_exclusive(x_21); +if (x_22 == 0) +{ +return x_21; } else { -uint8_t x_32; -lean_dec(x_14); -lean_dec(x_3); -lean_dec(x_1); -x_32 = !lean_is_exclusive(x_15); -if (x_32 == 0) -{ -return x_15; +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_21, 0); +x_24 = lean_ctor_get(x_21, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_21); +x_25 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +return x_25; +} } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_33 = lean_ctor_get(x_15, 0); -x_34 = lean_ctor_get(x_15, 1); -lean_inc(x_34); +uint8_t x_26; +x_26 = !lean_is_exclusive(x_21); +if (x_26 == 0) +{ +return x_21; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_21, 0); +x_28 = lean_ctor_get(x_21, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_21); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_27); +lean_ctor_set(x_29, 1, x_28); +return x_29; +} +} +} +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_13, 1); +lean_inc(x_30); +lean_dec(x_13); +x_31 = lean_ctor_get(x_14, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_14, 1); +lean_inc(x_32); +lean_dec(x_14); +x_33 = lean_ctor_get(x_2, 0); lean_inc(x_33); -lean_dec(x_15); -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_33); -lean_ctor_set(x_35, 1, x_34); -return x_35; -} -} +lean_dec(x_2); +x_34 = l___private_Init_Lean_Elab_DoNotation_12__processDoElems(x_12, x_31, x_32, x_33, x_3, x_30); +if (lean_obj_tag(x_34) == 0) +{ +uint8_t x_35; +x_35 = !lean_is_exclusive(x_34); +if (x_35 == 0) +{ +return x_34; } else { -lean_object* x_36; lean_object* x_37; uint8_t x_38; -lean_dec(x_7); -x_36 = lean_ctor_get(x_9, 1); +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_34, 0); +x_37 = lean_ctor_get(x_34, 1); +lean_inc(x_37); lean_inc(x_36); -lean_dec(x_9); -x_37 = lean_ctor_get(x_10, 0); -lean_inc(x_37); -lean_dec(x_10); -x_38 = !lean_is_exclusive(x_3); -if (x_38 == 0) -{ -lean_object* x_39; lean_object* x_40; lean_object* x_41; uint8_t x_42; lean_object* x_43; -x_39 = lean_ctor_get(x_3, 8); -lean_inc(x_37); -x_40 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_40, 0, x_1); -lean_ctor_set(x_40, 1, x_37); -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_39); -lean_ctor_set(x_3, 8, x_41); -x_42 = 1; -x_43 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_42, x_37, x_3, x_36); -return x_43; +lean_dec(x_34); +x_38 = lean_alloc_ctor(0, 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_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; uint8_t x_55; uint8_t x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; lean_object* x_61; -x_44 = lean_ctor_get(x_3, 0); -x_45 = lean_ctor_get(x_3, 1); -x_46 = lean_ctor_get(x_3, 2); -x_47 = lean_ctor_get(x_3, 3); -x_48 = lean_ctor_get(x_3, 4); -x_49 = lean_ctor_get(x_3, 5); -x_50 = lean_ctor_get(x_3, 6); -x_51 = lean_ctor_get(x_3, 7); -x_52 = lean_ctor_get(x_3, 8); -x_53 = lean_ctor_get(x_3, 9); -x_54 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_55 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); -x_56 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 2); -lean_inc(x_53); -lean_inc(x_52); -lean_inc(x_51); -lean_inc(x_50); -lean_inc(x_49); -lean_inc(x_48); -lean_inc(x_47); -lean_inc(x_46); +uint8_t x_39; +x_39 = !lean_is_exclusive(x_34); +if (x_39 == 0) +{ +return x_34; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_34, 0); +x_41 = lean_ctor_get(x_34, 1); +lean_inc(x_41); +lean_inc(x_40); +lean_dec(x_34); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_40); +lean_ctor_set(x_42, 1, x_41); +return x_42; +} +} +} +} +else +{ +uint8_t x_43; +lean_dec(x_12); +lean_dec(x_3); +lean_dec(x_2); +x_43 = !lean_is_exclusive(x_13); +if (x_43 == 0) +{ +return x_13; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_13, 0); +x_45 = lean_ctor_get(x_13, 1); lean_inc(x_45); lean_inc(x_44); -lean_dec(x_3); -lean_inc(x_37); -x_57 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_57, 0, x_1); -lean_ctor_set(x_57, 1, x_37); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_57); -lean_ctor_set(x_58, 1, x_52); -x_59 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_59, 0, x_44); -lean_ctor_set(x_59, 1, x_45); -lean_ctor_set(x_59, 2, x_46); -lean_ctor_set(x_59, 3, x_47); -lean_ctor_set(x_59, 4, x_48); -lean_ctor_set(x_59, 5, x_49); -lean_ctor_set(x_59, 6, x_50); -lean_ctor_set(x_59, 7, x_51); -lean_ctor_set(x_59, 8, x_58); -lean_ctor_set(x_59, 9, x_53); -lean_ctor_set_uint8(x_59, sizeof(void*)*10, x_54); -lean_ctor_set_uint8(x_59, sizeof(void*)*10 + 1, x_55); -lean_ctor_set_uint8(x_59, sizeof(void*)*10 + 2, x_56); -x_60 = 1; -x_61 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_60, x_37, x_59, x_36); -return x_61; +lean_dec(x_13); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_44); +lean_ctor_set(x_46, 1, x_45); +return x_46; +} } } } else { -uint8_t x_62; +uint8_t x_87; lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_62 = !lean_is_exclusive(x_5); -if (x_62 == 0) +x_87 = !lean_is_exclusive(x_5); +if (x_87 == 0) { return x_5; } else { -lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_63 = lean_ctor_get(x_5, 0); -x_64 = lean_ctor_get(x_5, 1); -lean_inc(x_64); -lean_inc(x_63); +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_5, 0); +x_89 = lean_ctor_get(x_5, 1); +lean_inc(x_89); +lean_inc(x_88); lean_dec(x_5); -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_63); -lean_ctor_set(x_65, 1, x_64); -return x_65; +x_90 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_90, 0, x_88); +lean_ctor_set(x_90, 1, x_89); +return x_90; } } } } -lean_object* l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; lean_object* x_4; -x_3 = lean_unbox(x_1); -lean_dec(x_1); -x_4 = l_List_toStringAux___main___at_Lean_Elab_Term_elabDo___spec__2(x_3, x_2); -return x_4; -} -} lean_object* _init_l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__1() { _start: { @@ -4277,7 +7146,64 @@ x_5 = l_Lean_Elab_Term_addBuiltinTermElab(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* l___private_Init_Lean_Elab_DoNotation_13__regTraceClasses(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Elab_Term_elabDo___closed__1; +x_3 = l_Lean_registerTraceClass(x_2, x_1); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_3); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_3, 0); +lean_dec(x_5); +x_6 = lean_box(0); +lean_ctor_set(x_3, 0, x_6); +return x_3; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_ctor_get(x_3, 1); +lean_inc(x_7); +lean_dec(x_3); +x_8 = lean_box(0); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_7); +return x_9; +} +} +else +{ +uint8_t x_10; +x_10 = !lean_is_exclusive(x_3); +if (x_10 == 0) +{ +return x_3; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_3, 0); +x_12 = lean_ctor_get(x_3, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_3); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +} +} lean_object* initialize_Init_Lean_Elab_Term(lean_object*); +lean_object* initialize_Init_Lean_Elab_TermBinders(lean_object*); lean_object* initialize_Init_Lean_Elab_Quotation(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Elab_DoNotation(lean_object* w) { @@ -4287,67 +7213,70 @@ _G_initialized = true; res = initialize_Init_Lean_Elab_Term(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Elab_TermBinders(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Init_Lean_Elab_Quotation(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__1); -l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__2); -l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__3(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__3); -l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdMonadFor___closed__4); +l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__1); +l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__2); +l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3); +l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_1__mkIdBindFor___closed__4); l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__1(); lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__1); l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__2(); lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__2); l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__3(); lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__3); -l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__4(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__4); -l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5 = _init_l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_2__extractMonad___closed__5); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__1); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__2); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__3(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__3); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__4); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__5 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__5(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__5); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__6); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__7 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__7(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__7); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__8); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__9); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__10 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__10(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__10); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__11); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__12); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__13); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__14 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__14(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__14); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__15); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__16 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__16(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__16); -l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17 = _init_l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17(); -lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_4__expandDoElems___main___closed__17); +l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__1); +l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__2); +l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__3); +l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4); +l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__1); +l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__2); +l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__3); +l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__4); +l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5 = _init_l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_7__expandDoElems___main___closed__5); +l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1 = _init_l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1(); +lean_mark_persistent(l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1); +l_Lean_Elab_Term_ProcessedDoElem_inhabited = _init_l_Lean_Elab_Term_ProcessedDoElem_inhabited(); +lean_mark_persistent(l_Lean_Elab_Term_ProcessedDoElem_inhabited); +l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__1); +l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__2); +l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_9__extractTypeFormerAppArg___closed__3); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__2 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__2); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__3 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__3); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__4); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__6 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__6(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__6); +l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__7 = _init_l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__7(); +lean_mark_persistent(l___private_Init_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__7); l_Lean_Elab_Term_elabDo___closed__1 = _init_l_Lean_Elab_Term_elabDo___closed__1(); lean_mark_persistent(l_Lean_Elab_Term_elabDo___closed__1); -l_Lean_Elab_Term_elabDo___closed__2 = _init_l_Lean_Elab_Term_elabDo___closed__2(); -lean_mark_persistent(l_Lean_Elab_Term_elabDo___closed__2); -l_Lean_Elab_Term_elabDo___closed__3 = _init_l_Lean_Elab_Term_elabDo___closed__3(); -lean_mark_persistent(l_Lean_Elab_Term_elabDo___closed__3); l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__1 = _init_l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__1(); lean_mark_persistent(l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__1); l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__2 = _init_l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__2(); @@ -4357,6 +7286,9 @@ lean_mark_persistent(l___regBuiltinTermElab_Lean_Elab_Term_elabDo___closed__3); res = l___regBuiltinTermElab_Lean_Elab_Term_elabDo(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = l___private_Init_Lean_Elab_DoNotation_13__regTraceClasses(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Elab/Syntax.c b/stage0/stdlib/Init/Lean/Elab/Syntax.c index ca3af7d80c..a0d024ad73 100644 --- a/stage0/stdlib/Init/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Init/Lean/Elab/Syntax.c @@ -37,9 +37,8 @@ lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandNotation___closed__2; extern lean_object* l_Lean_Parser_Syntax_many___elambda__1___closed__2; -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_getOptions(lean_object*, lean_object*); -extern lean_object* l_Lean_Macro_throwUnsupported___closed__1; lean_object* l_Lean_Elab_Command_elabSyntax___closed__19; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__58; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__22; @@ -54,7 +53,7 @@ lean_object* l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(lean_objec extern lean_object* l_Lean_Elab_Term_elabArrayLit___closed__13; lean_object* l_Lean_Elab_Command_elabSyntax___closed__36; lean_object* l_Lean_mkTermIdFromIdent(lean_object*); -lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(lean_object*, lean_object*, lean_object*); lean_object* l_unreachable_x21___rarg(lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__4; extern lean_object* l_Lean_nullKind; @@ -76,7 +75,7 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__5; extern lean_object* l_Lean_Elab_registerBuiltinMacroAttr___lambda__1___closed__5; uint8_t lean_name_eq(lean_object*, lean_object*); 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* l_Lean_Elab_Command_Macro_mkFreshKind(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__104; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve___closed__1; lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); @@ -88,7 +87,7 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__13; extern lean_object* l_Lean_Elab_Command_runTermElabM___rarg___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__23; lean_object* l_Lean_Elab_Command_elabSyntax___closed__7; -lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern(lean_object*, lean_object*, lean_object*); extern lean_object* l_PersistentHashMap_mkCollisionNode___rarg___closed__1; lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_orelse___elambda__1___closed__1; @@ -106,7 +105,7 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___ extern lean_object* l_Lean_Parser_Command_declaration___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Level_num___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__19; -lean_object* l_Lean_Elab_Command_strLitPrecToPattern___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_strLitPrecToPattern___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_checkLeftRec___closed__9; lean_object* l___regBuiltinMacro_Lean_Elab_Command_expandMacro(lean_object*); @@ -124,7 +123,7 @@ extern lean_object* l_Lean_charLitKind___closed__1; extern lean_object* l_Lean_Parser_Term_num___elambda__1___closed__1; extern lean_object* l_Lean_Syntax_termIdToAntiquot___closed__3; lean_object* l___private_Init_Lean_Elab_Syntax_4__withNotFirst(lean_object*); -lean_object* l_Lean_Elab_Command_strLitPrecToPattern(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_strLitPrecToPattern(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Syntax_8__regTraceClasses(lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__20; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__2; @@ -132,7 +131,7 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__9; lean_object* l_Lean_Elab_Term_toParserDescrAux(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__81; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__6; -lean_object* l_Lean_Elab_Command_expandMacro___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacro___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMixfix___closed__1; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__27; @@ -160,7 +159,7 @@ lean_object* l___private_Init_Lean_Elab_Quotation_1__quoteName___main(lean_objec lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__120; extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Lean_Elab_Command_elabMixfix___boxed(lean_object*, lean_object*); -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__37; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__5; @@ -190,11 +189,11 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacroRules___closed lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__85; lean_object* l___regBuiltinMacro_Lean_Elab_Command_expandMacro___closed__1; -lean_object* l_Lean_Elab_Command_expandMacro(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacro(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__100; lean_object* l_Lean_Elab_Term_checkLeftRec___closed__4; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern(lean_object*, lean_object*, lean_object*); extern uint8_t l_Lean_Elab_Term_elabParen___closed__4; lean_object* l_Lean_Elab_Command_elabNoKindMacroRulesAux___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); @@ -204,7 +203,7 @@ lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMixfix___rarg(lean_object*); lean_object* l_Lean_Elab_Command_getCurrNamespace(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__61; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacroRules___closed__2; lean_object* l_Lean_Elab_Command_elabNoKindMacroRulesAux___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -215,13 +214,13 @@ extern lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__87; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__68; -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); 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* l_Lean_Elab_Command_expandMacroArgIntoPattern___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern(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; lean_object* l_Array_shrink___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__9; @@ -231,7 +230,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__67; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__83; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__2; extern lean_object* l_Lean_Parser_Command_def___elambda__1___closed__2; -lean_object* l_Lean_Macro_addMacroScope(lean_object*, lean_object*); +lean_object* l_Lean_Macro_addMacroScope(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; extern lean_object* l___private_Init_Lean_Elab_Term_6__exceptionToSorry___closed__1; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); @@ -345,13 +344,13 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax(lean_object* lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__34; -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); +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; lean_object* l_Lean_Elab_Command_elabSyntax___closed__35; lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__117; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__77; lean_object* l_Lean_addMacroScope(lean_object*, lean_object*, lean_object*); @@ -426,7 +425,7 @@ lean_object* l_Lean_Elab_Command_elabSyntax___closed__1; lean_object* l_Lean_Elab_Term_checkLeftRec(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__111; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__97; -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object*); lean_object* l___private_Init_Lean_Elab_Syntax_5__withoutLeftRec(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__64; @@ -457,7 +456,7 @@ lean_object* l_Lean_Elab_Command_elabSyntax(lean_object*, lean_object*, lean_obj lean_object* l_Lean_mkCAppStx(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__69; lean_object* l_Lean_Elab_Command_elabSyntax___closed__21; -lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__9; extern lean_object* l_Lean_Elab_Command_declareBuiltinCommandElab___closed__3; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__35; @@ -522,7 +521,7 @@ lean_object* l_Lean_Elab_Command_mkFreshKind(lean_object*, lean_object*, lean_ob lean_object* l_Lean_Elab_Command_elabMixfix(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_mkKindName(lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__1; lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__1; @@ -540,7 +539,7 @@ extern lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_elabSyntax___closed__26; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__107; lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__72; extern lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__5; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__96; @@ -556,11 +555,11 @@ extern lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___rarg__ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__44; extern lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__1; lean_object* l___private_Init_Lean_Elab_Command_7__mkTermState(lean_object*); -lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__35; extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__12; -lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__70; @@ -568,17 +567,17 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__17; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__4; extern lean_object* l_Lean_Parser_Term_char___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__113; -lean_object* l_Lean_Elab_Command_expandNotation(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandNotation(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Command_3__setState(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Syntax_6__elabKind(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__31; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__31; extern lean_object* l_Lean_Parser_Level_paren___closed__1; uint8_t lean_string_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__8; uint8_t lean_nat_dec_lt(lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__59; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__82; extern lean_object* l_Lean_Parser_Command_declId___elambda__1___closed__2; @@ -7659,13 +7658,13 @@ return x_20; } } } -lean_object* l_Lean_Elab_Command_Macro_mkFreshKind(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_Macro_mkFreshKind(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; -x_3 = l_Lean_Elab_Command_mkKindName(x_1); -x_4 = l_Lean_Macro_addMacroScope(x_3, x_2); -return x_4; +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Elab_Command_mkKindName(x_1); +x_5 = l_Lean_Macro_addMacroScope(x_4, x_2, x_3); +return x_5; } } lean_object* l___private_Init_Lean_Elab_Syntax_6__elabKind(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { @@ -12866,324 +12865,350 @@ lean_dec(x_1); return x_3; } } -lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; uint8_t x_5; +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_inc(x_1); -x_3 = l_Lean_Syntax_getKind(x_1); -x_4 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; -x_5 = lean_name_eq(x_3, x_4); -if (x_5 == 0) +x_4 = l_Lean_Syntax_getKind(x_1); +x_5 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; +x_6 = lean_name_eq(x_4, x_5); +if (x_6 == 0) { -lean_object* x_6; uint8_t x_7; -x_6 = l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__2; -x_7 = lean_name_eq(x_3, x_6); -if (x_7 == 0) +lean_object* x_7; uint8_t x_8; +x_7 = l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__2; +x_8 = lean_name_eq(x_4, x_7); +if (x_8 == 0) { -lean_object* x_8; uint8_t x_9; -x_8 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; -x_9 = lean_name_eq(x_3, x_8); -lean_dec(x_3); -if (x_9 == 0) -{ -lean_object* x_10; -lean_dec(x_1); -x_10 = l_Lean_Macro_throwUnsupported___closed__1; -return x_10; -} -else -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; -x_11 = l_Lean_Syntax_getArgs(x_1); -lean_dec(x_1); -x_12 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_13 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_13, 0, x_12); -lean_ctor_set(x_13, 1, x_11); -x_14 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_14, 0, x_13); -return x_14; -} -} -else -{ -lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -lean_dec(x_3); -x_15 = lean_unsigned_to_nat(0u); -x_16 = l_Lean_Syntax_getArg(x_1, x_15); -x_17 = lean_unsigned_to_nat(1u); -x_18 = l_Lean_Syntax_getArg(x_16, x_17); -lean_dec(x_16); -if (lean_obj_tag(x_18) == 2) -{ -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; lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_20 = lean_ctor_get(x_18, 0); -x_21 = lean_ctor_get(x_18, 1); -x_22 = l_Lean_mkStxStrLit(x_21, x_20); -x_23 = l_Lean_Syntax_getArg(x_1, x_17); -lean_dec(x_1); -x_24 = l_Lean_mkAppStx___closed__9; -x_25 = lean_array_push(x_24, x_22); -x_26 = lean_array_push(x_25, x_23); -x_27 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -lean_ctor_set_tag(x_18, 1); -lean_ctor_set(x_18, 1, x_26); -lean_ctor_set(x_18, 0, x_27); -x_28 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_28, 0, x_18); -return x_28; -} -else -{ -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; -x_29 = lean_ctor_get(x_18, 0); -x_30 = lean_ctor_get(x_18, 1); -lean_inc(x_30); -lean_inc(x_29); -lean_dec(x_18); -x_31 = l_Lean_mkStxStrLit(x_30, x_29); -x_32 = l_Lean_Syntax_getArg(x_1, x_17); -lean_dec(x_1); -x_33 = l_Lean_mkAppStx___closed__9; -x_34 = lean_array_push(x_33, x_31); -x_35 = lean_array_push(x_34, x_32); -x_36 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_37 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_37, 0, x_36); -lean_ctor_set(x_37, 1, x_35); -x_38 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_38, 0, x_37); -return x_38; -} -} -else -{ -lean_object* x_39; -lean_dec(x_18); -lean_dec(x_1); -x_39 = l_Lean_Macro_throwUnsupported___closed__1; -return x_39; -} -} -} -else -{ -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; -lean_dec(x_3); -x_40 = l_Lean_Parser_termParser___closed__2; -x_41 = l_Lean_mkIdentFrom(x_1, x_40); -x_42 = lean_unsigned_to_nat(1u); -x_43 = l_Lean_Syntax_getArg(x_1, x_42); -lean_dec(x_1); -x_44 = l_Lean_mkAppStx___closed__9; -x_45 = lean_array_push(x_44, x_41); -x_46 = lean_array_push(x_45, x_43); -x_47 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; -x_48 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_48, 0, x_47); -lean_ctor_set(x_48, 1, x_46); -x_49 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_49, 0, x_48); -return x_49; -} -} -} -lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(x_1, x_2); -lean_dec(x_2); -return x_3; -} -} -lean_object* l_Lean_Elab_Command_strLitPrecToPattern(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_3 = lean_unsigned_to_nat(0u); -x_4 = l_Lean_Syntax_getArg(x_1, x_3); -x_5 = l_Lean_Syntax_isStrLit_x3f(x_4); +lean_object* x_9; uint8_t x_10; +x_9 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; +x_10 = lean_name_eq(x_4, x_9); lean_dec(x_4); -if (lean_obj_tag(x_5) == 0) +if (x_10 == 0) { -lean_object* x_6; -x_6 = l_Lean_Macro_throwUnsupported___closed__1; -return x_6; +lean_object* x_11; lean_object* x_12; +lean_dec(x_1); +x_11 = lean_box(1); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_3); +return x_12; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_ctor_get(x_5, 0); -lean_inc(x_7); -lean_dec(x_5); -x_8 = l_Lean_mkAtomFrom(x_1, x_7); -x_9 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_9, 0, x_8); -return x_9; -} -} -} -lean_object* l_Lean_Elab_Command_strLitPrecToPattern___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Elab_Command_strLitPrecToPattern(x_1, x_2); -lean_dec(x_2); +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); -return x_3; -} -} -lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; uint8_t x_5; -lean_inc(x_1); -x_3 = l_Lean_Syntax_getKind(x_1); -x_4 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; -x_5 = lean_name_eq(x_3, x_4); -if (x_5 == 0) -{ -lean_object* x_6; uint8_t x_7; -x_6 = l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__2; -x_7 = lean_name_eq(x_3, x_6); -if (x_7 == 0) -{ -lean_object* x_8; uint8_t x_9; -x_8 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; -x_9 = lean_name_eq(x_3, x_8); -lean_dec(x_3); -if (x_9 == 0) -{ -lean_object* x_10; -lean_dec(x_1); -x_10 = l_Lean_Macro_throwUnsupported___closed__1; -return x_10; -} -else -{ -lean_object* x_11; -x_11 = l_Lean_Elab_Command_strLitPrecToPattern(x_1, x_2); -lean_dec(x_1); -return x_11; -} -} -else -{ -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -lean_dec(x_3); -x_12 = lean_unsigned_to_nat(0u); -x_13 = l_Lean_Syntax_getArg(x_1, x_12); -lean_dec(x_1); -x_14 = lean_unsigned_to_nat(1u); -x_15 = l_Lean_Syntax_getArg(x_13, x_14); -lean_dec(x_13); -x_16 = lean_alloc_ctor(1, 1, 0); +x_14 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_13); +x_16 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_3); return x_16; } } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; -lean_dec(x_3); +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +lean_dec(x_4); x_17 = lean_unsigned_to_nat(0u); x_18 = l_Lean_Syntax_getArg(x_1, x_17); +x_19 = lean_unsigned_to_nat(1u); +x_20 = l_Lean_Syntax_getArg(x_18, x_19); +lean_dec(x_18); +if (lean_obj_tag(x_20) == 2) +{ +uint8_t x_21; +x_21 = !lean_is_exclusive(x_20); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_22 = lean_ctor_get(x_20, 0); +x_23 = lean_ctor_get(x_20, 1); +x_24 = l_Lean_mkStxStrLit(x_23, x_22); +x_25 = l_Lean_Syntax_getArg(x_1, x_19); lean_dec(x_1); -x_19 = l_Lean_mkTermIdFromIdent(x_18); -x_20 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; -x_21 = lean_array_push(x_20, x_19); -x_22 = l_Lean_mkOptionalNode___closed__1; -x_23 = lean_array_push(x_21, x_22); -x_24 = lean_array_push(x_23, x_22); -x_25 = l_Lean_Parser_mkAntiquot___closed__1; -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_24); -x_27 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_27, 0, x_26); -return x_27; +x_26 = l_Lean_mkAppStx___closed__9; +x_27 = lean_array_push(x_26, x_24); +x_28 = lean_array_push(x_27, x_25); +x_29 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +lean_ctor_set_tag(x_20, 1); +lean_ctor_set(x_20, 1, x_28); +lean_ctor_set(x_20, 0, x_29); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_20); +lean_ctor_set(x_30, 1, x_3); +return x_30; } -} -} -lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern___boxed(lean_object* x_1, lean_object* x_2) { -_start: +else { -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandNotationItemIntoPattern(x_1, x_2); -lean_dec(x_2); -return x_3; +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_31 = lean_ctor_get(x_20, 0); +x_32 = lean_ctor_get(x_20, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_20); +x_33 = l_Lean_mkStxStrLit(x_32, x_31); +x_34 = l_Lean_Syntax_getArg(x_1, x_19); +lean_dec(x_1); +x_35 = l_Lean_mkAppStx___closed__9; +x_36 = lean_array_push(x_35, x_33); +x_37 = lean_array_push(x_36, x_34); +x_38 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_38); +lean_ctor_set(x_39, 1, x_37); +x_40 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_40, 0, x_39); +lean_ctor_set(x_40, 1, x_3); +return x_40; } } -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: +else { -lean_object* x_4; uint8_t x_5; -x_4 = lean_array_get_size(x_2); -x_5 = lean_nat_dec_lt(x_1, x_4); +lean_object* x_41; lean_object* x_42; +lean_dec(x_20); +lean_dec(x_1); +x_41 = lean_box(1); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_3); +return x_42; +} +} +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_dec(x_4); -if (x_5 == 0) -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_43 = l_Lean_Parser_termParser___closed__2; +x_44 = l_Lean_mkIdentFrom(x_1, x_43); +x_45 = lean_unsigned_to_nat(1u); +x_46 = l_Lean_Syntax_getArg(x_1, x_45); lean_dec(x_1); -x_6 = l_Array_empty___closed__1; -x_7 = x_2; -x_8 = lean_alloc_ctor(1, 1, 0); +x_47 = l_Lean_mkAppStx___closed__9; +x_48 = lean_array_push(x_47, x_44); +x_49 = lean_array_push(x_48, x_46); +x_50 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_49); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_3); +return x_52; +} +} +} +lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Elab_Command_strLitPrecToPattern(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_unsigned_to_nat(0u); +x_5 = l_Lean_Syntax_getArg(x_1, x_4); +x_6 = l_Lean_Syntax_isStrLit_x3f(x_5); +lean_dec(x_5); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_box(1); +x_8 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_3); return x_8; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = lean_array_fget(x_2, x_1); -x_10 = lean_box(0); -x_11 = x_10; -x_12 = lean_array_fset(x_2, x_1, x_11); +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_6, 0); lean_inc(x_9); -x_13 = l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(x_9, x_3); -if (lean_obj_tag(x_13) == 0) +lean_dec(x_6); +x_10 = l_Lean_mkAtomFrom(x_1, x_9); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_3); +return x_11; +} +} +} +lean_object* l_Lean_Elab_Command_strLitPrecToPattern___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: { -uint8_t x_14; -lean_dec(x_12); -lean_dec(x_9); +lean_object* x_4; +x_4 = l_Lean_Elab_Command_strLitPrecToPattern(x_1, x_2, x_3); +lean_dec(x_2); lean_dec(x_1); -x_14 = !lean_is_exclusive(x_13); -if (x_14 == 0) +return x_4; +} +} +lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: { +lean_object* x_4; lean_object* x_5; uint8_t x_6; +lean_inc(x_1); +x_4 = l_Lean_Syntax_getKind(x_1); +x_5 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; +x_6 = lean_name_eq(x_4, x_5); +if (x_6 == 0) +{ +lean_object* x_7; uint8_t x_8; +x_7 = l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__2; +x_8 = lean_name_eq(x_4, x_7); +if (x_8 == 0) +{ +lean_object* x_9; uint8_t x_10; +x_9 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; +x_10 = lean_name_eq(x_4, x_9); +lean_dec(x_4); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +lean_dec(x_1); +x_11 = lean_box(1); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_3); +return x_12; +} +else +{ +lean_object* x_13; +x_13 = l_Lean_Elab_Command_strLitPrecToPattern(x_1, x_2, x_3); +lean_dec(x_1); return x_13; } -else -{ -lean_object* x_15; lean_object* x_16; -x_15 = lean_ctor_get(x_13, 0); -lean_inc(x_15); -lean_dec(x_13); -x_16 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_16, 0, x_15); -return x_16; -} } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_17 = lean_ctor_get(x_13, 0); -lean_inc(x_17); -lean_dec(x_13); -x_18 = lean_unsigned_to_nat(1u); -x_19 = lean_nat_add(x_1, x_18); -x_20 = x_17; -lean_dec(x_9); -x_21 = lean_array_fset(x_12, x_1, x_20); +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_dec(x_4); +x_14 = lean_unsigned_to_nat(0u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); lean_dec(x_1); -x_1 = x_19; -x_2 = x_21; +x_16 = lean_unsigned_to_nat(1u); +x_17 = l_Lean_Syntax_getArg(x_15, x_16); +lean_dec(x_15); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_3); +return x_18; +} +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +lean_dec(x_4); +x_19 = lean_unsigned_to_nat(0u); +x_20 = l_Lean_Syntax_getArg(x_1, x_19); +lean_dec(x_1); +x_21 = l_Lean_mkTermIdFromIdent(x_20); +x_22 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; +x_23 = lean_array_push(x_22, x_21); +x_24 = l_Lean_mkOptionalNode___closed__1; +x_25 = lean_array_push(x_23, x_24); +x_26 = lean_array_push(x_25, x_24); +x_27 = l_Lean_Parser_mkAntiquot___closed__1; +x_28 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +x_29 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_3); +return x_29; +} +} +} +lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandNotationItemIntoPattern(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_array_get_size(x_2); +x_6 = lean_nat_dec_lt(x_1, x_5); +lean_dec(x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_1); +x_7 = l_Array_empty___closed__1; +x_8 = x_2; +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_4); +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_array_fget(x_2, x_1); +x_11 = lean_box(0); +x_12 = x_11; +x_13 = lean_array_fset(x_2, x_1, x_12); +lean_inc(x_10); +x_14 = l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(x_10, x_3, x_4); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_1, x_17); +x_19 = x_15; +lean_dec(x_10); +x_20 = lean_array_fset(x_13, x_1, x_19); +lean_dec(x_1); +x_1 = x_18; +x_2 = x_20; +x_4 = x_16; goto _start; } +else +{ +uint8_t x_22; +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_14); +if (x_22 == 0) +{ +return x_14; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_14, 0); +x_24 = lean_ctor_get(x_14, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_14); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +return x_25; +} +} } } } @@ -13293,69 +13318,76 @@ goto _start; } } } -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; uint8_t x_5; -x_4 = lean_array_get_size(x_2); -x_5 = lean_nat_dec_lt(x_1, x_4); -lean_dec(x_4); -if (x_5 == 0) +lean_object* x_5; uint8_t x_6; +x_5 = lean_array_get_size(x_2); +x_6 = lean_nat_dec_lt(x_1, x_5); +lean_dec(x_5); +if (x_6 == 0) { -lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_dec(x_1); -x_6 = l_Array_empty___closed__1; -x_7 = x_2; -x_8 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_8, 0, x_7); -return x_8; +x_7 = l_Array_empty___closed__1; +x_8 = x_2; +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_4); +return x_9; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = lean_array_fget(x_2, x_1); -x_10 = lean_box(0); -x_11 = x_10; -x_12 = lean_array_fset(x_2, x_1, x_11); -lean_inc(x_9); -x_13 = l_Lean_Elab_Command_expandNotationItemIntoPattern(x_9, x_3); -if (lean_obj_tag(x_13) == 0) +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_array_fget(x_2, x_1); +x_11 = lean_box(0); +x_12 = x_11; +x_13 = lean_array_fset(x_2, x_1, x_12); +lean_inc(x_10); +x_14 = l_Lean_Elab_Command_expandNotationItemIntoPattern(x_10, x_3, x_4); +if (lean_obj_tag(x_14) == 0) { -uint8_t x_14; -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_1); -x_14 = !lean_is_exclusive(x_13); -if (x_14 == 0) -{ -return x_13; -} -else -{ -lean_object* x_15; lean_object* x_16; -x_15 = lean_ctor_get(x_13, 0); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_15 = lean_ctor_get(x_14, 0); lean_inc(x_15); -lean_dec(x_13); -x_16 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_16, 0, x_15); -return x_16; -} +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_1, x_17); +x_19 = x_15; +lean_dec(x_10); +x_20 = lean_array_fset(x_13, x_1, x_19); +lean_dec(x_1); +x_1 = x_18; +x_2 = x_20; +x_4 = x_16; +goto _start; } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_17 = lean_ctor_get(x_13, 0); -lean_inc(x_17); +uint8_t x_22; lean_dec(x_13); -x_18 = lean_unsigned_to_nat(1u); -x_19 = lean_nat_add(x_1, x_18); -x_20 = x_17; -lean_dec(x_9); -x_21 = lean_array_fset(x_12, x_1, x_20); +lean_dec(x_10); lean_dec(x_1); -x_1 = x_19; -x_2 = x_21; -goto _start; +x_22 = !lean_is_exclusive(x_14); +if (x_22 == 0) +{ +return x_14; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_14, 0); +x_24 = lean_ctor_get(x_14, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_14); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +return x_25; +} } } } @@ -13392,315 +13424,331 @@ x_3 = lean_array_push(x_1, x_2); return x_3; } } -lean_object* l_Lean_Elab_Command_expandNotation(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_expandNotation(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_3; lean_object* x_124; uint8_t x_125; -x_124 = l_Lean_Parser_Command_notation___elambda__1___closed__2; +uint8_t x_4; lean_object* x_131; uint8_t x_132; +x_131 = l_Lean_Parser_Command_notation___elambda__1___closed__2; lean_inc(x_1); -x_125 = l_Lean_Syntax_isOfKind(x_1, x_124); -if (x_125 == 0) +x_132 = l_Lean_Syntax_isOfKind(x_1, x_131); +if (x_132 == 0) +{ +uint8_t x_133; +x_133 = 0; +x_4 = x_133; +goto block_130; +} +else +{ +lean_object* x_134; lean_object* x_135; lean_object* x_136; uint8_t x_137; +x_134 = l_Lean_Syntax_getArgs(x_1); +x_135 = lean_array_get_size(x_134); +lean_dec(x_134); +x_136 = lean_unsigned_to_nat(4u); +x_137 = lean_nat_dec_eq(x_135, x_136); +lean_dec(x_135); +x_4 = x_137; +goto block_130; +} +block_130: +{ +uint8_t x_5; +x_5 = l_coeDecidableEq(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +lean_dec(x_1); +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_8 = lean_unsigned_to_nat(1u); +x_9 = l_Lean_Syntax_getArg(x_1, x_8); +x_10 = lean_unsigned_to_nat(3u); +x_11 = l_Lean_Syntax_getArg(x_1, x_10); +x_12 = l_Lean_Syntax_getArgs(x_9); +lean_dec(x_9); +x_13 = l_Lean_Parser_termParser___closed__2; +lean_inc(x_2); +x_14 = l_Lean_Elab_Command_Macro_mkFreshKind(x_13, x_2, x_3); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(0u); +lean_inc(x_12); +x_18 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(x_17, x_12, x_2, x_16); +if (lean_obj_tag(x_18) == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +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 = l_Lean_mkIdentFrom(x_1, x_13); +x_22 = l___regBuiltinParser_Lean_Parser_Command_antiquot___closed__2; +lean_inc(x_12); +x_23 = l_Array_filterAux___main___at_Lean_Elab_Command_expandNotation___spec__2(x_22, x_12, x_17, x_17); +x_24 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__3(x_17, x_23); +x_25 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_24, x_11); +lean_dec(x_24); +x_26 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(x_17, x_12, x_2, x_20); +lean_dec(x_2); +if (lean_obj_tag(x_26) == 0) +{ +uint8_t x_27; +x_27 = !lean_is_exclusive(x_26); +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_28 = lean_ctor_get(x_26, 0); +lean_inc(x_15); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_15); +lean_ctor_set(x_29, 1, x_28); +x_30 = l_Lean_mkIdentFrom(x_1, x_15); +lean_dec(x_1); +x_31 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_32 = lean_array_push(x_31, x_30); +x_33 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_34 = lean_array_push(x_32, x_33); +x_35 = l_Lean_nullKind___closed__2; +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_34); +x_37 = l_Lean_Elab_Command_expandNotation___closed__2; +x_38 = lean_array_push(x_37, x_36); +x_39 = l_Array_empty___closed__1; +x_40 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_17, x_39); +lean_dec(x_19); +x_41 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_41, 0, x_35); +lean_ctor_set(x_41, 1, x_40); +x_42 = lean_array_push(x_38, x_41); +x_43 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_44 = lean_array_push(x_42, x_43); +x_45 = lean_array_push(x_44, x_21); +x_46 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_45); +x_48 = lean_array_push(x_39, x_47); +x_49 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_50 = lean_array_push(x_49, x_29); +x_51 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_52 = lean_array_push(x_50, x_51); +x_53 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +x_55 = lean_array_push(x_39, x_54); +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_35); +lean_ctor_set(x_56, 1, x_55); +x_57 = lean_array_push(x_39, x_56); +x_58 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_59 = lean_array_push(x_57, x_58); +x_60 = lean_array_push(x_49, x_25); +x_61 = lean_array_push(x_60, x_51); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_53); +lean_ctor_set(x_62, 1, x_61); +x_63 = lean_array_push(x_59, x_62); +x_64 = l_Lean_Parser_Term_matchAlt___closed__2; +x_65 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_65, 0, x_64); +lean_ctor_set(x_65, 1, x_63); +x_66 = lean_array_push(x_39, x_65); +x_67 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_67, 0, x_35); +lean_ctor_set(x_67, 1, x_66); +x_68 = l_Lean_Elab_Command_expandNotation___closed__3; +x_69 = lean_array_push(x_68, x_67); +x_70 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_70); +lean_ctor_set(x_71, 1, x_69); +x_72 = lean_array_push(x_48, x_71); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_35); +lean_ctor_set(x_73, 1, x_72); +lean_ctor_set(x_26, 0, x_73); +return x_26; +} +else +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; +x_74 = lean_ctor_get(x_26, 0); +x_75 = lean_ctor_get(x_26, 1); +lean_inc(x_75); +lean_inc(x_74); +lean_dec(x_26); +lean_inc(x_15); +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_15); +lean_ctor_set(x_76, 1, x_74); +x_77 = l_Lean_mkIdentFrom(x_1, x_15); +lean_dec(x_1); +x_78 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_79 = lean_array_push(x_78, x_77); +x_80 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_81 = lean_array_push(x_79, x_80); +x_82 = l_Lean_nullKind___closed__2; +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_82); +lean_ctor_set(x_83, 1, x_81); +x_84 = l_Lean_Elab_Command_expandNotation___closed__2; +x_85 = lean_array_push(x_84, x_83); +x_86 = l_Array_empty___closed__1; +x_87 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_17, x_86); +lean_dec(x_19); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_82); +lean_ctor_set(x_88, 1, x_87); +x_89 = lean_array_push(x_85, x_88); +x_90 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_91 = lean_array_push(x_89, x_90); +x_92 = lean_array_push(x_91, x_21); +x_93 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_93); +lean_ctor_set(x_94, 1, x_92); +x_95 = lean_array_push(x_86, x_94); +x_96 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_97 = lean_array_push(x_96, x_76); +x_98 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_99 = lean_array_push(x_97, x_98); +x_100 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_101, 0, x_100); +lean_ctor_set(x_101, 1, x_99); +x_102 = lean_array_push(x_86, x_101); +x_103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_103, 0, x_82); +lean_ctor_set(x_103, 1, x_102); +x_104 = lean_array_push(x_86, x_103); +x_105 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_106 = lean_array_push(x_104, x_105); +x_107 = lean_array_push(x_96, x_25); +x_108 = lean_array_push(x_107, x_98); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_100); +lean_ctor_set(x_109, 1, x_108); +x_110 = lean_array_push(x_106, x_109); +x_111 = l_Lean_Parser_Term_matchAlt___closed__2; +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_110); +x_113 = lean_array_push(x_86, x_112); +x_114 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_114, 0, x_82); +lean_ctor_set(x_114, 1, x_113); +x_115 = l_Lean_Elab_Command_expandNotation___closed__3; +x_116 = lean_array_push(x_115, x_114); +x_117 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_116); +x_119 = lean_array_push(x_95, x_118); +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_82); +lean_ctor_set(x_120, 1, x_119); +x_121 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_121, 0, x_120); +lean_ctor_set(x_121, 1, x_75); +return x_121; +} +} +else +{ +uint8_t x_122; +lean_dec(x_25); +lean_dec(x_21); +lean_dec(x_19); +lean_dec(x_15); +lean_dec(x_1); +x_122 = !lean_is_exclusive(x_26); +if (x_122 == 0) +{ +return x_26; +} +else +{ +lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_123 = lean_ctor_get(x_26, 0); +x_124 = lean_ctor_get(x_26, 1); +lean_inc(x_124); +lean_inc(x_123); +lean_dec(x_26); +x_125 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_125, 0, x_123); +lean_ctor_set(x_125, 1, x_124); +return x_125; +} +} +} +else { uint8_t x_126; -x_126 = 0; -x_3 = x_126; -goto block_123; -} -else -{ -lean_object* x_127; lean_object* x_128; lean_object* x_129; uint8_t x_130; -x_127 = l_Lean_Syntax_getArgs(x_1); -x_128 = lean_array_get_size(x_127); -lean_dec(x_127); -x_129 = lean_unsigned_to_nat(4u); -x_130 = lean_nat_dec_eq(x_128, x_129); -lean_dec(x_128); -x_3 = x_130; -goto block_123; -} -block_123: -{ -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); -if (x_4 == 0) -{ -lean_object* x_5; -lean_dec(x_2); -lean_dec(x_1); -x_5 = l_Lean_Macro_throwUnsupported___closed__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; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = lean_unsigned_to_nat(3u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = l_Lean_Syntax_getArgs(x_7); -lean_dec(x_7); -x_11 = l_Lean_Parser_termParser___closed__2; -lean_inc(x_2); -x_12 = l_Lean_Elab_Command_Macro_mkFreshKind(x_11, x_2); -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); -lean_dec(x_12); -x_14 = lean_unsigned_to_nat(0u); -lean_inc(x_10); -x_15 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(x_14, x_10, x_2); -if (lean_obj_tag(x_15) == 0) -{ -uint8_t x_16; -lean_dec(x_13); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_2); -lean_dec(x_1); -x_16 = !lean_is_exclusive(x_15); -if (x_16 == 0) -{ -return x_15; -} -else -{ -lean_object* x_17; lean_object* x_18; -x_17 = lean_ctor_get(x_15, 0); -lean_inc(x_17); lean_dec(x_15); -x_18 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_18, 0, x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_2); +lean_dec(x_1); +x_126 = !lean_is_exclusive(x_18); +if (x_126 == 0) +{ return x_18; } -} else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_19 = lean_ctor_get(x_15, 0); -lean_inc(x_19); -lean_dec(x_15); -x_20 = l_Lean_mkIdentFrom(x_1, x_11); -x_21 = l___regBuiltinParser_Lean_Parser_Command_antiquot___closed__2; -lean_inc(x_10); -x_22 = l_Array_filterAux___main___at_Lean_Elab_Command_expandNotation___spec__2(x_21, x_10, x_14, x_14); -x_23 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__3(x_14, x_22); -x_24 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_23, x_9); -lean_dec(x_23); -x_25 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(x_14, x_10, x_2); -lean_dec(x_2); -if (lean_obj_tag(x_25) == 0) -{ -uint8_t x_26; -lean_dec(x_24); -lean_dec(x_20); -lean_dec(x_19); -lean_dec(x_13); -lean_dec(x_1); -x_26 = !lean_is_exclusive(x_25); -if (x_26 == 0) -{ -return x_25; -} -else -{ -lean_object* x_27; lean_object* x_28; -x_27 = lean_ctor_get(x_25, 0); -lean_inc(x_27); -lean_dec(x_25); -x_28 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_28, 0, x_27); -return x_28; -} -} -else -{ -uint8_t x_29; -x_29 = !lean_is_exclusive(x_25); -if (x_29 == 0) -{ -lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; -x_30 = lean_ctor_get(x_25, 0); -lean_inc(x_13); -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_13); -lean_ctor_set(x_31, 1, x_30); -x_32 = l_Lean_mkIdentFrom(x_1, x_13); -lean_dec(x_1); -x_33 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_34 = lean_array_push(x_33, x_32); -x_35 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_36 = lean_array_push(x_34, x_35); -x_37 = l_Lean_nullKind___closed__2; -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_36); -x_39 = l_Lean_Elab_Command_expandNotation___closed__2; -x_40 = lean_array_push(x_39, x_38); -x_41 = l_Array_empty___closed__1; -x_42 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_14, x_41); -lean_dec(x_19); -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_37); -lean_ctor_set(x_43, 1, x_42); -x_44 = lean_array_push(x_40, x_43); -x_45 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_46 = lean_array_push(x_44, x_45); -x_47 = lean_array_push(x_46, x_20); -x_48 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_49 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_47); -x_50 = lean_array_push(x_41, x_49); -x_51 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_52 = lean_array_push(x_51, x_31); -x_53 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_54 = lean_array_push(x_52, x_53); -x_55 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = lean_array_push(x_41, x_56); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_37); -lean_ctor_set(x_58, 1, x_57); -x_59 = lean_array_push(x_41, x_58); -x_60 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_61 = lean_array_push(x_59, x_60); -x_62 = lean_array_push(x_51, x_24); -x_63 = lean_array_push(x_62, x_53); -x_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_55); -lean_ctor_set(x_64, 1, x_63); -x_65 = lean_array_push(x_61, x_64); -x_66 = l_Lean_Parser_Term_matchAlt___closed__2; -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_66); -lean_ctor_set(x_67, 1, x_65); -x_68 = lean_array_push(x_41, x_67); -x_69 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_69, 0, x_37); -lean_ctor_set(x_69, 1, x_68); -x_70 = l_Lean_Elab_Command_expandNotation___closed__3; -x_71 = lean_array_push(x_70, x_69); -x_72 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_72); -lean_ctor_set(x_73, 1, x_71); -x_74 = lean_array_push(x_50, x_73); -x_75 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_75, 0, x_37); -lean_ctor_set(x_75, 1, x_74); -lean_ctor_set(x_25, 0, x_75); -return x_25; -} -else -{ -lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_76 = lean_ctor_get(x_25, 0); -lean_inc(x_76); -lean_dec(x_25); -lean_inc(x_13); -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_13); -lean_ctor_set(x_77, 1, x_76); -x_78 = l_Lean_mkIdentFrom(x_1, x_13); -lean_dec(x_1); -x_79 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_80 = lean_array_push(x_79, x_78); -x_81 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_82 = lean_array_push(x_80, x_81); -x_83 = l_Lean_nullKind___closed__2; -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_83); -lean_ctor_set(x_84, 1, x_82); -x_85 = l_Lean_Elab_Command_expandNotation___closed__2; -x_86 = lean_array_push(x_85, x_84); -x_87 = l_Array_empty___closed__1; -x_88 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_14, x_87); -lean_dec(x_19); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_83); -lean_ctor_set(x_89, 1, x_88); -x_90 = lean_array_push(x_86, x_89); -x_91 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_92 = lean_array_push(x_90, x_91); -x_93 = lean_array_push(x_92, x_20); -x_94 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_95 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_93); -x_96 = lean_array_push(x_87, x_95); -x_97 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_98 = lean_array_push(x_97, x_77); -x_99 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_100 = lean_array_push(x_98, x_99); -x_101 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_101); -lean_ctor_set(x_102, 1, x_100); -x_103 = lean_array_push(x_87, x_102); -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_83); -lean_ctor_set(x_104, 1, x_103); -x_105 = lean_array_push(x_87, x_104); -x_106 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_107 = lean_array_push(x_105, x_106); -x_108 = lean_array_push(x_97, x_24); -x_109 = lean_array_push(x_108, x_99); -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_101); -lean_ctor_set(x_110, 1, x_109); -x_111 = lean_array_push(x_107, x_110); -x_112 = l_Lean_Parser_Term_matchAlt___closed__2; -x_113 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_113, 0, x_112); -lean_ctor_set(x_113, 1, x_111); -x_114 = lean_array_push(x_87, x_113); -x_115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_115, 0, x_83); -lean_ctor_set(x_115, 1, x_114); -x_116 = l_Lean_Elab_Command_expandNotation___closed__3; -x_117 = lean_array_push(x_116, x_115); -x_118 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_118); -lean_ctor_set(x_119, 1, x_117); -x_120 = lean_array_push(x_96, x_119); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_83); -lean_ctor_set(x_121, 1, x_120); -x_122 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_122, 0, x_121); -return x_122; +lean_object* x_127; lean_object* x_128; lean_object* x_129; +x_127 = lean_ctor_get(x_18, 0); +x_128 = lean_ctor_get(x_18, 1); +lean_inc(x_128); +lean_inc(x_127); +lean_dec(x_18); +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_127); +lean_ctor_set(x_129, 1, x_128); +return x_129; } } } } } } -} -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; -x_4 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(x_1, x_2, x_3); +lean_object* x_5; +x_5 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(x_1, x_2, x_3, x_4); lean_dec(x_3); -return x_4; +return x_5; } } -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; -x_4 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(x_1, x_2, x_3); +lean_object* x_5; +x_5 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(x_1, x_2, x_3, x_4); lean_dec(x_3); -return x_4; +return x_5; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Command_expandNotation___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_expandNotation), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_expandNotation), 3, 0); return x_1; } } @@ -13714,1059 +13762,1122 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; uint8_t x_5; +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_inc(x_1); -x_3 = l_Lean_Syntax_getKind(x_1); -x_4 = l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__2; -x_5 = lean_name_eq(x_3, x_4); -if (x_5 == 0) +x_4 = l_Lean_Syntax_getKind(x_1); +x_5 = l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__2; +x_6 = lean_name_eq(x_4, x_5); +if (x_6 == 0) { -lean_object* x_6; uint8_t x_7; -x_6 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; -x_7 = lean_name_eq(x_3, x_6); -lean_dec(x_3); -if (x_7 == 0) +lean_object* x_7; uint8_t x_8; +x_7 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; +x_8 = lean_name_eq(x_4, x_7); +lean_dec(x_4); +if (x_8 == 0) { -lean_object* x_8; +lean_object* x_9; lean_object* x_10; lean_dec(x_1); -x_8 = l_Lean_Macro_throwUnsupported___closed__1; -return x_8; +x_9 = lean_box(1); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_3); +return x_10; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; -x_9 = l_Lean_Syntax_getArgs(x_1); +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_11 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); -x_10 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -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_alloc_ctor(1, 1, 0); -lean_ctor_set(x_12, 0, x_11); -return x_12; +x_12 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_3); +return x_14; } } else { -lean_object* x_13; lean_object* x_14; -lean_dec(x_3); -x_13 = lean_unsigned_to_nat(2u); -x_14 = l_Lean_Syntax_getArg(x_1, x_13); -switch (lean_obj_tag(x_14)) { +lean_object* x_15; lean_object* x_16; +lean_dec(x_4); +x_15 = lean_unsigned_to_nat(2u); +x_16 = l_Lean_Syntax_getArg(x_1, x_15); +switch (lean_obj_tag(x_16)) { case 2: { -lean_object* x_15; lean_object* x_16; uint8_t x_17; +lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_dec(x_1); -x_15 = lean_ctor_get(x_14, 1); -lean_inc(x_15); -x_16 = l_Lean_identKind___closed__1; -x_17 = lean_string_dec_eq(x_15, x_16); -if (x_17 == 0) -{ -lean_object* x_18; uint8_t x_19; -x_18 = l_Lean_Parser_Level_num___elambda__1___closed__1; -x_19 = lean_string_dec_eq(x_15, x_18); +x_17 = lean_ctor_get(x_16, 1); +lean_inc(x_17); +x_18 = l_Lean_identKind___closed__1; +x_19 = lean_string_dec_eq(x_17, x_18); if (x_19 == 0) { lean_object* x_20; uint8_t x_21; -x_20 = l_Lean_Parser_Term_str___elambda__1___closed__1; -x_21 = lean_string_dec_eq(x_15, x_20); +x_20 = l_Lean_Parser_Level_num___elambda__1___closed__1; +x_21 = lean_string_dec_eq(x_17, x_20); if (x_21 == 0) { lean_object* x_22; uint8_t x_23; -x_22 = l_Lean_Parser_Term_char___elambda__1___closed__1; -x_23 = lean_string_dec_eq(x_15, x_22); -lean_dec(x_15); +x_22 = l_Lean_Parser_Term_str___elambda__1___closed__1; +x_23 = lean_string_dec_eq(x_17, x_22); if (x_23 == 0) { -lean_object* x_24; -lean_dec(x_14); -x_24 = l_Lean_Macro_throwUnsupported___closed__1; -return x_24; +lean_object* x_24; uint8_t x_25; +x_24 = l_Lean_Parser_Term_char___elambda__1___closed__1; +x_25 = lean_string_dec_eq(x_17, x_24); +lean_dec(x_17); +if (x_25 == 0) +{ +lean_object* x_26; lean_object* x_27; +lean_dec(x_16); +x_26 = lean_box(1); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_3); +return x_27; } else { -lean_object* x_25; lean_object* x_26; uint8_t x_27; -x_25 = l_Lean_mkOptionalNode___closed__2; -lean_inc(x_14); -x_26 = lean_array_push(x_25, x_14); -x_27 = !lean_is_exclusive(x_14); -if (x_27 == 0) +lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_28 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_16); +x_29 = lean_array_push(x_28, x_16); +x_30 = !lean_is_exclusive(x_16); +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_14, 1); -lean_dec(x_28); -x_29 = lean_ctor_get(x_14, 0); -lean_dec(x_29); -x_30 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; -lean_ctor_set_tag(x_14, 1); -lean_ctor_set(x_14, 1, x_26); -lean_ctor_set(x_14, 0, x_30); -x_31 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_31, 0, x_14); -return x_31; -} -else -{ -lean_object* x_32; lean_object* x_33; lean_object* x_34; -lean_dec(x_14); -x_32 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set(x_33, 1, x_26); -x_34 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_34, 0, x_33); +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_31 = lean_ctor_get(x_16, 1); +lean_dec(x_31); +x_32 = lean_ctor_get(x_16, 0); +lean_dec(x_32); +x_33 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 1, x_29); +lean_ctor_set(x_16, 0, x_33); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_16); +lean_ctor_set(x_34, 1, x_3); return x_34; } +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; +lean_dec(x_16); +x_35 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_29); +x_37 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_3); +return x_37; +} } } else { -lean_object* x_35; lean_object* x_36; uint8_t x_37; -lean_dec(x_15); -x_35 = l_Lean_mkOptionalNode___closed__2; -lean_inc(x_14); -x_36 = lean_array_push(x_35, x_14); -x_37 = !lean_is_exclusive(x_14); -if (x_37 == 0) +lean_object* x_38; lean_object* x_39; uint8_t x_40; +lean_dec(x_17); +x_38 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_16); +x_39 = lean_array_push(x_38, x_16); +x_40 = !lean_is_exclusive(x_16); +if (x_40 == 0) { -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; -x_38 = lean_ctor_get(x_14, 1); -lean_dec(x_38); -x_39 = lean_ctor_get(x_14, 0); -lean_dec(x_39); -x_40 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; -lean_ctor_set_tag(x_14, 1); -lean_ctor_set(x_14, 1, x_36); -lean_ctor_set(x_14, 0, x_40); -x_41 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_41, 0, x_14); -return x_41; -} -else -{ -lean_object* x_42; lean_object* x_43; lean_object* x_44; -lean_dec(x_14); -x_42 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_42); -lean_ctor_set(x_43, 1, x_36); -x_44 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_44, 0, x_43); +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_41 = lean_ctor_get(x_16, 1); +lean_dec(x_41); +x_42 = lean_ctor_get(x_16, 0); +lean_dec(x_42); +x_43 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 1, x_39); +lean_ctor_set(x_16, 0, x_43); +x_44 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_44, 0, x_16); +lean_ctor_set(x_44, 1, x_3); return x_44; } +else +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; +lean_dec(x_16); +x_45 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_39); +x_47 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_3); +return x_47; +} } } else { -lean_object* x_45; lean_object* x_46; uint8_t x_47; -lean_dec(x_15); -x_45 = l_Lean_mkOptionalNode___closed__2; -lean_inc(x_14); -x_46 = lean_array_push(x_45, x_14); -x_47 = !lean_is_exclusive(x_14); -if (x_47 == 0) +lean_object* x_48; lean_object* x_49; uint8_t x_50; +lean_dec(x_17); +x_48 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_16); +x_49 = lean_array_push(x_48, x_16); +x_50 = !lean_is_exclusive(x_16); +if (x_50 == 0) { -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_48 = lean_ctor_get(x_14, 1); -lean_dec(x_48); -x_49 = lean_ctor_get(x_14, 0); -lean_dec(x_49); -x_50 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; -lean_ctor_set_tag(x_14, 1); -lean_ctor_set(x_14, 1, x_46); -lean_ctor_set(x_14, 0, x_50); -x_51 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_51, 0, x_14); -return x_51; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; -lean_dec(x_14); -x_52 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_46); -x_54 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_54, 0, x_53); +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_51 = lean_ctor_get(x_16, 1); +lean_dec(x_51); +x_52 = lean_ctor_get(x_16, 0); +lean_dec(x_52); +x_53 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 1, x_49); +lean_ctor_set(x_16, 0, x_53); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_16); +lean_ctor_set(x_54, 1, x_3); return x_54; } +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +lean_dec(x_16); +x_55 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_49); +x_57 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_3); +return x_57; +} } } else { -lean_object* x_55; lean_object* x_56; uint8_t x_57; -lean_dec(x_15); -x_55 = l_Lean_mkOptionalNode___closed__2; -lean_inc(x_14); -x_56 = lean_array_push(x_55, x_14); -x_57 = !lean_is_exclusive(x_14); -if (x_57 == 0) +lean_object* x_58; lean_object* x_59; uint8_t x_60; +lean_dec(x_17); +x_58 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_16); +x_59 = lean_array_push(x_58, x_16); +x_60 = !lean_is_exclusive(x_16); +if (x_60 == 0) { -lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; -x_58 = lean_ctor_get(x_14, 1); -lean_dec(x_58); -x_59 = lean_ctor_get(x_14, 0); -lean_dec(x_59); -x_60 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; -lean_ctor_set_tag(x_14, 1); -lean_ctor_set(x_14, 1, x_56); -lean_ctor_set(x_14, 0, x_60); -x_61 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_61, 0, x_14); -return x_61; -} -else -{ -lean_object* x_62; lean_object* x_63; lean_object* x_64; -lean_dec(x_14); -x_62 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; -x_63 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_56); -x_64 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_64, 0, x_63); +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_61 = lean_ctor_get(x_16, 1); +lean_dec(x_61); +x_62 = lean_ctor_get(x_16, 0); +lean_dec(x_62); +x_63 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 1, x_59); +lean_ctor_set(x_16, 0, x_63); +x_64 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_64, 0, x_16); +lean_ctor_set(x_64, 1, x_3); return x_64; } +else +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; +lean_dec(x_16); +x_65 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_59); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_3); +return x_67; +} } } case 3: { -lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_65 = lean_unsigned_to_nat(3u); -x_66 = l_Lean_Syntax_getArg(x_1, x_65); +lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_68 = lean_unsigned_to_nat(3u); +x_69 = l_Lean_Syntax_getArg(x_1, x_68); lean_dec(x_1); -x_67 = l_Lean_mkAppStx___closed__9; -x_68 = lean_array_push(x_67, x_14); -x_69 = lean_array_push(x_68, x_66); -x_70 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; -x_71 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_69); -x_72 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_72, 0, x_71); -return x_72; +x_70 = l_Lean_mkAppStx___closed__9; +x_71 = lean_array_push(x_70, x_16); +x_72 = lean_array_push(x_71, x_69); +x_73 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; +x_74 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_74, 0, x_73); +lean_ctor_set(x_74, 1, x_72); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_74); +lean_ctor_set(x_75, 1, x_3); +return x_75; } default: { -lean_object* x_73; -lean_dec(x_14); +lean_object* x_76; lean_object* x_77; +lean_dec(x_16); lean_dec(x_1); -x_73 = l_Lean_Macro_throwUnsupported___closed__1; -return x_73; +x_76 = lean_box(1); +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_76); +lean_ctor_set(x_77, 1, x_3); +return x_77; } } } } } -lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; uint8_t x_5; +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_inc(x_1); -x_3 = l_Lean_Syntax_getKind(x_1); -x_4 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; -x_5 = lean_name_eq(x_3, x_4); -lean_dec(x_3); -if (x_5 == 0) +x_4 = l_Lean_Syntax_getKind(x_1); +x_5 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; +x_6 = lean_name_eq(x_4, x_5); +lean_dec(x_4); +if (x_6 == 0) { -lean_object* x_6; -x_6 = l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(x_1, x_2); -return x_6; +lean_object* x_7; +x_7 = l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(x_1, x_2, x_3); +return x_7; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_7 = l_Lean_Syntax_getHeadInfo___main(x_1); +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_8 = l_Lean_Syntax_getHeadInfo___main(x_1); +x_9 = lean_unsigned_to_nat(0u); +x_10 = l_Lean_Syntax_getArg(x_1, x_9); +x_11 = l_Lean_Syntax_getId(x_10); +lean_dec(x_10); +x_12 = l_Lean_Name_toString___closed__1; +x_13 = l_Lean_Name_toStringWithSep___main(x_12, x_11); +x_14 = l_Lean_mkStxStrLit(x_13, x_8); +x_15 = lean_unsigned_to_nat(1u); +x_16 = l_Lean_Syntax_getArg(x_1, x_15); +lean_dec(x_1); +x_17 = l_Lean_mkAppStx___closed__9; +x_18 = lean_array_push(x_17, x_14); +x_19 = lean_array_push(x_18, x_16); +x_20 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_19); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_3); +return x_22; +} +} +} +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; +lean_inc(x_1); +x_4 = l_Lean_Syntax_getKind(x_1); +x_5 = l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__2; +x_6 = lean_name_eq(x_4, x_5); +if (x_6 == 0) +{ +lean_object* x_7; uint8_t x_8; +x_7 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; +x_8 = lean_name_eq(x_4, x_7); +lean_dec(x_4); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; +lean_dec(x_1); +x_9 = lean_box(1); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_3); +return x_10; +} +else +{ +lean_object* x_11; +x_11 = l_Lean_Elab_Command_strLitPrecToPattern(x_1, x_2, x_3); +lean_dec(x_1); +return x_11; +} +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +lean_dec(x_4); +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +lean_dec(x_1); +x_14 = l_Lean_mkTermIdFromIdent(x_13); +x_15 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; +x_16 = lean_array_push(x_15, x_14); +x_17 = l_Lean_mkOptionalNode___closed__1; +x_18 = lean_array_push(x_16, x_17); +x_19 = lean_array_push(x_18, x_17); +x_20 = l_Lean_Parser_mkAntiquot___closed__1; +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_19); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_3); +return x_22; +} +} +} +lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandMacroArgIntoPattern(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; +lean_inc(x_1); +x_4 = l_Lean_Syntax_getKind(x_1); +x_5 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; +x_6 = lean_name_eq(x_4, x_5); +lean_dec(x_4); +if (x_6 == 0) +{ +lean_object* x_7; +x_7 = l_Lean_Elab_Command_expandMacroArgIntoPattern(x_1, x_2, 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; lean_object* x_13; lean_object* x_14; x_8 = lean_unsigned_to_nat(0u); x_9 = l_Lean_Syntax_getArg(x_1, x_8); x_10 = l_Lean_Syntax_getId(x_9); lean_dec(x_9); x_11 = l_Lean_Name_toString___closed__1; x_12 = l_Lean_Name_toStringWithSep___main(x_11, x_10); -x_13 = l_Lean_mkStxStrLit(x_12, x_7); -x_14 = lean_unsigned_to_nat(1u); -x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_13 = l_Lean_mkAtomFrom(x_1, x_12); lean_dec(x_1); -x_16 = l_Lean_mkAppStx___closed__9; -x_17 = lean_array_push(x_16, x_13); -x_18 = lean_array_push(x_17, x_15); -x_19 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_20 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_20, 0, x_19); -lean_ctor_set(x_20, 1, x_18); -x_21 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_21, 0, x_20); -return x_21; +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_3); +return x_14; } } } -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(x_1, x_2); +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandMacroHeadIntoPattern(x_1, x_2, x_3); lean_dec(x_2); -return x_3; +return x_4; } } -lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern(lean_object* x_1, lean_object* x_2) { +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_3; lean_object* x_4; uint8_t x_5; -lean_inc(x_1); -x_3 = l_Lean_Syntax_getKind(x_1); -x_4 = l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__2; -x_5 = lean_name_eq(x_3, x_4); -if (x_5 == 0) +lean_object* x_5; uint8_t x_6; +x_5 = lean_array_get_size(x_2); +x_6 = lean_nat_dec_lt(x_1, x_5); +lean_dec(x_5); +if (x_6 == 0) { -lean_object* x_6; uint8_t x_7; -x_6 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; -x_7 = lean_name_eq(x_3, x_6); -lean_dec(x_3); -if (x_7 == 0) -{ -lean_object* x_8; -lean_dec(x_1); -x_8 = l_Lean_Macro_throwUnsupported___closed__1; -return x_8; -} -else -{ -lean_object* x_9; -x_9 = l_Lean_Elab_Command_strLitPrecToPattern(x_1, x_2); +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_dec(x_1); +x_7 = l_Array_empty___closed__1; +x_8 = x_2; +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_4); return x_9; } -} else { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; -lean_dec(x_3); -x_10 = lean_unsigned_to_nat(0u); -x_11 = l_Lean_Syntax_getArg(x_1, x_10); -lean_dec(x_1); -x_12 = l_Lean_mkTermIdFromIdent(x_11); -x_13 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; -x_14 = lean_array_push(x_13, x_12); -x_15 = l_Lean_mkOptionalNode___closed__1; -x_16 = lean_array_push(x_14, x_15); -x_17 = lean_array_push(x_16, x_15); -x_18 = l_Lean_Parser_mkAntiquot___closed__1; -x_19 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_19, 0, x_18); -lean_ctor_set(x_19, 1, x_17); -x_20 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_20, 0, x_19); -return x_20; -} -} -} -lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandMacroArgIntoPattern(x_1, x_2); -lean_dec(x_2); -return x_3; -} -} -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; uint8_t x_5; -lean_inc(x_1); -x_3 = l_Lean_Syntax_getKind(x_1); -x_4 = l_Lean_Parser_Command_identPrec___elambda__1___closed__2; -x_5 = lean_name_eq(x_3, x_4); -lean_dec(x_3); -if (x_5 == 0) -{ -lean_object* x_6; -x_6 = l_Lean_Elab_Command_expandMacroArgIntoPattern(x_1, x_2); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = l_Lean_Syntax_getId(x_8); -lean_dec(x_8); -x_10 = l_Lean_Name_toString___closed__1; -x_11 = l_Lean_Name_toStringWithSep___main(x_10, x_9); -x_12 = l_Lean_mkAtomFrom(x_1, x_11); -lean_dec(x_1); -x_13 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_13, 0, x_12); -return x_13; -} -} -} -lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandMacroHeadIntoPattern(x_1, x_2); -lean_dec(x_2); -return x_3; -} -} -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(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_2); -x_5 = lean_nat_dec_lt(x_1, x_4); -lean_dec(x_4); -if (x_5 == 0) -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; -lean_dec(x_1); -x_6 = l_Array_empty___closed__1; -x_7 = x_2; -x_8 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_8, 0, x_7); -return x_8; -} -else -{ -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = lean_array_fget(x_2, x_1); -x_10 = lean_box(0); -x_11 = x_10; -x_12 = lean_array_fset(x_2, x_1, x_11); -lean_inc(x_9); -x_13 = l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(x_9, x_3); -if (lean_obj_tag(x_13) == 0) -{ -uint8_t x_14; -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_1); -x_14 = !lean_is_exclusive(x_13); -if (x_14 == 0) -{ -return x_13; -} -else -{ -lean_object* x_15; lean_object* x_16; -x_15 = lean_ctor_get(x_13, 0); -lean_inc(x_15); -lean_dec(x_13); -x_16 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_16, 0, x_15); -return x_16; -} -} -else -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_17 = lean_ctor_get(x_13, 0); -lean_inc(x_17); -lean_dec(x_13); -x_18 = lean_unsigned_to_nat(1u); -x_19 = lean_nat_add(x_1, x_18); -x_20 = x_17; -lean_dec(x_9); -x_21 = lean_array_fset(x_12, x_1, x_20); -lean_dec(x_1); -x_1 = x_19; -x_2 = x_21; -goto _start; -} -} -} -} -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(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_2); -x_5 = lean_nat_dec_lt(x_1, x_4); -lean_dec(x_4); -if (x_5 == 0) -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; -lean_dec(x_1); -x_6 = l_Array_empty___closed__1; -x_7 = x_2; -x_8 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_8, 0, x_7); -return x_8; -} -else -{ -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = lean_array_fget(x_2, x_1); -x_10 = lean_box(0); -x_11 = x_10; -x_12 = lean_array_fset(x_2, x_1, x_11); -lean_inc(x_9); -x_13 = l_Lean_Elab_Command_expandMacroArgIntoPattern(x_9, x_3); -if (lean_obj_tag(x_13) == 0) -{ -uint8_t x_14; -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_1); -x_14 = !lean_is_exclusive(x_13); -if (x_14 == 0) -{ -return x_13; -} -else -{ -lean_object* x_15; lean_object* x_16; -x_15 = lean_ctor_get(x_13, 0); -lean_inc(x_15); -lean_dec(x_13); -x_16 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_16, 0, x_15); -return x_16; -} -} -else -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_17 = lean_ctor_get(x_13, 0); -lean_inc(x_17); -lean_dec(x_13); -x_18 = lean_unsigned_to_nat(1u); -x_19 = lean_nat_add(x_1, x_18); -x_20 = x_17; -lean_dec(x_9); -x_21 = lean_array_fset(x_12, x_1, x_20); -lean_dec(x_1); -x_1 = x_19; -x_2 = x_21; -goto _start; -} -} -} -} -lean_object* l_Lean_Elab_Command_expandMacro(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; -x_3 = lean_unsigned_to_nat(1u); -x_4 = l_Lean_Syntax_getArg(x_1, x_3); -x_5 = lean_unsigned_to_nat(2u); -x_6 = l_Lean_Syntax_getArg(x_1, x_5); -x_7 = l_Lean_Syntax_getArgs(x_6); -lean_dec(x_6); -x_8 = lean_unsigned_to_nat(4u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = l_Lean_Syntax_getId(x_9); -x_11 = l_Lean_Name_eraseMacroScopes(x_10); -lean_dec(x_10); -lean_inc(x_2); -x_12 = l_Lean_Elab_Command_Macro_mkFreshKind(x_11, x_2); -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); -lean_dec(x_12); -lean_inc(x_4); -x_14 = l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(x_4, x_2); +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_array_fget(x_2, x_1); +x_11 = lean_box(0); +x_12 = x_11; +x_13 = lean_array_fset(x_2, x_1, x_12); +lean_inc(x_10); +x_14 = l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem(x_10, x_3, x_4); if (lean_obj_tag(x_14) == 0) { -uint8_t x_15; +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_1, x_17); +x_19 = x_15; +lean_dec(x_10); +x_20 = lean_array_fset(x_13, x_1, x_19); +lean_dec(x_1); +x_1 = x_18; +x_2 = x_20; +x_4 = x_16; +goto _start; +} +else +{ +uint8_t x_22; lean_dec(x_13); -lean_dec(x_9); -lean_dec(x_7); -lean_dec(x_4); -lean_dec(x_2); -x_15 = !lean_is_exclusive(x_14); -if (x_15 == 0) +lean_dec(x_10); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_14); +if (x_22 == 0) { return x_14; } else { -lean_object* x_16; lean_object* x_17; -x_16 = lean_ctor_get(x_14, 0); +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_14, 0); +x_24 = lean_ctor_get(x_14, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_14); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +return x_25; +} +} +} +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_array_get_size(x_2); +x_6 = lean_nat_dec_lt(x_1, x_5); +lean_dec(x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_1); +x_7 = l_Array_empty___closed__1; +x_8 = x_2; +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_4); +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_array_fget(x_2, x_1); +x_11 = lean_box(0); +x_12 = x_11; +x_13 = lean_array_fset(x_2, x_1, x_12); +lean_inc(x_10); +x_14 = l_Lean_Elab_Command_expandMacroArgIntoPattern(x_10, x_3, x_4); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); lean_inc(x_16); lean_dec(x_14); -x_17 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_17, 0, x_16); -return x_17; +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_1, x_17); +x_19 = x_15; +lean_dec(x_10); +x_20 = lean_array_fset(x_13, x_1, x_19); +lean_dec(x_1); +x_1 = x_18; +x_2 = x_20; +x_4 = x_16; +goto _start; +} +else +{ +uint8_t x_22; +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_14); +if (x_22 == 0) +{ +return x_14; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_14, 0); +x_24 = lean_ctor_get(x_14, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_14); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +return x_25; +} +} +} +} +} +lean_object* l_Lean_Elab_Command_expandMacro(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_4 = lean_unsigned_to_nat(1u); +x_5 = l_Lean_Syntax_getArg(x_1, x_4); +x_6 = lean_unsigned_to_nat(2u); +x_7 = l_Lean_Syntax_getArg(x_1, x_6); +x_8 = l_Lean_Syntax_getArgs(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(4u); +x_10 = l_Lean_Syntax_getArg(x_1, x_9); +x_11 = l_Lean_Syntax_getId(x_10); +x_12 = l_Lean_Name_eraseMacroScopes(x_11); +lean_dec(x_11); +lean_inc(x_2); +x_13 = l_Lean_Elab_Command_Macro_mkFreshKind(x_12, x_2, x_3); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +lean_inc(x_5); +x_16 = l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(x_5, x_2, x_15); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +x_19 = lean_unsigned_to_nat(0u); +lean_inc(x_8); +x_20 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(x_19, x_8, x_2, x_18); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_20, 1); +lean_inc(x_22); +lean_dec(x_20); +x_23 = l_Lean_mkOptionalNode___closed__2; +x_24 = lean_array_push(x_23, x_17); +x_25 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_21, x_21, x_19, x_24); +lean_dec(x_21); +x_26 = l_Lean_Elab_Command_expandMacroHeadIntoPattern(x_5, x_2, x_22); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_26, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_26, 1); +lean_inc(x_28); +lean_dec(x_26); +x_29 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(x_19, x_8, x_2, x_28); +lean_dec(x_2); +if (lean_obj_tag(x_29) == 0) +{ +uint8_t x_30; +x_30 = !lean_is_exclusive(x_29); +if (x_30 == 0) +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; uint8_t x_38; +x_31 = lean_ctor_get(x_29, 0); +x_32 = lean_array_push(x_23, x_27); +x_33 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_31, x_31, x_19, x_32); +lean_dec(x_31); +lean_inc(x_14); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_14); +lean_ctor_set(x_34, 1, x_33); +x_35 = l_Lean_Syntax_getArgs(x_1); +x_36 = lean_array_get_size(x_35); +lean_dec(x_35); +x_37 = lean_unsigned_to_nat(7u); +x_38 = lean_nat_dec_eq(x_36, x_37); +lean_dec(x_36); +if (x_38 == 0) +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_39 = l_Lean_Syntax_getArg(x_1, x_37); +x_40 = l_Lean_mkIdentFrom(x_1, x_14); +x_41 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_42 = lean_array_push(x_41, x_40); +x_43 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_44 = lean_array_push(x_42, x_43); +x_45 = l_Lean_nullKind___closed__2; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = l_Lean_Elab_Command_expandNotation___closed__2; +x_48 = lean_array_push(x_47, x_46); +x_49 = l_Array_empty___closed__1; +x_50 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_25, x_25, x_19, x_49); +lean_dec(x_25); +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_45); +lean_ctor_set(x_51, 1, x_50); +x_52 = lean_array_push(x_48, x_51); +x_53 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_54 = lean_array_push(x_52, x_53); +x_55 = lean_array_push(x_54, x_10); +x_56 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_55); +x_58 = lean_array_push(x_49, x_57); +x_59 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_60 = lean_array_push(x_59, x_34); +x_61 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_62 = lean_array_push(x_60, x_61); +x_63 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = lean_array_push(x_49, x_64); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_45); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_array_push(x_49, x_66); +x_68 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_69 = lean_array_push(x_67, x_68); +x_70 = lean_array_push(x_59, x_39); +x_71 = lean_array_push(x_70, x_61); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_63); +lean_ctor_set(x_72, 1, x_71); +x_73 = lean_array_push(x_69, x_72); +x_74 = l_Lean_Parser_Term_matchAlt___closed__2; +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_74); +lean_ctor_set(x_75, 1, x_73); +x_76 = lean_array_push(x_49, x_75); +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_45); +lean_ctor_set(x_77, 1, x_76); +x_78 = l_Lean_Elab_Command_expandNotation___closed__3; +x_79 = lean_array_push(x_78, x_77); +x_80 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_81 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_81, 0, x_80); +lean_ctor_set(x_81, 1, x_79); +x_82 = lean_array_push(x_58, x_81); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_45); +lean_ctor_set(x_83, 1, x_82); +lean_ctor_set(x_29, 0, x_83); +return x_29; +} +else +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_84 = lean_unsigned_to_nat(6u); +x_85 = l_Lean_Syntax_getArg(x_1, x_84); +x_86 = l_Lean_mkIdentFrom(x_1, x_14); +x_87 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_88 = lean_array_push(x_87, x_86); +x_89 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_90 = lean_array_push(x_88, x_89); +x_91 = l_Lean_nullKind___closed__2; +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_90); +x_93 = l_Lean_Elab_Command_expandNotation___closed__2; +x_94 = lean_array_push(x_93, x_92); +x_95 = l_Array_empty___closed__1; +x_96 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_25, x_25, x_19, x_95); +lean_dec(x_25); +x_97 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_97, 0, x_91); +lean_ctor_set(x_97, 1, x_96); +x_98 = lean_array_push(x_94, x_97); +x_99 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_100 = lean_array_push(x_98, x_99); +x_101 = lean_array_push(x_100, x_10); +x_102 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_103, 0, x_102); +lean_ctor_set(x_103, 1, x_101); +x_104 = lean_array_push(x_95, x_103); +x_105 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_106 = lean_array_push(x_105, x_34); +x_107 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_108 = lean_array_push(x_106, x_107); +x_109 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_110 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_110, 0, x_109); +lean_ctor_set(x_110, 1, x_108); +x_111 = lean_array_push(x_95, x_110); +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_91); +lean_ctor_set(x_112, 1, x_111); +x_113 = lean_array_push(x_95, x_112); +x_114 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_115 = lean_array_push(x_113, x_114); +x_116 = lean_array_push(x_115, x_85); +x_117 = l_Lean_Parser_Term_matchAlt___closed__2; +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_116); +x_119 = lean_array_push(x_95, x_118); +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_91); +lean_ctor_set(x_120, 1, x_119); +x_121 = l_Lean_Elab_Command_expandNotation___closed__3; +x_122 = lean_array_push(x_121, x_120); +x_123 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_122); +x_125 = lean_array_push(x_104, x_124); +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_91); +lean_ctor_set(x_126, 1, x_125); +lean_ctor_set(x_29, 0, x_126); +return x_29; } } else { -lean_object* x_18; lean_object* x_19; lean_object* x_20; -x_18 = lean_ctor_get(x_14, 0); -lean_inc(x_18); -lean_dec(x_14); -x_19 = lean_unsigned_to_nat(0u); -lean_inc(x_7); -x_20 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(x_19, x_7, x_2); -if (lean_obj_tag(x_20) == 0) +lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; uint8_t x_135; +x_127 = lean_ctor_get(x_29, 0); +x_128 = lean_ctor_get(x_29, 1); +lean_inc(x_128); +lean_inc(x_127); +lean_dec(x_29); +x_129 = lean_array_push(x_23, x_27); +x_130 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_127, x_127, x_19, x_129); +lean_dec(x_127); +lean_inc(x_14); +x_131 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_131, 0, x_14); +lean_ctor_set(x_131, 1, x_130); +x_132 = l_Lean_Syntax_getArgs(x_1); +x_133 = lean_array_get_size(x_132); +lean_dec(x_132); +x_134 = lean_unsigned_to_nat(7u); +x_135 = lean_nat_dec_eq(x_133, x_134); +lean_dec(x_133); +if (x_135 == 0) { -uint8_t x_21; -lean_dec(x_18); -lean_dec(x_13); -lean_dec(x_9); -lean_dec(x_7); -lean_dec(x_4); +lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; +x_136 = l_Lean_Syntax_getArg(x_1, x_134); +x_137 = l_Lean_mkIdentFrom(x_1, x_14); +x_138 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_139 = lean_array_push(x_138, x_137); +x_140 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_141 = lean_array_push(x_139, x_140); +x_142 = l_Lean_nullKind___closed__2; +x_143 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_143, 0, x_142); +lean_ctor_set(x_143, 1, x_141); +x_144 = l_Lean_Elab_Command_expandNotation___closed__2; +x_145 = lean_array_push(x_144, x_143); +x_146 = l_Array_empty___closed__1; +x_147 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_25, x_25, x_19, x_146); +lean_dec(x_25); +x_148 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_148, 0, x_142); +lean_ctor_set(x_148, 1, x_147); +x_149 = lean_array_push(x_145, x_148); +x_150 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_151 = lean_array_push(x_149, x_150); +x_152 = lean_array_push(x_151, x_10); +x_153 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_154 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_154, 0, x_153); +lean_ctor_set(x_154, 1, x_152); +x_155 = lean_array_push(x_146, x_154); +x_156 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_157 = lean_array_push(x_156, x_131); +x_158 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_159 = lean_array_push(x_157, x_158); +x_160 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_161 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_161, 0, x_160); +lean_ctor_set(x_161, 1, x_159); +x_162 = lean_array_push(x_146, x_161); +x_163 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_163, 0, x_142); +lean_ctor_set(x_163, 1, x_162); +x_164 = lean_array_push(x_146, x_163); +x_165 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_166 = lean_array_push(x_164, x_165); +x_167 = lean_array_push(x_156, x_136); +x_168 = lean_array_push(x_167, x_158); +x_169 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_169, 0, x_160); +lean_ctor_set(x_169, 1, x_168); +x_170 = lean_array_push(x_166, x_169); +x_171 = l_Lean_Parser_Term_matchAlt___closed__2; +x_172 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_172, 0, x_171); +lean_ctor_set(x_172, 1, x_170); +x_173 = lean_array_push(x_146, x_172); +x_174 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_174, 0, x_142); +lean_ctor_set(x_174, 1, x_173); +x_175 = l_Lean_Elab_Command_expandNotation___closed__3; +x_176 = lean_array_push(x_175, x_174); +x_177 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_178 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_178, 0, x_177); +lean_ctor_set(x_178, 1, x_176); +x_179 = lean_array_push(x_155, x_178); +x_180 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_180, 0, x_142); +lean_ctor_set(x_180, 1, x_179); +x_181 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_181, 0, x_180); +lean_ctor_set(x_181, 1, x_128); +return x_181; +} +else +{ +lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; +x_182 = lean_unsigned_to_nat(6u); +x_183 = l_Lean_Syntax_getArg(x_1, x_182); +x_184 = l_Lean_mkIdentFrom(x_1, x_14); +x_185 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_186 = lean_array_push(x_185, x_184); +x_187 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_188 = lean_array_push(x_186, x_187); +x_189 = l_Lean_nullKind___closed__2; +x_190 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_190, 0, x_189); +lean_ctor_set(x_190, 1, x_188); +x_191 = l_Lean_Elab_Command_expandNotation___closed__2; +x_192 = lean_array_push(x_191, x_190); +x_193 = l_Array_empty___closed__1; +x_194 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_25, x_25, x_19, x_193); +lean_dec(x_25); +x_195 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_195, 0, x_189); +lean_ctor_set(x_195, 1, x_194); +x_196 = lean_array_push(x_192, x_195); +x_197 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_198 = lean_array_push(x_196, x_197); +x_199 = lean_array_push(x_198, x_10); +x_200 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_201 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_201, 0, x_200); +lean_ctor_set(x_201, 1, x_199); +x_202 = lean_array_push(x_193, x_201); +x_203 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_204 = lean_array_push(x_203, x_131); +x_205 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_206 = lean_array_push(x_204, x_205); +x_207 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_208 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_208, 0, x_207); +lean_ctor_set(x_208, 1, x_206); +x_209 = lean_array_push(x_193, x_208); +x_210 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_210, 0, x_189); +lean_ctor_set(x_210, 1, x_209); +x_211 = lean_array_push(x_193, x_210); +x_212 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_213 = lean_array_push(x_211, x_212); +x_214 = lean_array_push(x_213, x_183); +x_215 = l_Lean_Parser_Term_matchAlt___closed__2; +x_216 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_216, 0, x_215); +lean_ctor_set(x_216, 1, x_214); +x_217 = lean_array_push(x_193, x_216); +x_218 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_218, 0, x_189); +lean_ctor_set(x_218, 1, x_217); +x_219 = l_Lean_Elab_Command_expandNotation___closed__3; +x_220 = lean_array_push(x_219, x_218); +x_221 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_222 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_222, 0, x_221); +lean_ctor_set(x_222, 1, x_220); +x_223 = lean_array_push(x_202, x_222); +x_224 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_224, 0, x_189); +lean_ctor_set(x_224, 1, x_223); +x_225 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_225, 0, x_224); +lean_ctor_set(x_225, 1, x_128); +return x_225; +} +} +} +else +{ +uint8_t x_226; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_14); +lean_dec(x_10); +x_226 = !lean_is_exclusive(x_29); +if (x_226 == 0) +{ +return x_29; +} +else +{ +lean_object* x_227; lean_object* x_228; lean_object* x_229; +x_227 = lean_ctor_get(x_29, 0); +x_228 = lean_ctor_get(x_29, 1); +lean_inc(x_228); +lean_inc(x_227); +lean_dec(x_29); +x_229 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_229, 0, x_227); +lean_ctor_set(x_229, 1, x_228); +return x_229; +} +} +} +else +{ +uint8_t x_230; +lean_dec(x_25); +lean_dec(x_14); +lean_dec(x_10); +lean_dec(x_8); lean_dec(x_2); -x_21 = !lean_is_exclusive(x_20); -if (x_21 == 0) +x_230 = !lean_is_exclusive(x_26); +if (x_230 == 0) +{ +return x_26; +} +else +{ +lean_object* x_231; lean_object* x_232; lean_object* x_233; +x_231 = lean_ctor_get(x_26, 0); +x_232 = lean_ctor_get(x_26, 1); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_26); +x_233 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_233, 0, x_231); +lean_ctor_set(x_233, 1, x_232); +return x_233; +} +} +} +else +{ +uint8_t x_234; +lean_dec(x_17); +lean_dec(x_14); +lean_dec(x_10); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_2); +x_234 = !lean_is_exclusive(x_20); +if (x_234 == 0) { return x_20; } else { -lean_object* x_22; lean_object* x_23; -x_22 = lean_ctor_get(x_20, 0); -lean_inc(x_22); +lean_object* x_235; lean_object* x_236; lean_object* x_237; +x_235 = lean_ctor_get(x_20, 0); +x_236 = lean_ctor_get(x_20, 1); +lean_inc(x_236); +lean_inc(x_235); lean_dec(x_20); -x_23 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_23, 0, x_22); -return x_23; +x_237 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_237, 0, x_235); +lean_ctor_set(x_237, 1, x_236); +return x_237; +} } } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_24 = lean_ctor_get(x_20, 0); -lean_inc(x_24); -lean_dec(x_20); -x_25 = l_Lean_mkOptionalNode___closed__2; -x_26 = lean_array_push(x_25, x_18); -x_27 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_24, x_24, x_19, x_26); -lean_dec(x_24); -x_28 = l_Lean_Elab_Command_expandMacroHeadIntoPattern(x_4, x_2); -if (lean_obj_tag(x_28) == 0) -{ -uint8_t x_29; -lean_dec(x_27); -lean_dec(x_13); -lean_dec(x_9); -lean_dec(x_7); +uint8_t x_238; +lean_dec(x_14); +lean_dec(x_10); +lean_dec(x_8); +lean_dec(x_5); lean_dec(x_2); -x_29 = !lean_is_exclusive(x_28); -if (x_29 == 0) +x_238 = !lean_is_exclusive(x_16); +if (x_238 == 0) { -return x_28; +return x_16; } else { -lean_object* x_30; lean_object* x_31; -x_30 = lean_ctor_get(x_28, 0); -lean_inc(x_30); -lean_dec(x_28); -x_31 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_31, 0, x_30); -return x_31; +lean_object* x_239; lean_object* x_240; lean_object* x_241; +x_239 = lean_ctor_get(x_16, 0); +x_240 = lean_ctor_get(x_16, 1); +lean_inc(x_240); +lean_inc(x_239); +lean_dec(x_16); +x_241 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_241, 0, x_239); +lean_ctor_set(x_241, 1, x_240); +return x_241; } } -else +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: { -lean_object* x_32; lean_object* x_33; -x_32 = lean_ctor_get(x_28, 0); -lean_inc(x_32); -lean_dec(x_28); -x_33 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(x_19, x_7, x_2); -lean_dec(x_2); -if (lean_obj_tag(x_33) == 0) +lean_object* x_5; +x_5 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: { -uint8_t x_34; -lean_dec(x_32); -lean_dec(x_27); -lean_dec(x_13); -lean_dec(x_9); -x_34 = !lean_is_exclusive(x_33); -if (x_34 == 0) -{ -return x_33; -} -else -{ -lean_object* x_35; lean_object* x_36; -x_35 = lean_ctor_get(x_33, 0); -lean_inc(x_35); -lean_dec(x_33); -x_36 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_36, 0, x_35); -return x_36; +lean_object* x_5; +x_5 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; } } -else -{ -uint8_t x_37; -x_37 = !lean_is_exclusive(x_33); -if (x_37 == 0) -{ -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; -x_38 = lean_ctor_get(x_33, 0); -x_39 = lean_array_push(x_25, x_32); -x_40 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_38, x_38, x_19, x_39); -lean_dec(x_38); -lean_inc(x_13); -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_13); -lean_ctor_set(x_41, 1, x_40); -x_42 = l_Lean_Syntax_getArgs(x_1); -x_43 = lean_array_get_size(x_42); -lean_dec(x_42); -x_44 = lean_unsigned_to_nat(7u); -x_45 = lean_nat_dec_eq(x_43, x_44); -lean_dec(x_43); -if (x_45 == 0) -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; -x_46 = l_Lean_Syntax_getArg(x_1, x_44); -x_47 = l_Lean_mkIdentFrom(x_1, x_13); -x_48 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_49 = lean_array_push(x_48, x_47); -x_50 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_51 = lean_array_push(x_49, x_50); -x_52 = l_Lean_nullKind___closed__2; -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_51); -x_54 = l_Lean_Elab_Command_expandNotation___closed__2; -x_55 = lean_array_push(x_54, x_53); -x_56 = l_Array_empty___closed__1; -x_57 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_27, x_27, x_19, x_56); -lean_dec(x_27); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_52); -lean_ctor_set(x_58, 1, x_57); -x_59 = lean_array_push(x_55, x_58); -x_60 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_61 = lean_array_push(x_59, x_60); -x_62 = lean_array_push(x_61, x_9); -x_63 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_63); -lean_ctor_set(x_64, 1, x_62); -x_65 = lean_array_push(x_56, x_64); -x_66 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_67 = lean_array_push(x_66, x_41); -x_68 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_69 = lean_array_push(x_67, x_68); -x_70 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_71 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_69); -x_72 = lean_array_push(x_56, x_71); -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_52); -lean_ctor_set(x_73, 1, x_72); -x_74 = lean_array_push(x_56, x_73); -x_75 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_76 = lean_array_push(x_74, x_75); -x_77 = lean_array_push(x_66, x_46); -x_78 = lean_array_push(x_77, x_68); -x_79 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_79, 0, x_70); -lean_ctor_set(x_79, 1, x_78); -x_80 = lean_array_push(x_76, x_79); -x_81 = l_Lean_Parser_Term_matchAlt___closed__2; -x_82 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_82, 0, x_81); -lean_ctor_set(x_82, 1, x_80); -x_83 = lean_array_push(x_56, x_82); -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_52); -lean_ctor_set(x_84, 1, x_83); -x_85 = l_Lean_Elab_Command_expandNotation___closed__3; -x_86 = lean_array_push(x_85, x_84); -x_87 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_88 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_88, 0, x_87); -lean_ctor_set(x_88, 1, x_86); -x_89 = lean_array_push(x_65, x_88); -x_90 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_90, 0, x_52); -lean_ctor_set(x_90, 1, x_89); -lean_ctor_set(x_33, 0, x_90); -return x_33; -} -else -{ -lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; -x_91 = lean_unsigned_to_nat(6u); -x_92 = l_Lean_Syntax_getArg(x_1, x_91); -x_93 = l_Lean_mkIdentFrom(x_1, x_13); -x_94 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_95 = lean_array_push(x_94, x_93); -x_96 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_97 = lean_array_push(x_95, x_96); -x_98 = l_Lean_nullKind___closed__2; -x_99 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_99, 0, x_98); -lean_ctor_set(x_99, 1, x_97); -x_100 = l_Lean_Elab_Command_expandNotation___closed__2; -x_101 = lean_array_push(x_100, x_99); -x_102 = l_Array_empty___closed__1; -x_103 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_27, x_27, x_19, x_102); -lean_dec(x_27); -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_98); -lean_ctor_set(x_104, 1, x_103); -x_105 = lean_array_push(x_101, x_104); -x_106 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_107 = lean_array_push(x_105, x_106); -x_108 = lean_array_push(x_107, x_9); -x_109 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_108); -x_111 = lean_array_push(x_102, x_110); -x_112 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_113 = lean_array_push(x_112, x_41); -x_114 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_115 = lean_array_push(x_113, x_114); -x_116 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_116); -lean_ctor_set(x_117, 1, x_115); -x_118 = lean_array_push(x_102, x_117); -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_98); -lean_ctor_set(x_119, 1, x_118); -x_120 = lean_array_push(x_102, x_119); -x_121 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_122 = lean_array_push(x_120, x_121); -x_123 = lean_array_push(x_122, x_92); -x_124 = l_Lean_Parser_Term_matchAlt___closed__2; -x_125 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_125, 0, x_124); -lean_ctor_set(x_125, 1, x_123); -x_126 = lean_array_push(x_102, x_125); -x_127 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_127, 0, x_98); -lean_ctor_set(x_127, 1, x_126); -x_128 = l_Lean_Elab_Command_expandNotation___closed__3; -x_129 = lean_array_push(x_128, x_127); -x_130 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_131 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_131, 0, x_130); -lean_ctor_set(x_131, 1, x_129); -x_132 = lean_array_push(x_111, x_131); -x_133 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_133, 0, x_98); -lean_ctor_set(x_133, 1, x_132); -lean_ctor_set(x_33, 0, x_133); -return x_33; -} -} -else -{ -lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; uint8_t x_141; -x_134 = lean_ctor_get(x_33, 0); -lean_inc(x_134); -lean_dec(x_33); -x_135 = lean_array_push(x_25, x_32); -x_136 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_134, x_134, x_19, x_135); -lean_dec(x_134); -lean_inc(x_13); -x_137 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_137, 0, x_13); -lean_ctor_set(x_137, 1, x_136); -x_138 = l_Lean_Syntax_getArgs(x_1); -x_139 = lean_array_get_size(x_138); -lean_dec(x_138); -x_140 = lean_unsigned_to_nat(7u); -x_141 = lean_nat_dec_eq(x_139, x_140); -lean_dec(x_139); -if (x_141 == 0) -{ -lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; -x_142 = l_Lean_Syntax_getArg(x_1, x_140); -x_143 = l_Lean_mkIdentFrom(x_1, x_13); -x_144 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_145 = lean_array_push(x_144, x_143); -x_146 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_147 = lean_array_push(x_145, x_146); -x_148 = l_Lean_nullKind___closed__2; -x_149 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_149, 0, x_148); -lean_ctor_set(x_149, 1, x_147); -x_150 = l_Lean_Elab_Command_expandNotation___closed__2; -x_151 = lean_array_push(x_150, x_149); -x_152 = l_Array_empty___closed__1; -x_153 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_27, x_27, x_19, x_152); -lean_dec(x_27); -x_154 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_154, 0, x_148); -lean_ctor_set(x_154, 1, x_153); -x_155 = lean_array_push(x_151, x_154); -x_156 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_157 = lean_array_push(x_155, x_156); -x_158 = lean_array_push(x_157, x_9); -x_159 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_160 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_160, 0, x_159); -lean_ctor_set(x_160, 1, x_158); -x_161 = lean_array_push(x_152, x_160); -x_162 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_163 = lean_array_push(x_162, x_137); -x_164 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_165 = lean_array_push(x_163, x_164); -x_166 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_167 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_167, 0, x_166); -lean_ctor_set(x_167, 1, x_165); -x_168 = lean_array_push(x_152, x_167); -x_169 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_169, 0, x_148); -lean_ctor_set(x_169, 1, x_168); -x_170 = lean_array_push(x_152, x_169); -x_171 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_172 = lean_array_push(x_170, x_171); -x_173 = lean_array_push(x_162, x_142); -x_174 = lean_array_push(x_173, x_164); -x_175 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_175, 0, x_166); -lean_ctor_set(x_175, 1, x_174); -x_176 = lean_array_push(x_172, x_175); -x_177 = l_Lean_Parser_Term_matchAlt___closed__2; -x_178 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_178, 0, x_177); -lean_ctor_set(x_178, 1, x_176); -x_179 = lean_array_push(x_152, x_178); -x_180 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_180, 0, x_148); -lean_ctor_set(x_180, 1, x_179); -x_181 = l_Lean_Elab_Command_expandNotation___closed__3; -x_182 = lean_array_push(x_181, x_180); -x_183 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_184 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_184, 0, x_183); -lean_ctor_set(x_184, 1, x_182); -x_185 = lean_array_push(x_161, x_184); -x_186 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_186, 0, x_148); -lean_ctor_set(x_186, 1, x_185); -x_187 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_187, 0, x_186); -return x_187; -} -else -{ -lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; -x_188 = lean_unsigned_to_nat(6u); -x_189 = l_Lean_Syntax_getArg(x_1, x_188); -x_190 = l_Lean_mkIdentFrom(x_1, x_13); -x_191 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_192 = lean_array_push(x_191, x_190); -x_193 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_194 = lean_array_push(x_192, x_193); -x_195 = l_Lean_nullKind___closed__2; -x_196 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_196, 0, x_195); -lean_ctor_set(x_196, 1, x_194); -x_197 = l_Lean_Elab_Command_expandNotation___closed__2; -x_198 = lean_array_push(x_197, x_196); -x_199 = l_Array_empty___closed__1; -x_200 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_27, x_27, x_19, x_199); -lean_dec(x_27); -x_201 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_201, 0, x_195); -lean_ctor_set(x_201, 1, x_200); -x_202 = lean_array_push(x_198, x_201); -x_203 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_204 = lean_array_push(x_202, x_203); -x_205 = lean_array_push(x_204, x_9); -x_206 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_207 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_207, 0, x_206); -lean_ctor_set(x_207, 1, x_205); -x_208 = lean_array_push(x_199, x_207); -x_209 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_210 = lean_array_push(x_209, x_137); -x_211 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_212 = lean_array_push(x_210, x_211); -x_213 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_214 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_214, 0, x_213); -lean_ctor_set(x_214, 1, x_212); -x_215 = lean_array_push(x_199, x_214); -x_216 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_216, 0, x_195); -lean_ctor_set(x_216, 1, x_215); -x_217 = lean_array_push(x_199, x_216); -x_218 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_219 = lean_array_push(x_217, x_218); -x_220 = lean_array_push(x_219, x_189); -x_221 = l_Lean_Parser_Term_matchAlt___closed__2; -x_222 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_222, 0, x_221); -lean_ctor_set(x_222, 1, x_220); -x_223 = lean_array_push(x_199, x_222); -x_224 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_224, 0, x_195); -lean_ctor_set(x_224, 1, x_223); -x_225 = l_Lean_Elab_Command_expandNotation___closed__3; -x_226 = lean_array_push(x_225, x_224); -x_227 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_228 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_228, 0, x_227); -lean_ctor_set(x_228, 1, x_226); -x_229 = lean_array_push(x_208, x_228); -x_230 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_230, 0, x_195); -lean_ctor_set(x_230, 1, x_229); -x_231 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_231, 0, x_230); -return x_231; -} -} -} -} -} -} -} -} -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Elab_Command_expandMacro___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1(x_1, x_2, x_3); -lean_dec(x_3); -return x_4; -} -} -lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(x_1, x_2, x_3); -lean_dec(x_3); -return x_4; -} -} -lean_object* l_Lean_Elab_Command_expandMacro___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Elab_Command_expandMacro(x_1, x_2); +x_4 = l_Lean_Elab_Command_expandMacro(x_1, x_2, x_3); lean_dec(x_1); -return x_3; +return x_4; } } lean_object* _init_l___regBuiltinMacro_Lean_Elab_Command_expandMacro___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_expandMacro___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_expandMacro___boxed), 3, 0); return x_1; } } diff --git a/stage0/stdlib/Init/Lean/Elab/SynthesizeSyntheticMVars.c b/stage0/stdlib/Init/Lean/Elab/SynthesizeSyntheticMVars.c index f1760b2eef..8b7d9f20b2 100644 --- a/stage0/stdlib/Init/Lean/Elab/SynthesizeSyntheticMVars.c +++ b/stage0/stdlib/Init/Lean/Elab/SynthesizeSyntheticMVars.c @@ -31,7 +31,6 @@ lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSy lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSyntheticMVarsStep___spec__2___closed__7; lean_object* l_Lean_mkMVar(lean_object*); lean_object* l_Lean_Elab_Term_liftTacticElabM___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_checkTraceOption(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSyntheticMVarsStep___closed__4; lean_object* l_List_append___rarg(lean_object*, lean_object*); @@ -51,7 +50,6 @@ lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSy lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSyntheticMVarsStep___spec__2___closed__8; -lean_object* l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1(lean_object*); lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_3__synthesizePendingInstMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_8__synthesizeUsingDefault___spec__1___lambda__1___closed__1; lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_8__synthesizeUsingDefault___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -77,6 +75,7 @@ lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSy lean_object* l_List_filterAuxM___main___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSyntheticMVarsStep___spec__2___closed__3; lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_5__checkWithDefault(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_11__synthesizeSyntheticMVarsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getMVarDecl___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_8__synthesizeUsingDefault(lean_object*, lean_object*); lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); @@ -138,7 +137,6 @@ lean_object* l_List_forM___main___at___private_Init_Lean_Elab_SynthesizeSyntheti uint8_t l_List_isEmpty___rarg(lean_object*); extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__1; lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSyntheticMVarsStep(uint8_t, uint8_t, lean_object*, lean_object*); -lean_object* l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_4__synthesizePendingCoeInstMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_indentExpr(lean_object*); lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_7__synthesizeSyntheticMVarsStep___closed__5; @@ -1551,22 +1549,6 @@ x_7 = l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_1__resumeElabTerm(x_1, return x_7; } } -lean_object* l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_apply_1(x_1, x_3); -return x_4; -} -} -lean_object* l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg___boxed), 3, 0); -return x_2; -} -} lean_object* _init_l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___lambda__1___closed__1() { _start: { @@ -1912,7 +1894,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_EStateM_MonadState___closed__2; -x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg___boxed), 3, 1); +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed), 3, 1); lean_closure_set(x_2, 0, x_1); return x_2; } @@ -1937,15 +1919,6 @@ lean_dec(x_3); return x_11; } } -lean_object* l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_ReaderT_lift___at___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___spec__1___rarg(x_1, x_2, x_3); -lean_dec(x_2); -return x_4; -} -} lean_object* l___private_Init_Lean_Elab_SynthesizeSyntheticMVars_2__resumePostponed___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c index 7431fc4dd5..986471caf9 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c @@ -24,6 +24,7 @@ lean_object* l_Lean_Elab_Tactic_getLocalInsts___boxed(lean_object*, lean_object* lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentHashMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__4(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__7; extern lean_object* l___private_Init_Lean_Parser_Parser_27__BuiltinParserAttribute_add___closed__2; lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__3; extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__8; @@ -55,6 +56,7 @@ uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalSkip(lean_object*, lean_object*); extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2; lean_object* l_Lean_Elab_Tactic_reportUnsolvedGoals(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_trace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_focus(lean_object*); @@ -125,6 +127,7 @@ extern lean_object* l_Lean_AttributeImpl_inhabited___closed__2; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_collectMVars___closed__1; lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__1; lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_getMainGoal___closed__2; @@ -166,6 +169,7 @@ lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); lean_object* l_PersistentHashMap_findAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_dbgTrace___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Tactic_seq___elambda__1___closed__3; +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_addContext(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalSeq___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_EStateM_Backtrackable; @@ -187,6 +191,7 @@ lean_object* l_Lean_Elab_Tactic_monadLog___lambda__2(lean_object*, lean_object*, lean_object* l_Lean_Elab_Tactic_resetSynthInstanceCache___closed__1; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalAssumption___closed__2; extern lean_object* l_Lean_Parser_Tactic_intro___elambda__1___closed__2; +lean_object* l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalOrelse(lean_object*); uint8_t l_Array_isEqvAux___main___at_Lean_Elab_Tactic_withMVarContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); size_t l_Lean_Name_hash(lean_object*); @@ -226,6 +231,7 @@ lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4; lean_object* l_Lean_Elab_Tactic_getMainModule___rarg(lean_object*); lean_object* l_Lean_Elab_Tactic_withLCtx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTraceState(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__8; uint8_t l_coeDecidableEq(uint8_t); lean_object* l_ReaderT_read___at_Lean_Elab_Tactic_monadLog___spec__1(lean_object*, lean_object*); size_t lean_usize_modn(size_t, lean_object*); @@ -284,6 +290,7 @@ lean_object* l_Lean_Elab_goalsToMessageData(lean_object*); lean_object* l_Lean_Elab_Term_liftMetaM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_MetavarContext_isAnonymousMVar(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___lambda__1___closed__4; +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__5; lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__4; @@ -357,6 +364,7 @@ lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftTermElabM___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getOptions(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_tacticElabAttribute___closed__5; +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__6; lean_object* l_Lean_Elab_Tactic_adaptExpander(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_log___at_Lean_Elab_Tactic_evalTraceState___spec__1(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getEnv___rarg(lean_object*); @@ -396,6 +404,7 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalIntro___closed__2; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalIntros___closed__2; lean_object* l_Lean_Elab_Tactic_monadLog___closed__11; lean_object* l_Lean_SMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_logAt___at_Lean_Elab_Tactic_evalTraceState___spec__3(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_collectMVars(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_LocalInstance_beq(lean_object*, lean_object*); @@ -443,16 +452,19 @@ lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__2; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4; lean_object* l_Lean_Elab_Tactic_traceAtCmdPos(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_initAttr; +extern lean_object* l_EStateM_MonadState___closed__2; lean_object* l_Lean_Elab_syntaxNodeKindOfAttrParam(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getLCtx(lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__1; lean_object* l_Lean_Elab_Tactic_expandTacticMacro(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getEnv___boxed(lean_object*); extern lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___elambda__1___closed__2; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalParen___closed__2; lean_object* l_Lean_Elab_mkMessageAt___at_Lean_Elab_Tactic_evalTraceState___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalIntro___closed__1; lean_object* l_AssocList_contains___main___at_Lean_Elab_Tactic_addBuiltinTactic___spec__3___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_monadLog___closed__4; lean_object* l_Lean_Elab_Tactic_getMCtx(lean_object*); lean_object* l_Lean_Elab_Tactic_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -4356,15 +4368,185 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_withMacroExpansion___rarg), return x_2; } } +lean_object* l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_apply_1(x_1, x_3); +return x_4; +} +} +lean_object* l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_4, 5); +lean_inc(x_5); +x_6 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_3); +return x_6; +} +} +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_3); +if (x_4 == 0) +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_ctor_get(x_3, 0); +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_ctor_get(x_5, 5); +lean_dec(x_7); +lean_ctor_set(x_5, 5, x_1); +x_8 = lean_box(0); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_3); +return x_9; +} +else +{ +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_10 = lean_ctor_get(x_5, 0); +x_11 = lean_ctor_get(x_5, 1); +x_12 = lean_ctor_get(x_5, 2); +x_13 = lean_ctor_get(x_5, 3); +x_14 = lean_ctor_get(x_5, 4); +lean_inc(x_14); +lean_inc(x_13); +lean_inc(x_12); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_5); +x_15 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_15, 0, x_10); +lean_ctor_set(x_15, 1, x_11); +lean_ctor_set(x_15, 2, x_12); +lean_ctor_set(x_15, 3, x_13); +lean_ctor_set(x_15, 4, x_14); +lean_ctor_set(x_15, 5, x_1); +lean_ctor_set(x_3, 0, x_15); +x_16 = lean_box(0); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_16); +lean_ctor_set(x_17, 1, x_3); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_18 = lean_ctor_get(x_3, 0); +x_19 = lean_ctor_get(x_3, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_3); +x_20 = lean_ctor_get(x_18, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_18, 1); +lean_inc(x_21); +x_22 = lean_ctor_get(x_18, 2); +lean_inc(x_22); +x_23 = lean_ctor_get(x_18, 3); +lean_inc(x_23); +x_24 = lean_ctor_get(x_18, 4); +lean_inc(x_24); +if (lean_is_exclusive(x_18)) { + lean_ctor_release(x_18, 0); + lean_ctor_release(x_18, 1); + lean_ctor_release(x_18, 2); + lean_ctor_release(x_18, 3); + lean_ctor_release(x_18, 4); + lean_ctor_release(x_18, 5); + x_25 = x_18; +} else { + lean_dec_ref(x_18); + x_25 = lean_box(0); +} +if (lean_is_scalar(x_25)) { + x_26 = lean_alloc_ctor(0, 6, 0); +} else { + x_26 = x_25; +} +lean_ctor_set(x_26, 0, x_20); +lean_ctor_set(x_26, 1, x_21); +lean_ctor_set(x_26, 2, x_22); +lean_ctor_set(x_26, 3, x_23); +lean_ctor_set(x_26, 4, x_24); +lean_ctor_set(x_26, 5, x_1); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_19); +x_28 = lean_box(0); +x_29 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_27); +return x_29; +} +} +} lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__1() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_EStateM_MonadState___closed__2; +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__1___boxed), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__1; +x_2 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__2; +x_3 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4() { +_start: +{ lean_object* x_1; x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getEnv___boxed), 1, 0); return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__2() { +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__2___boxed), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__6() { _start: { lean_object* x_1; @@ -4372,7 +4554,7 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_throwError), 1, 0); return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__3() { +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__7() { _start: { lean_object* x_1; @@ -4380,30 +4562,62 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_throwUnsupportedSyntax), 1, return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4() { +lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__8() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_1 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_1 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4; x_2 = l_Lean_Elab_Tactic_monadQuotation___closed__1; -x_3 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__2; -x_4 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__3; -x_5 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_5, 0, x_1); -lean_ctor_set(x_5, 1, x_2); -lean_ctor_set(x_5, 2, x_3); -lean_ctor_set(x_5, 3, x_4); -return x_5; +x_3 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__3; +x_4 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__5; +x_5 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__6; +x_6 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__7; +x_7 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_7, 0, x_1); +lean_ctor_set(x_7, 1, x_2); +lean_ctor_set(x_7, 2, x_3); +lean_ctor_set(x_7, 3, x_4); +lean_ctor_set(x_7, 4, x_5); +lean_ctor_set(x_7, 5, x_6); +return x_7; } } lean_object* _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter() { _start: { lean_object* x_1; -x_1 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4; +x_1 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__8; return x_1; } } +lean_object* l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_ReaderT_lift___at_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___spec__1___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__1(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___lambda__2(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -4432,7 +4646,7 @@ return x_15; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +lean_object* x_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_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; x_16 = lean_ctor_get(x_3, 0); lean_inc(x_16); x_17 = lean_ctor_get(x_3, 1); @@ -4450,194 +4664,441 @@ x_37 = lean_ctor_get(x_35, 1); lean_inc(x_37); lean_dec(x_35); x_38 = l_Lean_Elab_Tactic_getEnv___rarg(x_37); -x_39 = lean_ctor_get(x_38, 0); +x_39 = lean_ctor_get(x_38, 1); lean_inc(x_39); -x_40 = lean_ctor_get(x_38, 1); +x_40 = lean_ctor_get(x_39, 0); lean_inc(x_40); +x_41 = lean_ctor_get(x_38, 0); +lean_inc(x_41); lean_dec(x_38); -x_41 = lean_environment_main_module(x_39); -x_42 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_36); +x_42 = lean_ctor_get(x_39, 1); +lean_inc(x_42); +x_43 = !lean_is_exclusive(x_40); +if (x_43 == 0) +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_44 = lean_ctor_get(x_40, 0); +x_45 = lean_ctor_get(x_40, 1); +x_46 = lean_ctor_get(x_40, 2); +x_47 = lean_ctor_get(x_40, 3); +x_48 = lean_ctor_get(x_40, 4); +x_49 = lean_ctor_get(x_40, 5); +x_50 = lean_environment_main_module(x_41); +x_51 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_36); lean_inc(x_2); -x_43 = lean_apply_2(x_16, x_2, x_42); -if (lean_obj_tag(x_43) == 0) +x_52 = lean_apply_3(x_16, x_2, x_51, x_49); +if (lean_obj_tag(x_52) == 0) { -lean_object* x_44; -x_44 = lean_ctor_get(x_43, 0); -lean_inc(x_44); -lean_dec(x_43); -if (lean_obj_tag(x_44) == 0) +uint8_t x_53; +x_53 = !lean_is_exclusive(x_39); +if (x_53 == 0) { -lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; -x_45 = lean_ctor_get(x_44, 0); -lean_inc(x_45); -lean_dec(x_44); -x_46 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_46, 0, x_45); -x_47 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_47, 0, x_46); -lean_inc(x_4); -lean_inc(x_2); -x_48 = l_Lean_Elab_Tactic_throwError___rarg(x_2, x_47, x_4, x_40); -if (lean_obj_tag(x_48) == 0) -{ -lean_object* x_49; lean_object* x_50; -x_49 = lean_ctor_get(x_48, 0); -lean_inc(x_49); -x_50 = lean_ctor_get(x_48, 1); -lean_inc(x_50); -lean_dec(x_48); -x_21 = x_49; -x_22 = x_50; +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_54 = lean_ctor_get(x_39, 1); +lean_dec(x_54); +x_55 = lean_ctor_get(x_39, 0); +lean_dec(x_55); +x_56 = lean_ctor_get(x_52, 0); +lean_inc(x_56); +x_57 = lean_ctor_get(x_52, 1); +lean_inc(x_57); +lean_dec(x_52); +lean_ctor_set(x_40, 5, x_57); +x_21 = x_56; +x_22 = x_39; goto block_34; } else { -uint8_t x_51; -x_51 = !lean_is_exclusive(x_48); -if (x_51 == 0) -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_48, 0); -x_53 = lean_ctor_get(x_48, 1); -x_54 = l_Lean_Elab_Tactic_restore(x_53, x_20); -lean_dec(x_20); -if (lean_obj_tag(x_17) == 0) -{ -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -lean_ctor_set(x_48, 1, x_54); -return x_48; -} -else -{ -lean_free_object(x_48); +lean_object* x_58; lean_object* x_59; lean_object* x_60; +lean_dec(x_39); +x_58 = lean_ctor_get(x_52, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_52, 1); +lean_inc(x_59); lean_dec(x_52); -x_3 = x_17; -x_5 = x_54; -goto _start; -} -} -else -{ -lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_56 = lean_ctor_get(x_48, 0); -x_57 = lean_ctor_get(x_48, 1); -lean_inc(x_57); -lean_inc(x_56); -lean_dec(x_48); -x_58 = l_Lean_Elab_Tactic_restore(x_57, x_20); -lean_dec(x_20); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_59; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_56); -lean_ctor_set(x_59, 1, x_58); -return x_59; -} -else -{ -lean_dec(x_56); -x_3 = x_17; -x_5 = x_58; -goto _start; -} -} +lean_ctor_set(x_40, 5, x_59); +x_60 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_60, 0, x_40); +lean_ctor_set(x_60, 1, x_42); +x_21 = x_58; +x_22 = x_60; +goto block_34; } } else { lean_object* x_61; -lean_inc(x_4); -x_61 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_4, x_40); +lean_free_object(x_40); +lean_dec(x_48); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_45); +lean_dec(x_44); +lean_dec(x_42); +x_61 = lean_ctor_get(x_52, 0); +lean_inc(x_61); +lean_dec(x_52); if (lean_obj_tag(x_61) == 0) { -lean_object* x_62; lean_object* x_63; +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; x_62 = lean_ctor_get(x_61, 0); lean_inc(x_62); -x_63 = lean_ctor_get(x_61, 1); -lean_inc(x_63); lean_dec(x_61); -x_21 = x_62; -x_22 = x_63; +x_63 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_63, 0, x_62); +x_64 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_64, 0, x_63); +lean_inc(x_4); +lean_inc(x_2); +x_65 = l_Lean_Elab_Tactic_throwError___rarg(x_2, x_64, x_4, x_39); +if (lean_obj_tag(x_65) == 0) +{ +lean_object* x_66; lean_object* x_67; +x_66 = lean_ctor_get(x_65, 0); +lean_inc(x_66); +x_67 = lean_ctor_get(x_65, 1); +lean_inc(x_67); +lean_dec(x_65); +x_21 = x_66; +x_22 = x_67; goto block_34; } else { -uint8_t x_64; -x_64 = !lean_is_exclusive(x_61); -if (x_64 == 0) -{ -lean_object* x_65; lean_object* x_66; lean_object* x_67; -x_65 = lean_ctor_get(x_61, 0); -x_66 = lean_ctor_get(x_61, 1); -x_67 = l_Lean_Elab_Tactic_restore(x_66, x_20); -lean_dec(x_20); -if (lean_obj_tag(x_17) == 0) -{ -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -lean_ctor_set(x_61, 1, x_67); -return x_61; -} -else -{ -lean_free_object(x_61); -lean_dec(x_65); -x_3 = x_17; -x_5 = x_67; -goto _start; -} -} -else +uint8_t x_68; +x_68 = !lean_is_exclusive(x_65); +if (x_68 == 0) { lean_object* x_69; lean_object* x_70; lean_object* x_71; -x_69 = lean_ctor_get(x_61, 0); -x_70 = lean_ctor_get(x_61, 1); -lean_inc(x_70); -lean_inc(x_69); -lean_dec(x_61); +x_69 = lean_ctor_get(x_65, 0); +x_70 = lean_ctor_get(x_65, 1); x_71 = l_Lean_Elab_Tactic_restore(x_70, x_20); lean_dec(x_20); if (lean_obj_tag(x_17) == 0) { -lean_object* x_72; lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_72 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_72, 0, x_69); -lean_ctor_set(x_72, 1, x_71); -return x_72; +lean_ctor_set(x_65, 1, x_71); +return x_65; } else { +lean_free_object(x_65); lean_dec(x_69); x_3 = x_17; x_5 = x_71; goto _start; } } +else +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_65, 0); +x_74 = lean_ctor_get(x_65, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_65); +x_75 = l_Lean_Elab_Tactic_restore(x_74, x_20); +lean_dec(x_20); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_76; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_73); +lean_ctor_set(x_76, 1, x_75); +return x_76; +} +else +{ +lean_dec(x_73); +x_3 = x_17; +x_5 = x_75; +goto _start; +} } } } else { -lean_object* x_74; -x_74 = lean_ctor_get(x_43, 0); -lean_inc(x_74); -lean_dec(x_43); -x_21 = x_74; -x_22 = x_40; +lean_object* x_78; +lean_inc(x_4); +x_78 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_4, x_39); +if (lean_obj_tag(x_78) == 0) +{ +lean_object* x_79; lean_object* x_80; +x_79 = lean_ctor_get(x_78, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_78, 1); +lean_inc(x_80); +lean_dec(x_78); +x_21 = x_79; +x_22 = x_80; goto block_34; } +else +{ +uint8_t x_81; +x_81 = !lean_is_exclusive(x_78); +if (x_81 == 0) +{ +lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_82 = lean_ctor_get(x_78, 0); +x_83 = lean_ctor_get(x_78, 1); +x_84 = l_Lean_Elab_Tactic_restore(x_83, x_20); +lean_dec(x_20); +if (lean_obj_tag(x_17) == 0) +{ +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +lean_ctor_set(x_78, 1, x_84); +return x_78; +} +else +{ +lean_free_object(x_78); +lean_dec(x_82); +x_3 = x_17; +x_5 = x_84; +goto _start; +} +} +else +{ +lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_86 = lean_ctor_get(x_78, 0); +x_87 = lean_ctor_get(x_78, 1); +lean_inc(x_87); +lean_inc(x_86); +lean_dec(x_78); +x_88 = l_Lean_Elab_Tactic_restore(x_87, x_20); +lean_dec(x_20); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_89; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_86); +lean_ctor_set(x_89, 1, x_88); +return x_89; +} +else +{ +lean_dec(x_86); +x_3 = x_17; +x_5 = x_88; +goto _start; +} +} +} +} +} +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; +x_91 = lean_ctor_get(x_40, 0); +x_92 = lean_ctor_get(x_40, 1); +x_93 = lean_ctor_get(x_40, 2); +x_94 = lean_ctor_get(x_40, 3); +x_95 = lean_ctor_get(x_40, 4); +x_96 = lean_ctor_get(x_40, 5); +lean_inc(x_96); +lean_inc(x_95); +lean_inc(x_94); +lean_inc(x_93); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_40); +x_97 = lean_environment_main_module(x_41); +x_98 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_36); +lean_inc(x_2); +x_99 = lean_apply_3(x_16, x_2, x_98, x_96); +if (lean_obj_tag(x_99) == 0) +{ +lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; +if (lean_is_exclusive(x_39)) { + lean_ctor_release(x_39, 0); + lean_ctor_release(x_39, 1); + x_100 = x_39; +} else { + lean_dec_ref(x_39); + x_100 = lean_box(0); +} +x_101 = lean_ctor_get(x_99, 0); +lean_inc(x_101); +x_102 = lean_ctor_get(x_99, 1); +lean_inc(x_102); +lean_dec(x_99); +x_103 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_103, 0, x_91); +lean_ctor_set(x_103, 1, x_92); +lean_ctor_set(x_103, 2, x_93); +lean_ctor_set(x_103, 3, x_94); +lean_ctor_set(x_103, 4, x_95); +lean_ctor_set(x_103, 5, x_102); +if (lean_is_scalar(x_100)) { + x_104 = lean_alloc_ctor(0, 2, 0); +} else { + x_104 = x_100; +} +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_42); +x_21 = x_101; +x_22 = x_104; +goto block_34; +} +else +{ +lean_object* x_105; +lean_dec(x_95); +lean_dec(x_94); +lean_dec(x_93); +lean_dec(x_92); +lean_dec(x_91); +lean_dec(x_42); +x_105 = lean_ctor_get(x_99, 0); +lean_inc(x_105); +lean_dec(x_99); +if (lean_obj_tag(x_105) == 0) +{ +lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_106 = lean_ctor_get(x_105, 0); +lean_inc(x_106); +lean_dec(x_105); +x_107 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_107, 0, x_106); +x_108 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_108, 0, x_107); +lean_inc(x_4); +lean_inc(x_2); +x_109 = l_Lean_Elab_Tactic_throwError___rarg(x_2, x_108, x_4, x_39); +if (lean_obj_tag(x_109) == 0) +{ +lean_object* x_110; lean_object* x_111; +x_110 = lean_ctor_get(x_109, 0); +lean_inc(x_110); +x_111 = lean_ctor_get(x_109, 1); +lean_inc(x_111); +lean_dec(x_109); +x_21 = x_110; +x_22 = x_111; +goto block_34; +} +else +{ +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; +x_112 = lean_ctor_get(x_109, 0); +lean_inc(x_112); +x_113 = lean_ctor_get(x_109, 1); +lean_inc(x_113); +if (lean_is_exclusive(x_109)) { + lean_ctor_release(x_109, 0); + lean_ctor_release(x_109, 1); + x_114 = x_109; +} else { + lean_dec_ref(x_109); + x_114 = lean_box(0); +} +x_115 = l_Lean_Elab_Tactic_restore(x_113, x_20); +lean_dec(x_20); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_116; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +if (lean_is_scalar(x_114)) { + x_116 = lean_alloc_ctor(1, 2, 0); +} else { + x_116 = x_114; +} +lean_ctor_set(x_116, 0, x_112); +lean_ctor_set(x_116, 1, x_115); +return x_116; +} +else +{ +lean_dec(x_114); +lean_dec(x_112); +x_3 = x_17; +x_5 = x_115; +goto _start; +} +} +} +else +{ +lean_object* x_118; +lean_inc(x_4); +x_118 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_4, x_39); +if (lean_obj_tag(x_118) == 0) +{ +lean_object* x_119; lean_object* x_120; +x_119 = lean_ctor_get(x_118, 0); +lean_inc(x_119); +x_120 = lean_ctor_get(x_118, 1); +lean_inc(x_120); +lean_dec(x_118); +x_21 = x_119; +x_22 = x_120; +goto block_34; +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_121 = lean_ctor_get(x_118, 0); +lean_inc(x_121); +x_122 = lean_ctor_get(x_118, 1); +lean_inc(x_122); +if (lean_is_exclusive(x_118)) { + lean_ctor_release(x_118, 0); + lean_ctor_release(x_118, 1); + x_123 = x_118; +} else { + lean_dec_ref(x_118); + x_123 = lean_box(0); +} +x_124 = l_Lean_Elab_Tactic_restore(x_122, x_20); +lean_dec(x_20); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_125; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +if (lean_is_scalar(x_123)) { + x_125 = lean_alloc_ctor(1, 2, 0); +} else { + x_125 = x_123; +} +lean_ctor_set(x_125, 0, x_121); +lean_ctor_set(x_125, 1, x_124); +return x_125; +} +else +{ +lean_dec(x_123); +lean_dec(x_121); +x_3 = x_17; +x_5 = x_124; +goto _start; +} +} +} +} +} block_34: { lean_object* x_23; @@ -5009,7 +5470,7 @@ return x_14; } else { -lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; +lean_object* x_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_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; uint8_t x_42; x_15 = lean_ctor_get(x_2, 0); lean_inc(x_15); x_16 = lean_ctor_get(x_2, 1); @@ -5027,190 +5488,435 @@ x_36 = lean_ctor_get(x_34, 1); lean_inc(x_36); lean_dec(x_34); x_37 = l_Lean_Elab_Tactic_getEnv___rarg(x_36); -x_38 = lean_ctor_get(x_37, 0); +x_38 = lean_ctor_get(x_37, 1); lean_inc(x_38); -x_39 = lean_ctor_get(x_37, 1); +x_39 = lean_ctor_get(x_38, 0); lean_inc(x_39); +x_40 = lean_ctor_get(x_37, 0); +lean_inc(x_40); lean_dec(x_37); -x_40 = lean_environment_main_module(x_38); -x_41 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_35); +x_41 = lean_ctor_get(x_38, 1); +lean_inc(x_41); +x_42 = !lean_is_exclusive(x_39); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_43 = lean_ctor_get(x_39, 0); +x_44 = lean_ctor_get(x_39, 1); +x_45 = lean_ctor_get(x_39, 2); +x_46 = lean_ctor_get(x_39, 3); +x_47 = lean_ctor_get(x_39, 4); +x_48 = lean_ctor_get(x_39, 5); +x_49 = lean_environment_main_module(x_40); +x_50 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_35); lean_inc(x_1); -x_42 = lean_apply_2(x_15, x_1, x_41); -if (lean_obj_tag(x_42) == 0) +x_51 = lean_apply_3(x_15, x_1, x_50, x_48); +if (lean_obj_tag(x_51) == 0) { -lean_object* x_43; -x_43 = lean_ctor_get(x_42, 0); -lean_inc(x_43); -lean_dec(x_42); -if (lean_obj_tag(x_43) == 0) +uint8_t x_52; +x_52 = !lean_is_exclusive(x_38); +if (x_52 == 0) { -lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_44 = lean_ctor_get(x_43, 0); -lean_inc(x_44); -lean_dec(x_43); -x_45 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_45, 0, x_44); -x_46 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_46, 0, x_45); -lean_inc(x_3); -lean_inc(x_1); -x_47 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_46, x_3, x_39); -if (lean_obj_tag(x_47) == 0) -{ -lean_object* x_48; lean_object* x_49; -x_48 = lean_ctor_get(x_47, 0); -lean_inc(x_48); -x_49 = lean_ctor_get(x_47, 1); -lean_inc(x_49); -lean_dec(x_47); -x_20 = x_48; -x_21 = x_49; +lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_53 = lean_ctor_get(x_38, 1); +lean_dec(x_53); +x_54 = lean_ctor_get(x_38, 0); +lean_dec(x_54); +x_55 = lean_ctor_get(x_51, 0); +lean_inc(x_55); +x_56 = lean_ctor_get(x_51, 1); +lean_inc(x_56); +lean_dec(x_51); +lean_ctor_set(x_39, 5, x_56); +x_20 = x_55; +x_21 = x_38; goto block_33; } else { -uint8_t x_50; -x_50 = !lean_is_exclusive(x_47); -if (x_50 == 0) -{ -lean_object* x_51; lean_object* x_52; lean_object* x_53; -x_51 = lean_ctor_get(x_47, 0); -x_52 = lean_ctor_get(x_47, 1); -x_53 = l_Lean_Elab_Tactic_restore(x_52, x_19); -lean_dec(x_19); -if (lean_obj_tag(x_16) == 0) -{ -lean_dec(x_3); -lean_dec(x_1); -lean_ctor_set(x_47, 1, x_53); -return x_47; -} -else -{ -lean_free_object(x_47); +lean_object* x_57; lean_object* x_58; lean_object* x_59; +lean_dec(x_38); +x_57 = lean_ctor_get(x_51, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_51, 1); +lean_inc(x_58); lean_dec(x_51); -x_2 = x_16; -x_4 = x_53; -goto _start; -} -} -else -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; -x_55 = lean_ctor_get(x_47, 0); -x_56 = lean_ctor_get(x_47, 1); -lean_inc(x_56); -lean_inc(x_55); -lean_dec(x_47); -x_57 = l_Lean_Elab_Tactic_restore(x_56, x_19); -lean_dec(x_19); -if (lean_obj_tag(x_16) == 0) -{ -lean_object* x_58; -lean_dec(x_3); -lean_dec(x_1); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_55); -lean_ctor_set(x_58, 1, x_57); -return x_58; -} -else -{ -lean_dec(x_55); -x_2 = x_16; -x_4 = x_57; -goto _start; -} -} +lean_ctor_set(x_39, 5, x_58); +x_59 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_59, 0, x_39); +lean_ctor_set(x_59, 1, x_41); +x_20 = x_57; +x_21 = x_59; +goto block_33; } } else { lean_object* x_60; -lean_inc(x_3); -x_60 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_3, x_39); +lean_free_object(x_39); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_45); +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_41); +x_60 = lean_ctor_get(x_51, 0); +lean_inc(x_60); +lean_dec(x_51); if (lean_obj_tag(x_60) == 0) { -lean_object* x_61; lean_object* x_62; +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; x_61 = lean_ctor_get(x_60, 0); lean_inc(x_61); -x_62 = lean_ctor_get(x_60, 1); -lean_inc(x_62); lean_dec(x_60); -x_20 = x_61; -x_21 = x_62; +x_62 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_62, 0, x_61); +x_63 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_63, 0, x_62); +lean_inc(x_3); +lean_inc(x_1); +x_64 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_63, x_3, x_38); +if (lean_obj_tag(x_64) == 0) +{ +lean_object* x_65; lean_object* x_66; +x_65 = lean_ctor_get(x_64, 0); +lean_inc(x_65); +x_66 = lean_ctor_get(x_64, 1); +lean_inc(x_66); +lean_dec(x_64); +x_20 = x_65; +x_21 = x_66; goto block_33; } else { -uint8_t x_63; -x_63 = !lean_is_exclusive(x_60); -if (x_63 == 0) -{ -lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_64 = lean_ctor_get(x_60, 0); -x_65 = lean_ctor_get(x_60, 1); -x_66 = l_Lean_Elab_Tactic_restore(x_65, x_19); -lean_dec(x_19); -if (lean_obj_tag(x_16) == 0) -{ -lean_dec(x_3); -lean_dec(x_1); -lean_ctor_set(x_60, 1, x_66); -return x_60; -} -else -{ -lean_free_object(x_60); -lean_dec(x_64); -x_2 = x_16; -x_4 = x_66; -goto _start; -} -} -else +uint8_t x_67; +x_67 = !lean_is_exclusive(x_64); +if (x_67 == 0) { lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_68 = lean_ctor_get(x_60, 0); -x_69 = lean_ctor_get(x_60, 1); -lean_inc(x_69); -lean_inc(x_68); -lean_dec(x_60); +x_68 = lean_ctor_get(x_64, 0); +x_69 = lean_ctor_get(x_64, 1); x_70 = l_Lean_Elab_Tactic_restore(x_69, x_19); lean_dec(x_19); if (lean_obj_tag(x_16) == 0) { -lean_object* x_71; lean_dec(x_3); lean_dec(x_1); -x_71 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_71, 0, x_68); -lean_ctor_set(x_71, 1, x_70); -return x_71; +lean_ctor_set(x_64, 1, x_70); +return x_64; } else { +lean_free_object(x_64); lean_dec(x_68); x_2 = x_16; x_4 = x_70; goto _start; } } +else +{ +lean_object* x_72; lean_object* x_73; lean_object* x_74; +x_72 = lean_ctor_get(x_64, 0); +x_73 = lean_ctor_get(x_64, 1); +lean_inc(x_73); +lean_inc(x_72); +lean_dec(x_64); +x_74 = l_Lean_Elab_Tactic_restore(x_73, x_19); +lean_dec(x_19); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_75; +lean_dec(x_3); +lean_dec(x_1); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_72); +lean_ctor_set(x_75, 1, x_74); +return x_75; +} +else +{ +lean_dec(x_72); +x_2 = x_16; +x_4 = x_74; +goto _start; +} } } } else { -lean_object* x_73; -x_73 = lean_ctor_get(x_42, 0); -lean_inc(x_73); -lean_dec(x_42); -x_20 = x_73; -x_21 = x_39; +lean_object* x_77; +lean_inc(x_3); +x_77 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_3, x_38); +if (lean_obj_tag(x_77) == 0) +{ +lean_object* x_78; lean_object* x_79; +x_78 = lean_ctor_get(x_77, 0); +lean_inc(x_78); +x_79 = lean_ctor_get(x_77, 1); +lean_inc(x_79); +lean_dec(x_77); +x_20 = x_78; +x_21 = x_79; goto block_33; } +else +{ +uint8_t x_80; +x_80 = !lean_is_exclusive(x_77); +if (x_80 == 0) +{ +lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_77, 0); +x_82 = lean_ctor_get(x_77, 1); +x_83 = l_Lean_Elab_Tactic_restore(x_82, x_19); +lean_dec(x_19); +if (lean_obj_tag(x_16) == 0) +{ +lean_dec(x_3); +lean_dec(x_1); +lean_ctor_set(x_77, 1, x_83); +return x_77; +} +else +{ +lean_free_object(x_77); +lean_dec(x_81); +x_2 = x_16; +x_4 = x_83; +goto _start; +} +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_85 = lean_ctor_get(x_77, 0); +x_86 = lean_ctor_get(x_77, 1); +lean_inc(x_86); +lean_inc(x_85); +lean_dec(x_77); +x_87 = l_Lean_Elab_Tactic_restore(x_86, x_19); +lean_dec(x_19); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_88; +lean_dec(x_3); +lean_dec(x_1); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_85); +lean_ctor_set(x_88, 1, x_87); +return x_88; +} +else +{ +lean_dec(x_85); +x_2 = x_16; +x_4 = x_87; +goto _start; +} +} +} +} +} +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_90 = lean_ctor_get(x_39, 0); +x_91 = lean_ctor_get(x_39, 1); +x_92 = lean_ctor_get(x_39, 2); +x_93 = lean_ctor_get(x_39, 3); +x_94 = lean_ctor_get(x_39, 4); +x_95 = lean_ctor_get(x_39, 5); +lean_inc(x_95); +lean_inc(x_94); +lean_inc(x_93); +lean_inc(x_92); +lean_inc(x_91); +lean_inc(x_90); +lean_dec(x_39); +x_96 = lean_environment_main_module(x_40); +x_97 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_97, 0, x_96); +lean_ctor_set(x_97, 1, x_35); +lean_inc(x_1); +x_98 = lean_apply_3(x_15, x_1, x_97, x_95); +if (lean_obj_tag(x_98) == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; +if (lean_is_exclusive(x_38)) { + lean_ctor_release(x_38, 0); + lean_ctor_release(x_38, 1); + x_99 = x_38; +} else { + lean_dec_ref(x_38); + x_99 = lean_box(0); +} +x_100 = lean_ctor_get(x_98, 0); +lean_inc(x_100); +x_101 = lean_ctor_get(x_98, 1); +lean_inc(x_101); +lean_dec(x_98); +x_102 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_102, 0, x_90); +lean_ctor_set(x_102, 1, x_91); +lean_ctor_set(x_102, 2, x_92); +lean_ctor_set(x_102, 3, x_93); +lean_ctor_set(x_102, 4, x_94); +lean_ctor_set(x_102, 5, x_101); +if (lean_is_scalar(x_99)) { + x_103 = lean_alloc_ctor(0, 2, 0); +} else { + x_103 = x_99; +} +lean_ctor_set(x_103, 0, x_102); +lean_ctor_set(x_103, 1, x_41); +x_20 = x_100; +x_21 = x_103; +goto block_33; +} +else +{ +lean_object* x_104; +lean_dec(x_94); +lean_dec(x_93); +lean_dec(x_92); +lean_dec(x_91); +lean_dec(x_90); +lean_dec(x_41); +x_104 = lean_ctor_get(x_98, 0); +lean_inc(x_104); +lean_dec(x_98); +if (lean_obj_tag(x_104) == 0) +{ +lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; +x_105 = lean_ctor_get(x_104, 0); +lean_inc(x_105); +lean_dec(x_104); +x_106 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_106, 0, x_105); +x_107 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_107, 0, x_106); +lean_inc(x_3); +lean_inc(x_1); +x_108 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_107, x_3, x_38); +if (lean_obj_tag(x_108) == 0) +{ +lean_object* x_109; lean_object* x_110; +x_109 = lean_ctor_get(x_108, 0); +lean_inc(x_109); +x_110 = lean_ctor_get(x_108, 1); +lean_inc(x_110); +lean_dec(x_108); +x_20 = x_109; +x_21 = x_110; +goto block_33; +} +else +{ +lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_111 = lean_ctor_get(x_108, 0); +lean_inc(x_111); +x_112 = lean_ctor_get(x_108, 1); +lean_inc(x_112); +if (lean_is_exclusive(x_108)) { + lean_ctor_release(x_108, 0); + lean_ctor_release(x_108, 1); + x_113 = x_108; +} else { + lean_dec_ref(x_108); + x_113 = lean_box(0); +} +x_114 = l_Lean_Elab_Tactic_restore(x_112, x_19); +lean_dec(x_19); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_115; +lean_dec(x_3); +lean_dec(x_1); +if (lean_is_scalar(x_113)) { + x_115 = lean_alloc_ctor(1, 2, 0); +} else { + x_115 = x_113; +} +lean_ctor_set(x_115, 0, x_111); +lean_ctor_set(x_115, 1, x_114); +return x_115; +} +else +{ +lean_dec(x_113); +lean_dec(x_111); +x_2 = x_16; +x_4 = x_114; +goto _start; +} +} +} +else +{ +lean_object* x_117; +lean_inc(x_3); +x_117 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_3, x_38); +if (lean_obj_tag(x_117) == 0) +{ +lean_object* x_118; lean_object* x_119; +x_118 = lean_ctor_get(x_117, 0); +lean_inc(x_118); +x_119 = lean_ctor_get(x_117, 1); +lean_inc(x_119); +lean_dec(x_117); +x_20 = x_118; +x_21 = x_119; +goto block_33; +} +else +{ +lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_120 = lean_ctor_get(x_117, 0); +lean_inc(x_120); +x_121 = lean_ctor_get(x_117, 1); +lean_inc(x_121); +if (lean_is_exclusive(x_117)) { + lean_ctor_release(x_117, 0); + lean_ctor_release(x_117, 1); + x_122 = x_117; +} else { + lean_dec_ref(x_117); + x_122 = lean_box(0); +} +x_123 = l_Lean_Elab_Tactic_restore(x_121, x_19); +lean_dec(x_19); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_124; +lean_dec(x_3); +lean_dec(x_1); +if (lean_is_scalar(x_122)) { + x_124 = lean_alloc_ctor(1, 2, 0); +} else { + x_124 = x_122; +} +lean_ctor_set(x_124, 0, x_120); +lean_ctor_set(x_124, 1, x_123); +return x_124; +} +else +{ +lean_dec(x_122); +lean_dec(x_120); +x_2 = x_16; +x_4 = x_123; +goto _start; +} +} +} +} +} block_33: { lean_object* x_22; @@ -15256,6 +15962,14 @@ l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__3 = _init_l_Lean_Elab_T lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__3); l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4 = _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4(); lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4); +l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__5 = _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__5(); +lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__5); +l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__6 = _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__6(); +lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__6); +l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__7 = _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__7(); +lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__7); +l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__8 = _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__8(); +lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__8); l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter = _init_l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter(); lean_mark_persistent(l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter); l_Lean_Elab_Tactic_evalTactic___main___closed__1 = _init_l_Lean_Elab_Tactic_evalTactic___main___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Elab/Term.c b/stage0/stdlib/Init/Lean/Elab/Term.c index e5608767fe..5da6fabe00 100644 --- a/stage0/stdlib/Init/Lean/Elab/Term.c +++ b/stage0/stdlib/Init/Lean/Elab/Term.c @@ -212,6 +212,7 @@ extern lean_object* l_Lean_LocalContext_Inhabited___closed__1; lean_object* l_Lean_Elab_Term_resolveName___closed__5; lean_object* l_Lean_Elab_Term_mkFreshExprMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_LVal_hasToString(lean_object*); +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7; lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2; lean_object* l_Lean_Elab_Term_trace___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__8; @@ -252,6 +253,7 @@ lean_object* l_Lean_Elab_Term_withTransparency(lean_object*); lean_object* l_HashMapImp_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__5___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1; lean_object* l_Lean_Elab_Term_elabListLit___closed__2; +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_withConfig___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_tryCoe___closed__4; lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___boxed(lean_object*); @@ -267,6 +269,7 @@ lean_object* l___private_Init_Lean_Elab_Term_2__fromMetaException___boxed(lean_o uint8_t l_Lean_Elab_Term_elabParen___closed__4; lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; lean_object* l_Lean_Elab_Term_elabLevel(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Syntax_termIdToAntiquot___closed__4; lean_object* l___private_Init_Lean_Elab_Term_15__mkConsts(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_monadLog___closed__1; @@ -341,6 +344,7 @@ lean_object* l_Lean_Elab_Term_levelMVarToParam___lambda__1___boxed(lean_object*, lean_object* l___private_Init_Lean_Elab_Term_8__elabTermUsing(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Term_7__postponeElabTerm(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_withTransparency___rarg(uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getMVarDecl___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_setTraceState___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_fvarId_x21(lean_object*); @@ -369,7 +373,7 @@ lean_object* l_Lean_Elab_Term_termElabAttribute___closed__3; lean_object* l_Nat_repr(lean_object*); lean_object* l_Lean_Elab_Term_State_inhabited___closed__2; extern lean_object* l_Char_HasRepr___closed__1; -lean_object* l_Lean_Elab_getMacros(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_getMacros(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Term_6__exceptionToSorry___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabListLit___closed__3; lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; @@ -488,6 +492,7 @@ lean_object* l_Lean_Elab_Term_elabRawNumLit(lean_object*, lean_object*, lean_obj lean_object* l___private_Init_Lean_Elab_Term_10__mkPairsAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTermAux___main___closed__3; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3; +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ConstantInfo_type(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabProp___closed__1; extern lean_object* l_Lean_Parser_Term_cdot___elambda__1___closed__2; @@ -522,6 +527,7 @@ lean_object* l_Lean_Elab_Term_isDefEq(lean_object*, lean_object*, lean_object*, extern lean_object* l_Lean_Elab_declareBuiltinMacro___closed__4; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabRawNumLit___closed__1; lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___closed__10; +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__5; lean_object* l_Lean_ConstantInfo_lparams(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabNamedHole(lean_object*); lean_object* l_Lean_Elab_Term_mkFreshAnonymousName(lean_object*); @@ -604,6 +610,7 @@ extern lean_object* l_Lean_EnvExtension_setState___closed__1; lean_object* l_Lean_Elab_Term_liftLevelM___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabQuotedName___closed__2; lean_object* l_Lean_Elab_Term_tryPostponeIfMVar___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1(lean_object*); lean_object* l_Lean_Elab_Term_whnfCore(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_monadLog___lambda__4___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Util_1__mkPanicMessage___closed__2; @@ -736,6 +743,7 @@ lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, lean_object*, lean_ lean_object* l_Lean_Elab_Term_resetSynthInstanceCache___boxed(lean_object*); lean_object* l_Lean_Elab_Term_decLevel___closed__2; lean_object* l_Lean_Elab_Term_decLevel___closed__1; +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabTermAux___main___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabBadCDot___closed__1; lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__1; @@ -760,10 +768,12 @@ uint8_t l_Array_isEqvAux___main___at_Lean_Elab_Term_withMVarContext___spec__1(le lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabBadCDot___closed__2; lean_object* l_Lean_Elab_Term_elabRawCharLit___closed__4; extern lean_object* l_Lean_levelOne; +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Message_toString(lean_object*); lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_char___elambda__1___closed__2; lean_object* l_Lean_indentExpr(lean_object*); +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__8; lean_object* l_Lean_Elab_Term_trace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_contains___main___at_Lean_Elab_Term_addBuiltinTermElab___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabRawCharLit___closed__2; @@ -792,6 +802,7 @@ lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabNum___closed__3; lean_object* l_Lean_Elab_Term_throwTypeMismatchError___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4; extern lean_object* l_Lean_initAttr; +extern lean_object* l_EStateM_MonadState___closed__2; extern lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__2; uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Elab_Term_4__hasCDot___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getOptions___boxed(lean_object*, lean_object*); @@ -832,6 +843,7 @@ lean_object* l_Lean_Elab_getBetterRef(lean_object*, lean_object*); uint8_t lean_string_dec_eq(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Term_9__tryCoeSort___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6; lean_object* l_Lean_Elab_Term_decLevel___closed__6; extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; lean_object* l_Lean_Elab_Term_tryCoe___closed__3; @@ -12013,15 +12025,127 @@ x_9 = l___private_Init_Lean_Elab_Term_8__elabTermUsing(x_1, x_2, x_3, x_8, x_5, return x_9; } } +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_apply_1(x_1, x_3); +return x_4; +} +} +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_1, 5); +lean_inc(x_4); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_3); +return x_5; +} +} +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_3); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_ctor_get(x_3, 5); +lean_dec(x_5); +lean_ctor_set(x_3, 5, x_1); +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; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_8 = lean_ctor_get(x_3, 0); +x_9 = lean_ctor_get(x_3, 1); +x_10 = lean_ctor_get(x_3, 2); +x_11 = lean_ctor_get(x_3, 3); +x_12 = lean_ctor_get(x_3, 4); +lean_inc(x_12); +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_3); +x_13 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_13, 0, x_8); +lean_ctor_set(x_13, 1, x_9); +lean_ctor_set(x_13, 2, x_10); +lean_ctor_set(x_13, 3, x_11); +lean_ctor_set(x_13, 4, x_12); +lean_ctor_set(x_13, 5, x_1); +x_14 = lean_box(0); +x_15 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_13); +return x_15; +} +} +} lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__1() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_EStateM_MonadState___closed__2; +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1___boxed), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__1; +x_2 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__2; +x_3 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4() { +_start: +{ lean_object* x_1; x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_getEnv___boxed), 1, 0); return x_1; } } -lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__2() { +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2___boxed), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6() { _start: { lean_object* x_1; @@ -12029,7 +12153,7 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_throwError), 1, 0); return x_1; } } -lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3() { +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7() { _start: { lean_object* x_1; @@ -12037,30 +12161,62 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Term_throwUnsupportedSyntax___boxed return x_1; } } -lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4() { +lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__8() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_1 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_1 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4; x_2 = l_Lean_Elab_Term_monadQuotation___closed__1; -x_3 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__2; -x_4 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3; -x_5 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_5, 0, x_1); -lean_ctor_set(x_5, 1, x_2); -lean_ctor_set(x_5, 2, x_3); -lean_ctor_set(x_5, 3, x_4); -return x_5; +x_3 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3; +x_4 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__5; +x_5 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6; +x_6 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7; +x_7 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_7, 0, x_1); +lean_ctor_set(x_7, 1, x_2); +lean_ctor_set(x_7, 2, x_3); +lean_ctor_set(x_7, 3, x_4); +lean_ctor_set(x_7, 4, x_5); +lean_ctor_set(x_7, 5, x_6); +return x_7; } } lean_object* _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter() { _start: { lean_object* x_1; -x_1 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4; +x_1 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__8; return x_1; } } +lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Elab_Term_elabTermAux___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -12350,7 +12506,7 @@ lean_ctor_set(x_5, 5, x_9); x_10 = !lean_is_exclusive(x_4); if (x_10 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; uint8_t x_21; uint8_t x_22; lean_object* x_23; lean_object* x_24; lean_object* x_176; lean_object* x_177; uint8_t x_178; +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; uint8_t x_21; uint8_t x_22; lean_object* x_23; lean_object* x_24; lean_object* x_202; lean_object* x_203; uint8_t x_204; x_11 = lean_ctor_get(x_4, 0); x_12 = lean_ctor_get(x_4, 1); x_13 = lean_ctor_get(x_4, 2); @@ -12376,22 +12532,22 @@ lean_inc(x_13); lean_inc(x_12); lean_inc(x_11); lean_ctor_set(x_4, 9, x_7); -x_176 = lean_ctor_get(x_11, 3); -lean_inc(x_176); -x_177 = lean_ctor_get(x_11, 4); -lean_inc(x_177); -x_178 = lean_nat_dec_eq(x_176, x_177); -lean_dec(x_177); -lean_dec(x_176); -if (x_178 == 0) +x_202 = lean_ctor_get(x_11, 3); +lean_inc(x_202); +x_203 = lean_ctor_get(x_11, 4); +lean_inc(x_203); +x_204 = lean_nat_dec_eq(x_202, x_203); +lean_dec(x_203); +lean_dec(x_202); +if (x_204 == 0) { lean_dec(x_4); x_24 = x_5; -goto block_175; +goto block_201; } else { -lean_object* x_179; lean_object* x_180; uint8_t x_181; +lean_object* x_205; lean_object* x_206; uint8_t x_207; lean_dec(x_19); lean_dec(x_18); lean_dec(x_17); @@ -12403,35 +12559,35 @@ lean_dec(x_12); lean_dec(x_11); lean_dec(x_7); lean_dec(x_1); -x_179 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; -x_180 = l_Lean_Elab_Term_throwError___rarg(x_3, x_179, x_4, x_5); +x_205 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; +x_206 = l_Lean_Elab_Term_throwError___rarg(x_3, x_205, x_4, x_5); lean_dec(x_3); -x_181 = !lean_is_exclusive(x_180); -if (x_181 == 0) +x_207 = !lean_is_exclusive(x_206); +if (x_207 == 0) { -return x_180; +return x_206; } else { -lean_object* x_182; lean_object* x_183; lean_object* x_184; -x_182 = lean_ctor_get(x_180, 0); -x_183 = lean_ctor_get(x_180, 1); -lean_inc(x_183); -lean_inc(x_182); -lean_dec(x_180); -x_184 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_184, 0, x_182); -lean_ctor_set(x_184, 1, x_183); -return x_184; +lean_object* x_208; lean_object* x_209; lean_object* x_210; +x_208 = lean_ctor_get(x_206, 0); +x_209 = lean_ctor_get(x_206, 1); +lean_inc(x_209); +lean_inc(x_208); +lean_dec(x_206); +x_210 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_210, 0, x_208); +lean_ctor_set(x_210, 1, x_209); +return x_210; } } -block_175: +block_201: { uint8_t x_25; x_25 = !lean_is_exclusive(x_11); if (x_25 == 0) { -lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; uint8_t x_94; +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; uint8_t x_111; x_26 = lean_ctor_get(x_11, 3); x_27 = lean_nat_add(x_26, x_8); lean_dec(x_26); @@ -12460,34 +12616,34 @@ lean_ctor_set(x_28, 9, x_7); lean_ctor_set_uint8(x_28, sizeof(void*)*10, x_20); lean_ctor_set_uint8(x_28, sizeof(void*)*10 + 1, x_21); lean_ctor_set_uint8(x_28, sizeof(void*)*10 + 2, x_22); -x_90 = l_Lean_Elab_Term_getOptions(x_28, x_24); -x_91 = lean_ctor_get(x_90, 0); -lean_inc(x_91); -x_92 = lean_ctor_get(x_90, 1); -lean_inc(x_92); -lean_dec(x_90); -x_93 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; -x_94 = l_Lean_checkTraceOption(x_91, x_93); -lean_dec(x_91); -if (x_94 == 0) +x_107 = l_Lean_Elab_Term_getOptions(x_28, x_24); +x_108 = lean_ctor_get(x_107, 0); +lean_inc(x_108); +x_109 = lean_ctor_get(x_107, 1); +lean_inc(x_109); +lean_dec(x_107); +x_110 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; +x_111 = l_Lean_checkTraceOption(x_108, x_110); +lean_dec(x_108); +if (x_111 == 0) { -x_29 = x_92; -goto block_89; +x_29 = x_109; +goto block_106; } else { -lean_object* x_95; lean_object* x_96; lean_object* x_97; +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_inc(x_3); -x_95 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_95, 0, x_3); -x_96 = l_Lean_Elab_Term_logTrace(x_93, x_3, x_95, x_28, x_92); -x_97 = lean_ctor_get(x_96, 1); -lean_inc(x_97); -lean_dec(x_96); -x_29 = x_97; -goto block_89; +x_112 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_112, 0, x_3); +x_113 = l_Lean_Elab_Term_logTrace(x_110, x_3, x_112, x_28, x_109); +x_114 = lean_ctor_get(x_113, 1); +lean_inc(x_114); +lean_dec(x_113); +x_29 = x_114; +goto block_106; } -block_89: +block_106: { lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; x_30 = l_Lean_Elab_Term_termElabAttribute; @@ -12509,7 +12665,7 @@ x_36 = l_Lean_Syntax_getKind(x_3); x_37 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_35, x_36); if (lean_obj_tag(x_37) == 0) { -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_49; lean_object* x_50; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_49; lean_object* x_50; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; x_38 = l_Lean_Elab_Term_getEnv___rarg(x_29); x_39 = lean_ctor_get(x_38, 0); lean_inc(x_39); @@ -12530,21 +12686,91 @@ x_69 = lean_ctor_get(x_67, 1); lean_inc(x_69); lean_dec(x_67); x_70 = l_Lean_Elab_Term_getEnv___rarg(x_69); -x_71 = lean_ctor_get(x_70, 0); +x_71 = lean_ctor_get(x_70, 1); lean_inc(x_71); -x_72 = lean_ctor_get(x_70, 1); +x_72 = lean_ctor_get(x_70, 0); lean_inc(x_72); lean_dec(x_70); -x_73 = lean_environment_main_module(x_71); -x_74 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_74, 0, x_73); -lean_ctor_set(x_74, 1, x_68); +x_73 = lean_ctor_get(x_71, 0); +lean_inc(x_73); +x_74 = lean_ctor_get(x_71, 1); +lean_inc(x_74); +x_75 = lean_ctor_get(x_71, 2); +lean_inc(x_75); +x_76 = lean_ctor_get(x_71, 3); +lean_inc(x_76); +x_77 = lean_ctor_get(x_71, 4); +lean_inc(x_77); +x_78 = lean_ctor_get(x_71, 5); +lean_inc(x_78); +x_79 = lean_environment_main_module(x_72); +x_80 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_68); lean_inc(x_3); -x_75 = l_Lean_Elab_getMacros(x_39, x_3, x_74); +x_81 = l_Lean_Elab_getMacros(x_39, x_3, x_80, x_78); lean_dec(x_39); -if (lean_obj_tag(x_75) == 0) +if (lean_obj_tag(x_81) == 0) { -lean_object* x_76; +uint8_t x_82; +lean_dec(x_41); +lean_dec(x_36); +lean_dec(x_28); +x_82 = !lean_is_exclusive(x_71); +if (x_82 == 0) +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_83 = lean_ctor_get(x_71, 5); +lean_dec(x_83); +x_84 = lean_ctor_get(x_71, 4); +lean_dec(x_84); +x_85 = lean_ctor_get(x_71, 3); +lean_dec(x_85); +x_86 = lean_ctor_get(x_71, 2); +lean_dec(x_86); +x_87 = lean_ctor_get(x_71, 1); +lean_dec(x_87); +x_88 = lean_ctor_get(x_71, 0); +lean_dec(x_88); +x_89 = lean_ctor_get(x_81, 0); +lean_inc(x_89); +x_90 = lean_ctor_get(x_81, 1); +lean_inc(x_90); +lean_dec(x_81); +lean_ctor_set(x_71, 5, x_90); +x_42 = x_89; +x_43 = x_71; +goto block_48; +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; +lean_dec(x_71); +x_91 = lean_ctor_get(x_81, 0); +lean_inc(x_91); +x_92 = lean_ctor_get(x_81, 1); +lean_inc(x_92); +lean_dec(x_81); +x_93 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_93, 0, x_73); +lean_ctor_set(x_93, 1, x_74); +lean_ctor_set(x_93, 2, x_75); +lean_ctor_set(x_93, 3, x_76); +lean_ctor_set(x_93, 4, x_77); +lean_ctor_set(x_93, 5, x_92); +x_42 = x_91; +x_43 = x_93; +goto block_48; +} +} +else +{ +lean_object* x_94; +lean_dec(x_77); +lean_dec(x_76); +lean_dec(x_75); +lean_dec(x_74); +lean_dec(x_73); lean_dec(x_11); lean_dec(x_19); lean_dec(x_18); @@ -12556,57 +12782,44 @@ lean_dec(x_13); lean_dec(x_12); lean_dec(x_7); lean_dec(x_1); -x_76 = lean_ctor_get(x_75, 0); -lean_inc(x_76); -lean_dec(x_75); -if (lean_obj_tag(x_76) == 0) +x_94 = lean_ctor_get(x_81, 0); +lean_inc(x_94); +lean_dec(x_81); +if (lean_obj_tag(x_94) == 0) { -lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; -x_77 = lean_ctor_get(x_76, 0); -lean_inc(x_77); -lean_dec(x_76); -x_78 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_78, 0, x_77); -x_79 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_79, 0, x_78); +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_95 = lean_ctor_get(x_94, 0); +lean_inc(x_95); +lean_dec(x_94); +x_96 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_96, 0, x_95); +x_97 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_97, 0, x_96); lean_inc(x_28); -x_80 = l_Lean_Elab_Term_throwError___rarg(x_3, x_79, x_28, x_72); -x_81 = lean_ctor_get(x_80, 0); -lean_inc(x_81); -x_82 = lean_ctor_get(x_80, 1); -lean_inc(x_82); -lean_dec(x_80); -x_49 = x_81; -x_50 = x_82; +x_98 = l_Lean_Elab_Term_throwError___rarg(x_3, x_97, x_28, x_71); +x_99 = lean_ctor_get(x_98, 0); +lean_inc(x_99); +x_100 = lean_ctor_get(x_98, 1); +lean_inc(x_100); +lean_dec(x_98); +x_49 = x_99; +x_50 = x_100; goto block_66; } else { -lean_object* x_83; lean_object* x_84; lean_object* x_85; -x_83 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_72); -x_84 = lean_ctor_get(x_83, 0); -lean_inc(x_84); -x_85 = lean_ctor_get(x_83, 1); -lean_inc(x_85); -lean_dec(x_83); -x_49 = x_84; -x_50 = x_85; +lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_101 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_71); +x_102 = lean_ctor_get(x_101, 0); +lean_inc(x_102); +x_103 = lean_ctor_get(x_101, 1); +lean_inc(x_103); +lean_dec(x_101); +x_49 = x_102; +x_50 = x_103; goto block_66; } } -else -{ -lean_object* x_86; -lean_dec(x_41); -lean_dec(x_36); -lean_dec(x_28); -x_86 = lean_ctor_get(x_75, 0); -lean_inc(x_86); -lean_dec(x_75); -x_42 = x_86; -x_43 = x_72; -goto block_48; -} block_48: { lean_object* x_44; lean_object* x_45; lean_object* x_46; @@ -12702,7 +12915,7 @@ return x_65; } else { -lean_object* x_87; lean_object* x_88; +lean_object* x_104; lean_object* x_105; lean_dec(x_36); lean_dec(x_11); lean_dec(x_19); @@ -12714,37 +12927,37 @@ lean_dec(x_14); lean_dec(x_13); lean_dec(x_12); lean_dec(x_7); -x_87 = lean_ctor_get(x_37, 0); -lean_inc(x_87); +x_104 = lean_ctor_get(x_37, 0); +lean_inc(x_104); lean_dec(x_37); lean_inc(x_29); -x_88 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_29, x_3, x_1, x_2, x_87, x_28, x_29); -return x_88; +x_105 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_29, x_3, x_1, x_2, x_104, x_28, x_29); +return x_105; } } } else { -lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; uint8_t x_171; -x_98 = lean_ctor_get(x_11, 0); -x_99 = lean_ctor_get(x_11, 1); -x_100 = lean_ctor_get(x_11, 2); -x_101 = lean_ctor_get(x_11, 3); -x_102 = lean_ctor_get(x_11, 4); -lean_inc(x_102); -lean_inc(x_101); -lean_inc(x_100); -lean_inc(x_99); -lean_inc(x_98); +lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; uint8_t x_197; +x_115 = lean_ctor_get(x_11, 0); +x_116 = lean_ctor_get(x_11, 1); +x_117 = lean_ctor_get(x_11, 2); +x_118 = lean_ctor_get(x_11, 3); +x_119 = lean_ctor_get(x_11, 4); +lean_inc(x_119); +lean_inc(x_118); +lean_inc(x_117); +lean_inc(x_116); +lean_inc(x_115); lean_dec(x_11); -x_103 = lean_nat_add(x_101, x_8); -lean_dec(x_101); -x_104 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_104, 0, x_98); -lean_ctor_set(x_104, 1, x_99); -lean_ctor_set(x_104, 2, x_100); -lean_ctor_set(x_104, 3, x_103); -lean_ctor_set(x_104, 4, x_102); +x_120 = lean_nat_add(x_118, x_8); +lean_dec(x_118); +x_121 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_121, 0, x_115); +lean_ctor_set(x_121, 1, x_116); +lean_ctor_set(x_121, 2, x_117); +lean_ctor_set(x_121, 3, x_120); +lean_ctor_set(x_121, 4, x_119); lean_inc(x_7); lean_inc(x_19); lean_inc(x_18); @@ -12754,107 +12967,162 @@ lean_inc(x_15); lean_inc(x_14); lean_inc(x_13); lean_inc(x_12); -lean_inc(x_104); -x_105 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_105, 0, x_104); -lean_ctor_set(x_105, 1, x_12); -lean_ctor_set(x_105, 2, x_13); -lean_ctor_set(x_105, 3, x_14); -lean_ctor_set(x_105, 4, x_15); -lean_ctor_set(x_105, 5, x_16); -lean_ctor_set(x_105, 6, x_17); -lean_ctor_set(x_105, 7, x_18); -lean_ctor_set(x_105, 8, x_19); -lean_ctor_set(x_105, 9, x_7); -lean_ctor_set_uint8(x_105, sizeof(void*)*10, x_20); -lean_ctor_set_uint8(x_105, sizeof(void*)*10 + 1, x_21); -lean_ctor_set_uint8(x_105, sizeof(void*)*10 + 2, x_22); -x_167 = l_Lean_Elab_Term_getOptions(x_105, x_24); -x_168 = lean_ctor_get(x_167, 0); -lean_inc(x_168); -x_169 = lean_ctor_get(x_167, 1); -lean_inc(x_169); -lean_dec(x_167); -x_170 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; -x_171 = l_Lean_checkTraceOption(x_168, x_170); -lean_dec(x_168); -if (x_171 == 0) +lean_inc(x_121); +x_122 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_122, 0, x_121); +lean_ctor_set(x_122, 1, x_12); +lean_ctor_set(x_122, 2, x_13); +lean_ctor_set(x_122, 3, x_14); +lean_ctor_set(x_122, 4, x_15); +lean_ctor_set(x_122, 5, x_16); +lean_ctor_set(x_122, 6, x_17); +lean_ctor_set(x_122, 7, x_18); +lean_ctor_set(x_122, 8, x_19); +lean_ctor_set(x_122, 9, x_7); +lean_ctor_set_uint8(x_122, sizeof(void*)*10, x_20); +lean_ctor_set_uint8(x_122, sizeof(void*)*10 + 1, x_21); +lean_ctor_set_uint8(x_122, sizeof(void*)*10 + 2, x_22); +x_193 = l_Lean_Elab_Term_getOptions(x_122, x_24); +x_194 = lean_ctor_get(x_193, 0); +lean_inc(x_194); +x_195 = lean_ctor_get(x_193, 1); +lean_inc(x_195); +lean_dec(x_193); +x_196 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; +x_197 = l_Lean_checkTraceOption(x_194, x_196); +lean_dec(x_194); +if (x_197 == 0) { -x_106 = x_169; -goto block_166; +x_123 = x_195; +goto block_192; } else { -lean_object* x_172; lean_object* x_173; lean_object* x_174; +lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_inc(x_3); -x_172 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_172, 0, x_3); -x_173 = l_Lean_Elab_Term_logTrace(x_170, x_3, x_172, x_105, x_169); -x_174 = lean_ctor_get(x_173, 1); -lean_inc(x_174); -lean_dec(x_173); -x_106 = x_174; -goto block_166; +x_198 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_198, 0, x_3); +x_199 = l_Lean_Elab_Term_logTrace(x_196, x_3, x_198, x_122, x_195); +x_200 = lean_ctor_get(x_199, 1); +lean_inc(x_200); +lean_dec(x_199); +x_123 = x_200; +goto block_192; } -block_166: +block_192: { -lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; -x_107 = l_Lean_Elab_Term_termElabAttribute; -x_108 = lean_ctor_get(x_107, 1); -lean_inc(x_108); -x_109 = lean_ctor_get(x_106, 0); -lean_inc(x_109); -x_110 = lean_ctor_get(x_109, 0); -lean_inc(x_110); -lean_dec(x_109); -x_111 = l_Lean_PersistentEnvExtension_getState___rarg(x_108, x_110); -lean_dec(x_110); -lean_dec(x_108); -x_112 = lean_ctor_get(x_111, 1); -lean_inc(x_112); -lean_dec(x_111); +lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; +x_124 = l_Lean_Elab_Term_termElabAttribute; +x_125 = lean_ctor_get(x_124, 1); +lean_inc(x_125); +x_126 = lean_ctor_get(x_123, 0); +lean_inc(x_126); +x_127 = lean_ctor_get(x_126, 0); +lean_inc(x_127); +lean_dec(x_126); +x_128 = l_Lean_PersistentEnvExtension_getState___rarg(x_125, x_127); +lean_dec(x_127); +lean_dec(x_125); +x_129 = lean_ctor_get(x_128, 1); +lean_inc(x_129); +lean_dec(x_128); lean_inc(x_3); -x_113 = l_Lean_Syntax_getKind(x_3); -x_114 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_112, x_113); -if (lean_obj_tag(x_114) == 0) +x_130 = l_Lean_Syntax_getKind(x_3); +x_131 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_129, x_130); +if (lean_obj_tag(x_131) == 0) { -lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_126; lean_object* x_127; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; -x_115 = l_Lean_Elab_Term_getEnv___rarg(x_106); -x_116 = lean_ctor_get(x_115, 0); -lean_inc(x_116); -x_117 = lean_ctor_get(x_115, 1); -lean_inc(x_117); -if (lean_is_exclusive(x_115)) { - lean_ctor_release(x_115, 0); - lean_ctor_release(x_115, 1); - x_118 = x_115; +lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_143; lean_object* x_144; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; +x_132 = l_Lean_Elab_Term_getEnv___rarg(x_123); +x_133 = lean_ctor_get(x_132, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_132, 1); +lean_inc(x_134); +if (lean_is_exclusive(x_132)) { + lean_ctor_release(x_132, 0); + lean_ctor_release(x_132, 1); + x_135 = x_132; } else { - lean_dec_ref(x_115); - x_118 = lean_box(0); + lean_dec_ref(x_132); + x_135 = lean_box(0); } -x_144 = l_Lean_Elab_Term_getCurrMacroScope(x_105, x_117); -x_145 = lean_ctor_get(x_144, 0); -lean_inc(x_145); -x_146 = lean_ctor_get(x_144, 1); -lean_inc(x_146); -lean_dec(x_144); -x_147 = l_Lean_Elab_Term_getEnv___rarg(x_146); -x_148 = lean_ctor_get(x_147, 0); -lean_inc(x_148); -x_149 = lean_ctor_get(x_147, 1); -lean_inc(x_149); -lean_dec(x_147); -x_150 = lean_environment_main_module(x_148); -x_151 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_151, 0, x_150); -lean_ctor_set(x_151, 1, x_145); +x_161 = l_Lean_Elab_Term_getCurrMacroScope(x_122, x_134); +x_162 = lean_ctor_get(x_161, 0); +lean_inc(x_162); +x_163 = lean_ctor_get(x_161, 1); +lean_inc(x_163); +lean_dec(x_161); +x_164 = l_Lean_Elab_Term_getEnv___rarg(x_163); +x_165 = lean_ctor_get(x_164, 1); +lean_inc(x_165); +x_166 = lean_ctor_get(x_164, 0); +lean_inc(x_166); +lean_dec(x_164); +x_167 = lean_ctor_get(x_165, 0); +lean_inc(x_167); +x_168 = lean_ctor_get(x_165, 1); +lean_inc(x_168); +x_169 = lean_ctor_get(x_165, 2); +lean_inc(x_169); +x_170 = lean_ctor_get(x_165, 3); +lean_inc(x_170); +x_171 = lean_ctor_get(x_165, 4); +lean_inc(x_171); +x_172 = lean_ctor_get(x_165, 5); +lean_inc(x_172); +x_173 = lean_environment_main_module(x_166); +x_174 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_174, 0, x_173); +lean_ctor_set(x_174, 1, x_162); lean_inc(x_3); -x_152 = l_Lean_Elab_getMacros(x_116, x_3, x_151); -lean_dec(x_116); -if (lean_obj_tag(x_152) == 0) +x_175 = l_Lean_Elab_getMacros(x_133, x_3, x_174, x_172); +lean_dec(x_133); +if (lean_obj_tag(x_175) == 0) { -lean_object* x_153; -lean_dec(x_104); +lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; +lean_dec(x_135); +lean_dec(x_130); +lean_dec(x_122); +if (lean_is_exclusive(x_165)) { + lean_ctor_release(x_165, 0); + lean_ctor_release(x_165, 1); + lean_ctor_release(x_165, 2); + lean_ctor_release(x_165, 3); + lean_ctor_release(x_165, 4); + lean_ctor_release(x_165, 5); + x_176 = x_165; +} else { + lean_dec_ref(x_165); + x_176 = lean_box(0); +} +x_177 = lean_ctor_get(x_175, 0); +lean_inc(x_177); +x_178 = lean_ctor_get(x_175, 1); +lean_inc(x_178); +lean_dec(x_175); +if (lean_is_scalar(x_176)) { + x_179 = lean_alloc_ctor(0, 6, 0); +} else { + x_179 = x_176; +} +lean_ctor_set(x_179, 0, x_167); +lean_ctor_set(x_179, 1, x_168); +lean_ctor_set(x_179, 2, x_169); +lean_ctor_set(x_179, 3, x_170); +lean_ctor_set(x_179, 4, x_171); +lean_ctor_set(x_179, 5, x_178); +x_136 = x_177; +x_137 = x_179; +goto block_142; +} +else +{ +lean_object* x_180; +lean_dec(x_171); +lean_dec(x_170); +lean_dec(x_169); +lean_dec(x_168); +lean_dec(x_167); +lean_dec(x_121); lean_dec(x_19); lean_dec(x_18); lean_dec(x_17); @@ -12865,157 +13133,144 @@ lean_dec(x_13); lean_dec(x_12); lean_dec(x_7); lean_dec(x_1); -x_153 = lean_ctor_get(x_152, 0); -lean_inc(x_153); -lean_dec(x_152); -if (lean_obj_tag(x_153) == 0) +x_180 = lean_ctor_get(x_175, 0); +lean_inc(x_180); +lean_dec(x_175); +if (lean_obj_tag(x_180) == 0) { -lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; -x_154 = lean_ctor_get(x_153, 0); -lean_inc(x_154); -lean_dec(x_153); -x_155 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_155, 0, x_154); -x_156 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_156, 0, x_155); -lean_inc(x_105); -x_157 = l_Lean_Elab_Term_throwError___rarg(x_3, x_156, x_105, x_149); -x_158 = lean_ctor_get(x_157, 0); -lean_inc(x_158); -x_159 = lean_ctor_get(x_157, 1); -lean_inc(x_159); -lean_dec(x_157); -x_126 = x_158; -x_127 = x_159; -goto block_143; +lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_181 = lean_ctor_get(x_180, 0); +lean_inc(x_181); +lean_dec(x_180); +x_182 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_182, 0, x_181); +x_183 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_183, 0, x_182); +lean_inc(x_122); +x_184 = l_Lean_Elab_Term_throwError___rarg(x_3, x_183, x_122, x_165); +x_185 = lean_ctor_get(x_184, 0); +lean_inc(x_185); +x_186 = lean_ctor_get(x_184, 1); +lean_inc(x_186); +lean_dec(x_184); +x_143 = x_185; +x_144 = x_186; +goto block_160; } else { -lean_object* x_160; lean_object* x_161; lean_object* x_162; -x_160 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_149); -x_161 = lean_ctor_get(x_160, 0); -lean_inc(x_161); -x_162 = lean_ctor_get(x_160, 1); -lean_inc(x_162); -lean_dec(x_160); -x_126 = x_161; -x_127 = x_162; -goto block_143; +lean_object* x_187; lean_object* x_188; lean_object* x_189; +x_187 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_165); +x_188 = lean_ctor_get(x_187, 0); +lean_inc(x_188); +x_189 = lean_ctor_get(x_187, 1); +lean_inc(x_189); +lean_dec(x_187); +x_143 = x_188; +x_144 = x_189; +goto block_160; } } -else +block_142: { -lean_object* x_163; -lean_dec(x_118); -lean_dec(x_113); -lean_dec(x_105); -x_163 = lean_ctor_get(x_152, 0); -lean_inc(x_163); -lean_dec(x_152); -x_119 = x_163; -x_120 = x_149; -goto block_125; -} -block_125: -{ -lean_object* x_121; lean_object* x_122; lean_object* x_123; -lean_inc(x_119); -x_121 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_121, 0, x_3); -lean_ctor_set(x_121, 1, x_119); -x_122 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_122, 0, x_121); -lean_ctor_set(x_122, 1, x_19); -x_123 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_123, 0, x_104); -lean_ctor_set(x_123, 1, x_12); -lean_ctor_set(x_123, 2, x_13); -lean_ctor_set(x_123, 3, x_14); -lean_ctor_set(x_123, 4, x_15); -lean_ctor_set(x_123, 5, x_16); -lean_ctor_set(x_123, 6, x_17); -lean_ctor_set(x_123, 7, x_18); -lean_ctor_set(x_123, 8, x_122); -lean_ctor_set(x_123, 9, x_7); -lean_ctor_set_uint8(x_123, sizeof(void*)*10, x_20); -lean_ctor_set_uint8(x_123, sizeof(void*)*10 + 1, x_21); -lean_ctor_set_uint8(x_123, sizeof(void*)*10 + 2, x_22); -x_3 = x_119; -x_4 = x_123; -x_5 = x_120; +lean_object* x_138; lean_object* x_139; lean_object* x_140; +lean_inc(x_136); +x_138 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_138, 0, x_3); +lean_ctor_set(x_138, 1, x_136); +x_139 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_139, 0, x_138); +lean_ctor_set(x_139, 1, x_19); +x_140 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_140, 0, x_121); +lean_ctor_set(x_140, 1, x_12); +lean_ctor_set(x_140, 2, x_13); +lean_ctor_set(x_140, 3, x_14); +lean_ctor_set(x_140, 4, x_15); +lean_ctor_set(x_140, 5, x_16); +lean_ctor_set(x_140, 6, x_17); +lean_ctor_set(x_140, 7, x_18); +lean_ctor_set(x_140, 8, x_139); +lean_ctor_set(x_140, 9, x_7); +lean_ctor_set_uint8(x_140, sizeof(void*)*10, x_20); +lean_ctor_set_uint8(x_140, sizeof(void*)*10 + 1, x_21); +lean_ctor_set_uint8(x_140, sizeof(void*)*10 + 2, x_22); +x_3 = x_136; +x_4 = x_140; +x_5 = x_137; goto _start; } -block_143: +block_160: { -lean_object* x_128; -x_128 = lean_ctor_get(x_126, 0); -lean_inc(x_128); -if (lean_obj_tag(x_128) == 0) +lean_object* x_145; +x_145 = lean_ctor_get(x_143, 0); +lean_inc(x_145); +if (lean_obj_tag(x_145) == 0) { -lean_object* x_129; -lean_dec(x_128); -lean_dec(x_113); -lean_dec(x_105); +lean_object* x_146; +lean_dec(x_145); +lean_dec(x_130); +lean_dec(x_122); lean_dec(x_3); -if (lean_is_scalar(x_118)) { - x_129 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_135)) { + x_146 = lean_alloc_ctor(1, 2, 0); } else { - x_129 = x_118; - lean_ctor_set_tag(x_129, 1); + x_146 = x_135; + lean_ctor_set_tag(x_146, 1); } -lean_ctor_set(x_129, 0, x_126); -lean_ctor_set(x_129, 1, x_127); -return x_129; +lean_ctor_set(x_146, 0, x_143); +lean_ctor_set(x_146, 1, x_144); +return x_146; } else { -lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; -lean_dec(x_126); -lean_dec(x_118); -x_130 = l_Lean_Name_toString___closed__1; -x_131 = l_Lean_Name_toStringWithSep___main(x_130, x_113); -x_132 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_132, 0, x_131); -x_133 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_133, 0, x_132); -x_134 = l_Lean_Elab_Term_elabTermAux___main___closed__3; -x_135 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_135, 0, x_134); -lean_ctor_set(x_135, 1, x_133); -x_136 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_137 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_137, 0, x_135); -lean_ctor_set(x_137, 1, x_136); -x_138 = l_Lean_Elab_Term_throwError___rarg(x_3, x_137, x_105, x_127); +lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; +lean_dec(x_143); +lean_dec(x_135); +x_147 = l_Lean_Name_toString___closed__1; +x_148 = l_Lean_Name_toStringWithSep___main(x_147, x_130); +x_149 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_149, 0, x_148); +x_150 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_150, 0, x_149); +x_151 = l_Lean_Elab_Term_elabTermAux___main___closed__3; +x_152 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_152, 0, x_151); +lean_ctor_set(x_152, 1, x_150); +x_153 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_154 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_154, 0, x_152); +lean_ctor_set(x_154, 1, x_153); +x_155 = l_Lean_Elab_Term_throwError___rarg(x_3, x_154, x_122, x_144); lean_dec(x_3); -x_139 = lean_ctor_get(x_138, 0); -lean_inc(x_139); -x_140 = lean_ctor_get(x_138, 1); -lean_inc(x_140); -if (lean_is_exclusive(x_138)) { - lean_ctor_release(x_138, 0); - lean_ctor_release(x_138, 1); - x_141 = x_138; +x_156 = lean_ctor_get(x_155, 0); +lean_inc(x_156); +x_157 = lean_ctor_get(x_155, 1); +lean_inc(x_157); +if (lean_is_exclusive(x_155)) { + lean_ctor_release(x_155, 0); + lean_ctor_release(x_155, 1); + x_158 = x_155; } else { - lean_dec_ref(x_138); - x_141 = lean_box(0); + lean_dec_ref(x_155); + x_158 = lean_box(0); } -if (lean_is_scalar(x_141)) { - x_142 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_158)) { + x_159 = lean_alloc_ctor(1, 2, 0); } else { - x_142 = x_141; + x_159 = x_158; } -lean_ctor_set(x_142, 0, x_139); -lean_ctor_set(x_142, 1, x_140); -return x_142; +lean_ctor_set(x_159, 0, x_156); +lean_ctor_set(x_159, 1, x_157); +return x_159; } } } else { -lean_object* x_164; lean_object* x_165; -lean_dec(x_113); -lean_dec(x_104); +lean_object* x_190; lean_object* x_191; +lean_dec(x_130); +lean_dec(x_121); lean_dec(x_19); lean_dec(x_18); lean_dec(x_17); @@ -13025,12 +13280,12 @@ lean_dec(x_14); lean_dec(x_13); lean_dec(x_12); lean_dec(x_7); -x_164 = lean_ctor_get(x_114, 0); -lean_inc(x_164); -lean_dec(x_114); -lean_inc(x_106); -x_165 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_106, x_3, x_1, x_2, x_164, x_105, x_106); -return x_165; +x_190 = lean_ctor_get(x_131, 0); +lean_inc(x_190); +lean_dec(x_131); +lean_inc(x_123); +x_191 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_123, x_3, x_1, x_2, x_190, x_122, x_123); +return x_191; } } } @@ -13038,426 +13293,468 @@ return x_165; } else { -lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; uint8_t x_194; uint8_t x_195; uint8_t x_196; lean_object* x_197; lean_object* x_198; lean_object* x_278; lean_object* x_279; uint8_t x_280; -x_185 = lean_ctor_get(x_4, 0); -x_186 = lean_ctor_get(x_4, 1); -x_187 = lean_ctor_get(x_4, 2); -x_188 = lean_ctor_get(x_4, 3); -x_189 = lean_ctor_get(x_4, 4); -x_190 = lean_ctor_get(x_4, 5); -x_191 = lean_ctor_get(x_4, 6); -x_192 = lean_ctor_get(x_4, 7); -x_193 = lean_ctor_get(x_4, 8); -x_194 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); -x_195 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); -x_196 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); -lean_inc(x_193); -lean_inc(x_192); -lean_inc(x_191); -lean_inc(x_190); -lean_inc(x_189); -lean_inc(x_188); -lean_inc(x_187); -lean_inc(x_186); -lean_inc(x_185); +lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; uint8_t x_220; uint8_t x_221; uint8_t x_222; lean_object* x_223; lean_object* x_224; lean_object* x_313; lean_object* x_314; uint8_t x_315; +x_211 = lean_ctor_get(x_4, 0); +x_212 = lean_ctor_get(x_4, 1); +x_213 = lean_ctor_get(x_4, 2); +x_214 = lean_ctor_get(x_4, 3); +x_215 = lean_ctor_get(x_4, 4); +x_216 = lean_ctor_get(x_4, 5); +x_217 = lean_ctor_get(x_4, 6); +x_218 = lean_ctor_get(x_4, 7); +x_219 = lean_ctor_get(x_4, 8); +x_220 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); +x_221 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); +x_222 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); +lean_inc(x_219); +lean_inc(x_218); +lean_inc(x_217); +lean_inc(x_216); +lean_inc(x_215); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_211); lean_dec(x_4); lean_inc(x_7); -lean_inc(x_193); -lean_inc(x_192); -lean_inc(x_191); -lean_inc(x_190); -lean_inc(x_189); -lean_inc(x_188); -lean_inc(x_187); -lean_inc(x_186); -lean_inc(x_185); -x_197 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_197, 0, x_185); -lean_ctor_set(x_197, 1, x_186); -lean_ctor_set(x_197, 2, x_187); -lean_ctor_set(x_197, 3, x_188); -lean_ctor_set(x_197, 4, x_189); -lean_ctor_set(x_197, 5, x_190); -lean_ctor_set(x_197, 6, x_191); -lean_ctor_set(x_197, 7, x_192); -lean_ctor_set(x_197, 8, x_193); -lean_ctor_set(x_197, 9, x_7); -lean_ctor_set_uint8(x_197, sizeof(void*)*10, x_194); -lean_ctor_set_uint8(x_197, sizeof(void*)*10 + 1, x_195); -lean_ctor_set_uint8(x_197, sizeof(void*)*10 + 2, x_196); -x_278 = lean_ctor_get(x_185, 3); -lean_inc(x_278); -x_279 = lean_ctor_get(x_185, 4); -lean_inc(x_279); -x_280 = lean_nat_dec_eq(x_278, x_279); -lean_dec(x_279); -lean_dec(x_278); -if (x_280 == 0) +lean_inc(x_219); +lean_inc(x_218); +lean_inc(x_217); +lean_inc(x_216); +lean_inc(x_215); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_211); +x_223 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_223, 0, x_211); +lean_ctor_set(x_223, 1, x_212); +lean_ctor_set(x_223, 2, x_213); +lean_ctor_set(x_223, 3, x_214); +lean_ctor_set(x_223, 4, x_215); +lean_ctor_set(x_223, 5, x_216); +lean_ctor_set(x_223, 6, x_217); +lean_ctor_set(x_223, 7, x_218); +lean_ctor_set(x_223, 8, x_219); +lean_ctor_set(x_223, 9, x_7); +lean_ctor_set_uint8(x_223, sizeof(void*)*10, x_220); +lean_ctor_set_uint8(x_223, sizeof(void*)*10 + 1, x_221); +lean_ctor_set_uint8(x_223, sizeof(void*)*10 + 2, x_222); +x_313 = lean_ctor_get(x_211, 3); +lean_inc(x_313); +x_314 = lean_ctor_get(x_211, 4); +lean_inc(x_314); +x_315 = lean_nat_dec_eq(x_313, x_314); +lean_dec(x_314); +lean_dec(x_313); +if (x_315 == 0) { -lean_dec(x_197); -x_198 = x_5; -goto block_277; +lean_dec(x_223); +x_224 = x_5; +goto block_312; } else { -lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; -lean_dec(x_193); -lean_dec(x_192); -lean_dec(x_191); -lean_dec(x_190); -lean_dec(x_189); -lean_dec(x_188); -lean_dec(x_187); -lean_dec(x_186); -lean_dec(x_185); +lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; +lean_dec(x_219); +lean_dec(x_218); +lean_dec(x_217); +lean_dec(x_216); +lean_dec(x_215); +lean_dec(x_214); +lean_dec(x_213); +lean_dec(x_212); +lean_dec(x_211); lean_dec(x_7); lean_dec(x_1); -x_281 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; -x_282 = l_Lean_Elab_Term_throwError___rarg(x_3, x_281, x_197, x_5); +x_316 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; +x_317 = l_Lean_Elab_Term_throwError___rarg(x_3, x_316, x_223, x_5); lean_dec(x_3); -x_283 = lean_ctor_get(x_282, 0); -lean_inc(x_283); -x_284 = lean_ctor_get(x_282, 1); -lean_inc(x_284); -if (lean_is_exclusive(x_282)) { - lean_ctor_release(x_282, 0); - lean_ctor_release(x_282, 1); - x_285 = x_282; +x_318 = lean_ctor_get(x_317, 0); +lean_inc(x_318); +x_319 = lean_ctor_get(x_317, 1); +lean_inc(x_319); +if (lean_is_exclusive(x_317)) { + lean_ctor_release(x_317, 0); + lean_ctor_release(x_317, 1); + x_320 = x_317; } else { - lean_dec_ref(x_282); - x_285 = lean_box(0); + lean_dec_ref(x_317); + x_320 = lean_box(0); } -if (lean_is_scalar(x_285)) { - x_286 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_320)) { + x_321 = lean_alloc_ctor(1, 2, 0); } else { - x_286 = x_285; + x_321 = x_320; } -lean_ctor_set(x_286, 0, x_283); -lean_ctor_set(x_286, 1, x_284); -return x_286; +lean_ctor_set(x_321, 0, x_318); +lean_ctor_set(x_321, 1, x_319); +return x_321; } -block_277: +block_312: { -lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; uint8_t x_273; -x_199 = lean_ctor_get(x_185, 0); -lean_inc(x_199); -x_200 = lean_ctor_get(x_185, 1); -lean_inc(x_200); -x_201 = lean_ctor_get(x_185, 2); -lean_inc(x_201); -x_202 = lean_ctor_get(x_185, 3); -lean_inc(x_202); -x_203 = lean_ctor_get(x_185, 4); -lean_inc(x_203); -if (lean_is_exclusive(x_185)) { - lean_ctor_release(x_185, 0); - lean_ctor_release(x_185, 1); - lean_ctor_release(x_185, 2); - lean_ctor_release(x_185, 3); - lean_ctor_release(x_185, 4); - x_204 = x_185; +lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; uint8_t x_308; +x_225 = lean_ctor_get(x_211, 0); +lean_inc(x_225); +x_226 = lean_ctor_get(x_211, 1); +lean_inc(x_226); +x_227 = lean_ctor_get(x_211, 2); +lean_inc(x_227); +x_228 = lean_ctor_get(x_211, 3); +lean_inc(x_228); +x_229 = lean_ctor_get(x_211, 4); +lean_inc(x_229); +if (lean_is_exclusive(x_211)) { + lean_ctor_release(x_211, 0); + lean_ctor_release(x_211, 1); + lean_ctor_release(x_211, 2); + lean_ctor_release(x_211, 3); + lean_ctor_release(x_211, 4); + x_230 = x_211; } else { - lean_dec_ref(x_185); - x_204 = lean_box(0); + lean_dec_ref(x_211); + x_230 = lean_box(0); } -x_205 = lean_nat_add(x_202, x_8); -lean_dec(x_202); -if (lean_is_scalar(x_204)) { - x_206 = lean_alloc_ctor(0, 5, 0); +x_231 = lean_nat_add(x_228, x_8); +lean_dec(x_228); +if (lean_is_scalar(x_230)) { + x_232 = lean_alloc_ctor(0, 5, 0); } else { - x_206 = x_204; + x_232 = x_230; } -lean_ctor_set(x_206, 0, x_199); -lean_ctor_set(x_206, 1, x_200); -lean_ctor_set(x_206, 2, x_201); -lean_ctor_set(x_206, 3, x_205); -lean_ctor_set(x_206, 4, x_203); +lean_ctor_set(x_232, 0, x_225); +lean_ctor_set(x_232, 1, x_226); +lean_ctor_set(x_232, 2, x_227); +lean_ctor_set(x_232, 3, x_231); +lean_ctor_set(x_232, 4, x_229); lean_inc(x_7); -lean_inc(x_193); -lean_inc(x_192); -lean_inc(x_191); -lean_inc(x_190); -lean_inc(x_189); -lean_inc(x_188); -lean_inc(x_187); -lean_inc(x_186); -lean_inc(x_206); -x_207 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_207, 0, x_206); -lean_ctor_set(x_207, 1, x_186); -lean_ctor_set(x_207, 2, x_187); -lean_ctor_set(x_207, 3, x_188); -lean_ctor_set(x_207, 4, x_189); -lean_ctor_set(x_207, 5, x_190); -lean_ctor_set(x_207, 6, x_191); -lean_ctor_set(x_207, 7, x_192); -lean_ctor_set(x_207, 8, x_193); -lean_ctor_set(x_207, 9, x_7); -lean_ctor_set_uint8(x_207, sizeof(void*)*10, x_194); -lean_ctor_set_uint8(x_207, sizeof(void*)*10 + 1, x_195); -lean_ctor_set_uint8(x_207, sizeof(void*)*10 + 2, x_196); -x_269 = l_Lean_Elab_Term_getOptions(x_207, x_198); -x_270 = lean_ctor_get(x_269, 0); -lean_inc(x_270); -x_271 = lean_ctor_get(x_269, 1); -lean_inc(x_271); -lean_dec(x_269); -x_272 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; -x_273 = l_Lean_checkTraceOption(x_270, x_272); -lean_dec(x_270); -if (x_273 == 0) +lean_inc(x_219); +lean_inc(x_218); +lean_inc(x_217); +lean_inc(x_216); +lean_inc(x_215); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_232); +x_233 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_233, 0, x_232); +lean_ctor_set(x_233, 1, x_212); +lean_ctor_set(x_233, 2, x_213); +lean_ctor_set(x_233, 3, x_214); +lean_ctor_set(x_233, 4, x_215); +lean_ctor_set(x_233, 5, x_216); +lean_ctor_set(x_233, 6, x_217); +lean_ctor_set(x_233, 7, x_218); +lean_ctor_set(x_233, 8, x_219); +lean_ctor_set(x_233, 9, x_7); +lean_ctor_set_uint8(x_233, sizeof(void*)*10, x_220); +lean_ctor_set_uint8(x_233, sizeof(void*)*10 + 1, x_221); +lean_ctor_set_uint8(x_233, sizeof(void*)*10 + 2, x_222); +x_304 = l_Lean_Elab_Term_getOptions(x_233, x_224); +x_305 = lean_ctor_get(x_304, 0); +lean_inc(x_305); +x_306 = lean_ctor_get(x_304, 1); +lean_inc(x_306); +lean_dec(x_304); +x_307 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; +x_308 = l_Lean_checkTraceOption(x_305, x_307); +lean_dec(x_305); +if (x_308 == 0) { -x_208 = x_271; -goto block_268; +x_234 = x_306; +goto block_303; } else { -lean_object* x_274; lean_object* x_275; lean_object* x_276; +lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_inc(x_3); -x_274 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_274, 0, x_3); -x_275 = l_Lean_Elab_Term_logTrace(x_272, x_3, x_274, x_207, x_271); +x_309 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_309, 0, x_3); +x_310 = l_Lean_Elab_Term_logTrace(x_307, x_3, x_309, x_233, x_306); +x_311 = lean_ctor_get(x_310, 1); +lean_inc(x_311); +lean_dec(x_310); +x_234 = x_311; +goto block_303; +} +block_303: +{ +lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; +x_235 = l_Lean_Elab_Term_termElabAttribute; +x_236 = lean_ctor_get(x_235, 1); +lean_inc(x_236); +x_237 = lean_ctor_get(x_234, 0); +lean_inc(x_237); +x_238 = lean_ctor_get(x_237, 0); +lean_inc(x_238); +lean_dec(x_237); +x_239 = l_Lean_PersistentEnvExtension_getState___rarg(x_236, x_238); +lean_dec(x_238); +lean_dec(x_236); +x_240 = lean_ctor_get(x_239, 1); +lean_inc(x_240); +lean_dec(x_239); +lean_inc(x_3); +x_241 = l_Lean_Syntax_getKind(x_3); +x_242 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_240, x_241); +if (lean_obj_tag(x_242) == 0) +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_254; lean_object* x_255; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; +x_243 = l_Lean_Elab_Term_getEnv___rarg(x_234); +x_244 = lean_ctor_get(x_243, 0); +lean_inc(x_244); +x_245 = lean_ctor_get(x_243, 1); +lean_inc(x_245); +if (lean_is_exclusive(x_243)) { + lean_ctor_release(x_243, 0); + lean_ctor_release(x_243, 1); + x_246 = x_243; +} else { + lean_dec_ref(x_243); + x_246 = lean_box(0); +} +x_272 = l_Lean_Elab_Term_getCurrMacroScope(x_233, x_245); +x_273 = lean_ctor_get(x_272, 0); +lean_inc(x_273); +x_274 = lean_ctor_get(x_272, 1); +lean_inc(x_274); +lean_dec(x_272); +x_275 = l_Lean_Elab_Term_getEnv___rarg(x_274); x_276 = lean_ctor_get(x_275, 1); lean_inc(x_276); +x_277 = lean_ctor_get(x_275, 0); +lean_inc(x_277); lean_dec(x_275); -x_208 = x_276; -goto block_268; -} -block_268: -{ -lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; -x_209 = l_Lean_Elab_Term_termElabAttribute; -x_210 = lean_ctor_get(x_209, 1); -lean_inc(x_210); -x_211 = lean_ctor_get(x_208, 0); -lean_inc(x_211); -x_212 = lean_ctor_get(x_211, 0); -lean_inc(x_212); -lean_dec(x_211); -x_213 = l_Lean_PersistentEnvExtension_getState___rarg(x_210, x_212); -lean_dec(x_212); -lean_dec(x_210); -x_214 = lean_ctor_get(x_213, 1); -lean_inc(x_214); -lean_dec(x_213); +x_278 = lean_ctor_get(x_276, 0); +lean_inc(x_278); +x_279 = lean_ctor_get(x_276, 1); +lean_inc(x_279); +x_280 = lean_ctor_get(x_276, 2); +lean_inc(x_280); +x_281 = lean_ctor_get(x_276, 3); +lean_inc(x_281); +x_282 = lean_ctor_get(x_276, 4); +lean_inc(x_282); +x_283 = lean_ctor_get(x_276, 5); +lean_inc(x_283); +x_284 = lean_environment_main_module(x_277); +x_285 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_285, 0, x_284); +lean_ctor_set(x_285, 1, x_273); lean_inc(x_3); -x_215 = l_Lean_Syntax_getKind(x_3); -x_216 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_214, x_215); -if (lean_obj_tag(x_216) == 0) +x_286 = l_Lean_Elab_getMacros(x_244, x_3, x_285, x_283); +lean_dec(x_244); +if (lean_obj_tag(x_286) == 0) { -lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_228; lean_object* x_229; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; -x_217 = l_Lean_Elab_Term_getEnv___rarg(x_208); -x_218 = lean_ctor_get(x_217, 0); -lean_inc(x_218); -x_219 = lean_ctor_get(x_217, 1); -lean_inc(x_219); -if (lean_is_exclusive(x_217)) { - lean_ctor_release(x_217, 0); - lean_ctor_release(x_217, 1); - x_220 = x_217; -} else { - lean_dec_ref(x_217); - x_220 = lean_box(0); -} -x_246 = l_Lean_Elab_Term_getCurrMacroScope(x_207, x_219); -x_247 = lean_ctor_get(x_246, 0); -lean_inc(x_247); -x_248 = lean_ctor_get(x_246, 1); -lean_inc(x_248); +lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_dec(x_246); -x_249 = l_Lean_Elab_Term_getEnv___rarg(x_248); -x_250 = lean_ctor_get(x_249, 0); -lean_inc(x_250); -x_251 = lean_ctor_get(x_249, 1); -lean_inc(x_251); -lean_dec(x_249); -x_252 = lean_environment_main_module(x_250); -x_253 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_253, 0, x_252); -lean_ctor_set(x_253, 1, x_247); -lean_inc(x_3); -x_254 = l_Lean_Elab_getMacros(x_218, x_3, x_253); -lean_dec(x_218); -if (lean_obj_tag(x_254) == 0) +lean_dec(x_241); +lean_dec(x_233); +if (lean_is_exclusive(x_276)) { + lean_ctor_release(x_276, 0); + lean_ctor_release(x_276, 1); + lean_ctor_release(x_276, 2); + lean_ctor_release(x_276, 3); + lean_ctor_release(x_276, 4); + lean_ctor_release(x_276, 5); + x_287 = x_276; +} else { + lean_dec_ref(x_276); + x_287 = lean_box(0); +} +x_288 = lean_ctor_get(x_286, 0); +lean_inc(x_288); +x_289 = lean_ctor_get(x_286, 1); +lean_inc(x_289); +lean_dec(x_286); +if (lean_is_scalar(x_287)) { + x_290 = lean_alloc_ctor(0, 6, 0); +} else { + x_290 = x_287; +} +lean_ctor_set(x_290, 0, x_278); +lean_ctor_set(x_290, 1, x_279); +lean_ctor_set(x_290, 2, x_280); +lean_ctor_set(x_290, 3, x_281); +lean_ctor_set(x_290, 4, x_282); +lean_ctor_set(x_290, 5, x_289); +x_247 = x_288; +x_248 = x_290; +goto block_253; +} +else { -lean_object* x_255; -lean_dec(x_206); -lean_dec(x_193); -lean_dec(x_192); -lean_dec(x_191); -lean_dec(x_190); -lean_dec(x_189); -lean_dec(x_188); -lean_dec(x_187); -lean_dec(x_186); +lean_object* x_291; +lean_dec(x_282); +lean_dec(x_281); +lean_dec(x_280); +lean_dec(x_279); +lean_dec(x_278); +lean_dec(x_232); +lean_dec(x_219); +lean_dec(x_218); +lean_dec(x_217); +lean_dec(x_216); +lean_dec(x_215); +lean_dec(x_214); +lean_dec(x_213); +lean_dec(x_212); lean_dec(x_7); lean_dec(x_1); -x_255 = lean_ctor_get(x_254, 0); -lean_inc(x_255); -lean_dec(x_254); -if (lean_obj_tag(x_255) == 0) +x_291 = lean_ctor_get(x_286, 0); +lean_inc(x_291); +lean_dec(x_286); +if (lean_obj_tag(x_291) == 0) { -lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; -x_256 = lean_ctor_get(x_255, 0); -lean_inc(x_256); -lean_dec(x_255); -x_257 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_257, 0, x_256); -x_258 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_258, 0, x_257); -lean_inc(x_207); -x_259 = l_Lean_Elab_Term_throwError___rarg(x_3, x_258, x_207, x_251); -x_260 = lean_ctor_get(x_259, 0); -lean_inc(x_260); -x_261 = lean_ctor_get(x_259, 1); -lean_inc(x_261); -lean_dec(x_259); -x_228 = x_260; -x_229 = x_261; -goto block_245; +lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; +x_292 = lean_ctor_get(x_291, 0); +lean_inc(x_292); +lean_dec(x_291); +x_293 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_293, 0, x_292); +x_294 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_294, 0, x_293); +lean_inc(x_233); +x_295 = l_Lean_Elab_Term_throwError___rarg(x_3, x_294, x_233, x_276); +x_296 = lean_ctor_get(x_295, 0); +lean_inc(x_296); +x_297 = lean_ctor_get(x_295, 1); +lean_inc(x_297); +lean_dec(x_295); +x_254 = x_296; +x_255 = x_297; +goto block_271; } else { -lean_object* x_262; lean_object* x_263; lean_object* x_264; -x_262 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_251); -x_263 = lean_ctor_get(x_262, 0); -lean_inc(x_263); -x_264 = lean_ctor_get(x_262, 1); -lean_inc(x_264); -lean_dec(x_262); -x_228 = x_263; -x_229 = x_264; -goto block_245; +lean_object* x_298; lean_object* x_299; lean_object* x_300; +x_298 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_276); +x_299 = lean_ctor_get(x_298, 0); +lean_inc(x_299); +x_300 = lean_ctor_get(x_298, 1); +lean_inc(x_300); +lean_dec(x_298); +x_254 = x_299; +x_255 = x_300; +goto block_271; } } -else +block_253: { -lean_object* x_265; -lean_dec(x_220); -lean_dec(x_215); -lean_dec(x_207); -x_265 = lean_ctor_get(x_254, 0); -lean_inc(x_265); -lean_dec(x_254); -x_221 = x_265; -x_222 = x_251; -goto block_227; -} -block_227: -{ -lean_object* x_223; lean_object* x_224; lean_object* x_225; -lean_inc(x_221); -x_223 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_223, 0, x_3); -lean_ctor_set(x_223, 1, x_221); -x_224 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_224, 0, x_223); -lean_ctor_set(x_224, 1, x_193); -x_225 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_225, 0, x_206); -lean_ctor_set(x_225, 1, x_186); -lean_ctor_set(x_225, 2, x_187); -lean_ctor_set(x_225, 3, x_188); -lean_ctor_set(x_225, 4, x_189); -lean_ctor_set(x_225, 5, x_190); -lean_ctor_set(x_225, 6, x_191); -lean_ctor_set(x_225, 7, x_192); -lean_ctor_set(x_225, 8, x_224); -lean_ctor_set(x_225, 9, x_7); -lean_ctor_set_uint8(x_225, sizeof(void*)*10, x_194); -lean_ctor_set_uint8(x_225, sizeof(void*)*10 + 1, x_195); -lean_ctor_set_uint8(x_225, sizeof(void*)*10 + 2, x_196); -x_3 = x_221; -x_4 = x_225; -x_5 = x_222; +lean_object* x_249; lean_object* x_250; lean_object* x_251; +lean_inc(x_247); +x_249 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_249, 0, x_3); +lean_ctor_set(x_249, 1, x_247); +x_250 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_250, 0, x_249); +lean_ctor_set(x_250, 1, x_219); +x_251 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_251, 0, x_232); +lean_ctor_set(x_251, 1, x_212); +lean_ctor_set(x_251, 2, x_213); +lean_ctor_set(x_251, 3, x_214); +lean_ctor_set(x_251, 4, x_215); +lean_ctor_set(x_251, 5, x_216); +lean_ctor_set(x_251, 6, x_217); +lean_ctor_set(x_251, 7, x_218); +lean_ctor_set(x_251, 8, x_250); +lean_ctor_set(x_251, 9, x_7); +lean_ctor_set_uint8(x_251, sizeof(void*)*10, x_220); +lean_ctor_set_uint8(x_251, sizeof(void*)*10 + 1, x_221); +lean_ctor_set_uint8(x_251, sizeof(void*)*10 + 2, x_222); +x_3 = x_247; +x_4 = x_251; +x_5 = x_248; goto _start; } -block_245: +block_271: { -lean_object* x_230; -x_230 = lean_ctor_get(x_228, 0); -lean_inc(x_230); -if (lean_obj_tag(x_230) == 0) +lean_object* x_256; +x_256 = lean_ctor_get(x_254, 0); +lean_inc(x_256); +if (lean_obj_tag(x_256) == 0) { -lean_object* x_231; -lean_dec(x_230); -lean_dec(x_215); -lean_dec(x_207); +lean_object* x_257; +lean_dec(x_256); +lean_dec(x_241); +lean_dec(x_233); lean_dec(x_3); -if (lean_is_scalar(x_220)) { - x_231 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_246)) { + x_257 = lean_alloc_ctor(1, 2, 0); } else { - x_231 = x_220; - lean_ctor_set_tag(x_231, 1); + x_257 = x_246; + lean_ctor_set_tag(x_257, 1); } -lean_ctor_set(x_231, 0, x_228); -lean_ctor_set(x_231, 1, x_229); -return x_231; +lean_ctor_set(x_257, 0, x_254); +lean_ctor_set(x_257, 1, x_255); +return x_257; } else { -lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; -lean_dec(x_228); -lean_dec(x_220); -x_232 = l_Lean_Name_toString___closed__1; -x_233 = l_Lean_Name_toStringWithSep___main(x_232, x_215); -x_234 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_234, 0, x_233); -x_235 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_235, 0, x_234); -x_236 = l_Lean_Elab_Term_elabTermAux___main___closed__3; -x_237 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_237, 0, x_236); -lean_ctor_set(x_237, 1, x_235); -x_238 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_239 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_239, 0, x_237); -lean_ctor_set(x_239, 1, x_238); -x_240 = l_Lean_Elab_Term_throwError___rarg(x_3, x_239, x_207, x_229); +lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; +lean_dec(x_254); +lean_dec(x_246); +x_258 = l_Lean_Name_toString___closed__1; +x_259 = l_Lean_Name_toStringWithSep___main(x_258, x_241); +x_260 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_260, 0, x_259); +x_261 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_261, 0, x_260); +x_262 = l_Lean_Elab_Term_elabTermAux___main___closed__3; +x_263 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_263, 0, x_262); +lean_ctor_set(x_263, 1, x_261); +x_264 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_265 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_265, 0, x_263); +lean_ctor_set(x_265, 1, x_264); +x_266 = l_Lean_Elab_Term_throwError___rarg(x_3, x_265, x_233, x_255); lean_dec(x_3); -x_241 = lean_ctor_get(x_240, 0); -lean_inc(x_241); -x_242 = lean_ctor_get(x_240, 1); -lean_inc(x_242); -if (lean_is_exclusive(x_240)) { - lean_ctor_release(x_240, 0); - lean_ctor_release(x_240, 1); - x_243 = x_240; +x_267 = lean_ctor_get(x_266, 0); +lean_inc(x_267); +x_268 = lean_ctor_get(x_266, 1); +lean_inc(x_268); +if (lean_is_exclusive(x_266)) { + lean_ctor_release(x_266, 0); + lean_ctor_release(x_266, 1); + x_269 = x_266; } else { - lean_dec_ref(x_240); - x_243 = lean_box(0); + lean_dec_ref(x_266); + x_269 = lean_box(0); } -if (lean_is_scalar(x_243)) { - x_244 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_269)) { + x_270 = lean_alloc_ctor(1, 2, 0); } else { - x_244 = x_243; + x_270 = x_269; } -lean_ctor_set(x_244, 0, x_241); -lean_ctor_set(x_244, 1, x_242); -return x_244; +lean_ctor_set(x_270, 0, x_267); +lean_ctor_set(x_270, 1, x_268); +return x_270; } } } else { -lean_object* x_266; lean_object* x_267; -lean_dec(x_215); -lean_dec(x_206); -lean_dec(x_193); -lean_dec(x_192); -lean_dec(x_191); -lean_dec(x_190); -lean_dec(x_189); -lean_dec(x_188); -lean_dec(x_187); -lean_dec(x_186); -lean_dec(x_7); -x_266 = lean_ctor_get(x_216, 0); -lean_inc(x_266); +lean_object* x_301; lean_object* x_302; +lean_dec(x_241); +lean_dec(x_232); +lean_dec(x_219); +lean_dec(x_218); +lean_dec(x_217); lean_dec(x_216); -lean_inc(x_208); -x_267 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_208, x_3, x_1, x_2, x_266, x_207, x_208); -return x_267; +lean_dec(x_215); +lean_dec(x_214); +lean_dec(x_213); +lean_dec(x_212); +lean_dec(x_7); +x_301 = lean_ctor_get(x_242, 0); +lean_inc(x_301); +lean_dec(x_242); +lean_inc(x_234); +x_302 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_234, x_3, x_1, x_2, x_301, x_233, x_234); +return x_302; } } } @@ -13465,50 +13762,50 @@ return x_267; } else { -lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; uint8_t x_305; uint8_t x_306; uint8_t x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_390; lean_object* x_391; uint8_t x_392; -x_287 = lean_ctor_get(x_5, 0); -x_288 = lean_ctor_get(x_5, 1); -x_289 = lean_ctor_get(x_5, 2); -x_290 = lean_ctor_get(x_5, 3); -x_291 = lean_ctor_get(x_5, 4); -x_292 = lean_ctor_get(x_5, 5); -lean_inc(x_292); -lean_inc(x_291); -lean_inc(x_290); -lean_inc(x_289); -lean_inc(x_288); -lean_inc(x_287); +lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; uint8_t x_340; uint8_t x_341; uint8_t x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_434; lean_object* x_435; uint8_t x_436; +x_322 = lean_ctor_get(x_5, 0); +x_323 = lean_ctor_get(x_5, 1); +x_324 = lean_ctor_get(x_5, 2); +x_325 = lean_ctor_get(x_5, 3); +x_326 = lean_ctor_get(x_5, 4); +x_327 = lean_ctor_get(x_5, 5); +lean_inc(x_327); +lean_inc(x_326); +lean_inc(x_325); +lean_inc(x_324); +lean_inc(x_323); +lean_inc(x_322); lean_dec(x_5); -x_293 = lean_unsigned_to_nat(1u); -x_294 = lean_nat_add(x_292, x_293); -x_295 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_295, 0, x_287); -lean_ctor_set(x_295, 1, x_288); -lean_ctor_set(x_295, 2, x_289); -lean_ctor_set(x_295, 3, x_290); -lean_ctor_set(x_295, 4, x_291); -lean_ctor_set(x_295, 5, x_294); -x_296 = lean_ctor_get(x_4, 0); -lean_inc(x_296); -x_297 = lean_ctor_get(x_4, 1); -lean_inc(x_297); -x_298 = lean_ctor_get(x_4, 2); -lean_inc(x_298); -x_299 = lean_ctor_get(x_4, 3); -lean_inc(x_299); -x_300 = lean_ctor_get(x_4, 4); -lean_inc(x_300); -x_301 = lean_ctor_get(x_4, 5); -lean_inc(x_301); -x_302 = lean_ctor_get(x_4, 6); -lean_inc(x_302); -x_303 = lean_ctor_get(x_4, 7); -lean_inc(x_303); -x_304 = lean_ctor_get(x_4, 8); -lean_inc(x_304); -x_305 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); -x_306 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); -x_307 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); +x_328 = lean_unsigned_to_nat(1u); +x_329 = lean_nat_add(x_327, x_328); +x_330 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_330, 0, x_322); +lean_ctor_set(x_330, 1, x_323); +lean_ctor_set(x_330, 2, x_324); +lean_ctor_set(x_330, 3, x_325); +lean_ctor_set(x_330, 4, x_326); +lean_ctor_set(x_330, 5, x_329); +x_331 = lean_ctor_get(x_4, 0); +lean_inc(x_331); +x_332 = lean_ctor_get(x_4, 1); +lean_inc(x_332); +x_333 = lean_ctor_get(x_4, 2); +lean_inc(x_333); +x_334 = lean_ctor_get(x_4, 3); +lean_inc(x_334); +x_335 = lean_ctor_get(x_4, 4); +lean_inc(x_335); +x_336 = lean_ctor_get(x_4, 5); +lean_inc(x_336); +x_337 = lean_ctor_get(x_4, 6); +lean_inc(x_337); +x_338 = lean_ctor_get(x_4, 7); +lean_inc(x_338); +x_339 = lean_ctor_get(x_4, 8); +lean_inc(x_339); +x_340 = lean_ctor_get_uint8(x_4, sizeof(void*)*10); +x_341 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 1); +x_342 = lean_ctor_get_uint8(x_4, sizeof(void*)*10 + 2); if (lean_is_exclusive(x_4)) { lean_ctor_release(x_4, 0); lean_ctor_release(x_4, 1); @@ -13520,412 +13817,454 @@ if (lean_is_exclusive(x_4)) { lean_ctor_release(x_4, 7); lean_ctor_release(x_4, 8); lean_ctor_release(x_4, 9); - x_308 = x_4; + x_343 = x_4; } else { lean_dec_ref(x_4); - x_308 = lean_box(0); + x_343 = lean_box(0); } -lean_inc(x_292); -lean_inc(x_304); -lean_inc(x_303); -lean_inc(x_302); -lean_inc(x_301); -lean_inc(x_300); -lean_inc(x_299); -lean_inc(x_298); -lean_inc(x_297); -lean_inc(x_296); -if (lean_is_scalar(x_308)) { - x_309 = lean_alloc_ctor(0, 10, 3); -} else { - x_309 = x_308; -} -lean_ctor_set(x_309, 0, x_296); -lean_ctor_set(x_309, 1, x_297); -lean_ctor_set(x_309, 2, x_298); -lean_ctor_set(x_309, 3, x_299); -lean_ctor_set(x_309, 4, x_300); -lean_ctor_set(x_309, 5, x_301); -lean_ctor_set(x_309, 6, x_302); -lean_ctor_set(x_309, 7, x_303); -lean_ctor_set(x_309, 8, x_304); -lean_ctor_set(x_309, 9, x_292); -lean_ctor_set_uint8(x_309, sizeof(void*)*10, x_305); -lean_ctor_set_uint8(x_309, sizeof(void*)*10 + 1, x_306); -lean_ctor_set_uint8(x_309, sizeof(void*)*10 + 2, x_307); -x_390 = lean_ctor_get(x_296, 3); -lean_inc(x_390); -x_391 = lean_ctor_get(x_296, 4); -lean_inc(x_391); -x_392 = lean_nat_dec_eq(x_390, x_391); -lean_dec(x_391); -lean_dec(x_390); -if (x_392 == 0) -{ -lean_dec(x_309); -x_310 = x_295; -goto block_389; -} -else -{ -lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; -lean_dec(x_304); -lean_dec(x_303); -lean_dec(x_302); -lean_dec(x_301); -lean_dec(x_300); -lean_dec(x_299); -lean_dec(x_298); -lean_dec(x_297); -lean_dec(x_296); -lean_dec(x_292); -lean_dec(x_1); -x_393 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; -x_394 = l_Lean_Elab_Term_throwError___rarg(x_3, x_393, x_309, x_295); -lean_dec(x_3); -x_395 = lean_ctor_get(x_394, 0); -lean_inc(x_395); -x_396 = lean_ctor_get(x_394, 1); -lean_inc(x_396); -if (lean_is_exclusive(x_394)) { - lean_ctor_release(x_394, 0); - lean_ctor_release(x_394, 1); - x_397 = x_394; -} else { - lean_dec_ref(x_394); - x_397 = lean_box(0); -} -if (lean_is_scalar(x_397)) { - x_398 = lean_alloc_ctor(1, 2, 0); -} else { - x_398 = x_397; -} -lean_ctor_set(x_398, 0, x_395); -lean_ctor_set(x_398, 1, x_396); -return x_398; -} -block_389: -{ -lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; uint8_t x_385; -x_311 = lean_ctor_get(x_296, 0); -lean_inc(x_311); -x_312 = lean_ctor_get(x_296, 1); -lean_inc(x_312); -x_313 = lean_ctor_get(x_296, 2); -lean_inc(x_313); -x_314 = lean_ctor_get(x_296, 3); -lean_inc(x_314); -x_315 = lean_ctor_get(x_296, 4); -lean_inc(x_315); -if (lean_is_exclusive(x_296)) { - lean_ctor_release(x_296, 0); - lean_ctor_release(x_296, 1); - lean_ctor_release(x_296, 2); - lean_ctor_release(x_296, 3); - lean_ctor_release(x_296, 4); - x_316 = x_296; -} else { - lean_dec_ref(x_296); - x_316 = lean_box(0); -} -x_317 = lean_nat_add(x_314, x_293); -lean_dec(x_314); -if (lean_is_scalar(x_316)) { - x_318 = lean_alloc_ctor(0, 5, 0); -} else { - x_318 = x_316; -} -lean_ctor_set(x_318, 0, x_311); -lean_ctor_set(x_318, 1, x_312); -lean_ctor_set(x_318, 2, x_313); -lean_ctor_set(x_318, 3, x_317); -lean_ctor_set(x_318, 4, x_315); -lean_inc(x_292); -lean_inc(x_304); -lean_inc(x_303); -lean_inc(x_302); -lean_inc(x_301); -lean_inc(x_300); -lean_inc(x_299); -lean_inc(x_298); -lean_inc(x_297); -lean_inc(x_318); -x_319 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_319, 0, x_318); -lean_ctor_set(x_319, 1, x_297); -lean_ctor_set(x_319, 2, x_298); -lean_ctor_set(x_319, 3, x_299); -lean_ctor_set(x_319, 4, x_300); -lean_ctor_set(x_319, 5, x_301); -lean_ctor_set(x_319, 6, x_302); -lean_ctor_set(x_319, 7, x_303); -lean_ctor_set(x_319, 8, x_304); -lean_ctor_set(x_319, 9, x_292); -lean_ctor_set_uint8(x_319, sizeof(void*)*10, x_305); -lean_ctor_set_uint8(x_319, sizeof(void*)*10 + 1, x_306); -lean_ctor_set_uint8(x_319, sizeof(void*)*10 + 2, x_307); -x_381 = l_Lean_Elab_Term_getOptions(x_319, x_310); -x_382 = lean_ctor_get(x_381, 0); -lean_inc(x_382); -x_383 = lean_ctor_get(x_381, 1); -lean_inc(x_383); -lean_dec(x_381); -x_384 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; -x_385 = l_Lean_checkTraceOption(x_382, x_384); -lean_dec(x_382); -if (x_385 == 0) -{ -x_320 = x_383; -goto block_380; -} -else -{ -lean_object* x_386; lean_object* x_387; lean_object* x_388; -lean_inc(x_3); -x_386 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_386, 0, x_3); -x_387 = l_Lean_Elab_Term_logTrace(x_384, x_3, x_386, x_319, x_383); -x_388 = lean_ctor_get(x_387, 1); -lean_inc(x_388); -lean_dec(x_387); -x_320 = x_388; -goto block_380; -} -block_380: -{ -lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; -x_321 = l_Lean_Elab_Term_termElabAttribute; -x_322 = lean_ctor_get(x_321, 1); -lean_inc(x_322); -x_323 = lean_ctor_get(x_320, 0); -lean_inc(x_323); -x_324 = lean_ctor_get(x_323, 0); -lean_inc(x_324); -lean_dec(x_323); -x_325 = l_Lean_PersistentEnvExtension_getState___rarg(x_322, x_324); -lean_dec(x_324); -lean_dec(x_322); -x_326 = lean_ctor_get(x_325, 1); -lean_inc(x_326); -lean_dec(x_325); -lean_inc(x_3); -x_327 = l_Lean_Syntax_getKind(x_3); -x_328 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_326, x_327); -if (lean_obj_tag(x_328) == 0) -{ -lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_340; lean_object* x_341; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; -x_329 = l_Lean_Elab_Term_getEnv___rarg(x_320); -x_330 = lean_ctor_get(x_329, 0); -lean_inc(x_330); -x_331 = lean_ctor_get(x_329, 1); +lean_inc(x_327); +lean_inc(x_339); +lean_inc(x_338); +lean_inc(x_337); +lean_inc(x_336); +lean_inc(x_335); +lean_inc(x_334); +lean_inc(x_333); +lean_inc(x_332); lean_inc(x_331); -if (lean_is_exclusive(x_329)) { - lean_ctor_release(x_329, 0); - lean_ctor_release(x_329, 1); - x_332 = x_329; +if (lean_is_scalar(x_343)) { + x_344 = lean_alloc_ctor(0, 10, 3); } else { - lean_dec_ref(x_329); - x_332 = lean_box(0); + x_344 = x_343; } -x_358 = l_Lean_Elab_Term_getCurrMacroScope(x_319, x_331); +lean_ctor_set(x_344, 0, x_331); +lean_ctor_set(x_344, 1, x_332); +lean_ctor_set(x_344, 2, x_333); +lean_ctor_set(x_344, 3, x_334); +lean_ctor_set(x_344, 4, x_335); +lean_ctor_set(x_344, 5, x_336); +lean_ctor_set(x_344, 6, x_337); +lean_ctor_set(x_344, 7, x_338); +lean_ctor_set(x_344, 8, x_339); +lean_ctor_set(x_344, 9, x_327); +lean_ctor_set_uint8(x_344, sizeof(void*)*10, x_340); +lean_ctor_set_uint8(x_344, sizeof(void*)*10 + 1, x_341); +lean_ctor_set_uint8(x_344, sizeof(void*)*10 + 2, x_342); +x_434 = lean_ctor_get(x_331, 3); +lean_inc(x_434); +x_435 = lean_ctor_get(x_331, 4); +lean_inc(x_435); +x_436 = lean_nat_dec_eq(x_434, x_435); +lean_dec(x_435); +lean_dec(x_434); +if (x_436 == 0) +{ +lean_dec(x_344); +x_345 = x_330; +goto block_433; +} +else +{ +lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; lean_object* x_442; +lean_dec(x_339); +lean_dec(x_338); +lean_dec(x_337); +lean_dec(x_336); +lean_dec(x_335); +lean_dec(x_334); +lean_dec(x_333); +lean_dec(x_332); +lean_dec(x_331); +lean_dec(x_327); +lean_dec(x_1); +x_437 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; +x_438 = l_Lean_Elab_Term_throwError___rarg(x_3, x_437, x_344, x_330); +lean_dec(x_3); +x_439 = lean_ctor_get(x_438, 0); +lean_inc(x_439); +x_440 = lean_ctor_get(x_438, 1); +lean_inc(x_440); +if (lean_is_exclusive(x_438)) { + lean_ctor_release(x_438, 0); + lean_ctor_release(x_438, 1); + x_441 = x_438; +} else { + lean_dec_ref(x_438); + x_441 = lean_box(0); +} +if (lean_is_scalar(x_441)) { + x_442 = lean_alloc_ctor(1, 2, 0); +} else { + x_442 = x_441; +} +lean_ctor_set(x_442, 0, x_439); +lean_ctor_set(x_442, 1, x_440); +return x_442; +} +block_433: +{ +lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; uint8_t x_429; +x_346 = lean_ctor_get(x_331, 0); +lean_inc(x_346); +x_347 = lean_ctor_get(x_331, 1); +lean_inc(x_347); +x_348 = lean_ctor_get(x_331, 2); +lean_inc(x_348); +x_349 = lean_ctor_get(x_331, 3); +lean_inc(x_349); +x_350 = lean_ctor_get(x_331, 4); +lean_inc(x_350); +if (lean_is_exclusive(x_331)) { + lean_ctor_release(x_331, 0); + lean_ctor_release(x_331, 1); + lean_ctor_release(x_331, 2); + lean_ctor_release(x_331, 3); + lean_ctor_release(x_331, 4); + x_351 = x_331; +} else { + lean_dec_ref(x_331); + x_351 = lean_box(0); +} +x_352 = lean_nat_add(x_349, x_328); +lean_dec(x_349); +if (lean_is_scalar(x_351)) { + x_353 = lean_alloc_ctor(0, 5, 0); +} else { + x_353 = x_351; +} +lean_ctor_set(x_353, 0, x_346); +lean_ctor_set(x_353, 1, x_347); +lean_ctor_set(x_353, 2, x_348); +lean_ctor_set(x_353, 3, x_352); +lean_ctor_set(x_353, 4, x_350); +lean_inc(x_327); +lean_inc(x_339); +lean_inc(x_338); +lean_inc(x_337); +lean_inc(x_336); +lean_inc(x_335); +lean_inc(x_334); +lean_inc(x_333); +lean_inc(x_332); +lean_inc(x_353); +x_354 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_354, 0, x_353); +lean_ctor_set(x_354, 1, x_332); +lean_ctor_set(x_354, 2, x_333); +lean_ctor_set(x_354, 3, x_334); +lean_ctor_set(x_354, 4, x_335); +lean_ctor_set(x_354, 5, x_336); +lean_ctor_set(x_354, 6, x_337); +lean_ctor_set(x_354, 7, x_338); +lean_ctor_set(x_354, 8, x_339); +lean_ctor_set(x_354, 9, x_327); +lean_ctor_set_uint8(x_354, sizeof(void*)*10, x_340); +lean_ctor_set_uint8(x_354, sizeof(void*)*10 + 1, x_341); +lean_ctor_set_uint8(x_354, sizeof(void*)*10 + 2, x_342); +x_425 = l_Lean_Elab_Term_getOptions(x_354, x_345); +x_426 = lean_ctor_get(x_425, 0); +lean_inc(x_426); +x_427 = lean_ctor_get(x_425, 1); +lean_inc(x_427); +lean_dec(x_425); +x_428 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__3; +x_429 = l_Lean_checkTraceOption(x_426, x_428); +lean_dec(x_426); +if (x_429 == 0) +{ +x_355 = x_427; +goto block_424; +} +else +{ +lean_object* x_430; lean_object* x_431; lean_object* x_432; +lean_inc(x_3); +x_430 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_430, 0, x_3); +x_431 = l_Lean_Elab_Term_logTrace(x_428, x_3, x_430, x_354, x_427); +x_432 = lean_ctor_get(x_431, 1); +lean_inc(x_432); +lean_dec(x_431); +x_355 = x_432; +goto block_424; +} +block_424: +{ +lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; +x_356 = l_Lean_Elab_Term_termElabAttribute; +x_357 = lean_ctor_get(x_356, 1); +lean_inc(x_357); +x_358 = lean_ctor_get(x_355, 0); +lean_inc(x_358); x_359 = lean_ctor_get(x_358, 0); lean_inc(x_359); -x_360 = lean_ctor_get(x_358, 1); -lean_inc(x_360); lean_dec(x_358); -x_361 = l_Lean_Elab_Term_getEnv___rarg(x_360); -x_362 = lean_ctor_get(x_361, 0); -lean_inc(x_362); -x_363 = lean_ctor_get(x_361, 1); -lean_inc(x_363); -lean_dec(x_361); -x_364 = lean_environment_main_module(x_362); -x_365 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_365, 0, x_364); -lean_ctor_set(x_365, 1, x_359); +x_360 = l_Lean_PersistentEnvExtension_getState___rarg(x_357, x_359); +lean_dec(x_359); +lean_dec(x_357); +x_361 = lean_ctor_get(x_360, 1); +lean_inc(x_361); +lean_dec(x_360); lean_inc(x_3); -x_366 = l_Lean_Elab_getMacros(x_330, x_3, x_365); -lean_dec(x_330); -if (lean_obj_tag(x_366) == 0) +x_362 = l_Lean_Syntax_getKind(x_3); +x_363 = l_Lean_SMap_find_x3f___at_Lean_Elab_Term_elabTermAux___main___spec__1(x_361, x_362); +if (lean_obj_tag(x_363) == 0) { -lean_object* x_367; -lean_dec(x_318); -lean_dec(x_304); -lean_dec(x_303); -lean_dec(x_302); -lean_dec(x_301); -lean_dec(x_300); -lean_dec(x_299); -lean_dec(x_298); -lean_dec(x_297); -lean_dec(x_292); -lean_dec(x_1); -x_367 = lean_ctor_get(x_366, 0); -lean_inc(x_367); -lean_dec(x_366); -if (lean_obj_tag(x_367) == 0) +lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_375; lean_object* x_376; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; +x_364 = l_Lean_Elab_Term_getEnv___rarg(x_355); +x_365 = lean_ctor_get(x_364, 0); +lean_inc(x_365); +x_366 = lean_ctor_get(x_364, 1); +lean_inc(x_366); +if (lean_is_exclusive(x_364)) { + lean_ctor_release(x_364, 0); + lean_ctor_release(x_364, 1); + x_367 = x_364; +} else { + lean_dec_ref(x_364); + x_367 = lean_box(0); +} +x_393 = l_Lean_Elab_Term_getCurrMacroScope(x_354, x_366); +x_394 = lean_ctor_get(x_393, 0); +lean_inc(x_394); +x_395 = lean_ctor_get(x_393, 1); +lean_inc(x_395); +lean_dec(x_393); +x_396 = l_Lean_Elab_Term_getEnv___rarg(x_395); +x_397 = lean_ctor_get(x_396, 1); +lean_inc(x_397); +x_398 = lean_ctor_get(x_396, 0); +lean_inc(x_398); +lean_dec(x_396); +x_399 = lean_ctor_get(x_397, 0); +lean_inc(x_399); +x_400 = lean_ctor_get(x_397, 1); +lean_inc(x_400); +x_401 = lean_ctor_get(x_397, 2); +lean_inc(x_401); +x_402 = lean_ctor_get(x_397, 3); +lean_inc(x_402); +x_403 = lean_ctor_get(x_397, 4); +lean_inc(x_403); +x_404 = lean_ctor_get(x_397, 5); +lean_inc(x_404); +x_405 = lean_environment_main_module(x_398); +x_406 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_406, 0, x_405); +lean_ctor_set(x_406, 1, x_394); +lean_inc(x_3); +x_407 = l_Lean_Elab_getMacros(x_365, x_3, x_406, x_404); +lean_dec(x_365); +if (lean_obj_tag(x_407) == 0) { -lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; -x_368 = lean_ctor_get(x_367, 0); -lean_inc(x_368); +lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_dec(x_367); -x_369 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_369, 0, x_368); -x_370 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_370, 0, x_369); -lean_inc(x_319); -x_371 = l_Lean_Elab_Term_throwError___rarg(x_3, x_370, x_319, x_363); -x_372 = lean_ctor_get(x_371, 0); -lean_inc(x_372); -x_373 = lean_ctor_get(x_371, 1); -lean_inc(x_373); -lean_dec(x_371); -x_340 = x_372; -x_341 = x_373; -goto block_357; +lean_dec(x_362); +lean_dec(x_354); +if (lean_is_exclusive(x_397)) { + lean_ctor_release(x_397, 0); + lean_ctor_release(x_397, 1); + lean_ctor_release(x_397, 2); + lean_ctor_release(x_397, 3); + lean_ctor_release(x_397, 4); + lean_ctor_release(x_397, 5); + x_408 = x_397; +} else { + lean_dec_ref(x_397); + x_408 = lean_box(0); +} +x_409 = lean_ctor_get(x_407, 0); +lean_inc(x_409); +x_410 = lean_ctor_get(x_407, 1); +lean_inc(x_410); +lean_dec(x_407); +if (lean_is_scalar(x_408)) { + x_411 = lean_alloc_ctor(0, 6, 0); +} else { + x_411 = x_408; +} +lean_ctor_set(x_411, 0, x_399); +lean_ctor_set(x_411, 1, x_400); +lean_ctor_set(x_411, 2, x_401); +lean_ctor_set(x_411, 3, x_402); +lean_ctor_set(x_411, 4, x_403); +lean_ctor_set(x_411, 5, x_410); +x_368 = x_409; +x_369 = x_411; +goto block_374; } else { -lean_object* x_374; lean_object* x_375; lean_object* x_376; -x_374 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_363); -x_375 = lean_ctor_get(x_374, 0); -lean_inc(x_375); -x_376 = lean_ctor_get(x_374, 1); -lean_inc(x_376); -lean_dec(x_374); -x_340 = x_375; -x_341 = x_376; -goto block_357; -} -} -else -{ -lean_object* x_377; +lean_object* x_412; +lean_dec(x_403); +lean_dec(x_402); +lean_dec(x_401); +lean_dec(x_400); +lean_dec(x_399); +lean_dec(x_353); +lean_dec(x_339); +lean_dec(x_338); +lean_dec(x_337); +lean_dec(x_336); +lean_dec(x_335); +lean_dec(x_334); +lean_dec(x_333); lean_dec(x_332); lean_dec(x_327); -lean_dec(x_319); -x_377 = lean_ctor_get(x_366, 0); -lean_inc(x_377); -lean_dec(x_366); -x_333 = x_377; -x_334 = x_363; -goto block_339; -} -block_339: +lean_dec(x_1); +x_412 = lean_ctor_get(x_407, 0); +lean_inc(x_412); +lean_dec(x_407); +if (lean_obj_tag(x_412) == 0) { -lean_object* x_335; lean_object* x_336; lean_object* x_337; -lean_inc(x_333); -x_335 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_335, 0, x_3); -lean_ctor_set(x_335, 1, x_333); -x_336 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_336, 0, x_335); -lean_ctor_set(x_336, 1, x_304); -x_337 = lean_alloc_ctor(0, 10, 3); -lean_ctor_set(x_337, 0, x_318); -lean_ctor_set(x_337, 1, x_297); -lean_ctor_set(x_337, 2, x_298); -lean_ctor_set(x_337, 3, x_299); -lean_ctor_set(x_337, 4, x_300); -lean_ctor_set(x_337, 5, x_301); -lean_ctor_set(x_337, 6, x_302); -lean_ctor_set(x_337, 7, x_303); -lean_ctor_set(x_337, 8, x_336); -lean_ctor_set(x_337, 9, x_292); -lean_ctor_set_uint8(x_337, sizeof(void*)*10, x_305); -lean_ctor_set_uint8(x_337, sizeof(void*)*10 + 1, x_306); -lean_ctor_set_uint8(x_337, sizeof(void*)*10 + 2, x_307); -x_3 = x_333; -x_4 = x_337; -x_5 = x_334; +lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; +x_413 = lean_ctor_get(x_412, 0); +lean_inc(x_413); +lean_dec(x_412); +x_414 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_414, 0, x_413); +x_415 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_415, 0, x_414); +lean_inc(x_354); +x_416 = l_Lean_Elab_Term_throwError___rarg(x_3, x_415, x_354, x_397); +x_417 = lean_ctor_get(x_416, 0); +lean_inc(x_417); +x_418 = lean_ctor_get(x_416, 1); +lean_inc(x_418); +lean_dec(x_416); +x_375 = x_417; +x_376 = x_418; +goto block_392; +} +else +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; +x_419 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_397); +x_420 = lean_ctor_get(x_419, 0); +lean_inc(x_420); +x_421 = lean_ctor_get(x_419, 1); +lean_inc(x_421); +lean_dec(x_419); +x_375 = x_420; +x_376 = x_421; +goto block_392; +} +} +block_374: +{ +lean_object* x_370; lean_object* x_371; lean_object* x_372; +lean_inc(x_368); +x_370 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_370, 0, x_3); +lean_ctor_set(x_370, 1, x_368); +x_371 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_371, 0, x_370); +lean_ctor_set(x_371, 1, x_339); +x_372 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_372, 0, x_353); +lean_ctor_set(x_372, 1, x_332); +lean_ctor_set(x_372, 2, x_333); +lean_ctor_set(x_372, 3, x_334); +lean_ctor_set(x_372, 4, x_335); +lean_ctor_set(x_372, 5, x_336); +lean_ctor_set(x_372, 6, x_337); +lean_ctor_set(x_372, 7, x_338); +lean_ctor_set(x_372, 8, x_371); +lean_ctor_set(x_372, 9, x_327); +lean_ctor_set_uint8(x_372, sizeof(void*)*10, x_340); +lean_ctor_set_uint8(x_372, sizeof(void*)*10 + 1, x_341); +lean_ctor_set_uint8(x_372, sizeof(void*)*10 + 2, x_342); +x_3 = x_368; +x_4 = x_372; +x_5 = x_369; goto _start; } -block_357: +block_392: { -lean_object* x_342; -x_342 = lean_ctor_get(x_340, 0); -lean_inc(x_342); -if (lean_obj_tag(x_342) == 0) +lean_object* x_377; +x_377 = lean_ctor_get(x_375, 0); +lean_inc(x_377); +if (lean_obj_tag(x_377) == 0) { -lean_object* x_343; -lean_dec(x_342); -lean_dec(x_327); -lean_dec(x_319); +lean_object* x_378; +lean_dec(x_377); +lean_dec(x_362); +lean_dec(x_354); lean_dec(x_3); -if (lean_is_scalar(x_332)) { - x_343 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_367)) { + x_378 = lean_alloc_ctor(1, 2, 0); } else { - x_343 = x_332; - lean_ctor_set_tag(x_343, 1); + x_378 = x_367; + lean_ctor_set_tag(x_378, 1); } -lean_ctor_set(x_343, 0, x_340); -lean_ctor_set(x_343, 1, x_341); -return x_343; +lean_ctor_set(x_378, 0, x_375); +lean_ctor_set(x_378, 1, x_376); +return x_378; } else { -lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; -lean_dec(x_340); +lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; +lean_dec(x_375); +lean_dec(x_367); +x_379 = l_Lean_Name_toString___closed__1; +x_380 = l_Lean_Name_toStringWithSep___main(x_379, x_362); +x_381 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_381, 0, x_380); +x_382 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_382, 0, x_381); +x_383 = l_Lean_Elab_Term_elabTermAux___main___closed__3; +x_384 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_384, 0, x_383); +lean_ctor_set(x_384, 1, x_382); +x_385 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_386 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_386, 0, x_384); +lean_ctor_set(x_386, 1, x_385); +x_387 = l_Lean_Elab_Term_throwError___rarg(x_3, x_386, x_354, x_376); +lean_dec(x_3); +x_388 = lean_ctor_get(x_387, 0); +lean_inc(x_388); +x_389 = lean_ctor_get(x_387, 1); +lean_inc(x_389); +if (lean_is_exclusive(x_387)) { + lean_ctor_release(x_387, 0); + lean_ctor_release(x_387, 1); + x_390 = x_387; +} else { + lean_dec_ref(x_387); + x_390 = lean_box(0); +} +if (lean_is_scalar(x_390)) { + x_391 = lean_alloc_ctor(1, 2, 0); +} else { + x_391 = x_390; +} +lean_ctor_set(x_391, 0, x_388); +lean_ctor_set(x_391, 1, x_389); +return x_391; +} +} +} +else +{ +lean_object* x_422; lean_object* x_423; +lean_dec(x_362); +lean_dec(x_353); +lean_dec(x_339); +lean_dec(x_338); +lean_dec(x_337); +lean_dec(x_336); +lean_dec(x_335); +lean_dec(x_334); +lean_dec(x_333); lean_dec(x_332); -x_344 = l_Lean_Name_toString___closed__1; -x_345 = l_Lean_Name_toStringWithSep___main(x_344, x_327); -x_346 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_346, 0, x_345); -x_347 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_347, 0, x_346); -x_348 = l_Lean_Elab_Term_elabTermAux___main___closed__3; -x_349 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_349, 0, x_348); -lean_ctor_set(x_349, 1, x_347); -x_350 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_351 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_351, 0, x_349); -lean_ctor_set(x_351, 1, x_350); -x_352 = l_Lean_Elab_Term_throwError___rarg(x_3, x_351, x_319, x_341); -lean_dec(x_3); -x_353 = lean_ctor_get(x_352, 0); -lean_inc(x_353); -x_354 = lean_ctor_get(x_352, 1); -lean_inc(x_354); -if (lean_is_exclusive(x_352)) { - lean_ctor_release(x_352, 0); - lean_ctor_release(x_352, 1); - x_355 = x_352; -} else { - lean_dec_ref(x_352); - x_355 = lean_box(0); -} -if (lean_is_scalar(x_355)) { - x_356 = lean_alloc_ctor(1, 2, 0); -} else { - x_356 = x_355; -} -lean_ctor_set(x_356, 0, x_353); -lean_ctor_set(x_356, 1, x_354); -return x_356; -} -} -} -else -{ -lean_object* x_378; lean_object* x_379; lean_dec(x_327); -lean_dec(x_318); -lean_dec(x_304); -lean_dec(x_303); -lean_dec(x_302); -lean_dec(x_301); -lean_dec(x_300); -lean_dec(x_299); -lean_dec(x_298); -lean_dec(x_297); -lean_dec(x_292); -x_378 = lean_ctor_get(x_328, 0); -lean_inc(x_378); -lean_dec(x_328); -lean_inc(x_320); -x_379 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_320, x_3, x_1, x_2, x_378, x_319, x_320); -return x_379; +x_422 = lean_ctor_get(x_363, 0); +lean_inc(x_422); +lean_dec(x_363); +lean_inc(x_355); +x_423 = l___private_Init_Lean_Elab_Term_8__elabTermUsing___main(x_355, x_3, x_1, x_2, x_422, x_354, x_355); +return x_423; } } } @@ -22925,6 +23264,14 @@ l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3 = _init_l_Lean_Elab_Ter lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3); l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4 = _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4(); lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__4); +l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__5 = _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__5(); +lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__5); +l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6 = _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6(); +lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6); +l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7 = _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7(); +lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7); +l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__8 = _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__8(); +lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__8); l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter = _init_l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter(); lean_mark_persistent(l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter); l_Lean_Elab_Term_elabTermAux___main___closed__1 = _init_l_Lean_Elab_Term_elabTermAux___main___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Elab/TermBinders.c b/stage0/stdlib/Init/Lean/Elab/TermBinders.c index 1c6ea52256..ccd6dd88b6 100644 --- a/stage0/stdlib/Init/Lean/Elab/TermBinders.c +++ b/stage0/stdlib/Init/Lean/Elab/TermBinders.c @@ -139,6 +139,7 @@ lean_object* l_Lean_Elab_Term_getCurrMacroScope(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_TermBinders_5__matchBinder___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___closed__2; lean_object* l_Lean_Elab_Term_expandOptType(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_withLocalDecl___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; lean_object* l_Lean_Elab_Term_mkFreshFVarId(lean_object*); uint8_t l_coeDecidableEq(uint8_t); @@ -225,7 +226,9 @@ lean_object* l_Lean_Elab_Term_withLetDecl(lean_object*); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDepArrow___closed__2; lean_object* l___private_Init_Lean_Elab_TermBinders_2__expandBinderIdent(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkHole___closed__2; +lean_object* l_Lean_Elab_Term_withLocalDecl(lean_object*); lean_object* l_Lean_Elab_Term_elabBinders___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_withLocalDecl___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_TermBinders_4__expandBinderModifier___closed__3; lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); extern lean_object* l_Lean_mkOptionalNode___closed__2; @@ -17130,6 +17133,445 @@ x_5 = l_Lean_Elab_Term_addBuiltinTermElab(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* l_Lean_Elab_Term_withLocalDecl___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_7 = l_Lean_Elab_Term_mkFreshFVarId___rarg(x_6); +x_8 = lean_ctor_get(x_5, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_10); +lean_dec(x_7); +x_11 = lean_ctor_get(x_5, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_5, 2); +lean_inc(x_12); +x_13 = lean_ctor_get(x_5, 3); +lean_inc(x_13); +x_14 = lean_ctor_get(x_5, 4); +lean_inc(x_14); +x_15 = lean_ctor_get(x_5, 5); +lean_inc(x_15); +x_16 = lean_ctor_get(x_5, 6); +lean_inc(x_16); +x_17 = lean_ctor_get(x_5, 7); +lean_inc(x_17); +x_18 = lean_ctor_get(x_5, 8); +lean_inc(x_18); +x_19 = lean_ctor_get(x_5, 9); +lean_inc(x_19); +x_20 = !lean_is_exclusive(x_8); +if (x_20 == 0) +{ +uint8_t x_21; uint8_t x_22; uint8_t x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; +x_21 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); +x_22 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); +x_23 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 2); +x_24 = lean_ctor_get(x_8, 0); +x_25 = lean_ctor_get(x_8, 1); +x_26 = lean_ctor_get(x_8, 2); +x_27 = lean_ctor_get(x_8, 3); +x_28 = lean_ctor_get(x_8, 4); +x_29 = 0; +lean_inc(x_3); +lean_inc(x_9); +x_30 = lean_local_ctx_mk_local_decl(x_25, x_9, x_2, x_3, x_29); +x_31 = l_Lean_mkFVar(x_9); +lean_inc(x_5); +x_32 = l_Lean_Elab_Term_isClass(x_1, x_3, x_5, x_10); +x_33 = !lean_is_exclusive(x_5); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_34 = lean_ctor_get(x_5, 9); +lean_dec(x_34); +x_35 = lean_ctor_get(x_5, 8); +lean_dec(x_35); +x_36 = lean_ctor_get(x_5, 7); +lean_dec(x_36); +x_37 = lean_ctor_get(x_5, 6); +lean_dec(x_37); +x_38 = lean_ctor_get(x_5, 5); +lean_dec(x_38); +x_39 = lean_ctor_get(x_5, 4); +lean_dec(x_39); +x_40 = lean_ctor_get(x_5, 3); +lean_dec(x_40); +x_41 = lean_ctor_get(x_5, 2); +lean_dec(x_41); +x_42 = lean_ctor_get(x_5, 1); +lean_dec(x_42); +x_43 = lean_ctor_get(x_5, 0); +lean_dec(x_43); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_44; +x_44 = lean_ctor_get(x_32, 0); +lean_inc(x_44); +if (lean_obj_tag(x_44) == 0) +{ +lean_object* x_45; lean_object* x_46; +x_45 = lean_ctor_get(x_32, 1); +lean_inc(x_45); +lean_dec(x_32); +lean_ctor_set(x_8, 1, x_30); +x_46 = lean_apply_3(x_4, x_31, x_5, x_45); +return x_46; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_47 = lean_ctor_get(x_32, 1); +lean_inc(x_47); +lean_dec(x_32); +x_48 = lean_ctor_get(x_44, 0); +lean_inc(x_48); +lean_dec(x_44); +lean_inc(x_31); +x_49 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_31); +x_50 = lean_array_push(x_26, x_49); +lean_ctor_set(x_8, 2, x_50); +lean_ctor_set(x_8, 1, x_30); +x_51 = lean_apply_3(x_4, x_31, x_5, x_47); +return x_51; +} +} +else +{ +uint8_t x_52; +lean_free_object(x_5); +lean_dec(x_31); +lean_dec(x_30); +lean_free_object(x_8); +lean_dec(x_28); +lean_dec(x_27); +lean_dec(x_26); +lean_dec(x_24); +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_4); +x_52 = !lean_is_exclusive(x_32); +if (x_52 == 0) +{ +return x_32; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_32, 0); +x_54 = lean_ctor_get(x_32, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_32); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; +} +} +} +else +{ +lean_dec(x_5); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_56; +x_56 = lean_ctor_get(x_32, 0); +lean_inc(x_56); +if (lean_obj_tag(x_56) == 0) +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_32, 1); +lean_inc(x_57); +lean_dec(x_32); +lean_ctor_set(x_8, 1, x_30); +x_58 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_58, 0, x_8); +lean_ctor_set(x_58, 1, x_11); +lean_ctor_set(x_58, 2, x_12); +lean_ctor_set(x_58, 3, x_13); +lean_ctor_set(x_58, 4, x_14); +lean_ctor_set(x_58, 5, x_15); +lean_ctor_set(x_58, 6, x_16); +lean_ctor_set(x_58, 7, x_17); +lean_ctor_set(x_58, 8, x_18); +lean_ctor_set(x_58, 9, x_19); +lean_ctor_set_uint8(x_58, sizeof(void*)*10, x_21); +lean_ctor_set_uint8(x_58, sizeof(void*)*10 + 1, x_22); +lean_ctor_set_uint8(x_58, sizeof(void*)*10 + 2, x_23); +x_59 = lean_apply_3(x_4, x_31, x_58, x_57); +return x_59; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +x_60 = lean_ctor_get(x_32, 1); +lean_inc(x_60); +lean_dec(x_32); +x_61 = lean_ctor_get(x_56, 0); +lean_inc(x_61); +lean_dec(x_56); +lean_inc(x_31); +x_62 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_62, 0, x_61); +lean_ctor_set(x_62, 1, x_31); +x_63 = lean_array_push(x_26, x_62); +lean_ctor_set(x_8, 2, x_63); +lean_ctor_set(x_8, 1, x_30); +x_64 = lean_alloc_ctor(0, 10, 3); +lean_ctor_set(x_64, 0, x_8); +lean_ctor_set(x_64, 1, x_11); +lean_ctor_set(x_64, 2, x_12); +lean_ctor_set(x_64, 3, x_13); +lean_ctor_set(x_64, 4, x_14); +lean_ctor_set(x_64, 5, x_15); +lean_ctor_set(x_64, 6, x_16); +lean_ctor_set(x_64, 7, x_17); +lean_ctor_set(x_64, 8, x_18); +lean_ctor_set(x_64, 9, x_19); +lean_ctor_set_uint8(x_64, sizeof(void*)*10, x_21); +lean_ctor_set_uint8(x_64, sizeof(void*)*10 + 1, x_22); +lean_ctor_set_uint8(x_64, sizeof(void*)*10 + 2, x_23); +x_65 = lean_apply_3(x_4, x_31, x_64, x_60); +return x_65; +} +} +else +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; +lean_dec(x_31); +lean_dec(x_30); +lean_free_object(x_8); +lean_dec(x_28); +lean_dec(x_27); +lean_dec(x_26); +lean_dec(x_24); +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_4); +x_66 = lean_ctor_get(x_32, 0); +lean_inc(x_66); +x_67 = lean_ctor_get(x_32, 1); +lean_inc(x_67); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_68 = x_32; +} else { + lean_dec_ref(x_32); + x_68 = lean_box(0); +} +if (lean_is_scalar(x_68)) { + x_69 = lean_alloc_ctor(1, 2, 0); +} else { + x_69 = x_68; +} +lean_ctor_set(x_69, 0, x_66); +lean_ctor_set(x_69, 1, x_67); +return x_69; +} +} +} +else +{ +uint8_t x_70; uint8_t x_71; uint8_t x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; uint8_t x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_70 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); +x_71 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); +x_72 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 2); +x_73 = lean_ctor_get(x_8, 0); +x_74 = lean_ctor_get(x_8, 1); +x_75 = lean_ctor_get(x_8, 2); +x_76 = lean_ctor_get(x_8, 3); +x_77 = lean_ctor_get(x_8, 4); +lean_inc(x_77); +lean_inc(x_76); +lean_inc(x_75); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_8); +x_78 = 0; +lean_inc(x_3); +lean_inc(x_9); +x_79 = lean_local_ctx_mk_local_decl(x_74, x_9, x_2, x_3, x_78); +x_80 = l_Lean_mkFVar(x_9); +lean_inc(x_5); +x_81 = l_Lean_Elab_Term_isClass(x_1, x_3, x_5, x_10); +if (lean_is_exclusive(x_5)) { + lean_ctor_release(x_5, 0); + lean_ctor_release(x_5, 1); + lean_ctor_release(x_5, 2); + lean_ctor_release(x_5, 3); + lean_ctor_release(x_5, 4); + lean_ctor_release(x_5, 5); + lean_ctor_release(x_5, 6); + lean_ctor_release(x_5, 7); + lean_ctor_release(x_5, 8); + lean_ctor_release(x_5, 9); + x_82 = x_5; +} else { + lean_dec_ref(x_5); + x_82 = lean_box(0); +} +if (lean_obj_tag(x_81) == 0) +{ +lean_object* x_83; +x_83 = lean_ctor_get(x_81, 0); +lean_inc(x_83); +if (lean_obj_tag(x_83) == 0) +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_84 = lean_ctor_get(x_81, 1); +lean_inc(x_84); +lean_dec(x_81); +x_85 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_85, 0, x_73); +lean_ctor_set(x_85, 1, x_79); +lean_ctor_set(x_85, 2, x_75); +lean_ctor_set(x_85, 3, x_76); +lean_ctor_set(x_85, 4, x_77); +if (lean_is_scalar(x_82)) { + x_86 = lean_alloc_ctor(0, 10, 3); +} else { + x_86 = x_82; +} +lean_ctor_set(x_86, 0, x_85); +lean_ctor_set(x_86, 1, x_11); +lean_ctor_set(x_86, 2, x_12); +lean_ctor_set(x_86, 3, x_13); +lean_ctor_set(x_86, 4, x_14); +lean_ctor_set(x_86, 5, x_15); +lean_ctor_set(x_86, 6, x_16); +lean_ctor_set(x_86, 7, x_17); +lean_ctor_set(x_86, 8, x_18); +lean_ctor_set(x_86, 9, x_19); +lean_ctor_set_uint8(x_86, sizeof(void*)*10, x_70); +lean_ctor_set_uint8(x_86, sizeof(void*)*10 + 1, x_71); +lean_ctor_set_uint8(x_86, sizeof(void*)*10 + 2, x_72); +x_87 = lean_apply_3(x_4, x_80, x_86, x_84); +return x_87; +} +else +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_88 = lean_ctor_get(x_81, 1); +lean_inc(x_88); +lean_dec(x_81); +x_89 = lean_ctor_get(x_83, 0); +lean_inc(x_89); +lean_dec(x_83); +lean_inc(x_80); +x_90 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_90, 0, x_89); +lean_ctor_set(x_90, 1, x_80); +x_91 = lean_array_push(x_75, x_90); +x_92 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_92, 0, x_73); +lean_ctor_set(x_92, 1, x_79); +lean_ctor_set(x_92, 2, x_91); +lean_ctor_set(x_92, 3, x_76); +lean_ctor_set(x_92, 4, x_77); +if (lean_is_scalar(x_82)) { + x_93 = lean_alloc_ctor(0, 10, 3); +} else { + x_93 = x_82; +} +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_11); +lean_ctor_set(x_93, 2, x_12); +lean_ctor_set(x_93, 3, x_13); +lean_ctor_set(x_93, 4, x_14); +lean_ctor_set(x_93, 5, x_15); +lean_ctor_set(x_93, 6, x_16); +lean_ctor_set(x_93, 7, x_17); +lean_ctor_set(x_93, 8, x_18); +lean_ctor_set(x_93, 9, x_19); +lean_ctor_set_uint8(x_93, sizeof(void*)*10, x_70); +lean_ctor_set_uint8(x_93, sizeof(void*)*10 + 1, x_71); +lean_ctor_set_uint8(x_93, sizeof(void*)*10 + 2, x_72); +x_94 = lean_apply_3(x_4, x_80, x_93, x_88); +return x_94; +} +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +lean_dec(x_82); +lean_dec(x_80); +lean_dec(x_79); +lean_dec(x_77); +lean_dec(x_76); +lean_dec(x_75); +lean_dec(x_73); +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_4); +x_95 = lean_ctor_get(x_81, 0); +lean_inc(x_95); +x_96 = lean_ctor_get(x_81, 1); +lean_inc(x_96); +if (lean_is_exclusive(x_81)) { + lean_ctor_release(x_81, 0); + lean_ctor_release(x_81, 1); + x_97 = x_81; +} else { + lean_dec_ref(x_81); + x_97 = lean_box(0); +} +if (lean_is_scalar(x_97)) { + x_98 = lean_alloc_ctor(1, 2, 0); +} else { + x_98 = x_97; +} +lean_ctor_set(x_98, 0, x_95); +lean_ctor_set(x_98, 1, x_96); +return x_98; +} +} +} +} +lean_object* l_Lean_Elab_Term_withLocalDecl(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Elab_Term_withLocalDecl___rarg___boxed), 6, 0); +return x_2; +} +} +lean_object* l_Lean_Elab_Term_withLocalDecl___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_Elab_Term_withLocalDecl___rarg(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_1); +return x_7; +} +} lean_object* l_Lean_Elab_Term_withLetDecl___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { diff --git a/stage0/stdlib/Init/Lean/Elab/Util.c b/stage0/stdlib/Init/Lean/Elab/Util.c index cb24d03e14..b5dcdf295e 100644 --- a/stage0/stdlib/Init/Lean/Elab/Util.c +++ b/stage0/stdlib/Init/Lean/Elab/Util.c @@ -22,7 +22,6 @@ lean_object* l_AssocList_replace___main___at_Lean_Elab_ElabFnTable_insert___spec lean_object* l_AssocList_foldlM___main___at_Lean_Elab_ElabFnTable_insert___spec__29(lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Util_6__ElabAttribute_add___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Macro_throwUnsupported___closed__1; extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef; lean_object* l_AssocList_contains___main___at_Lean_Elab_ElabFnTable_insert___spec__26___rarg___boxed(lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Parser_Parser_27__BuiltinParserAttribute_add___closed__2; @@ -32,6 +31,7 @@ lean_object* l_Lean_Elab_mkMacroAttribute(lean_object*); lean_object* l_Lean_Elab_mkElabAttributeAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Util_2__throwUnexpectedElabType(lean_object*); lean_object* l_Lean_Elab_macroAttribute___closed__2; +lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MacroScopesView_format___boxed(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Elab_ElabFnTable_insert___spec__24___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_String_toFormat(lean_object*); @@ -76,7 +76,7 @@ lean_object* l_Lean_Elab_registerBuiltinMacroAttr___lambda__1___closed__2; lean_object* l___private_Init_Lean_Elab_Util_4__ElabAttribute_addImportedParsers(lean_object*); lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Elab_ElabFnTable_insert___spec__6___rarg(lean_object*, lean_object*); -lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_mkMacroAttribute___closed__3; lean_object* l___private_Init_Lean_Elab_Util_1__ElabAttribute_mkInitial___rarg___boxed(lean_object*, lean_object*); lean_object* l_Lean_SMap_empty___at_Lean_Elab_ElabAttribute_inhabited___spec__1___closed__2; @@ -137,6 +137,7 @@ lean_object* l_HashMapImp_expand___at_Lean_Elab_ElabFnTable_insert___spec__16___ lean_object* l_Lean_Elab_registerBuiltinMacroAttr___lambda__1___closed__1; lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__2; +lean_object* l_finally___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Util_2__throwUnexpectedElabType___rarg___closed__3; lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Elab_mkElabAttributeAux___spec__3___rarg___closed__1; lean_object* l_Lean_Elab_ElabAttributeExtensionState_inhabited___closed__1; @@ -160,7 +161,7 @@ lean_object* l_Nat_repr(lean_object*); lean_object* l___private_Init_Lean_Elab_Util_4__ElabAttribute_addImportedParsers___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Char_HasRepr___closed__1; lean_object* l_Lean_Elab_registerBuiltinMacroAttr___lambda__1___closed__4; -lean_object* l_Lean_Elab_getMacros(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_getMacros(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_PersistentHashMap_insertAux___main___rarg___closed__3; lean_object* l_Lean_Syntax_prettyPrint(lean_object*); lean_object* l_mkHashMap___at_Lean_Elab_mkBuiltinMacroFnTable___spec__2(lean_object*); @@ -174,7 +175,7 @@ lean_object* l_List_foldl___main___at_Lean_Elab_addMacroStack___spec__1___closed lean_object* lean_eval_const(lean_object*, lean_object*); lean_object* l_Lean_Elab_registerBuiltinMacroAttr___lambda__1___closed__3; lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Elab_mkElabAttributeAux___spec__3___rarg___closed__2; -lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Elab_mkElabAttributeAux___spec__2(lean_object*); lean_object* l_Lean_SMap_empty___at_Lean_Elab_ElabAttributeExtensionState_inhabited___spec__1___closed__1; lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Elab_mkElabAttributeAux___spec__3___rarg(lean_object*, lean_object*); @@ -238,7 +239,7 @@ lean_object* l_Lean_Elab_syntaxNodeKindOfAttrParam___boxed(lean_object*, lean_ob extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1; lean_object* l_PersistentHashMap_find_x3f___at_Lean_Elab_getMacros___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Elab_registerBuiltinMacroAttr___closed__2; -lean_object* l_Lean_Elab_getMacros___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_getMacros___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Elab_ElabFnTable_insert___spec__11___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_ElabAttribute_inhabited___closed__3; lean_object* l_Lean_Elab_macroAttribute; @@ -253,7 +254,7 @@ uint8_t l_USize_decLe(size_t, size_t); lean_object* l_HashMapImp_insert___at_Lean_Elab_ElabFnTable_insert___spec__25___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_mkElabAttribute(lean_object*); lean_object* l_AssocList_foldlM___main___at_Lean_Elab_ElabFnTable_insert___spec__18___rarg(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Util_4__ElabAttribute_addImportedParsers___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_nameToExprAux___main(lean_object*); lean_object* l_Lean_SMap_empty___at_Lean_Elab_mkBuiltinMacroFnTable___spec__1___closed__2; @@ -348,7 +349,7 @@ lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Util_4__ElabAttribute_addImportedParsers___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Elab_ElabFnTable_insert___spec__13___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_registerBuiltinMacroAttr___closed__4; -lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4; extern lean_object* l_Lean_initAttr; lean_object* l_Array_iterateMAux___main___at_Lean_Elab_ElabFnTable_insert___spec__24(lean_object*); @@ -6217,50 +6218,57 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { if (lean_obj_tag(x_2) == 0) { -lean_object* x_4; +lean_object* x_5; lean_object* x_6; lean_dec(x_3); lean_dec(x_1); -x_4 = l_Lean_Macro_throwUnsupported___closed__1; -return x_4; +x_5 = lean_box(1); +x_6 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_4); +return x_6; } else { -lean_object* x_5; lean_object* x_6; lean_object* x_7; -x_5 = lean_ctor_get(x_2, 0); -lean_inc(x_5); -x_6 = lean_ctor_get(x_2, 1); -lean_inc(x_6); +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_ctor_get(x_2, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); lean_dec(x_2); lean_inc(x_3); lean_inc(x_1); -x_7 = lean_apply_2(x_5, x_1, x_3); -if (lean_obj_tag(x_7) == 0) +x_9 = lean_apply_3(x_7, x_1, x_3, x_4); +if (lean_obj_tag(x_9) == 0) { -lean_dec(x_7); -x_2 = x_6; -goto _start; +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +return x_9; } else { -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -return x_7; +lean_object* x_10; +x_10 = lean_ctor_get(x_9, 1); +lean_inc(x_10); +lean_dec(x_9); +x_2 = x_8; +x_4 = x_10; +goto _start; } } } } -lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Init_Lean_Elab_Util_7__expandMacroFns(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; -x_4 = l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(x_1, x_2, x_3); -return x_4; +lean_object* x_5; +x_5 = l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(x_1, x_2, x_3, x_4); +return x_5; } } lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Elab_getMacros___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { @@ -6481,38 +6489,41 @@ return x_9; } } } -lean_object* l_Lean_Elab_getMacros(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Elab_getMacros(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_inc(x_2); -x_4 = l_Lean_Syntax_getKind(x_2); -x_5 = l_Lean_Elab_macroAttribute; -x_6 = lean_ctor_get(x_5, 1); -lean_inc(x_6); -x_7 = l_Lean_PersistentEnvExtension_getState___rarg(x_6, x_1); -lean_dec(x_6); -x_8 = lean_ctor_get(x_7, 1); -lean_inc(x_8); +x_5 = l_Lean_Syntax_getKind(x_2); +x_6 = l_Lean_Elab_macroAttribute; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = l_Lean_PersistentEnvExtension_getState___rarg(x_7, x_1); lean_dec(x_7); -x_9 = l_Lean_SMap_find_x3f___at_Lean_Elab_getMacros___spec__1(x_8, x_4); -lean_dec(x_4); -if (lean_obj_tag(x_9) == 0) +x_9 = lean_ctor_get(x_8, 1); +lean_inc(x_9); +lean_dec(x_8); +x_10 = l_Lean_SMap_find_x3f___at_Lean_Elab_getMacros___spec__1(x_9, x_5); +lean_dec(x_5); +if (lean_obj_tag(x_10) == 0) { -lean_object* x_10; +lean_object* x_11; lean_object* x_12; lean_dec(x_3); lean_dec(x_2); -x_10 = l_Lean_Macro_throwUnsupported___closed__1; -return x_10; +x_11 = lean_box(1); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_4); +return x_12; } else { -lean_object* x_11; lean_object* x_12; -x_11 = lean_ctor_get(x_9, 0); -lean_inc(x_11); -lean_dec(x_9); -x_12 = l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(x_2, x_11, x_3); -return x_12; +lean_object* x_13; lean_object* x_14; +x_13 = lean_ctor_get(x_10, 0); +lean_inc(x_13); +lean_dec(x_10); +x_14 = l___private_Init_Lean_Elab_Util_7__expandMacroFns___main(x_2, x_13, x_3, x_4); +return x_14; } } } @@ -6576,90 +6587,114 @@ lean_dec(x_2); return x_3; } } -lean_object* l_Lean_Elab_getMacros___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Elab_getMacros___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; -x_4 = l_Lean_Elab_getMacros(x_1, x_2, x_3); +lean_object* x_5; +x_5 = l_Lean_Elab_getMacros(x_1, x_2, x_3, x_4); lean_dec(x_1); -return x_4; +return x_5; } } -lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { _start: { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_environment_main_module(x_6); -x_8 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_8, 0, x_7); -lean_ctor_set(x_8, 1, x_1); -lean_inc(x_3); -x_9 = lean_apply_2(x_2, x_3, x_8); -if (lean_obj_tag(x_9) == 0) +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_environment_main_module(x_1); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_2); +lean_inc(x_4); +x_11 = lean_apply_3(x_3, x_4, x_10, x_8); +if (lean_obj_tag(x_11) == 0) { -lean_object* x_10; -lean_dec(x_5); -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -lean_dec(x_9); -if (lean_obj_tag(x_10) == 0) -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_4, 2); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +lean_dec(x_4); +x_12 = lean_ctor_get(x_11, 0); lean_inc(x_12); -lean_dec(x_4); -x_13 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_13, 0, x_11); -x_14 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_14, 0, x_13); -x_15 = lean_apply_3(x_12, lean_box(0), x_3, x_14); -return x_15; -} -else -{ -lean_object* x_16; lean_object* x_17; -lean_dec(x_3); -x_16 = lean_ctor_get(x_4, 3); -lean_inc(x_16); -lean_dec(x_4); -x_17 = lean_apply_1(x_16, lean_box(0)); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = lean_ctor_get(x_5, 3); +lean_inc(x_14); +lean_dec(x_5); +x_15 = lean_apply_1(x_14, x_13); +x_16 = lean_alloc_closure((void*)(l_finally___rarg___lambda__1___boxed), 3, 2); +lean_closure_set(x_16, 0, x_6); +lean_closure_set(x_16, 1, x_12); +x_17 = lean_apply_4(x_7, lean_box(0), lean_box(0), x_15, x_16); return x_17; } +else +{ +lean_object* x_18; +lean_dec(x_7); +lean_dec(x_6); +x_18 = lean_ctor_get(x_11, 0); +lean_inc(x_18); +lean_dec(x_11); +if (lean_obj_tag(x_18) == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +lean_dec(x_18); +x_20 = lean_ctor_get(x_5, 4); +lean_inc(x_20); +lean_dec(x_5); +x_21 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_21, 0, x_19); +x_22 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_22, 0, x_21); +x_23 = lean_apply_3(x_20, lean_box(0), x_4, x_22); +return x_23; } else { -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +lean_object* x_24; lean_object* x_25; lean_dec(x_4); -lean_dec(x_3); -x_18 = lean_ctor_get(x_9, 0); -lean_inc(x_18); -lean_dec(x_9); -x_19 = lean_ctor_get(x_5, 0); -lean_inc(x_19); +x_24 = lean_ctor_get(x_5, 5); +lean_inc(x_24); lean_dec(x_5); -x_20 = lean_ctor_get(x_19, 1); -lean_inc(x_20); -lean_dec(x_19); -x_21 = lean_apply_2(x_20, lean_box(0), x_18); -return x_21; +x_25 = lean_apply_1(x_24, lean_box(0)); +return x_25; } } } -lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +} +lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_1, 2); +lean_inc(x_8); +lean_inc(x_6); +x_9 = lean_alloc_closure((void*)(l_Lean_Elab_adaptMacro___rarg___lambda__1), 8, 7); +lean_closure_set(x_9, 0, x_7); +lean_closure_set(x_9, 1, x_2); +lean_closure_set(x_9, 2, x_3); +lean_closure_set(x_9, 3, x_4); +lean_closure_set(x_9, 4, x_1); +lean_closure_set(x_9, 5, x_5); +lean_closure_set(x_9, 6, x_6); +x_10 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_8, x_9); +return x_10; +} +} +lean_object* l_Lean_Elab_adaptMacro___rarg___lambda__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { lean_object* x_7; lean_object* x_8; lean_object* x_9; x_7 = lean_ctor_get(x_1, 0); lean_inc(x_7); -x_8 = lean_alloc_closure((void*)(l_Lean_Elab_adaptMacro___rarg___lambda__1), 6, 5); -lean_closure_set(x_8, 0, x_6); -lean_closure_set(x_8, 1, x_2); -lean_closure_set(x_8, 2, x_3); -lean_closure_set(x_8, 3, x_1); +lean_inc(x_5); +x_8 = lean_alloc_closure((void*)(l_Lean_Elab_adaptMacro___rarg___lambda__2), 7, 6); +lean_closure_set(x_8, 0, x_1); +lean_closure_set(x_8, 1, x_6); +lean_closure_set(x_8, 2, x_2); +lean_closure_set(x_8, 3, x_3); lean_closure_set(x_8, 4, x_4); +lean_closure_set(x_8, 5, x_5); x_9 = lean_apply_4(x_5, lean_box(0), lean_box(0), x_7, x_8); return x_9; } @@ -6673,7 +6708,7 @@ lean_inc(x_5); x_6 = lean_ctor_get(x_2, 1); lean_inc(x_6); lean_inc(x_5); -x_7 = lean_alloc_closure((void*)(l_Lean_Elab_adaptMacro___rarg___lambda__2), 6, 5); +x_7 = lean_alloc_closure((void*)(l_Lean_Elab_adaptMacro___rarg___lambda__3), 6, 5); lean_closure_set(x_7, 0, x_2); lean_closure_set(x_7, 1, x_3); lean_closure_set(x_7, 2, x_4); diff --git a/stage0/stdlib/Init/LeanInit.c b/stage0/stdlib/Init/LeanInit.c index b824d6b3f8..5f958cc3db 100644 --- a/stage0/stdlib/Init/LeanInit.c +++ b/stage0/stdlib/Init/LeanInit.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.LeanInit -// Imports: Init.Data.String.Basic Init.Data.Array.Basic Init.Data.UInt Init.Data.Hashable Init.Control.Reader Init.Control.Except +// Imports: Init.Data.String.Basic Init.Data.Array.Basic Init.Data.UInt Init.Data.Hashable Init.Control.Reader Init.Control.EState #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -31,7 +31,6 @@ lean_object* l___private_Init_LeanInit_1__eraseMacroScopesAux___main___closed__1 lean_object* l_Lean_MacroM_monadQuotation; lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); -lean_object* l_Lean_Macro_throwUnsupported___closed__1; lean_object* l_Array_mapSepElemsM___boxed(lean_object*); lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l___private_Init_LeanInit_12__decodeQuotedChar___boxed__const__1; @@ -47,7 +46,7 @@ lean_object* l_Lean_Macro_throwUnsupported___boxed(lean_object*, lean_object*); lean_object* l_Lean_identKind___closed__1; lean_object* l_Lean_fieldIdxKind___closed__2; lean_object* l_Lean_Syntax_getOptional_x3f(lean_object*); -lean_object* l_Lean_MacroM_monadQuotation___lambda__2(lean_object*); +lean_object* l_Lean_MacroM_monadQuotation___lambda__2(lean_object*, lean_object*); lean_object* l___private_Init_LeanInit_8__decodeHexDigit___boxed(lean_object*, lean_object*); uint32_t l_Lean_idBeginEscape; lean_object* l___private_Init_LeanInit_15__mapSepElemsMAux___boxed(lean_object*); @@ -79,6 +78,7 @@ lean_object* l___private_Init_LeanInit_7__decodeOctalLitAux(lean_object*, lean_o lean_object* l_Lean_isIdRest___boxed(lean_object*); lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); uint8_t l_Lean_isIdBeginEscape(uint32_t); +lean_object* l_Lean_Macro_withFreshMacroScope(lean_object*); lean_object* l___private_Init_LeanInit_9__decodeHexLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_HasToString___closed__1; lean_object* l_Lean_mkNameSimple(lean_object*); @@ -137,7 +137,6 @@ lean_object* l_Lean_mkStxNumLit(lean_object*, lean_object*); lean_object* l_Lean_Name_HasAppend___closed__1; lean_object* l_Array_mapSepElems___boxed(lean_object*, lean_object*); uint8_t l_Lean_Name_hasMacroScopes(lean_object*); -lean_object* l_Lean_MacroM_monadQuotation___lambda__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_isLit_x3f(lean_object*, lean_object*); lean_object* l_Lean_Syntax_termIdToAntiquot___closed__4; lean_object* l___private_Init_LeanInit_15__mapSepElemsMAux___main___at_Array_mapSepElems___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); @@ -154,7 +153,7 @@ lean_object* l___private_Init_LeanInit_7__decodeOctalLitAux___boxed(lean_object* lean_object* l_Array_mapSepElemsM(lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_choiceKind___closed__2; -lean_object* l_Lean_MacroM_monadQuotation___lambda__2___boxed(lean_object*); +lean_object* l_Lean_MacroM_monadQuotation___lambda__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_strLitKind; lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object*); lean_object* l_Array_getSepElems(lean_object*); @@ -164,7 +163,7 @@ lean_object* l_Lean_Syntax_getId___boxed(lean_object*); lean_object* l___private_Init_LeanInit_13__decodeNameLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_isFieldIdx_x3f(lean_object*); lean_object* l_Substring_takeWhileAux___main___at___private_Init_LeanInit_13__decodeNameLitAux___main___spec__2(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Macro_addMacroScope(lean_object*, lean_object*); +lean_object* l_Lean_Macro_addMacroScope(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_LeanInit_14__filterSepElemsMAux___main___at_Array_filterSepElems___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkTermIdFrom___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getHeadInfo(lean_object*); @@ -243,7 +242,7 @@ uint8_t l_UInt32_decEq(uint32_t, uint32_t); lean_object* l_Lean_Syntax_inhabited; lean_object* l_Lean_mkAppStx___closed__5; lean_object* l_Lean_mkHole(lean_object*); -lean_object* l_Lean_MacroM_monadQuotation___lambda__1___boxed(lean_object*); +lean_object* l_Lean_MacroM_monadQuotation___lambda__1___boxed(lean_object*, lean_object*); lean_object* l___private_Init_LeanInit_3__extractImported(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_LeanInit_5__extractMacroScopesAux___main(lean_object*, lean_object*); uint8_t l_Lean_Syntax_hasArgs(lean_object*); @@ -265,6 +264,7 @@ lean_object* l_Lean_Syntax_getHeadInfo___boxed(lean_object*); lean_object* l___private_Init_LeanInit_11__decodeNatLitVal___boxed(lean_object*); lean_object* l___private_Init_LeanInit_11__decodeNatLitVal___closed__1; lean_object* l_Lean_Syntax_getOptionalIdent_x3f(lean_object*); +lean_object* l_Lean_Macro_throwUnsupported___rarg(lean_object*); extern lean_object* l___private_Init_Util_1__mkPanicMessage___closed__2; lean_object* l___private_Init_LeanInit_7__decodeOctalLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_NameGenerator_curr(lean_object*); @@ -305,6 +305,7 @@ lean_object* l_Lean_ParserDescr_inhabited; lean_object* l_Lean_Syntax_decodeNameLit___boxed(lean_object*); lean_object* lean_string_length(lean_object*); lean_object* l_Lean_MacroM_monadQuotation___closed__1; +lean_object* l_Lean_Macro_withFreshMacroScope___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_nameLitKind___closed__2; uint8_t l_Lean_isSubScriptAlnum(uint32_t); lean_object* l_List_foldl___main___at_Lean_MacroScopesView_review___spec__1(lean_object*, lean_object*); @@ -331,7 +332,7 @@ lean_object* l___private_Init_LeanInit_14__filterSepElemsMAux___main___rarg___la lean_object* l_Array_filterSepElemsM___at_Array_filterSepElems___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l___private_Init_LeanInit_9__decodeHexLitAux(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_MacroM_monadQuotation___lambda__1(lean_object*); +lean_object* l_Lean_MacroM_monadQuotation___lambda__1(lean_object*, lean_object*); lean_object* l___private_Init_LeanInit_14__filterSepElemsMAux___boxed(lean_object*); uint8_t l_UInt32_decLe(uint32_t, uint32_t); lean_object* l_Lean_mkAppStx___closed__2; @@ -2616,36 +2617,38 @@ return x_35; } } } -lean_object* l_Lean_Macro_addMacroScope(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Macro_addMacroScope(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; -x_3 = lean_ctor_get(x_2, 0); -lean_inc(x_3); -x_4 = lean_ctor_get(x_2, 1); +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); lean_dec(x_2); -x_5 = l_Lean_addMacroScope(x_3, x_1, x_4); -x_6 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_6, 0, x_5); -return x_6; +x_6 = l_Lean_addMacroScope(x_4, x_1, x_5); +x_7 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } } -lean_object* _init_l_Lean_Macro_throwUnsupported___closed__1() { +lean_object* l_Lean_Macro_throwUnsupported___rarg(lean_object* x_1) { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = lean_box(1); -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_2; lean_object* x_3; +x_2 = lean_box(1); +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* l_Lean_Macro_throwUnsupported(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_Lean_Macro_throwUnsupported___closed__1; +x_3 = lean_alloc_closure((void*)(l_Lean_Macro_throwUnsupported___rarg), 1, 0); return x_3; } } @@ -2658,33 +2661,65 @@ lean_dec(x_2); return x_3; } } -lean_object* l_Lean_MacroM_monadQuotation___lambda__1(lean_object* x_1) { +lean_object* l_Lean_Macro_withFreshMacroScope___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_2; lean_object* x_3; -x_2 = lean_ctor_get(x_1, 1); -lean_inc(x_2); -x_3 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_3, 0, x_2); -return x_3; +lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_4 = lean_unsigned_to_nat(1u); +x_5 = lean_nat_add(x_3, x_4); +x_6 = !lean_is_exclusive(x_2); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_ctor_get(x_2, 1); +lean_dec(x_7); +lean_ctor_set(x_2, 1, x_3); +x_8 = lean_apply_2(x_1, x_2, x_5); +return x_8; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_2, 0); +lean_inc(x_9); +lean_dec(x_2); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_3); +x_11 = lean_apply_2(x_1, x_10, x_5); +return x_11; } } -lean_object* l_Lean_MacroM_monadQuotation___lambda__2(lean_object* x_1) { +} +lean_object* l_Lean_Macro_withFreshMacroScope(lean_object* x_1) { _start: { -lean_object* x_2; lean_object* x_3; -x_2 = lean_ctor_get(x_1, 0); -lean_inc(x_2); -x_3 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_3, 0, x_2); -return x_3; +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Macro_withFreshMacroScope___rarg), 3, 0); +return x_2; } } -lean_object* l_Lean_MacroM_monadQuotation___lambda__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_MacroM_monadQuotation___lambda__1(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_4; -x_4 = lean_apply_1(x_2, x_3); +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set(x_4, 1, x_2); +return x_4; +} +} +lean_object* l_Lean_MacroM_monadQuotation___lambda__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set(x_4, 1, x_2); return x_4; } } @@ -2692,7 +2727,7 @@ lean_object* _init_l_Lean_MacroM_monadQuotation___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_MacroM_monadQuotation___lambda__1___boxed), 1, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_MacroM_monadQuotation___lambda__1___boxed), 2, 0); return x_1; } } @@ -2700,7 +2735,7 @@ lean_object* _init_l_Lean_MacroM_monadQuotation___closed__2() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_MacroM_monadQuotation___lambda__2___boxed), 1, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_MacroM_monadQuotation___lambda__2___boxed), 2, 0); return x_1; } } @@ -2708,7 +2743,7 @@ lean_object* _init_l_Lean_MacroM_monadQuotation___closed__3() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_MacroM_monadQuotation___lambda__3), 3, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Macro_withFreshMacroScope), 1, 0); return x_1; } } @@ -2734,22 +2769,22 @@ x_1 = l_Lean_MacroM_monadQuotation___closed__4; return x_1; } } -lean_object* l_Lean_MacroM_monadQuotation___lambda__1___boxed(lean_object* x_1) { +lean_object* l_Lean_MacroM_monadQuotation___lambda__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_2; -x_2 = l_Lean_MacroM_monadQuotation___lambda__1(x_1); +lean_object* x_3; +x_3 = l_Lean_MacroM_monadQuotation___lambda__1(x_1, x_2); lean_dec(x_1); -return x_2; +return x_3; } } -lean_object* l_Lean_MacroM_monadQuotation___lambda__2___boxed(lean_object* x_1) { +lean_object* l_Lean_MacroM_monadQuotation___lambda__2___boxed(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_2; -x_2 = l_Lean_MacroM_monadQuotation___lambda__2(x_1); +lean_object* x_3; +x_3 = l_Lean_MacroM_monadQuotation___lambda__2(x_1, x_2); lean_dec(x_1); -return x_2; +return x_3; } } lean_object* l_Lean_mkIdentFrom(lean_object* x_1, lean_object* x_2) { @@ -6489,7 +6524,7 @@ lean_object* initialize_Init_Data_Array_Basic(lean_object*); lean_object* initialize_Init_Data_UInt(lean_object*); lean_object* initialize_Init_Data_Hashable(lean_object*); lean_object* initialize_Init_Control_Reader(lean_object*); -lean_object* initialize_Init_Control_Except(lean_object*); +lean_object* initialize_Init_Control_EState(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_LeanInit(lean_object* w) { lean_object * res; @@ -6510,7 +6545,7 @@ lean_dec_ref(res); res = initialize_Init_Control_Reader(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Control_Except(lean_io_mk_world()); +res = initialize_Init_Control_EState(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_idBeginEscape = _init_l_Lean_idBeginEscape(); @@ -6617,8 +6652,6 @@ l_Lean_MacroScopesView_inhabited___closed__1 = _init_l_Lean_MacroScopesView_inha lean_mark_persistent(l_Lean_MacroScopesView_inhabited___closed__1); l_Lean_MacroScopesView_inhabited = _init_l_Lean_MacroScopesView_inhabited(); lean_mark_persistent(l_Lean_MacroScopesView_inhabited); -l_Lean_Macro_throwUnsupported___closed__1 = _init_l_Lean_Macro_throwUnsupported___closed__1(); -lean_mark_persistent(l_Lean_Macro_throwUnsupported___closed__1); l_Lean_MacroM_monadQuotation___closed__1 = _init_l_Lean_MacroM_monadQuotation___closed__1(); lean_mark_persistent(l_Lean_MacroM_monadQuotation___closed__1); l_Lean_MacroM_monadQuotation___closed__2 = _init_l_Lean_MacroM_monadQuotation___closed__2();