From 9bd4acd9c960f94abfa5b52d69cf413abe108f3b Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Mon, 10 Aug 2020 10:13:52 -0700 Subject: [PATCH] chore: update stage0 --- stage0/src/Init/Data/Array/Basic.lean | 52 + stage0/src/Init/Data/String/Basic.lean | 5 + stage0/src/Init/Util.lean | 3 + stage0/src/Lean.lean | 1 - stage0/src/Lean/Compiler/InlineAttrs.lean | 3 + stage0/src/Lean/Data/Format.lean | 12 +- stage0/src/Lean/Delaborator.lean | 9 +- stage0/src/Lean/Elab/Command.lean | 8 +- stage0/src/Lean/Elab/Quotation.lean | 9 +- stage0/src/Lean/Elab/Tactic/Generalize.lean | 2 +- stage0/src/Lean/Elab/Term.lean | 4 + stage0/src/Lean/EqnCompiler.lean | 6 - stage0/src/Lean/Message.lean | 3 + stage0/src/Lean/Meta.lean | 2 + stage0/src/Lean/Meta/AppBuilder.lean | 20 + stage0/src/Lean/Meta/Basic.lean | 26 +- stage0/src/Lean/Meta/EqnCompiler.lean | 16 + .../Lean/Meta/EqnCompiler/CaseArraySizes.lean | 96 + .../src/Lean/Meta/EqnCompiler/CaseValues.lean | 105 + stage0/src/Lean/Meta/EqnCompiler/DepElim.lean | 754 + .../Lean/Meta/EqnCompiler/MVarRenaming.lean | 37 + .../{ => Meta}/EqnCompiler/MatchPattern.lean | 0 stage0/src/Lean/Meta/Exception.lean | 19 +- stage0/src/Lean/Meta/Message.lean | 6 +- stage0/src/Lean/Meta/RecursorInfo.lean | 26 +- stage0/src/Lean/Meta/ReduceEval.lean | 61 + stage0/src/Lean/Meta/SynthInstance.lean | 4 +- stage0/src/Lean/Meta/Tactic/Assert.lean | 16 + stage0/src/Lean/Meta/Tactic/Intro.lean | 3 +- stage0/src/Lean/Meta/Tactic/Subst.lean | 15 +- stage0/src/Lean/Meta/Tactic/Util.lean | 18 +- stage0/src/Lean/Parser/Parser.lean | 28 +- stage0/src/Lean/Parser/Term.lean | 24 +- stage0/src/Lean/PrettyPrinter.lean | 37 + stage0/src/Lean/PrettyPrinter/Formatter.lean | 307 +- .../src/Lean/PrettyPrinter/Parenthesizer.lean | 131 +- stage0/src/Lean/Syntax.lean | 15 +- stage0/src/Lean/Util/PPExt.lean | 4 +- stage0/src/Lean/Util/Path.lean | 15 +- stage0/src/library/compiler/csimp.cpp | 2 +- stage0/src/shell/lean.cpp | 21 +- stage0/stdlib/CMakeLists.txt | 2 +- stage0/stdlib/Init/Data/Array/Basic.c | 114 + stage0/stdlib/Init/Data/String/Basic.c | 53 + stage0/stdlib/Init/Util.c | 43 +- stage0/stdlib/Lean.c | 6 +- stage0/stdlib/Lean/Compiler/InlineAttrs.c | 23 + stage0/stdlib/Lean/Delaborator.c | 365 +- stage0/stdlib/Lean/Elab/Binders.c | 622 +- stage0/stdlib/Lean/Elab/BuiltinNotation.c | 149 +- stage0/stdlib/Lean/Elab/Declaration.c | 33 +- stage0/stdlib/Lean/Elab/DoNotation.c | 64 +- stage0/stdlib/Lean/Elab/Quotation.c | 74 +- stage0/stdlib/Lean/Elab/StructInst.c | 10 +- stage0/stdlib/Lean/Elab/Syntax.c | 104 +- stage0/stdlib/Lean/Elab/Tactic/Basic.c | 6 +- stage0/stdlib/Lean/Elab/Tactic/Generalize.c | 28 +- stage0/stdlib/Lean/Elab/Tactic/Induction.c | 330 +- stage0/stdlib/Lean/Elab/Tactic/Injection.c | 21 +- stage0/stdlib/Lean/Elab/Term.c | 82 +- stage0/stdlib/Lean/EqnCompiler.c | 33 - stage0/stdlib/Lean/Message.c | 80 +- stage0/stdlib/Lean/Meta.c | 10 +- stage0/stdlib/Lean/Meta/AppBuilder.c | 491 + stage0/stdlib/Lean/Meta/Basic.c | 283 +- stage0/stdlib/Lean/Meta/EqnCompiler.c | 60 + .../Lean/Meta/EqnCompiler/CaseArraySizes.c | 2019 ++ .../stdlib/Lean/Meta/EqnCompiler/CaseValues.c | 2025 ++ stage0/stdlib/Lean/Meta/EqnCompiler/DepElim.c | 21169 ++++++++++++++++ .../Lean/Meta/EqnCompiler/MVarRenaming.c | 741 + .../{ => Meta}/EqnCompiler/MatchPattern.c | 4 +- stage0/stdlib/Lean/Meta/Exception.c | 62 +- stage0/stdlib/Lean/Meta/Message.c | 82 +- stage0/stdlib/Lean/Meta/RecursorInfo.c | 5237 ++-- stage0/stdlib/Lean/Meta/ReduceEval.c | 3475 +++ stage0/stdlib/Lean/Meta/SynthInstance.c | 36 +- stage0/stdlib/Lean/Meta/Tactic/Apply.c | 124 +- stage0/stdlib/Lean/Meta/Tactic/Assert.c | 365 + stage0/stdlib/Lean/Meta/Tactic/Assumption.c | 63 +- stage0/stdlib/Lean/Meta/Tactic/Cases.c | 6756 ++--- stage0/stdlib/Lean/Meta/Tactic/Clear.c | 236 +- stage0/stdlib/Lean/Meta/Tactic/Generalize.c | 282 +- stage0/stdlib/Lean/Meta/Tactic/Induction.c | 12376 ++++----- stage0/stdlib/Lean/Meta/Tactic/Injection.c | 776 +- stage0/stdlib/Lean/Meta/Tactic/Intro.c | 64 +- stage0/stdlib/Lean/Meta/Tactic/Rewrite.c | 3060 +-- stage0/stdlib/Lean/Meta/Tactic/Subst.c | 4974 ++-- stage0/stdlib/Lean/Meta/Tactic/Util.c | 403 +- stage0/stdlib/Lean/Meta/WHNF.c | 23 +- stage0/stdlib/Lean/Parser/Command.c | 42 +- stage0/stdlib/Lean/Parser/Parser.c | 1250 +- stage0/stdlib/Lean/Parser/Syntax.c | 36 +- stage0/stdlib/Lean/Parser/Tactic.c | 50 +- stage0/stdlib/Lean/Parser/Term.c | 2891 ++- stage0/stdlib/Lean/PrettyPrinter.c | 519 +- stage0/stdlib/Lean/PrettyPrinter/Formatter.c | 10414 +++++++- .../stdlib/Lean/PrettyPrinter/Parenthesizer.c | 11222 ++++---- stage0/stdlib/Lean/Syntax.c | 958 +- stage0/stdlib/Lean/Util/PPExt.c | 8 +- stage0/stdlib/Lean/Util/Path.c | 194 +- 100 files changed, 70654 insertions(+), 26293 deletions(-) delete mode 100644 stage0/src/Lean/EqnCompiler.lean create mode 100644 stage0/src/Lean/Meta/EqnCompiler.lean create mode 100644 stage0/src/Lean/Meta/EqnCompiler/CaseArraySizes.lean create mode 100644 stage0/src/Lean/Meta/EqnCompiler/CaseValues.lean create mode 100644 stage0/src/Lean/Meta/EqnCompiler/DepElim.lean create mode 100644 stage0/src/Lean/Meta/EqnCompiler/MVarRenaming.lean rename stage0/src/Lean/{ => Meta}/EqnCompiler/MatchPattern.lean (100%) create mode 100644 stage0/src/Lean/Meta/ReduceEval.lean delete mode 100644 stage0/stdlib/Lean/EqnCompiler.c create mode 100644 stage0/stdlib/Lean/Meta/EqnCompiler.c create mode 100644 stage0/stdlib/Lean/Meta/EqnCompiler/CaseArraySizes.c create mode 100644 stage0/stdlib/Lean/Meta/EqnCompiler/CaseValues.c create mode 100644 stage0/stdlib/Lean/Meta/EqnCompiler/DepElim.c create mode 100644 stage0/stdlib/Lean/Meta/EqnCompiler/MVarRenaming.c rename stage0/stdlib/Lean/{ => Meta}/EqnCompiler/MatchPattern.c (97%) create mode 100644 stage0/stdlib/Lean/Meta/ReduceEval.c diff --git a/stage0/src/Init/Data/Array/Basic.lean b/stage0/src/Init/Data/Array/Basic.lean index 9cae7da327..279c774391 100644 --- a/stage0/src/Init/Data/Array/Basic.lean +++ b/stage0/src/Init/Data/Array/Basic.lean @@ -719,3 +719,55 @@ export Array (mkArray) @[inline] def List.toArray {α : Type u} (as : List α) : Array α := as.toArrayAux (Array.mkEmpty as.redLength) + +namespace Array + +def toListLitAux {α : Type u} (a : Array α) (n : Nat) (hsz : a.size = n) : ∀ (i : Nat), i ≤ a.size → List α → List α +| 0, hi, acc => acc +| (i+1), hi, acc => toListLitAux i (Nat.leOfSuccLe hi) (a.getLit i hsz (Nat.ltOfLtOfEq (Nat.ltOfLtOfLe (Nat.ltSuccSelf i) hi) hsz) :: acc) + +def toArrayLit {α : Type u} (a : Array α) (n : Nat) (hsz : a.size = n) : Array α := +List.toArray $ toListLitAux a n hsz n (hsz ▸ Nat.leRefl _) [] + +theorem toArrayLitEq {α : Type u} (a : Array α) (n : Nat) (hsz : a.size = n) : a = toArrayLit a n hsz := +-- TODO: this is painful to prove without proper automation +sorry +/- +First, we need to prove +∀ i j acc, i ≤ a.size → (toListLitAux a n hsz (i+1) hi acc).index j = if j < i then a.getLit j hsz _ else acc.index (j - i) +by induction + +Base case is trivial +(j : Nat) (acc : List α) (hi : 0 ≤ a.size) + |- (toListLitAux a n hsz 0 hi acc).index j = if j < 0 then a.getLit j hsz _ else acc.index (j - 0) +... |- acc.index j = acc.index j + +Induction + +(j : Nat) (acc : List α) (hi : i+1 ≤ a.size) + |- (toListLitAux a n hsz (i+1) hi acc).index j = if j < i + 1 then a.getLit j hsz _ else acc.index (j - (i + 1)) + ... |- (toListLitAux a n hsz i hi' (a.getLit i hsz _ :: acc)).index j = if j < i + 1 then a.getLit j hsz _ else acc.index (j - (i + 1)) * by def + ... |- if j < i then a.getLit j hsz _ else (a.getLit i hsz _ :: acc).index (j-i) * by induction hypothesis + = + if j < i + 1 then a.getLit j hsz _ else acc.index (j - (i + 1)) +If j < i, then both are a.getLit j hsz _ +If j = i, then lhs reduces else-branch to (a.getLit i hsz _) and rhs is then-brachn (a.getLit i hsz _) +If j >= i + 1, we use + - j - i >= 1 > 0 + - (a::as).index k = as.index (k-1) If k > 0 + - j - (i + 1) = (j - i) - 1 + Then lhs = (a.getLit i hsz _ :: acc).index (j-i) = acc.index (j-i-1) = acc.index (j-(i+1)) = rhs + +With this proof, we have + +∀ j, j < n → (toListLitAux a n hsz n _ []).index j = a.getLit j hsz _ + +We also need + +- (toListLitAux a n hsz n _ []).length = n +- j < n -> (List.toArray as).getLit j _ _ = as.index j + +Then using Array.extLit, we have that a = List.toArray $ toListLitAux a n hsz n _ [] +-/ + +end Array diff --git a/stage0/src/Init/Data/String/Basic.lean b/stage0/src/Init/Data/String/Basic.lean index ce463f91e4..94301f02ce 100644 --- a/stage0/src/Init/Data/String/Basic.lean +++ b/stage0/src/Init/Data/String/Basic.lean @@ -490,6 +490,11 @@ if s.isNat then else none +def beq (ss1 ss2 : Substring) : Bool := +ss1.toString == ss2.toString + +instance hasBeq : HasBeq Substring := ⟨beq⟩ + end Substring namespace String diff --git a/stage0/src/Init/Util.lean b/stage0/src/Init/Util.lean index 716c0c0343..ac5bc55663 100644 --- a/stage0/src/Init/Util.lean +++ b/stage0/src/Init/Util.lean @@ -13,6 +13,9 @@ universes u v def dbgTrace {α : Type u} (s : String) (f : Unit → α) : α := f () +def dbgTraceVal {α : Type u} [HasToString α] (a : α) : α := +dbgTrace (toString a) (fun _ => a) + /- Display the given message if `a` is shared, that is, RC(a) > 1 -/ @[neverExtract, extern "lean_dbg_trace_if_shared"] def dbgTraceIfShared {α : Type u} (s : String) (a : α) : α := diff --git a/stage0/src/Lean.lean b/stage0/src/Lean.lean index f21611afef..cbc509331b 100644 --- a/stage0/src/Lean.lean +++ b/stage0/src/Lean.lean @@ -12,7 +12,6 @@ import Lean.Attributes import Lean.Parser import Lean.ReducibilityAttrs import Lean.Elab -import Lean.EqnCompiler import Lean.Class import Lean.LocalContext import Lean.MetavarContext diff --git a/stage0/src/Lean/Compiler/InlineAttrs.lean b/stage0/src/Lean/Compiler/InlineAttrs.lean index 8dd299d53e..d0f57d6f48 100644 --- a/stage0/src/Lean/Compiler/InlineAttrs.lean +++ b/stage0/src/Lean/Compiler/InlineAttrs.lean @@ -62,5 +62,8 @@ hasInlineAttrAux env InlineAttributeKind.noinline n def hasMacroInlineAttribute (env : Environment) (n : Name) : Bool := hasInlineAttrAux env InlineAttributeKind.macroInline n +def setInlineAttribute (env : Environment) (declName : Name) (kind : InlineAttributeKind) : Except String Environment := +inlineAttrs.setValue env declName kind + end Compiler end Lean diff --git a/stage0/src/Lean/Data/Format.lean b/stage0/src/Lean/Data/Format.lean index 433e545d22..d990bf2800 100644 --- a/stage0/src/Lean/Data/Format.lean +++ b/stage0/src/Lean/Data/Format.lean @@ -9,12 +9,12 @@ universes u v namespace Lean inductive Format -| nil : Format -| line : Format -| text : String → Format -| nest : Nat → Format → Format -| compose : Bool → Format → Format → Format -| choice : Format → Format → Format +| nil : Format +| line : Format +| text : String → Format +| nest (indent : Nat) : Format → Format +| compose (flattened : Bool) : Format → Format → Format +| choice : Format → Format → Format namespace Format @[export lean_format_append] diff --git a/stage0/src/Lean/Delaborator.lean b/stage0/src/Lean/Delaborator.lean index b89f08a303..5b85f27a3b 100644 --- a/stage0/src/Lean/Delaborator.lean +++ b/stage0/src/Lean/Delaborator.lean @@ -222,7 +222,7 @@ partial def delabFor : Name → Delab def delab : Delab := do k ← getExprKind; -delabFor k <|> (liftM $ show MetaM Syntax from throw $ Meta.Exception.other $ "don't know how to delaborate '" ++ toString k ++ "'") +delabFor k <|> (liftM $ show MetaM Syntax from throw $ Meta.Exception.other Syntax.missing $ "don't know how to delaborate '" ++ toString k ++ "'") @[builtinDelab fvar] def delabFVar : Delab := do @@ -463,9 +463,10 @@ def delabCoeFun : Delab := delabCoe end Delaborator -/-- "Delaborate" the given term into surface-level syntax using the given general and subterm-specific options. -/ -def delab (e : Expr) (defaultOptions : Options) (optionsPerPos : OptionsPerPos := {}) : MetaM Syntax := do -some stx ← Delaborator.delab { expr := e, defaultOptions := defaultOptions, optionsPerPos := optionsPerPos } +/-- "Delaborate" the given term into surface-level syntax using the default and given subterm-specific options. -/ +def delab (e : Expr) (optionsPerPos : OptionsPerPos := {}) : MetaM Syntax := do +opts ← Meta.getOptions; +some stx ← Delaborator.delab { expr := e, defaultOptions := opts, optionsPerPos := optionsPerPos } | unreachable!; pure stx diff --git a/stage0/src/Lean/Elab/Command.lean b/stage0/src/Lean/Elab/Command.lean index 08f28f8872..d908715e98 100644 --- a/stage0/src/Lean/Elab/Command.lean +++ b/stage0/src/Lean/Elab/Command.lean @@ -225,8 +225,8 @@ match (x $ mkTermContext ctx s declName?).run (mkTermState s) with | EStateM.Result.error (Term.Exception.ex ex) newS => do modify $ fun s => { s with env := newS.env, messages := newS.messages, ngen := newS.ngen }; throw ex | EStateM.Result.error Term.Exception.postpone newS => unreachable! -@[inline] def runTermElabM {α} (declName? : Option Name) (elab : Array Expr → TermElabM α) : CommandElabM α := do -s ← get; liftTermElabM declName? (Term.elabBinders (getVarDecls s) elab) +@[inline] def runTermElabM {α} (declName? : Option Name) (elabFn : Array Expr → TermElabM α) : CommandElabM α := do +s ← get; liftTermElabM declName? (Term.elabBinders (getVarDecls s) elabFn) @[inline] def withLogging (x : CommandElabM Unit) : CommandElabM Unit := catch x (fun ex => match ex with @@ -307,9 +307,9 @@ fun stx => do | none => unless (checkAnonymousScope scopes) $ throwError stx "invalid 'end', name is missing" | some header => unless (checkEndHeader header scopes) $ throwError stx "invalid 'end', name mismatch" -@[inline] def withNamespace {α} (ref : Syntax) (ns : Name) (elab : CommandElabM α) : CommandElabM α := do +@[inline] def withNamespace {α} (ref : Syntax) (ns : Name) (elabFn : CommandElabM α) : CommandElabM α := do addNamespace ref ns; -a ← elab; +a ← elabFn; modify $ fun s => { s with scopes := s.scopes.drop ns.getNumParts }; pure a diff --git a/stage0/src/Lean/Elab/Quotation.lean b/stage0/src/Lean/Elab/Quotation.lean index 3f0b51d693..c0657aeb40 100644 --- a/stage0/src/Lean/Elab/Quotation.lean +++ b/stage0/src/Lean/Elab/Quotation.lean @@ -49,14 +49,15 @@ else def antiquotKind? : Syntax → Option SyntaxNodeKind | Syntax.node (Name.str k "antiquot" _) args => - -- we treat all antiquotations where the kind was left implicit (`$e`) the same (see `elimAntiquotChoices`) - if (args.get! 3).isNone then some Name.anonymous - else some k + if (args.get! 3).isOfKind `antiquotName then some k + else + -- we treat all antiquotations where the kind was left implicit (`$e`) the same (see `elimAntiquotChoices`) + some Name.anonymous | _ => none -- `$e*` is an antiquotation "splice" matching an arbitrary number of syntax nodes def isAntiquotSplice (stx : Syntax) : Bool := -isAntiquot stx && (stx.getArg 5).getOptional?.isSome +isAntiquot stx && (stx.getArg 4).getOptional?.isSome -- If any item of a `many` node is an antiquotation splice, its result should -- be substituted into the `many` node's children diff --git a/stage0/src/Lean/Elab/Tactic/Generalize.lean b/stage0/src/Lean/Elab/Tactic/Generalize.lean index 2ea077162a..c56e8f9c16 100644 --- a/stage0/src/Lean/Elab/Tactic/Generalize.lean +++ b/stage0/src/Lean/Elab/Tactic/Generalize.lean @@ -43,7 +43,7 @@ liftMetaTactic ref $ fun mvarId => do let eq := mkApp3 (Lean.mkConst `Eq [u]) eType e (mkBVar 0); let target := Lean.mkForall x BinderInfo.default eType $ Lean.mkForall h BinderInfo.default eq (b.liftLooseBVars 0 1); evalGeneralizeFinalize mvarId e target - | _ => throw $ Meta.Exception.other "unexpected type after generalize" + | _ => throw $ Meta.Exception.other Syntax.missing "unexpected type after generalize" -- If generalizing fails, fall back to not replacing anything private def evalGeneralizeFallback (ref : Syntax) (h : Name) (e : Expr) (x : Name) : TacticM Unit := diff --git a/stage0/src/Lean/Elab/Term.lean b/stage0/src/Lean/Elab/Term.lean index f06b2c1194..d96696da98 100644 --- a/stage0/src/Lean/Elab/Term.lean +++ b/stage0/src/Lean/Elab/Term.lean @@ -236,6 +236,10 @@ mkMessageCore ctx.fileName ctx.fileMap msgData severity (ref.getPos.getD ctx.cmd /-- Auxiliary function for `liftMetaM` -/ private def fromMetaException (ctx : Context) (ref : Syntax) (ex : Meta.Exception) : Exception := +-- We use `ref` stored in `ex` if it contains position information +let ref := match ex.getRef.getPos with + | some _ => ex.getRef + | none => ref; Exception.ex $ Elab.Exception.error $ mkMessageAux ctx ref ex.toMessageData MessageSeverity.error /-- Auxiliary function for `liftMetaM` -/ diff --git a/stage0/src/Lean/EqnCompiler.lean b/stage0/src/Lean/EqnCompiler.lean deleted file mode 100644 index 4a52198eaa..0000000000 --- a/stage0/src/Lean/EqnCompiler.lean +++ /dev/null @@ -1,6 +0,0 @@ -/- -Copyright (c) 2019 Microsoft Corporation. All rights reserved. -Released under Apache 2.0 license as described in the file LICENSE. -Authors: Leonardo de Moura --/ -import Lean.EqnCompiler.MatchPattern diff --git a/stage0/src/Lean/Message.lean b/stage0/src/Lean/Message.lean index 2d853ce6bf..ee901a08bd 100644 --- a/stage0/src/Lean/Message.lean +++ b/stage0/src/Lean/Message.lean @@ -106,6 +106,9 @@ def ofList: List MessageData → MessageData def ofArray (msgs : Array MessageData) : MessageData := ofList msgs.toList +instance coeOfList : HasCoe (List MessageData) MessageData := ⟨ofList⟩ +instance coeOfListExpr : HasCoe (List Expr) MessageData := ⟨fun es => ofList $ es.map ofExpr⟩ + end MessageData structure Message := diff --git a/stage0/src/Lean/Meta.lean b/stage0/src/Lean/Meta.lean index 8a202bb817..5f2ba9df77 100644 --- a/stage0/src/Lean/Meta.lean +++ b/stage0/src/Lean/Meta.lean @@ -20,3 +20,5 @@ import Lean.Meta.Message import Lean.Meta.KAbstract import Lean.Meta.RecursorInfo import Lean.Meta.GeneralizeTelescope +import Lean.Meta.EqnCompiler +import Lean.Meta.ReduceEval diff --git a/stage0/src/Lean/Meta/AppBuilder.lean b/stage0/src/Lean/Meta/AppBuilder.lean index b76a26f481..894c0f458b 100644 --- a/stage0/src/Lean/Meta/AppBuilder.lean +++ b/stage0/src/Lean/Meta/AppBuilder.lean @@ -340,5 +340,25 @@ u ← getDecLevel `mkArrayLit type; listLit ← mkListLit type xs; pure (mkApp (mkApp (mkConst `List.toArray [u]) type) listLit) +def mkSorry (type : Expr) (synthetic : Bool) : MetaM Expr := do +u ← getLevel type; +pure $ mkApp2 (mkConst `sorryAx [u]) type (toExpr synthetic) + +/-- Return a proof for `p : Prop` using `decide p` -/ +def mkDecideProof (p : Expr) : MetaM Expr := do +decP ← mkAppM `Decidable.decide #[p]; +decEqTrue ← mkEq decP (mkConst `Bool.true); +h ← mkEqRefl (mkConst `Bool.true); +h ← mkExpectedTypeHint h decEqTrue; +mkAppM `ofDecideEqTrue #[h] + +/-- Return `a < b` -/ +def mkLt (a b : Expr) : MetaM Expr := +mkAppM `HasLess.Less #[a, b] + +/-- Return `a <= b` -/ +def mkLe (a b : Expr) : MetaM Expr := +mkAppM `HasLessEq.LessEq #[a, b] + end Meta end Lean diff --git a/stage0/src/Lean/Meta/Basic.lean b/stage0/src/Lean/Meta/Basic.lean index af3bd84f03..dd65be1e99 100644 --- a/stage0/src/Lean/Meta/Basic.lean +++ b/stage0/src/Lean/Meta/Basic.lean @@ -10,6 +10,7 @@ import Lean.ReducibilityAttrs import Lean.Util.Trace import Lean.Util.RecDepth import Lean.Util.Closure +import Lean.Compiler.InlineAttrs import Lean.Meta.Exception import Lean.Meta.DiscrTreeTypes import Lean.Eval @@ -138,7 +139,7 @@ instance MetaM.inhabited {α} : Inhabited (MetaM α) := @[inline] def withIncRecDepth {α} (x : MetaM α) : MetaM α := do ctx ← read; -when (ctx.currRecDepth == ctx.maxRecDepth) $ throw $ Exception.other maxRecDepthErrorMessage; +when (ctx.currRecDepth == ctx.maxRecDepth) $ throw $ Exception.other Syntax.missing maxRecDepthErrorMessage; adaptReader (fun (ctx : Context) => { ctx with currRecDepth := ctx.currRecDepth + 1 }) x @[inline] def getLCtx : MetaM LocalContext := do @@ -163,17 +164,17 @@ def setEnv (env : Environment) : MetaM Unit := do modify $ fun s => { s with env := env } def mkWHNFRef : IO (IO.Ref (Expr → MetaM Expr)) := -IO.mkRef $ fun _ => throw $ Exception.other "whnf implementation was not set" +IO.mkRef $ fun _ => throw $ Exception.other Syntax.missing "whnf implementation was not set" @[init mkWHNFRef] def whnfRef : IO.Ref (Expr → MetaM Expr) := arbitrary _ def mkInferTypeRef : IO (IO.Ref (Expr → MetaM Expr)) := -IO.mkRef $ fun _ => throw $ Exception.other "inferType implementation was not set" +IO.mkRef $ fun _ => throw $ Exception.other Syntax.missing "inferType implementation was not set" @[init mkInferTypeRef] def inferTypeRef : IO.Ref (Expr → MetaM Expr) := arbitrary _ def mkIsExprDefEqAuxRef : IO (IO.Ref (Expr → Expr → MetaM Bool)) := -IO.mkRef $ fun _ _ => throw $ Exception.other "isDefEq implementation was not set" +IO.mkRef $ fun _ _ => throw $ Exception.other Syntax.missing "isDefEq implementation was not set" @[init mkIsExprDefEqAuxRef] def isExprDefEqAuxRef : IO.Ref (Expr → Expr → MetaM Bool) := arbitrary _ @@ -254,10 +255,15 @@ ctx ← read; s ← get; throw (f { env := s.env, mctx := s.mctx, lctx := ctx.lctx, opts := ctx.config.opts }) -def throwOther {α} (msg : MessageData) : MetaM α := do +def throwOther {α} (msg : MessageData) (ref := Syntax.missing) : MetaM α := do ctx ← read; s ← get; -throw (Exception.other (MessageData.withContext { env := s.env, mctx := s.mctx, lctx := ctx.lctx, opts := ctx.config.opts } msg)) +throw (Exception.other ref (MessageData.withContext { env := s.env, mctx := s.mctx, lctx := ctx.lctx, opts := ctx.config.opts } msg)) + +@[inline] def ofExcept {α ε} [HasToString ε] (x : Except ε α) : MetaM α := +match x with +| Except.ok a => pure a +| Except.error e => throwOther (toString e) def throwBug {α} (b : Bug) : MetaM α := throwEx $ Exception.bug b @@ -860,6 +866,12 @@ type ← inferType value; let type := type.headBeta; mkAuxDefinition name type value +def setInlineAttribute (declName : Name) (kind := Compiler.InlineAttributeKind.inline): MetaM Unit := do +env ← getEnv; +match Compiler.setInlineAttribute env declName kind with +| Except.ok env => setEnv env +| Except.error msg => throwOther msg + private partial def instantiateForallAux (ps : Array Expr) : Nat → Expr → MetaM Expr | i, e => if h : i < ps.size then do @@ -867,7 +879,7 @@ private partial def instantiateForallAux (ps : Array Expr) : Nat → Expr → Me e ← whnf e; match e with | Expr.forallE _ _ b _ => instantiateForallAux (i+1) (b.instantiate1 p) - | _ => throw (Exception.other "invalid instantiateForall, too many parameters") + | _ => throwOther "invalid instantiateForall, too many parameters" else pure e diff --git a/stage0/src/Lean/Meta/EqnCompiler.lean b/stage0/src/Lean/Meta/EqnCompiler.lean new file mode 100644 index 0000000000..62c49e9625 --- /dev/null +++ b/stage0/src/Lean/Meta/EqnCompiler.lean @@ -0,0 +1,16 @@ +/- +Copyright (c) 2019 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ +import Lean.Meta.EqnCompiler.MatchPattern +import Lean.Meta.EqnCompiler.DepElim +import Lean.Meta.EqnCompiler.CaseValues +import Lean.Meta.EqnCompiler.CaseArraySizes + +namespace Lean + +@[init] private def regTraceClasses : IO Unit := +registerTraceClass `Meta.EqnCompiler + +end Lean diff --git a/stage0/src/Lean/Meta/EqnCompiler/CaseArraySizes.lean b/stage0/src/Lean/Meta/EqnCompiler/CaseArraySizes.lean new file mode 100644 index 0000000000..0b4dcd2376 --- /dev/null +++ b/stage0/src/Lean/Meta/EqnCompiler/CaseArraySizes.lean @@ -0,0 +1,96 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ +import Lean.Meta.Tactic.Assert +import Lean.Meta.EqnCompiler.CaseValues + +namespace Lean +namespace Meta + +structure CaseArraySizesSubgoal := +(mvarId : MVarId) +(elems : Array FVarId := #[]) +(diseqs : Array FVarId := #[]) +(subst : FVarSubst := {}) + +instance CaseArraySizesSubgoal.inhabited : Inhabited CaseArraySizesSubgoal := +⟨{ mvarId := arbitrary _ }⟩ + +def getArrayArgType (a : Expr) : MetaM Expr := do +aType ← inferType a; +aType ← whnfD aType; +unless (aType.isAppOfArity `Array 1) $ + throwOther ("array expected" ++ indentExpr a); +pure aType.appArg! + +private def mkArrayGetLit (a : Expr) (i : Nat) (n : Nat) (h : Expr) : MetaM Expr := do +lt ← mkLt (mkNatLit i) (mkNatLit n); +ltPrf ← mkDecideProof lt; +mkAppM `Array.getLit #[a, mkNatLit i, h, ltPrf] + +private partial def introArrayLitAux (mvarId : MVarId) (α : Expr) (a : Expr) (n : Nat) (xNamePrefix : Name) (aSizeEqN : Expr) + : Nat → Array Expr → Array Expr → MetaM (Expr × Array Expr) +| i, xs, args => + if i < n then do + withLocalDecl (xNamePrefix.appendIndexAfter (i+1)) α BinderInfo.default fun xi => do + let xs := xs.push xi; + ai ← mkArrayGetLit a i n aSizeEqN; + let args := args.push ai; + introArrayLitAux (i+1) xs args + else do + xsLit ← mkArrayLit α xs.toList; + aEqXsLit ← mkEq a xsLit; + aEqLitPrf ← mkAppM `Array.toArrayLitEq #[a, mkNatLit n, aSizeEqN]; + withLocalDecl `hEqALit aEqXsLit BinderInfo.default fun heq => do + target ← getMVarType mvarId; + newTarget ← mkForall (xs.push heq) target; + pure (newTarget, args.push aEqLitPrf) + +private partial def introArrayLit (mvarId : MVarId) (a : Expr) (n : Nat) (xNamePrefix : Name) (aSizeEqN : Expr) : MetaM MVarId := do +α ← getArrayArgType a; +(newTarget, args) ← introArrayLitAux mvarId α a n xNamePrefix aSizeEqN 0 #[] #[]; +tag ← getMVarTag mvarId; +newMVar ← mkFreshExprSyntheticOpaqueMVar newTarget tag; +assignExprMVar mvarId (mkAppN newMVar args); +pure newMVar.mvarId! + +/-- + Split goal `... |- C a` into sizes.size + 1 subgoals + 1) `..., x_1 ... x_{sizes[0]} |- C #[x_1, ... x_{sizes[0]}]` + ... + n) `..., x_1 ... x_{sizes[n-1]} |- C #[x_1, ..., x_{sizes[n-1]}]` + n+1) `..., (h_1 : a.size != sizes[0]), ..., (h_n : a.size != sizes[n-1]) |- C a` + where `n = sizes.size` -/ +def caseArraySizes (mvarId : MVarId) (fvarId : FVarId) (sizes : Array Nat) (xNamePrefix := `x) (hNamePrefix := `h) : MetaM (Array CaseArraySizesSubgoal) := do +let a := mkFVar fvarId; +α ← getArrayArgType a; +aSize ← mkAppM `Array.size #[a]; +mvarId ← assertExt mvarId `aSize (mkConst `Nat) aSize; +(aSizeFVarId, mvarId) ← intro1 mvarId; +(hEq, mvarId) ← intro1 mvarId; +subgoals ← caseValues mvarId aSizeFVarId (sizes.map mkNatLit) hNamePrefix; +subgoals.mapIdxM fun i subgoal => do + let subst := subgoal.subst; + let mvarId := subgoal.mvarId; + let hEqSz := (subst.get hEq).fvarId!; + if h : i < sizes.size then do + let n := sizes.get ⟨i, h⟩; + mvarId ← clear mvarId (subgoal.newHs.get! 0); + mvarId ← clear mvarId (subst.get aSizeFVarId).fvarId!; + withMVarContext mvarId do + hEqSzSymm ← mkEqSymm (mkFVar hEqSz); + mvarId ← introArrayLit mvarId a n xNamePrefix hEqSzSymm; + (xs, mvarId) ← introN mvarId n; + (hEqLit, mvarId) ← intro1 mvarId; + mvarId ← clear mvarId hEqSz; + (subst, mvarId) ← substCore mvarId hEqLit false subst; + pure { mvarId := mvarId, elems := xs, subst := subst } + else do + (subst, mvarId) ← substCore mvarId hEq false subst; + let diseqs := subgoal.newHs.map fun fvarId => (subst.get fvarId).fvarId!; + pure { mvarId := mvarId, diseqs := diseqs, subst := subst } + +end Meta +end Lean diff --git a/stage0/src/Lean/Meta/EqnCompiler/CaseValues.lean b/stage0/src/Lean/Meta/EqnCompiler/CaseValues.lean new file mode 100644 index 0000000000..fd067d2fb1 --- /dev/null +++ b/stage0/src/Lean/Meta/EqnCompiler/CaseValues.lean @@ -0,0 +1,105 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ +import Lean.Meta.Tactic.Subst +import Lean.Meta.Tactic.Clear + +namespace Lean +namespace Meta + +structure CaseValueSubgoal := +(mvarId : MVarId) +(newH : FVarId) +(subst : FVarSubst := {}) + +instance CaseValueSubgoal.inhabited : Inhabited CaseValueSubgoal := +⟨{ mvarId := arbitrary _, newH := arbitrary _ }⟩ + +/-- + Split goal `... |- C x` into two subgoals + `..., (h : x = value) |- C value` + `..., (h : x != value) |- C x` + where `fvarId` is `x`s id. + The type of `x` must have decidable equality. + + Remark: `subst` field of the second subgoal is equal to the input `subst`. -/ +def caseValueAux (mvarId : MVarId) (fvarId : FVarId) (value : Expr) (hName : Name := `h) (subst : FVarSubst := {}) + : MetaM (CaseValueSubgoal × CaseValueSubgoal) := +withMVarContext mvarId $ do + tag ← getMVarTag mvarId; + checkNotAssigned mvarId `caseValue; + target ← getMVarType mvarId; + xEqValue ← mkEq (mkFVar fvarId) value; + let xNeqValue := mkApp (mkConst `Not) xEqValue; + let thenTarget := Lean.mkForall hName BinderInfo.default xEqValue target; + let elseTarget := Lean.mkForall hName BinderInfo.default xNeqValue target; + thenMVar ← mkFreshExprSyntheticOpaqueMVar thenTarget tag; + elseMVar ← mkFreshExprSyntheticOpaqueMVar elseTarget tag; + val ← mkAppOptM `dite #[none, xEqValue, none, thenMVar, elseMVar]; + assignExprMVar mvarId val; + (elseH, elseMVarId) ← intro1 elseMVar.mvarId! false; + let elseSubgoal := { mvarId := elseMVarId, newH := elseH, subst := subst : CaseValueSubgoal }; + (thenH, thenMVarId) ← intro1 thenMVar.mvarId! false; + let symm := false; + let clearH := false; + (thenSubst, thenMVarId) ← substCore thenMVarId thenH symm subst clearH; + withMVarContext thenMVarId do { + trace! `Meta ("subst domain: " ++ toString thenSubst.domain); + let thenH := (thenSubst.get thenH).fvarId!; + trace! `Meta "searching for decl"; + decl ← getLocalDecl thenH; + trace! `Meta "found decl" + }; + let thenSubgoal := { mvarId := thenMVarId, newH := (thenSubst.get thenH).fvarId!, subst := thenSubst : CaseValueSubgoal }; + pure (thenSubgoal, elseSubgoal) + +def caseValue (mvarId : MVarId) (fvarId : FVarId) (value : Expr) : MetaM (CaseValueSubgoal × CaseValueSubgoal) := do +s ← caseValueAux mvarId fvarId value; +appendTagSuffix s.1.mvarId `thenBranch; +appendTagSuffix s.2.mvarId `elseBranch; +pure s + +structure CaseValuesSubgoal := +(mvarId : MVarId) +(newHs : Array FVarId := #[]) +(subst : FVarSubst := {}) + +instance CaseValueSubgoals.inhabited : Inhabited CaseValuesSubgoal := +⟨{ mvarId := arbitrary _ }⟩ + +private def caseValuesAux (hNamePrefix : Name) (fvarId : FVarId) : Nat → MVarId → List Expr → Array FVarId → Array CaseValuesSubgoal → MetaM (Array CaseValuesSubgoal) +| i, mvarId, [], hs, subgoals => throwTacticEx `caseValues mvarId "list of values must not be empty" +| i, mvarId, v::vs, hs, subgoals => do + (thenSubgoal, elseSubgoal) ← caseValueAux mvarId fvarId v (hNamePrefix.appendIndexAfter i) {}; + appendTagSuffix thenSubgoal.mvarId ((`case).appendIndexAfter i); + thenMVarId ← hs.foldlM + (fun thenMVarId h => match thenSubgoal.subst.get h with + | Expr.fvar fvarId _ => tryClear thenMVarId fvarId + | _ => pure thenMVarId) + thenSubgoal.mvarId; + let subgoals := subgoals.push { mvarId := thenMVarId, newHs := #[thenSubgoal.newH], subst := thenSubgoal.subst }; + match vs with + | [] => do + appendTagSuffix elseSubgoal.mvarId ((`case).appendIndexAfter (i+1)); + pure $ subgoals.push { mvarId := elseSubgoal.mvarId, newHs := hs.push elseSubgoal.newH, subst := {} } + | _ => caseValuesAux (i+1) elseSubgoal.mvarId vs (hs.push elseSubgoal.newH) subgoals + +/-- + Split goal `... |- C x` into values.size + 1 subgoals + 1) `..., (h_1 : x = value[0]) |- C value[0]` + ... + n) `..., (h_n : x = value[n - 1]) |- C value[n - 1]` + n+1) `..., (h_1 : x != value[0]) ... (h_n : x != value[n-1]) |- C x` + where `n = values.size` + where `fvarId` is `x`s id. + The type of `x` must have decidable equality. + + Remark: the last subgoal is for the "else" catchall case, and its `subst` is `{}`. + Remark: the fiels `newHs` has size 1 forall but the last subgoal. -/ +def caseValues (mvarId : MVarId) (fvarId : FVarId) (values : Array Expr) (hNamePrefix := `h) : MetaM (Array CaseValuesSubgoal) := +caseValuesAux hNamePrefix fvarId 1 mvarId values.toList #[] #[] + +end Meta +end Lean diff --git a/stage0/src/Lean/Meta/EqnCompiler/DepElim.lean b/stage0/src/Lean/Meta/EqnCompiler/DepElim.lean new file mode 100644 index 0000000000..f15a14f27a --- /dev/null +++ b/stage0/src/Lean/Meta/EqnCompiler/DepElim.lean @@ -0,0 +1,754 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ +import Lean.Util.CollectLevelParams +import Lean.Meta.Check +import Lean.Meta.Tactic.Cases +import Lean.Meta.GeneralizeTelescope +import Lean.Meta.EqnCompiler.MVarRenaming +import Lean.Meta.EqnCompiler.CaseValues +import Lean.Meta.EqnCompiler.CaseArraySizes + +namespace Lean +namespace Meta +namespace DepElim + +abbrev VarId := Name + +inductive Pattern (internal : Bool := false) : Type +| inaccessible (ref : Syntax) (e : Expr) : Pattern +| var (ref : Syntax) (varId : VarId) : Pattern +| ctor (ref : Syntax) (ctorName : Name) (us : List Level) (params : List Expr) (fields : List Pattern) : Pattern +| val (ref : Syntax) (e : Expr) : Pattern +| arrayLit (ref : Syntax) (type : Expr) (xs : List Pattern) : Pattern +| as (ref : Syntax) (varId : VarId) (p : Pattern) : Pattern + +abbrev IPattern := Pattern true + +namespace Pattern + +instance {b} : Inhabited (Pattern b) := ⟨Pattern.inaccessible Syntax.missing (arbitrary _)⟩ + +def ref {b : Bool} : Pattern b → Syntax +| inaccessible r _ => r +| var r _ => r +| ctor r _ _ _ _ => r +| val r _ => r +| arrayLit r _ _ => r +| as r _ _ => r + +partial def toMessageData {b : Bool} : Pattern b → MessageData +| inaccessible _ e => ".(" ++ e ++ ")" +| var _ varId => if b then mkMVar varId else mkFVar varId +| ctor _ ctorName _ _ [] => ctorName +| ctor _ ctorName _ _ pats => "(" ++ ctorName ++ pats.foldl (fun (msg : MessageData) pat => msg ++ " " ++ toMessageData pat) Format.nil ++ ")" +| val _ e => "val!(" ++ e ++ ")" +| arrayLit _ _ pats => "#[" ++ MessageData.joinSep (pats.map toMessageData) ", " ++ "]" +| as _ varId p => (if b then mkMVar varId else mkFVar varId) ++ "@" ++toMessageData p + +partial def toExpr {b} : Pattern b → MetaM Expr +| inaccessible _ e => pure e +| var _ varId => if b then pure (mkMVar varId) else pure (mkFVar varId) +| val _ e => pure e +| as _ _ p => toExpr p +| arrayLit _ type xs => do + xs ← xs.mapM toExpr; + mkArrayLit type xs +| ctor _ ctorName us params fields => do + fields ← fields.mapM toExpr; + pure $ mkAppN (mkConst ctorName us) (params ++ fields).toArray + +/- Apply the free variable substitution `s` to the given (internal) pattern -/ +partial def applyFVarSubst (s : FVarSubst) : Pattern true → IPattern +| inaccessible r e => inaccessible r $ s.apply e +| ctor r n us ps fs => ctor r n us (ps.map s.apply) $ fs.map applyFVarSubst +| val r e => val r $ s.apply e +| arrayLit r t xs => arrayLit r (s.apply t) $ xs.map applyFVarSubst +| var r id => var r id +| as r v p => as r v $ applyFVarSubst p + +partial def instantiateMVars : IPattern → MetaM IPattern +| inaccessible r e => inaccessible r <$> Meta.instantiateMVars e +| ctor r n us ps fs => ctor r n us <$> ps.mapM Meta.instantiateMVars <*> fs.mapM instantiateMVars +| val r e => val r <$> Meta.instantiateMVars e +| arrayLit r t xs => arrayLit r <$> Meta.instantiateMVars t <*> xs.mapM instantiateMVars +| var ref mvarId => do + mctx ← getMCtx; + match mctx.getExprAssignment? mvarId with + | some v => inaccessible ref <$> Meta.instantiateMVars v + | none => pure (var ref mvarId) +| as ref mvarId p => do + mctx ← getMCtx; + match mctx.getExprAssignment? mvarId with + | some v => instantiateMVars p + | none => as ref mvarId <$> instantiateMVars p + +partial def applyMVarRenaming (m : MVarRenaming) : Pattern true → IPattern +| inaccessible r e => inaccessible r $ m.apply e +| ctor r n us ps fs => ctor r n us (ps.map m.apply) $ fs.map applyMVarRenaming +| val r e => val r $ m.apply e +| arrayLit r t xs => arrayLit r (m.apply t) $ xs.map applyMVarRenaming +| var ref mvarId => + match m.find? mvarId with + | some newMVarId => var ref newMVarId + | none => var ref mvarId +| as ref mvarId p => + match m.find? mvarId with + | some newMVarId => as ref newMVarId $ applyMVarRenaming p + | none => as ref mvarId $ applyMVarRenaming p + +partial def toIPattern (s : FVarSubst) : Pattern → IPattern +| inaccessible r e => inaccessible r $ s.apply e +| ctor r n us ps fs => ctor r n us (ps.map s.apply) $ fs.map toIPattern +| val r e => val r $ s.apply e +| arrayLit r t xs => arrayLit r (s.apply t) $ xs.map toIPattern +| var ref fvarId => + match s.get fvarId with + | Expr.mvar mvarId _ => Pattern.var ref mvarId + | _ => unreachable! +| as ref fvarId p => + match s.get fvarId with + | Expr.mvar mvarId _ => Pattern.as ref mvarId $ toIPattern p + | _ => unreachable! + +end Pattern + +structure AltLHS := +(fvarDecls : List LocalDecl) -- Free variables used in the patterns. +(patterns : List Pattern) -- We use `List Pattern` since we have nary match-expressions. + +structure Alt := +(idx : Nat) -- for generating error messages +(rhs : Expr) +(mvars : List MVarId) +(patterns : List IPattern) + +namespace Alt + +instance : Inhabited Alt := ⟨⟨0, arbitrary _, [], []⟩⟩ + +partial def toMessageData (alt : Alt) : MetaM MessageData := do +let msg : MessageData := alt.mvars.map mkMVar ++ " |- " ++ (alt.patterns.map Pattern.toMessageData) ++ " => " ++ alt.rhs; +addContext msg + +private def convertMVar (s : FVarSubst) (m : MVarRenaming) (mvarId : MVarId) : MetaM (MVarRenaming × MVarId) := +if s.isEmpty && m.isEmpty then pure (m, mvarId) +else do + mvarDecl ← getMVarDecl mvarId; + let mvarType0 := mvarDecl.type; + mvarType0 ← instantiateMVars mvarType0; + let mvarType := s.apply mvarType0; + let mvarType := m.apply mvarType; + let lctx := mvarDecl.lctx; + if (s.any fun fvarId _ => lctx.contains fvarId) || mvarType != mvarType0 then do + newMVar ← mkFreshExprMVar mvarType; + let m := m.insert mvarId newMVar.mvarId!; + pure (m, newMVar.mvarId!) + else + pure (m, mvarId) + +private def convertMVars (s : FVarSubst) (mvars : List MVarId) : MetaM (MVarRenaming × List MVarId) := do +(m, mvars) ← mvars.foldlM + (fun (acc : MVarRenaming × List MVarId) mvarId => do + let (m, mvarIds) := acc; + (m, mvarId') ← convertMVar s m mvarId; + let m := if mvarId == mvarId' then m else m.insert mvarId mvarId'; + pure (m, mvarId'::mvarIds)) + ({}, []); +pure (m, mvars.reverse) + +def applyFVarSubst (s : FVarSubst) (alt : Alt) : MetaM Alt := do +(m, mvars) ← convertMVars s alt.mvars; +let patterns := alt.patterns.map fun p => (p.applyFVarSubst s).applyMVarRenaming m; +let rhs := m.apply $ s.apply alt.rhs; +pure { alt with patterns := patterns, mvars := mvars, rhs := rhs } + +private def copyMVar (m : MVarRenaming) (mvarId : MVarId) : MetaM (MVarRenaming × MVarId) := do +mvarDecl ← getMVarDecl mvarId; +let mvarType := mvarDecl.type; +mvarType ← instantiateMVars mvarType; +let mvarType := m.apply mvarType; +newMVar ← mkFreshExprMVar mvarType; +let m := m.insert mvarId newMVar.mvarId!; +pure (m, newMVar.mvarId!) + +private def copyMVars (mvars : List MVarId) : MetaM (MVarRenaming × List MVarId) := do +(m, mvars) ← mvars.foldlM + (fun (acc : MVarRenaming × List MVarId) mvarId => do + let (m, mvarIds) := acc; + (m, mvarId) ← copyMVar m mvarId; + pure (m, mvarId::mvarIds)) + ({}, []); +pure (m, mvars.reverse) + +def copyCore (alt : Alt) : MetaM (MVarRenaming × Alt) := do +(m, mvars) ← copyMVars alt.mvars; +let patterns := alt.patterns.map fun p => p.applyMVarRenaming m; +let rhs := m.apply alt.rhs; +pure (m, { alt with patterns := patterns, mvars := mvars, rhs := rhs }) + +/- Create a copy of the given alternative with fresh metavariables. -/ +def copy (alt : Alt) : MetaM Alt := do +(m, alt) ← copyCore alt; +pure alt + +end Alt + +inductive Example +| var : FVarId → Example +| underscore : Example +| ctor : Name → List Example → Example +| val : Expr → Example +| arrayLit : List Example → Example + +namespace Example + +partial def replaceFVarId (fvarId : FVarId) (ex : Example) : Example → Example +| var x => if x == fvarId then ex else var x +| ctor n exs => ctor n $ exs.map replaceFVarId +| arrayLit exs => arrayLit $ exs.map replaceFVarId +| ex => ex + +partial def applyFVarSubst (s : FVarSubst) : Example → Example +| var fvarId => + match s.get fvarId with + | Expr.fvar fvarId' _ => var fvarId' + | _ => underscore +| ctor n exs => ctor n $ exs.map applyFVarSubst +| arrayLit exs => arrayLit $ exs.map applyFVarSubst +| ex => ex + +partial def varsToUnderscore : Example → Example +| var x => underscore +| ctor n exs => ctor n $ exs.map varsToUnderscore +| arrayLit exs => arrayLit $ exs.map varsToUnderscore +| ex => ex + +partial def toMessageData : Example → MessageData +| var fvarId => mkFVar fvarId +| ctor ctorName [] => mkConst ctorName +| ctor ctorName exs => "(" ++ mkConst ctorName ++ exs.foldl (fun (msg : MessageData) pat => msg ++ " " ++ toMessageData pat) Format.nil ++ ")" +| arrayLit exs => "#" ++ MessageData.ofList (exs.map toMessageData) +| val e => e +| underscore => "_" + +end Example + +def examplesToMessageData (cex : List Example) : MessageData := +MessageData.joinSep (cex.map (Example.toMessageData ∘ Example.varsToUnderscore)) ", " + +structure Problem := +(mvarId : MVarId) +(vars : List Expr) +(alts : List Alt) +(examples : List Example) + +def withGoalOf {α} (p : Problem) (x : MetaM α) : MetaM α := +withMVarContext p.mvarId x + +namespace Problem + +instance : Inhabited Problem := ⟨{ mvarId := arbitrary _, vars := [], alts := [], examples := []}⟩ + +def toMessageData (p : Problem) : MetaM MessageData := +withGoalOf p do + alts ← p.alts.mapM Alt.toMessageData; + pure $ "vars " ++ p.vars.toArray + -- ++ Format.line ++ "var ids " ++ toString (p.vars.map (fun x => match x with | Expr.fvar id _ => toString id | _ => "[nonvar]")) + ++ Format.line ++ MessageData.joinSep alts Format.line + ++ Format.line ++ "examples: " ++ examplesToMessageData p.examples + ++ Format.line +end Problem + +abbrev CounterExample := List Example + +def counterExampleToMessageData (cex : CounterExample) : MessageData := +examplesToMessageData cex + +def counterExamplesToMessageData (cexs : List CounterExample) : MessageData := +MessageData.joinSep (cexs.map counterExampleToMessageData) Format.line + +structure ElimResult := +(elim : Expr) -- The eliminator. It is not just `Expr.const elimName` because the type of the major premises may contain free variables. +(counterExamples : List CounterExample) +(unusedAltIdxs : List Nat) + +/- The number of patterns in each AltLHS must be equal to majors.length -/ +private def checkNumPatterns (majors : List Expr) (lhss : List AltLHS) : MetaM Unit := +let num := majors.length; +when (lhss.any (fun lhs => lhs.patterns.length != num)) $ + throwOther "incorrect number of patterns" + +/- + Given major premises `(x_1 : A_1) (x_2 : A_2[x_1]) ... (x_n : A_n[x_1, x_2, ...])`, return + `forall (x_1 : A_1) (x_2 : A_2[x_1]) ... (x_n : A_n[x_1, x_2, ...]), sortv` -/ +private def withMotive {α} (majors : Array Expr) (sortv : Expr) (k : Expr → MetaM α) : MetaM α := do +type ← mkForall majors sortv; +trace! `Meta.EqnCompiler.matchDebug ("motive: " ++ type); +withLocalDecl `motive type BinderInfo.default k + +private def localDeclsToMVarsAux : List LocalDecl → List MVarId → FVarSubst → MetaM (List MVarId × FVarSubst) +| [], mvars, s => pure (mvars.reverse, s) +| d::ds, mvars, s => do + let type := s.apply d.type; + mvar ← mkFreshExprMVar type; + let s := s.insert d.fvarId mvar; + localDeclsToMVarsAux ds (mvar.mvarId! :: mvars) s + +private def localDeclsToMVars (fvarDecls : List LocalDecl) : MetaM (List MVarId × FVarSubst) := +localDeclsToMVarsAux fvarDecls [] {} + +private def mkThunk (type : Expr) : Expr := +Lean.mkForall `u BinderInfo.default (Lean.mkConst `Unit) type + +private partial def withAltsAux {α} (motive : Expr) : List AltLHS → List Alt → Array Expr → (List Alt → Array Expr → MetaM α) → MetaM α +| [], alts, minors, k => k alts.reverse minors +| lhs::lhss, alts, minors, k => do + let xs := lhs.fvarDecls.toArray.map LocalDecl.toExpr; + minorType ← withExistingLocalDecls lhs.fvarDecls do { + args ← lhs.patterns.toArray.mapM Pattern.toExpr; + let minorType := mkAppN motive args; + mkForall xs minorType + }; + let minorType := if minorType.isForall then minorType else mkThunk minorType; + let idx := alts.length; + let minorName := (`h).appendIndexAfter (idx+1); + trace! `Meta.EqnCompiler.matchDebug ("minor premise " ++ minorName ++ " : " ++ minorType); + withLocalDecl minorName minorType BinderInfo.default fun minor => do + let rhs := if xs.isEmpty then mkApp minor (mkConst `Unit.unit) else mkAppN minor xs; + let minors := minors.push minor; + (mvars, s) ← localDeclsToMVars lhs.fvarDecls; + let patterns := lhs.patterns.map (fun p => p.toIPattern s); + let rhs := s.apply rhs; + let alts := { idx := idx, rhs := rhs, mvars := mvars, patterns := patterns : Alt } :: alts; + withAltsAux lhss alts minors k + +/- Given a list of `AltLHS`, create a minor premise for each one, convert them into `Alt`, and then execute `k` -/ +private partial def withAlts {α} (motive : Expr) (lhss : List AltLHS) (k : List Alt → Array Expr → MetaM α) : MetaM α := +withAltsAux motive lhss [] #[] k + +def assignGoalOf (p : Problem) (e : Expr) : MetaM Unit := +withGoalOf p (assignExprMVar p.mvarId e) + +structure State := +(used : Std.HashSet Nat := {}) -- used alternatives +(counterExamples : List (List Example) := []) + +/-- Return true if the given (sub-)problem has been solved. -/ +private def isDone (p : Problem) : Bool := +p.vars.isEmpty + +/-- Return true if the next element on the `p.vars` list is a variable. -/ +private def isNextVar (p : Problem) : Bool := +match p.vars with +| Expr.fvar _ _ :: _ => true +| _ => false + +private def hasAsPattern (p : Problem) : Bool := +p.alts.any fun alt => match alt.patterns with + | Pattern.as _ _ _ :: _ => true + | _ => false + +/- Return true if the next pattern of each remaining alternative is an inaccessible term or a variable -/ +private def isVariableTransition (p : Problem) : Bool := +p.alts.all fun alt => match alt.patterns with + | Pattern.inaccessible _ _ :: _ => true + | Pattern.var _ _ :: _ => true + | _ => false + +/- Return true if the next pattern of each remaining alternative is a constructor application -/ +private def isConstructorTransition (p : Problem) : Bool := +p.alts.all fun alt => match alt.patterns with + | Pattern.ctor _ _ _ _ _ :: _ => true + | _ => false + +/- Return true if the next pattern of the remaining alternatives contain variables AND constructors. -/ +private def isCompleteTransition (p : Problem) : Bool := +let (ok, hasVar, hasCtor) := p.alts.foldl + (fun (acc : Bool × Bool × Bool) (alt : Alt) => + let (ok, hasVar, hasCtor) := acc; + match alt.patterns with + | Pattern.ctor _ _ _ _ _ :: _ => (ok, hasVar, true) + | Pattern.var _ _ :: _ => (ok, true, hasCtor) + | _ => (false, hasVar, hasCtor)) + (true, false, false); +ok && hasVar && hasCtor + +/- Return true if the next pattern of the remaining alternatives contain variables AND values. -/ +private def isValueTransition (p : Problem) : Bool := +let (ok, hasVar, hasVal) := p.alts.foldl + (fun (acc : Bool × Bool × Bool) (alt : Alt) => + let (ok, hasVar, hasVal) := acc; + match alt.patterns with + | Pattern.val _ _ :: _ => (ok, hasVar, true) + | Pattern.var _ _ :: _ => (ok, true, hasVal) + | _ => (false, hasVar, hasVal)) + (true, false, false); +ok && hasVar && hasVal + +/- Return true if the next pattern of the remaining alternatives contain variables AND array literals. -/ +private def isArrayLitTransition (p : Problem) : Bool := +let (ok, hasVar, hasArray) := p.alts.foldl + (fun (acc : Bool × Bool × Bool) (alt : Alt) => + let (ok, hasVar, hasArray) := acc; + match alt.patterns with + | Pattern.arrayLit _ _ _ :: _ => (ok, hasVar, true) + | Pattern.var _ _ :: _ => (ok, true, hasArray) + | _ => (false, hasVar, hasArray)) + (true, false, false); +ok && hasVar && hasArray + +private def processNonVariable (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("non variable step"); +match p.vars with +| x :: xs => + let alts := p.alts.map fun alt => match alt.patterns with + | _ :: ps => { alt with patterns := ps } + | _ => unreachable!; + process { p with alts := alts, vars := xs } s +| _ => unreachable! + +private def processLeaf (p : Problem) (s : State) : MetaM State := +match p.alts with +| [] => do + admit p.mvarId; + pure { s with counterExamples := p.examples :: s.counterExamples } +| alt :: _ => do + -- TODO: check whether we have unassigned metavars in rhs + assignGoalOf p alt.rhs; + pure { s with used := s.used.insert alt.idx } + +private def processAsPattern (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("as-pattern step"); +match p.vars with +| [] => unreachable! +| x :: xs => do + alts ← p.alts.mapM fun alt => match alt.patterns with + | Pattern.as _ mvarId p :: ps => do + assignExprMVar mvarId x; + rhs ← instantiateMVars alt.rhs; + let mvars := alt.mvars.erase mvarId; + let ps := p :: ps; + ps ← ps.mapM fun p => p.instantiateMVars; + pure { alt with patterns := ps, rhs := rhs, mvars := mvars } + | _ => pure alt; + process { p with alts := alts } s + +private def processVariable (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("variable step"); +match p.vars with +| [] => unreachable! +| x :: xs => do + alts ← p.alts.mapM fun alt => match alt.patterns with + | Pattern.inaccessible _ _ :: ps => pure { alt with patterns := ps } + | Pattern.var _ mvarId :: ps => do + -- trace! `Meta.EqnCompiler.matchDebug (">> assign " ++ mkMVar mvarId ++ " := " ++ x); + assignExprMVar mvarId x; + rhs ← instantiateMVars alt.rhs; + let mvars := alt.mvars.erase mvarId; + -- trace! `Meta.EqnCompiler.matchDebug (">> patterns before assignment: " ++ MessageData.ofList (ps.map Pattern.toMessageData)); + patterns ← ps.mapM fun p => p.instantiateMVars; + -- trace! `Meta.EqnCompiler.matchDebug (">> patterns after assignment: " ++ MessageData.ofList (patterns.map Pattern.toMessageData)); + pure { alt with patterns := patterns, rhs := rhs, mvars := mvars } + | _ => unreachable!; + process { p with alts := alts, vars := xs } s + +private def isFirstPatternCtor (ctorName : Name) (alt : Alt) : Bool := +match alt.patterns with +| Pattern.ctor _ n _ _ _ :: _ => n == ctorName +| _ => false + +private def processConstructor (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("constructor step"); +match p.vars with +| [] => unreachable! +| x :: xs => do + subgoals ← cases p.mvarId x.fvarId!; + subgoals.foldlM + (fun (s : State) subgoal => do + let subst := subgoal.subst; + let fields := subgoal.fields.toList; + let newVars := fields ++ xs; + let newVars := newVars.map fun x => x.applyFVarSubst subst; + let subex := Example.ctor subgoal.ctorName $ fields.map fun field => match field with + | Expr.fvar fvarId _ => Example.var fvarId + | _ => Example.underscore; -- This case can happen due to dependent elimination + let examples := p.examples.map $ Example.replaceFVarId x.fvarId! subex; + let examples := examples.map $ Example.applyFVarSubst subst; + let newAlts := p.alts.filter $ isFirstPatternCtor subgoal.ctorName; + let newAlts := newAlts.map fun alt => match alt.patterns with + | Pattern.ctor _ _ _ _ fields :: ps => { alt with patterns := fields ++ ps } + | _ => unreachable!; + newAlts ← newAlts.mapM fun alt => alt.applyFVarSubst subst; + newAlts ← newAlts.mapM fun alt => alt.copy; + process { mvarId := subgoal.mvarId, vars := newVars, alts := newAlts, examples := examples } s) + s + +private def throwInductiveTypeExpected {α} (type : Expr) : MetaM α := do +throwOther ("failed to compile pattern matching, inductive type expected" ++ indentExpr type) + +private partial def tryConstructorAux (alt : Alt) (ref : Syntax) (mvarId : MVarId) (ctorName : Name) (us : List Level) (params : Array Expr) (mvars : Array Expr) + : Nat → Array MVarId → Array IPattern → MetaM Alt +| i, newMVars, fields => do + if h : i < mvars.size then do + let mvar := mvars.get ⟨i, h⟩; + e ← instantiateMVars mvar; + match e with + | Expr.mvar mvarId _ => tryConstructorAux (i+1) (newMVars.push mvarId) (fields.push (Pattern.var ref mvarId)) + | _ => tryConstructorAux (i+1) newMVars (fields.push (Pattern.inaccessible ref e)) + else do + let p := Pattern.ctor ref ctorName us params.toList fields.toList; + e ← p.toExpr; + assignExprMVar mvarId e; + ps ← alt.patterns.mapM Pattern.instantiateMVars; + let ps := p :: ps; + rhs ← instantiateMVars alt.rhs; + unless (alt.mvars.contains mvarId) $ + throwOther "ill-format alternative"; -- TODO: improve error message + let mvars := (alt.mvars.map fun mvarId' => if mvarId' == mvarId then newMVars.toList else [mvarId']).join; + mvars ← mvars.filterM fun mvarId => not <$> isExprMVarAssigned mvarId; + pure { alt with rhs := rhs, mvars := mvars, patterns := ps } + +private def tryConstructor? (alt : Alt) (ref : Syntax) (mvarId : MVarId) (ctorName : Name) (us : List Level) (params : Array Expr) (expectedType : Expr) + : MetaM (Option Alt) := do +let ctor := mkAppN (mkConst ctorName us) params; +ctorType ← inferType ctor; +(mvars, _, resultType) ← forallMetaTelescopeReducing ctorType; +trace! `Meta.EqnCompiler.matchDebug ("ctorName: " ++ ctorName ++ ", resultType: " ++ resultType ++ ", expectedType: " ++ expectedType); +condM (isDefEq resultType expectedType) + (Option.some <$> tryConstructorAux alt ref mvarId ctorName us params mvars 0 #[] #[]) + (pure none) + +private def expandAlt (alt : Alt) (ref : Syntax) (mvarId : MVarId) : MetaM (List Alt) := do +env ← getEnv; +mvarDecl ← getMVarDecl mvarId; +let expectedType := mvarDecl.type; +expectedType ← whnfD expectedType; +matchConst env expectedType.getAppFn (fun _ => throwInductiveTypeExpected expectedType) fun info us => + match info with + | ConstantInfo.inductInfo val => + val.ctors.foldlM + (fun (result : List Alt) ctor => do + (mvarSubst, alt) ← alt.copyCore; + let mvarId := mvarSubst.find! mvarId; + mvarDecl ← getMVarDecl mvarId; + let expectedType := mvarDecl.type; + expectedType ← whnfD expectedType; + let I := expectedType.getAppFn; + let Iargs := expectedType.getAppArgs; + let params := Iargs.extract 0 val.nparams; + alt? ← tryConstructor? alt ref mvarId ctor us params expectedType; + match alt? with + | none => pure result + | some alt => pure (alt :: result)) + [] + | _ => throwInductiveTypeExpected expectedType + +private def processComplete (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("complete step"); +withGoalOf p do +env ← getEnv; +newAlts ← p.alts.foldlM + (fun (newAlts : List Alt) alt => + match alt.patterns with + | Pattern.ctor _ _ _ _ _ :: ps => pure (alt :: newAlts) + | p@(Pattern.var ref mvarId) :: ps => do + let alt := { alt with patterns := ps }; + alts ← expandAlt alt ref mvarId; + pure (alts ++ newAlts) + | _ => unreachable!) + []; +process { p with alts := newAlts.reverse } s + +private def collectValues (p : Problem) : Array Expr := +p.alts.foldl + (fun (values : Array Expr) alt => + match alt.patterns with + | Pattern.val _ v :: _ => if values.contains v then values else values.push v + | _ => values) + #[] + +private def isFirstPatternVar (alt : Alt) : Bool := +match alt.patterns with +| Pattern.var _ _ :: _ => true +| _ => false + +private def processValue (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("value step"); +match p.vars with +| [] => unreachable! +| x :: xs => do + let values := collectValues p; + subgoals ← caseValues p.mvarId x.fvarId! values; + subgoals.size.foldM + (fun i (s : State) => + let subgoal := subgoals.get! i; + if h : i < values.size then do + let value := values.get ⟨i, h⟩; + -- (x = value) branch + let subst := subgoal.subst; + let examples := p.examples.map $ Example.replaceFVarId x.fvarId! (Example.val value); + let examples := examples.map $ Example.applyFVarSubst subst; + let newAlts := p.alts.filter fun alt => match alt.patterns with + | Pattern.val _ v :: _ => v == value + | Pattern.var _ _ :: _ => true + | _ => false; + newAlts ← newAlts.mapM fun alt => alt.applyFVarSubst subst; + newAlts ← newAlts.mapM fun alt => alt.copy; + newAlts ← newAlts.mapM fun alt => match alt.patterns with + | Pattern.val _ _ :: ps => pure { alt with patterns := ps } + | Pattern.var _ mvarId :: ps => do + assignExprMVar mvarId value; + ps ← ps.mapM Pattern.instantiateMVars; + rhs ← instantiateMVars alt.rhs; + let mvars := alt.mvars.erase mvarId; + pure { alt with rhs := rhs, mvars := mvars, patterns := ps } + | _ => unreachable!; + let newVars := xs.map fun x => x.applyFVarSubst subst; + process { mvarId := subgoal.mvarId, vars := newVars, alts := newAlts, examples := examples } s + else do + -- else branch + let newAlts := p.alts.filter isFirstPatternVar; + newAlts ← newAlts.mapM fun alt => alt.copy; + process { p with mvarId := subgoal.mvarId, alts := newAlts, vars := x::xs } s) + s + +private def collectArraySizes (p : Problem) : Array Nat := +p.alts.foldl + (fun (sizes : Array Nat) alt => + match alt.patterns with + | Pattern.arrayLit _ _ ps :: _ => let sz := ps.length; if sizes.contains sz then sizes else sizes.push sz + | _ => sizes) + #[] + +private def processArrayLit (process : Problem → State → MetaM State) (p : Problem) (s : State) : MetaM State := do +trace! `Meta.EqnCompiler.match ("array literal step"); +match p.vars with +| [] => unreachable! +| x :: xs => do + let sizes := collectArraySizes p; + subgoals ← caseArraySizes p.mvarId x.fvarId! sizes; + subgoals.size.foldM + (fun i (s : State) => + let subgoal := subgoals.get! i; + if h : i < sizes.size then do + let size := sizes.get! i; + let subst := subgoal.subst; + let elems := subgoal.elems.toList; + let newVars := elems.map mkFVar ++ xs; + let newVars := newVars.map fun x => x.applyFVarSubst subst; + let subex := Example.arrayLit $ elems.map Example.var; + let examples := p.examples.map $ Example.replaceFVarId x.fvarId! subex; + let examples := examples.map $ Example.applyFVarSubst subst; + let newAlts := p.alts.filter fun alt => match alt.patterns with + | Pattern.arrayLit _ _ ps :: _ => ps.length == size + | Pattern.var _ _ :: _ => true + | _ => false; + newAlts ← newAlts.mapM fun alt => alt.applyFVarSubst subst; + newAlts ← newAlts.mapM fun alt => alt.copy; + newAlts ← newAlts.mapM fun alt => match alt.patterns with + | Pattern.arrayLit _ _ pats :: ps => pure { alt with patterns := pats ++ ps } + | Pattern.var ref mvarId :: ps => do + α ← getArrayArgType x; + newMVars ← size.foldM + (fun _ (newMVars : List Expr) => do + newMVar ← mkFreshExprMVar α; + pure (newMVar :: newMVars)) + []; + arrayLit ← mkArrayLit α newMVars; + assignExprMVar mvarId arrayLit; + ps ← ps.mapM Pattern.instantiateMVars; + rhs ← instantiateMVars alt.rhs; + let mvars := alt.mvars.erase mvarId; + let mvars := newMVars.map Expr.mvarId! ++ mvars; + let ps := newMVars.map (fun mvar => Pattern.var ref mvar.mvarId!) ++ ps; + pure { alt with rhs := rhs, mvars := mvars, patterns := ps } + | _ => unreachable!; + process { mvarId := subgoal.mvarId, vars := newVars, alts := newAlts, examples := examples } s + else do + -- else branch + let newAlts := p.alts.filter isFirstPatternVar; + newAlts ← newAlts.mapM fun alt => alt.copy; + process { p with mvarId := subgoal.mvarId, alts := newAlts, vars := x::xs } s) + s + +private partial def process : Problem → State → MetaM State +| p, s => withIncRecDepth do + withGoalOf p (traceM `Meta.EqnCompiler.match p.toMessageData); + if isDone p then + processLeaf p s + else if hasAsPattern p then + processAsPattern process p s + else if !isNextVar p then + processNonVariable process p s + else if isVariableTransition p then + processVariable process p s + else if isConstructorTransition p then + processConstructor process p s + else if isCompleteTransition p then + processComplete process p s + else if isValueTransition p then + processValue process p s + else if isArrayLitTransition p then + processArrayLit process p s + else do + msg ← p.toMessageData; + -- TODO: remaining cases + throwOther ("not implement yet " ++ msg) + +def getUnusedLevelParam (majors : List Expr) (lhss : List AltLHS) : MetaM Level := do +let s : CollectLevelParams.State := {}; +s ← majors.foldlM + (fun s major => do + major ← instantiateMVars major; + majorType ← inferType major; + majorType ← instantiateMVars majorType; + let s := collectLevelParams s major; + pure $ collectLevelParams s majorType) + s; +pure s.getUnusedLevelParam + +/- Return `Prop` if `inProf == true` and `Sort u` otherwise, where `u` is a fresh universe level parameter. -/ +private def mkElimSort (majors : List Expr) (lhss : List AltLHS) (inProp : Bool) : MetaM Expr := +if inProp then + pure $ mkSort $ levelZero +else do + v ← getUnusedLevelParam majors lhss; + pure $ mkSort $ v + +def mkElimCore (elimName : Name) (motive : Expr) (majors : List Expr) (lhss : List AltLHS) (inProp : Bool := false) : MetaM ElimResult := do +checkNumPatterns majors lhss; +generalizeTelescope majors.toArray `_d fun majors => do + let mvarType := mkAppN motive majors; + trace! `Meta.EqnCompiler.matchDebug ("target: " ++ mvarType); + withAlts motive lhss fun alts minors => do + mvar ← mkFreshExprMVar mvarType; + let examples := majors.toList.map fun major => Example.var major.fvarId!; + s ← process { mvarId := mvar.mvarId!, vars := majors.toList, alts := alts, examples := examples } {}; + let args := #[motive] ++ majors ++ minors; + type ← mkForall args mvarType; + val ← mkLambda args mvar; + trace! `Meta.EqnCompiler.matchDebug ("eliminator value: " ++ val ++ "\ntype: " ++ type); + elim ← mkAuxDefinition elimName type val; + setInlineAttribute elimName; + trace! `Meta.EqnCompiler.matchDebug ("eliminator: " ++ elim); + let unusedAltIdxs : List Nat := lhss.length.fold + (fun i r => if s.used.contains i then r else i::r) + []; + pure { elim := elim, counterExamples := s.counterExamples, unusedAltIdxs := unusedAltIdxs.reverse } + +def mkElim (elimName : Name) (majors : List Expr) (lhss : List AltLHS) (inProp : Bool := false) : MetaM ElimResult := do +sortv ← mkElimSort majors lhss inProp; +generalizeTelescope majors.toArray `_d fun majors => do + withMotive majors sortv fun motive => + mkElimCore elimName motive majors.toList lhss inProp + +@[init] private def regTraceClasses : IO Unit := do +registerTraceClass `Meta.EqnCompiler.match; +registerTraceClass `Meta.EqnCompiler.matchDebug + +end DepElim +end Meta +end Lean diff --git a/stage0/src/Lean/Meta/EqnCompiler/MVarRenaming.lean b/stage0/src/Lean/Meta/EqnCompiler/MVarRenaming.lean new file mode 100644 index 0000000000..c7f5647ea3 --- /dev/null +++ b/stage0/src/Lean/Meta/EqnCompiler/MVarRenaming.lean @@ -0,0 +1,37 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ +import Lean.Util.ReplaceExpr + +namespace Lean +namespace Meta + +/- A mapping from MVarId to MVarId -/ +structure MVarRenaming := +(map : NameMap MVarId := {}) + +def MVarRenaming.isEmpty (s : MVarRenaming) : Bool := +s.map.isEmpty + +def MVarRenaming.find? (s : MVarRenaming) (mvarId : MVarId) : Option MVarId := +s.map.find? mvarId + +def MVarRenaming.find! (s : MVarRenaming) (mvarId : MVarId) : MVarId := +(s.find? mvarId).get! + +def MVarRenaming.insert (s : MVarRenaming) (mvarId mvarId' : MVarId) : MVarRenaming := +{ s with map := s.map.insert mvarId mvarId' } + +def MVarRenaming.apply (s : MVarRenaming) (e : Expr) : Expr := +if !e.hasMVar then e +else if s.map.isEmpty then e +else e.replace $ fun e => match e with + | Expr.mvar mvarId _ => match s.map.find? mvarId with + | none => e + | some newMVarId => mkMVar newMVarId + | _ => none + +end Meta +end Lean diff --git a/stage0/src/Lean/EqnCompiler/MatchPattern.lean b/stage0/src/Lean/Meta/EqnCompiler/MatchPattern.lean similarity index 100% rename from stage0/src/Lean/EqnCompiler/MatchPattern.lean rename to stage0/src/Lean/Meta/EqnCompiler/MatchPattern.lean diff --git a/stage0/src/Lean/Meta/Exception.lean b/stage0/src/Lean/Meta/Exception.lean index 47ad40443c..f017ab51fc 100644 --- a/stage0/src/Lean/Meta/Exception.lean +++ b/stage0/src/Lean/Meta/Exception.lean @@ -35,14 +35,19 @@ inductive Exception | notInstance (e : Expr) (ctx : ExceptionContext) | appBuilder (op : Name) (msg : MessageData) (ctx : ExceptionContext) | synthInstance (inst : Expr) (ctx : ExceptionContext) -| tactic (tacticName : Name) (mvarId : MVarId) (msg : MessageData) (ctx : ExceptionContext) +| tactic (ref : Syntax) (tacticName : Name) (mvarId : MVarId) (msg : MessageData) (ctx : ExceptionContext) | generalizeTelescope (es : Array Expr) (ctx : ExceptionContext) | kernel (ex : KernelException) (opts : Options) | bug (b : Bug) (ctx : ExceptionContext) -| other (msg : MessageData) +| other (ref : Syntax) (msg : MessageData) namespace Exception -instance : Inhabited Exception := ⟨other ""⟩ +instance : Inhabited Exception := ⟨other Syntax.missing ""⟩ + +def getRef : Exception → Syntax +| tactic ref _ _ _ _ => ref +| other ref _ => ref +| _ => Syntax.missing -- TODO: improve, use (to be implemented) pretty printer def toStr : Exception → String @@ -64,11 +69,11 @@ def toStr : Exception → String | notInstance _ _ => "type class instance expected" | appBuilder _ _ _ => "application builder failure" | synthInstance _ _ => "type class instance synthesis failed" -| tactic tacName _ _ _ => "tactic '" ++ toString tacName ++ "' failed" +| tactic _ tacName _ _ _ => "tactic '" ++ toString tacName ++ "' failed" | generalizeTelescope _ _ => "generalize telescope" | kernel _ _ => "kernel exception" | bug _ _ => "bug" -| other s => toString $ fmt s +| other _ s => toString $ fmt s instance : HasToString Exception := ⟨toStr⟩ @@ -95,11 +100,11 @@ def toTraceMessageData : Exception → MessageData | notInstance i ctx => mkCtx ctx $ `notInstance ++ " " ++ i | appBuilder op msg ctx => mkCtx ctx $ `appBuilder ++ " " ++ op ++ " " ++ msg | synthInstance inst ctx => mkCtx ctx $ `synthInstance ++ " " ++ inst -| tactic tacName mvarId msg ctx => mkCtx ctx $ `tacticFailure ++ " " ++ tacName ++ " " ++ msg +| tactic _ tacName mvarId msg ctx => mkCtx ctx $ `tacticFailure ++ " " ++ tacName ++ " " ++ msg | generalizeTelescope es ctx => mkCtx ctx $ `generalizeTelescope ++ " " ++ es | kernel ex opts => ex.toMessageData opts | bug _ _ => "internal bug" -- TODO improve -| other s => s +| other _ s => s end Exception diff --git a/stage0/src/Lean/Meta/Message.lean b/stage0/src/Lean/Meta/Message.lean index a6f2e9c5ad..fac60b2022 100644 --- a/stage0/src/Lean/Meta/Message.lean +++ b/stage0/src/Lean/Meta/Message.lean @@ -23,7 +23,7 @@ run? ctx $ do fType ← whnf fType; match fType with | Expr.forallE _ d _ _ => pure d - | _ => throw $ Exception.other "unexpected" + | _ => throwOther "unexpected" private def whnf? (ctx : ExceptionContext) (e : Expr) : Option Expr := run? ctx (whnf e) @@ -73,11 +73,11 @@ def toMessageData : Exception → MessageData | notInstance i ctx => mkCtx ctx $ "not a type class instance " ++ i | appBuilder op msg ctx => mkCtx ctx $ "application builder failure " ++ op ++ " " ++ msg | synthInstance inst ctx => mkCtx ctx $ "failed to synthesize" ++ indentExpr inst -| tactic tacName mvarId msg ctx => mkCtx ctx $ "tactic '" ++ tacName ++ "' failed, " ++ msg ++ Format.line ++ MessageData.ofGoal mvarId +| tactic _ tacName mvarId msg ctx => mkCtx ctx $ "tactic '" ++ tacName ++ "' failed, " ++ msg ++ Format.line ++ MessageData.ofGoal mvarId | generalizeTelescope es ctx => mkCtx ctx $ "failed to create telescope generalizing " ++ es | kernel ex opts => ex.toMessageData opts | bug _ _ => "internal bug" -- TODO improve -| other s => s +| other _ s => s end Exception diff --git a/stage0/src/Lean/Meta/RecursorInfo.lean b/stage0/src/Lean/Meta/RecursorInfo.lean index 5d9019dd70..106ac685d3 100644 --- a/stage0/src/Lean/Meta/RecursorInfo.lean +++ b/stage0/src/Lean/Meta/RecursorInfo.lean @@ -101,7 +101,7 @@ match indInfo with indicesPos := indicesPos, numArgs := numArgs } -| _ => throw $ Exception.other "ill-formed builtin recursor" +| _ => throwOther "ill-formed builtin recursor" private def getMajorPosIfAuxRecursor? (declName : Name) (majorPos? : Option Nat) : MetaM (Option Nat) := if majorPos?.isSome then pure majorPos? @@ -116,11 +116,11 @@ else do recInfo ← getConstInfo (mkRecFor p); match recInfo with | ConstantInfo.recInfo val => pure (some (val.nparams + val.nindices + (if s == casesOnSuffix then 1 else val.nmotives))) - | _ => throw $ Exception.other "unexpected recursor information" + | _ => throwOther "unexpected recursor information" | _ => pure none private def checkMotive (declName : Name) (motive : Expr) (motiveArgs : Array Expr) : MetaM Unit := -unless (motive.isFVar && motiveArgs.all Expr.isFVar) $ throw $ Exception.other +unless (motive.isFVar && motiveArgs.all Expr.isFVar) $ throwOther ("invalid user defined recursor '" ++ toString declName ++ "', result type must be of the form (C t), " ++ "where C is a bound variable, and t is a (possibly empty) sequence of bound variables") @@ -143,17 +143,17 @@ match majorPos? with let major := xs.get ⟨majorPos, h⟩; let depElim := motiveArgs.contains major; pure (major, majorPos, depElim) - else throw $ Exception.other + else throwOther ("invalid major premise position for user defined recursor, recursor has only " ++ toString xs.size ++ " arguments") | none => do - when motiveArgs.isEmpty $ throw $ Exception.other + when motiveArgs.isEmpty $ throwOther ("invalid user defined recursor, '" ++ toString declName ++ "' does not support dependent elimination, " ++ "and position of the major premise was not specified " ++ "(solution: set attribute '[recursor ]', where is the position of the major premise)"); let major := motiveArgs.back; match xs.getIdx? major with | some majorPos => pure (major, majorPos, true) - | none => throw $ Exception.other ("ill-formed recursor '" ++ toString declName ++ "'") + | none => throwOther ("ill-formed recursor '" ++ toString declName ++ "'") private def getParamsPos (declName : Name) (xs : Array Expr) (numParams : Nat) (Iargs : Array Expr) : MetaM (List (Option Nat)) := do paramsPos ← numParams.foldM @@ -167,7 +167,7 @@ paramsPos ← numParams.foldM if localDecl.binderInfo.isInstImplicit then pure $ paramsPos.push none else - throw $ Exception.other + throwOther ("invalid user defined recursor '" ++ toString declName ++ "' , type of the major premise does not contain the recursor parameter")) #[]; pure paramsPos.toList @@ -181,7 +181,7 @@ indicesPos ← numIndices.foldM j? ← Iargs.findIdxM? $ fun Iarg => isDefEq Iarg x; match j? with | some j => pure $ indicesPos.push j - | none => throw $ Exception.other + | none => throwOther ("invalid user defined recursor '" ++ toString declName ++ "' , type of the major premise does not contain the recursor index")) #[]; pure indicesPos.toList @@ -190,7 +190,7 @@ private def getMotiveLevel (declName : Name) (motiveResultType : Expr) : MetaM L match motiveResultType with | Expr.sort u@(Level.zero _) _ => pure u | Expr.sort u@(Level.param _ _) _ => pure u -| _ => throw $ Exception.other +| _ => throwOther ("invalid user defined recursor '" ++ toString declName ++ "' , motive result sort must be Prop or (Sort u) where u is a universe level parameter") private def getUnivLevelPos (declName : Name) (lparams : List Name) (motiveLvl : Level) (Ilevels : List Level) : MetaM (List RecursorUnivLevelPos) := do @@ -202,7 +202,7 @@ univLevelPos ← lparams.foldlM else match Ilevels.findIdx? $ fun u => u == mkLevelParam p with | some i => pure $ univLevelPos.push $ RecursorUnivLevelPos.majorType i - | none => throw $ Exception.other + | none => throwOther ("invalid user defined recursor '" ++ toString declName ++ "' , major premise type does not contain universe level parameter '" ++ toString p ++ "'")) #[]; pure univLevelPos.toList @@ -228,7 +228,7 @@ private def getProduceMotiveAndRecursive (xs : Array Expr) (numParams numIndices pure (produceMotive.toList, rec) private def checkMotiveResultType (declName : Name) (motiveArgs : Array Expr) (motiveResultType : Expr) (motiveTypeParams : Array Expr) : MetaM Unit := -when (!motiveResultType.isSort || motiveArgs.size != motiveTypeParams.size) $ throw $ Exception.other +when (!motiveResultType.isSort || motiveArgs.size != motiveTypeParams.size) $ throwOther ("invalid user defined recursor '" ++ toString declName ++ "', motive must have a type of the form " ++ "(C : Pi (i : B A), I A i -> Type), where A is (possibly empty) sequence of variables (aka parameters), " ++ "(i : B A) is a (possibly empty) telescope (aka indices), and I is a constant") @@ -241,7 +241,7 @@ forallTelescopeReducing cinfo.type $ fun xs type => type.withApp $ fun motive mo let numParams := getNumParams xs motive 0; (major, majorPos, depElim) ← getMajorPosDepElim declName majorPos? xs motive motiveArgs; let numIndices := if depElim then motiveArgs.size - 1 else motiveArgs.size; - when (majorPos < numIndices) $ throw $ Exception.other + when (majorPos < numIndices) $ throwOther ("invalid user defined recursor '" ++ toString declName ++ "', indices must occur before major premise"); majorType ← inferType major; majorType.withApp $ fun I Iargs => @@ -267,7 +267,7 @@ forallTelescopeReducing cinfo.type $ fun xs type => type.withApp $ fun motive mo indicesPos := indicesPos, numArgs := xs.size } - | _ => throw $ Exception.other + | _ => throwOther ("invalid user defined recursor '" ++ toString declName ++ "', type of the major premise must be of the form (I ...), where I is a constant") diff --git a/stage0/src/Lean/Meta/ReduceEval.lean b/stage0/src/Lean/Meta/ReduceEval.lean new file mode 100644 index 0000000000..8394ede8ba --- /dev/null +++ b/stage0/src/Lean/Meta/ReduceEval.lean @@ -0,0 +1,61 @@ +/- +Copyright (c) 2020 Sebastian Ullrich. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Sebastian Ullrich +-/ + +/-! Evaluation by reduction -/ + +import Lean.Meta.Offset + +namespace Lean +namespace Meta + +class HasReduceEval (α : Type) := +(reduceEval : Expr → MetaM α) + +def reduceEval {α : Type} [HasReduceEval α] (e : Expr) : MetaM α := +withAtLeastTransparency TransparencyMode.default $ +HasReduceEval.reduceEval e + +instance Nat.hasReduceEval : HasReduceEval Nat := ⟨fun e => do +e ← whnf e; +some n ← pure $ evalNat e + | throwOther $ "reduceEval: failed to evaluate argument: " ++ toString e; +pure n⟩ + +instance Option.hasReduceEval {α : Type} [HasReduceEval α] : HasReduceEval (Option α) := ⟨fun e => do +e ← whnf e; +Expr.const c _ _ ← pure e.getAppFn + | throwOther $ "reduceEval: failed to evaluate argument: " ++ toString e; +let nargs := e.getAppNumArgs; +if c == `Option.none && nargs == 0 then pure none +else if c == `Option.some && nargs == 1 then some <$> reduceEval e.appArg! +else throwOther $ "reduceEval: failed to evaluate argument: " ++ toString e⟩ + +instance String.hasReduceEval : HasReduceEval String := ⟨fun e => do +Expr.lit (Literal.strVal s) _ ← whnf e + | throwOther $ "reduceEval: failed to evaluate argument: " ++ toString e; +pure s⟩ + +private partial def evalName : Expr → MetaM Name | e => do +e ← whnf e; +Expr.const c _ _ ← pure e.getAppFn + | throwOther $ "reduceEval: failed to evaluate argument: " ++ toString e; +let nargs := e.getAppNumArgs; +if c == `Lean.Name.anonymous && nargs == 0 then pure Name.anonymous +else if c == `Lean.Name.str && nargs == 3 then do + n ← evalName $ e.getArg! 0; + s ← reduceEval $ e.getArg! 1; + pure $ mkNameStr n s +else if c == `Lean.Name.num && nargs == 3 then do + n ← evalName $ e.getArg! 0; + u ← reduceEval $ e.getArg! 1; + pure $ mkNameNum n u +else + throwOther $ "reduceEval: failed to evaluate argument: " ++ toString e + +instance Name.hasReduceEval : HasReduceEval Name := ⟨evalName⟩ + +end Meta +end Lean diff --git a/stage0/src/Lean/Meta/SynthInstance.lean b/stage0/src/Lean/Meta/SynthInstance.lean index 4d935454f9..61051dbb10 100644 --- a/stage0/src/Lean/Meta/SynthInstance.lean +++ b/stage0/src/Lean/Meta/SynthInstance.lean @@ -154,7 +154,7 @@ structure State extends Meta.State := abbrev SynthM := ReaderT Context (EStateM Exception State) -instance SynthM.inhabited {α} : Inhabited (SynthM α) := ⟨throw $ Exception.other ""⟩ +instance SynthM.inhabited {α} : Inhabited (SynthM α) := ⟨throw $ Exception.other Syntax.missing ""⟩ def getTraceState : SynthM TraceState := do s ← get; pure s.traceState def getOptions : SynthM Options := do ctx ← read; pure ctx.config.opts @@ -514,7 +514,7 @@ private partial def preprocessArgs : Expr → Nat → Array Expr → MetaM (Arra let args := args.set ⟨i, h⟩ arg; preprocessArgs (b.instantiate1 arg) (i+1) args | _ => - throw $ Exception.other "type class resolution failed, insufficient number of arguments" -- TODO improve error message + throw $ Exception.other Syntax.missing "type class resolution failed, insufficient number of arguments" -- TODO improve error message else pure args diff --git a/stage0/src/Lean/Meta/Tactic/Assert.lean b/stage0/src/Lean/Meta/Tactic/Assert.lean index edc80dc0b5..327c2340a8 100644 --- a/stage0/src/Lean/Meta/Tactic/Assert.lean +++ b/stage0/src/Lean/Meta/Tactic/Assert.lean @@ -34,5 +34,21 @@ withMVarContext mvarId $ do assignExprMVar mvarId newMVar; pure newMVar.mvarId! +/-- + Convert the given goal `Ctx |- target` into `Ctx |- forall (name : type) -> name = val -> target`. + It assumes `val` has type `type` -/ +def assertExt (mvarId : MVarId) (name : Name) (type : Expr) (val : Expr) (hName : Name := `h) : MetaM MVarId := do +withMVarContext mvarId $ do + checkNotAssigned mvarId `assert; + tag ← getMVarTag mvarId; + target ← getMVarType mvarId; + u ← getLevel type; + let hType := mkApp3 (mkConst `Eq [u]) type (mkBVar 0) val; + let newType := Lean.mkForall name BinderInfo.default type $ Lean.mkForall hName BinderInfo.default hType target; + newMVar ← mkFreshExprSyntheticOpaqueMVar newType tag; + rflPrf ← mkEqRefl val; + assignExprMVar mvarId (mkApp2 newMVar val rflPrf); + pure newMVar.mvarId! + end Meta end Lean diff --git a/stage0/src/Lean/Meta/Tactic/Intro.lean b/stage0/src/Lean/Meta/Tactic/Intro.lean index 0459d4e498..992b486a9b 100644 --- a/stage0/src/Lean/Meta/Tactic/Intro.lean +++ b/stage0/src/Lean/Meta/Tactic/Intro.lean @@ -64,7 +64,8 @@ def mkAuxName (useUnusedNames : Bool) (lctx : LocalContext) (defaultName : Name) | n :: rest => (if n != "_" then n else if useUnusedNames then lctx.getUnusedName defaultName else defaultName, rest) def introN (mvarId : MVarId) (n : Nat) (givenNames : List Name := []) (useUnusedNames := true) : MetaM (Array FVarId × MVarId) := -introNCore mvarId n (mkAuxName useUnusedNames) givenNames +if n == 0 then pure (#[], mvarId) +else introNCore mvarId n (mkAuxName useUnusedNames) givenNames def intro (mvarId : MVarId) (name : Name) : MetaM (FVarId × MVarId) := do (fvarIds, mvarId) ← introN mvarId 1 [name]; diff --git a/stage0/src/Lean/Meta/Tactic/Subst.lean b/stage0/src/Lean/Meta/Tactic/Subst.lean index cb706dcb70..aaacfffaad 100644 --- a/stage0/src/Lean/Meta/Tactic/Subst.lean +++ b/stage0/src/Lean/Meta/Tactic/Subst.lean @@ -14,11 +14,12 @@ import Lean.Meta.Tactic.FVarSubst namespace Lean namespace Meta -def substCore (mvarId : MVarId) (hFVarId : FVarId) (symm := false) (fvarSubst : FVarSubst := {}) : MetaM (FVarSubst × MVarId) := +def substCore (mvarId : MVarId) (hFVarId : FVarId) (symm := false) (fvarSubst : FVarSubst := {}) (clearH := true) : MetaM (FVarSubst × MVarId) := withMVarContext mvarId $ do tag ← getMVarTag mvarId; checkNotAssigned mvarId `subst; hLocalDecl ← getLocalDecl hFVarId; + let hFVarIdOriginal := hFVarId; match hLocalDecl.type.eq? with | none => throwTacticEx `subst mvarId "argument must be an equality proof" | some (α, lhs, rhs) => do @@ -57,8 +58,12 @@ withMVarContext mvarId $ do newVal ← if depElim then mkEqRec motive minor major else mkEqNDRec motive minor major; assignExprMVar mvarId newVal; let mvarId := newMVar.mvarId!; - mvarId ← clear mvarId hFVarId; - mvarId ← clear mvarId aFVarId; + mvarId ← + if clearH then do + mvarId ← clear mvarId hFVarId; + clear mvarId aFVarId + else + pure mvarId; (newFVars, mvarId) ← introN mvarId (vars.size - 2) [] false; fvarSubst ← newFVars.size.foldM (fun i (fvarSubst : FVarSubst) => @@ -66,7 +71,8 @@ withMVarContext mvarId $ do let newFVar := newFVars.get! i; pure $ fvarSubst.insert var (mkFVar newFVar)) fvarSubst; - let fvarSubst := fvarSubst.insert aFVarIdOriginal b; + let fvarSubst := fvarSubst.insert aFVarIdOriginal (if clearH then b else mkFVar aFVarId); + let fvarSubst := fvarSubst.insert hFVarIdOriginal (mkFVar hFVarId); pure (fvarSubst, mvarId) }; if depElim then do @@ -99,6 +105,7 @@ withMVarContext mvarId $ do "invalid equality proof, it is not of the form " ++ (if symm then "(t = x)" else "(x = t)") ++ indentExpr hLocalDecl.type + ++ Format.line ++ "after WHNF, variable expected, but obtained" ++ indentExpr a def subst (mvarId : MVarId) (hFVarId : FVarId) : MetaM MVarId := withMVarContext mvarId $ do diff --git a/stage0/src/Lean/Meta/Tactic/Util.lean b/stage0/src/Lean/Meta/Tactic/Util.lean index 5cdb9f4b9c..778d141a91 100644 --- a/stage0/src/Lean/Meta/Tactic/Util.lean +++ b/stage0/src/Lean/Meta/Tactic/Util.lean @@ -4,6 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ import Lean.Meta.Basic +import Lean.Meta.AppBuilder import Lean.Meta.LevelDefEq namespace Lean @@ -17,11 +18,15 @@ pure mvarDecl.userName def setMVarTag (mvarId : MVarId) (tag : Name) : MetaM Unit := do modify $ fun s => { s with mctx := s.mctx.setMVarUserName mvarId tag } +def appendTagSuffix (mvarId : MVarId) (suffix : Name) : MetaM Unit := do +tag ← getMVarTag mvarId; +setMVarTag mvarId (tag ++ suffix) + def mkFreshExprSyntheticOpaqueMVar (type : Expr) (userName : Name := Name.anonymous) : MetaM Expr := mkFreshExprMVar type userName MetavarKind.syntheticOpaque -def throwTacticEx {α} (tacticName : Name) (mvarId : MVarId) (msg : MessageData) : MetaM α := do -throwEx $ fun ctx => Exception.tactic tacticName mvarId (MessageData.withContext ctx msg) ctx +def throwTacticEx {α} (tacticName : Name) (mvarId : MVarId) (msg : MessageData) (ref := Syntax.missing) : MetaM α := do +throwEx $ fun ctx => Exception.tactic ref tacticName mvarId (MessageData.withContext ctx msg) ctx def checkNotAssigned (mvarId : MVarId) (tacticName : Name) : MetaM Unit := whenM (isExprMVarAssigned mvarId) $ throwTacticEx tacticName mvarId "metavariable has already been assigned" @@ -44,5 +49,14 @@ instance Meta.hasOrelse {α} : HasOrelse (MetaM α) := ⟨Meta.orelse⟩ @[init] private def regTraceClasses : IO Unit := registerTraceClass `Meta.Tactic +/-- Assign `mvarId` to `sorryAx` -/ +def admit (mvarId : MVarId) (synthetic := true) : MetaM Unit := +withMVarContext mvarId $ do + checkNotAssigned mvarId `admit; + mvarType ← getMVarType mvarId; + val ← mkSorry mvarType synthetic; + assignExprMVar mvarId val; + pure () + end Meta end Lean diff --git a/stage0/src/Lean/Parser/Parser.lean b/stage0/src/Lean/Parser/Parser.lean index 602544486b..b50cb62890 100644 --- a/stage0/src/Lean/Parser/Parser.lean +++ b/stage0/src/Lean/Parser/Parser.lean @@ -96,7 +96,7 @@ structure TokenCacheEntry := (token : Syntax := Syntax.missing) structure ParserCache := -(tokenCache : TokenCacheEntry := {}) +(tokenCache : TokenCacheEntry) def initCacheForInput (input : String) : ParserCache := { tokenCache := { startPos := input.bsize + 1 /- make sure it is not a valid position -/} } @@ -161,7 +161,7 @@ end Error structure ParserState := (stxStack : Array Syntax := #[]) (pos : String.Pos := 0) -(cache : ParserCache := {}) +(cache : ParserCache) (errorMsg : Option Error := none) namespace ParserState @@ -1428,7 +1428,7 @@ categoryParser `term prec def dollarSymbol : Parser := symbol "$" /-- Fail if previous token is immediately followed by ':'. -/ -private def noImmediateColon : Parser := +def checkNoImmediateColon : Parser := { fn := fun c s => let prev := s.stxStack.back; if checkTailNoWs prev then @@ -1445,8 +1445,8 @@ private def noImmediateColon : Parser := def setExpectedFn (expected : List String) (p : ParserFn) : ParserFn := fun c s => match p c s with - | s'@{ errorMsg := some msg } => { s' with errorMsg := some { msg with expected := [] } } - | s' => s' + | s'@{ errorMsg := some msg, .. } => { s' with errorMsg := some { msg with expected := [] } } + | s' => s' def setExpected (expected : List String) (p : Parser) : Parser := { fn := setExpectedFn expected p.fn, info := p.info } @@ -1466,10 +1466,10 @@ def antiquotExpr : Parser := identNoAntiquot <|> antiquotNestedExpr produces the syntax tree for `$e`. -/ def mkAntiquot (name : String) (kind : Option SyntaxNodeKind) (anonymous := true) : Parser := let kind := (kind.getD Name.anonymous) ++ `antiquot; -let nameP := checkNoWsBefore ("no space before ':" ++ name ++ "'") >> symbol ":" >> nonReservedSymbol name; +let nameP := node `antiquotName $ checkNoWsBefore ("no space before ':" ++ name ++ "'") >> symbol ":" >> nonReservedSymbol name; -- if parsing the kind fails and `anonymous` is true, check that we're not ignoring a different -- antiquotation kind via `noImmediateColon` -let nameP := if anonymous then nameP <|> noImmediateColon >> pushNone >> pushNone else nameP; +let nameP := if anonymous then nameP <|> checkNoImmediateColon >> pushNone else nameP; -- antiquotations are not part of the "standard" syntax, so hide "expected '$'" on error node kind $ try $ setExpected [] dollarSymbol >> @@ -1661,14 +1661,6 @@ kinds ← builtinSyntaxNodeKindSetRef.get; categories ← builtinParserCategoriesRef.get; pure { tokens := tokens, kinds := kinds, categories := categories } -private def mergePrecendences (msgPreamble : String) (sym : String) : Option Nat → Option Nat → Except String (Option Nat) -| none, b => pure b -| a, none => pure a -| some a, some b => - if a == b then pure $ some a - else - throw $ msgPreamble ++ "precedence mismatch for '" ++ toString sym ++ "', previous: " ++ toString a ++ ", new: " ++ toString b - private def addTokenConfig (tokens : TokenTable) (tk : Token) : Except String TokenTable := do if tk == "" then throw "invalid empty symbol" else match tokens.find? tk with @@ -1874,15 +1866,15 @@ private def catNameToString : Name → String | Name.str Name.anonymous s _ => s | n => n.toString -@[inline] def mkCategoryAntiquotParser (kind : Name) : ParserFn := -(mkAntiquot (catNameToString kind) none).fn +@[inline] def mkCategoryAntiquotParser (kind : Name) : Parser := +mkAntiquot (catNameToString kind) none def categoryParserFnImpl (catName : Name) : ParserFn := fun ctx s => let categories := (parserExtension.getState ctx.env).categories; match categories.find? catName with | some cat => - prattParser catName cat.tables cat.leadingIdentAsSymbol (mkCategoryAntiquotParser catName) ctx s + prattParser catName cat.tables cat.leadingIdentAsSymbol (mkCategoryAntiquotParser catName).fn ctx s | none => s.mkUnexpectedError ("unknown parser category '" ++ toString catName ++ "'") @[init] def setCategoryParserFnRef : IO Unit := diff --git a/stage0/src/Lean/Parser/Term.lean b/stage0/src/Lean/Parser/Term.lean index 83e89c8cb1..b20ed8aeac 100644 --- a/stage0/src/Lean/Parser/Term.lean +++ b/stage0/src/Lean/Parser/Term.lean @@ -22,7 +22,7 @@ categoryParser `tactic rbp def Tactic.seq : Parser := node `Lean.Parser.Tactic.seq $ sepBy tacticParser "; " true def Tactic.nonEmptySeq : Parser := node `Lean.Parser.Tactic.seq $ sepBy1 tacticParser "; " true -def darrow : Parser := "=>" +def darrow : Parser := " => " namespace Term @@ -51,8 +51,8 @@ def namedPattern := checkNoWsBefore "no space before '@'" >> parser! "@" >> term @[builtinTermParser] def num : Parser := parser! numLit @[builtinTermParser] def str : Parser := parser! strLit @[builtinTermParser] def char : Parser := parser! charLit -@[builtinTermParser] def type := parser! "Type" >> optional (checkPrec (maxPrec-1) >> levelParser maxPrec) -@[builtinTermParser] def sort := parser! "Sort" >> optional (checkPrec (maxPrec-1) >> levelParser maxPrec) +@[builtinTermParser] def type := parser! "Type" >> optional (checkWsBefore "" >> checkPrec (maxPrec-1) >> levelParser maxPrec) +@[builtinTermParser] def sort := parser! "Sort" >> optional (checkWsBefore "" >> checkPrec (maxPrec-1) >> levelParser maxPrec) @[builtinTermParser] def prop := parser! "Prop" @[builtinTermParser] def hole := parser! "_" @[builtinTermParser] def namedHole := parser! "?" >> ident @@ -74,10 +74,10 @@ def haveAssign := parser! " := " >> termParser def structInstArrayRef := parser! "[" >> termParser >>"]" def structInstLVal := (ident <|> fieldIdx <|> structInstArrayRef) >> many (group ("." >> (ident <|> fieldIdx)) <|> structInstArrayRef) def structInstField := parser! structInstLVal >> " := " >> termParser -@[builtinTermParser] def structInst := parser! "{" >> optional (try (termParser >> "with")) >> sepBy structInstField ", " true >> optional ".." >> optional (" : " >> termParser) >> "}" +@[builtinTermParser] def structInst := parser! "{ " >> optional (try (termParser >> " with ")) >> sepBy structInstField ", " true >> optional ".." >> optional (" : " >> termParser) >> " }" def typeSpec := parser! " : " >> termParser def optType : Parser := optional typeSpec -@[builtinTermParser] def subtype := parser! "{" >> ident >> optType >> " // " >> termParser >> "}" +@[builtinTermParser] def subtype := parser! "{ " >> ident >> optType >> " // " >> termParser >> " }" @[builtinTermParser] def listLit := parser! "[" >> sepBy termParser "," true >> "]" @[builtinTermParser] def arrayLit := parser! "#[" >> sepBy termParser "," true >> "]" @[builtinTermParser] def explicit := parser! "@" >> termParser maxPrec @@ -92,10 +92,10 @@ def instBinder := parser! "[" >> optIdent >> termParser >> "]" def bracketedBinder (requireType := false) := explicitBinder requireType <|> implicitBinder requireType <|> instBinder @[builtinTermParser] def depArrow := parser! bracketedBinder true >> checkPrec 25 >> unicodeSymbol " → " " -> " >> termParser def simpleBinder := parser! many1 binderIdent -@[builtinTermParser] def «forall» := parser!:leadPrec unicodeSymbol "∀" "forall" >> many1 (simpleBinder <|> bracketedBinder) >> ", " >> termParser +@[builtinTermParser] def «forall» := parser!:leadPrec unicodeSymbol "∀ " "forall " >> many1 (simpleBinder <|> bracketedBinder) >> ", " >> termParser def funBinder : Parser := implicitBinder <|> instBinder <|> termParser maxPrec -@[builtinTermParser] def «fun» := parser!:maxPrec unicodeSymbol "λ" "fun" >> many1 funBinder >> darrow >> termParser +@[builtinTermParser] def «fun» := parser!:maxPrec unicodeSymbol "λ " "fun " >> many1 funBinder >> darrow >> termParser def matchAlt : Parser := nodeWithAntiquot "matchAlt" `Lean.Parser.Term.matchAlt $ @@ -103,10 +103,12 @@ nodeWithAntiquot "matchAlt" `Lean.Parser.Term.matchAlt $ def matchAlts (optionalFirstBar := true) : Parser := withPosition $ fun pos => - (if optionalFirstBar then optional "|" else "|") >> + (if optionalFirstBar then optional "| " else "| ") >> sepBy1 matchAlt (checkColGe pos.column "alternatives must be indented" >> "|") -@[builtinTermParser] def «match» := parser!:leadPrec "match " >> sepBy1 termParser ", " >> optType >> " with " >> matchAlts +def matchDiscr := optIdent >> termParser + +@[builtinTermParser] def «match» := parser!:leadPrec "match " >> sepBy1 matchDiscr ", " >> optType >> " with " >> matchAlts @[builtinTermParser] def «nomatch» := parser!:leadPrec "nomatch " >> termParser def optExprPrecedence := optional (try ":" >> termParser maxPrec) @[builtinTermParser] def «parser!» := parser!:leadPrec "parser! " >> optExprPrecedence >> termParser @@ -146,14 +148,14 @@ def bracketedDoSeq := parser! "{" >> doSeq >> "}" @[builtinTermParser] def uminus := parser!:65 "-" >> termParser 100 def namedArgument := parser! try ("(" >> ident >> " := ") >> termParser >> ")" -@[builtinTermParser] def app := tparser!:(maxPrec-1) checkWsBefore "expected space" >> many1 (namedArgument <|> termParser maxPrec) +@[builtinTermParser] def app := tparser!:(maxPrec-1) many1 (checkWsBefore "expected space" >> (namedArgument <|> termParser maxPrec)) @[builtinTermParser] def proj := tparser! symbolNoWs "." >> (fieldIdx <|> ident) @[builtinTermParser] def arrow := tparser! unicodeInfixR " → " " -> " 25 @[builtinTermParser] def arrayRef := tparser! symbolNoWs "[" >> termParser >>"]" @[builtinTermParser] def dollar := tparser!:0 try (dollarSymbol >> checkWsBefore "expected space") >> termParser 0 -@[builtinTermParser] def dollarProj := tparser!:0 "$." >> (fieldIdx <|> ident) +@[builtinTermParser] def dollarProj := tparser!:0 " $. " >> (fieldIdx <|> ident) @[builtinTermParser] def «where» := tparser!:0 " where " >> sepBy1 letDecl (group ("; " >> symbol " where ")) diff --git a/stage0/src/Lean/PrettyPrinter.lean b/stage0/src/Lean/PrettyPrinter.lean index f631c1d5c4..832ca81258 100644 --- a/stage0/src/Lean/PrettyPrinter.lean +++ b/stage0/src/Lean/PrettyPrinter.lean @@ -1,2 +1,39 @@ +/- +Copyright (c) 2020 Sebastian Ullrich. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Sebastian Ullrich +-/ +import Lean.Delaborator import Lean.PrettyPrinter.Parenthesizer import Lean.PrettyPrinter.Formatter + +namespace Lean +namespace PrettyPrinter + +def ppTerm (table : Parser.TokenTable) : Syntax → MetaM Format := +parenthesizeTerm >=> formatTerm table + +def ppExpr (table : Parser.TokenTable) : Expr → MetaM Format := +delab >=> ppTerm table + +def ppCommand (table : Parser.TokenTable) : Syntax → MetaM Format := +parenthesizeCommand >=> formatCommand table + +def ppModule (table : Parser.TokenTable) (stx : Syntax) : MetaM Format := do +let header := stx.getArg 0; +f ← format table (mkConst `Lean.Parser.Module.header) header; +let cmds := stx.getArgs.extract 1 stx.getArgs.size; +cmds.foldlM (fun f cmd => do + cmdF ← ppCommand table cmd; + pure $ f ++ "\n\n" ++ cmdF) f + +-- TODO: activate when ready +/-@[init]-/ def registerPPTerm : IO Unit := do +table ← Parser.builtinTokenTable.get; +ppExprFnRef.set $ fun env mctx lctx opts e => match + ppExpr table e { currRecDepth := 0, maxRecDepth := 1000, lctx := lctx, config := { opts := opts } } { env := env, mctx := mctx } with + | EStateM.Result.ok f st => f + | EStateM.Result.error e st => "" + +end PrettyPrinter +end Lean diff --git a/stage0/src/Lean/PrettyPrinter/Formatter.lean b/stage0/src/Lean/PrettyPrinter/Formatter.lean index 0a50ec21bf..1a3316a9b3 100644 --- a/stage0/src/Lean/PrettyPrinter/Formatter.lean +++ b/stage0/src/Lean/PrettyPrinter/Formatter.lean @@ -4,7 +4,17 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Sebastian Ullrich -/ +/-! +The formatter turns a `Syntax` tree into a `Format` object, inserting both mandatory whitespace (to separate adjacent +tokens) as well as "pretty" optional whitespace. + +The basic approach works much like the parenthesizer: A right-to-left traversal over the syntax tree and the parser that +produced it, driven by parser-specific handlers registered via an attribute. The traversal is right-to-left so that when +emitting a token, we already know the text following it and can decide whether or not whitespace between the two is +necessary. +-/ import Lean.Parser +import Lean.Meta import Lean.Elab.Quotation namespace Lean @@ -15,14 +25,19 @@ structure Context := (table : Parser.TokenTable) structure State := -(stxTrav : Syntax.Traverser) +(stxTrav : Syntax.Traverser) +-- Textual content of `stack` up to the first whitespace (not enclosed in an escaped ident). We assume that the textual +-- content of `stack` is modified only by `pushText` and `pushLine`, so `leadWord` is adjusted there accordingly. (leadWord : String := "") +-- Stack of generated Format objects, analogous to the Syntax stack in the parser. +-- Note, however, that the stack is reversed because of the right-to-left traversal. +(stack : Array Format := #[]) end Formatter abbrev FormatterM := ReaderT Formatter.Context $ StateT Formatter.State MetaM -abbrev Formatter := Expr → FormatterM Format +abbrev Formatter := Expr → FormatterM Unit unsafe def mkFormatterAttribute : IO (KeyedDeclsAttribute Formatter) := KeyedDeclsAttribute.init { @@ -40,5 +55,293 @@ KeyedDeclsAttribute.init { } `Lean.PrettyPrinter.formatterAttribute @[init mkFormatterAttribute] constant formatterAttribute : KeyedDeclsAttribute Formatter := arbitrary _ +namespace Formatter + +open Lean.Meta +open Lean.Format + +instance FormatterM.monadTraverser : Syntax.MonadTraverser FormatterM := ⟨{ + get := State.stxTrav <$> get, + set := fun t => modify (fun st => { st with stxTrav := t }), + modifyGet := fun _ f => modifyGet (fun st => let (a, t) := f st.stxTrav; (a, { st with stxTrav := t })) }⟩ + +open Syntax.MonadTraverser + +def getStack : FormatterM (Array Format) := do +st ← get; +pure st.stack + +def getStackSize : FormatterM Nat := do +stack ← getStack; +pure stack.size + +def setStack (stack : Array Format) : FormatterM Unit := +modify fun st => { st with stack := stack } + +def push (f : Format) : FormatterM Unit := +modify fun st => { st with stack := st.stack.push f } + +/-- Execute `x` at the right-most child of the current node, if any, then advance to the left. -/ +def visitArgs (x : FormatterM Unit) : FormatterM Unit := do +stx ← getCur; +when (stx.getArgs.size > 0) $ + goDown (stx.getArgs.size - 1) *> x <* goUp; +goLeft + +/-- Execute `x`, pass array of generated Format objects to `fn`, and push result. -/ +def fold (fn : Array Format → Format) (x : FormatterM Unit) : FormatterM Unit := do +sp ← getStackSize; +x; +stack ← getStack; +let f := fn $ stack.extract sp stack.size; +setStack $ (stack.shrink sp).push f + +/-- Execute `x` and concatenate generated Format objects. -/ +def concat (x : FormatterM Unit) : FormatterM Unit := do +fold (Array.foldl (fun acc f => f ++ acc) Format.nil) x + +def concatArgs (x : FormatterM Unit) : FormatterM Unit := +concat (visitArgs x) + +/-- + Call an appropriate `[formatter]` depending on the `Parser` `Expr` `p`. After the call, the traverser position + should be to the left of all nodes produced by `p`, or at the left-most child if there are no other nodes left. -/ +partial def visit : Formatter | p => do +stx ← getCur; +-- do reductions _except_ for definition unfolding +p ← liftM $ whnfCore p; +trace! `PrettyPrinter.format ("formatting" ++ MessageData.nest 2 (line ++ stx) ++ line ++ "using" ++ MessageData.nest 2 (line ++ p)); +sp ← getStackSize; +let c := Expr.constName? p.getAppFn; +env ← liftM getEnv; +match c >>= (formatterAttribute.ext.getState env).table.find? with +| some (f::_) => do + -- call first matching formatter + f p +| _ => + -- `choice` is not an actual parser, so special-case it here + if c == some `choice then do + visitArgs do { + stx ← getCur; + sp ← getStackSize; + stx.getArgs.forM fun _ => visit (mkConst stx.getKind); + stack ← getStack; + when (stack.size > sp && stack.anyRange sp stack.size fun f => pretty f != pretty (stack.get! sp)) + panic! "Formatter.visit: inequal choice children"; + -- discard all but one child format + setStack $ stack.extract 0 (sp+1) + } + else do { + -- (try to) unfold definition and recurse + some p' ← liftM $ unfoldDefinition? p + | throw $ Exception.other Syntax.missing $ "no known formatter for '" ++ toString p ++ "'"; + visit p' + }; +stack ← getStack; +trace! `PrettyPrinter.format (" => " ++ (stack.extract sp stack.size).foldl (fun acc f => repr (toString f) ++ " " ++ acc) "") + +open Lean.Parser + +@[builtinFormatter categoryParser] +def categoryParser.formatter : Formatter | p => do +stx ← getCur; +-- visit `(mkCategoryAntiquotParser $(p.getArg! 0) <|> $(mkConst stx.getKind)) +visit (mkAppN (mkConst `Lean.Parser.orelse) #[ + mkApp (mkConst `Lean.Parser.mkCategoryAntiquotParser) (p.getArg! 0), + mkConst stx.getKind]) + +@[builtinFormatter termParser] +def termParser.formatter : Formatter | p => do +stx ← getCur; +-- this can happen at `termParser <|> many1 commandParser` in `Term.stxQuot` +if stx.getKind == nullKind then + throw $ Exception.other Syntax.missing "BACKTRACK" +else + categoryParser.formatter p + +@[builtinFormatter withAntiquot] +def withAntiquot.formatter : Formatter | p => +-- deoptimize +visit (mkAppN (mkConst `Lean.Parser.orelse) #[p.getArg! 0, p.getArg! 1]) + +@[builtinFormatter try] +def try.formatter : Formatter | p => +visit p.appArg! + +@[builtinFormatter andthen] +def andthen.formatter : Formatter | p => +visit (p.getArg! 1) *> visit (p.getArg! 0) + +def checkKind (k : SyntaxNodeKind) : FormatterM Unit := do +stx ← getCur; +when (k != stx.getKind) $ do { + trace! `PrettyPrinter.format.backtrack ("unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'"); + -- HACK; see `orelse.formatter` + throw $ Exception.other Syntax.missing "BACKTRACK" +} + +@[builtinFormatter node] +def node.formatter : Formatter | p => do +k ← liftM $ reduceEval $ p.getArg! 0; +checkKind k; +concatArgs $ visit p.appArg! + +@[builtinFormatter trailingNode] +def trailingNode.formatter : Formatter | p => do +k ← liftM $ reduceEval $ p.getArg! 0; +checkKind k; +concatArgs do + visit p.appArg!; + -- leading term, not actually produced by `p` + categoryParser.formatter p + +def parseToken (s : String) : FormatterM ParserState := do +ctx ← read; +env ← liftM getEnv; +pure $ Parser.tokenFn { input := s, fileName := "", fileMap := FileMap.ofString "", prec := 0, env := env, tokens := ctx.table } (Parser.mkParserState s) + +def pushToken (tk : String) : FormatterM Unit := do +st ← get; +-- If there is no space between `tk` and the next word, compare parsing `tk` with and without the next word +if st.leadWord != "" && tk.trimRight == tk then do + t1 ← parseToken tk.trimLeft; + t2 ← parseToken $ tk.trimLeft ++ st.leadWord; + if t1.pos == t2.pos then do + -- same result => use `tk` as is, extend `leadWord` if not prefixed by whitespace + modify fun st => { st with leadWord := if tk.trimLeft == tk then tk ++ st.leadWord else "" }; + push tk + else do + -- different result => add space + modify fun st => { st with leadWord := if tk.trimLeft == tk then tk else "" }; + push $ tk ++ " " +else do { + -- already separated => use `tk` as is + modify fun st => { st with leadWord := if tk.trimLeft == tk then tk else "" }; + push tk +} + +@[builtinFormatter symbol] +def symbol.formatter : Formatter | p => do +let sym := p.getArg! 0; +sym ← liftM $ reduceEval sym; +pushToken sym; +goLeft + +@[builtinFormatter symbolNoWs] def symbolNoWs.formatter := symbol.formatter +@[builtinFormatter unicodeSymbol] def unicodeSymbol.formatter := symbol.formatter +@[builtinFormatter nonReservedSymbol] def nonReservedSymbol.formatter := symbol.formatter + +@[builtinFormatter identNoAntiquot] +def identNoAntiquot.formatter : Formatter | _ => do +checkKind identKind; +stx ← getCur; +let s := stx.getId.toString; +-- try to parse `s` as-is; if it fails, escape +pst ← parseToken s; +let s := if pst.stxStack == #[stx] then s else match stx.getId with + | Name.str Name.anonymous s _ => "«" ++ s ++ "»" + | _ => panic! "unimplemented: escaping non-atomic identifiers (is anyone even using those?)"; +pushToken s; +goLeft + +@[builtinFormatter rawIdent] def rawIdent.formatter : Formatter | _ => do +checkKind identKind; +stx ← getCur; +pushToken stx.getId.toString; +goLeft + +def visitAtom (k : SyntaxNodeKind) : Formatter | p => do +stx ← getCur; +when (k != Name.anonymous) $ + checkKind k; +Syntax.atom _ val ← pure $ stx.ifNode (fun n => n.getArg 0) (fun _ => stx) + | throw $ Exception.other Syntax.missing $ "not an atom: " ++ toString stx; +pushToken val; +goLeft + +@[builtinFormatter charLitNoAntiquot] def charLitNoAntiquot.formatter := visitAtom charLitKind +@[builtinFormatter strLitNoAntiquot] def strLitNoAntiquot.formatter := visitAtom strLitKind +@[builtinFormatter nameLitNoAntiquot] def nameLitNoAntiquot.formatter := visitAtom nameLitKind +@[builtinFormatter numLitNoAntiquot] def numLitNoAntiquot.formatter := visitAtom numLitKind +@[builtinFormatter fieldIdx] def fieldIdx.formatter := visitAtom fieldIdxKind + +@[builtinFormatter many] +def many.formatter : Formatter | p => do +stx ← getCur; +concatArgs $ stx.getArgs.size.forM $ fun _ => visit (p.getArg! 0) + +@[builtinFormatter many1] def many1.formatter : Formatter | p => do +stx ← getCur; +if stx.getKind == nullKind then do + many.formatter p +else + -- can happen with `unboxSingleton = true` + visit (p.getArg! 0) + +@[builtinFormatter Parser.optional] +def optional.formatter : Formatter | p => do +concatArgs $ visit (p.getArg! 0) + +@[builtinFormatter sepBy] +def sepBy.formatter : Formatter | p => do +stx ← getCur; +concatArgs $ (List.range stx.getArgs.size).reverse.forM $ fun i => visit (p.getArg! (i % 2)) + +@[builtinFormatter sepBy1] def sepBy1.formatter := sepBy.formatter + +@[builtinFormatter orelse] def orelse.formatter : Formatter | p => do +st ← get; +-- HACK: We have no (immediate) information on which side of the orelse could have produced the current node, so try +-- them in turn. Uses the syntax traverser non-linearly! +catch (visit (p.getArg! 0)) $ fun e => match e with + | Exception.other _ "BACKTRACK" => set st *> visit (p.getArg! 1) + | _ => throw e + +@[builtinFormatter withPosition] def withPosition.formatter : Formatter | p => do +-- call closure with dummy position +visit $ mkApp (p.getArg! 0) (mkConst `sorryAx [levelZero]) + +@[builtinFormatter setExpected] def setExpected.formatter : Formatter | p => visit (p.getArg! 1) + +@[builtinFormatter checkWsBefore] def checkWsBefore.formatter : Formatter | p => do +modify fun st => { st with leadWord := "" }; +push " " + +@[builtinFormatter checkPrec] def checkPrec.formatter : Formatter | p => pure () +@[builtinFormatter checkStackTop] def checkStackTop.formatter : Formatter | p => pure () +@[builtinFormatter checkNoWsBefore] def checkNoWsBefore.formatter : Formatter | p => pure () +@[builtinFormatter checkTailWs] def checkTailWs.formatter : Formatter | p => pure () +@[builtinFormatter checkColGe] def checkColGe.formatter : Formatter | p => pure () +@[builtinFormatter checkNoImmediateColon] def checkNoImmediateColon.formatter : Formatter | p => pure () + +@[builtinFormatter pushNone] def pushNone.formatter : Formatter | p => goLeft + +open Lean.Parser.Command +@[builtinFormatter commentBody] def commentBody.formatter := visitAtom Name.anonymous + +-- TODO: delete with old frontend +@[builtinFormatter quotedSymbol] def quotedSymbol.formatter : Formatter | p => do +checkKind quotedSymbolKind; +concatArgs do + push "`"; goLeft; + visitAtom Name.anonymous p; + push "`"; goLeft + +@[builtinFormatter unquotedSymbol] def unquotedSymbol.formatter := visitAtom Name.anonymous + +end Formatter + +def format (table : Parser.TokenTable) (parser : Expr) (stx : Syntax) : MetaM Format := Meta.withAtLeastTransparency Meta.TransparencyMode.default do +(_, st) ← Formatter.visit parser { table := table } { stxTrav := Syntax.Traverser.fromSyntax stx }; +pure $ st.stack.get! 0 + +def formatTerm (table) := format table (mkApp (mkConst `Lean.Parser.termParser) (mkNatLit 0)) + +def formatCommand (table) := format table (mkApp (mkConst `Lean.Parser.commandParser) (mkNatLit 0)) + +@[init] private def regTraceClasses : IO Unit := do +registerTraceClass `PrettyPrinter.format; +pure () + end PrettyPrinter end Lean diff --git a/stage0/src/Lean/PrettyPrinter/Parenthesizer.lean b/stage0/src/Lean/PrettyPrinter/Parenthesizer.lean index 178389ea1b..52615af048 100644 --- a/stage0/src/Lean/PrettyPrinter/Parenthesizer.lean +++ b/stage0/src/Lean/PrettyPrinter/Parenthesizer.lean @@ -63,7 +63,7 @@ practice since if there is another parser to the left that produced zero nodes i there is no danger of the left-most child being processed multiple times. Ultimately, most parenthesizers are implemented via three primitives that do all the actual syntax traversal: -`visitParenthesizable mkParen prec` recurses on the current node and afterwards transforms it with `mkParen` if the above +`maybeParenthesize mkParen prec x` runs `x` and afterwards transforms it with `mkParen` if the above condition for `p prec` is fulfilled. `visitToken` advances to the preceding sibling and is used on atoms. `visitArgs x` executes `x` on the last child of the current node and then advances to the preceding sibling (of the original current node). @@ -71,6 +71,7 @@ node). -/ import Lean.Parser +import Lean.Meta import Lean.Elab.Quotation namespace Lean @@ -144,7 +145,8 @@ partial def visit : Parenthesizer | p => do stx ← getCur; -- do reductions _except_ for definition unfolding p ← liftM $ whnfCore p; -trace! `PrettyPrinter.parenthesize ("parenthesizing" ++ MessageData.nest 2 (line ++ stx) ++ line ++ "using" ++ MessageData.nest 2 (line ++ p)); +st ← get; +trace! `PrettyPrinter.parenthesize ("parenthesizing (contPrec := " ++ toString st.contPrec ++ ")" ++ MessageData.nest 2 (line ++ stx) ++ line ++ "using" ++ MessageData.nest 2 (line ++ p)); let c := Expr.constName? p.getAppFn; env ← liftM getEnv; match c >>= (parenthesizerAttribute.ext.getState env).table.find? with @@ -160,9 +162,15 @@ match c >>= (parenthesizerAttribute.ext.getState env).table.find? with else do -- (try to) unfold definition and recurse some p' ← liftM $ unfoldDefinition? p - | throw $ Exception.other $ "no known parenthesizer for '" ++ toString p ++ "'"; + | throw $ Exception.other Syntax.missing $ "no known parenthesizer for '" ++ toString p ++ "'"; visit p' +/-- Continue evaluation of `p` by further reducing it. -/ +def resume : Parenthesizer | p => do +some p' ← liftM $ unfoldDefinition? p + | throw $ Exception.other Syntax.missing $ "no known parenthesizer for '" ++ toString p ++ "'"; +visit p' + open Lean.Parser -- Macro scopes in the parenthesizer output are ultimately ignored by the pretty printer, @@ -173,26 +181,14 @@ instance monadQuotation : MonadQuotation ParenthesizerM := { withFreshMacroScope := fun α x => x, } -def visitAntiquot : ParenthesizerM Unit := do -stx ← getCur; -if Elab.Term.Quotation.isAntiquot stx then visitArgs $ do - -- antiquot syntax is, simplified, `syntax:maxPrec "$" "$"* antiquotExpr ":" (nonReservedSymbol name) "*"?` - goLeft; goLeft; goLeft; -- now on `antiquotExpr` - visit (mkConst `Lean.Parser.antiquotExpr); - addPrecCheck maxPrec -else - throw $ Exception.other $ "not an antiquotation" - -/-- Recurse using `visit`, and parenthesize the result using `mkParen` if necessary. -/ -def visitParenthesizable (mkParen : Syntax → Syntax) (prec : Nat) : ParenthesizerM Unit := do +/-- Run `x` and parenthesize the result using `mkParen` if necessary. -/ +def maybeParenthesize (mkParen : Syntax → Syntax) (prec : Nat) (x : ParenthesizerM Unit) : ParenthesizerM Unit := do stx ← getCur; idx ← getIdx; st ← get; -- reset prec/prec and store `mkParen` for the recursive call set { stxTrav := st.stxTrav }; -adaptReader (fun (ctx : Context) => { ctx with mkParen := some mkParen }) $ - -- we assume that each node kind is produced by a 0-ary parser of the same name - visit (mkConst stx.getKind); +adaptReader (fun (ctx : Context) => { ctx with mkParen := some mkParen }) x; { minPrec := some minPrec, trailPrec := trailPrec, .. } ← get | panic! "visitParenthesizable: visited a term without tokens?!"; trace! `PrettyPrinter.parenthesize ("...precedences are " ++ fmt prec ++ " >? " ++ fmt minPrec ++ ", " ++ fmt trailPrec ++ " <=? " ++ fmt st.contPrec); @@ -229,67 +225,38 @@ def visitToken : Parenthesizer | p => do modify (fun st => { st with contPrec := none, visitedToken := true }); goLeft -def evalNat (e : Expr) : ParenthesizerM Nat := do -e ← liftM $ whnf e; -some n ← pure $ Meta.evalNat e - | throw $ Exception.other $ "failed to evaluate Nat argument: " ++ toString e; -pure n - -def evalOptPrec (e : Expr) : ParenthesizerM Nat := do -e ← liftM $ whnf e; -match e.getAppFn.constName? with -| some `Option.none => pure 0 -| some `Option.some => evalNat e.appArg! -| _ => throw $ Exception.other $ "failed to evaluate precedence: " ++ toString e - -def evalString (e : Expr) : ParenthesizerM String := do -Expr.lit (Literal.strVal s) _ ← liftM $ whnf e - | throw $ Exception.other $ "failed to evaluate String argument: " ++ toString e; -pure s - -partial def evalName : Expr → ParenthesizerM Name | e => do -e ← liftM $ whnf e; -if e.isAppOfArity `Lean.Name.anonymous 0 then - pure Name.anonymous -else if e.isAppOfArity `Lean.Name.str 3 then do - n ← evalName $ e.getArg! 0; - s ← evalString $ e.getArg! 1; - pure $ mkNameStr n s -else if e.isAppOfArity `Lean.Name.num 3 then do - n ← evalName $ e.getArg! 0; - u ← evalNat $ e.getArg! 1; - pure $ mkNameNum n u -else - throw $ Exception.other $ "failed to evaluate Name argument: " ++ toString e +@[builtinParenthesizer categoryParser] +def categoryParser.parenthesizer : Parenthesizer | p => do +stx ← getCur; +-- visit `(mkCategoryAntiquotParser $(p.getArg! 0) <|> $(mkConst stx.getKind)) +visit (mkAppN (mkConst `Lean.Parser.orelse) #[ + mkApp (mkConst `Lean.Parser.mkCategoryAntiquotParser) (p.getArg! 0), + mkConst stx.getKind]) @[builtinParenthesizer termParser] -def termParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do +def termParser.parenthesizer : Parenthesizer | p => do stx ← getCur; -- this can happen at `termParser <|> many1 commandParser` in `Term.stxQuot` if stx.getKind == nullKind then - throw $ Exception.other "BACKTRACK" + throw $ Exception.other Syntax.missing "BACKTRACK" else do - prec ← evalNat p.appArg!; - visitParenthesizable (fun stx => Unhygienic.run `(($stx))) prec + prec ← liftM $ reduceEval p.appArg!; + maybeParenthesize (fun stx => Unhygienic.run `(($stx))) prec (resume p) @[builtinParenthesizer tacticParser] -def tacticParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do -prec ← evalNat p.appArg!; -visitParenthesizable (fun stx => Unhygienic.run `(tactic|($stx))) prec +def tacticParser.parenthesizer : Parenthesizer | p => do +prec ← liftM $ reduceEval p.appArg!; +maybeParenthesize (fun stx => Unhygienic.run `(tactic|($stx))) prec (resume p) @[builtinParenthesizer levelParser] -def levelParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do -prec ← evalNat p.appArg!; -visitParenthesizable (fun stx => Unhygienic.run `(level|($stx))) prec - -@[builtinParenthesizer categoryParser] -def categoryParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do -stx ← getCur; -visit (mkConst stx.getKind) +def levelParser.parenthesizer : Parenthesizer | p => do +prec ← liftM $ reduceEval p.appArg!; +maybeParenthesize (fun stx => Unhygienic.run `(level|($stx))) prec (resume p) @[builtinParenthesizer withAntiquot] def withAntiquot.parenthesizer : Parenthesizer | p => -visitAntiquot <|> visit (p.getArg! 1) +-- deoptimize +visit (mkAppN (mkConst `Lean.Parser.orelse) #[p.getArg! 0, p.getArg! 1]) @[builtinParenthesizer try] def try.parenthesizer : Parenthesizer | p => @@ -302,17 +269,17 @@ visit (p.getArg! 1) *> visit (p.getArg! 0) @[builtinParenthesizer node] def node.parenthesizer : Parenthesizer | p => do stx ← getCur; -k ← evalName $ p.getArg! 0; +k ← liftM $ reduceEval $ p.getArg! 0; when (k != stx.getKind) $ do { trace! `PrettyPrinter.parenthesize.backtrack ("unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'"); -- HACK; see `orelse.parenthesizer` - throw $ Exception.other "BACKTRACK" + throw $ Exception.other Syntax.missing "BACKTRACK" }; visitArgs $ visit p.appArg! @[builtinParenthesizer checkPrec] def checkPrec.parenthesizer : Parenthesizer | p => do -prec ← evalNat $ p.getArg! 0; +prec ← liftM $ reduceEval $ p.getArg! 0; addPrecCheck prec @[builtinParenthesizer leadingNode] @@ -320,20 +287,18 @@ def leadingNode.parenthesizer : Parenthesizer | p => do -- Unfold `leadingNode` as usual, but limit `contPrec` to `maxPrec-1` afterwards. -- This is because `maxPrec-1` is the precedence of function application, which is the only way to turn a leading parser -- into a trailing one. -some p ← liftM $ unfoldDefinition? p - | unreachable!; -visit p; +resume p; modify $ fun st => { st with contPrec := (fun p => Nat.min (maxPrec-1) p) <$> st.contPrec } @[builtinParenthesizer trailingNode] def trailingNode.parenthesizer : Parenthesizer | p => do stx ← getCur; -k ← evalName $ p.getArg! 0; -prec ← evalNat $ p.getArg! 1; +k ← liftM $ reduceEval $ p.getArg! 0; +prec ← liftM $ reduceEval $ p.getArg! 1; when (k != stx.getKind) $ do { trace! `PrettyPrinter.parenthesize.backtrack ("unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'"); -- HACK; see `orelse.parenthesizer` - throw $ Exception.other "BACKTRACK" + throw $ Exception.other Syntax.missing "BACKTRACK" }; visitArgs $ do { visit p.appArg!; @@ -344,7 +309,8 @@ visitArgs $ do { -- parser is calling us; we only need to know its `mkParen`, which we retrieve from the context. { mkParen := some mkParen, .. } ← read | panic! "trailingNode.parenthesizer called outside of visitParenthesizable call"; - visitAntiquot <|> visitParenthesizable mkParen 0 + maybeParenthesize mkParen 0 $ + visit (mkAppN (mkConst `Lean.Parser.categoryParser) #[toExpr `someCategory, mkNatLit 0]) } @[builtinParenthesizer symbol] def symbol.parenthesizer := visitToken @@ -369,7 +335,7 @@ visitArgs $ stx.getArgs.size.forM $ fun _ => visit (p.getArg! 0) @[builtinParenthesizer many1] def many1.parenthesizer : Parenthesizer | p => do stx ← getCur; if stx.getKind == nullKind then - visitArgs $ stx.getArgs.size.forM $ fun _ => visit (p.getArg! 0) + many.parenthesizer p else -- can happen with `unboxSingleton = true` visit (p.getArg! 0) @@ -390,18 +356,23 @@ st ← get; -- HACK: We have no (immediate) information on which side of the orelse could have produced the current node, so try -- them in turn. Uses the syntax traverser non-linearly! catch (visit (p.getArg! 0)) $ fun e => match e with - | Exception.other "BACKTRACK" => set st *> visit (p.getArg! 1) - | _ => throw e + | Exception.other _ "BACKTRACK" => set st *> visit (p.getArg! 1) + | _ => throw e @[builtinParenthesizer withPosition] def withPosition.parenthesizer : Parenthesizer | p => do -- call closure with dummy position visit $ mkApp (p.getArg! 0) (mkConst `sorryAx [levelZero]) +@[builtinParenthesizer setExpected] def setExpected.parenthesizer : Parenthesizer | p => visit (p.getArg! 1) + @[builtinParenthesizer checkStackTop] def checkStackTop.parenthesizer : Parenthesizer | p => pure () @[builtinParenthesizer checkWsBefore] def checkWsBefore.parenthesizer : Parenthesizer | p => pure () @[builtinParenthesizer checkNoWsBefore] def checkNoWsBefore.parenthesizer : Parenthesizer | p => pure () @[builtinParenthesizer checkTailWs] def checkTailWs.parenthesizer : Parenthesizer | p => pure () @[builtinParenthesizer checkColGe] def checkColGe.parenthesizer : Parenthesizer | p => pure () +@[builtinParenthesizer checkNoImmediateColon] def checkNoImmediateColon.parenthesizer : Parenthesizer | p => pure () + +@[builtinParenthesizer pushNone] def pushNone.parenthesizer : Parenthesizer | p => goLeft open Lean.Parser.Command @[builtinParenthesizer commentBody] def commentBody.parenthesizer := visitToken @@ -411,7 +382,7 @@ open Lean.Parser.Command end Parenthesizer /-- Add necessary parentheses in `stx` parsed by `parser`. -/ -def parenthesize (parser : Expr) (stx : Syntax) : MetaM Syntax := do +def parenthesize (parser : Expr) (stx : Syntax) : MetaM Syntax := Meta.withAtLeastTransparency Meta.TransparencyMode.default do (_, st) ← Parenthesizer.visit parser {} { stxTrav := Syntax.Traverser.fromSyntax stx }; pure st.stxTrav.cur diff --git a/stage0/src/Lean/Syntax.lean b/stage0/src/Lean/Syntax.lean index 27723072fc..f853013e1d 100644 --- a/stage0/src/Lean/Syntax.lean +++ b/stage0/src/Lean/Syntax.lean @@ -289,9 +289,9 @@ partial def formatStxAux (maxDepth : Option Nat) (showInfo : Bool) : Nat → Syn | _, missing => "" | depth, node kind args => let depth := depth + 1; - if kind == `Lean.Parser.noKind then + if kind == nullKind then sbracket $ - if depth > maxDepth.getD depth then + if args.size > 0 && depth > maxDepth.getD depth then ".." else joinSep (args.toList.map (formatStxAux depth)) line @@ -299,7 +299,7 @@ partial def formatStxAux (maxDepth : Option Nat) (showInfo : Bool) : Nat → Syn let shorterName := kind.replacePrefix `Lean.Parser Name.anonymous; let header := format shorterName; let body : List Format := - if depth > maxDepth.getD depth then [".."] else args.toList.map (formatStxAux depth); + if args.size > 0 && depth > maxDepth.getD depth then [".."] else args.toList.map (formatStxAux depth); paren $ joinSep (header :: body) line def formatStx (stx : Syntax) (maxDepth : Option Nat := none) (showInfo := false) : Format := @@ -308,6 +308,15 @@ formatStxAux maxDepth showInfo 0 stx instance : HasFormat (Syntax) := ⟨formatStx⟩ instance : HasToString (Syntax) := ⟨toString ∘ format⟩ +partial def structEq : Syntax → Syntax → Bool +| Syntax.missing, Syntax.missing => true +| Syntax.node k args, Syntax.node k' args' => k == k' && args.isEqv args' structEq +| Syntax.atom _ val, Syntax.atom _ val' => val == val' +| Syntax.ident _ rawVal val preresolved, Syntax.ident _ rawVal' val' preresolved' => rawVal == rawVal' && val == val' && preresolved == preresolved' +| _, _ => false + +instance structHasBeq : HasBeq Lean.Syntax := ⟨structEq⟩ + /-- Represents a cursor into a syntax tree that can be read, written, and advanced down/up/left/right. Indices are allowed to be out-of-bound, in which case `cur` is `Syntax.missing`. diff --git a/stage0/src/Lean/Util/PPExt.lean b/stage0/src/Lean/Util/PPExt.lean index 10a0aaf044..2f07ba527f 100644 --- a/stage0/src/Lean/Util/PPExt.lean +++ b/stage0/src/Lean/Util/PPExt.lean @@ -15,10 +15,10 @@ abbrev PPExprFn := Environment → MetavarContext → LocalContext → Options constant ppOld : Environment → MetavarContext → LocalContext → Options → Expr → Format := arbitrary _ def mkPPExprFnRef : IO (IO.Ref PPExprFn) := IO.mkRef ppOld -@[init mkPPExprFnRef] def PPExprFnRef : IO.Ref PPExprFn := arbitrary _ +@[init mkPPExprFnRef] def ppExprFnRef : IO.Ref PPExprFn := arbitrary _ def mkPPExprFnExtension : IO (EnvExtension PPExprFn) := -registerEnvExtension $ PPExprFnRef.get +registerEnvExtension $ ppExprFnRef.get @[init mkPPExprFnExtension] constant ppExprExt : EnvExtension PPExprFn := arbitrary _ diff --git a/stage0/src/Lean/Util/Path.lean b/stage0/src/Lean/Util/Path.lean index 0be0fb4fd8..87bf7d6951 100644 --- a/stage0/src/Lean/Util/Path.lean +++ b/stage0/src/Lean/Util/Path.lean @@ -60,14 +60,17 @@ some root ← sp.findM? (fun path => IO.isDir $ path ++ pathSep ++ pkg) | throw $ IO.userError $ "unknown package '" ++ pkg ++ "'"; pure $ root ++ modPathToFilePath mod ++ ".olean" -/-- Infer module name of source file name, assuming that `lean` is called from the package source root. -/ +/-- Infer module name of source file name. -/ @[export lean_module_name_of_file] -def moduleNameOfFileName (fname : String) : IO Name := do +def moduleNameOfFileName (fname : String) (rootDir : Option String) : IO Name := do fname ← realPathNormalized fname; -root ← IO.currentDir >>= realPathNormalized; -when (!root.isPrefixOf fname) $ - throw $ IO.userError $ "input file '" ++ fname ++ "' must be contained in current directory (" ++ root ++ ")"; -let fnameSuffix := fname.drop root.length; +rootDir ← match rootDir with + | some rootDir => pure rootDir + | none => IO.currentDir; +rootDir ← realPathNormalized rootDir; +when (!rootDir.isPrefixOf fname) $ + throw $ IO.userError $ "input file '" ++ fname ++ "' must be contained in root directory (" ++ rootDir ++ ")"; +let fnameSuffix := fname.drop rootDir.length; let fnameSuffix := if fnameSuffix.get 0 == pathSeparator then fnameSuffix.drop 1 else fnameSuffix; some extPos ← pure (fnameSuffix.revPosOf '.') | throw (IO.userError ("failed to convert file name '" ++ fname ++ "' to module name, extension is missing")); diff --git a/stage0/src/library/compiler/csimp.cpp b/stage0/src/library/compiler/csimp.cpp index de2617d81f..ef2ca32d03 100644 --- a/stage0/src/library/compiler/csimp.cpp +++ b/stage0/src/library/compiler/csimp.cpp @@ -950,7 +950,7 @@ class csimp_fn { let x := Array.size w in C ``` - `f z` and `Array.size w` do not share any free variable, but it `w` is an reference to a field of `w`. + `f z` and `Array.size w` do not share any free variable, but `w` is an reference to a field of `z`. In the example above, `w` is an array, and `f z` will not be able to update the array nested there if we have `let x := Array.size w` after it. diff --git a/stage0/src/shell/lean.cpp b/stage0/src/shell/lean.cpp index c70bd07c3c..a1ab4659d9 100644 --- a/stage0/src/shell/lean.cpp +++ b/stage0/src/shell/lean.cpp @@ -196,6 +196,8 @@ static void display_help(std::ostream & out) { std::cout << " --o=oname -o create olean file\n"; std::cout << " --c=fname -c name of the C output file\n"; std::cout << " --stdin take input from stdin\n"; + std::cout << " --root=dir set package root directory from which the module name of the input file is calculated\n" + << " (default: current working directory)\n"; std::cout << " --trust=num -t trust level (default: max) 0 means do not trust any macro,\n" << " and type check all imported modules\n"; std::cout << " --quiet -q do not print verbose messages\n"; @@ -230,6 +232,7 @@ static struct option g_long_options[] = { {"run", no_argument, 0, 'r'}, {"o", optional_argument, 0, 'o'}, {"stdin", no_argument, 0, 'i'}, + {"root", required_argument, 0, 'R'}, {"memory", required_argument, 0, 'M'}, {"trust", required_argument, 0, 't'}, {"profile", no_argument, 0, 'P'}, @@ -256,7 +259,7 @@ static struct option g_long_options[] = { }; static char const * g_opt_str = - "PdD:o:c:C:qgvht:012j:012rM:012T:012ap:e" + "PdD:o:c:C:qgvht:012j:012rR:M:012T:012ap:e" #if defined(LEAN_MULTI_THREAD) "s:012" #endif @@ -351,9 +354,13 @@ void init_search_path() { get_io_scalar_result(lean_init_search_path(mk_option_none(), io_mk_world())); } -extern "C" object* lean_module_name_of_file(object* fname, object* w); -optional module_name_of_file(std::string const & fname, bool optional) { - object * o = lean_module_name_of_file(mk_string(fname), io_mk_world()); +extern "C" object* lean_module_name_of_file(object* fname, object * root_dir, object* w); +optional module_name_of_file(std::string const & fname, optional const & root_dir, bool optional) { + object * oroot_dir = mk_option_none(); + if (root_dir) { + oroot_dir = mk_option_some(mk_string(*root_dir)); + } + object * o = lean_module_name_of_file(mk_string(fname), oroot_dir, io_mk_world()); if (io_result_is_error(o) && optional) { return lean::optional(); } else { @@ -444,6 +451,7 @@ int main(int argc, char ** argv) { optional server_in; std::string native_output; optional c_output; + optional root_dir; while (true) { int c = getopt_long(argc, argv, g_opt_str, g_long_options, NULL); if (c == -1) @@ -481,6 +489,9 @@ int main(int argc, char ** argv) { case 'o': olean_fn = optarg; break; + case 'R': + root_dir = optarg; + break; case 'M': check_optarg("M"); opts = opts.update(get_max_memory_opt_name(), static_cast(atoi(optarg))); @@ -589,7 +600,7 @@ int main(int argc, char ** argv) { } mod_fn = argv[optind++]; contents = read_file(mod_fn); - main_module_name = module_name_of_file(mod_fn, /* optional */ !olean_fn && !c_output); + main_module_name = module_name_of_file(mod_fn, root_dir, /* optional */ !olean_fn && !c_output); } bool ok = true; diff --git a/stage0/stdlib/CMakeLists.txt b/stage0/stdlib/CMakeLists.txt index b6c71de976..4af1ecf422 100644 --- a/stage0/stdlib/CMakeLists.txt +++ b/stage0/stdlib/CMakeLists.txt @@ -1 +1 @@ -add_library (stage0 OBJECT ./Init.c ./Init/Coe.c ./Init/Control.c ./Init/Control/Alternative.c ./Init/Control/Applicative.c ./Init/Control/Conditional.c ./Init/Control/EState.c ./Init/Control/Except.c ./Init/Control/Functor.c ./Init/Control/Id.c ./Init/Control/Lift.c ./Init/Control/Monad.c ./Init/Control/Option.c ./Init/Control/Reader.c ./Init/Control/State.c ./Init/Core.c ./Init/Data.c ./Init/Data/Array.c ./Init/Data/Array/Basic.c ./Init/Data/Array/BinSearch.c ./Init/Data/Array/QSort.c ./Init/Data/Basic.c ./Init/Data/ByteArray.c ./Init/Data/ByteArray/Basic.c ./Init/Data/Char.c ./Init/Data/Char/Basic.c ./Init/Data/Fin.c ./Init/Data/Fin/Basic.c ./Init/Data/Float.c ./Init/Data/FloatArray.c ./Init/Data/FloatArray/Basic.c ./Init/Data/Hashable.c ./Init/Data/Int.c ./Init/Data/Int/Basic.c ./Init/Data/List.c ./Init/Data/List/Basic.c ./Init/Data/List/BasicAux.c ./Init/Data/List/Control.c ./Init/Data/List/Instances.c ./Init/Data/Nat.c ./Init/Data/Nat/Basic.c ./Init/Data/Nat/Bitwise.c ./Init/Data/Nat/Control.c ./Init/Data/Nat/Div.c ./Init/Data/Option.c ./Init/Data/Option/Basic.c ./Init/Data/Option/BasicAux.c ./Init/Data/Option/Instances.c ./Init/Data/Random.c ./Init/Data/Repr.c ./Init/Data/String.c ./Init/Data/String/Basic.c ./Init/Data/String/Extra.c ./Init/Data/ToString.c ./Init/Data/UInt.c ./Init/Fix.c ./Init/HasCoe.c ./Init/LeanInit.c ./Init/System.c ./Init/System/FilePath.c ./Init/System/IO.c ./Init/System/IOError.c ./Init/System/Platform.c ./Init/Util.c ./Init/WF.c ./Lean.c ./Lean/Attributes.c ./Lean/AuxRecursor.c ./Lean/Class.c ./Lean/Compiler.c ./Lean/Compiler/ClosedTermCache.c ./Lean/Compiler/ConstFolding.c ./Lean/Compiler/ExportAttr.c ./Lean/Compiler/ExternAttr.c ./Lean/Compiler/IR.c ./Lean/Compiler/IR/Basic.c ./Lean/Compiler/IR/Borrow.c ./Lean/Compiler/IR/Boxing.c ./Lean/Compiler/IR/Checker.c ./Lean/Compiler/IR/CompilerM.c ./Lean/Compiler/IR/CtorLayout.c ./Lean/Compiler/IR/ElimDeadBranches.c ./Lean/Compiler/IR/ElimDeadVars.c ./Lean/Compiler/IR/EmitC.c ./Lean/Compiler/IR/EmitUtil.c ./Lean/Compiler/IR/ExpandResetReuse.c ./Lean/Compiler/IR/Format.c ./Lean/Compiler/IR/FreeVars.c ./Lean/Compiler/IR/LiveVars.c ./Lean/Compiler/IR/NormIds.c ./Lean/Compiler/IR/PushProj.c ./Lean/Compiler/IR/RC.c ./Lean/Compiler/IR/ResetReuse.c ./Lean/Compiler/IR/SimpCase.c ./Lean/Compiler/IR/UnboxResult.c ./Lean/Compiler/ImplementedByAttr.c ./Lean/Compiler/InitAttr.c ./Lean/Compiler/InlineAttrs.c ./Lean/Compiler/NameMangling.c ./Lean/Compiler/NeverExtractAttr.c ./Lean/Compiler/Specialize.c ./Lean/Compiler/Util.c ./Lean/Data/Format.c ./Lean/Data/Json.c ./Lean/Data/Json/Basic.c ./Lean/Data/Json/FromToJson.c ./Lean/Data/Json/Parser.c ./Lean/Data/Json/Printer.c ./Lean/Data/KVMap.c ./Lean/Data/LBool.c ./Lean/Data/LOption.c ./Lean/Data/Name.c ./Lean/Data/Occurrences.c ./Lean/Data/Options.c ./Lean/Data/Position.c ./Lean/Data/SMap.c ./Lean/Data/Trie.c ./Lean/Declaration.c ./Lean/Delaborator.c ./Lean/Elab.c ./Lean/Elab/Alias.c ./Lean/Elab/App.c ./Lean/Elab/Binders.c ./Lean/Elab/BuiltinNotation.c ./Lean/Elab/CollectFVars.c ./Lean/Elab/Command.c ./Lean/Elab/DeclModifiers.c ./Lean/Elab/DeclUtil.c ./Lean/Elab/Declaration.c ./Lean/Elab/Definition.c ./Lean/Elab/DoNotation.c ./Lean/Elab/Exception.c ./Lean/Elab/Frontend.c ./Lean/Elab/Import.c ./Lean/Elab/Inductive.c ./Lean/Elab/Level.c ./Lean/Elab/Log.c ./Lean/Elab/Match.c ./Lean/Elab/Print.c ./Lean/Elab/Quotation.c ./Lean/Elab/ResolveName.c ./Lean/Elab/StrategyAttrs.c ./Lean/Elab/StructInst.c ./Lean/Elab/Structure.c ./Lean/Elab/Syntax.c ./Lean/Elab/SyntheticMVars.c ./Lean/Elab/Tactic.c ./Lean/Elab/Tactic/Basic.c ./Lean/Elab/Tactic/ElabTerm.c ./Lean/Elab/Tactic/Generalize.c ./Lean/Elab/Tactic/Induction.c ./Lean/Elab/Tactic/Injection.c ./Lean/Elab/Term.c ./Lean/Elab/Util.c ./Lean/Environment.c ./Lean/EqnCompiler.c ./Lean/EqnCompiler/MatchPattern.c ./Lean/Eval.c ./Lean/Expr.c ./Lean/HeadIndex.c ./Lean/Hygiene.c ./Lean/KeyedDeclsAttribute.c ./Lean/Level.c ./Lean/Linter.c ./Lean/LocalContext.c ./Lean/Message.c ./Lean/Meta.c ./Lean/Meta/AbstractMVars.c ./Lean/Meta/AppBuilder.c ./Lean/Meta/Basic.c ./Lean/Meta/Check.c ./Lean/Meta/DiscrTree.c ./Lean/Meta/DiscrTreeTypes.c ./Lean/Meta/Exception.c ./Lean/Meta/ExprDefEq.c ./Lean/Meta/FunInfo.c ./Lean/Meta/GeneralizeTelescope.c ./Lean/Meta/InferType.c ./Lean/Meta/Instances.c ./Lean/Meta/KAbstract.c ./Lean/Meta/LevelDefEq.c ./Lean/Meta/Message.c ./Lean/Meta/Offset.c ./Lean/Meta/RecursorInfo.c ./Lean/Meta/Reduce.c ./Lean/Meta/SynthInstance.c ./Lean/Meta/Tactic.c ./Lean/Meta/Tactic/Apply.c ./Lean/Meta/Tactic/Assert.c ./Lean/Meta/Tactic/Assumption.c ./Lean/Meta/Tactic/Cases.c ./Lean/Meta/Tactic/Clear.c ./Lean/Meta/Tactic/FVarSubst.c ./Lean/Meta/Tactic/Generalize.c ./Lean/Meta/Tactic/Induction.c ./Lean/Meta/Tactic/Injection.c ./Lean/Meta/Tactic/Intro.c ./Lean/Meta/Tactic/LocalDecl.c ./Lean/Meta/Tactic/Revert.c ./Lean/Meta/Tactic/Rewrite.c ./Lean/Meta/Tactic/Subst.c ./Lean/Meta/Tactic/Target.c ./Lean/Meta/Tactic/Util.c ./Lean/Meta/WHNF.c ./Lean/MetavarContext.c ./Lean/Modifiers.c ./Lean/Parser.c ./Lean/Parser/Command.c ./Lean/Parser/Level.c ./Lean/Parser/Module.c ./Lean/Parser/Parser.c ./Lean/Parser/Syntax.c ./Lean/Parser/Tactic.c ./Lean/Parser/Term.c ./Lean/Parser/Transform.c ./Lean/PrettyPrinter.c ./Lean/PrettyPrinter/Formatter.c ./Lean/PrettyPrinter/Parenthesizer.c ./Lean/ProjFns.c ./Lean/ReducibilityAttrs.c ./Lean/Runtime.c ./Lean/Scopes.c ./Lean/Structure.c ./Lean/Syntax.c ./Lean/ToExpr.c ./Lean/Util.c ./Lean/Util/Closure.c ./Lean/Util/CollectFVars.c ./Lean/Util/CollectLevelParams.c ./Lean/Util/CollectMVars.c ./Lean/Util/Constructions.c ./Lean/Util/FindExpr.c ./Lean/Util/FindMVar.c ./Lean/Util/FoldConsts.c ./Lean/Util/MonadCache.c ./Lean/Util/PPExt.c ./Lean/Util/PPGoal.c ./Lean/Util/Path.c ./Lean/Util/Profile.c ./Lean/Util/RecDepth.c ./Lean/Util/Recognizers.c ./Lean/Util/ReplaceExpr.c ./Lean/Util/ReplaceLevel.c ./Lean/Util/Sorry.c ./Lean/Util/Trace.c ./Lean/Util/WHNF.c ./Std.c ./Std/Data.c ./Std/Data/AssocList.c ./Std/Data/BinomialHeap.c ./Std/Data/DList.c ./Std/Data/HashMap.c ./Std/Data/HashSet.c ./Std/Data/PersistentArray.c ./Std/Data/PersistentHashMap.c ./Std/Data/PersistentHashSet.c ./Std/Data/Queue.c ./Std/Data/RBMap.c ./Std/Data/RBTree.c ./Std/Data/Stack.c ./Std/ShareCommon.c ) +add_library (stage0 OBJECT ./Init.c ./Init/Coe.c ./Init/Control.c ./Init/Control/Alternative.c ./Init/Control/Applicative.c ./Init/Control/Conditional.c ./Init/Control/EState.c ./Init/Control/Except.c ./Init/Control/Functor.c ./Init/Control/Id.c ./Init/Control/Lift.c ./Init/Control/Monad.c ./Init/Control/Option.c ./Init/Control/Reader.c ./Init/Control/State.c ./Init/Core.c ./Init/Data.c ./Init/Data/Array.c ./Init/Data/Array/Basic.c ./Init/Data/Array/BinSearch.c ./Init/Data/Array/QSort.c ./Init/Data/Basic.c ./Init/Data/ByteArray.c ./Init/Data/ByteArray/Basic.c ./Init/Data/Char.c ./Init/Data/Char/Basic.c ./Init/Data/Fin.c ./Init/Data/Fin/Basic.c ./Init/Data/Float.c ./Init/Data/FloatArray.c ./Init/Data/FloatArray/Basic.c ./Init/Data/Hashable.c ./Init/Data/Int.c ./Init/Data/Int/Basic.c ./Init/Data/List.c ./Init/Data/List/Basic.c ./Init/Data/List/BasicAux.c ./Init/Data/List/Control.c ./Init/Data/List/Instances.c ./Init/Data/Nat.c ./Init/Data/Nat/Basic.c ./Init/Data/Nat/Bitwise.c ./Init/Data/Nat/Control.c ./Init/Data/Nat/Div.c ./Init/Data/Option.c ./Init/Data/Option/Basic.c ./Init/Data/Option/BasicAux.c ./Init/Data/Option/Instances.c ./Init/Data/Random.c ./Init/Data/Repr.c ./Init/Data/String.c ./Init/Data/String/Basic.c ./Init/Data/String/Extra.c ./Init/Data/ToString.c ./Init/Data/UInt.c ./Init/Fix.c ./Init/HasCoe.c ./Init/LeanInit.c ./Init/System.c ./Init/System/FilePath.c ./Init/System/IO.c ./Init/System/IOError.c ./Init/System/Platform.c ./Init/Util.c ./Init/WF.c ./Lean.c ./Lean/Attributes.c ./Lean/AuxRecursor.c ./Lean/Class.c ./Lean/Compiler.c ./Lean/Compiler/ClosedTermCache.c ./Lean/Compiler/ConstFolding.c ./Lean/Compiler/ExportAttr.c ./Lean/Compiler/ExternAttr.c ./Lean/Compiler/IR.c ./Lean/Compiler/IR/Basic.c ./Lean/Compiler/IR/Borrow.c ./Lean/Compiler/IR/Boxing.c ./Lean/Compiler/IR/Checker.c ./Lean/Compiler/IR/CompilerM.c ./Lean/Compiler/IR/CtorLayout.c ./Lean/Compiler/IR/ElimDeadBranches.c ./Lean/Compiler/IR/ElimDeadVars.c ./Lean/Compiler/IR/EmitC.c ./Lean/Compiler/IR/EmitUtil.c ./Lean/Compiler/IR/ExpandResetReuse.c ./Lean/Compiler/IR/Format.c ./Lean/Compiler/IR/FreeVars.c ./Lean/Compiler/IR/LiveVars.c ./Lean/Compiler/IR/NormIds.c ./Lean/Compiler/IR/PushProj.c ./Lean/Compiler/IR/RC.c ./Lean/Compiler/IR/ResetReuse.c ./Lean/Compiler/IR/SimpCase.c ./Lean/Compiler/IR/UnboxResult.c ./Lean/Compiler/ImplementedByAttr.c ./Lean/Compiler/InitAttr.c ./Lean/Compiler/InlineAttrs.c ./Lean/Compiler/NameMangling.c ./Lean/Compiler/NeverExtractAttr.c ./Lean/Compiler/Specialize.c ./Lean/Compiler/Util.c ./Lean/Data/Format.c ./Lean/Data/Json.c ./Lean/Data/Json/Basic.c ./Lean/Data/Json/FromToJson.c ./Lean/Data/Json/Parser.c ./Lean/Data/Json/Printer.c ./Lean/Data/KVMap.c ./Lean/Data/LBool.c ./Lean/Data/LOption.c ./Lean/Data/Name.c ./Lean/Data/Occurrences.c ./Lean/Data/Options.c ./Lean/Data/Position.c ./Lean/Data/SMap.c ./Lean/Data/Trie.c ./Lean/Declaration.c ./Lean/Delaborator.c ./Lean/Elab.c ./Lean/Elab/Alias.c ./Lean/Elab/App.c ./Lean/Elab/Binders.c ./Lean/Elab/BuiltinNotation.c ./Lean/Elab/CollectFVars.c ./Lean/Elab/Command.c ./Lean/Elab/DeclModifiers.c ./Lean/Elab/DeclUtil.c ./Lean/Elab/Declaration.c ./Lean/Elab/Definition.c ./Lean/Elab/DoNotation.c ./Lean/Elab/Exception.c ./Lean/Elab/Frontend.c ./Lean/Elab/Import.c ./Lean/Elab/Inductive.c ./Lean/Elab/Level.c ./Lean/Elab/Log.c ./Lean/Elab/Match.c ./Lean/Elab/Print.c ./Lean/Elab/Quotation.c ./Lean/Elab/ResolveName.c ./Lean/Elab/StrategyAttrs.c ./Lean/Elab/StructInst.c ./Lean/Elab/Structure.c ./Lean/Elab/Syntax.c ./Lean/Elab/SyntheticMVars.c ./Lean/Elab/Tactic.c ./Lean/Elab/Tactic/Basic.c ./Lean/Elab/Tactic/ElabTerm.c ./Lean/Elab/Tactic/Generalize.c ./Lean/Elab/Tactic/Induction.c ./Lean/Elab/Tactic/Injection.c ./Lean/Elab/Term.c ./Lean/Elab/Util.c ./Lean/Environment.c ./Lean/Eval.c ./Lean/Expr.c ./Lean/HeadIndex.c ./Lean/Hygiene.c ./Lean/KeyedDeclsAttribute.c ./Lean/Level.c ./Lean/Linter.c ./Lean/LocalContext.c ./Lean/Message.c ./Lean/Meta.c ./Lean/Meta/AbstractMVars.c ./Lean/Meta/AppBuilder.c ./Lean/Meta/Basic.c ./Lean/Meta/Check.c ./Lean/Meta/DiscrTree.c ./Lean/Meta/DiscrTreeTypes.c ./Lean/Meta/EqnCompiler.c ./Lean/Meta/EqnCompiler/CaseArraySizes.c ./Lean/Meta/EqnCompiler/CaseValues.c ./Lean/Meta/EqnCompiler/DepElim.c ./Lean/Meta/EqnCompiler/MVarRenaming.c ./Lean/Meta/EqnCompiler/MatchPattern.c ./Lean/Meta/Exception.c ./Lean/Meta/ExprDefEq.c ./Lean/Meta/FunInfo.c ./Lean/Meta/GeneralizeTelescope.c ./Lean/Meta/InferType.c ./Lean/Meta/Instances.c ./Lean/Meta/KAbstract.c ./Lean/Meta/LevelDefEq.c ./Lean/Meta/Message.c ./Lean/Meta/Offset.c ./Lean/Meta/RecursorInfo.c ./Lean/Meta/Reduce.c ./Lean/Meta/ReduceEval.c ./Lean/Meta/SynthInstance.c ./Lean/Meta/Tactic.c ./Lean/Meta/Tactic/Apply.c ./Lean/Meta/Tactic/Assert.c ./Lean/Meta/Tactic/Assumption.c ./Lean/Meta/Tactic/Cases.c ./Lean/Meta/Tactic/Clear.c ./Lean/Meta/Tactic/FVarSubst.c ./Lean/Meta/Tactic/Generalize.c ./Lean/Meta/Tactic/Induction.c ./Lean/Meta/Tactic/Injection.c ./Lean/Meta/Tactic/Intro.c ./Lean/Meta/Tactic/LocalDecl.c ./Lean/Meta/Tactic/Revert.c ./Lean/Meta/Tactic/Rewrite.c ./Lean/Meta/Tactic/Subst.c ./Lean/Meta/Tactic/Target.c ./Lean/Meta/Tactic/Util.c ./Lean/Meta/WHNF.c ./Lean/MetavarContext.c ./Lean/Modifiers.c ./Lean/Parser.c ./Lean/Parser/Command.c ./Lean/Parser/Level.c ./Lean/Parser/Module.c ./Lean/Parser/Parser.c ./Lean/Parser/Syntax.c ./Lean/Parser/Tactic.c ./Lean/Parser/Term.c ./Lean/Parser/Transform.c ./Lean/PrettyPrinter.c ./Lean/PrettyPrinter/Formatter.c ./Lean/PrettyPrinter/Parenthesizer.c ./Lean/ProjFns.c ./Lean/ReducibilityAttrs.c ./Lean/Runtime.c ./Lean/Scopes.c ./Lean/Structure.c ./Lean/Syntax.c ./Lean/ToExpr.c ./Lean/Util.c ./Lean/Util/Closure.c ./Lean/Util/CollectFVars.c ./Lean/Util/CollectLevelParams.c ./Lean/Util/CollectMVars.c ./Lean/Util/Constructions.c ./Lean/Util/FindExpr.c ./Lean/Util/FindMVar.c ./Lean/Util/FoldConsts.c ./Lean/Util/MonadCache.c ./Lean/Util/PPExt.c ./Lean/Util/PPGoal.c ./Lean/Util/Path.c ./Lean/Util/Profile.c ./Lean/Util/RecDepth.c ./Lean/Util/Recognizers.c ./Lean/Util/ReplaceExpr.c ./Lean/Util/ReplaceLevel.c ./Lean/Util/Sorry.c ./Lean/Util/Trace.c ./Lean/Util/WHNF.c ./Std.c ./Std/Data.c ./Std/Data/AssocList.c ./Std/Data/BinomialHeap.c ./Std/Data/DList.c ./Std/Data/HashMap.c ./Std/Data/HashSet.c ./Std/Data/PersistentArray.c ./Std/Data/PersistentHashMap.c ./Std/Data/PersistentHashSet.c ./Std/Data/Queue.c ./Std/Data/RBMap.c ./Std/Data/RBTree.c ./Std/Data/Stack.c ./Std/ShareCommon.c ) diff --git a/stage0/stdlib/Init/Data/Array/Basic.c b/stage0/stdlib/Init/Data/Array/Basic.c index 45d32cc6f2..17346671cc 100644 --- a/stage0/stdlib/Init/Data/Array/Basic.c +++ b/stage0/stdlib/Init/Data/Array/Basic.c @@ -21,6 +21,7 @@ lean_object* l_Array_findM_x3f(lean_object*, lean_object*); lean_object* l_List_repr___rarg(lean_object*, lean_object*); lean_object* l_Array_anyRangeM___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toListLitAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldl_u2082___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateM_u2082Aux___main(lean_object*, lean_object*); lean_object* l_Array_iterate_u2082(lean_object*, lean_object*, lean_object*); @@ -50,6 +51,7 @@ lean_object* l_Array_mapIdxM(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_mapM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Array_anyRange___spec__2(lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Array_allM___spec__1___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); +lean_object* l_Array_toListLitAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_eraseIdx___rarg(lean_object*, lean_object*); lean_object* lean_array_uget(lean_object*, size_t); lean_object* l_Array_umapIdxM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -197,6 +199,7 @@ lean_object* l_Array_findSome_x21___rarg___closed__2; lean_object* l_Array_mapIdx(lean_object*, lean_object*); lean_object* l_Array_indexOfAux___main(lean_object*); lean_object* l_Array_getLit___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toListLitAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_getLit(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_foldlFrom___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_HasRepr___rarg___closed__1; @@ -213,12 +216,14 @@ lean_object* l_Array_foldlStepMAux___main___rarg___lambda__1(lean_object*, lean_ lean_object* l_Array_forRevMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_HasRepr___rarg___boxed(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_Array_toListLitAux___main(lean_object*); lean_object* l_Array_HasToString___rarg___boxed(lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Array_allM___spec__1___rarg___lambda__1___boxed(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Array_mapIdx___spec__1(lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Array_iterateRev___spec__1(lean_object*, lean_object*); lean_object* l_Array_iterateM_u2082Aux(lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Array_toList___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toArrayLit___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Array_extract___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_findIdxAux___main___at_Array_getIdx_x3f___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -272,6 +277,7 @@ uint8_t l_Array_anyRangeMAux___main___at_Array_anyRange___spec__1___rarg(lean_ob lean_object* l___private_Init_Data_Array_Basic_4__foldrRangeMAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); lean_object* l_Array_umapMAux___main___at_Array_mapIdx___spec__1___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toArrayLit(lean_object*); lean_object* l_Array_shrink___rarg___boxed(lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Array_allM___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Array_allRangeM___spec__1___rarg___lambda__1(lean_object*, uint8_t); @@ -315,6 +321,7 @@ lean_object* l_Array_findSomeRevMAux___rarg(lean_object*, lean_object*, lean_obj lean_object* l_Array_forMAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_findRevM_x3f(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_foldl___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toListLitAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_toList___rarg___boxed(lean_object*); lean_object* l_Array_reverse___rarg(lean_object*); lean_object* l_Array_findRev_x3f___rarg___boxed(lean_object*, lean_object*); @@ -538,6 +545,7 @@ lean_object* l_Array_iterateMAux___main___at_Array_mapIdxM___spec__1(lean_object lean_object* l_Array_findSomeMAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_sz___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toListLitAux(lean_object*); lean_object* l_Array_findMAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Array_foldlStep___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -572,6 +580,7 @@ lean_object* l_Array_findSomeM_x3f(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Array_umapM___spec__1(lean_object*, lean_object*); lean_object* l_Array_iterate___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyFrom(lean_object*); +lean_object* l_Array_toArrayLit___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_set_x21___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_1__swapAtPanic_x21___rarg___closed__1; lean_object* l_Array_foldrRange(lean_object*, lean_object*); @@ -8201,6 +8210,111 @@ x_2 = lean_alloc_closure((void*)(l_List_toArray___rarg), 1, 0); return x_2; } } +lean_object* l_Array_toListLitAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_nat_dec_eq(x_4, x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_4, x_9); +lean_dec(x_4); +x_11 = lean_array_fget(x_1, x_10); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_6); +x_3 = lean_box(0); +x_4 = x_10; +x_5 = lean_box(0); +x_6 = x_12; +goto _start; +} +else +{ +lean_dec(x_4); +return x_6; +} +} +} +lean_object* l_Array_toListLitAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_toListLitAux___main___rarg___boxed), 6, 0); +return x_2; +} +} +lean_object* l_Array_toListLitAux___main___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_Array_toListLitAux___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* l_Array_toListLitAux___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; +x_7 = l_Array_toListLitAux___main___rarg(x_1, x_2, lean_box(0), x_4, lean_box(0), x_6); +return x_7; +} +} +lean_object* l_Array_toListLitAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_toListLitAux___rarg___boxed), 6, 0); +return x_2; +} +} +lean_object* l_Array_toListLitAux___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_Array_toListLitAux___rarg(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* l_Array_toArrayLit___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_box(0); +lean_inc(x_2); +x_5 = l_Array_toListLitAux___main___rarg(x_1, x_2, lean_box(0), x_2, lean_box(0), x_4); +lean_dec(x_2); +x_6 = l_List_redLength___main___rarg(x_5); +x_7 = lean_mk_empty_array_with_capacity(x_6); +lean_dec(x_6); +x_8 = l_List_toArrayAux___main___rarg(x_5, x_7); +return x_8; +} +} +lean_object* l_Array_toArrayLit(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_toArrayLit___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Array_toArrayLit___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Array_toArrayLit___rarg(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} lean_object* initialize_Init_Data_Nat_Basic(lean_object*); lean_object* initialize_Init_Data_Fin_Basic(lean_object*); lean_object* initialize_Init_Data_UInt(lean_object*); diff --git a/stage0/stdlib/Init/Data/String/Basic.c b/stage0/stdlib/Init/Data/String/Basic.c index f8312c8545..86538f2450 100644 --- a/stage0/stdlib/Init/Data/String/Basic.c +++ b/stage0/stdlib/Init/Data/String/Basic.c @@ -99,6 +99,7 @@ lean_object* l_String_anyAux___main___boxed(lean_object*, lean_object*, lean_obj lean_object* l_Substring_takeRightWhileAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_repeatAux___main___at_String_pushn___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Substring_hasBeq___closed__1; lean_object* l_String_trim___boxed(lean_object*); lean_object* l_String_foldrAux___main(lean_object*); lean_object* l___private_Init_Data_String_Basic_5__utf8PrevAux___main(lean_object*, lean_object*, lean_object*); @@ -153,6 +154,7 @@ lean_object* l_String_bsize___boxed(lean_object*); lean_object* l_String_Iterator_forward___main(lean_object*, lean_object*); lean_object* l_String_singleton(uint32_t); lean_object* l_String_Iterator_pos(lean_object*); +lean_object* l_Substring_beq___boxed(lean_object*, lean_object*); lean_object* l_String_Iterator_prev(lean_object*); uint32_t l_String_back(lean_object*); uint8_t l_String_all(lean_object*, lean_object*); @@ -163,6 +165,7 @@ lean_object* l_Substring_take___boxed(lean_object*, lean_object*); lean_object* l_String_takeRight(lean_object*, lean_object*); lean_object* l_Substring_toIterator(lean_object*); lean_object* l_Substring_splitOnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Substring_hasBeq; lean_object* l_String_Iterator_toString___boxed(lean_object*); uint8_t l_String_isNat(lean_object*); lean_object* l_Substring_takeWhileAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -179,6 +182,7 @@ lean_object* l_String_Iterator_prevn(lean_object*, lean_object*); lean_object* l_String_foldl(lean_object*); lean_object* l___private_Init_Data_String_Basic_7__utf8ExtractAux_u2081(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_String_foldr___rarg(lean_object*, lean_object*, lean_object*); +uint8_t l_Substring_beq(lean_object*, lean_object*); lean_object* l_String_anyAux___main___at_Substring_all___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_String_Iterator_next(lean_object*); lean_object* l_String_nextUntil___boxed(lean_object*, lean_object*, lean_object*); @@ -4629,6 +4633,51 @@ return x_9; } } } +uint8_t l_Substring_beq(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; uint8_t x_11; +x_3 = lean_ctor_get(x_1, 0); +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_ctor_get(x_1, 2); +x_6 = lean_string_utf8_extract(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_2, 0); +x_8 = lean_ctor_get(x_2, 1); +x_9 = lean_ctor_get(x_2, 2); +x_10 = lean_string_utf8_extract(x_7, x_8, x_9); +x_11 = lean_string_dec_eq(x_6, x_10); +lean_dec(x_10); +lean_dec(x_6); +return x_11; +} +} +lean_object* l_Substring_beq___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Substring_beq(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* _init_l_Substring_hasBeq___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Substring_beq___boxed), 2, 0); +return x_1; +} +} +lean_object* _init_l_Substring_hasBeq() { +_start: +{ +lean_object* x_1; +x_1 = l_Substring_hasBeq___closed__1; +return x_1; +} +} lean_object* _init_l_String_drop___closed__1() { _start: { @@ -5032,6 +5081,10 @@ l_Substring_drop___closed__2 = _init_l_Substring_drop___closed__2(); lean_mark_persistent(l_Substring_drop___closed__2); l_Substring_extract___closed__1 = _init_l_Substring_extract___closed__1(); lean_mark_persistent(l_Substring_extract___closed__1); +l_Substring_hasBeq___closed__1 = _init_l_Substring_hasBeq___closed__1(); +lean_mark_persistent(l_Substring_hasBeq___closed__1); +l_Substring_hasBeq = _init_l_Substring_hasBeq(); +lean_mark_persistent(l_Substring_hasBeq); l_String_drop___closed__1 = _init_l_String_drop___closed__1(); lean_mark_persistent(l_String_drop___closed__1); return lean_mk_io_result(lean_box(0)); diff --git a/stage0/stdlib/Init/Util.c b/stage0/stdlib/Init/Util.c index 52c62916eb..b739f5b3ec 100644 --- a/stage0/stdlib/Init/Util.c +++ b/stage0/stdlib/Init/Util.c @@ -34,9 +34,11 @@ lean_object* l_withPtrEqResult___rarg___boxed(lean_object*, lean_object*, lean_o lean_object* l_withPtrEqResultUnsafe(lean_object*, lean_object*, lean_object*); lean_object* l_withPtrEqDecEq(lean_object*); lean_object* l_withPtrEqResultUnsafe___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_dbgTraceVal___rarg(lean_object*, lean_object*); lean_object* l_panicWithPos___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_withPtrEqResultUnsafe___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_dbg_sleep(uint32_t, lean_object*); +lean_object* l_dbgTraceVal___rarg___lambda__1(lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); lean_object* l_withPtrAddr___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_withPtrEq(lean_object*, lean_object*, lean_object*); @@ -48,6 +50,7 @@ size_t lean_ptr_addr(lean_object*); lean_object* l_withPtrEqUnsafe___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_unreachable_x21(lean_object*); lean_object* l_unreachable_x21___rarg___closed__3; +lean_object* l_dbgTraceVal___rarg___lambda__1___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Util_1__mkPanicMessage___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_panicWithPos(lean_object*); lean_object* l___private_Init_Util_1__mkPanicMessage___closed__1; @@ -62,6 +65,7 @@ lean_object* l___private_Init_Util_1__mkPanicMessage___closed__3; lean_object* l_dbgSleep___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_withPtrAddrUnsafe___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_ptrAddrUnsafe___boxed(lean_object*, lean_object*); +lean_object* l_dbgTraceVal(lean_object*); lean_object* l_unsafeCast___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_dbgTrace___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: @@ -71,6 +75,43 @@ x_4 = lean_dbg_trace(x_2, x_3); return x_4; } } +lean_object* l_dbgTraceVal___rarg___lambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_dbgTraceVal___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +lean_inc(x_2); +x_3 = lean_apply_1(x_1, x_2); +x_4 = lean_alloc_closure((void*)(l_dbgTraceVal___rarg___lambda__1___boxed), 2, 1); +lean_closure_set(x_4, 0, x_2); +x_5 = lean_dbg_trace(x_3, x_4); +return x_5; +} +} +lean_object* l_dbgTraceVal(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_dbgTraceVal___rarg), 2, 0); +return x_2; +} +} +lean_object* l_dbgTraceVal___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_dbgTraceVal___rarg___lambda__1(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} lean_object* l_dbgTraceIfShared___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -208,7 +249,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_unreachable_x21___rarg___closed__1; -x_2 = lean_unsigned_to_nat(40u); +x_2 = lean_unsigned_to_nat(43u); x_3 = lean_unsigned_to_nat(0u); x_4 = l_unreachable_x21___rarg___closed__2; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); diff --git a/stage0/stdlib/Lean.c b/stage0/stdlib/Lean.c index 5881ced8e2..0eaee365f9 100644 --- a/stage0/stdlib/Lean.c +++ b/stage0/stdlib/Lean.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean -// Imports: Init Lean.Compiler Lean.Environment Lean.Modifiers Lean.ProjFns Lean.Runtime Lean.Attributes Lean.Parser Lean.ReducibilityAttrs Lean.Elab Lean.EqnCompiler Lean.Class Lean.LocalContext Lean.MetavarContext Lean.AuxRecursor Lean.Linter Lean.Meta Lean.Util Lean.Eval Lean.Structure Lean.Delaborator Lean.PrettyPrinter +// Imports: Init Lean.Compiler Lean.Environment Lean.Modifiers Lean.ProjFns Lean.Runtime Lean.Attributes Lean.Parser Lean.ReducibilityAttrs Lean.Elab Lean.Class Lean.LocalContext Lean.MetavarContext Lean.AuxRecursor Lean.Linter Lean.Meta Lean.Util Lean.Eval Lean.Structure Lean.Delaborator Lean.PrettyPrinter #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -23,7 +23,6 @@ lean_object* initialize_Lean_Attributes(lean_object*); lean_object* initialize_Lean_Parser(lean_object*); lean_object* initialize_Lean_ReducibilityAttrs(lean_object*); lean_object* initialize_Lean_Elab(lean_object*); -lean_object* initialize_Lean_EqnCompiler(lean_object*); lean_object* initialize_Lean_Class(lean_object*); lean_object* initialize_Lean_LocalContext(lean_object*); lean_object* initialize_Lean_MetavarContext(lean_object*); @@ -70,9 +69,6 @@ lean_dec_ref(res); res = initialize_Lean_Elab(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Lean_EqnCompiler(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Lean_Class(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Lean/Compiler/InlineAttrs.c b/stage0/stdlib/Lean/Compiler/InlineAttrs.c index 70e0bd33d0..ca8537cdfe 100644 --- a/stage0/stdlib/Lean/Compiler/InlineAttrs.c +++ b/stage0/stdlib/Lean/Compiler/InlineAttrs.c @@ -105,6 +105,7 @@ extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed_ extern lean_object* l_Lean_EnumAttributes_Inhabited___closed__1; lean_object* l_Lean_Compiler_mkInlineAttrs___closed__1; lean_object* l_Lean_EnumAttributes_getValue___at___private_Lean_Compiler_InlineAttrs_1__hasInlineAttrAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Compiler_setInlineAttribute___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Std_RBNode_fold___main___at_Lean_Compiler_mkInlineAttrs___spec__2___boxed(lean_object*, lean_object*); uint8_t lean_nat_dec_le(lean_object*, lean_object*); uint8_t l_Lean_Name_isInternal___main(lean_object*); @@ -125,12 +126,14 @@ lean_object* l_Lean_Compiler_mkInlineAttrs___closed__12; lean_object* lean_io_initializing(lean_object*); extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Array_qsortAux___main___at_Lean_Compiler_mkInlineAttrs___spec__3(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_EnumAttributes_setValue___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_Compiler_mkInlineAttrs___spec__8___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Compiler_mkInlineAttrs(lean_object*); lean_object* l_Lean_Compiler_mkInlineAttrs___closed__26; lean_object* l_Lean_registerEnumAttributes___at_Lean_Compiler_mkInlineAttrs___spec__1___lambda__2(lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); +lean_object* l_Lean_Compiler_setInlineAttribute(lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Compiler_mkInlineAttrs___closed__11; extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__4; lean_object* l_Lean_registerEnumAttributes___at_Lean_Compiler_mkInlineAttrs___spec__1___lambda__1(lean_object*, lean_object*); @@ -2364,6 +2367,26 @@ x_4 = lean_box(x_3); return x_4; } } +lean_object* l_Lean_Compiler_setInlineAttribute(lean_object* x_1, lean_object* x_2, uint8_t x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = l_Lean_Compiler_inlineAttrs; +x_5 = lean_box(x_3); +x_6 = l_Lean_EnumAttributes_setValue___rarg(x_4, x_1, x_2, x_5); +return x_6; +} +} +lean_object* l_Lean_Compiler_setInlineAttribute___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; lean_object* x_5; +x_4 = lean_unbox(x_3); +lean_dec(x_3); +x_5 = l_Lean_Compiler_setInlineAttribute(x_1, x_2, x_4); +return x_5; +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Attributes(lean_object*); lean_object* initialize_Lean_Compiler_Util(lean_object*); diff --git a/stage0/stdlib/Lean/Delaborator.c b/stage0/stdlib/Lean/Delaborator.c index ed4a5ba499..d28dee888d 100644 --- a/stage0/stdlib/Lean/Delaborator.c +++ b/stage0/stdlib/Lean/Delaborator.c @@ -141,6 +141,7 @@ lean_object* l_Lean_Delaborator_delabCoe___lambda__1(lean_object*, lean_object*, extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l___regBuiltin_Lean_Delaborator_delabCoe___closed__1; uint8_t l_Lean_getPPUniverses(lean_object*); +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; extern lean_object* l_Lean_mkAppStx___closed__7; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* lean_get_projection_info(lean_object*, lean_object*); @@ -233,7 +234,6 @@ size_t l_Lean_Name_hash(lean_object*); lean_object* l_Nat_repr(lean_object*); uint8_t l_Lean_LocalDecl_binderInfo(lean_object*); extern lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__5; -extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; extern lean_object* l_Lean_Parser_Term_namedHole___elambda__1___closed__2; lean_object* l_Lean_Delaborator_getExprKind___closed__26; lean_object* l_Lean_Delaborator_delabFor___main(lean_object*, lean_object*, lean_object*, lean_object*); @@ -327,7 +327,7 @@ lean_object* l_Lean_SMap_empty___at_Lean_Delaborator_delabAttribute___spec__1___ lean_object* l_Lean_Meta_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Delaborator_delabProjectionApp(lean_object*); lean_object* l___regBuiltin_Lean_Delaborator_delabAppExplicit___closed__1; -lean_object* l_Lean_delab(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_delab(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Delaborator_delabLam___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Delaborator_mkDelabAttribute___closed__13; lean_object* l_Lean_Delaborator_delabFor(lean_object*, lean_object*, lean_object*, lean_object*); @@ -7708,7 +7708,7 @@ return x_2; lean_object* l_Lean_Delaborator_delab(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; lean_object* x_17; +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; lean_object* x_17; lean_object* x_18; x_4 = l_Lean_Delaborator_getExprKind(x_1, x_2, x_3); x_5 = lean_ctor_get(x_4, 0); lean_inc(x_5); @@ -7733,115 +7733,117 @@ x_14 = l_Lean_Elab_Term_mkConst___closed__4; x_15 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_15, 0, x_13); lean_ctor_set(x_15, 1, x_14); -x_16 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_16, 0, x_15); -x_17 = l_Lean_Delaborator_delabFor___main(x_7, x_1, x_2, x_6); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_18; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); +x_16 = lean_box(0); +x_17 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_17, 0, x_16); +lean_ctor_set(x_17, 1, x_15); +x_18 = l_Lean_Delaborator_delabFor___main(x_7, x_1, x_2, x_6); if (lean_obj_tag(x_18) == 0) { -uint8_t x_19; -x_19 = !lean_is_exclusive(x_17); -if (x_19 == 0) +lean_object* x_19; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +if (lean_obj_tag(x_19) == 0) { -lean_object* x_20; -x_20 = lean_ctor_get(x_17, 0); -lean_dec(x_20); -lean_ctor_set_tag(x_17, 1); -lean_ctor_set(x_17, 0, x_16); -return x_17; +uint8_t x_20; +x_20 = !lean_is_exclusive(x_18); +if (x_20 == 0) +{ +lean_object* x_21; +x_21 = lean_ctor_get(x_18, 0); +lean_dec(x_21); +lean_ctor_set_tag(x_18, 1); +lean_ctor_set(x_18, 0, x_17); +return x_18; } else { -lean_object* x_21; lean_object* x_22; -x_21 = lean_ctor_get(x_17, 1); -lean_inc(x_21); -lean_dec(x_17); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_16); -lean_ctor_set(x_22, 1, x_21); -return x_22; -} -} -else -{ -uint8_t x_23; -lean_dec(x_16); -x_23 = !lean_is_exclusive(x_17); -if (x_23 == 0) -{ -lean_object* x_24; uint8_t x_25; -x_24 = lean_ctor_get(x_17, 0); -lean_dec(x_24); -x_25 = !lean_is_exclusive(x_18); -if (x_25 == 0) -{ -return x_17; -} -else -{ -lean_object* x_26; lean_object* x_27; -x_26 = lean_ctor_get(x_18, 0); -lean_inc(x_26); +lean_object* x_22; lean_object* x_23; +x_22 = lean_ctor_get(x_18, 1); +lean_inc(x_22); lean_dec(x_18); -x_27 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_17, 0, x_27); -return x_17; +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_17); +lean_ctor_set(x_23, 1, x_22); +return x_23; } } else { -lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_28 = lean_ctor_get(x_17, 1); -lean_inc(x_28); +uint8_t x_24; lean_dec(x_17); -x_29 = lean_ctor_get(x_18, 0); +x_24 = !lean_is_exclusive(x_18); +if (x_24 == 0) +{ +lean_object* x_25; uint8_t x_26; +x_25 = lean_ctor_get(x_18, 0); +lean_dec(x_25); +x_26 = !lean_is_exclusive(x_19); +if (x_26 == 0) +{ +return x_18; +} +else +{ +lean_object* x_27; lean_object* x_28; +x_27 = lean_ctor_get(x_19, 0); +lean_inc(x_27); +lean_dec(x_19); +x_28 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_18, 0, x_28); +return x_18; +} +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_29 = lean_ctor_get(x_18, 1); lean_inc(x_29); -if (lean_is_exclusive(x_18)) { - lean_ctor_release(x_18, 0); - x_30 = x_18; +lean_dec(x_18); +x_30 = lean_ctor_get(x_19, 0); +lean_inc(x_30); +if (lean_is_exclusive(x_19)) { + lean_ctor_release(x_19, 0); + x_31 = x_19; } else { - lean_dec_ref(x_18); - x_30 = lean_box(0); + lean_dec_ref(x_19); + x_31 = lean_box(0); } -if (lean_is_scalar(x_30)) { - x_31 = lean_alloc_ctor(1, 1, 0); +if (lean_is_scalar(x_31)) { + x_32 = lean_alloc_ctor(1, 1, 0); } else { - x_31 = x_30; + x_32 = x_31; } -lean_ctor_set(x_31, 0, x_29); -x_32 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_28); -return x_32; +lean_ctor_set(x_32, 0, x_30); +x_33 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_29); +return x_33; } } } else { -uint8_t x_33; -lean_dec(x_16); -x_33 = !lean_is_exclusive(x_17); -if (x_33 == 0) -{ -return x_17; -} -else -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_34 = lean_ctor_get(x_17, 0); -x_35 = lean_ctor_get(x_17, 1); -lean_inc(x_35); -lean_inc(x_34); +uint8_t x_34; lean_dec(x_17); -x_36 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_36, 0, x_34); -lean_ctor_set(x_36, 1, x_35); -return x_36; +x_34 = !lean_is_exclusive(x_18); +if (x_34 == 0) +{ +return x_18; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_35 = lean_ctor_get(x_18, 0); +x_36 = lean_ctor_get(x_18, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_18); +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; } } } @@ -13843,7 +13845,7 @@ lean_ctor_set(x_42, 0, x_41); lean_ctor_set(x_42, 1, x_40); x_43 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_44 = lean_array_push(x_43, x_42); -x_45 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_45 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_46 = lean_array_push(x_44, x_45); x_47 = lean_array_push(x_46, x_2); x_48 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -13886,7 +13888,7 @@ lean_ctor_set(x_62, 0, x_61); lean_ctor_set(x_62, 1, x_60); x_63 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_64 = lean_array_push(x_63, x_62); -x_65 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_65 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_66 = lean_array_push(x_64, x_65); x_67 = lean_array_push(x_66, x_55); x_68 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -13985,7 +13987,7 @@ lean_ctor_set(x_108, 0, x_96); lean_ctor_set(x_108, 1, x_107); x_109 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_110 = lean_array_push(x_109, x_108); -x_111 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_111 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_112 = lean_array_push(x_110, x_111); x_113 = lean_array_push(x_112, x_2); x_114 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14024,7 +14026,7 @@ lean_ctor_set(x_124, 0, x_96); lean_ctor_set(x_124, 1, x_123); x_125 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_126 = lean_array_push(x_125, x_124); -x_127 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_127 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_128 = lean_array_push(x_126, x_127); x_129 = lean_array_push(x_128, x_120); x_130 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14123,7 +14125,7 @@ lean_ctor_set(x_170, 0, x_148); lean_ctor_set(x_170, 1, x_169); x_171 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_172 = lean_array_push(x_171, x_170); -x_173 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_173 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_174 = lean_array_push(x_172, x_173); x_175 = lean_array_push(x_174, x_2); x_176 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14162,7 +14164,7 @@ lean_ctor_set(x_186, 0, x_148); lean_ctor_set(x_186, 1, x_185); x_187 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_188 = lean_array_push(x_187, x_186); -x_189 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_189 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_190 = lean_array_push(x_188, x_189); x_191 = lean_array_push(x_190, x_182); x_192 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14250,7 +14252,7 @@ lean_ctor_set(x_220, 0, x_208); lean_ctor_set(x_220, 1, x_219); x_221 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_222 = lean_array_push(x_221, x_220); -x_223 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_223 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_224 = lean_array_push(x_222, x_223); x_225 = lean_array_push(x_224, x_2); x_226 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14290,7 +14292,7 @@ lean_ctor_set(x_237, 0, x_208); lean_ctor_set(x_237, 1, x_236); x_238 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_239 = lean_array_push(x_238, x_237); -x_240 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_240 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_241 = lean_array_push(x_239, x_240); x_242 = lean_array_push(x_241, x_233); x_243 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14372,7 +14374,7 @@ lean_ctor_set(x_272, 0, x_258); lean_ctor_set(x_272, 1, x_271); x_273 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_274 = lean_array_push(x_273, x_272); -x_275 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_275 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_276 = lean_array_push(x_274, x_275); x_277 = lean_array_push(x_276, x_2); x_278 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14412,7 +14414,7 @@ lean_ctor_set(x_289, 0, x_258); lean_ctor_set(x_289, 1, x_288); x_290 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_291 = lean_array_push(x_290, x_289); -x_292 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_292 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_293 = lean_array_push(x_291, x_292); x_294 = lean_array_push(x_293, x_285); x_295 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14537,7 +14539,7 @@ lean_ctor_set(x_325, 0, x_324); lean_ctor_set(x_325, 1, x_323); x_326 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_327 = lean_array_push(x_326, x_325); -x_328 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_328 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_329 = lean_array_push(x_327, x_328); x_330 = lean_array_push(x_329, x_2); x_331 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14580,7 +14582,7 @@ lean_ctor_set(x_345, 0, x_344); lean_ctor_set(x_345, 1, x_343); x_346 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_347 = lean_array_push(x_346, x_345); -x_348 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_348 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_349 = lean_array_push(x_347, x_348); x_350 = lean_array_push(x_349, x_338); x_351 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14687,7 +14689,7 @@ lean_ctor_set(x_383, 0, x_372); lean_ctor_set(x_383, 1, x_382); x_384 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_385 = lean_array_push(x_384, x_383); -x_386 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_386 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_387 = lean_array_push(x_385, x_386); x_388 = lean_array_push(x_387, x_2); x_389 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14728,7 +14730,7 @@ lean_ctor_set(x_401, 0, x_372); lean_ctor_set(x_401, 1, x_400); x_402 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_403 = lean_array_push(x_402, x_401); -x_404 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_404 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_405 = lean_array_push(x_403, x_404); x_406 = lean_array_push(x_405, x_396); x_407 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14852,7 +14854,7 @@ lean_ctor_set(x_437, 0, x_436); lean_ctor_set(x_437, 1, x_435); x_438 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_439 = lean_array_push(x_438, x_437); -x_440 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_440 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_441 = lean_array_push(x_439, x_440); x_442 = lean_array_push(x_441, x_2); x_443 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -14895,7 +14897,7 @@ lean_ctor_set(x_457, 0, x_456); lean_ctor_set(x_457, 1, x_455); x_458 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_459 = lean_array_push(x_458, x_457); -x_460 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_460 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_461 = lean_array_push(x_459, x_460); x_462 = lean_array_push(x_461, x_450); x_463 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15121,7 +15123,7 @@ lean_ctor_set(x_526, 0, x_525); lean_ctor_set(x_526, 1, x_524); x_527 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_528 = lean_array_push(x_527, x_526); -x_529 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_529 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_530 = lean_array_push(x_528, x_529); x_531 = lean_array_push(x_530, x_2); x_532 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15164,7 +15166,7 @@ lean_ctor_set(x_546, 0, x_545); lean_ctor_set(x_546, 1, x_544); x_547 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_548 = lean_array_push(x_547, x_546); -x_549 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_549 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_550 = lean_array_push(x_548, x_549); x_551 = lean_array_push(x_550, x_539); x_552 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15263,7 +15265,7 @@ lean_ctor_set(x_592, 0, x_580); lean_ctor_set(x_592, 1, x_591); x_593 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_594 = lean_array_push(x_593, x_592); -x_595 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_595 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_596 = lean_array_push(x_594, x_595); x_597 = lean_array_push(x_596, x_2); x_598 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15302,7 +15304,7 @@ lean_ctor_set(x_608, 0, x_580); lean_ctor_set(x_608, 1, x_607); x_609 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_610 = lean_array_push(x_609, x_608); -x_611 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_611 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_612 = lean_array_push(x_610, x_611); x_613 = lean_array_push(x_612, x_604); x_614 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15401,7 +15403,7 @@ lean_ctor_set(x_654, 0, x_632); lean_ctor_set(x_654, 1, x_653); x_655 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_656 = lean_array_push(x_655, x_654); -x_657 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_657 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_658 = lean_array_push(x_656, x_657); x_659 = lean_array_push(x_658, x_2); x_660 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15440,7 +15442,7 @@ lean_ctor_set(x_670, 0, x_632); lean_ctor_set(x_670, 1, x_669); x_671 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_672 = lean_array_push(x_671, x_670); -x_673 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_673 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_674 = lean_array_push(x_672, x_673); x_675 = lean_array_push(x_674, x_666); x_676 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15528,7 +15530,7 @@ lean_ctor_set(x_704, 0, x_692); lean_ctor_set(x_704, 1, x_703); x_705 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_706 = lean_array_push(x_705, x_704); -x_707 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_707 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_708 = lean_array_push(x_706, x_707); x_709 = lean_array_push(x_708, x_2); x_710 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15568,7 +15570,7 @@ lean_ctor_set(x_721, 0, x_692); lean_ctor_set(x_721, 1, x_720); x_722 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_723 = lean_array_push(x_722, x_721); -x_724 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_724 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_725 = lean_array_push(x_723, x_724); x_726 = lean_array_push(x_725, x_717); x_727 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15650,7 +15652,7 @@ lean_ctor_set(x_756, 0, x_742); lean_ctor_set(x_756, 1, x_755); x_757 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_758 = lean_array_push(x_757, x_756); -x_759 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_759 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_760 = lean_array_push(x_758, x_759); x_761 = lean_array_push(x_760, x_2); x_762 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15690,7 +15692,7 @@ lean_ctor_set(x_773, 0, x_742); lean_ctor_set(x_773, 1, x_772); x_774 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_775 = lean_array_push(x_774, x_773); -x_776 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_776 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_777 = lean_array_push(x_775, x_776); x_778 = lean_array_push(x_777, x_769); x_779 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15812,7 +15814,7 @@ lean_ctor_set(x_807, 0, x_806); lean_ctor_set(x_807, 1, x_805); x_808 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_809 = lean_array_push(x_808, x_807); -x_810 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_810 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_811 = lean_array_push(x_809, x_810); x_812 = lean_array_push(x_811, x_2); x_813 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15855,7 +15857,7 @@ lean_ctor_set(x_827, 0, x_826); lean_ctor_set(x_827, 1, x_825); x_828 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_829 = lean_array_push(x_828, x_827); -x_830 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_830 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_831 = lean_array_push(x_829, x_830); x_832 = lean_array_push(x_831, x_820); x_833 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -15964,7 +15966,7 @@ lean_ctor_set(x_865, 0, x_854); lean_ctor_set(x_865, 1, x_864); x_866 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_867 = lean_array_push(x_866, x_865); -x_868 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_868 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_869 = lean_array_push(x_867, x_868); x_870 = lean_array_push(x_869, x_2); x_871 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -16005,7 +16007,7 @@ lean_ctor_set(x_883, 0, x_854); lean_ctor_set(x_883, 1, x_882); x_884 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_885 = lean_array_push(x_884, x_883); -x_886 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_886 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_887 = lean_array_push(x_885, x_886); x_888 = lean_array_push(x_887, x_878); x_889 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -16126,7 +16128,7 @@ lean_ctor_set(x_917, 0, x_916); lean_ctor_set(x_917, 1, x_915); x_918 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_919 = lean_array_push(x_918, x_917); -x_920 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_920 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_921 = lean_array_push(x_919, x_920); x_922 = lean_array_push(x_921, x_2); x_923 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -16169,7 +16171,7 @@ lean_ctor_set(x_937, 0, x_936); lean_ctor_set(x_937, 1, x_935); x_938 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_939 = lean_array_push(x_938, x_937); -x_940 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_940 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_941 = lean_array_push(x_939, x_940); x_942 = lean_array_push(x_941, x_930); x_943 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -18538,87 +18540,92 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l_Lean_delab(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_delab(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; -x_6 = lean_unsigned_to_nat(1u); -x_7 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_7, 0, x_1); -lean_ctor_set(x_7, 1, x_6); -lean_ctor_set(x_7, 2, x_2); -lean_ctor_set(x_7, 3, x_3); -lean_inc(x_4); -x_8 = l_Lean_Delaborator_delab(x_7, x_4, x_5); -if (lean_obj_tag(x_8) == 0) -{ -lean_object* x_9; -x_9 = lean_ctor_get(x_8, 0); -lean_inc(x_9); +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_3, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +lean_dec(x_5); +x_7 = lean_unsigned_to_nat(1u); +x_8 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_8, 0, x_1); +lean_ctor_set(x_8, 1, x_7); +lean_ctor_set(x_8, 2, x_6); +lean_ctor_set(x_8, 3, x_2); +lean_inc(x_3); +x_9 = l_Lean_Delaborator_delab(x_8, x_3, x_4); if (lean_obj_tag(x_9) == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_10 = lean_ctor_get(x_8, 1); +lean_object* x_10; +x_10 = lean_ctor_get(x_9, 0); lean_inc(x_10); -lean_dec(x_8); -x_11 = l_Lean_Meta_isClassQuick___main___closed__1; -x_12 = l_unreachable_x21___rarg(x_11); -x_13 = lean_apply_2(x_12, x_4, x_10); -return x_13; -} -else +if (lean_obj_tag(x_10) == 0) { -uint8_t x_14; -lean_dec(x_4); -x_14 = !lean_is_exclusive(x_8); -if (x_14 == 0) -{ -lean_object* x_15; lean_object* x_16; -x_15 = lean_ctor_get(x_8, 0); -lean_dec(x_15); -x_16 = lean_ctor_get(x_9, 0); -lean_inc(x_16); +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); lean_dec(x_9); -lean_ctor_set(x_8, 0, x_16); -return x_8; +x_12 = l_Lean_Meta_isClassQuick___main___closed__1; +x_13 = l_unreachable_x21___rarg(x_12); +x_14 = lean_apply_2(x_13, x_3, x_11); +return x_14; } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_8, 1); +uint8_t x_15; +lean_dec(x_3); +x_15 = !lean_is_exclusive(x_9); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_ctor_get(x_9, 0); +lean_dec(x_16); +x_17 = lean_ctor_get(x_10, 0); lean_inc(x_17); -lean_dec(x_8); -x_18 = lean_ctor_get(x_9, 0); +lean_dec(x_10); +lean_ctor_set(x_9, 0, x_17); +return x_9; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_9, 1); lean_inc(x_18); lean_dec(x_9); -x_19 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_19, 0, x_18); -lean_ctor_set(x_19, 1, x_17); -return x_19; +x_19 = lean_ctor_get(x_10, 0); +lean_inc(x_19); +lean_dec(x_10); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_18); +return x_20; } } } else { -uint8_t x_20; -lean_dec(x_4); -x_20 = !lean_is_exclusive(x_8); -if (x_20 == 0) +uint8_t x_21; +lean_dec(x_3); +x_21 = !lean_is_exclusive(x_9); +if (x_21 == 0) { -return x_8; +return x_9; } else { -lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_21 = lean_ctor_get(x_8, 0); -x_22 = lean_ctor_get(x_8, 1); +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_9, 0); +x_23 = lean_ctor_get(x_9, 1); +lean_inc(x_23); lean_inc(x_22); -lean_inc(x_21); -lean_dec(x_8); -x_23 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_23, 0, x_21); -lean_ctor_set(x_23, 1, x_22); -return x_23; +lean_dec(x_9); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; } } } diff --git a/stage0/stdlib/Lean/Elab/Binders.c b/stage0/stdlib/Lean/Elab/Binders.c index 19f5d8824a..2b3f3f4e84 100644 --- a/stage0/stdlib/Lean/Elab/Binders.c +++ b/stage0/stdlib/Lean/Elab/Binders.c @@ -56,7 +56,6 @@ lean_object* l_Lean_Elab_Term_declareTacticSyntax___closed__1; lean_object* l_Lean_Elab_Term_elabLetDeclAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); uint8_t l_Lean_checkTraceOption(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Binders_5__getBinderIds___spec__1___closed__1; -extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__6; extern lean_object* l___private_Lean_Elab_Quotation_4__getHeadInfo___elambda__3___closed__4; lean_object* l___private_Lean_Elab_Binders_6__matchBinder(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Binders_9__getFunBinderIdsAux_x3f___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -84,6 +83,7 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Binders_5__getBind lean_object* l_Lean_Elab_Term_quoteAutoTactic___main___closed__10; extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l___private_Lean_Elab_Binders_7__elabBinderViews___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; extern lean_object* l_Lean_mkAppStx___closed__7; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Binders_9__getFunBinderIdsAux_x3f___main(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); @@ -142,7 +142,7 @@ lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___clos lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Term_quoteAutoTactic___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabLetBangDecl(lean_object*); lean_object* l_Lean_Elab_Term_elabTermAux___main(lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; +lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; lean_object* l_Lean_Elab_Term_logTrace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_explicitBinder___elambda__1___closed__2; @@ -6176,16 +6176,24 @@ return x_3; lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3() { _start: { +lean_object* x_1; +x_1 = lean_mk_string("with"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_SourceInfo_inhabited___closed__1; -x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; +x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___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_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4() { +lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -6197,29 +6205,29 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_empty___closed__1; -x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; -x_3 = lean_array_push(x_1, x_2); -return x_3; -} -} lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_nullKind___closed__2; +x_1 = l_Array_empty___closed__1; x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_nullKind___closed__2; +x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; 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_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7() { +lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__8() { _start: { lean_object* x_1; @@ -6227,21 +6235,21 @@ x_1 = lean_mk_string("invalid binder, simple identifier expected"); return x_1; } } -lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9() { _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__8; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -6406,9 +6414,9 @@ lean_ctor_set(x_60, 1, x_58); x_61 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_62 = lean_array_push(x_61, x_60); x_63 = lean_array_push(x_62, x_54); -x_64 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_64 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_65 = lean_array_push(x_63, x_64); -x_66 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_66 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_67 = lean_array_push(x_65, x_66); lean_inc(x_11); x_68 = lean_array_push(x_52, x_11); @@ -6423,7 +6431,7 @@ lean_dec(x_71); lean_ctor_set(x_11, 1, x_68); lean_ctor_set(x_11, 0, x_59); x_72 = lean_array_push(x_52, x_11); -x_73 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_73 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_74 = lean_array_push(x_72, x_73); x_75 = lean_array_push(x_74, x_46); x_76 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6451,7 +6459,7 @@ x_83 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_83, 0, x_59); lean_ctor_set(x_83, 1, x_68); x_84 = lean_array_push(x_52, x_83); -x_85 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_85 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_86 = lean_array_push(x_84, x_85); x_87 = lean_array_push(x_86, x_46); x_88 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6494,9 +6502,9 @@ lean_ctor_set(x_104, 1, x_102); x_105 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_106 = lean_array_push(x_105, x_104); x_107 = lean_array_push(x_106, x_98); -x_108 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_108 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_109 = lean_array_push(x_107, x_108); -x_110 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_110 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_111 = lean_array_push(x_109, x_110); lean_inc(x_11); x_112 = lean_array_push(x_96, x_11); @@ -6516,7 +6524,7 @@ if (lean_is_scalar(x_113)) { lean_ctor_set(x_114, 0, x_103); lean_ctor_set(x_114, 1, x_112); x_115 = lean_array_push(x_96, x_114); -x_116 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_116 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_117 = lean_array_push(x_115, x_116); x_118 = lean_array_push(x_117, x_46); x_119 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6579,9 +6587,9 @@ lean_ctor_set(x_142, 1, x_140); x_143 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_144 = lean_array_push(x_143, x_142); x_145 = lean_array_push(x_144, x_136); -x_146 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_146 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_147 = lean_array_push(x_145, x_146); -x_148 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_148 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_149 = lean_array_push(x_147, x_148); lean_inc(x_11); x_150 = lean_array_push(x_134, x_11); @@ -6601,7 +6609,7 @@ if (lean_is_scalar(x_151)) { lean_ctor_set(x_152, 0, x_141); lean_ctor_set(x_152, 1, x_150); x_153 = lean_array_push(x_134, x_152); -x_154 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_154 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_155 = lean_array_push(x_153, x_154); x_156 = lean_array_push(x_155, x_128); x_157 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6681,7 +6689,7 @@ lean_object* x_179; lean_object* x_180; uint8_t x_181; lean_dec(x_178); lean_dec(x_176); lean_dec(x_2); -x_179 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_179 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_180 = l_Lean_Elab_Term_throwError___rarg(x_11, x_179, x_5, x_6); lean_dec(x_11); x_181 = !lean_is_exclusive(x_180); @@ -6787,9 +6795,9 @@ lean_ctor_set(x_217, 1, x_215); x_218 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_219 = lean_array_push(x_218, x_217); x_220 = lean_array_push(x_219, x_211); -x_221 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_221 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_222 = lean_array_push(x_220, x_221); -x_223 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_223 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_224 = lean_array_push(x_222, x_223); lean_inc(x_11); x_225 = lean_array_push(x_209, x_11); @@ -6804,7 +6812,7 @@ lean_dec(x_228); lean_ctor_set(x_11, 1, x_225); lean_ctor_set(x_11, 0, x_216); x_229 = lean_array_push(x_209, x_11); -x_230 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_230 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_231 = lean_array_push(x_229, x_230); x_232 = lean_array_push(x_231, x_203); x_233 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6832,7 +6840,7 @@ x_240 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_240, 0, x_216); lean_ctor_set(x_240, 1, x_225); x_241 = lean_array_push(x_209, x_240); -x_242 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_242 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_243 = lean_array_push(x_241, x_242); x_244 = lean_array_push(x_243, x_203); x_245 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6875,9 +6883,9 @@ lean_ctor_set(x_261, 1, x_259); x_262 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_263 = lean_array_push(x_262, x_261); x_264 = lean_array_push(x_263, x_255); -x_265 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_265 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_266 = lean_array_push(x_264, x_265); -x_267 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_267 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_268 = lean_array_push(x_266, x_267); lean_inc(x_11); x_269 = lean_array_push(x_253, x_11); @@ -6897,7 +6905,7 @@ if (lean_is_scalar(x_270)) { lean_ctor_set(x_271, 0, x_260); lean_ctor_set(x_271, 1, x_269); x_272 = lean_array_push(x_253, x_271); -x_273 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_273 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_274 = lean_array_push(x_272, x_273); x_275 = lean_array_push(x_274, x_203); x_276 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -6960,9 +6968,9 @@ lean_ctor_set(x_299, 1, x_297); x_300 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_301 = lean_array_push(x_300, x_299); x_302 = lean_array_push(x_301, x_293); -x_303 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_303 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_304 = lean_array_push(x_302, x_303); -x_305 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_305 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_306 = lean_array_push(x_304, x_305); lean_inc(x_11); x_307 = lean_array_push(x_291, x_11); @@ -6982,7 +6990,7 @@ if (lean_is_scalar(x_308)) { lean_ctor_set(x_309, 0, x_298); lean_ctor_set(x_309, 1, x_307); x_310 = lean_array_push(x_291, x_309); -x_311 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_311 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_312 = lean_array_push(x_310, x_311); x_313 = lean_array_push(x_312, x_285); x_314 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7063,7 +7071,7 @@ lean_object* x_336; lean_object* x_337; uint8_t x_338; lean_dec(x_335); lean_dec(x_333); lean_dec(x_2); -x_336 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_336 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_337 = l_Lean_Elab_Term_throwError___rarg(x_188, x_336, x_5, x_6); lean_dec(x_188); x_338 = !lean_is_exclusive(x_337); @@ -7171,9 +7179,9 @@ lean_ctor_set(x_374, 1, x_372); x_375 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_376 = lean_array_push(x_375, x_374); x_377 = lean_array_push(x_376, x_368); -x_378 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_378 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_379 = lean_array_push(x_377, x_378); -x_380 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_380 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_381 = lean_array_push(x_379, x_380); lean_inc(x_11); x_382 = lean_array_push(x_366, x_11); @@ -7188,7 +7196,7 @@ lean_dec(x_385); lean_ctor_set(x_11, 1, x_382); lean_ctor_set(x_11, 0, x_373); x_386 = lean_array_push(x_366, x_11); -x_387 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_387 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_388 = lean_array_push(x_386, x_387); x_389 = lean_array_push(x_388, x_360); x_390 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7216,7 +7224,7 @@ x_397 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_397, 0, x_373); lean_ctor_set(x_397, 1, x_382); x_398 = lean_array_push(x_366, x_397); -x_399 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_399 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_400 = lean_array_push(x_398, x_399); x_401 = lean_array_push(x_400, x_360); x_402 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7259,9 +7267,9 @@ lean_ctor_set(x_418, 1, x_416); x_419 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_420 = lean_array_push(x_419, x_418); x_421 = lean_array_push(x_420, x_412); -x_422 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_422 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_423 = lean_array_push(x_421, x_422); -x_424 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_424 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_425 = lean_array_push(x_423, x_424); lean_inc(x_11); x_426 = lean_array_push(x_410, x_11); @@ -7281,7 +7289,7 @@ if (lean_is_scalar(x_427)) { lean_ctor_set(x_428, 0, x_417); lean_ctor_set(x_428, 1, x_426); x_429 = lean_array_push(x_410, x_428); -x_430 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_430 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_431 = lean_array_push(x_429, x_430); x_432 = lean_array_push(x_431, x_360); x_433 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7344,9 +7352,9 @@ lean_ctor_set(x_456, 1, x_454); x_457 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_458 = lean_array_push(x_457, x_456); x_459 = lean_array_push(x_458, x_450); -x_460 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_460 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_461 = lean_array_push(x_459, x_460); -x_462 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_462 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_463 = lean_array_push(x_461, x_462); lean_inc(x_11); x_464 = lean_array_push(x_448, x_11); @@ -7366,7 +7374,7 @@ if (lean_is_scalar(x_465)) { lean_ctor_set(x_466, 0, x_455); lean_ctor_set(x_466, 1, x_464); x_467 = lean_array_push(x_448, x_466); -x_468 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_468 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_469 = lean_array_push(x_467, x_468); x_470 = lean_array_push(x_469, x_442); x_471 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7447,7 +7455,7 @@ lean_object* x_493; lean_object* x_494; uint8_t x_495; lean_dec(x_492); lean_dec(x_490); lean_dec(x_2); -x_493 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_493 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_494 = l_Lean_Elab_Term_throwError___rarg(x_345, x_493, x_5, x_6); lean_dec(x_345); x_495 = !lean_is_exclusive(x_494); @@ -7571,9 +7579,9 @@ lean_ctor_set(x_537, 1, x_535); x_538 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_539 = lean_array_push(x_538, x_537); x_540 = lean_array_push(x_539, x_531); -x_541 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_541 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_542 = lean_array_push(x_540, x_541); -x_543 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_543 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_544 = lean_array_push(x_542, x_543); lean_inc(x_11); x_545 = lean_array_push(x_529, x_11); @@ -7588,7 +7596,7 @@ lean_dec(x_548); lean_ctor_set(x_11, 1, x_545); lean_ctor_set(x_11, 0, x_536); x_549 = lean_array_push(x_529, x_11); -x_550 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_550 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_551 = lean_array_push(x_549, x_550); x_552 = lean_array_push(x_551, x_523); x_553 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7616,7 +7624,7 @@ x_560 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_560, 0, x_536); lean_ctor_set(x_560, 1, x_545); x_561 = lean_array_push(x_529, x_560); -x_562 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_562 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_563 = lean_array_push(x_561, x_562); x_564 = lean_array_push(x_563, x_523); x_565 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7659,9 +7667,9 @@ lean_ctor_set(x_581, 1, x_579); x_582 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_583 = lean_array_push(x_582, x_581); x_584 = lean_array_push(x_583, x_575); -x_585 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_585 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_586 = lean_array_push(x_584, x_585); -x_587 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_587 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_588 = lean_array_push(x_586, x_587); lean_inc(x_11); x_589 = lean_array_push(x_573, x_11); @@ -7681,7 +7689,7 @@ if (lean_is_scalar(x_590)) { lean_ctor_set(x_591, 0, x_580); lean_ctor_set(x_591, 1, x_589); x_592 = lean_array_push(x_573, x_591); -x_593 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_593 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_594 = lean_array_push(x_592, x_593); x_595 = lean_array_push(x_594, x_523); x_596 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7744,9 +7752,9 @@ lean_ctor_set(x_619, 1, x_617); x_620 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_621 = lean_array_push(x_620, x_619); x_622 = lean_array_push(x_621, x_613); -x_623 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_623 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_624 = lean_array_push(x_622, x_623); -x_625 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_625 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_626 = lean_array_push(x_624, x_625); lean_inc(x_11); x_627 = lean_array_push(x_611, x_11); @@ -7766,7 +7774,7 @@ if (lean_is_scalar(x_628)) { lean_ctor_set(x_629, 0, x_618); lean_ctor_set(x_629, 1, x_627); x_630 = lean_array_push(x_611, x_629); -x_631 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_631 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_632 = lean_array_push(x_630, x_631); x_633 = lean_array_push(x_632, x_605); x_634 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -7847,7 +7855,7 @@ lean_object* x_656; lean_object* x_657; uint8_t x_658; lean_dec(x_655); lean_dec(x_653); lean_dec(x_2); -x_656 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_656 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_657 = l_Lean_Elab_Term_throwError___rarg(x_508, x_656, x_5, x_6); lean_dec(x_508); x_658 = !lean_is_exclusive(x_657); @@ -7973,9 +7981,9 @@ lean_ctor_set(x_703, 1, x_701); x_704 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_705 = lean_array_push(x_704, x_703); x_706 = lean_array_push(x_705, x_697); -x_707 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_707 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_708 = lean_array_push(x_706, x_707); -x_709 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_709 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_710 = lean_array_push(x_708, x_709); lean_inc(x_11); x_711 = lean_array_push(x_695, x_11); @@ -7990,7 +7998,7 @@ lean_dec(x_714); lean_ctor_set(x_11, 1, x_711); lean_ctor_set(x_11, 0, x_702); x_715 = lean_array_push(x_695, x_11); -x_716 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_716 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_717 = lean_array_push(x_715, x_716); x_718 = lean_array_push(x_717, x_689); x_719 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8018,7 +8026,7 @@ x_726 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_726, 0, x_702); lean_ctor_set(x_726, 1, x_711); x_727 = lean_array_push(x_695, x_726); -x_728 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_728 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_729 = lean_array_push(x_727, x_728); x_730 = lean_array_push(x_729, x_689); x_731 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8061,9 +8069,9 @@ lean_ctor_set(x_747, 1, x_745); x_748 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_749 = lean_array_push(x_748, x_747); x_750 = lean_array_push(x_749, x_741); -x_751 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_751 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_752 = lean_array_push(x_750, x_751); -x_753 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_753 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_754 = lean_array_push(x_752, x_753); lean_inc(x_11); x_755 = lean_array_push(x_739, x_11); @@ -8083,7 +8091,7 @@ if (lean_is_scalar(x_756)) { lean_ctor_set(x_757, 0, x_746); lean_ctor_set(x_757, 1, x_755); x_758 = lean_array_push(x_739, x_757); -x_759 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_759 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_760 = lean_array_push(x_758, x_759); x_761 = lean_array_push(x_760, x_689); x_762 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8146,9 +8154,9 @@ lean_ctor_set(x_785, 1, x_783); x_786 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_787 = lean_array_push(x_786, x_785); x_788 = lean_array_push(x_787, x_779); -x_789 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_789 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_790 = lean_array_push(x_788, x_789); -x_791 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_791 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_792 = lean_array_push(x_790, x_791); lean_inc(x_11); x_793 = lean_array_push(x_777, x_11); @@ -8168,7 +8176,7 @@ if (lean_is_scalar(x_794)) { lean_ctor_set(x_795, 0, x_784); lean_ctor_set(x_795, 1, x_793); x_796 = lean_array_push(x_777, x_795); -x_797 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_797 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_798 = lean_array_push(x_796, x_797); x_799 = lean_array_push(x_798, x_771); x_800 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8293,9 +8301,9 @@ lean_ctor_set(x_842, 1, x_840); x_843 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_844 = lean_array_push(x_843, x_842); x_845 = lean_array_push(x_844, x_836); -x_846 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_846 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_847 = lean_array_push(x_845, x_846); -x_848 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_848 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_849 = lean_array_push(x_847, x_848); lean_inc(x_11); x_850 = lean_array_push(x_834, x_11); @@ -8310,7 +8318,7 @@ lean_dec(x_853); lean_ctor_set(x_11, 1, x_850); lean_ctor_set(x_11, 0, x_841); x_854 = lean_array_push(x_834, x_11); -x_855 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_855 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_856 = lean_array_push(x_854, x_855); x_857 = lean_array_push(x_856, x_828); x_858 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8338,7 +8346,7 @@ x_865 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_865, 0, x_841); lean_ctor_set(x_865, 1, x_850); x_866 = lean_array_push(x_834, x_865); -x_867 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_867 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_868 = lean_array_push(x_866, x_867); x_869 = lean_array_push(x_868, x_828); x_870 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8381,9 +8389,9 @@ lean_ctor_set(x_886, 1, x_884); x_887 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_888 = lean_array_push(x_887, x_886); x_889 = lean_array_push(x_888, x_880); -x_890 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_890 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_891 = lean_array_push(x_889, x_890); -x_892 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_892 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_893 = lean_array_push(x_891, x_892); lean_inc(x_11); x_894 = lean_array_push(x_878, x_11); @@ -8403,7 +8411,7 @@ if (lean_is_scalar(x_895)) { lean_ctor_set(x_896, 0, x_885); lean_ctor_set(x_896, 1, x_894); x_897 = lean_array_push(x_878, x_896); -x_898 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_898 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_899 = lean_array_push(x_897, x_898); x_900 = lean_array_push(x_899, x_828); x_901 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8466,9 +8474,9 @@ lean_ctor_set(x_924, 1, x_922); x_925 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_926 = lean_array_push(x_925, x_924); x_927 = lean_array_push(x_926, x_918); -x_928 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_928 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_929 = lean_array_push(x_927, x_928); -x_930 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_930 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_931 = lean_array_push(x_929, x_930); lean_inc(x_11); x_932 = lean_array_push(x_916, x_11); @@ -8488,7 +8496,7 @@ if (lean_is_scalar(x_933)) { lean_ctor_set(x_934, 0, x_923); lean_ctor_set(x_934, 1, x_932); x_935 = lean_array_push(x_916, x_934); -x_936 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_936 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_937 = lean_array_push(x_935, x_936); x_938 = lean_array_push(x_937, x_910); x_939 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8627,9 +8635,9 @@ lean_ctor_set(x_985, 1, x_983); x_986 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_987 = lean_array_push(x_986, x_985); x_988 = lean_array_push(x_987, x_979); -x_989 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_989 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_990 = lean_array_push(x_988, x_989); -x_991 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_991 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_992 = lean_array_push(x_990, x_991); lean_inc(x_11); x_993 = lean_array_push(x_977, x_11); @@ -8644,7 +8652,7 @@ lean_dec(x_996); lean_ctor_set(x_11, 1, x_993); lean_ctor_set(x_11, 0, x_984); x_997 = lean_array_push(x_977, x_11); -x_998 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_998 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_999 = lean_array_push(x_997, x_998); x_1000 = lean_array_push(x_999, x_971); x_1001 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8672,7 +8680,7 @@ x_1008 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1008, 0, x_984); lean_ctor_set(x_1008, 1, x_993); x_1009 = lean_array_push(x_977, x_1008); -x_1010 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1010 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1011 = lean_array_push(x_1009, x_1010); x_1012 = lean_array_push(x_1011, x_971); x_1013 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8715,9 +8723,9 @@ lean_ctor_set(x_1029, 1, x_1027); x_1030 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1031 = lean_array_push(x_1030, x_1029); x_1032 = lean_array_push(x_1031, x_1023); -x_1033 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1033 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1034 = lean_array_push(x_1032, x_1033); -x_1035 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1035 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1036 = lean_array_push(x_1034, x_1035); lean_inc(x_11); x_1037 = lean_array_push(x_1021, x_11); @@ -8737,7 +8745,7 @@ if (lean_is_scalar(x_1038)) { lean_ctor_set(x_1039, 0, x_1028); lean_ctor_set(x_1039, 1, x_1037); x_1040 = lean_array_push(x_1021, x_1039); -x_1041 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1041 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1042 = lean_array_push(x_1040, x_1041); x_1043 = lean_array_push(x_1042, x_971); x_1044 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8800,9 +8808,9 @@ lean_ctor_set(x_1067, 1, x_1065); x_1068 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1069 = lean_array_push(x_1068, x_1067); x_1070 = lean_array_push(x_1069, x_1061); -x_1071 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1071 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1072 = lean_array_push(x_1070, x_1071); -x_1073 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1073 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1074 = lean_array_push(x_1072, x_1073); lean_inc(x_11); x_1075 = lean_array_push(x_1059, x_11); @@ -8822,7 +8830,7 @@ if (lean_is_scalar(x_1076)) { lean_ctor_set(x_1077, 0, x_1066); lean_ctor_set(x_1077, 1, x_1075); x_1078 = lean_array_push(x_1059, x_1077); -x_1079 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1079 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1080 = lean_array_push(x_1078, x_1079); x_1081 = lean_array_push(x_1080, x_1053); x_1082 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8937,9 +8945,9 @@ lean_ctor_set(x_1120, 1, x_1118); x_1121 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1122 = lean_array_push(x_1121, x_1120); x_1123 = lean_array_push(x_1122, x_1114); -x_1124 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1124 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1125 = lean_array_push(x_1123, x_1124); -x_1126 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1126 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1127 = lean_array_push(x_1125, x_1126); lean_inc(x_11); x_1128 = lean_array_push(x_1112, x_11); @@ -8954,7 +8962,7 @@ lean_dec(x_1131); lean_ctor_set(x_11, 1, x_1128); lean_ctor_set(x_11, 0, x_1119); x_1132 = lean_array_push(x_1112, x_11); -x_1133 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1133 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1134 = lean_array_push(x_1132, x_1133); x_1135 = lean_array_push(x_1134, x_1106); x_1136 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -8982,7 +8990,7 @@ x_1143 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1143, 0, x_1119); lean_ctor_set(x_1143, 1, x_1128); x_1144 = lean_array_push(x_1112, x_1143); -x_1145 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1145 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1146 = lean_array_push(x_1144, x_1145); x_1147 = lean_array_push(x_1146, x_1106); x_1148 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -9025,9 +9033,9 @@ lean_ctor_set(x_1164, 1, x_1162); x_1165 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1166 = lean_array_push(x_1165, x_1164); x_1167 = lean_array_push(x_1166, x_1158); -x_1168 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1168 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1169 = lean_array_push(x_1167, x_1168); -x_1170 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1170 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1171 = lean_array_push(x_1169, x_1170); lean_inc(x_11); x_1172 = lean_array_push(x_1156, x_11); @@ -9047,7 +9055,7 @@ if (lean_is_scalar(x_1173)) { lean_ctor_set(x_1174, 0, x_1163); lean_ctor_set(x_1174, 1, x_1172); x_1175 = lean_array_push(x_1156, x_1174); -x_1176 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1176 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1177 = lean_array_push(x_1175, x_1176); x_1178 = lean_array_push(x_1177, x_1106); x_1179 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -9110,9 +9118,9 @@ lean_ctor_set(x_1202, 1, x_1200); x_1203 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1204 = lean_array_push(x_1203, x_1202); x_1205 = lean_array_push(x_1204, x_1196); -x_1206 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1206 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1207 = lean_array_push(x_1205, x_1206); -x_1208 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1208 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1209 = lean_array_push(x_1207, x_1208); lean_inc(x_11); x_1210 = lean_array_push(x_1194, x_11); @@ -9132,7 +9140,7 @@ if (lean_is_scalar(x_1211)) { lean_ctor_set(x_1212, 0, x_1201); lean_ctor_set(x_1212, 1, x_1210); x_1213 = lean_array_push(x_1194, x_1212); -x_1214 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1214 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1215 = lean_array_push(x_1213, x_1214); x_1216 = lean_array_push(x_1215, x_1188); x_1217 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -9347,9 +9355,9 @@ lean_ctor_set(x_1279, 1, x_1277); x_1280 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1281 = lean_array_push(x_1280, x_1279); x_1282 = lean_array_push(x_1281, x_1273); -x_1283 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1283 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1284 = lean_array_push(x_1282, x_1283); -x_1285 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1285 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1286 = lean_array_push(x_1284, x_1285); lean_inc(x_11); x_1287 = lean_array_push(x_1271, x_11); @@ -9369,7 +9377,7 @@ if (lean_is_scalar(x_1288)) { lean_ctor_set(x_1289, 0, x_1278); lean_ctor_set(x_1289, 1, x_1287); x_1290 = lean_array_push(x_1271, x_1289); -x_1291 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1291 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1292 = lean_array_push(x_1290, x_1291); x_1293 = lean_array_push(x_1292, x_1264); x_1294 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -9454,7 +9462,7 @@ lean_object* x_1316; lean_object* x_1317; lean_object* x_1318; lean_object* x_13 lean_dec(x_1315); lean_dec(x_1313); lean_dec(x_2); -x_1316 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_1316 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_1317 = l_Lean_Elab_Term_throwError___rarg(x_11, x_1316, x_5, x_6); lean_dec(x_11); x_1318 = lean_ctor_get(x_1317, 0); @@ -9577,9 +9585,9 @@ lean_ctor_set(x_1356, 1, x_1354); x_1357 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1358 = lean_array_push(x_1357, x_1356); x_1359 = lean_array_push(x_1358, x_1350); -x_1360 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1360 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1361 = lean_array_push(x_1359, x_1360); -x_1362 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1362 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1363 = lean_array_push(x_1361, x_1362); lean_inc(x_11); x_1364 = lean_array_push(x_1348, x_11); @@ -9599,7 +9607,7 @@ if (lean_is_scalar(x_1365)) { lean_ctor_set(x_1366, 0, x_1355); lean_ctor_set(x_1366, 1, x_1364); x_1367 = lean_array_push(x_1348, x_1366); -x_1368 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1368 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1369 = lean_array_push(x_1367, x_1368); x_1370 = lean_array_push(x_1369, x_1341); x_1371 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -9685,7 +9693,7 @@ lean_object* x_1393; lean_object* x_1394; lean_object* x_1395; lean_object* x_13 lean_dec(x_1392); lean_dec(x_1390); lean_dec(x_2); -x_1393 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_1393 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_1394 = l_Lean_Elab_Term_throwError___rarg(x_1326, x_1393, x_5, x_6); lean_dec(x_1326); x_1395 = lean_ctor_get(x_1394, 0); @@ -9810,9 +9818,9 @@ lean_ctor_set(x_1433, 1, x_1431); x_1434 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1435 = lean_array_push(x_1434, x_1433); x_1436 = lean_array_push(x_1435, x_1427); -x_1437 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1437 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1438 = lean_array_push(x_1436, x_1437); -x_1439 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1439 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1440 = lean_array_push(x_1438, x_1439); lean_inc(x_11); x_1441 = lean_array_push(x_1425, x_11); @@ -9832,7 +9840,7 @@ if (lean_is_scalar(x_1442)) { lean_ctor_set(x_1443, 0, x_1432); lean_ctor_set(x_1443, 1, x_1441); x_1444 = lean_array_push(x_1425, x_1443); -x_1445 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1445 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1446 = lean_array_push(x_1444, x_1445); x_1447 = lean_array_push(x_1446, x_1418); x_1448 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -9918,7 +9926,7 @@ lean_object* x_1470; lean_object* x_1471; lean_object* x_1472; lean_object* x_14 lean_dec(x_1469); lean_dec(x_1467); lean_dec(x_2); -x_1470 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_1470 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_1471 = l_Lean_Elab_Term_throwError___rarg(x_1403, x_1470, x_5, x_6); lean_dec(x_1403); x_1472 = lean_ctor_get(x_1471, 0); @@ -10059,9 +10067,9 @@ lean_ctor_set(x_1516, 1, x_1514); x_1517 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1518 = lean_array_push(x_1517, x_1516); x_1519 = lean_array_push(x_1518, x_1510); -x_1520 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1520 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1521 = lean_array_push(x_1519, x_1520); -x_1522 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1522 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1523 = lean_array_push(x_1521, x_1522); lean_inc(x_11); x_1524 = lean_array_push(x_1508, x_11); @@ -10081,7 +10089,7 @@ if (lean_is_scalar(x_1525)) { lean_ctor_set(x_1526, 0, x_1515); lean_ctor_set(x_1526, 1, x_1524); x_1527 = lean_array_push(x_1508, x_1526); -x_1528 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1528 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1529 = lean_array_push(x_1527, x_1528); x_1530 = lean_array_push(x_1529, x_1501); x_1531 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -10167,7 +10175,7 @@ lean_object* x_1553; lean_object* x_1554; lean_object* x_1555; lean_object* x_15 lean_dec(x_1552); lean_dec(x_1550); lean_dec(x_2); -x_1553 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_1553 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_1554 = l_Lean_Elab_Term_throwError___rarg(x_1486, x_1553, x_5, x_6); lean_dec(x_1486); x_1555 = lean_ctor_get(x_1554, 0); @@ -10305,9 +10313,9 @@ lean_ctor_set(x_1601, 1, x_1599); x_1602 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1603 = lean_array_push(x_1602, x_1601); x_1604 = lean_array_push(x_1603, x_1595); -x_1605 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1605 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1606 = lean_array_push(x_1604, x_1605); -x_1607 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1607 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1608 = lean_array_push(x_1606, x_1607); lean_inc(x_11); x_1609 = lean_array_push(x_1593, x_11); @@ -10327,7 +10335,7 @@ if (lean_is_scalar(x_1610)) { lean_ctor_set(x_1611, 0, x_1600); lean_ctor_set(x_1611, 1, x_1609); x_1612 = lean_array_push(x_1593, x_1611); -x_1613 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1613 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1614 = lean_array_push(x_1612, x_1613); x_1615 = lean_array_push(x_1614, x_1586); x_1616 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -10468,9 +10476,9 @@ lean_ctor_set(x_1659, 1, x_1657); x_1660 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1661 = lean_array_push(x_1660, x_1659); x_1662 = lean_array_push(x_1661, x_1653); -x_1663 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1663 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1664 = lean_array_push(x_1662, x_1663); -x_1665 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1665 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1666 = lean_array_push(x_1664, x_1665); lean_inc(x_11); x_1667 = lean_array_push(x_1651, x_11); @@ -10490,7 +10498,7 @@ if (lean_is_scalar(x_1668)) { lean_ctor_set(x_1669, 0, x_1658); lean_ctor_set(x_1669, 1, x_1667); x_1670 = lean_array_push(x_1651, x_1669); -x_1671 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1671 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1672 = lean_array_push(x_1670, x_1671); x_1673 = lean_array_push(x_1672, x_1644); x_1674 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -10645,9 +10653,9 @@ lean_ctor_set(x_1721, 1, x_1719); x_1722 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1723 = lean_array_push(x_1722, x_1721); x_1724 = lean_array_push(x_1723, x_1715); -x_1725 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1725 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1726 = lean_array_push(x_1724, x_1725); -x_1727 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1727 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1728 = lean_array_push(x_1726, x_1727); lean_inc(x_11); x_1729 = lean_array_push(x_1713, x_11); @@ -10667,7 +10675,7 @@ if (lean_is_scalar(x_1730)) { lean_ctor_set(x_1731, 0, x_1720); lean_ctor_set(x_1731, 1, x_1729); x_1732 = lean_array_push(x_1713, x_1731); -x_1733 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1733 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1734 = lean_array_push(x_1732, x_1733); x_1735 = lean_array_push(x_1734, x_1706); x_1736 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -10798,9 +10806,9 @@ lean_ctor_set(x_1775, 1, x_1773); x_1776 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1777 = lean_array_push(x_1776, x_1775); x_1778 = lean_array_push(x_1777, x_1769); -x_1779 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1779 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1780 = lean_array_push(x_1778, x_1779); -x_1781 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1781 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1782 = lean_array_push(x_1780, x_1781); lean_inc(x_11); x_1783 = lean_array_push(x_1767, x_11); @@ -10820,7 +10828,7 @@ if (lean_is_scalar(x_1784)) { lean_ctor_set(x_1785, 0, x_1774); lean_ctor_set(x_1785, 1, x_1783); x_1786 = lean_array_push(x_1767, x_1785); -x_1787 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1787 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1788 = lean_array_push(x_1786, x_1787); x_1789 = lean_array_push(x_1788, x_1760); x_1790 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -11049,9 +11057,9 @@ lean_ctor_set(x_1855, 1, x_1853); x_1856 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1857 = lean_array_push(x_1856, x_1855); x_1858 = lean_array_push(x_1857, x_1849); -x_1859 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1859 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1860 = lean_array_push(x_1858, x_1859); -x_1861 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1861 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1862 = lean_array_push(x_1860, x_1861); lean_inc(x_11); x_1863 = lean_array_push(x_1847, x_11); @@ -11071,7 +11079,7 @@ if (lean_is_scalar(x_1864)) { lean_ctor_set(x_1865, 0, x_1854); lean_ctor_set(x_1865, 1, x_1863); x_1866 = lean_array_push(x_1847, x_1865); -x_1867 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1867 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1868 = lean_array_push(x_1866, x_1867); x_1869 = lean_array_push(x_1868, x_1840); x_1870 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -11156,7 +11164,7 @@ lean_object* x_1892; lean_object* x_1893; lean_object* x_1894; lean_object* x_18 lean_dec(x_1891); lean_dec(x_1889); lean_dec(x_2); -x_1892 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_1892 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_1893 = l_Lean_Elab_Term_throwError___rarg(x_11, x_1892, x_5, x_6); lean_dec(x_11); x_1894 = lean_ctor_get(x_1893, 0); @@ -11287,9 +11295,9 @@ lean_ctor_set(x_1933, 1, x_1931); x_1934 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_1935 = lean_array_push(x_1934, x_1933); x_1936 = lean_array_push(x_1935, x_1927); -x_1937 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1937 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1938 = lean_array_push(x_1936, x_1937); -x_1939 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1939 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1940 = lean_array_push(x_1938, x_1939); lean_inc(x_11); x_1941 = lean_array_push(x_1925, x_11); @@ -11309,7 +11317,7 @@ if (lean_is_scalar(x_1942)) { lean_ctor_set(x_1943, 0, x_1932); lean_ctor_set(x_1943, 1, x_1941); x_1944 = lean_array_push(x_1925, x_1943); -x_1945 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1945 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1946 = lean_array_push(x_1944, x_1945); x_1947 = lean_array_push(x_1946, x_1918); x_1948 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -11395,7 +11403,7 @@ lean_object* x_1970; lean_object* x_1971; lean_object* x_1972; lean_object* x_19 lean_dec(x_1969); lean_dec(x_1967); lean_dec(x_2); -x_1970 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_1970 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_1971 = l_Lean_Elab_Term_throwError___rarg(x_1903, x_1970, x_5, x_6); lean_dec(x_1903); x_1972 = lean_ctor_get(x_1971, 0); @@ -11527,9 +11535,9 @@ lean_ctor_set(x_2011, 1, x_2009); x_2012 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2013 = lean_array_push(x_2012, x_2011); x_2014 = lean_array_push(x_2013, x_2005); -x_2015 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2015 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2016 = lean_array_push(x_2014, x_2015); -x_2017 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2017 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2018 = lean_array_push(x_2016, x_2017); lean_inc(x_11); x_2019 = lean_array_push(x_2003, x_11); @@ -11549,7 +11557,7 @@ if (lean_is_scalar(x_2020)) { lean_ctor_set(x_2021, 0, x_2010); lean_ctor_set(x_2021, 1, x_2019); x_2022 = lean_array_push(x_2003, x_2021); -x_2023 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2023 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2024 = lean_array_push(x_2022, x_2023); x_2025 = lean_array_push(x_2024, x_1996); x_2026 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -11635,7 +11643,7 @@ lean_object* x_2048; lean_object* x_2049; lean_object* x_2050; lean_object* x_20 lean_dec(x_2047); lean_dec(x_2045); lean_dec(x_2); -x_2048 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_2048 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_2049 = l_Lean_Elab_Term_throwError___rarg(x_1981, x_2048, x_5, x_6); lean_dec(x_1981); x_2050 = lean_ctor_get(x_2049, 0); @@ -11783,9 +11791,9 @@ lean_ctor_set(x_2095, 1, x_2093); x_2096 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2097 = lean_array_push(x_2096, x_2095); x_2098 = lean_array_push(x_2097, x_2089); -x_2099 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2099 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2100 = lean_array_push(x_2098, x_2099); -x_2101 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2101 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2102 = lean_array_push(x_2100, x_2101); lean_inc(x_11); x_2103 = lean_array_push(x_2087, x_11); @@ -11805,7 +11813,7 @@ if (lean_is_scalar(x_2104)) { lean_ctor_set(x_2105, 0, x_2094); lean_ctor_set(x_2105, 1, x_2103); x_2106 = lean_array_push(x_2087, x_2105); -x_2107 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2107 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2108 = lean_array_push(x_2106, x_2107); x_2109 = lean_array_push(x_2108, x_2080); x_2110 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -11891,7 +11899,7 @@ lean_object* x_2132; lean_object* x_2133; lean_object* x_2134; lean_object* x_21 lean_dec(x_2131); lean_dec(x_2129); lean_dec(x_2); -x_2132 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_2132 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_2133 = l_Lean_Elab_Term_throwError___rarg(x_2065, x_2132, x_5, x_6); lean_dec(x_2065); x_2134 = lean_ctor_get(x_2133, 0); @@ -12029,9 +12037,9 @@ lean_ctor_set(x_2180, 1, x_2178); x_2181 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2182 = lean_array_push(x_2181, x_2180); x_2183 = lean_array_push(x_2182, x_2174); -x_2184 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2184 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2185 = lean_array_push(x_2183, x_2184); -x_2186 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2186 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2187 = lean_array_push(x_2185, x_2186); lean_inc(x_11); x_2188 = lean_array_push(x_2172, x_11); @@ -12051,7 +12059,7 @@ if (lean_is_scalar(x_2189)) { lean_ctor_set(x_2190, 0, x_2179); lean_ctor_set(x_2190, 1, x_2188); x_2191 = lean_array_push(x_2172, x_2190); -x_2192 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2192 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2193 = lean_array_push(x_2191, x_2192); x_2194 = lean_array_push(x_2193, x_2165); x_2195 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -12192,9 +12200,9 @@ lean_ctor_set(x_2238, 1, x_2236); x_2239 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2240 = lean_array_push(x_2239, x_2238); x_2241 = lean_array_push(x_2240, x_2232); -x_2242 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2242 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2243 = lean_array_push(x_2241, x_2242); -x_2244 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2244 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2245 = lean_array_push(x_2243, x_2244); lean_inc(x_11); x_2246 = lean_array_push(x_2230, x_11); @@ -12214,7 +12222,7 @@ if (lean_is_scalar(x_2247)) { lean_ctor_set(x_2248, 0, x_2237); lean_ctor_set(x_2248, 1, x_2246); x_2249 = lean_array_push(x_2230, x_2248); -x_2250 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2250 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2251 = lean_array_push(x_2249, x_2250); x_2252 = lean_array_push(x_2251, x_2223); x_2253 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -12369,9 +12377,9 @@ lean_ctor_set(x_2300, 1, x_2298); x_2301 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2302 = lean_array_push(x_2301, x_2300); x_2303 = lean_array_push(x_2302, x_2294); -x_2304 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2304 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2305 = lean_array_push(x_2303, x_2304); -x_2306 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2306 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2307 = lean_array_push(x_2305, x_2306); lean_inc(x_11); x_2308 = lean_array_push(x_2292, x_11); @@ -12391,7 +12399,7 @@ if (lean_is_scalar(x_2309)) { lean_ctor_set(x_2310, 0, x_2299); lean_ctor_set(x_2310, 1, x_2308); x_2311 = lean_array_push(x_2292, x_2310); -x_2312 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2312 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2313 = lean_array_push(x_2311, x_2312); x_2314 = lean_array_push(x_2313, x_2285); x_2315 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -12522,9 +12530,9 @@ lean_ctor_set(x_2354, 1, x_2352); x_2355 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2356 = lean_array_push(x_2355, x_2354); x_2357 = lean_array_push(x_2356, x_2348); -x_2358 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2358 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2359 = lean_array_push(x_2357, x_2358); -x_2360 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2360 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2361 = lean_array_push(x_2359, x_2360); lean_inc(x_11); x_2362 = lean_array_push(x_2346, x_11); @@ -12544,7 +12552,7 @@ if (lean_is_scalar(x_2363)) { lean_ctor_set(x_2364, 0, x_2353); lean_ctor_set(x_2364, 1, x_2362); x_2365 = lean_array_push(x_2346, x_2364); -x_2366 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2366 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2367 = lean_array_push(x_2365, x_2366); x_2368 = lean_array_push(x_2367, x_2339); x_2369 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -12784,9 +12792,9 @@ lean_ctor_set(x_2437, 1, x_2435); x_2438 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2439 = lean_array_push(x_2438, x_2437); x_2440 = lean_array_push(x_2439, x_2431); -x_2441 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2441 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2442 = lean_array_push(x_2440, x_2441); -x_2443 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2443 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2444 = lean_array_push(x_2442, x_2443); lean_inc(x_11); x_2445 = lean_array_push(x_2429, x_11); @@ -12806,7 +12814,7 @@ if (lean_is_scalar(x_2446)) { lean_ctor_set(x_2447, 0, x_2436); lean_ctor_set(x_2447, 1, x_2445); x_2448 = lean_array_push(x_2429, x_2447); -x_2449 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2449 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2450 = lean_array_push(x_2448, x_2449); x_2451 = lean_array_push(x_2450, x_2422); x_2452 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -12891,7 +12899,7 @@ lean_object* x_2474; lean_object* x_2475; lean_object* x_2476; lean_object* x_24 lean_dec(x_2473); lean_dec(x_2471); lean_dec(x_2); -x_2474 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_2474 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_2475 = l_Lean_Elab_Term_throwError___rarg(x_11, x_2474, x_5, x_6); lean_dec(x_11); x_2476 = lean_ctor_get(x_2475, 0); @@ -13030,9 +13038,9 @@ lean_ctor_set(x_2516, 1, x_2514); x_2517 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2518 = lean_array_push(x_2517, x_2516); x_2519 = lean_array_push(x_2518, x_2510); -x_2520 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2520 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2521 = lean_array_push(x_2519, x_2520); -x_2522 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2522 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2523 = lean_array_push(x_2521, x_2522); lean_inc(x_11); x_2524 = lean_array_push(x_2508, x_11); @@ -13052,7 +13060,7 @@ if (lean_is_scalar(x_2525)) { lean_ctor_set(x_2526, 0, x_2515); lean_ctor_set(x_2526, 1, x_2524); x_2527 = lean_array_push(x_2508, x_2526); -x_2528 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2528 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2529 = lean_array_push(x_2527, x_2528); x_2530 = lean_array_push(x_2529, x_2501); x_2531 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -13138,7 +13146,7 @@ lean_object* x_2553; lean_object* x_2554; lean_object* x_2555; lean_object* x_25 lean_dec(x_2552); lean_dec(x_2550); lean_dec(x_2); -x_2553 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_2553 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_2554 = l_Lean_Elab_Term_throwError___rarg(x_2486, x_2553, x_5, x_6); lean_dec(x_2486); x_2555 = lean_ctor_get(x_2554, 0); @@ -13278,9 +13286,9 @@ lean_ctor_set(x_2595, 1, x_2593); x_2596 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2597 = lean_array_push(x_2596, x_2595); x_2598 = lean_array_push(x_2597, x_2589); -x_2599 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2599 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2600 = lean_array_push(x_2598, x_2599); -x_2601 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2601 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2602 = lean_array_push(x_2600, x_2601); lean_inc(x_11); x_2603 = lean_array_push(x_2587, x_11); @@ -13300,7 +13308,7 @@ if (lean_is_scalar(x_2604)) { lean_ctor_set(x_2605, 0, x_2594); lean_ctor_set(x_2605, 1, x_2603); x_2606 = lean_array_push(x_2587, x_2605); -x_2607 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2607 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2608 = lean_array_push(x_2606, x_2607); x_2609 = lean_array_push(x_2608, x_2580); x_2610 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -13386,7 +13394,7 @@ lean_object* x_2632; lean_object* x_2633; lean_object* x_2634; lean_object* x_26 lean_dec(x_2631); lean_dec(x_2629); lean_dec(x_2); -x_2632 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_2632 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_2633 = l_Lean_Elab_Term_throwError___rarg(x_2565, x_2632, x_5, x_6); lean_dec(x_2565); x_2634 = lean_ctor_get(x_2633, 0); @@ -13541,9 +13549,9 @@ lean_ctor_set(x_2680, 1, x_2678); x_2681 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2682 = lean_array_push(x_2681, x_2680); x_2683 = lean_array_push(x_2682, x_2674); -x_2684 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2684 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2685 = lean_array_push(x_2683, x_2684); -x_2686 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2686 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2687 = lean_array_push(x_2685, x_2686); lean_inc(x_11); x_2688 = lean_array_push(x_2672, x_11); @@ -13563,7 +13571,7 @@ if (lean_is_scalar(x_2689)) { lean_ctor_set(x_2690, 0, x_2679); lean_ctor_set(x_2690, 1, x_2688); x_2691 = lean_array_push(x_2672, x_2690); -x_2692 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2692 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2693 = lean_array_push(x_2691, x_2692); x_2694 = lean_array_push(x_2693, x_2665); x_2695 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -13649,7 +13657,7 @@ lean_object* x_2717; lean_object* x_2718; lean_object* x_2719; lean_object* x_27 lean_dec(x_2716); lean_dec(x_2714); lean_dec(x_2); -x_2717 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_2717 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_2718 = l_Lean_Elab_Term_throwError___rarg(x_2650, x_2717, x_5, x_6); lean_dec(x_2650); x_2719 = lean_ctor_get(x_2718, 0); @@ -13787,9 +13795,9 @@ lean_ctor_set(x_2765, 1, x_2763); x_2766 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2767 = lean_array_push(x_2766, x_2765); x_2768 = lean_array_push(x_2767, x_2759); -x_2769 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2769 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2770 = lean_array_push(x_2768, x_2769); -x_2771 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2771 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2772 = lean_array_push(x_2770, x_2771); lean_inc(x_11); x_2773 = lean_array_push(x_2757, x_11); @@ -13809,7 +13817,7 @@ if (lean_is_scalar(x_2774)) { lean_ctor_set(x_2775, 0, x_2764); lean_ctor_set(x_2775, 1, x_2773); x_2776 = lean_array_push(x_2757, x_2775); -x_2777 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2777 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2778 = lean_array_push(x_2776, x_2777); x_2779 = lean_array_push(x_2778, x_2750); x_2780 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -13950,9 +13958,9 @@ lean_ctor_set(x_2823, 1, x_2821); x_2824 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2825 = lean_array_push(x_2824, x_2823); x_2826 = lean_array_push(x_2825, x_2817); -x_2827 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2827 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2828 = lean_array_push(x_2826, x_2827); -x_2829 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2829 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2830 = lean_array_push(x_2828, x_2829); lean_inc(x_11); x_2831 = lean_array_push(x_2815, x_11); @@ -13972,7 +13980,7 @@ if (lean_is_scalar(x_2832)) { lean_ctor_set(x_2833, 0, x_2822); lean_ctor_set(x_2833, 1, x_2831); x_2834 = lean_array_push(x_2815, x_2833); -x_2835 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2835 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2836 = lean_array_push(x_2834, x_2835); x_2837 = lean_array_push(x_2836, x_2808); x_2838 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -14127,9 +14135,9 @@ lean_ctor_set(x_2885, 1, x_2883); x_2886 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2887 = lean_array_push(x_2886, x_2885); x_2888 = lean_array_push(x_2887, x_2879); -x_2889 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2889 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2890 = lean_array_push(x_2888, x_2889); -x_2891 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2891 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2892 = lean_array_push(x_2890, x_2891); lean_inc(x_11); x_2893 = lean_array_push(x_2877, x_11); @@ -14149,7 +14157,7 @@ if (lean_is_scalar(x_2894)) { lean_ctor_set(x_2895, 0, x_2884); lean_ctor_set(x_2895, 1, x_2893); x_2896 = lean_array_push(x_2877, x_2895); -x_2897 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2897 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2898 = lean_array_push(x_2896, x_2897); x_2899 = lean_array_push(x_2898, x_2870); x_2900 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -14280,9 +14288,9 @@ lean_ctor_set(x_2939, 1, x_2937); x_2940 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_2941 = lean_array_push(x_2940, x_2939); x_2942 = lean_array_push(x_2941, x_2933); -x_2943 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_2943 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_2944 = lean_array_push(x_2942, x_2943); -x_2945 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2945 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_2946 = lean_array_push(x_2944, x_2945); lean_inc(x_11); x_2947 = lean_array_push(x_2931, x_11); @@ -14302,7 +14310,7 @@ if (lean_is_scalar(x_2948)) { lean_ctor_set(x_2949, 0, x_2938); lean_ctor_set(x_2949, 1, x_2947); x_2950 = lean_array_push(x_2931, x_2949); -x_2951 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2951 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2952 = lean_array_push(x_2950, x_2951); x_2953 = lean_array_push(x_2952, x_2924); x_2954 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -14553,9 +14561,9 @@ lean_ctor_set(x_3025, 1, x_3023); x_3026 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3027 = lean_array_push(x_3026, x_3025); x_3028 = lean_array_push(x_3027, x_3019); -x_3029 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3029 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3030 = lean_array_push(x_3028, x_3029); -x_3031 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3031 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3032 = lean_array_push(x_3030, x_3031); lean_inc(x_11); x_3033 = lean_array_push(x_3017, x_11); @@ -14575,7 +14583,7 @@ if (lean_is_scalar(x_3034)) { lean_ctor_set(x_3035, 0, x_3024); lean_ctor_set(x_3035, 1, x_3033); x_3036 = lean_array_push(x_3017, x_3035); -x_3037 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3037 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3038 = lean_array_push(x_3036, x_3037); x_3039 = lean_array_push(x_3038, x_3010); x_3040 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -14660,7 +14668,7 @@ lean_object* x_3062; lean_object* x_3063; lean_object* x_3064; lean_object* x_30 lean_dec(x_3061); lean_dec(x_3059); lean_dec(x_2); -x_3062 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_3062 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_3063 = l_Lean_Elab_Term_throwError___rarg(x_11, x_3062, x_5, x_6); lean_dec(x_11); x_3064 = lean_ctor_get(x_3063, 0); @@ -14806,9 +14814,9 @@ lean_ctor_set(x_3105, 1, x_3103); x_3106 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3107 = lean_array_push(x_3106, x_3105); x_3108 = lean_array_push(x_3107, x_3099); -x_3109 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3109 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3110 = lean_array_push(x_3108, x_3109); -x_3111 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3111 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3112 = lean_array_push(x_3110, x_3111); lean_inc(x_11); x_3113 = lean_array_push(x_3097, x_11); @@ -14828,7 +14836,7 @@ if (lean_is_scalar(x_3114)) { lean_ctor_set(x_3115, 0, x_3104); lean_ctor_set(x_3115, 1, x_3113); x_3116 = lean_array_push(x_3097, x_3115); -x_3117 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3117 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3118 = lean_array_push(x_3116, x_3117); x_3119 = lean_array_push(x_3118, x_3090); x_3120 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -14914,7 +14922,7 @@ lean_object* x_3142; lean_object* x_3143; lean_object* x_3144; lean_object* x_31 lean_dec(x_3141); lean_dec(x_3139); lean_dec(x_2); -x_3142 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_3142 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_3143 = l_Lean_Elab_Term_throwError___rarg(x_3075, x_3142, x_5, x_6); lean_dec(x_3075); x_3144 = lean_ctor_get(x_3143, 0); @@ -15061,9 +15069,9 @@ lean_ctor_set(x_3185, 1, x_3183); x_3186 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3187 = lean_array_push(x_3186, x_3185); x_3188 = lean_array_push(x_3187, x_3179); -x_3189 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3189 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3190 = lean_array_push(x_3188, x_3189); -x_3191 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3191 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3192 = lean_array_push(x_3190, x_3191); lean_inc(x_11); x_3193 = lean_array_push(x_3177, x_11); @@ -15083,7 +15091,7 @@ if (lean_is_scalar(x_3194)) { lean_ctor_set(x_3195, 0, x_3184); lean_ctor_set(x_3195, 1, x_3193); x_3196 = lean_array_push(x_3177, x_3195); -x_3197 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3197 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3198 = lean_array_push(x_3196, x_3197); x_3199 = lean_array_push(x_3198, x_3170); x_3200 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -15169,7 +15177,7 @@ lean_object* x_3222; lean_object* x_3223; lean_object* x_3224; lean_object* x_32 lean_dec(x_3221); lean_dec(x_3219); lean_dec(x_2); -x_3222 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_3222 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_3223 = l_Lean_Elab_Term_throwError___rarg(x_3155, x_3222, x_5, x_6); lean_dec(x_3155); x_3224 = lean_ctor_get(x_3223, 0); @@ -15331,9 +15339,9 @@ lean_ctor_set(x_3271, 1, x_3269); x_3272 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3273 = lean_array_push(x_3272, x_3271); x_3274 = lean_array_push(x_3273, x_3265); -x_3275 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3275 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3276 = lean_array_push(x_3274, x_3275); -x_3277 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3277 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3278 = lean_array_push(x_3276, x_3277); lean_inc(x_11); x_3279 = lean_array_push(x_3263, x_11); @@ -15353,7 +15361,7 @@ if (lean_is_scalar(x_3280)) { lean_ctor_set(x_3281, 0, x_3270); lean_ctor_set(x_3281, 1, x_3279); x_3282 = lean_array_push(x_3263, x_3281); -x_3283 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3283 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3284 = lean_array_push(x_3282, x_3283); x_3285 = lean_array_push(x_3284, x_3256); x_3286 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -15439,7 +15447,7 @@ lean_object* x_3308; lean_object* x_3309; lean_object* x_3310; lean_object* x_33 lean_dec(x_3307); lean_dec(x_3305); lean_dec(x_2); -x_3308 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_3308 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_3309 = l_Lean_Elab_Term_throwError___rarg(x_3241, x_3308, x_5, x_6); lean_dec(x_3241); x_3310 = lean_ctor_get(x_3309, 0); @@ -15577,9 +15585,9 @@ lean_ctor_set(x_3356, 1, x_3354); x_3357 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3358 = lean_array_push(x_3357, x_3356); x_3359 = lean_array_push(x_3358, x_3350); -x_3360 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3360 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3361 = lean_array_push(x_3359, x_3360); -x_3362 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3362 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3363 = lean_array_push(x_3361, x_3362); lean_inc(x_11); x_3364 = lean_array_push(x_3348, x_11); @@ -15599,7 +15607,7 @@ if (lean_is_scalar(x_3365)) { lean_ctor_set(x_3366, 0, x_3355); lean_ctor_set(x_3366, 1, x_3364); x_3367 = lean_array_push(x_3348, x_3366); -x_3368 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3368 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3369 = lean_array_push(x_3367, x_3368); x_3370 = lean_array_push(x_3369, x_3341); x_3371 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -15740,9 +15748,9 @@ lean_ctor_set(x_3414, 1, x_3412); x_3415 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3416 = lean_array_push(x_3415, x_3414); x_3417 = lean_array_push(x_3416, x_3408); -x_3418 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3418 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3419 = lean_array_push(x_3417, x_3418); -x_3420 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3420 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3421 = lean_array_push(x_3419, x_3420); lean_inc(x_11); x_3422 = lean_array_push(x_3406, x_11); @@ -15762,7 +15770,7 @@ if (lean_is_scalar(x_3423)) { lean_ctor_set(x_3424, 0, x_3413); lean_ctor_set(x_3424, 1, x_3422); x_3425 = lean_array_push(x_3406, x_3424); -x_3426 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3426 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3427 = lean_array_push(x_3425, x_3426); x_3428 = lean_array_push(x_3427, x_3399); x_3429 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -15917,9 +15925,9 @@ lean_ctor_set(x_3476, 1, x_3474); x_3477 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3478 = lean_array_push(x_3477, x_3476); x_3479 = lean_array_push(x_3478, x_3470); -x_3480 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3480 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3481 = lean_array_push(x_3479, x_3480); -x_3482 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3482 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3483 = lean_array_push(x_3481, x_3482); lean_inc(x_11); x_3484 = lean_array_push(x_3468, x_11); @@ -15939,7 +15947,7 @@ if (lean_is_scalar(x_3485)) { lean_ctor_set(x_3486, 0, x_3475); lean_ctor_set(x_3486, 1, x_3484); x_3487 = lean_array_push(x_3468, x_3486); -x_3488 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3488 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3489 = lean_array_push(x_3487, x_3488); x_3490 = lean_array_push(x_3489, x_3461); x_3491 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16070,9 +16078,9 @@ lean_ctor_set(x_3530, 1, x_3528); x_3531 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3532 = lean_array_push(x_3531, x_3530); x_3533 = lean_array_push(x_3532, x_3524); -x_3534 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3534 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3535 = lean_array_push(x_3533, x_3534); -x_3536 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3536 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3537 = lean_array_push(x_3535, x_3536); lean_inc(x_11); x_3538 = lean_array_push(x_3522, x_11); @@ -16092,7 +16100,7 @@ if (lean_is_scalar(x_3539)) { lean_ctor_set(x_3540, 0, x_3529); lean_ctor_set(x_3540, 1, x_3538); x_3541 = lean_array_push(x_3522, x_3540); -x_3542 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3542 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3543 = lean_array_push(x_3541, x_3542); x_3544 = lean_array_push(x_3543, x_3515); x_3545 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16287,9 +16295,9 @@ lean_ctor_set(x_3602, 1, x_3600); x_3603 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3604 = lean_array_push(x_3603, x_3602); x_3605 = lean_array_push(x_3604, x_3596); -x_3606 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3606 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3607 = lean_array_push(x_3605, x_3606); -x_3608 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3608 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3609 = lean_array_push(x_3607, x_3608); lean_inc(x_11); x_3610 = lean_array_push(x_3594, x_11); @@ -16304,7 +16312,7 @@ lean_dec(x_3613); lean_ctor_set(x_11, 1, x_3610); lean_ctor_set(x_11, 0, x_3601); x_3614 = lean_array_push(x_3594, x_11); -x_3615 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3615 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3616 = lean_array_push(x_3614, x_3615); x_3617 = lean_array_push(x_3616, x_3588); x_3618 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16332,7 +16340,7 @@ x_3625 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3625, 0, x_3601); lean_ctor_set(x_3625, 1, x_3610); x_3626 = lean_array_push(x_3594, x_3625); -x_3627 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3627 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3628 = lean_array_push(x_3626, x_3627); x_3629 = lean_array_push(x_3628, x_3588); x_3630 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16375,9 +16383,9 @@ lean_ctor_set(x_3646, 1, x_3644); x_3647 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3648 = lean_array_push(x_3647, x_3646); x_3649 = lean_array_push(x_3648, x_3640); -x_3650 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3650 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3651 = lean_array_push(x_3649, x_3650); -x_3652 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3652 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3653 = lean_array_push(x_3651, x_3652); lean_inc(x_11); x_3654 = lean_array_push(x_3638, x_11); @@ -16397,7 +16405,7 @@ if (lean_is_scalar(x_3655)) { lean_ctor_set(x_3656, 0, x_3645); lean_ctor_set(x_3656, 1, x_3654); x_3657 = lean_array_push(x_3638, x_3656); -x_3658 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3658 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3659 = lean_array_push(x_3657, x_3658); x_3660 = lean_array_push(x_3659, x_3588); x_3661 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16460,9 +16468,9 @@ lean_ctor_set(x_3684, 1, x_3682); x_3685 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3686 = lean_array_push(x_3685, x_3684); x_3687 = lean_array_push(x_3686, x_3678); -x_3688 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3688 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3689 = lean_array_push(x_3687, x_3688); -x_3690 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3690 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3691 = lean_array_push(x_3689, x_3690); lean_inc(x_11); x_3692 = lean_array_push(x_3676, x_11); @@ -16482,7 +16490,7 @@ if (lean_is_scalar(x_3693)) { lean_ctor_set(x_3694, 0, x_3683); lean_ctor_set(x_3694, 1, x_3692); x_3695 = lean_array_push(x_3676, x_3694); -x_3696 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3696 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3697 = lean_array_push(x_3695, x_3696); x_3698 = lean_array_push(x_3697, x_3670); x_3699 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16562,7 +16570,7 @@ lean_object* x_3721; lean_object* x_3722; uint8_t x_3723; lean_dec(x_3720); lean_dec(x_3718); lean_dec(x_2); -x_3721 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_3721 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_3722 = l_Lean_Elab_Term_throwError___rarg(x_11, x_3721, x_5, x_6); lean_dec(x_11); x_3723 = !lean_is_exclusive(x_3722); @@ -16663,9 +16671,9 @@ lean_ctor_set(x_3756, 1, x_3754); x_3757 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3758 = lean_array_push(x_3757, x_3756); x_3759 = lean_array_push(x_3758, x_3750); -x_3760 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3760 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3761 = lean_array_push(x_3759, x_3760); -x_3762 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3762 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3763 = lean_array_push(x_3761, x_3762); lean_inc(x_11); x_3764 = lean_array_push(x_3748, x_11); @@ -16680,7 +16688,7 @@ lean_dec(x_3767); lean_ctor_set(x_11, 1, x_3764); lean_ctor_set(x_11, 0, x_3755); x_3768 = lean_array_push(x_3748, x_11); -x_3769 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3769 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3770 = lean_array_push(x_3768, x_3769); x_3771 = lean_array_push(x_3770, x_3742); x_3772 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16708,7 +16716,7 @@ x_3779 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3779, 0, x_3755); lean_ctor_set(x_3779, 1, x_3764); x_3780 = lean_array_push(x_3748, x_3779); -x_3781 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3781 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3782 = lean_array_push(x_3780, x_3781); x_3783 = lean_array_push(x_3782, x_3742); x_3784 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16751,9 +16759,9 @@ lean_ctor_set(x_3800, 1, x_3798); x_3801 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3802 = lean_array_push(x_3801, x_3800); x_3803 = lean_array_push(x_3802, x_3794); -x_3804 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3804 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3805 = lean_array_push(x_3803, x_3804); -x_3806 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3806 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3807 = lean_array_push(x_3805, x_3806); lean_inc(x_11); x_3808 = lean_array_push(x_3792, x_11); @@ -16773,7 +16781,7 @@ if (lean_is_scalar(x_3809)) { lean_ctor_set(x_3810, 0, x_3799); lean_ctor_set(x_3810, 1, x_3808); x_3811 = lean_array_push(x_3792, x_3810); -x_3812 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3812 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3813 = lean_array_push(x_3811, x_3812); x_3814 = lean_array_push(x_3813, x_3742); x_3815 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16836,9 +16844,9 @@ lean_ctor_set(x_3838, 1, x_3836); x_3839 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3840 = lean_array_push(x_3839, x_3838); x_3841 = lean_array_push(x_3840, x_3832); -x_3842 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3842 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3843 = lean_array_push(x_3841, x_3842); -x_3844 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3844 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3845 = lean_array_push(x_3843, x_3844); lean_inc(x_11); x_3846 = lean_array_push(x_3830, x_11); @@ -16858,7 +16866,7 @@ if (lean_is_scalar(x_3847)) { lean_ctor_set(x_3848, 0, x_3837); lean_ctor_set(x_3848, 1, x_3846); x_3849 = lean_array_push(x_3830, x_3848); -x_3850 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3850 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3851 = lean_array_push(x_3849, x_3850); x_3852 = lean_array_push(x_3851, x_3824); x_3853 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -16938,7 +16946,7 @@ lean_object* x_3875; lean_object* x_3876; uint8_t x_3877; lean_dec(x_3874); lean_dec(x_3872); lean_dec(x_2); -x_3875 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_3875 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_3876 = l_Lean_Elab_Term_throwError___rarg(x_11, x_3875, x_5, x_6); lean_dec(x_11); x_3877 = !lean_is_exclusive(x_3876); @@ -17038,9 +17046,9 @@ lean_ctor_set(x_3910, 1, x_3908); x_3911 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3912 = lean_array_push(x_3911, x_3910); x_3913 = lean_array_push(x_3912, x_3904); -x_3914 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3914 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3915 = lean_array_push(x_3913, x_3914); -x_3916 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3916 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3917 = lean_array_push(x_3915, x_3916); lean_inc(x_11); x_3918 = lean_array_push(x_3902, x_11); @@ -17055,7 +17063,7 @@ lean_dec(x_3921); lean_ctor_set(x_11, 1, x_3918); lean_ctor_set(x_11, 0, x_3909); x_3922 = lean_array_push(x_3902, x_11); -x_3923 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3923 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3924 = lean_array_push(x_3922, x_3923); x_3925 = lean_array_push(x_3924, x_3896); x_3926 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17083,7 +17091,7 @@ x_3933 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3933, 0, x_3909); lean_ctor_set(x_3933, 1, x_3918); x_3934 = lean_array_push(x_3902, x_3933); -x_3935 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3935 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3936 = lean_array_push(x_3934, x_3935); x_3937 = lean_array_push(x_3936, x_3896); x_3938 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17126,9 +17134,9 @@ lean_ctor_set(x_3954, 1, x_3952); x_3955 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3956 = lean_array_push(x_3955, x_3954); x_3957 = lean_array_push(x_3956, x_3948); -x_3958 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3958 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3959 = lean_array_push(x_3957, x_3958); -x_3960 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3960 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3961 = lean_array_push(x_3959, x_3960); lean_inc(x_11); x_3962 = lean_array_push(x_3946, x_11); @@ -17148,7 +17156,7 @@ if (lean_is_scalar(x_3963)) { lean_ctor_set(x_3964, 0, x_3953); lean_ctor_set(x_3964, 1, x_3962); x_3965 = lean_array_push(x_3946, x_3964); -x_3966 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_3966 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3967 = lean_array_push(x_3965, x_3966); x_3968 = lean_array_push(x_3967, x_3896); x_3969 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17211,9 +17219,9 @@ lean_ctor_set(x_3992, 1, x_3990); x_3993 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_3994 = lean_array_push(x_3993, x_3992); x_3995 = lean_array_push(x_3994, x_3986); -x_3996 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_3996 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_3997 = lean_array_push(x_3995, x_3996); -x_3998 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_3998 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3999 = lean_array_push(x_3997, x_3998); lean_inc(x_11); x_4000 = lean_array_push(x_3984, x_11); @@ -17233,7 +17241,7 @@ if (lean_is_scalar(x_4001)) { lean_ctor_set(x_4002, 0, x_3991); lean_ctor_set(x_4002, 1, x_4000); x_4003 = lean_array_push(x_3984, x_4002); -x_4004 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4004 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4005 = lean_array_push(x_4003, x_4004); x_4006 = lean_array_push(x_4005, x_3978); x_4007 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17313,7 +17321,7 @@ lean_object* x_4029; lean_object* x_4030; uint8_t x_4031; lean_dec(x_4028); lean_dec(x_4026); lean_dec(x_2); -x_4029 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_4029 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_4030 = l_Lean_Elab_Term_throwError___rarg(x_11, x_4029, x_5, x_6); lean_dec(x_11); x_4031 = !lean_is_exclusive(x_4030); @@ -17412,9 +17420,9 @@ lean_ctor_set(x_4064, 1, x_4062); x_4065 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4066 = lean_array_push(x_4065, x_4064); x_4067 = lean_array_push(x_4066, x_4058); -x_4068 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4068 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4069 = lean_array_push(x_4067, x_4068); -x_4070 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4070 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4071 = lean_array_push(x_4069, x_4070); lean_inc(x_11); x_4072 = lean_array_push(x_4056, x_11); @@ -17429,7 +17437,7 @@ lean_dec(x_4075); lean_ctor_set(x_11, 1, x_4072); lean_ctor_set(x_11, 0, x_4063); x_4076 = lean_array_push(x_4056, x_11); -x_4077 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4077 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4078 = lean_array_push(x_4076, x_4077); x_4079 = lean_array_push(x_4078, x_4050); x_4080 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17457,7 +17465,7 @@ x_4087 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_4087, 0, x_4063); lean_ctor_set(x_4087, 1, x_4072); x_4088 = lean_array_push(x_4056, x_4087); -x_4089 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4089 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4090 = lean_array_push(x_4088, x_4089); x_4091 = lean_array_push(x_4090, x_4050); x_4092 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17500,9 +17508,9 @@ lean_ctor_set(x_4108, 1, x_4106); x_4109 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4110 = lean_array_push(x_4109, x_4108); x_4111 = lean_array_push(x_4110, x_4102); -x_4112 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4112 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4113 = lean_array_push(x_4111, x_4112); -x_4114 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4114 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4115 = lean_array_push(x_4113, x_4114); lean_inc(x_11); x_4116 = lean_array_push(x_4100, x_11); @@ -17522,7 +17530,7 @@ if (lean_is_scalar(x_4117)) { lean_ctor_set(x_4118, 0, x_4107); lean_ctor_set(x_4118, 1, x_4116); x_4119 = lean_array_push(x_4100, x_4118); -x_4120 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4120 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4121 = lean_array_push(x_4119, x_4120); x_4122 = lean_array_push(x_4121, x_4050); x_4123 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17585,9 +17593,9 @@ lean_ctor_set(x_4146, 1, x_4144); x_4147 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4148 = lean_array_push(x_4147, x_4146); x_4149 = lean_array_push(x_4148, x_4140); -x_4150 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4150 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4151 = lean_array_push(x_4149, x_4150); -x_4152 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4152 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4153 = lean_array_push(x_4151, x_4152); lean_inc(x_11); x_4154 = lean_array_push(x_4138, x_11); @@ -17607,7 +17615,7 @@ if (lean_is_scalar(x_4155)) { lean_ctor_set(x_4156, 0, x_4145); lean_ctor_set(x_4156, 1, x_4154); x_4157 = lean_array_push(x_4138, x_4156); -x_4158 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4158 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4159 = lean_array_push(x_4157, x_4158); x_4160 = lean_array_push(x_4159, x_4132); x_4161 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17687,7 +17695,7 @@ lean_object* x_4183; lean_object* x_4184; uint8_t x_4185; lean_dec(x_4182); lean_dec(x_4180); lean_dec(x_2); -x_4183 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_4183 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_4184 = l_Lean_Elab_Term_throwError___rarg(x_11, x_4183, x_5, x_6); lean_dec(x_11); x_4185 = !lean_is_exclusive(x_4184); @@ -17785,9 +17793,9 @@ lean_ctor_set(x_4218, 1, x_4216); x_4219 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4220 = lean_array_push(x_4219, x_4218); x_4221 = lean_array_push(x_4220, x_4212); -x_4222 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4222 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4223 = lean_array_push(x_4221, x_4222); -x_4224 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4224 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4225 = lean_array_push(x_4223, x_4224); lean_inc(x_11); x_4226 = lean_array_push(x_4210, x_11); @@ -17802,7 +17810,7 @@ lean_dec(x_4229); lean_ctor_set(x_11, 1, x_4226); lean_ctor_set(x_11, 0, x_4217); x_4230 = lean_array_push(x_4210, x_11); -x_4231 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4231 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4232 = lean_array_push(x_4230, x_4231); x_4233 = lean_array_push(x_4232, x_4204); x_4234 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17830,7 +17838,7 @@ x_4241 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_4241, 0, x_4217); lean_ctor_set(x_4241, 1, x_4226); x_4242 = lean_array_push(x_4210, x_4241); -x_4243 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4243 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4244 = lean_array_push(x_4242, x_4243); x_4245 = lean_array_push(x_4244, x_4204); x_4246 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17873,9 +17881,9 @@ lean_ctor_set(x_4262, 1, x_4260); x_4263 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4264 = lean_array_push(x_4263, x_4262); x_4265 = lean_array_push(x_4264, x_4256); -x_4266 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4266 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4267 = lean_array_push(x_4265, x_4266); -x_4268 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4268 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4269 = lean_array_push(x_4267, x_4268); lean_inc(x_11); x_4270 = lean_array_push(x_4254, x_11); @@ -17895,7 +17903,7 @@ if (lean_is_scalar(x_4271)) { lean_ctor_set(x_4272, 0, x_4261); lean_ctor_set(x_4272, 1, x_4270); x_4273 = lean_array_push(x_4254, x_4272); -x_4274 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4274 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4275 = lean_array_push(x_4273, x_4274); x_4276 = lean_array_push(x_4275, x_4204); x_4277 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17958,9 +17966,9 @@ lean_ctor_set(x_4300, 1, x_4298); x_4301 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4302 = lean_array_push(x_4301, x_4300); x_4303 = lean_array_push(x_4302, x_4294); -x_4304 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4304 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4305 = lean_array_push(x_4303, x_4304); -x_4306 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4306 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4307 = lean_array_push(x_4305, x_4306); lean_inc(x_11); x_4308 = lean_array_push(x_4292, x_11); @@ -17980,7 +17988,7 @@ if (lean_is_scalar(x_4309)) { lean_ctor_set(x_4310, 0, x_4299); lean_ctor_set(x_4310, 1, x_4308); x_4311 = lean_array_push(x_4292, x_4310); -x_4312 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4312 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4313 = lean_array_push(x_4311, x_4312); x_4314 = lean_array_push(x_4313, x_4286); x_4315 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18060,7 +18068,7 @@ lean_object* x_4337; lean_object* x_4338; uint8_t x_4339; lean_dec(x_4336); lean_dec(x_4334); lean_dec(x_2); -x_4337 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_4337 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_4338 = l_Lean_Elab_Term_throwError___rarg(x_11, x_4337, x_5, x_6); lean_dec(x_11); x_4339 = !lean_is_exclusive(x_4338); @@ -18157,9 +18165,9 @@ lean_ctor_set(x_4372, 1, x_4370); x_4373 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4374 = lean_array_push(x_4373, x_4372); x_4375 = lean_array_push(x_4374, x_4366); -x_4376 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4376 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4377 = lean_array_push(x_4375, x_4376); -x_4378 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4378 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4379 = lean_array_push(x_4377, x_4378); lean_inc(x_11); x_4380 = lean_array_push(x_4364, x_11); @@ -18175,7 +18183,7 @@ lean_ctor_set_tag(x_11, 1); lean_ctor_set(x_11, 1, x_4380); lean_ctor_set(x_11, 0, x_4371); x_4384 = lean_array_push(x_4364, x_11); -x_4385 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4385 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4386 = lean_array_push(x_4384, x_4385); x_4387 = lean_array_push(x_4386, x_4358); x_4388 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18203,7 +18211,7 @@ x_4395 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_4395, 0, x_4371); lean_ctor_set(x_4395, 1, x_4380); x_4396 = lean_array_push(x_4364, x_4395); -x_4397 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4397 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4398 = lean_array_push(x_4396, x_4397); x_4399 = lean_array_push(x_4398, x_4358); x_4400 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18246,9 +18254,9 @@ lean_ctor_set(x_4416, 1, x_4414); x_4417 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4418 = lean_array_push(x_4417, x_4416); x_4419 = lean_array_push(x_4418, x_4410); -x_4420 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4420 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4421 = lean_array_push(x_4419, x_4420); -x_4422 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4422 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4423 = lean_array_push(x_4421, x_4422); lean_inc(x_11); x_4424 = lean_array_push(x_4408, x_11); @@ -18269,7 +18277,7 @@ if (lean_is_scalar(x_4425)) { lean_ctor_set(x_4426, 0, x_4415); lean_ctor_set(x_4426, 1, x_4424); x_4427 = lean_array_push(x_4408, x_4426); -x_4428 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4428 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4429 = lean_array_push(x_4427, x_4428); x_4430 = lean_array_push(x_4429, x_4358); x_4431 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18332,9 +18340,9 @@ lean_ctor_set(x_4454, 1, x_4452); x_4455 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4456 = lean_array_push(x_4455, x_4454); x_4457 = lean_array_push(x_4456, x_4448); -x_4458 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4458 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4459 = lean_array_push(x_4457, x_4458); -x_4460 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4460 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4461 = lean_array_push(x_4459, x_4460); lean_inc(x_11); x_4462 = lean_array_push(x_4446, x_11); @@ -18355,7 +18363,7 @@ if (lean_is_scalar(x_4463)) { lean_ctor_set(x_4464, 0, x_4453); lean_ctor_set(x_4464, 1, x_4462); x_4465 = lean_array_push(x_4446, x_4464); -x_4466 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4466 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4467 = lean_array_push(x_4465, x_4466); x_4468 = lean_array_push(x_4467, x_4440); x_4469 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18435,7 +18443,7 @@ lean_object* x_4491; lean_object* x_4492; uint8_t x_4493; lean_dec(x_4490); lean_dec(x_4488); lean_dec(x_2); -x_4491 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_4491 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_4492 = l_Lean_Elab_Term_throwError___rarg(x_11, x_4491, x_5, x_6); lean_dec(x_11); x_4493 = !lean_is_exclusive(x_4492); @@ -18531,16 +18539,16 @@ lean_ctor_set(x_4526, 1, x_4524); x_4527 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4528 = lean_array_push(x_4527, x_4526); x_4529 = lean_array_push(x_4528, x_4520); -x_4530 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4530 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4531 = lean_array_push(x_4529, x_4530); -x_4532 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4532 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4533 = lean_array_push(x_4531, x_4532); x_4534 = lean_array_push(x_4518, x_11); x_4535 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_4535, 0, x_4525); lean_ctor_set(x_4535, 1, x_4534); x_4536 = lean_array_push(x_4518, x_4535); -x_4537 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4537 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4538 = lean_array_push(x_4536, x_4537); x_4539 = lean_array_push(x_4538, x_4512); x_4540 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18582,16 +18590,16 @@ lean_ctor_set(x_4556, 1, x_4554); x_4557 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4558 = lean_array_push(x_4557, x_4556); x_4559 = lean_array_push(x_4558, x_4550); -x_4560 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4560 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4561 = lean_array_push(x_4559, x_4560); -x_4562 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4562 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4563 = lean_array_push(x_4561, x_4562); x_4564 = lean_array_push(x_4548, x_11); x_4565 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_4565, 0, x_4555); lean_ctor_set(x_4565, 1, x_4564); x_4566 = lean_array_push(x_4548, x_4565); -x_4567 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4567 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4568 = lean_array_push(x_4566, x_4567); x_4569 = lean_array_push(x_4568, x_4512); x_4570 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18654,16 +18662,16 @@ lean_ctor_set(x_4593, 1, x_4591); x_4594 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_4595 = lean_array_push(x_4594, x_4593); x_4596 = lean_array_push(x_4595, x_4587); -x_4597 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_4597 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_4598 = lean_array_push(x_4596, x_4597); -x_4599 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_4599 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_4600 = lean_array_push(x_4598, x_4599); x_4601 = lean_array_push(x_4585, x_11); x_4602 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_4602, 0, x_4592); lean_ctor_set(x_4602, 1, x_4601); x_4603 = lean_array_push(x_4585, x_4602); -x_4604 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_4604 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_4605 = lean_array_push(x_4603, x_4604); x_4606 = lean_array_push(x_4605, x_4579); x_4607 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18743,7 +18751,7 @@ lean_object* x_4629; lean_object* x_4630; uint8_t x_4631; lean_dec(x_4628); lean_dec(x_4626); lean_dec(x_2); -x_4629 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9; +x_4629 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10; x_4630 = l_Lean_Elab_Term_throwError___rarg(x_11, x_4629, x_5, x_6); lean_dec(x_11); x_4631 = !lean_is_exclusive(x_4630); @@ -22955,7 +22963,7 @@ lean_ctor_set(x_66, 1, x_65); x_67 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_68 = lean_array_push(x_67, x_66); x_69 = lean_array_push(x_68, x_44); -x_70 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_70 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_71 = lean_array_push(x_69, x_70); x_72 = lean_array_push(x_71, x_44); x_73 = lean_array_push(x_42, x_12); @@ -22963,7 +22971,7 @@ x_74 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_74, 0, x_51); lean_ctor_set(x_74, 1, x_73); x_75 = lean_array_push(x_42, x_74); -x_76 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_76 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_77 = lean_array_push(x_75, x_76); x_78 = lean_array_push(x_77, x_29); x_79 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -23139,7 +23147,7 @@ lean_ctor_set(x_161, 1, x_160); x_162 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_163 = lean_array_push(x_162, x_161); x_164 = lean_array_push(x_163, x_146); -x_165 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_165 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_166 = lean_array_push(x_164, x_165); x_167 = lean_array_push(x_166, x_146); x_168 = lean_array_push(x_144, x_12); @@ -23147,7 +23155,7 @@ x_169 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_169, 0, x_121); lean_ctor_set(x_169, 1, x_168); x_170 = lean_array_push(x_144, x_169); -x_171 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_171 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_172 = lean_array_push(x_170, x_171); x_173 = lean_array_push(x_172, x_131); x_174 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -23696,7 +23704,7 @@ lean_ctor_set(x_66, 1, x_65); x_67 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_68 = lean_array_push(x_67, x_66); x_69 = lean_array_push(x_68, x_44); -x_70 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_70 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_71 = lean_array_push(x_69, x_70); x_72 = lean_array_push(x_71, x_44); x_73 = lean_array_push(x_42, x_12); @@ -23704,7 +23712,7 @@ x_74 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_74, 0, x_51); lean_ctor_set(x_74, 1, x_73); x_75 = lean_array_push(x_42, x_74); -x_76 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_76 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_77 = lean_array_push(x_75, x_76); x_78 = lean_array_push(x_77, x_29); x_79 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -23880,7 +23888,7 @@ lean_ctor_set(x_161, 1, x_160); x_162 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_163 = lean_array_push(x_162, x_161); x_164 = lean_array_push(x_163, x_146); -x_165 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_165 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_166 = lean_array_push(x_164, x_165); x_167 = lean_array_push(x_166, x_146); x_168 = lean_array_push(x_144, x_12); @@ -23888,7 +23896,7 @@ x_169 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_169, 0, x_121); lean_ctor_set(x_169, 1, x_168); x_170 = lean_array_push(x_144, x_169); -x_171 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_171 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_172 = lean_array_push(x_170, x_171); x_173 = lean_array_push(x_172, x_131); x_174 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -24322,6 +24330,8 @@ l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__8 = _init lean_mark_persistent(l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__8); l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9 = _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9(); lean_mark_persistent(l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9); +l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10 = _init_l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10(); +lean_mark_persistent(l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__10); l___private_Lean_Elab_Binders_12__checkNoOptAutoParam___closed__1 = _init_l___private_Lean_Elab_Binders_12__checkNoOptAutoParam___closed__1(); lean_mark_persistent(l___private_Lean_Elab_Binders_12__checkNoOptAutoParam___closed__1); l___private_Lean_Elab_Binders_12__checkNoOptAutoParam___closed__2 = _init_l___private_Lean_Elab_Binders_12__checkNoOptAutoParam___closed__2(); diff --git a/stage0/stdlib/Lean/Elab/BuiltinNotation.c b/stage0/stdlib/Lean/Elab/BuiltinNotation.c index 2162118a1a..500fc9f7be 100644 --- a/stage0/stdlib/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Lean/Elab/BuiltinNotation.c @@ -39,6 +39,7 @@ extern lean_object* l_Lean_Meta_reduceNative_x3f___closed__2; lean_object* l_Lean_Elab_Term_expandIf___closed__3; extern lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_elabBAnd___closed__1; +extern lean_object* l_Lean_Meta_mkLt___closed__4; extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l___regBuiltin_Lean_Elab_Term_elabBAnd___closed__1; lean_object* l_Lean_Elab_Term_instantiateMVars(lean_object*, lean_object*, lean_object*, lean_object*); @@ -53,6 +54,7 @@ lean_object* l___private_Lean_Syntax_7__quoteName___main(lean_object*); lean_object* l_Lean_Elab_Term_elabModN___closed__3; lean_object* l___regBuiltin_Lean_Elab_Term_elabNativeRefl___closed__1; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__2; +extern lean_object* l_Lean_Meta_mkLe___closed__4; lean_object* l_Lean_Elab_Term_elabBOr___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__19; lean_object* l_Lean_Elab_Term_elabInfix(lean_object*, lean_object*, lean_object*, lean_object*); @@ -86,6 +88,7 @@ lean_object* l_Lean_Elab_Term_elabPow___closed__3; lean_object* lean_environment_find(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_decide___elambda__1___closed__2; lean_object* l___regBuiltin_Lean_Elab_Term_elabseqRight___closed__1; +extern lean_object* l_Lean_Meta_mkSorry___closed__4; lean_object* l_Lean_Elab_Term_elabMod___closed__1; lean_object* l_Lean_Elab_Term_elabTermAndSynthesize(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandDollar(lean_object*, lean_object*, lean_object*); @@ -120,7 +123,6 @@ lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l_Lean_Elab_Term_elabModN(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAndThen___closed__1; -lean_object* l_Lean_Elab_Term_elabDecide___closed__3; 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*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); @@ -128,12 +130,10 @@ extern lean_object* l_Lean_Expr_listLitAux___main___closed__5; lean_object* l___regBuiltin_Lean_Elab_Term_elabAppend___closed__1; lean_object* l___private_Lean_Elab_BuiltinNotation_5__getPropToDecide(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_getAppArgs___closed__1; -extern lean_object* l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1; lean_object* l_Lean_Elab_Term_mkAuxName(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabAnd(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__33; 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___regBuiltin_Lean_Elab_Term_elabAppend(lean_object*); lean_object* l_Lean_Elab_Term_elabDiv___closed__3; @@ -150,7 +150,6 @@ extern lean_object* l_Lean_Parser_Term_andM___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabNativeRefl___closed__2; lean_object* l___regBuiltin_Lean_Elab_Term_ElabFComp(lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__14; -lean_object* l_Lean_Elab_Term_elabLT___closed__1; lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabEquiv___closed__2; lean_object* l_Lean_Elab_Term_getMainModule___rarg(lean_object*); @@ -169,6 +168,7 @@ extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Lean_Elab_Term_expandSubtype___closed__1; lean_object* l_Lean_Elab_Term_mkExpectedTypeHint(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabMap(lean_object*); +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; lean_object* l___regBuiltin_Lean_Elab_Term_expandShow___closed__1; lean_object* l___private_Lean_Elab_Term_3__fromMetaState(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabBNe___closed__1; @@ -199,7 +199,6 @@ lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___close lean_object* l___private_Lean_Elab_BuiltinNotation_2__elabTParserMacroAux___closed__6; extern lean_object* l_Lean_Parser_Term_dollarProj___elambda__1___closed__2; lean_object* l___regBuiltin_Lean_Elab_Term_expandHave(lean_object*); -lean_object* l_Lean_Elab_Term_elabDecide___closed__2; lean_object* l_Lean_Elab_Term_elabOr___closed__2; lean_object* l_Lean_Elab_Term_elabMul___closed__3; lean_object* l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(lean_object*, lean_object*, lean_object*); @@ -261,7 +260,6 @@ extern lean_object* l_Lean_Parser_Term_sub___elambda__1___closed__1; lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__15; lean_object* l_Lean_Elab_Term_elabNativeRefl___closed__4; lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__30; -lean_object* l_Lean_Elab_Term_elabLE___closed__1; lean_object* l_Lean_Elab_Term_ElabFComp___closed__4; lean_object* l_Lean_Elab_Term_expandShow___closed__3; extern lean_object* l_Lean_Expr_iff_x3f___closed__2; @@ -287,6 +285,7 @@ lean_object* l___private_Lean_Elab_BuiltinNotation_2__elabTParserMacroAux___clos lean_object* l___regBuiltin_Lean_Elab_Term_elabLE___closed__1; extern lean_object* l___private_Lean_Elab_Quotation_4__getHeadInfo___elambda__3___closed__1; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__8; +extern lean_object* l_Lean_Meta_mkDecideProof___closed__4; lean_object* l_Lean_Elab_Term_expandIf___closed__9; lean_object* l_Lean_Elab_Term_elabProd___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabAnonymousCtor(lean_object*); @@ -298,13 +297,11 @@ lean_object* l___regBuiltin_Lean_Elab_Term_elabEq___closed__1; extern lean_object* l_Lean_boolToExpr___closed__1; lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__23; lean_object* l___private_Lean_Elab_BuiltinNotation_2__elabTParserMacroAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; lean_object* l___regBuiltin_Lean_Elab_Term_elabNativeDecide(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*); lean_object* l_Lean_Elab_Term_elabMod___closed__3; -lean_object* l_Lean_Elab_Term_elabLE___closed__2; lean_object* l___regBuiltin_Lean_Elab_Term_elabAnd___closed__1; lean_object* l_Lean_Elab_Term_elabseqRight___closed__1; extern lean_object* l_Lean_mkDecIsTrue___closed__2; @@ -321,7 +318,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_elabLT(lean_object*); lean_object* l_Lean_Elab_Term_expandDollar___boxed(lean_object*, lean_object*, 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*); -lean_object* l_Lean_Elab_Term_elabLT___closed__2; lean_object* l_Lean_Elab_Term_elabBAnd(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getCurrMacroScope(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_orM___elambda__1___closed__2; @@ -363,7 +359,6 @@ lean_object* l_Lean_Elab_Term_elabPow___boxed(lean_object*, lean_object*, lean_o lean_object* l___regBuiltin_Lean_Elab_Term_elabMod(lean_object*); lean_object* l_Lean_Elab_Term_elabGE(lean_object*, lean_object*, 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_Lean_Elab_Term_elabOr(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabMap___closed__1; lean_object* l_Lean_Elab_Term_elabAnd___closed__2; @@ -426,7 +421,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_elabPow___closed__1; lean_object* l_Lean_Elab_Term_expandSubtype___closed__2; extern lean_object* l___private_Lean_Meta_DiscrTree_6__shouldAddAsStar___closed__8; extern lean_object* l_Lean_Parser_Term_if___elambda__1___closed__2; -lean_object* l_Lean_Elab_Term_elabLE___closed__3; lean_object* l_Lean_Elab_Term_elabLT(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabDiv(lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); @@ -438,7 +432,6 @@ extern lean_object* l_Lean_Parser_Term_let___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_Elab_Term_elabAndM(lean_object*); lean_object* l_Lean_Syntax_getArgs(lean_object*); lean_object* l_Lean_Elab_Term_expandIf___closed__1; -lean_object* l_Lean_Elab_Term_elabLE___closed__4; lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_3__mkNativeReflAuxDecl___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__3; @@ -1168,7 +1161,7 @@ lean_ctor_set(x_79, 0, x_43); 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_82 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_83 = lean_array_push(x_81, x_82); lean_inc(x_83); x_84 = lean_array_push(x_83, x_56); @@ -1510,7 +1503,7 @@ lean_ctor_set(x_46, 0, x_37); 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_49 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_50 = lean_array_push(x_48, x_49); x_51 = lean_array_push(x_50, x_15); x_52 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -1676,7 +1669,7 @@ lean_ctor_set(x_117, 0, x_67); 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_120 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; 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; @@ -6744,7 +6737,7 @@ x_24 = lean_ctor_get(x_3, 0); lean_inc(x_24); x_25 = l_Lean_TraceState_Inhabited___closed__1; lean_ctor_set(x_20, 4, x_25); -x_26 = l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1; +x_26 = l_Lean_Meta_mkSorry___closed__4; x_27 = l_Lean_Meta_mkEqRefl(x_26, x_24, x_20); if (lean_obj_tag(x_27) == 0) { @@ -6824,7 +6817,7 @@ lean_ctor_set(x_53, 2, x_47); lean_ctor_set(x_53, 3, x_48); lean_ctor_set(x_53, 4, x_52); lean_ctor_set(x_53, 5, x_50); -x_54 = l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1; +x_54 = l_Lean_Meta_mkSorry___closed__4; x_55 = l_Lean_Meta_mkEqRefl(x_54, x_51, x_53); if (lean_obj_tag(x_55) == 0) { @@ -6979,27 +6972,9 @@ return x_5; lean_object* _init_l_Lean_Elab_Term_elabDecide___closed__1() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ofDecideEqTrue"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_elabDecide___closed__2() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_elabDecide___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Elab_Term_elabDecide___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_elabDecide___closed__2; +x_2 = l_Lean_Meta_mkDecideProof___closed__4; x_3 = l_Lean_mkConst(x_2, x_1); return x_3; } @@ -7067,7 +7042,7 @@ lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean x_28 = lean_ctor_get(x_26, 0); x_29 = lean_ctor_get(x_26, 1); x_30 = l___private_Lean_Elab_Term_3__fromMetaState(x_1, x_3, x_18, x_29, x_22); -x_31 = l_Lean_Elab_Term_elabDecide___closed__3; +x_31 = l_Lean_Elab_Term_elabDecide___closed__1; x_32 = l_Lean_mkApp3(x_31, x_8, x_19, x_28); lean_ctor_set(x_26, 1, x_30); lean_ctor_set(x_26, 0, x_32); @@ -7082,7 +7057,7 @@ lean_inc(x_34); lean_inc(x_33); lean_dec(x_26); x_35 = l___private_Lean_Elab_Term_3__fromMetaState(x_1, x_3, x_18, x_34, x_22); -x_36 = l_Lean_Elab_Term_elabDecide___closed__3; +x_36 = l_Lean_Elab_Term_elabDecide___closed__1; x_37 = l_Lean_mkApp3(x_36, x_8, x_19, x_33); x_38 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_38, 0, x_37); @@ -7170,7 +7145,7 @@ if (lean_is_exclusive(x_59)) { x_62 = lean_box(0); } x_63 = l___private_Lean_Elab_Term_3__fromMetaState(x_1, x_3, x_18, x_61, x_53); -x_64 = l_Lean_Elab_Term_elabDecide___closed__3; +x_64 = l_Lean_Elab_Term_elabDecide___closed__1; x_65 = l_Lean_mkApp3(x_64, x_8, x_19, x_60); if (lean_is_scalar(x_62)) { x_66 = lean_alloc_ctor(0, 2, 0); @@ -7904,47 +7879,11 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* _init_l_Lean_Elab_Term_elabLE___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("HasLessEq"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_elabLE___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_elabLE___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Elab_Term_elabLE___closed__3() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("LessEq"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_elabLE___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Elab_Term_elabLE___closed__2; -x_2 = l_Lean_Elab_Term_elabLE___closed__3; -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* x_3) { _start: { lean_object* x_4; lean_object* x_5; -x_4 = l_Lean_Elab_Term_elabLE___closed__4; +x_4 = l_Lean_Meta_mkLe___closed__4; x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); return x_5; } @@ -8034,47 +7973,11 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* _init_l_Lean_Elab_Term_elabLT___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("HasLess"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_elabLT___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_elabLT___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Elab_Term_elabLT___closed__3() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("Less"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_elabLT___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Elab_Term_elabLT___closed__2; -x_2 = l_Lean_Elab_Term_elabLT___closed__3; -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* x_3) { _start: { lean_object* x_4; lean_object* x_5; -x_4 = l_Lean_Elab_Term_elabLT___closed__4; +x_4 = l_Lean_Meta_mkLt___closed__4; x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); return x_5; } @@ -9705,10 +9608,6 @@ if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Elab_Term_elabDecide___closed__1 = _init_l_Lean_Elab_Term_elabDecide___closed__1(); lean_mark_persistent(l_Lean_Elab_Term_elabDecide___closed__1); -l_Lean_Elab_Term_elabDecide___closed__2 = _init_l_Lean_Elab_Term_elabDecide___closed__2(); -lean_mark_persistent(l_Lean_Elab_Term_elabDecide___closed__2); -l_Lean_Elab_Term_elabDecide___closed__3 = _init_l_Lean_Elab_Term_elabDecide___closed__3(); -lean_mark_persistent(l_Lean_Elab_Term_elabDecide___closed__3); l___regBuiltin_Lean_Elab_Term_elabDecide___closed__1 = _init_l___regBuiltin_Lean_Elab_Term_elabDecide___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_elabDecide___closed__1); res = l___regBuiltin_Lean_Elab_Term_elabDecide(lean_io_mk_world()); @@ -9807,14 +9706,6 @@ lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_elabPow___closed__1); res = l___regBuiltin_Lean_Elab_Term_elabPow(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Elab_Term_elabLE___closed__1 = _init_l_Lean_Elab_Term_elabLE___closed__1(); -lean_mark_persistent(l_Lean_Elab_Term_elabLE___closed__1); -l_Lean_Elab_Term_elabLE___closed__2 = _init_l_Lean_Elab_Term_elabLE___closed__2(); -lean_mark_persistent(l_Lean_Elab_Term_elabLE___closed__2); -l_Lean_Elab_Term_elabLE___closed__3 = _init_l_Lean_Elab_Term_elabLE___closed__3(); -lean_mark_persistent(l_Lean_Elab_Term_elabLE___closed__3); -l_Lean_Elab_Term_elabLE___closed__4 = _init_l_Lean_Elab_Term_elabLE___closed__4(); -lean_mark_persistent(l_Lean_Elab_Term_elabLE___closed__4); l___regBuiltin_Lean_Elab_Term_elabLE___closed__1 = _init_l___regBuiltin_Lean_Elab_Term_elabLE___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_elabLE___closed__1); res = l___regBuiltin_Lean_Elab_Term_elabLE(lean_io_mk_world()); @@ -9829,14 +9720,6 @@ lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_elabGE___closed__1); res = l___regBuiltin_Lean_Elab_Term_elabGE(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Elab_Term_elabLT___closed__1 = _init_l_Lean_Elab_Term_elabLT___closed__1(); -lean_mark_persistent(l_Lean_Elab_Term_elabLT___closed__1); -l_Lean_Elab_Term_elabLT___closed__2 = _init_l_Lean_Elab_Term_elabLT___closed__2(); -lean_mark_persistent(l_Lean_Elab_Term_elabLT___closed__2); -l_Lean_Elab_Term_elabLT___closed__3 = _init_l_Lean_Elab_Term_elabLT___closed__3(); -lean_mark_persistent(l_Lean_Elab_Term_elabLT___closed__3); -l_Lean_Elab_Term_elabLT___closed__4 = _init_l_Lean_Elab_Term_elabLT___closed__4(); -lean_mark_persistent(l_Lean_Elab_Term_elabLT___closed__4); l___regBuiltin_Lean_Elab_Term_elabLT___closed__1 = _init_l___regBuiltin_Lean_Elab_Term_elabLT___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_elabLT___closed__1); res = l___regBuiltin_Lean_Elab_Term_elabLT(lean_io_mk_world()); diff --git a/stage0/stdlib/Lean/Elab/Declaration.c b/stage0/stdlib/Lean/Elab/Declaration.c index b42c4ae424..1d40fd5bb2 100644 --- a/stage0/stdlib/Lean/Elab/Declaration.c +++ b/stage0/stdlib/Lean/Elab/Declaration.c @@ -121,11 +121,11 @@ uint8_t l___private_Lean_Elab_Declaration_3__isMutualInductive(lean_object*); extern lean_object* l_Lean_Parser_Command_instance___elambda__1___closed__2; extern lean_object* l_Lean_mkReducibilityAttrs___closed__4; lean_object* l_Lean_mkAtomFrom(lean_object*, lean_object*); +extern lean_object* l_Lean_Compiler_mkInlineAttrs___closed__4; extern lean_object* l_Lean_Parser_Command_universe___elambda__1___closed__2; extern lean_object* l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__11; uint8_t l___private_Lean_Elab_Declaration_5__isMutualPreambleCommand(lean_object*); lean_object* l___private_Lean_Elab_Declaration_1__inductiveSyntaxToView(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_elabAbbrev___closed__3; lean_object* lean_environment_main_module(lean_object*); extern lean_object* l_Lean_Parser_Command_end___elambda__1___closed__1; lean_object* l_Lean_Elab_Command_elabMutual(lean_object*, lean_object*, lean_object*); @@ -190,7 +190,6 @@ lean_object* l_Lean_Elab_Command_elabConstant___closed__3; lean_object* l___private_Lean_Elab_Declaration_7__expandMutualPreamble_x3f___closed__11; lean_object* l_Lean_Elab_Command_elabAbbrev___closed__1; lean_object* l_Lean_Elab_Command_checkValidInductiveModifier(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_elabAbbrev___closed__4; lean_object* l_Lean_CollectLevelParams_main___main(lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Command_liftTermElabM___rarg___closed__1; lean_object* l___regBuiltin_Lean_Elab_Command_elabMutual___closed__1; @@ -206,26 +205,8 @@ lean_object* l_Lean_Elab_Command_elabMutual___closed__1; lean_object* _init_l_Lean_Elab_Command_elabAbbrev___closed__1() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("inline"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Command_elabAbbrev___closed__2() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Command_elabAbbrev___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Elab_Command_elabAbbrev___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Elab_Command_elabAbbrev___closed__2; +x_1 = l_Lean_Compiler_mkInlineAttrs___closed__4; x_2 = lean_box(0); x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); @@ -233,7 +214,7 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Elab_Command_elabAbbrev___closed__4() { +lean_object* _init_l_Lean_Elab_Command_elabAbbrev___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -258,9 +239,9 @@ lean_inc(x_8); x_9 = lean_ctor_get(x_7, 1); lean_inc(x_9); lean_dec(x_7); -x_10 = l_Lean_Elab_Command_elabAbbrev___closed__3; +x_10 = l_Lean_Elab_Command_elabAbbrev___closed__1; x_11 = l_Lean_Elab_Command_Modifiers_addAttribute(x_1, x_10); -x_12 = l_Lean_Elab_Command_elabAbbrev___closed__4; +x_12 = l_Lean_Elab_Command_elabAbbrev___closed__2; x_13 = l_Lean_Elab_Command_Modifiers_addAttribute(x_11, x_12); x_14 = lean_unsigned_to_nat(1u); x_15 = l_Lean_Syntax_getArg(x_2, x_14); @@ -3998,10 +3979,6 @@ l_Lean_Elab_Command_elabAbbrev___closed__1 = _init_l_Lean_Elab_Command_elabAbbre lean_mark_persistent(l_Lean_Elab_Command_elabAbbrev___closed__1); l_Lean_Elab_Command_elabAbbrev___closed__2 = _init_l_Lean_Elab_Command_elabAbbrev___closed__2(); lean_mark_persistent(l_Lean_Elab_Command_elabAbbrev___closed__2); -l_Lean_Elab_Command_elabAbbrev___closed__3 = _init_l_Lean_Elab_Command_elabAbbrev___closed__3(); -lean_mark_persistent(l_Lean_Elab_Command_elabAbbrev___closed__3); -l_Lean_Elab_Command_elabAbbrev___closed__4 = _init_l_Lean_Elab_Command_elabAbbrev___closed__4(); -lean_mark_persistent(l_Lean_Elab_Command_elabAbbrev___closed__4); l_Lean_Elab_Command_elabConstant___closed__1 = _init_l_Lean_Elab_Command_elabConstant___closed__1(); lean_mark_persistent(l_Lean_Elab_Command_elabConstant___closed__1); l_Lean_Elab_Command_elabConstant___closed__2 = _init_l_Lean_Elab_Command_elabConstant___closed__2(); diff --git a/stage0/stdlib/Lean/Elab/DoNotation.c b/stage0/stdlib/Lean/Elab/DoNotation.c index 927db3bb0a..5412db42f3 100644 --- a/stage0/stdlib/Lean/Elab/DoNotation.c +++ b/stage0/stdlib/Lean/Elab/DoNotation.c @@ -45,7 +45,6 @@ lean_object* l_Lean_Elab_Term_getDecLevel(lean_object*, lean_object*, lean_objec lean_object* l_Lean_Elab_Term_ProcessedDoElem_inhabited___closed__1; extern lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; lean_object* l___private_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__1; -extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; 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*); @@ -57,6 +56,7 @@ lean_object* l___private_Lean_Elab_DoNotation_1__mkIdBindFor___closed__3; lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_do___elambda__1___closed__2; uint8_t l___private_Lean_Elab_DoNotation_4__hasLiftMethod___main(lean_object*); +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; 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___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at___private_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*); @@ -80,16 +80,16 @@ lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(lean_object*); lean_object* l___private_Lean_Elab_DoNotation_5__expandLiftMethodAux___main___closed__4; extern lean_object* l___private_Lean_Elab_Term_5__expandCDot___main___closed__3; lean_object* l___private_Lean_Elab_DoNotation_11__processDoElemsAux___main___closed__5; -extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_DoNotation_10__mkBind(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; extern lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__6; extern lean_object* l_Lean_Parser_Term_doId___elambda__1___closed__2; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_DoNotation_10__mkBind___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Lean_Elab_Term_5__expandCDot___main___closed__2; +extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; lean_object* l_Lean_Elab_Term_elabTermAux___main(lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); -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* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -2145,7 +2145,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l___private_Lean_Elab_DoNotation_7__expandDoElemsAux___main___closed__1; -x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3 = lean_array_push(x_1, x_2); return x_3; } @@ -2424,16 +2424,16 @@ lean_ctor_set(x_165, 1, x_164); x_166 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_167 = lean_array_push(x_166, x_165); x_168 = lean_array_push(x_167, x_152); -x_169 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_169 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_170 = lean_array_push(x_168, x_169); -x_171 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_171 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_172 = lean_array_push(x_170, x_171); x_173 = lean_array_push(x_129, x_117); x_174 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_174, 0, x_131); lean_ctor_set(x_174, 1, x_173); x_175 = lean_array_push(x_129, x_174); -x_176 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_176 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_177 = lean_array_push(x_175, x_176); x_178 = lean_array_push(x_177, x_142); x_179 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -2441,7 +2441,7 @@ x_180 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_180, 0, x_179); lean_ctor_set(x_180, 1, x_178); x_181 = lean_array_push(x_129, x_180); -x_182 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_182 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_183 = lean_array_push(x_181, x_182); x_184 = l___private_Lean_Elab_DoNotation_7__expandDoElemsAux___main___closed__2; x_185 = lean_array_push(x_184, x_144); @@ -2513,16 +2513,16 @@ lean_ctor_set(x_219, 1, x_218); x_220 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_221 = lean_array_push(x_220, x_219); x_222 = lean_array_push(x_221, x_206); -x_223 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_223 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_224 = lean_array_push(x_222, x_223); -x_225 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_225 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_226 = lean_array_push(x_224, x_225); x_227 = lean_array_push(x_129, x_117); x_228 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_228, 0, x_131); lean_ctor_set(x_228, 1, x_227); x_229 = lean_array_push(x_129, x_228); -x_230 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_230 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_231 = lean_array_push(x_229, x_230); x_232 = lean_array_push(x_231, x_142); x_233 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -2611,16 +2611,16 @@ lean_ctor_set(x_276, 1, x_274); x_277 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_278 = lean_array_push(x_277, x_276); x_279 = lean_array_push(x_278, x_262); -x_280 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_280 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_281 = lean_array_push(x_279, x_280); -x_282 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_282 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_283 = lean_array_push(x_281, x_282); x_284 = lean_array_push(x_260, x_117); x_285 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_285, 0, x_275); lean_ctor_set(x_285, 1, x_284); x_286 = lean_array_push(x_260, x_285); -x_287 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_287 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_288 = lean_array_push(x_286, x_287); x_289 = lean_array_push(x_288, x_249); x_290 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -2628,7 +2628,7 @@ 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_260, x_291); -x_293 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_293 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_294 = lean_array_push(x_292, x_293); x_295 = l___private_Lean_Elab_DoNotation_7__expandDoElemsAux___main___closed__2; x_296 = lean_array_push(x_295, x_253); @@ -2704,16 +2704,16 @@ lean_ctor_set(x_334, 1, x_332); x_335 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_336 = lean_array_push(x_335, x_334); x_337 = lean_array_push(x_336, x_320); -x_338 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_338 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_339 = lean_array_push(x_337, x_338); -x_340 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_340 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_341 = lean_array_push(x_339, x_340); x_342 = lean_array_push(x_318, x_117); x_343 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_343, 0, x_333); lean_ctor_set(x_343, 1, x_342); x_344 = lean_array_push(x_318, x_343); -x_345 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_345 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_346 = lean_array_push(x_344, x_345); x_347 = lean_array_push(x_346, x_249); x_348 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -3118,16 +3118,16 @@ lean_ctor_set(x_547, 1, x_546); x_548 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_549 = lean_array_push(x_548, x_547); x_550 = lean_array_push(x_549, x_534); -x_551 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_551 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_552 = lean_array_push(x_550, x_551); -x_553 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_553 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_554 = lean_array_push(x_552, x_553); x_555 = lean_array_push(x_511, x_499); x_556 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_556, 0, x_513); lean_ctor_set(x_556, 1, x_555); x_557 = lean_array_push(x_511, x_556); -x_558 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_558 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_559 = lean_array_push(x_557, x_558); x_560 = lean_array_push(x_559, x_524); x_561 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -3135,7 +3135,7 @@ x_562 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_562, 0, x_561); lean_ctor_set(x_562, 1, x_560); x_563 = lean_array_push(x_511, x_562); -x_564 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_564 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_565 = lean_array_push(x_563, x_564); x_566 = l___private_Lean_Elab_DoNotation_7__expandDoElemsAux___main___closed__2; x_567 = lean_array_push(x_566, x_526); @@ -3207,16 +3207,16 @@ lean_ctor_set(x_601, 1, x_600); x_602 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_603 = lean_array_push(x_602, x_601); x_604 = lean_array_push(x_603, x_588); -x_605 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_605 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_606 = lean_array_push(x_604, x_605); -x_607 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_607 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_608 = lean_array_push(x_606, x_607); x_609 = lean_array_push(x_511, x_499); x_610 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_610, 0, x_513); lean_ctor_set(x_610, 1, x_609); x_611 = lean_array_push(x_511, x_610); -x_612 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_612 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_613 = lean_array_push(x_611, x_612); x_614 = lean_array_push(x_613, x_524); x_615 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -3305,16 +3305,16 @@ lean_ctor_set(x_658, 1, x_656); x_659 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_660 = lean_array_push(x_659, x_658); x_661 = lean_array_push(x_660, x_644); -x_662 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_662 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_663 = lean_array_push(x_661, x_662); -x_664 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_664 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_665 = lean_array_push(x_663, x_664); x_666 = lean_array_push(x_642, x_499); x_667 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_667, 0, x_657); lean_ctor_set(x_667, 1, x_666); x_668 = lean_array_push(x_642, x_667); -x_669 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_669 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_670 = lean_array_push(x_668, x_669); x_671 = lean_array_push(x_670, x_631); x_672 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -3322,7 +3322,7 @@ x_673 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_673, 0, x_672); lean_ctor_set(x_673, 1, x_671); x_674 = lean_array_push(x_642, x_673); -x_675 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_675 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_676 = lean_array_push(x_674, x_675); x_677 = l___private_Lean_Elab_DoNotation_7__expandDoElemsAux___main___closed__2; x_678 = lean_array_push(x_677, x_635); @@ -3398,16 +3398,16 @@ lean_ctor_set(x_716, 1, x_714); x_717 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__2; x_718 = lean_array_push(x_717, x_716); x_719 = lean_array_push(x_718, x_702); -x_720 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_720 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_721 = lean_array_push(x_719, x_720); -x_722 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_722 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_723 = lean_array_push(x_721, x_722); x_724 = lean_array_push(x_700, x_499); x_725 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_725, 0, x_715); lean_ctor_set(x_725, 1, x_724); x_726 = lean_array_push(x_700, x_725); -x_727 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_727 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_728 = lean_array_push(x_726, x_727); x_729 = lean_array_push(x_728, x_631); x_730 = l_Lean_Parser_Term_matchAlt___closed__2; diff --git a/stage0/stdlib/Lean/Elab/Quotation.c b/stage0/stdlib/Lean/Elab/Quotation.c index 9aba01d39e..a40b5a4f83 100644 --- a/stage0/stdlib/Lean/Elab/Quotation.c +++ b/stage0/stdlib/Lean/Elab/Quotation.c @@ -30,7 +30,6 @@ lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Quotation_5__explodeHeadPat(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Quotation_2__quoteSyntax___main___closed__12; extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__8; -extern lean_object* l_Lean_Parser_darrow___elambda__1___closed__1; lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__3; lean_object* l_Array_findMAux___main___at___private_Lean_Elab_Quotation_1__elimAntiquotChoices___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); @@ -105,6 +104,7 @@ lean_object* l___private_Lean_Elab_Quotation_4__getHeadInfo___elambda__3___close lean_object* l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__16; lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__2; lean_object* l___private_Lean_Elab_Quotation_2__quoteSyntax___main___closed__50; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__4; lean_object* l_Lean_Parser_mkInputContext(lean_object*, lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); @@ -153,6 +153,7 @@ extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Quotation_2__quoteSyntax___main___spec__1___closed__1; lean_object* l___private_Lean_Elab_Quotation_4__getHeadInfo___lambda__1___closed__2; lean_object* l___private_Lean_Elab_Quotation_6__compileStxMatch___main___closed__17; +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; extern lean_object* l_Lean_mkAppStx___closed__7; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_Quotation_match__syntax_expand___spec__1___closed__5; @@ -478,7 +479,6 @@ lean_object* l_Lean_Elab_Term_Quotation_elabStxQuot___closed__1; extern lean_object* l_Lean_Unhygienic_MonadQuotation___closed__2; lean_object* lean_get_namespace(lean_object*); lean_object* l___private_Lean_Elab_Quotation_2__quoteSyntax___main___closed__62; -uint8_t l_Lean_Syntax_isNone(lean_object*); extern lean_object* l_Lean_TraceState_Inhabited___closed__1; lean_object* l___private_Lean_Elab_Quotation_2__quoteSyntax___main___closed__49; extern lean_object* l_Lean_Parser_Syntax_atom___elambda__1___closed__1; @@ -755,35 +755,28 @@ return x_8; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +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_unsigned_to_nat(3u); x_11 = lean_array_get(x_9, x_3, x_10); -x_12 = l_Lean_Syntax_isNone(x_11); -lean_dec(x_11); -if (x_12 == 0) -{ -lean_object* x_13; -lean_inc(x_4); -x_13 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_13, 0, x_4); -return x_13; -} -else +x_12 = l_Lean_Parser_mkAntiquot___closed__4; +x_13 = l_Lean_Syntax_isOfKind(x_11, x_12); +if (x_13 == 0) { lean_object* x_14; x_14 = l_Lean_Elab_Term_Quotation_antiquotKind_x3f___closed__1; return x_14; } -} -} else { lean_object* x_15; -x_15 = lean_box(0); +lean_inc(x_4); +x_15 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_15, 0, x_4); return x_15; } } +} else { lean_object* x_16; @@ -791,6 +784,13 @@ x_16 = lean_box(0); return x_16; } } +else +{ +lean_object* x_17; +x_17 = lean_box(0); +return x_17; +} +} } lean_object* l_Lean_Elab_Term_Quotation_antiquotKind_x3f___boxed(lean_object* x_1) { _start: @@ -815,7 +815,7 @@ return x_3; else { lean_object* x_4; lean_object* x_5; lean_object* x_6; -x_4 = lean_unsigned_to_nat(5u); +x_4 = lean_unsigned_to_nat(4u); x_5 = l_Lean_Syntax_getArg(x_1, x_4); x_6 = l_Lean_Syntax_getOptional_x3f(x_5); lean_dec(x_5); @@ -4029,7 +4029,7 @@ lean_ctor_set(x_48, 0, x_47); lean_ctor_set(x_48, 1, x_46); 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_51 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_52 = lean_array_push(x_50, x_51); x_53 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__22; lean_inc(x_11); @@ -4214,7 +4214,7 @@ lean_ctor_set(x_149, 0, x_148); lean_ctor_set(x_149, 1, x_147); x_150 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_151 = lean_array_push(x_150, x_149); -x_152 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_152 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_153 = lean_array_push(x_151, x_152); x_154 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__22; lean_inc(x_11); @@ -10983,7 +10983,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__12; -x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3 = lean_array_push(x_1, x_2); return x_3; } @@ -11001,7 +11001,7 @@ lean_object* _init_l___private_Lean_Elab_Quotation_8__letBindRhss___main___close _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_darrow___elambda__1___closed__1; +x_1 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; x_2 = l_Lean_mkAtom(x_1); return x_2; } @@ -15330,7 +15330,7 @@ lean_ctor_set(x_335, 0, x_332); lean_ctor_set(x_335, 1, x_334); x_336 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_337 = lean_array_push(x_336, x_335); -x_338 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_338 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_339 = lean_array_push(x_337, x_338); x_340 = lean_array_push(x_339, x_298); x_341 = lean_alloc_ctor(1, 2, 0); @@ -15685,7 +15685,7 @@ lean_ctor_set(x_437, 0, x_434); lean_ctor_set(x_437, 1, x_436); x_438 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_439 = lean_array_push(x_438, x_437); -x_440 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_440 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_441 = lean_array_push(x_439, x_440); x_442 = lean_array_push(x_441, x_298); x_443 = lean_alloc_ctor(1, 2, 0); @@ -16012,7 +16012,7 @@ lean_ctor_set(x_534, 0, x_531); lean_ctor_set(x_534, 1, x_533); x_535 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_536 = lean_array_push(x_535, x_534); -x_537 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_537 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_538 = lean_array_push(x_536, x_537); x_539 = lean_array_push(x_538, x_298); x_540 = lean_alloc_ctor(1, 2, 0); @@ -17634,7 +17634,7 @@ lean_ctor_set(x_997, 0, x_994); lean_ctor_set(x_997, 1, x_996); x_998 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_999 = lean_array_push(x_998, x_997); -x_1000 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1000 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1001 = lean_array_push(x_999, x_1000); x_1002 = lean_array_push(x_1001, x_960); x_1003 = lean_alloc_ctor(1, 2, 0); @@ -17851,7 +17851,7 @@ lean_ctor_set(x_1060, 0, x_1057); lean_ctor_set(x_1060, 1, x_1059); x_1061 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1062 = lean_array_push(x_1061, x_1060); -x_1063 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1063 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1064 = lean_array_push(x_1062, x_1063); x_1065 = lean_array_push(x_1064, x_960); x_1066 = lean_alloc_ctor(1, 2, 0); @@ -18038,7 +18038,7 @@ lean_ctor_set(x_1118, 0, x_1115); lean_ctor_set(x_1118, 1, x_1117); x_1119 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1120 = lean_array_push(x_1119, x_1118); -x_1121 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1121 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1122 = lean_array_push(x_1120, x_1121); x_1123 = lean_array_push(x_1122, x_960); x_1124 = lean_alloc_ctor(1, 2, 0); @@ -19495,7 +19495,7 @@ lean_ctor_set(x_1510, 0, x_1507); lean_ctor_set(x_1510, 1, x_1509); x_1511 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1512 = lean_array_push(x_1511, x_1510); -x_1513 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1513 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1514 = lean_array_push(x_1512, x_1513); x_1515 = lean_array_push(x_1514, x_1473); x_1516 = lean_alloc_ctor(1, 2, 0); @@ -19712,7 +19712,7 @@ lean_ctor_set(x_1573, 0, x_1570); lean_ctor_set(x_1573, 1, x_1572); x_1574 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1575 = lean_array_push(x_1574, x_1573); -x_1576 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1576 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1577 = lean_array_push(x_1575, x_1576); x_1578 = lean_array_push(x_1577, x_1473); x_1579 = lean_alloc_ctor(1, 2, 0); @@ -19899,7 +19899,7 @@ lean_ctor_set(x_1631, 0, x_1628); lean_ctor_set(x_1631, 1, x_1630); x_1632 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1633 = lean_array_push(x_1632, x_1631); -x_1634 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1634 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1635 = lean_array_push(x_1633, x_1634); x_1636 = lean_array_push(x_1635, x_1473); x_1637 = lean_alloc_ctor(1, 2, 0); @@ -21389,7 +21389,7 @@ lean_ctor_set(x_2029, 0, x_2026); lean_ctor_set(x_2029, 1, x_2028); x_2030 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_2031 = lean_array_push(x_2030, x_2029); -x_2032 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2032 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2033 = lean_array_push(x_2031, x_2032); x_2034 = lean_array_push(x_2033, x_1992); x_2035 = lean_alloc_ctor(1, 2, 0); @@ -21606,7 +21606,7 @@ lean_ctor_set(x_2092, 0, x_2089); lean_ctor_set(x_2092, 1, x_2091); x_2093 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_2094 = lean_array_push(x_2093, x_2092); -x_2095 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2095 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2096 = lean_array_push(x_2094, x_2095); x_2097 = lean_array_push(x_2096, x_1992); x_2098 = lean_alloc_ctor(1, 2, 0); @@ -21793,7 +21793,7 @@ lean_ctor_set(x_2150, 0, x_2147); lean_ctor_set(x_2150, 1, x_2149); x_2151 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_2152 = lean_array_push(x_2151, x_2150); -x_2153 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2153 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2154 = lean_array_push(x_2152, x_2153); x_2155 = lean_array_push(x_2154, x_1992); x_2156 = lean_alloc_ctor(1, 2, 0); @@ -23315,7 +23315,7 @@ lean_ctor_set(x_2555, 0, x_2552); lean_ctor_set(x_2555, 1, x_2554); x_2556 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_2557 = lean_array_push(x_2556, x_2555); -x_2558 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2558 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2559 = lean_array_push(x_2557, x_2558); x_2560 = lean_array_push(x_2559, x_2518); x_2561 = lean_alloc_ctor(1, 2, 0); @@ -23532,7 +23532,7 @@ lean_ctor_set(x_2618, 0, x_2615); lean_ctor_set(x_2618, 1, x_2617); x_2619 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_2620 = lean_array_push(x_2619, x_2618); -x_2621 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2621 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2622 = lean_array_push(x_2620, x_2621); x_2623 = lean_array_push(x_2622, x_2518); x_2624 = lean_alloc_ctor(1, 2, 0); @@ -23719,7 +23719,7 @@ lean_ctor_set(x_2676, 0, x_2673); lean_ctor_set(x_2676, 1, x_2675); x_2677 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_2678 = lean_array_push(x_2677, x_2676); -x_2679 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2679 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_2680 = lean_array_push(x_2678, x_2679); x_2681 = lean_array_push(x_2680, x_2518); x_2682 = lean_alloc_ctor(1, 2, 0); diff --git a/stage0/stdlib/Lean/Elab/StructInst.c b/stage0/stdlib/Lean/Elab/StructInst.c index 608b245733..c7503a9d36 100644 --- a/stage0/stdlib/Lean/Elab/StructInst.c +++ b/stage0/stdlib/Lean/Elab/StructInst.c @@ -159,7 +159,7 @@ extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l___private_Lean_Elab_StructInst_21__getForallBody(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_StructInst_Source_inhabited; lean_object* l_Lean_fmt___at_Lean_Level_LevelToFormat_toResult___main___spec__1(lean_object*); -extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__7; +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; lean_object* l___private_Lean_Elab_Term_3__fromMetaState(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_StructInst_20__mkCtorHeaderAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); @@ -256,7 +256,6 @@ lean_object* l___private_Lean_Elab_StructInst_7__mkStructView(lean_object*, lean lean_object* l___private_Lean_Elab_StructInst_4__elabModifyOp___closed__24; lean_object* l___private_Lean_Elab_StructInst_1__expandNonAtomicExplicitSource___closed__4; lean_object* l_Lean_Elab_Term_StructInst_DefaultFields_reduceProjOf_x3f(lean_object*, lean_object*, lean_object*, lean_object*); -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_List_mapM___main___at___private_Lean_Elab_StructInst_23__mkCtorHeader___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_AssocList_contains___main___at___private_Lean_Elab_StructInst_12__mkFieldMap___spec__4___boxed(lean_object*, lean_object*); @@ -499,6 +498,7 @@ lean_object* l_Lean_Elab_Term_StructInst_Field_inhabited___closed__1; lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_StructInst_25__elabStructInstAux___closed__3; lean_object* l___private_Lean_Elab_StructInst_6__toFieldLHS___closed__1; +extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__7; lean_object* l_unsafeCast(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_Lean_arrayToExpr___rarg___closed__2; @@ -2406,7 +2406,7 @@ lean_ctor_set(x_95, 0, x_94); lean_ctor_set(x_95, 1, x_93); x_96 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_97 = lean_array_push(x_96, x_95); -x_98 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_98 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_99 = lean_array_push(x_97, x_98); x_100 = lean_array_push(x_99, x_54); x_101 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -2640,7 +2640,7 @@ lean_ctor_set(x_236, 0, x_235); lean_ctor_set(x_236, 1, x_234); x_237 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_238 = lean_array_push(x_237, x_236); -x_239 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_239 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_240 = lean_array_push(x_238, x_239); x_241 = lean_array_push(x_240, x_185); x_242 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -8362,7 +8362,7 @@ lean_object* _init_l_Lean_Elab_Term_StructInst_formatStruct___main___closed__5() _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__7; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__7; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; diff --git a/stage0/stdlib/Lean/Elab/Syntax.c b/stage0/stdlib/Lean/Elab/Syntax.c index f2b1015e86..22cccdc7ec 100644 --- a/stage0/stdlib/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Lean/Elab/Syntax.c @@ -128,7 +128,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__19; lean_object* l_Lean_Elab_Command_expandElab___closed__4; lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_checkLeftRec___closed__9; -extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; lean_object* l_Lean_Elab_Command_elabSyntax___closed__16; lean_object* l___private_Init_LeanInit_14__mapSepElemsMAux___main___at_Lean_Elab_Command_elabMacroRulesAux___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__118; @@ -188,6 +187,7 @@ extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Lean_Elab_Command_elabMixfix___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__37; lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed__49; +extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__5; lean_object* l___private_Lean_Elab_Syntax_3__withNotFirst(lean_object*); @@ -288,7 +288,6 @@ lean_object* l___private_Lean_Elab_Syntax_9__expandNotationAux(lean_object*, lea 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; -extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; lean_object* l_Lean_Macro_addMacroScope(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_regTermParserAttribute___closed__1; extern lean_object* l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; @@ -296,6 +295,7 @@ lean_object* l___private_Lean_Elab_Syntax_10__regTraceClasses(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__129; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_numLitKind___closed__1; +extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; extern lean_object* l_Lean_Parser_Command_def___elambda__1___closed__1; extern lean_object* l_Lean_strLitKind___closed__1; lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Syntax_1__mkParserSeq___spec__1___closed__3; @@ -309,6 +309,7 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRules___closed__1; lean_object* l_Lean_Elab_Command_strLitToPattern___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandElab___closed__20; +extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; lean_object* l_List_filterAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntaxAbbrev___closed__5; lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed__62; @@ -328,7 +329,6 @@ extern lean_object* l_Lean_Parser_Command_attrInstance___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_expandElab___closed__42; lean_object* l___private_Lean_Elab_Command_1__ioErrorToMessage(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed__33; -extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3; lean_object* l_Lean_Elab_Command_elabMacroRules(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__55; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__37; @@ -13038,7 +13038,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Elab_Command_elabMacroRulesAux___closed__18; -x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_2 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_3 = lean_array_push(x_1, x_2); return x_3; } @@ -13385,17 +13385,17 @@ lean_ctor_set(x_87, 0, x_25); lean_ctor_set(x_87, 1, x_86); x_88 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_89 = lean_array_push(x_88, x_87); -x_90 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_90 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_91 = lean_array_push(x_89, x_90); x_92 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_93 = lean_array_push(x_92, x_85); -x_94 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_94 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_95 = lean_array_push(x_93, x_94); x_96 = lean_array_push(x_95, x_42); x_97 = lean_unsigned_to_nat(0u); x_98 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_7, x_7, x_97, x_21); lean_dec(x_7); -x_99 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_99 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_100 = lean_array_push(x_98, x_99); x_101 = l_Lean_Elab_Command_elabMacroRulesAux___closed__23; lean_inc(x_10); @@ -13610,17 +13610,17 @@ lean_ctor_set(x_219, 0, x_157); lean_ctor_set(x_219, 1, x_218); x_220 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_221 = lean_array_push(x_220, x_219); -x_222 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_222 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_223 = lean_array_push(x_221, x_222); x_224 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_225 = lean_array_push(x_224, x_217); -x_226 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_226 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_227 = lean_array_push(x_225, x_226); x_228 = lean_array_push(x_227, x_174); x_229 = lean_unsigned_to_nat(0u); x_230 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_7, x_7, x_229, x_153); lean_dec(x_7); -x_231 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_231 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_232 = lean_array_push(x_230, x_231); x_233 = l_Lean_Elab_Command_elabMacroRulesAux___closed__23; lean_inc(x_10); @@ -16066,7 +16066,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l___private_Lean_Elab_Syntax_9__expandNotationAux___closed__4; -x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3 = lean_array_push(x_1, x_2); return x_3; } @@ -16076,7 +16076,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__3; -x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_3 = lean_array_push(x_1, x_2); return x_3; } @@ -16177,7 +16177,7 @@ 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_58 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_59 = lean_array_push(x_57, x_58); x_60 = lean_array_push(x_49, x_23); x_61 = lean_array_push(x_60, x_51); @@ -16262,7 +16262,7 @@ x_108 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_108, 0, x_81); lean_ctor_set(x_108, 1, x_107); x_109 = lean_array_push(x_79, x_108); -x_110 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_110 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_111 = lean_array_push(x_109, x_110); x_112 = lean_array_push(x_101, x_23); x_113 = lean_array_push(x_112, x_103); @@ -16346,7 +16346,7 @@ x_155 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_155, 0, x_134); lean_ctor_set(x_155, 1, x_154); x_156 = lean_array_push(x_138, x_155); -x_157 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_157 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_158 = lean_array_push(x_156, x_157); x_159 = lean_array_push(x_148, x_23); x_160 = lean_array_push(x_159, x_150); @@ -16433,7 +16433,7 @@ x_208 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_208, 0, x_181); lean_ctor_set(x_208, 1, x_207); x_209 = lean_array_push(x_179, x_208); -x_210 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_210 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_211 = lean_array_push(x_209, x_210); x_212 = lean_array_push(x_201, x_23); x_213 = lean_array_push(x_212, x_203); @@ -17260,7 +17260,7 @@ x_77 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_77, 0, x_50); lean_ctor_set(x_77, 1, x_76); x_78 = lean_array_push(x_48, x_77); -x_79 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_79 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_80 = lean_array_push(x_78, x_79); x_81 = lean_array_push(x_70, x_47); x_82 = lean_array_push(x_81, x_72); @@ -17339,7 +17339,7 @@ x_126 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_126, 0, x_99); lean_ctor_set(x_126, 1, x_125); x_127 = lean_array_push(x_97, x_126); -x_128 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_128 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_129 = lean_array_push(x_127, x_128); x_130 = lean_array_push(x_129, x_96); x_131 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -17434,7 +17434,7 @@ x_180 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_180, 0, x_153); lean_ctor_set(x_180, 1, x_179); x_181 = lean_array_push(x_151, x_180); -x_182 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_182 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_183 = lean_array_push(x_181, x_182); x_184 = lean_array_push(x_173, x_150); x_185 = lean_array_push(x_184, x_175); @@ -17515,7 +17515,7 @@ x_230 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_230, 0, x_203); lean_ctor_set(x_230, 1, x_229); x_231 = lean_array_push(x_201, x_230); -x_232 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_232 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_233 = lean_array_push(x_231, x_232); x_234 = lean_array_push(x_233, x_200); x_235 = l_Lean_Parser_Term_matchAlt___closed__2; @@ -18828,13 +18828,13 @@ lean_ctor_set(x_153, 0, x_67); lean_ctor_set(x_153, 1, x_152); x_154 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_155 = lean_array_push(x_154, x_153); -x_156 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_156 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_157 = lean_array_push(x_155, x_156); x_158 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_159 = lean_array_push(x_158, x_151); -x_160 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_160 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_161 = lean_array_push(x_159, x_160); -x_162 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_162 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_163 = lean_array_push(x_161, x_162); x_164 = l_Lean_Elab_Command_expandElab___closed__17; x_165 = lean_array_push(x_164, x_47); @@ -18856,7 +18856,7 @@ 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_65, x_176); -x_178 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_178 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_179 = lean_array_push(x_177, x_178); x_180 = l_Lean_Elab_Command_expandElab___closed__22; x_181 = l_Lean_addMacroScope(x_64, x_180, x_63); @@ -19079,13 +19079,13 @@ lean_ctor_set(x_302, 0, x_215); lean_ctor_set(x_302, 1, x_301); x_303 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_304 = lean_array_push(x_303, x_302); -x_305 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_305 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_306 = lean_array_push(x_304, x_305); x_307 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_308 = lean_array_push(x_307, x_300); -x_309 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_309 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_310 = lean_array_push(x_308, x_309); -x_311 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_311 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_312 = lean_array_push(x_310, x_311); x_313 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; x_314 = lean_array_push(x_313, x_47); @@ -19107,7 +19107,7 @@ x_325 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_325, 0, x_324); lean_ctor_set(x_325, 1, x_323); x_326 = lean_array_push(x_213, x_325); -x_327 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_327 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_328 = lean_array_push(x_326, x_327); x_329 = l_Lean_Elab_Command_expandElab___closed__35; x_330 = l_Lean_addMacroScope(x_212, x_329, x_211); @@ -19332,13 +19332,13 @@ lean_ctor_set(x_453, 0, x_364); lean_ctor_set(x_453, 1, x_452); x_454 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_455 = lean_array_push(x_454, x_453); -x_456 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_456 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_457 = lean_array_push(x_455, x_456); x_458 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_459 = lean_array_push(x_458, x_449); -x_460 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_460 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_461 = lean_array_push(x_459, x_460); -x_462 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_462 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_463 = lean_array_push(x_461, x_462); x_464 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; x_465 = lean_array_push(x_464, x_47); @@ -19360,7 +19360,7 @@ x_476 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_476, 0, x_475); lean_ctor_set(x_476, 1, x_474); x_477 = lean_array_push(x_362, x_476); -x_478 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_478 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_479 = lean_array_push(x_477, x_478); x_480 = l_Lean_Elab_Command_expandElab___closed__48; x_481 = l_Lean_addMacroScope(x_361, x_480, x_360); @@ -19628,13 +19628,13 @@ lean_ctor_set(x_620, 0, x_525); lean_ctor_set(x_620, 1, x_619); x_621 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_622 = lean_array_push(x_621, x_620); -x_623 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_623 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_624 = lean_array_push(x_622, x_623); x_625 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_626 = lean_array_push(x_625, x_610); -x_627 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_627 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_628 = lean_array_push(x_626, x_627); -x_629 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_629 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_630 = lean_array_push(x_628, x_629); x_631 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; x_632 = lean_array_push(x_631, x_47); @@ -19693,7 +19693,7 @@ x_664 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_664, 0, x_663); lean_ctor_set(x_664, 1, x_662); x_665 = lean_array_push(x_523, x_664); -x_666 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_666 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_667 = lean_array_push(x_665, x_666); x_668 = l_Lean_Elab_Command_expandElab___closed__48; x_669 = l_Lean_addMacroScope(x_522, x_668, x_521); @@ -19968,13 +19968,13 @@ lean_ctor_set(x_808, 0, x_722); lean_ctor_set(x_808, 1, x_807); x_809 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_810 = lean_array_push(x_809, x_808); -x_811 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_811 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_812 = lean_array_push(x_810, x_811); x_813 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_814 = lean_array_push(x_813, x_806); -x_815 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_815 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_816 = lean_array_push(x_814, x_815); -x_817 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_817 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_818 = lean_array_push(x_816, x_817); x_819 = l_Lean_Elab_Command_expandElab___closed__17; x_820 = lean_array_push(x_819, x_702); @@ -19996,7 +19996,7 @@ x_831 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_831, 0, x_830); lean_ctor_set(x_831, 1, x_829); x_832 = lean_array_push(x_720, x_831); -x_833 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_833 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_834 = lean_array_push(x_832, x_833); x_835 = l_Lean_Elab_Command_expandElab___closed__22; x_836 = l_Lean_addMacroScope(x_719, x_835, x_718); @@ -20221,13 +20221,13 @@ lean_ctor_set(x_958, 0, x_871); lean_ctor_set(x_958, 1, x_957); x_959 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_960 = lean_array_push(x_959, x_958); -x_961 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_961 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_962 = lean_array_push(x_960, x_961); x_963 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_964 = lean_array_push(x_963, x_956); -x_965 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_965 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_966 = lean_array_push(x_964, x_965); -x_967 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_967 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_968 = lean_array_push(x_966, x_967); x_969 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; x_970 = lean_array_push(x_969, x_702); @@ -20249,7 +20249,7 @@ x_981 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_981, 0, x_980); lean_ctor_set(x_981, 1, x_979); x_982 = lean_array_push(x_869, x_981); -x_983 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_983 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_984 = lean_array_push(x_982, x_983); x_985 = l_Lean_Elab_Command_expandElab___closed__35; x_986 = l_Lean_addMacroScope(x_868, x_985, x_867); @@ -20476,13 +20476,13 @@ lean_ctor_set(x_1110, 0, x_1021); lean_ctor_set(x_1110, 1, x_1109); x_1111 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1112 = lean_array_push(x_1111, x_1110); -x_1113 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1113 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1114 = lean_array_push(x_1112, x_1113); x_1115 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_1116 = lean_array_push(x_1115, x_1106); -x_1117 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1117 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1118 = lean_array_push(x_1116, x_1117); -x_1119 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1119 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1120 = lean_array_push(x_1118, x_1119); x_1121 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; x_1122 = lean_array_push(x_1121, x_702); @@ -20504,7 +20504,7 @@ x_1133 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1133, 0, x_1132); lean_ctor_set(x_1133, 1, x_1131); x_1134 = lean_array_push(x_1019, x_1133); -x_1135 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_1135 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_1136 = lean_array_push(x_1134, x_1135); x_1137 = l_Lean_Elab_Command_expandElab___closed__48; x_1138 = l_Lean_addMacroScope(x_1018, x_1137, x_1017); @@ -20773,13 +20773,13 @@ lean_ctor_set(x_1278, 0, x_1183); lean_ctor_set(x_1278, 1, x_1277); x_1279 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_1280 = lean_array_push(x_1279, x_1278); -x_1281 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_1281 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_1282 = lean_array_push(x_1280, x_1281); x_1283 = l_Lean_Elab_Command_elabMacroRulesAux___closed__17; x_1284 = lean_array_push(x_1283, x_1268); -x_1285 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__3; +x_1285 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; x_1286 = lean_array_push(x_1284, x_1285); -x_1287 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__6; +x_1287 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__7; x_1288 = lean_array_push(x_1286, x_1287); x_1289 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; x_1290 = lean_array_push(x_1289, x_702); @@ -20838,7 +20838,7 @@ x_1322 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1322, 0, x_1321); lean_ctor_set(x_1322, 1, x_1320); x_1323 = lean_array_push(x_1181, x_1322); -x_1324 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4; +x_1324 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__5; x_1325 = lean_array_push(x_1323, x_1324); x_1326 = l_Lean_Elab_Command_expandElab___closed__48; x_1327 = l_Lean_addMacroScope(x_1180, x_1326, x_1179); diff --git a/stage0/stdlib/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Lean/Elab/Tactic/Basic.c index e9fd9446dd..598c90b773 100644 --- a/stage0/stdlib/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Lean/Elab/Tactic/Basic.c @@ -41,6 +41,7 @@ lean_object* l_Lean_Elab_Tactic_mkTacticAttribute(lean_object*); lean_object* l_Lean_Elab_Tactic_evalSkip___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getMCtx___rarg(lean_object*); lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__4; +lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Tactic_seq___elambda__1___closed__2; extern lean_object* l_Lean_MessageData_ofList___closed__3; lean_object* lean_array_uget(lean_object*, size_t); @@ -344,7 +345,6 @@ lean_object* l_Lean_Elab_Tactic_evalFailIfSuccess(lean_object*, lean_object*, le lean_object* l_Lean_Elab_Term_whnf___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_unfoldDefinition_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalChoiceAux(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_withFreshMacroScope___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_throwError(lean_object*); lean_object* l_Lean_Syntax_getPos(lean_object*); @@ -13398,7 +13398,7 @@ x_9 = x_8; x_10 = l_Array_toList___rarg(x_9); lean_dec(x_9); x_11 = 1; -x_12 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_11, x_2, x_5, x_10, x_3, x_4); +x_12 = l_Lean_Meta_introN(x_2, x_5, x_10, x_11, x_3, x_4); if (lean_obj_tag(x_12) == 0) { uint8_t x_13; @@ -13486,7 +13486,7 @@ x_10 = l___private_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(x_8); lean_dec(x_8); x_11 = lean_box(0); x_12 = 1; -x_13 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_12, x_1, x_10, x_11, x_2, x_9); +x_13 = l_Lean_Meta_introN(x_1, x_10, x_11, x_12, x_2, x_9); if (lean_obj_tag(x_13) == 0) { uint8_t x_14; diff --git a/stage0/stdlib/Lean/Elab/Tactic/Generalize.c b/stage0/stdlib/Lean/Elab/Tactic/Generalize.c index 29611021fc..4da8b6dfea 100644 --- a/stage0/stdlib/Lean/Elab/Tactic/Generalize.c +++ b/stage0/stdlib/Lean/Elab/Tactic/Generalize.c @@ -17,6 +17,7 @@ lean_object* l___private_Lean_Elab_Tactic_Generalize_5__evalGeneralizeFallback__ extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_Elab_Tactic_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Generalize_1__getAuxHypothesisName___boxed(lean_object*); lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalGeneralizeAux___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -45,12 +46,11 @@ extern lean_object* l_Lean_Elab_Tactic_tacticElabAttribute; extern lean_object* l_Lean_Meta_mkEqRefl___closed__2; lean_object* l_Lean_Elab_Tactic_evalGeneralizeAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_assertExt___lambda__1___closed__1; lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Tactic_evalGeneralize(lean_object*); lean_object* l_Lean_Elab_Tactic_save(lean_object*); lean_object* l_Lean_Meta_generalize___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; -lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkForall(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_elabTerm(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); @@ -182,13 +182,13 @@ lean_dec(x_17); x_26 = l_Lean_Meta_assignExprMVar(x_1, x_24, x_4, x_18); if (lean_obj_tag(x_26) == 0) { -lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; +lean_object* x_27; lean_object* x_28; uint8_t x_29; lean_object* x_30; x_27 = lean_ctor_get(x_26, 1); lean_inc(x_27); lean_dec(x_26); -x_28 = 0; -x_29 = lean_unsigned_to_nat(2u); -x_30 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_28, x_25, x_29, x_19, x_4, x_27); +x_28 = lean_unsigned_to_nat(2u); +x_29 = 0; +x_30 = l_Lean_Meta_introN(x_25, x_28, x_19, x_29, x_4, x_27); lean_dec(x_4); if (lean_obj_tag(x_30) == 0) { @@ -391,11 +391,13 @@ return x_2; lean_object* _init_l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___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) { @@ -462,7 +464,7 @@ lean_ctor_set(x_24, 0, x_21); lean_ctor_set(x_24, 1, x_23); x_25 = l_Lean_Expr_eq_x3f___closed__2; x_26 = l_Lean_mkConst(x_25, x_24); -x_27 = l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; +x_27 = l_Lean_Meta_assertExt___lambda__1___closed__1; lean_inc(x_1); lean_inc(x_18); x_28 = l_Lean_mkApp3(x_26, x_18, x_1, x_27); @@ -736,7 +738,7 @@ lean_ctor_set(x_15, 0, x_9); lean_ctor_set(x_15, 1, x_14); x_16 = l_Lean_Expr_eq_x3f___closed__2; x_17 = l_Lean_mkConst(x_16, x_15); -x_18 = l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; +x_18 = l_Lean_Meta_assertExt___lambda__1___closed__1; lean_inc(x_2); lean_inc(x_5); x_19 = l_Lean_mkApp3(x_17, x_5, x_2, x_18); diff --git a/stage0/stdlib/Lean/Elab/Tactic/Induction.c b/stage0/stdlib/Lean/Elab/Tactic/Induction.c index 09e483e20f..c207e71986 100644 --- a/stage0/stdlib/Lean/Elab/Tactic/Induction.c +++ b/stage0/stdlib/Lean/Elab/Tactic/Induction.c @@ -150,7 +150,7 @@ lean_object* l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__ uint8_t l_List_foldr___main___at___private_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__1(lean_object*, uint8_t, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_17__checkCasesResultAux___main___closed__9; uint8_t l_Lean_Syntax_isMissing(lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_13__getRecInfoDefault(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalGeneralizeAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_contains___at___private_Lean_Class_1__checkOutParam___main___spec__1(lean_object*, lean_object*); @@ -892,87 +892,89 @@ return x_14; } else { -lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_dec(x_3); x_15 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; x_16 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__4; -x_17 = l_Lean_Meta_throwTacticEx___rarg(x_15, x_2, x_16, x_4, x_5); -x_18 = !lean_is_exclusive(x_17); -if (x_18 == 0) +x_17 = lean_box(0); +x_18 = l_Lean_Meta_throwTacticEx___rarg(x_15, x_2, x_16, x_17, x_4, x_5); +x_19 = !lean_is_exclusive(x_18); +if (x_19 == 0) { -return x_17; +return x_18; } else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_19 = lean_ctor_get(x_17, 0); -x_20 = lean_ctor_get(x_17, 1); +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_18, 0); +x_21 = lean_ctor_get(x_18, 1); +lean_inc(x_21); lean_inc(x_20); -lean_inc(x_19); -lean_dec(x_17); -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_19); -lean_ctor_set(x_21, 1, x_20); -return x_21; +lean_dec(x_18); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; } } } else { -lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; -x_22 = lean_ctor_get(x_3, 0); -x_23 = lean_ctor_get(x_3, 1); +lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_23 = lean_ctor_get(x_3, 0); +x_24 = lean_ctor_get(x_3, 1); +lean_inc(x_24); lean_inc(x_23); -lean_inc(x_22); lean_dec(x_3); -x_24 = l_Lean_Expr_fvarId_x21(x_1); -x_25 = l_Array_contains___at___private_Lean_Class_1__checkOutParam___main___spec__1(x_22, x_24); -lean_dec(x_24); -x_26 = lean_array_get_size(x_22); -lean_dec(x_22); -x_27 = lean_box(0); -x_28 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_28, 0, x_23); -lean_ctor_set(x_28, 1, x_27); -x_29 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_29, 0, x_26); +x_25 = l_Lean_Expr_fvarId_x21(x_1); +x_26 = l_Array_contains___at___private_Lean_Class_1__checkOutParam___main___spec__1(x_23, x_25); +lean_dec(x_25); +x_27 = lean_array_get_size(x_23); +lean_dec(x_23); +x_28 = lean_box(0); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_24); lean_ctor_set(x_29, 1, x_28); -if (x_25 == 0) -{ -lean_object* x_30; -lean_dec(x_2); x_30 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_5); -return x_30; +lean_ctor_set(x_30, 0, x_27); +lean_ctor_set(x_30, 1, x_29); +if (x_26 == 0) +{ +lean_object* x_31; +lean_dec(x_2); +x_31 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_5); +return x_31; } else { -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_dec(x_29); -x_31 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; -x_32 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__4; -x_33 = l_Lean_Meta_throwTacticEx___rarg(x_31, x_2, x_32, x_4, x_5); -x_34 = lean_ctor_get(x_33, 0); -lean_inc(x_34); -x_35 = lean_ctor_get(x_33, 1); -lean_inc(x_35); -if (lean_is_exclusive(x_33)) { - lean_ctor_release(x_33, 0); - lean_ctor_release(x_33, 1); - x_36 = x_33; +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_dec(x_30); +x_32 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; +x_33 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__4; +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwTacticEx___rarg(x_32, x_2, x_33, x_34, x_4, x_5); +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +if (lean_is_exclusive(x_35)) { + lean_ctor_release(x_35, 0); + lean_ctor_release(x_35, 1); + x_38 = x_35; } else { - lean_dec_ref(x_33); - x_36 = lean_box(0); + lean_dec_ref(x_35); + x_38 = lean_box(0); } -if (lean_is_scalar(x_36)) { - x_37 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_38)) { + x_39 = lean_alloc_ctor(1, 2, 0); } else { - x_37 = x_36; + x_39 = x_38; } -lean_ctor_set(x_37, 0, x_34); -lean_ctor_set(x_37, 1, x_35); -return x_37; +lean_ctor_set(x_39, 0, x_36); +lean_ctor_set(x_39, 1, x_37); +return x_39; } } } @@ -1585,68 +1587,68 @@ 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_17; +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_18; x_7 = lean_ctor_get(x_5, 0); x_8 = lean_ctor_get(x_5, 1); -x_17 = l_Lean_Expr_getAppFn___main(x_7); -if (lean_obj_tag(x_17) == 4) +x_18 = l_Lean_Expr_getAppFn___main(x_7); +if (lean_obj_tag(x_18) == 4) { -lean_object* x_18; lean_object* x_19; lean_object* x_20; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -lean_dec(x_17); -x_19 = lean_ctor_get(x_8, 0); +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_18, 0); lean_inc(x_19); -x_20 = lean_environment_find(x_19, x_18); -if (lean_obj_tag(x_20) == 0) +lean_dec(x_18); +x_20 = lean_ctor_get(x_8, 0); +lean_inc(x_20); +x_21 = lean_environment_find(x_20, x_19); +if (lean_obj_tag(x_21) == 0) { -lean_object* x_21; +lean_object* x_22; lean_free_object(x_5); -x_21 = lean_box(0); -x_9 = x_21; -goto block_16; +x_22 = lean_box(0); +x_9 = x_22; +goto block_17; } else { -lean_object* x_22; -x_22 = lean_ctor_get(x_20, 0); -lean_inc(x_22); -lean_dec(x_20); -if (lean_obj_tag(x_22) == 5) -{ lean_object* x_23; +x_23 = lean_ctor_get(x_21, 0); +lean_inc(x_23); +lean_dec(x_21); +if (lean_obj_tag(x_23) == 5) +{ +lean_object* x_24; lean_dec(x_7); lean_dec(x_3); lean_dec(x_1); -x_23 = lean_ctor_get(x_22, 0); -lean_inc(x_23); -lean_dec(x_22); -lean_ctor_set(x_5, 0, x_23); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +lean_dec(x_23); +lean_ctor_set(x_5, 0, x_24); return x_5; } else { -lean_object* x_24; -lean_dec(x_22); +lean_object* x_25; +lean_dec(x_23); lean_free_object(x_5); -x_24 = lean_box(0); -x_9 = x_24; -goto block_16; +x_25 = lean_box(0); +x_9 = x_25; +goto block_17; } } } else { -lean_object* x_25; -lean_dec(x_17); +lean_object* x_26; +lean_dec(x_18); lean_free_object(x_5); -x_25 = lean_box(0); -x_9 = x_25; -goto block_16; +x_26 = lean_box(0); +x_9 = x_26; +goto block_17; } -block_16: +block_17: { -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_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_dec(x_9); x_10 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_10, 0, x_7); @@ -1656,114 +1658,116 @@ x_13 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_13, 0, x_12); lean_ctor_set(x_13, 1, x_11); x_14 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; -x_15 = l_Lean_Meta_throwTacticEx___rarg(x_14, x_1, x_13, x_3, x_8); +x_15 = lean_box(0); +x_16 = l_Lean_Meta_throwTacticEx___rarg(x_14, x_1, x_13, x_15, x_3, x_8); lean_dec(x_3); -return x_15; +return x_16; } } else { -lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_36; -x_26 = lean_ctor_get(x_5, 0); -x_27 = lean_ctor_get(x_5, 1); +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_38; +x_27 = lean_ctor_get(x_5, 0); +x_28 = lean_ctor_get(x_5, 1); +lean_inc(x_28); lean_inc(x_27); -lean_inc(x_26); lean_dec(x_5); -x_36 = l_Lean_Expr_getAppFn___main(x_26); -if (lean_obj_tag(x_36) == 4) +x_38 = l_Lean_Expr_getAppFn___main(x_27); +if (lean_obj_tag(x_38) == 4) { -lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_37 = lean_ctor_get(x_36, 0); -lean_inc(x_37); -lean_dec(x_36); -x_38 = lean_ctor_get(x_27, 0); -lean_inc(x_38); -x_39 = lean_environment_find(x_38, x_37); -if (lean_obj_tag(x_39) == 0) +lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_39 = lean_ctor_get(x_38, 0); +lean_inc(x_39); +lean_dec(x_38); +x_40 = lean_ctor_get(x_28, 0); +lean_inc(x_40); +x_41 = lean_environment_find(x_40, x_39); +if (lean_obj_tag(x_41) == 0) { -lean_object* x_40; -x_40 = lean_box(0); -x_28 = x_40; -goto block_35; +lean_object* x_42; +x_42 = lean_box(0); +x_29 = x_42; +goto block_37; } else { -lean_object* x_41; -x_41 = lean_ctor_get(x_39, 0); -lean_inc(x_41); -lean_dec(x_39); -if (lean_obj_tag(x_41) == 5) +lean_object* x_43; +x_43 = lean_ctor_get(x_41, 0); +lean_inc(x_43); +lean_dec(x_41); +if (lean_obj_tag(x_43) == 5) { -lean_object* x_42; lean_object* x_43; -lean_dec(x_26); +lean_object* x_44; lean_object* x_45; +lean_dec(x_27); lean_dec(x_3); lean_dec(x_1); -x_42 = lean_ctor_get(x_41, 0); -lean_inc(x_42); -lean_dec(x_41); -x_43 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_43, 0, x_42); -lean_ctor_set(x_43, 1, x_27); -return x_43; +x_44 = lean_ctor_get(x_43, 0); +lean_inc(x_44); +lean_dec(x_43); +x_45 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_28); +return x_45; } else { -lean_object* x_44; -lean_dec(x_41); -x_44 = lean_box(0); -x_28 = x_44; -goto block_35; +lean_object* x_46; +lean_dec(x_43); +x_46 = lean_box(0); +x_29 = x_46; +goto block_37; } } } else { -lean_object* x_45; -lean_dec(x_36); -x_45 = lean_box(0); -x_28 = x_45; -goto block_35; +lean_object* x_47; +lean_dec(x_38); +x_47 = lean_box(0); +x_29 = x_47; +goto block_37; } -block_35: +block_37: { -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_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_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1___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___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; -x_34 = l_Lean_Meta_throwTacticEx___rarg(x_33, x_1, x_32, x_3, x_27); +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_dec(x_29); +x_30 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_30, 0, x_27); +x_31 = l_Lean_indentExpr(x_30); +x_32 = l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1___closed__3; +x_33 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_31); +x_34 = l___private_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; +x_35 = lean_box(0); +x_36 = l_Lean_Meta_throwTacticEx___rarg(x_34, x_1, x_33, x_35, x_3, x_28); lean_dec(x_3); -return x_34; +return x_36; } } } else { -uint8_t x_46; +uint8_t x_48; lean_dec(x_3); lean_dec(x_1); -x_46 = !lean_is_exclusive(x_5); -if (x_46 == 0) +x_48 = !lean_is_exclusive(x_5); +if (x_48 == 0) { return x_5; } else { -lean_object* x_47; lean_object* x_48; lean_object* x_49; -x_47 = lean_ctor_get(x_5, 0); -x_48 = lean_ctor_get(x_5, 1); -lean_inc(x_48); -lean_inc(x_47); +lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_49 = lean_ctor_get(x_5, 0); +x_50 = lean_ctor_get(x_5, 1); +lean_inc(x_50); +lean_inc(x_49); lean_dec(x_5); -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; +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_49); +lean_ctor_set(x_51, 1, x_50); +return x_51; } } } diff --git a/stage0/stdlib/Lean/Elab/Tactic/Injection.c b/stage0/stdlib/Lean/Elab/Tactic/Injection.c index 87cd05df7f..7ed23f3dba 100644 --- a/stage0/stdlib/Lean/Elab/Tactic/Injection.c +++ b/stage0/stdlib/Lean/Elab/Tactic/Injection.c @@ -29,7 +29,7 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getMainGoal(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Tactic_tacticElabAttribute; extern lean_object* l_Lean_Parser_Tactic_injection___elambda__1___closed__1; -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Injection_2__checkUnusedIds___closed__4; lean_object* l_Lean_Meta_injection___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalInjection(lean_object*, lean_object*, lean_object*); @@ -172,7 +172,7 @@ uint8_t x_5; x_5 = l_List_isEmpty___rarg(x_2); if (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_11; lean_object* x_12; +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_6 = l_List_toString___at_Lean_Elab_OpenDecl_HasToString___spec__2(x_2); x_7 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_7, 0, x_6); @@ -183,19 +183,20 @@ x_10 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_10, 0, x_9); lean_ctor_set(x_10, 1, x_8); x_11 = l___private_Lean_Elab_Tactic_Injection_2__checkUnusedIds___closed__1; -x_12 = l_Lean_Meta_throwTacticEx___rarg(x_11, x_1, x_10, x_3, x_4); -return x_12; +x_12 = lean_box(0); +x_13 = l_Lean_Meta_throwTacticEx___rarg(x_11, x_1, x_10, x_12, x_3, x_4); +return x_13; } else { -lean_object* x_13; lean_object* x_14; +lean_object* x_14; lean_object* x_15; lean_dec(x_2); lean_dec(x_1); -x_13 = lean_box(0); -x_14 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_14, 0, x_13); -lean_ctor_set(x_14, 1, x_4); -return x_14; +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_4); +return x_15; } } } diff --git a/stage0/stdlib/Lean/Elab/Term.c b/stage0/stdlib/Lean/Elab/Term.c index 3f2671365a..dadbe4c876 100644 --- a/stage0/stdlib/Lean/Elab/Term.c +++ b/stage0/stdlib/Lean/Elab/Term.c @@ -52,7 +52,6 @@ extern lean_object* l_Lean_Parser_Term_explicit___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabNum___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__8; lean_object* l_Lean_Elab_Term_State_inhabited; -extern lean_object* l_Lean_Parser_darrow___elambda__1___closed__1; lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l_Lean_mkSort(lean_object*); lean_object* l_Lean_Elab_Term_instantiateMVars(lean_object*, lean_object*, lean_object*, lean_object*); @@ -74,7 +73,6 @@ lean_object* l_Lean_Elab_Term_mkTermElabAttribute___closed__7; lean_object* l_Lean_Elab_Term_assignExprMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_ppGoal___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getFVarLocalDecl_x21___boxed(lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Expr_hasSorry___main___closed__1; lean_object* l_Lean_Elab_Term_elabUsingElabFns___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_mkTermElabAttribute___closed__3; lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___closed__2; @@ -114,6 +112,7 @@ lean_object* l_Lean_mkMVar(lean_object*); extern lean_object* l_Array_empty___closed__1; lean_object* l___private_Lean_Elab_Term_11__elabUsingElabFnsAux___main(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* lean_environment_find(lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_mkSorry___closed__4; lean_object* l_Lean_Elab_Term_tryCoe___closed__2; lean_object* l_Lean_Elab_Term_resolveName___closed__3; lean_object* l___private_Lean_Elab_Term_20__resolveLocalNameAux(lean_object*, lean_object*, lean_object*); @@ -176,7 +175,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_elabParen(lean_object*); extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_Elab_Term_logTrace___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_getAppArgs___closed__1; -lean_object* l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1; lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; lean_object* l___private_Lean_Elab_Term_21__resolveLocalName___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_isTypeFormer(lean_object*, lean_object*, lean_object*, lean_object*); @@ -232,6 +230,7 @@ lean_object* l_Lean_Elab_Term_MetaHasEval___rarg___closed__6; extern lean_object* l_Lean_levelZero; lean_object* l_Lean_Elab_Term_mkExpectedTypeHint(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_TermElabResult_inhabited___closed__1; +lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__4; lean_object* l___private_Lean_Elab_Term_3__fromMetaState(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_Elab_Term_elabUsingElabFns___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -293,6 +292,7 @@ lean_object* l___private_Lean_Elab_Term_18__mkPairsAux___main___closed__3; lean_object* l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParen___closed__4; lean_object* l_Lean_Elab_Term_elabLevel(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Exception_getRef(lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabNamedHole(lean_object*); lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_monadLog___closed__1; @@ -656,7 +656,6 @@ lean_object* l_Lean_Name_toExprAux___main(lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_elabBadCDot(lean_object*); lean_object* l_Lean_Elab_Term_elabUsingElabFns___closed__3; lean_object* l_Lean_Elab_Term_elabTerm___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_boolToExpr___lambda__1___closed__5; uint8_t l___private_Lean_Elab_Term_14__isLambdaWithImplicit(lean_object*); extern lean_object* l___private_Lean_Elab_Util_4__regTraceClasses___closed__3; extern lean_object* l_Lean_EnvExtension_setState___closed__1; @@ -872,6 +871,7 @@ lean_object* l_Lean_Elab_Term_mkTacticMVar___closed__1; 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*); lean_object* l_List_foldlM___main___at___private_Lean_Elab_Term_23__mkConsts___spec__1___boxed(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_Meta_mkSorry___closed__2; extern lean_object* l_EStateM_MonadState___closed__2; extern lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_getOptions___boxed(lean_object*, lean_object*); @@ -4351,15 +4351,35 @@ return x_6; lean_object* l___private_Lean_Elab_Term_2__fromMetaException(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; -x_4 = l_Lean_Meta_Exception_toMessageData(x_3); -x_5 = 2; -x_6 = l___private_Lean_Elab_Term_1__mkMessageAux(x_1, x_2, x_4, x_5); -x_7 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_7, 0, x_6); -x_8 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_8, 0, x_7); -return x_8; +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = l_Lean_Meta_Exception_getRef(x_3); +x_5 = l_Lean_Syntax_getPos(x_4); +x_6 = l_Lean_Meta_Exception_toMessageData(x_3); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_4); +x_7 = 2; +x_8 = l___private_Lean_Elab_Term_1__mkMessageAux(x_1, x_2, x_6, x_7); +x_9 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_9, 0, x_8); +x_10 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_10, 0, x_9); +return x_10; +} +else +{ +uint8_t x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +lean_dec(x_5); +x_11 = 2; +x_12 = l___private_Lean_Elab_Term_1__mkMessageAux(x_1, x_4, x_6, x_11); +lean_dec(x_4); +x_13 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_13, 0, x_12); +x_14 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_14, 0, x_13); +return x_14; +} } } lean_object* l___private_Lean_Elab_Term_2__fromMetaException___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -12284,9 +12304,17 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_expandCDot_x3f___closed__3() { _start: { +lean_object* x_1; +x_1 = lean_mk_string("=>"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Term_expandCDot_x3f___closed__4() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_SourceInfo_inhabited___closed__1; -x_2 = l_Lean_Parser_darrow___elambda__1___closed__1; +x_2 = l_Lean_Elab_Term_expandCDot_x3f___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); @@ -12336,7 +12364,7 @@ lean_ctor_set(x_16, 0, x_15); lean_ctor_set(x_16, 1, x_14); x_17 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_18 = lean_array_push(x_17, x_16); -x_19 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_19 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_20 = lean_array_push(x_18, x_19); x_21 = lean_array_push(x_20, x_11); x_22 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -12370,7 +12398,7 @@ lean_ctor_set(x_32, 0, x_31); lean_ctor_set(x_32, 1, x_30); x_33 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; x_34 = lean_array_push(x_33, x_32); -x_35 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_35 = l_Lean_Elab_Term_expandCDot_x3f___closed__4; x_36 = lean_array_push(x_34, x_35); x_37 = lean_array_push(x_36, x_27); x_38 = l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -17395,16 +17423,6 @@ return x_15; } } } -lean_object* _init_l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_boolToExpr___lambda__1___closed__5; -x_3 = l_Lean_mkConst(x_2, x_1); -return x_3; -} -} lean_object* l___private_Lean_Elab_Term_9__exceptionToSorry(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -17453,9 +17471,9 @@ x_12 = lean_box(0); x_13 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_13, 0, x_10); lean_ctor_set(x_13, 1, x_12); -x_14 = l_Lean_Expr_hasSorry___main___closed__1; +x_14 = l_Lean_Meta_mkSorry___closed__2; x_15 = l_Lean_mkConst(x_14, x_13); -x_16 = l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1; +x_16 = l_Lean_Meta_mkSorry___closed__4; x_17 = l_Lean_mkAppB(x_15, x_6, x_16); x_18 = lean_ctor_get(x_2, 4); lean_inc(x_18); @@ -17522,9 +17540,9 @@ x_33 = lean_box(0); x_34 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_34, 0, x_31); lean_ctor_set(x_34, 1, x_33); -x_35 = l_Lean_Expr_hasSorry___main___closed__1; +x_35 = l_Lean_Meta_mkSorry___closed__2; x_36 = l_Lean_mkConst(x_35, x_34); -x_37 = l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1; +x_37 = l_Lean_Meta_mkSorry___closed__4; x_38 = l_Lean_mkAppB(x_36, x_6, x_37); x_39 = lean_ctor_get(x_2, 4); lean_inc(x_39); @@ -31367,6 +31385,8 @@ l_Lean_Elab_Term_expandCDot_x3f___closed__2 = _init_l_Lean_Elab_Term_expandCDot_ lean_mark_persistent(l_Lean_Elab_Term_expandCDot_x3f___closed__2); l_Lean_Elab_Term_expandCDot_x3f___closed__3 = _init_l_Lean_Elab_Term_expandCDot_x3f___closed__3(); lean_mark_persistent(l_Lean_Elab_Term_expandCDot_x3f___closed__3); +l_Lean_Elab_Term_expandCDot_x3f___closed__4 = _init_l_Lean_Elab_Term_expandCDot_x3f___closed__4(); +lean_mark_persistent(l_Lean_Elab_Term_expandCDot_x3f___closed__4); l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__1 = _init_l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__1(); lean_mark_persistent(l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__1); l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__2 = _init_l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__2(); @@ -31425,8 +31445,6 @@ l_Lean_Elab_Term_tryLiftAndCoe___closed__6 = _init_l_Lean_Elab_Term_tryLiftAndCo lean_mark_persistent(l_Lean_Elab_Term_tryLiftAndCoe___closed__6); l_Lean_Elab_Term_tryLiftAndCoe___closed__7 = _init_l_Lean_Elab_Term_tryLiftAndCoe___closed__7(); lean_mark_persistent(l_Lean_Elab_Term_tryLiftAndCoe___closed__7); -l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1 = _init_l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1(); -lean_mark_persistent(l___private_Lean_Elab_Term_9__exceptionToSorry___closed__1); l___private_Lean_Elab_Term_10__postponeElabTerm___closed__1 = _init_l___private_Lean_Elab_Term_10__postponeElabTerm___closed__1(); lean_mark_persistent(l___private_Lean_Elab_Term_10__postponeElabTerm___closed__1); l___private_Lean_Elab_Term_10__postponeElabTerm___closed__2 = _init_l___private_Lean_Elab_Term_10__postponeElabTerm___closed__2(); diff --git a/stage0/stdlib/Lean/EqnCompiler.c b/stage0/stdlib/Lean/EqnCompiler.c deleted file mode 100644 index 0799caef31..0000000000 --- a/stage0/stdlib/Lean/EqnCompiler.c +++ /dev/null @@ -1,33 +0,0 @@ -// Lean compiler output -// Module: Lean.EqnCompiler -// Imports: Init Lean.EqnCompiler.MatchPattern -#include -#if defined(__clang__) -#pragma clang diagnostic ignored "-Wunused-parameter" -#pragma clang diagnostic ignored "-Wunused-label" -#elif defined(__GNUC__) && !defined(__CLANG__) -#pragma GCC diagnostic ignored "-Wunused-parameter" -#pragma GCC diagnostic ignored "-Wunused-label" -#pragma GCC diagnostic ignored "-Wunused-but-set-variable" -#endif -#ifdef __cplusplus -extern "C" { -#endif -lean_object* initialize_Init(lean_object*); -lean_object* initialize_Lean_EqnCompiler_MatchPattern(lean_object*); -static bool _G_initialized = false; -lean_object* initialize_Lean_EqnCompiler(lean_object* w) { -lean_object * res; -if (_G_initialized) return lean_mk_io_result(lean_box(0)); -_G_initialized = true; -res = initialize_Init(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); -res = initialize_Lean_EqnCompiler_MatchPattern(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); -return lean_mk_io_result(lean_box(0)); -} -#ifdef __cplusplus -} -#endif diff --git a/stage0/stdlib/Lean/Message.c b/stage0/stdlib/Lean/Message.c index 88a3057550..b29ab2ecba 100644 --- a/stage0/stdlib/Lean/Message.c +++ b/stage0/stdlib/Lean/Message.c @@ -54,6 +54,7 @@ lean_object* lean_array_get_size(lean_object*); lean_object* l_Lean_KernelException_toMessageData___closed__43; lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_MessageData_formatAux___main(lean_object*, lean_object*); +lean_object* l_Lean_MessageData_coeOfList___closed__1; lean_object* l_Lean_KernelException_toMessageData___closed__16; lean_object* l_Lean_MessageData_ofList(lean_object*); extern lean_object* l_Lean_formatKVMap___closed__1; @@ -70,6 +71,7 @@ uint8_t l_Array_anyRangeMAux___main___at_Lean_MessageLog_hasErrors___spec__5(lea lean_object* l_Lean_KernelException_toMessageData___closed__37; extern lean_object* l_Lean_Format_sbracket___closed__2; lean_object* lean_message_string(lean_object*); +lean_object* l_Lean_MessageData_coeOfList; extern lean_object* l_EStateM_Result_toString___rarg___closed__2; extern lean_object* l_Lean_LocalContext_Inhabited___closed__2; lean_object* l_Lean_MessageLog_toList(lean_object*); @@ -153,6 +155,7 @@ lean_object* l_Lean_KernelException_toMessageData___closed__50; lean_object* l_Lean_MessageData_getSyntaxMaxDepth(lean_object*); lean_object* l_Std_PersistentArray_push___rarg(lean_object*, lean_object*); lean_object* l_Lean_KernelException_toMessageData___closed__8; +lean_object* l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(lean_object*); lean_object* l_Lean_fmt___at_Lean_Message_toString___spec__1(lean_object*); lean_object* l_Lean_MessageLog_empty; lean_object* l_Lean_KernelException_toMessageData___closed__4; @@ -190,6 +193,7 @@ lean_object* l_Array_toList___rarg(lean_object*); lean_object* l_Lean_KernelException_toMessageData___closed__13; lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; lean_object* l_Lean_MessageLog_forM(lean_object*); +lean_object* l_Lean_MessageData_coeOfListExpr(lean_object*); uint8_t l_Lean_MessageLog_hasErrors(lean_object*); lean_object* lean_string_length(lean_object*); lean_object* l_Lean_Message_Inhabited___closed__1; @@ -681,7 +685,6 @@ lean_ctor_set(x_1, 0, x_68); x_69 = 0; x_70 = lean_unsigned_to_nat(0u); x_71 = l_Lean_Syntax_formatStxAux___main(x_1, x_69, x_70, x_66); -lean_dec(x_1); return x_71; } else @@ -703,7 +706,6 @@ lean_ctor_set(x_76, 0, x_75); x_77 = 0; x_78 = lean_unsigned_to_nat(0u); x_79 = l_Lean_Syntax_formatStxAux___main(x_76, x_77, x_78, x_73); -lean_dec(x_76); return x_79; } } @@ -1380,6 +1382,76 @@ lean_dec(x_1); return x_2; } } +lean_object* _init_l_Lean_MessageData_coeOfList___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_MessageData_ofList___boxed), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_MessageData_coeOfList() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_MessageData_coeOfList___closed__1; +return x_1; +} +} +lean_object* l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_6, 0, x_4); +x_7 = l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_10, 0, x_8); +x_11 = l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_Lean_MessageData_coeOfListExpr(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(x_1); +x_3 = l_Lean_MessageData_ofList(x_2); +lean_dec(x_2); +return x_3; +} +} lean_object* lean_mk_message(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { _start: { @@ -3358,6 +3430,10 @@ l_Lean_MessageData_ofList___closed__3 = _init_l_Lean_MessageData_ofList___closed lean_mark_persistent(l_Lean_MessageData_ofList___closed__3); l_Lean_MessageData_ofList___closed__4 = _init_l_Lean_MessageData_ofList___closed__4(); lean_mark_persistent(l_Lean_MessageData_ofList___closed__4); +l_Lean_MessageData_coeOfList___closed__1 = _init_l_Lean_MessageData_coeOfList___closed__1(); +lean_mark_persistent(l_Lean_MessageData_coeOfList___closed__1); +l_Lean_MessageData_coeOfList = _init_l_Lean_MessageData_coeOfList(); +lean_mark_persistent(l_Lean_MessageData_coeOfList); l_Lean_Message_toString___closed__1 = _init_l_Lean_Message_toString___closed__1(); lean_mark_persistent(l_Lean_Message_toString___closed__1); l_Lean_Message_toString___closed__2 = _init_l_Lean_Message_toString___closed__2(); diff --git a/stage0/stdlib/Lean/Meta.c b/stage0/stdlib/Lean/Meta.c index 4f91e0ae8d..d9699fe03f 100644 --- a/stage0/stdlib/Lean/Meta.c +++ b/stage0/stdlib/Lean/Meta.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.Meta -// Imports: Init Lean.Meta.Basic Lean.Meta.LevelDefEq Lean.Meta.WHNF Lean.Meta.InferType Lean.Meta.FunInfo Lean.Meta.ExprDefEq Lean.Meta.DiscrTree Lean.Meta.Reduce Lean.Meta.Instances Lean.Meta.AbstractMVars Lean.Meta.SynthInstance Lean.Meta.AppBuilder Lean.Meta.Tactic Lean.Meta.Message Lean.Meta.KAbstract Lean.Meta.RecursorInfo Lean.Meta.GeneralizeTelescope +// Imports: Init Lean.Meta.Basic Lean.Meta.LevelDefEq Lean.Meta.WHNF Lean.Meta.InferType Lean.Meta.FunInfo Lean.Meta.ExprDefEq Lean.Meta.DiscrTree Lean.Meta.Reduce Lean.Meta.Instances Lean.Meta.AbstractMVars Lean.Meta.SynthInstance Lean.Meta.AppBuilder Lean.Meta.Tactic Lean.Meta.Message Lean.Meta.KAbstract Lean.Meta.RecursorInfo Lean.Meta.GeneralizeTelescope Lean.Meta.EqnCompiler Lean.Meta.ReduceEval #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -31,6 +31,8 @@ lean_object* initialize_Lean_Meta_Message(lean_object*); lean_object* initialize_Lean_Meta_KAbstract(lean_object*); lean_object* initialize_Lean_Meta_RecursorInfo(lean_object*); lean_object* initialize_Lean_Meta_GeneralizeTelescope(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler(lean_object*); +lean_object* initialize_Lean_Meta_ReduceEval(lean_object*); static bool _G_initialized = false; lean_object* initialize_Lean_Meta(lean_object* w) { lean_object * res; @@ -90,6 +92,12 @@ lean_dec_ref(res); res = initialize_Lean_Meta_GeneralizeTelescope(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_ReduceEval(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/Lean/Meta/AppBuilder.c b/stage0/stdlib/Lean/Meta/AppBuilder.c index 592e5a29af..d366762a45 100644 --- a/stage0/stdlib/Lean/Meta/AppBuilder.c +++ b/stage0/stdlib/Lean/Meta/AppBuilder.c @@ -15,6 +15,7 @@ extern "C" { #endif extern lean_object* l_Lean_Name_toString___closed__1; extern lean_object* l_Lean_getStructureCtor___closed__2; +lean_object* l_Lean_Meta_mkLt___closed__4; extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_Meta_mkHEqSymm___closed__2; @@ -27,17 +28,21 @@ lean_object* l_Lean_mkApp6(lean_object*, lean_object*, lean_object*, lean_object lean_object* l___private_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkHEqSymm___closed__1; lean_object* l_Lean_Meta_mkEqSymm___closed__1; +lean_object* l_Lean_Meta_mkLe___closed__4; extern lean_object* l_Lean_MessageData_ofList___closed__3; +lean_object* l_Lean_Meta_mkDecideProof___closed__1; lean_object* l_Lean_Format_pretty(lean_object*, lean_object*); lean_object* l___private_Lean_Meta_AppBuilder_4__mkAppMAux___main___closed__3; lean_object* l_Lean_Meta_mkProjection___main___closed__6; lean_object* l_Lean_Meta_mkAppM(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkDecideProof___closed__2; lean_object* l_Lean_Meta_mkPure___closed__2; lean_object* l_Lean_Meta_mkHEqSymm___closed__4; lean_object* l_Lean_Meta_mkCongr___closed__2; lean_object* l_Lean_Meta_mkPure___closed__4; extern lean_object* l_Array_empty___closed__1; lean_object* lean_environment_find(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkSorry___closed__4; lean_object* l_Lean_Meta_mkEqOfHEq___closed__4; lean_object* l_Lean_Meta_mkPure___closed__1; lean_object* l_Lean_Meta_mkCongr(lean_object*, lean_object*, lean_object*, lean_object*); @@ -54,6 +59,7 @@ extern lean_object* l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l___private_Lean_Meta_AppBuilder_4__mkAppMAux___main___closed__4; +lean_object* l_Lean_Meta_mkLe(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l_Lean_Meta_mkEqNDRec___closed__5; extern lean_object* l_Lean_Expr_getAppArgs___closed__1; @@ -79,12 +85,14 @@ lean_object* l___private_Lean_Util_Trace_2__addNode___at___private_Lean_Meta_Lev lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__68; lean_object* l_Lean_Meta_mkAppM___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_boolToExpr___lambda__1___closed__3; lean_object* l_Lean_Meta_mkProjection___main___closed__9; lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* l___private_Lean_Meta_AppBuilder_6__mkAppOptMAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__3; lean_object* lean_expr_instantiate_rev_range(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkSorry(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrArg___closed__1; lean_object* l_Lean_Meta_mkProjection___main___closed__8; lean_object* l_Lean_Meta_mkEqSymm___closed__2; @@ -112,16 +120,20 @@ lean_object* l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__4; lean_object* l___private_Lean_Util_Trace_3__getResetTraces___at___private_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__6___rarg(lean_object*); lean_object* l_Lean_Meta_mkNoConfusion___closed__8; lean_object* l_Lean_Meta_mkId(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkDecideProof___closed__4; lean_object* l_Lean_Meta_mkListLit___closed__2; extern lean_object* l_Lean_MessageData_coeOfArrayExpr___closed__2; lean_object* l_Lean_Meta_mkHEqRefl___closed__1; lean_object* l_Lean_Meta_mkArrayLit(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqTrans___closed__1; lean_object* l_Lean_Meta_mkEqRec___closed__1; +extern lean_object* l_Lean_mkDecIsTrue___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_getStructureFields(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqNDRec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkListLit___closed__1; +lean_object* l_Lean_Meta_mkLe___closed__3; +lean_object* l_Lean_Meta_mkDecideProof(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Options_empty; extern lean_object* l_Lean_mkRecFor___closed__1; lean_object* l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__2; @@ -150,6 +162,7 @@ lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_AppBuilder_6__m lean_object* l_Lean_Meta_mkCongrFun___closed__4; lean_object* l_Lean_Meta_mkEqOfHEq___closed__2; lean_object* l_Lean_Meta_mkEqRefl___closed__2; +extern lean_object* l_Lean_boolToExpr___lambda__1___closed__6; lean_object* l___private_Lean_Meta_AppBuilder_2__hasTypeMsg(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkProjection(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrArg___closed__5; @@ -179,6 +192,7 @@ lean_object* l_Lean_Meta_mkNoConfusion___closed__6; lean_object* l_Lean_mkApp5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkAppM___closed__1; extern lean_object* l_Std_PersistentHashMap_mkCollisionNode___rarg___closed__1; +extern lean_object* l_Lean_boolToExpr___lambda__1___closed__5; lean_object* l_List_mapM___main___at___private_Lean_Meta_AppBuilder_5__mkFun___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_incDepth(lean_object*); lean_object* l_Lean_Meta_mkEqMPR(lean_object*, lean_object*, lean_object*, lean_object*); @@ -195,6 +209,8 @@ lean_object* l_Lean_Meta_mkCongrArg(lean_object*, lean_object*, lean_object*, le lean_object* l___private_Lean_Meta_AppBuilder_4__mkAppMAux___main___closed__2; lean_object* l___private_Lean_Meta_AppBuilder_3__mkAppMFinal___closed__1; extern lean_object* l_Lean_mkAppStx___closed__9; +lean_object* l_Lean_Meta_mkLt___closed__1; +lean_object* l_Lean_Meta_mkSorry___closed__3; lean_object* l___private_Lean_Meta_AppBuilder_6__mkAppOptMAux___main___closed__5; lean_object* l_Lean_Meta_mkEqOfHEq___closed__3; lean_object* l___private_Lean_Meta_AppBuilder_3__mkAppMFinal___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -202,11 +218,13 @@ lean_object* l_Lean_Meta_mkEqMPR___closed__1; lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_AppBuilder_6__mkAppOptMAux___main___closed__3; lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkLt___closed__2; lean_object* l_Lean_Meta_getConstInfo(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkNoConfusion(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasLooseBVars(lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_KernelException_toMessageData___closed__12; +lean_object* l_Lean_Meta_mkDecideProof___closed__3; lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_isSubobjectField_x3f(lean_object*, lean_object*, lean_object*); lean_object* lean_mk_array(lean_object*, lean_object*); @@ -216,9 +234,11 @@ lean_object* l_Lean_Meta_mkExpectedTypeHint(lean_object*, lean_object*, lean_obj lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_arrayToExpr___rarg___lambda__1___closed__2; lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); +extern lean_object* l_Lean_mkOptionalNode___closed__2; lean_object* l___private_Lean_Meta_AppBuilder_7__mkListLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkHEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqOfHEq___closed__5; +lean_object* l_Lean_Meta_mkLt___closed__3; lean_object* l_Lean_Meta_mkHEqTrans___closed__1; lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); @@ -230,19 +250,25 @@ lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkProjection___main___closed__10; lean_object* l_Lean_mkApp8(lean_object*, 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_Lean_Meta_mkLe___closed__2; lean_object* l_Lean_Meta_mkListLit(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Level_format(lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkProjection___main___closed__5; lean_object* l_Lean_Meta_mkEqOfHEq(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkSorry___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrFun___closed__5; lean_object* l_Lean_Meta_mkNoConfusion___closed__7; +lean_object* l_Lean_Meta_mkSorry___closed__2; +lean_object* l_Lean_Meta_mkLe___closed__1; lean_object* l___private_Lean_Meta_AppBuilder_6__mkAppOptMAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrFun___closed__3; extern lean_object* l_Lean_listToExpr___rarg___closed__6; lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqOfHEq___closed__6; lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_AppBuilder_6__mkAppOptMAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkLt(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkSorry___closed__1; lean_object* l___private_Lean_Meta_AppBuilder_3__mkAppMFinal___closed__2; uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkProjection___main___closed__3; @@ -14287,6 +14313,439 @@ return x_34; } } } +lean_object* _init_l_Lean_Meta_mkSorry___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("sorryAx"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkSorry___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkSorry___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkSorry___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_boolToExpr___lambda__1___closed__3; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkSorry___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_boolToExpr___lambda__1___closed__5; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_mkSorry(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_1); +x_5 = l_Lean_Meta_getLevel(x_1, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +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; +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_Lean_Meta_mkSorry___closed__2; +x_11 = l_Lean_mkConst(x_10, x_9); +if (x_2 == 0) +{ +lean_object* x_12; lean_object* x_13; +x_12 = l_Lean_Meta_mkSorry___closed__3; +x_13 = l_Lean_mkAppB(x_11, x_1, x_12); +lean_ctor_set(x_5, 0, x_13); +return x_5; +} +else +{ +lean_object* x_14; lean_object* x_15; +x_14 = l_Lean_Meta_mkSorry___closed__4; +x_15 = l_Lean_mkAppB(x_11, x_1, x_14); +lean_ctor_set(x_5, 0, x_15); +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; +x_16 = lean_ctor_get(x_5, 0); +x_17 = lean_ctor_get(x_5, 1); +lean_inc(x_17); +lean_inc(x_16); +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_Lean_Meta_mkSorry___closed__2; +x_21 = l_Lean_mkConst(x_20, x_19); +if (x_2 == 0) +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = l_Lean_Meta_mkSorry___closed__3; +x_23 = l_Lean_mkAppB(x_21, x_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_17); +return x_24; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = l_Lean_Meta_mkSorry___closed__4; +x_26 = l_Lean_mkAppB(x_21, x_1, x_25); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_17); +return x_27; +} +} +} +else +{ +uint8_t x_28; +lean_dec(x_1); +x_28 = !lean_is_exclusive(x_5); +if (x_28 == 0) +{ +return x_5; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_5, 0); +x_30 = lean_ctor_get(x_5, 1); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_5); +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; +} +} +} +} +lean_object* l_Lean_Meta_mkSorry___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_2); +lean_dec(x_2); +x_6 = l_Lean_Meta_mkSorry(x_1, x_5, x_3, x_4); +return x_6; +} +} +lean_object* _init_l_Lean_Meta_mkDecideProof___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("decide"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkDecideProof___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkDecIsTrue___closed__2; +x_2 = l_Lean_Meta_mkDecideProof___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkDecideProof___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("ofDecideEqTrue"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkDecideProof___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkDecideProof___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkDecideProof(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 = l_Lean_mkOptionalNode___closed__2; +x_5 = lean_array_push(x_4, x_1); +x_6 = l_Lean_Meta_mkDecideProof___closed__2; +lean_inc(x_2); +x_7 = l_Lean_Meta_mkAppM(x_6, x_5, x_2, x_3); +lean_dec(x_5); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = l_Lean_boolToExpr___lambda__1___closed__6; +lean_inc(x_2); +x_11 = l_Lean_Meta_mkEq(x_8, x_10, x_2, x_9); +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_2); +x_14 = l_Lean_Meta_mkEqRefl(x_10, x_2, 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_2); +x_17 = l_Lean_Meta_mkExpectedTypeHint(x_15, x_12, x_2, x_16); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +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); +x_20 = lean_array_push(x_4, x_18); +x_21 = l_Lean_Meta_mkDecideProof___closed__4; +x_22 = l_Lean_Meta_mkAppM(x_21, x_20, x_2, x_19); +lean_dec(x_20); +return x_22; +} +else +{ +uint8_t x_23; +lean_dec(x_2); +x_23 = !lean_is_exclusive(x_17); +if (x_23 == 0) +{ +return x_17; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_17, 0); +x_25 = lean_ctor_get(x_17, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_17); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +else +{ +uint8_t x_27; +lean_dec(x_12); +lean_dec(x_2); +x_27 = !lean_is_exclusive(x_14); +if (x_27 == 0) +{ +return x_14; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_14, 0); +x_29 = lean_ctor_get(x_14, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_14); +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; +} +} +} +else +{ +uint8_t x_31; +lean_dec(x_2); +x_31 = !lean_is_exclusive(x_11); +if (x_31 == 0) +{ +return x_11; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_11, 0); +x_33 = lean_ctor_get(x_11, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_11); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +else +{ +uint8_t x_35; +lean_dec(x_2); +x_35 = !lean_is_exclusive(x_7); +if (x_35 == 0) +{ +return x_7; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_7, 0); +x_37 = lean_ctor_get(x_7, 1); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_7); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +return x_38; +} +} +} +} +lean_object* _init_l_Lean_Meta_mkLt___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("HasLess"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkLt___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkLt___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkLt___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Less"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkLt___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_mkLt___closed__2; +x_2 = l_Lean_Meta_mkLt___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkLt(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; +x_5 = l_Lean_mkAppStx___closed__9; +x_6 = lean_array_push(x_5, x_1); +x_7 = lean_array_push(x_6, x_2); +x_8 = l_Lean_Meta_mkLt___closed__4; +x_9 = l_Lean_Meta_mkAppM(x_8, x_7, x_3, x_4); +lean_dec(x_7); +return x_9; +} +} +lean_object* _init_l_Lean_Meta_mkLe___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("HasLessEq"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkLe___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkLe___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkLe___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("LessEq"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkLe___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_mkLe___closed__2; +x_2 = l_Lean_Meta_mkLe___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkLe(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; +x_5 = l_Lean_mkAppStx___closed__9; +x_6 = lean_array_push(x_5, x_1); +x_7 = lean_array_push(x_6, x_2); +x_8 = l_Lean_Meta_mkLe___closed__4; +x_9 = l_Lean_Meta_mkAppM(x_8, x_7, x_3, x_4); +lean_dec(x_7); +return x_9; +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Structure(lean_object*); lean_object* initialize_Lean_Util_Recognizers(lean_object*); @@ -14500,6 +14959,38 @@ l_Lean_Meta_mkArrayLit___closed__1 = _init_l_Lean_Meta_mkArrayLit___closed__1(); lean_mark_persistent(l_Lean_Meta_mkArrayLit___closed__1); l_Lean_Meta_mkArrayLit___closed__2 = _init_l_Lean_Meta_mkArrayLit___closed__2(); lean_mark_persistent(l_Lean_Meta_mkArrayLit___closed__2); +l_Lean_Meta_mkSorry___closed__1 = _init_l_Lean_Meta_mkSorry___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkSorry___closed__1); +l_Lean_Meta_mkSorry___closed__2 = _init_l_Lean_Meta_mkSorry___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkSorry___closed__2); +l_Lean_Meta_mkSorry___closed__3 = _init_l_Lean_Meta_mkSorry___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkSorry___closed__3); +l_Lean_Meta_mkSorry___closed__4 = _init_l_Lean_Meta_mkSorry___closed__4(); +lean_mark_persistent(l_Lean_Meta_mkSorry___closed__4); +l_Lean_Meta_mkDecideProof___closed__1 = _init_l_Lean_Meta_mkDecideProof___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkDecideProof___closed__1); +l_Lean_Meta_mkDecideProof___closed__2 = _init_l_Lean_Meta_mkDecideProof___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkDecideProof___closed__2); +l_Lean_Meta_mkDecideProof___closed__3 = _init_l_Lean_Meta_mkDecideProof___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkDecideProof___closed__3); +l_Lean_Meta_mkDecideProof___closed__4 = _init_l_Lean_Meta_mkDecideProof___closed__4(); +lean_mark_persistent(l_Lean_Meta_mkDecideProof___closed__4); +l_Lean_Meta_mkLt___closed__1 = _init_l_Lean_Meta_mkLt___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkLt___closed__1); +l_Lean_Meta_mkLt___closed__2 = _init_l_Lean_Meta_mkLt___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkLt___closed__2); +l_Lean_Meta_mkLt___closed__3 = _init_l_Lean_Meta_mkLt___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkLt___closed__3); +l_Lean_Meta_mkLt___closed__4 = _init_l_Lean_Meta_mkLt___closed__4(); +lean_mark_persistent(l_Lean_Meta_mkLt___closed__4); +l_Lean_Meta_mkLe___closed__1 = _init_l_Lean_Meta_mkLe___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkLe___closed__1); +l_Lean_Meta_mkLe___closed__2 = _init_l_Lean_Meta_mkLe___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkLe___closed__2); +l_Lean_Meta_mkLe___closed__3 = _init_l_Lean_Meta_mkLe___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkLe___closed__3); +l_Lean_Meta_mkLe___closed__4 = _init_l_Lean_Meta_mkLe___closed__4(); +lean_mark_persistent(l_Lean_Meta_mkLe___closed__4); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Meta/Basic.c b/stage0/stdlib/Lean/Meta/Basic.c index d502f2353a..bea49338ef 100644 --- a/stage0/stdlib/Lean/Meta/Basic.c +++ b/stage0/stdlib/Lean/Meta/Basic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.Meta.Basic -// Imports: Init Lean.Data.LOption Lean.Environment Lean.Class Lean.ReducibilityAttrs Lean.Util.Trace Lean.Util.RecDepth Lean.Util.Closure Lean.Meta.Exception Lean.Meta.DiscrTreeTypes Lean.Eval +// Imports: Init Lean.Data.LOption Lean.Environment Lean.Class Lean.ReducibilityAttrs Lean.Util.Trace Lean.Util.RecDepth Lean.Util.Closure Lean.Compiler.InlineAttrs Lean.Meta.Exception Lean.Meta.DiscrTreeTypes Lean.Eval #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -128,9 +128,9 @@ lean_object* l_Lean_Meta_mkInferTypeRef___lambda__1(lean_object*, lean_object*, lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__5___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isReadOnlyLevelMVar___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Basic_11__regTraceClasses___closed__4; +lean_object* l_Lean_Meta_setInlineAttribute___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_isReducible(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkAuxDefinitionFor(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4; lean_object* l___private_Lean_Meta_Basic_5__forallTelescopeReducingAux___at_Lean_Meta_forallBoundedTelescope___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_InfoCacheKey_Hashable___boxed(lean_object*); lean_object* l_Lean_Meta_getConstNoEx(lean_object*, lean_object*, lean_object*); @@ -153,6 +153,7 @@ lean_object* l_Lean_Meta_MetaM_inhabited___rarg(lean_object*); lean_object* l_Lean_Meta_TransparencyMode_Hashable___closed__1; lean_object* l_Lean_Meta_getEnv___rarg(lean_object*); lean_object* l_Lean_MetavarContext_hasAssignableMVar___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_ofExcept(lean_object*, lean_object*); lean_object* l_Lean_Meta_instantiateForall(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_IO_FS_Handle_putStrLn___rarg___closed__1; lean_object* l_Lean_Meta_getConfig___boxed(lean_object*, lean_object*); @@ -165,6 +166,7 @@ lean_object* l_Lean_Meta_withNewLocalInstances___rarg(lean_object*, lean_object* lean_object* l_Lean_Meta_withNewLocalInstance___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_run___rarg___closed__5; lean_object* l___private_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Compiler_inlineAttrs; lean_object* l_Lean_mkAuxDefinition(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Meta_throwEx___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_dbgTrace___rarg___closed__1; @@ -194,7 +196,7 @@ lean_object* l___private_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___rarg lean_object* l___private_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Basic_2__getTraceState(lean_object*); uint8_t l_Lean_Meta_InfoCacheKey_HasBeq(lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_instantiateLevelMVars___main(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkWHNFRef___lambda__1___closed__2; lean_object* l_Lean_Meta_mkInferTypeRef___lambda__1___closed__2; @@ -208,7 +210,7 @@ lean_object* l___private_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main lean_object* l_Lean_Expr_headBeta(lean_object*); lean_object* l_Lean_Meta_mkMetaExtension___closed__2; lean_object* l___private_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux___main(uint8_t, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwOther___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwOther___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkMetaExtension___closed__1; lean_object* l_Lean_Meta_getOptions___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkInferTypeRef___lambda__1___boxed(lean_object*, lean_object*, lean_object*); @@ -284,6 +286,7 @@ lean_object* l_IO_Prim_Ref_get___boxed(lean_object*, lean_object*, lean_object*) lean_object* l_Lean_Meta_mkFreshId___rarg(lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescopeReducing___spec__3(lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__5(lean_object*); +lean_object* l_Lean_Meta_ofExcept___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_tracer___closed__4; lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescopeReducing___spec__4___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getParamNames___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -356,6 +359,7 @@ lean_object* l___private_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux(lean_o lean_object* l_Lean_Meta_resettingSynthInstanceCache(lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasMVar(lean_object*); +lean_object* l_Lean_Meta_ofExcept___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_tracer___closed__2; lean_object* l___private_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux(uint8_t, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___closed__4; @@ -447,6 +451,7 @@ lean_object* l___private_Lean_Meta_Basic_8__lambdaMetaTelescopeAux___main___boxe lean_object* l_Lean_Meta_withNewMCtxDepth(lean_object*); lean_object* l_Lean_Meta_shouldReduceReducibleOnly(lean_object*, lean_object*); lean_object* l_Lean_Meta_getMCtx___rarg(lean_object*); +lean_object* l_Lean_EnumAttributes_setValue___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__2; lean_object* l_IO_print___at_IO_runMeta___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__4___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -454,6 +459,7 @@ lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkWHNFRef___closed__1; lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); extern lean_object* l_Lean_MetavarContext_Inhabited___closed__1; +lean_object* l_Lean_Meta_setInlineAttribute(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescope___spec__3(lean_object*); lean_object* l_Lean_Meta_mkMetaExtension___closed__3; lean_object* l_Lean_Meta_isClassQuick___main___closed__1; @@ -954,11 +960,13 @@ return x_2; lean_object* _init_l_Lean_Meta_withIncRecDepth___rarg___closed__3() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_withIncRecDepth___rarg___closed__2; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_withIncRecDepth___rarg___closed__2; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l_Lean_Meta_withIncRecDepth___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -1320,11 +1328,13 @@ return x_2; lean_object* _init_l_Lean_Meta_mkWHNFRef___lambda__1___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_mkWHNFRef___lambda__1___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkWHNFRef___lambda__1___closed__3; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l_Lean_Meta_mkWHNFRef___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -1396,11 +1406,13 @@ return x_2; lean_object* _init_l_Lean_Meta_mkInferTypeRef___lambda__1___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_mkInferTypeRef___lambda__1___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkInferTypeRef___lambda__1___closed__3; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l_Lean_Meta_mkInferTypeRef___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -1472,11 +1484,13 @@ return x_2; lean_object* _init_l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___closed__3; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { @@ -3066,50 +3080,100 @@ lean_dec(x_2); return x_4; } } -lean_object* l_Lean_Meta_throwOther___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Meta_throwOther___rarg(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_ctor_get(x_3, 0); -lean_inc(x_4); -x_5 = lean_ctor_get(x_3, 1); +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_ctor_get(x_4, 0); lean_inc(x_5); -x_6 = lean_ctor_get(x_2, 1); -x_7 = lean_ctor_get(x_2, 0); -x_8 = lean_ctor_get(x_7, 0); -lean_inc(x_8); +x_6 = lean_ctor_get(x_4, 1); lean_inc(x_6); -x_9 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_9, 0, x_4); -lean_ctor_set(x_9, 1, x_5); -lean_ctor_set(x_9, 2, x_6); -lean_ctor_set(x_9, 3, x_8); -x_10 = lean_alloc_ctor(6, 2, 0); -lean_ctor_set(x_10, 0, x_9); -lean_ctor_set(x_10, 1, x_1); -x_11 = lean_alloc_ctor(22, 1, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = lean_ctor_get(x_3, 0); +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +lean_inc(x_7); +x_10 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_10, 0, x_5); +lean_ctor_set(x_10, 1, x_6); +lean_ctor_set(x_10, 2, x_7); +lean_ctor_set(x_10, 3, x_9); +x_11 = lean_alloc_ctor(6, 2, 0); lean_ctor_set(x_11, 0, x_10); -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; +lean_ctor_set(x_11, 1, x_1); +x_12 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_12, 0, x_2); +lean_ctor_set(x_12, 1, x_11); +x_13 = lean_alloc_ctor(1, 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_Meta_throwOther(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Meta_throwOther___rarg___boxed), 3, 0); +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_throwOther___rarg___boxed), 4, 0); return x_2; } } -lean_object* l_Lean_Meta_throwOther___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Meta_throwOther___rarg___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_Meta_throwOther___rarg(x_1, x_2, x_3); +lean_object* x_5; +x_5 = l_Lean_Meta_throwOther___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_Lean_Meta_ofExcept___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_5 = lean_ctor_get(x_2, 0); +lean_inc(x_5); lean_dec(x_2); -return x_4; +x_6 = lean_apply_1(x_1, x_5); +x_7 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_7, 0, x_6); +x_8 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_8, 0, x_7); +x_9 = lean_box(0); +x_10 = l_Lean_Meta_throwOther___rarg(x_8, x_9, x_3, x_4); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; +lean_dec(x_1); +x_11 = lean_ctor_get(x_2, 0); +lean_inc(x_11); +lean_dec(x_2); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_4); +return x_12; +} +} +} +lean_object* l_Lean_Meta_ofExcept(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_Meta_ofExcept___rarg___boxed), 4, 0); +return x_3; +} +} +lean_object* l_Lean_Meta_ofExcept___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_ofExcept___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; } } lean_object* l_Lean_Meta_throwBug___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -47089,6 +47153,51 @@ return x_13; } } } +lean_object* l_Lean_Meta_setInlineAttribute(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = l_Lean_Compiler_inlineAttrs; +x_7 = lean_box(x_2); +x_8 = l_Lean_EnumAttributes_setValue___rarg(x_6, x_5, x_1, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +lean_dec(x_8); +x_10 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_10, 0, x_9); +x_11 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = lean_box(0); +x_13 = l_Lean_Meta_throwOther___rarg(x_11, x_12, x_3, x_4); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_8, 0); +lean_inc(x_14); +lean_dec(x_8); +x_15 = l_Lean_Meta_setEnv(x_14, x_3, x_4); +return x_15; +} +} +} +lean_object* l_Lean_Meta_setInlineAttribute___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_2); +lean_dec(x_2); +x_6 = l_Lean_Meta_setInlineAttribute(x_1, x_5, x_3, x_4); +lean_dec(x_3); +return x_6; +} +} lean_object* _init_l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__1() { _start: { @@ -47117,16 +47226,6 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* l___private_Lean_Meta_Basic_10__instantiateForallAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -47177,59 +47276,43 @@ goto _start; } else { -uint8_t x_18; +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_dec(x_11); lean_dec(x_9); -lean_dec(x_4); lean_dec(x_2); -x_18 = !lean_is_exclusive(x_10); -if (x_18 == 0) -{ -lean_object* x_19; lean_object* x_20; -x_19 = lean_ctor_get(x_10, 0); -lean_dec(x_19); -x_20 = l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4; -lean_ctor_set_tag(x_10, 1); -lean_ctor_set(x_10, 0, x_20); -return x_10; -} -else -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_21 = lean_ctor_get(x_10, 1); -lean_inc(x_21); +x_18 = lean_ctor_get(x_10, 1); +lean_inc(x_18); lean_dec(x_10); -x_22 = l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4; -x_23 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_23, 0, x_22); -lean_ctor_set(x_23, 1, x_21); -return x_23; -} +x_19 = l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__3; +x_20 = lean_box(0); +x_21 = l_Lean_Meta_throwOther___rarg(x_19, x_20, x_4, x_18); +lean_dec(x_4); +return x_21; } } else { -uint8_t x_24; +uint8_t x_22; lean_dec(x_9); lean_dec(x_4); lean_dec(x_2); -x_24 = !lean_is_exclusive(x_10); -if (x_24 == 0) +x_22 = !lean_is_exclusive(x_10); +if (x_22 == 0) { return x_10; } else { -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_10, 0); -x_26 = lean_ctor_get(x_10, 1); -lean_inc(x_26); -lean_inc(x_25); +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_10, 0); +x_24 = lean_ctor_get(x_10, 1); +lean_inc(x_24); +lean_inc(x_23); lean_dec(x_10); -x_27 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_27, 0, x_25); -lean_ctor_set(x_27, 1, x_26); -return x_27; +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; } } } @@ -48184,6 +48267,7 @@ lean_object* initialize_Lean_ReducibilityAttrs(lean_object*); lean_object* initialize_Lean_Util_Trace(lean_object*); lean_object* initialize_Lean_Util_RecDepth(lean_object*); lean_object* initialize_Lean_Util_Closure(lean_object*); +lean_object* initialize_Lean_Compiler_InlineAttrs(lean_object*); lean_object* initialize_Lean_Meta_Exception(lean_object*); lean_object* initialize_Lean_Meta_DiscrTreeTypes(lean_object*); lean_object* initialize_Lean_Eval(lean_object*); @@ -48216,6 +48300,9 @@ lean_dec_ref(res); res = initialize_Lean_Util_Closure(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Compiler_InlineAttrs(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Lean_Meta_Exception(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -48355,8 +48442,6 @@ l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__2 = _init_ lean_mark_persistent(l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__2); l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__3 = _init_l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__3(); lean_mark_persistent(l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__3); -l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4 = _init_l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4(); -lean_mark_persistent(l___private_Lean_Meta_Basic_10__instantiateForallAux___main___closed__4); l___private_Lean_Meta_Basic_11__regTraceClasses___closed__1 = _init_l___private_Lean_Meta_Basic_11__regTraceClasses___closed__1(); lean_mark_persistent(l___private_Lean_Meta_Basic_11__regTraceClasses___closed__1); l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2 = _init_l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2(); diff --git a/stage0/stdlib/Lean/Meta/EqnCompiler.c b/stage0/stdlib/Lean/Meta/EqnCompiler.c new file mode 100644 index 0000000000..708e1794a3 --- /dev/null +++ b/stage0/stdlib/Lean/Meta/EqnCompiler.c @@ -0,0 +1,60 @@ +// Lean compiler output +// Module: Lean.Meta.EqnCompiler +// Imports: Init Lean.Meta.EqnCompiler.MatchPattern Lean.Meta.EqnCompiler.DepElim Lean.Meta.EqnCompiler.CaseValues Lean.Meta.EqnCompiler.CaseArraySizes +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); +extern lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_1__regTraceClasses(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_1__regTraceClasses(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2; +x_3 = l_Lean_registerTraceClass(x_2, x_1); +return x_3; +} +} +lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_MatchPattern(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_DepElim(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_CaseValues(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_CaseArraySizes(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Lean_Meta_EqnCompiler(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_MatchPattern(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_DepElim(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_CaseValues(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_CaseArraySizes(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = l___private_Lean_Meta_EqnCompiler_1__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 +} +#endif diff --git a/stage0/stdlib/Lean/Meta/EqnCompiler/CaseArraySizes.c b/stage0/stdlib/Lean/Meta/EqnCompiler/CaseArraySizes.c new file mode 100644 index 0000000000..3e59bba25d --- /dev/null +++ b/stage0/stdlib/Lean/Meta/EqnCompiler/CaseArraySizes.c @@ -0,0 +1,2019 @@ +// Lean compiler output +// Module: Lean.Meta.EqnCompiler.CaseArraySizes +// Imports: Init Lean.Meta.Tactic.Assert Lean.Meta.EqnCompiler.CaseValues +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_Meta_caseArraySizes___closed__2; +lean_object* lean_mk_empty_array_with_capacity(lean_object*); +lean_object* l_Lean_Meta_caseArraySizes___closed__3; +lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__1; +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__2; +lean_object* l_Lean_Meta_mkForall(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkAppM(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Array_empty___closed__1; +lean_object* l_Lean_Meta_caseArraySizes___closed__4; +lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Literal_type___closed__3; +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +extern lean_object* l_Lean_Name_inhabited; +lean_object* l_Lean_Expr_appArg_x21(lean_object*); +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__2; +lean_object* l_Lean_Meta_getArrayArgType(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqSymm(lean_object*, lean_object*, lean_object*); +lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getArrayArgType___closed__3; +extern lean_object* l_Lean_Meta_caseValue___closed__2; +lean_object* l_Lean_Meta_getArrayArgType___closed__1; +lean_object* l_Lean_Expr_fvarId_x21(lean_object*); +lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_clear(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*); +lean_object* l_Lean_Meta_getArrayArgType___closed__2; +lean_object* l_Lean_Meta_mkArrayLit(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkDecideProof(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkFVar(lean_object*); +uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__5; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_3__introArrayLit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +lean_object* l_Lean_Meta_FVarSubst_get(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__3; +lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assertExt(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__2(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Std_PersistentHashMap_mkCollisionNode___rarg___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValues(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseArraySizes___closed__1; +lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__1; +lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toList___rarg(lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__2___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_mkOptionalNode___closed__2; +lean_object* l_Lean_mkNatLit(lean_object*); +lean_object* l_Lean_Meta_CaseArraySizesSubgoal_inhabited___closed__1; +lean_object* l_unsafeCast(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_Lean_arrayToExpr___rarg___closed__2; +lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_indentExpr(lean_object*); +lean_object* l_Lean_Meta_caseArraySizes(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__4; +lean_object* l_Lean_Meta_mkLt(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* _init_l_Lean_Meta_CaseArraySizesSubgoal_inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = lean_box(0); +x_2 = lean_box(0); +x_3 = l_Array_empty___closed__1; +x_4 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set(x_4, 2, x_3); +lean_ctor_set(x_4, 3, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Meta_CaseArraySizesSubgoal_inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_CaseArraySizesSubgoal_inhabited___closed__1; +return x_1; +} +} +lean_object* _init_l_Lean_Meta_getArrayArgType___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("array expected"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_getArrayArgType___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_getArrayArgType___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_Meta_getArrayArgType___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_getArrayArgType___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_getArrayArgType(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +lean_inc(x_1); +x_4 = l_Lean_Meta_inferType(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* 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); +lean_inc(x_2); +x_7 = l_Lean_Meta_whnfD(x_5, x_2, x_6); +if (lean_obj_tag(x_7) == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; +x_9 = lean_ctor_get(x_7, 0); +x_10 = lean_ctor_get(x_7, 1); +x_11 = l_Lean_arrayToExpr___rarg___closed__2; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Expr_isAppOfArity___main(x_9, x_11, x_12); +x_14 = l_Lean_Expr_appArg_x21(x_9); +lean_dec(x_9); +if (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; uint8_t x_21; +lean_dec(x_14); +lean_free_object(x_7); +x_15 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_15, 0, x_1); +x_16 = l_Lean_indentExpr(x_15); +x_17 = l_Lean_Meta_getArrayArgType___closed__3; +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 = lean_box(0); +x_20 = l_Lean_Meta_throwOther___rarg(x_18, x_19, x_2, x_10); +lean_dec(x_2); +x_21 = !lean_is_exclusive(x_20); +if (x_21 == 0) +{ +return x_20; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_20, 0); +x_23 = lean_ctor_get(x_20, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_20); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +else +{ +lean_dec(x_2); +lean_dec(x_1); +lean_ctor_set(x_7, 0, x_14); +return x_7; +} +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; lean_object* x_30; +x_25 = lean_ctor_get(x_7, 0); +x_26 = lean_ctor_get(x_7, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_7); +x_27 = l_Lean_arrayToExpr___rarg___closed__2; +x_28 = lean_unsigned_to_nat(1u); +x_29 = l_Lean_Expr_isAppOfArity___main(x_25, x_27, x_28); +x_30 = l_Lean_Expr_appArg_x21(x_25); +lean_dec(x_25); +if (x_29 == 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; lean_object* x_38; lean_object* x_39; lean_object* x_40; +lean_dec(x_30); +x_31 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_31, 0, x_1); +x_32 = l_Lean_indentExpr(x_31); +x_33 = l_Lean_Meta_getArrayArgType___closed__3; +x_34 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = lean_box(0); +x_36 = l_Lean_Meta_throwOther___rarg(x_34, x_35, x_2, x_26); +lean_dec(x_2); +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +x_38 = lean_ctor_get(x_36, 1); +lean_inc(x_38); +if (lean_is_exclusive(x_36)) { + lean_ctor_release(x_36, 0); + lean_ctor_release(x_36, 1); + x_39 = x_36; +} else { + lean_dec_ref(x_36); + x_39 = lean_box(0); +} +if (lean_is_scalar(x_39)) { + x_40 = lean_alloc_ctor(1, 2, 0); +} else { + x_40 = x_39; +} +lean_ctor_set(x_40, 0, x_37); +lean_ctor_set(x_40, 1, x_38); +return x_40; +} +else +{ +lean_object* x_41; +lean_dec(x_2); +lean_dec(x_1); +x_41 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_41, 0, x_30); +lean_ctor_set(x_41, 1, x_26); +return x_41; +} +} +} +else +{ +uint8_t x_42; +lean_dec(x_2); +lean_dec(x_1); +x_42 = !lean_is_exclusive(x_7); +if (x_42 == 0) +{ +return x_7; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_7, 0); +x_44 = lean_ctor_get(x_7, 1); +lean_inc(x_44); +lean_inc(x_43); +lean_dec(x_7); +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_2); +lean_dec(x_1); +x_46 = !lean_is_exclusive(x_4); +if (x_46 == 0) +{ +return x_4; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_4, 0); +x_48 = lean_ctor_get(x_4, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_4); +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; +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("getLit"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_arrayToExpr___rarg___closed__2; +x_2 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = l_Lean_mkNatLit(x_2); +x_8 = l_Lean_mkNatLit(x_3); +lean_inc(x_5); +lean_inc(x_7); +x_9 = l_Lean_Meta_mkLt(x_7, x_8, x_5, x_6); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +lean_inc(x_5); +x_12 = l_Lean_Meta_mkDecideProof(x_10, x_5, x_11); +if (lean_obj_tag(x_12) == 0) +{ +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_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_Std_PersistentHashMap_mkCollisionNode___rarg___closed__1; +x_16 = lean_array_push(x_15, x_1); +x_17 = lean_array_push(x_16, x_7); +x_18 = lean_array_push(x_17, x_4); +x_19 = lean_array_push(x_18, x_13); +x_20 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__2; +x_21 = l_Lean_Meta_mkAppM(x_20, x_19, x_5, x_14); +lean_dec(x_19); +return x_21; +} +else +{ +uint8_t x_22; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_12); +if (x_22 == 0) +{ +return x_12; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_12, 0); +x_24 = lean_ctor_get(x_12, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_12); +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; +} +} +} +else +{ +uint8_t x_26; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_26 = !lean_is_exclusive(x_9); +if (x_26 == 0) +{ +return x_9; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_9, 0); +x_28 = lean_ctor_get(x_9, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_9); +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; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___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) { +_start: +{ +lean_object* x_8; +x_8 = l_Lean_Meta_getMVarType(x_1, x_6, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_array_push(x_2, x_5); +x_12 = l_Lean_Meta_mkForall(x_11, x_9, x_6, x_10); +if (lean_obj_tag(x_12) == 0) +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_12, 0); +x_15 = lean_array_push(x_3, x_4); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +lean_ctor_set(x_12, 0, x_16); +return x_12; +} +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_12, 0); +x_18 = lean_ctor_get(x_12, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_12); +x_19 = lean_array_push(x_3, x_4); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_17); +lean_ctor_set(x_20, 1, 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_18); +return x_21; +} +} +else +{ +uint8_t x_22; +lean_dec(x_4); +lean_dec(x_3); +x_22 = !lean_is_exclusive(x_12); +if (x_22 == 0) +{ +return x_12; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_12, 0); +x_24 = lean_ctor_get(x_12, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_12); +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; +} +} +} +else +{ +uint8_t x_26; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_26 = !lean_is_exclusive(x_8); +if (x_26 == 0) +{ +return x_8; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_8, 0); +x_28 = lean_ctor_get(x_8, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_8); +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; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___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, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13) { +_start: +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_array_push(x_1, x_11); +lean_inc(x_12); +lean_inc(x_5); +lean_inc(x_4); +lean_inc(x_2); +x_15 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit(x_2, x_3, x_4, x_5, x_12, x_13); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 1); +lean_inc(x_17); +lean_dec(x_15); +x_18 = lean_array_push(x_6, x_16); +x_19 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main(x_7, x_8, x_2, x_4, x_9, x_5, x_10, x_14, x_18, x_12, x_17); +return x_19; +} +else +{ +uint8_t x_20; +lean_dec(x_14); +lean_dec(x_12); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_20 = !lean_is_exclusive(x_15); +if (x_20 == 0) +{ +return x_15; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_15, 0); +x_22 = lean_ctor_get(x_15, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_15); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("toArrayLitEq"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_arrayToExpr___rarg___closed__2; +x_2 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(3u); +x_2 = lean_mk_empty_array_with_capacity(x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("hEqALit"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__4; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___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, lean_object* x_9, lean_object* x_10, lean_object* x_11) { +_start: +{ +uint8_t x_12; +x_12 = lean_nat_dec_lt(x_7, x_4); +if (x_12 == 0) +{ +lean_object* x_13; lean_object* x_14; +lean_dec(x_7); +lean_dec(x_5); +x_13 = l_Array_toList___rarg(x_8); +lean_inc(x_10); +x_14 = l_Lean_Meta_mkArrayLit(x_2, x_13, x_10, x_11); +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_10); +lean_inc(x_3); +x_17 = l_Lean_Meta_mkEq(x_3, x_15, x_10, x_16); +if (lean_obj_tag(x_17) == 0) +{ +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_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); +x_20 = l_Lean_mkNatLit(x_4); +x_21 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__3; +x_22 = lean_array_push(x_21, x_3); +x_23 = lean_array_push(x_22, x_20); +x_24 = lean_array_push(x_23, x_6); +x_25 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__2; +lean_inc(x_10); +x_26 = l_Lean_Meta_mkAppM(x_25, x_24, x_10, x_19); +lean_dec(x_24); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; lean_object* x_32; +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_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___lambda__1), 7, 4); +lean_closure_set(x_29, 0, x_1); +lean_closure_set(x_29, 1, x_8); +lean_closure_set(x_29, 2, x_9); +lean_closure_set(x_29, 3, x_27); +x_30 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__5; +x_31 = 0; +x_32 = l_Lean_Meta_withLocalDecl___rarg(x_30, x_18, x_31, x_29, x_10, x_28); +return x_32; +} +else +{ +uint8_t x_33; +lean_dec(x_18); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_1); +x_33 = !lean_is_exclusive(x_26); +if (x_33 == 0) +{ +return x_26; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_26, 0); +x_35 = lean_ctor_get(x_26, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_26); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; +} +} +} +else +{ +uint8_t x_37; +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_37 = !lean_is_exclusive(x_17); +if (x_37 == 0) +{ +return x_17; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_17, 0); +x_39 = lean_ctor_get(x_17, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_17); +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_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_41 = !lean_is_exclusive(x_14); +if (x_41 == 0) +{ +return x_14; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_14, 0); +x_43 = lean_ctor_get(x_14, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_14); +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 +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; uint8_t x_49; lean_object* x_50; +x_45 = lean_unsigned_to_nat(1u); +x_46 = lean_nat_add(x_7, x_45); +lean_inc(x_46); +lean_inc(x_5); +x_47 = l_Lean_Name_appendIndexAfter(x_5, x_46); +lean_inc(x_2); +x_48 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___lambda__2), 13, 10); +lean_closure_set(x_48, 0, x_8); +lean_closure_set(x_48, 1, x_3); +lean_closure_set(x_48, 2, x_7); +lean_closure_set(x_48, 3, x_4); +lean_closure_set(x_48, 4, x_6); +lean_closure_set(x_48, 5, x_9); +lean_closure_set(x_48, 6, x_1); +lean_closure_set(x_48, 7, x_2); +lean_closure_set(x_48, 8, x_5); +lean_closure_set(x_48, 9, x_46); +x_49 = 0; +x_50 = l_Lean_Meta_withLocalDecl___rarg(x_47, x_2, x_49, x_48, x_10, x_11); +return x_50; +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux(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, lean_object* x_11) { +_start: +{ +lean_object* x_12; +x_12 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11); +return x_12; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseArraySizes_3__introArrayLit(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_inc(x_6); +lean_inc(x_2); +x_8 = l_Lean_Meta_getArrayArgType(x_2, x_6, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_unsigned_to_nat(0u); +x_12 = l_Array_empty___closed__1; +lean_inc(x_6); +lean_inc(x_1); +x_13 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main(x_1, x_9, x_2, x_3, x_4, x_5, x_11, x_12, x_12, x_6, x_10); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_ctor_get(x_14, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_14, 1); +lean_inc(x_17); +lean_dec(x_14); +lean_inc(x_1); +x_18 = l_Lean_Meta_getMVarTag(x_1, x_6, x_15); +if (lean_obj_tag(x_18) == 0) +{ +lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_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 = 2; +lean_inc(x_6); +x_22 = l_Lean_Meta_mkFreshExprMVar(x_16, x_19, x_21, x_6, x_20); +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +lean_inc(x_23); +x_25 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_17, x_17, x_11, x_23); +lean_dec(x_17); +x_26 = l_Lean_Expr_mvarId_x21(x_23); +lean_dec(x_23); +x_27 = l_Lean_Meta_assignExprMVar(x_1, x_25, x_6, x_24); +lean_dec(x_6); +if (lean_obj_tag(x_27) == 0) +{ +uint8_t x_28; +x_28 = !lean_is_exclusive(x_27); +if (x_28 == 0) +{ +lean_object* x_29; +x_29 = lean_ctor_get(x_27, 0); +lean_dec(x_29); +lean_ctor_set(x_27, 0, x_26); +return x_27; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = lean_ctor_get(x_27, 1); +lean_inc(x_30); +lean_dec(x_27); +x_31 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_31, 0, x_26); +lean_ctor_set(x_31, 1, x_30); +return x_31; +} +} +else +{ +uint8_t x_32; +lean_dec(x_26); +x_32 = !lean_is_exclusive(x_27); +if (x_32 == 0) +{ +return x_27; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_27, 0); +x_34 = lean_ctor_get(x_27, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_27); +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_33); +lean_ctor_set(x_35, 1, x_34); +return x_35; +} +} +} +else +{ +uint8_t x_36; +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_6); +lean_dec(x_1); +x_36 = !lean_is_exclusive(x_18); +if (x_36 == 0) +{ +return x_18; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_18, 0); +x_38 = lean_ctor_get(x_18, 1); +lean_inc(x_38); +lean_inc(x_37); +lean_dec(x_18); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; +} +} +} +else +{ +uint8_t x_40; +lean_dec(x_6); +lean_dec(x_1); +x_40 = !lean_is_exclusive(x_13); +if (x_40 == 0) +{ +return x_13; +} +else +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_13, 0); +x_42 = lean_ctor_get(x_13, 1); +lean_inc(x_42); +lean_inc(x_41); +lean_dec(x_13); +x_43 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_43, 0, x_41); +lean_ctor_set(x_43, 1, x_42); +return x_43; +} +} +} +else +{ +uint8_t x_44; +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_44 = !lean_is_exclusive(x_8); +if (x_44 == 0) +{ +return x_8; +} +else +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; +x_45 = lean_ctor_get(x_8, 0); +x_46 = lean_ctor_get(x_8, 1); +lean_inc(x_46); +lean_inc(x_45); +lean_dec(x_8); +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_45); +lean_ctor_set(x_47, 1, x_46); +return x_47; +} +} +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; uint8_t x_4; +x_3 = lean_array_get_size(x_2); +x_4 = lean_nat_dec_lt(x_1, x_3); +lean_dec(x_3); +if (x_4 == 0) +{ +lean_object* x_5; +lean_dec(x_1); +x_5 = x_2; +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; +x_6 = lean_array_fget(x_2, x_1); +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_array_fset(x_2, x_1, x_7); +x_9 = x_6; +x_10 = l_Lean_mkNatLit(x_9); +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_1, x_11); +x_13 = x_10; +x_14 = lean_array_fset(x_8, x_1, x_13); +lean_dec(x_1); +x_1 = x_12; +x_2 = x_14; +goto _start; +} +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___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_3); +x_5 = lean_nat_dec_lt(x_2, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; +lean_dec(x_2); +x_6 = x_3; +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; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_7 = lean_array_fget(x_3, x_2); +x_8 = lean_unsigned_to_nat(0u); +x_9 = lean_array_fset(x_3, x_2, x_8); +x_10 = x_7; +x_11 = l_Lean_Meta_FVarSubst_get(x_1, x_10); +x_12 = l_Lean_Expr_fvarId_x21(x_11); +lean_dec(x_11); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +x_16 = lean_array_fset(x_9, x_2, x_15); +lean_dec(x_2); +x_2 = x_14; +x_3 = x_16; +goto _start; +} +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3___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) { +_start: +{ +lean_object* x_10; +lean_inc(x_8); +lean_inc(x_3); +x_10 = l___private_Lean_Meta_EqnCompiler_CaseArraySizes_3__introArrayLit(x_1, x_2, x_3, x_4, x_7, x_8, x_9); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; lean_object* x_15; +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_box(0); +x_14 = 1; +x_15 = l_Lean_Meta_introN(x_11, x_3, x_13, x_14, x_8, x_12); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 1); +lean_inc(x_17); +lean_dec(x_15); +x_18 = lean_ctor_get(x_16, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_16, 1); +lean_inc(x_19); +lean_dec(x_16); +x_20 = l_Lean_Meta_intro1(x_19, x_14, x_8, x_17); +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; +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 = lean_ctor_get(x_21, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_21, 1); +lean_inc(x_24); +lean_dec(x_21); +x_25 = l_Lean_Meta_clear(x_24, x_5, x_8, x_22); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; uint8_t x_28; lean_object* x_29; +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +x_27 = lean_ctor_get(x_25, 1); +lean_inc(x_27); +lean_dec(x_25); +x_28 = 0; +x_29 = l_Lean_Meta_substCore(x_26, x_23, x_28, x_6, x_14, x_8, x_27); +lean_dec(x_8); +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; +x_31 = lean_ctor_get(x_29, 0); +x_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_31, 1); +lean_inc(x_33); +lean_dec(x_31); +x_34 = l_Array_empty___closed__1; +x_35 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_35, 0, x_33); +lean_ctor_set(x_35, 1, x_18); +lean_ctor_set(x_35, 2, x_34); +lean_ctor_set(x_35, 3, x_32); +lean_ctor_set(x_29, 0, x_35); +return x_29; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_36 = lean_ctor_get(x_29, 0); +x_37 = lean_ctor_get(x_29, 1); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_29); +x_38 = lean_ctor_get(x_36, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_36, 1); +lean_inc(x_39); +lean_dec(x_36); +x_40 = l_Array_empty___closed__1; +x_41 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_41, 0, x_39); +lean_ctor_set(x_41, 1, x_18); +lean_ctor_set(x_41, 2, x_40); +lean_ctor_set(x_41, 3, x_38); +x_42 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_37); +return x_42; +} +} +else +{ +uint8_t x_43; +lean_dec(x_18); +x_43 = !lean_is_exclusive(x_29); +if (x_43 == 0) +{ +return x_29; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_29, 0); +x_45 = lean_ctor_get(x_29, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_29); +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_23); +lean_dec(x_18); +lean_dec(x_8); +lean_dec(x_6); +x_47 = !lean_is_exclusive(x_25); +if (x_47 == 0) +{ +return x_25; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_25, 0); +x_49 = lean_ctor_get(x_25, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_25); +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 +{ +uint8_t x_51; +lean_dec(x_18); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +x_51 = !lean_is_exclusive(x_20); +if (x_51 == 0) +{ +return x_20; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_20, 0); +x_53 = lean_ctor_get(x_20, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_20); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +} +else +{ +uint8_t x_55; +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +x_55 = !lean_is_exclusive(x_15); +if (x_55 == 0) +{ +return x_15; +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_15, 0); +x_57 = lean_ctor_get(x_15, 1); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_15); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +} +else +{ +uint8_t x_59; +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +x_59 = !lean_is_exclusive(x_10); +if (x_59 == 0) +{ +return x_10; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_10, 0); +x_61 = lean_ctor_get(x_10, 1); +lean_inc(x_61); +lean_inc(x_60); +lean_dec(x_10); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +return x_62; +} +} +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__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, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; uint8_t x_11; +x_10 = lean_array_get_size(x_7); +x_11 = lean_nat_dec_lt(x_6, x_10); +lean_dec(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_12 = x_7; +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_9); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; +x_14 = lean_array_fget(x_7, x_6); +x_15 = lean_unsigned_to_nat(0u); +x_16 = lean_array_fset(x_7, x_6, x_15); +x_17 = x_14; +x_18 = lean_ctor_get(x_17, 2); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 0); +lean_inc(x_19); +lean_inc(x_5); +x_20 = l_Lean_Meta_FVarSubst_get(x_18, x_5); +x_21 = l_Lean_Expr_fvarId_x21(x_20); +lean_dec(x_20); +x_22 = lean_array_get_size(x_1); +x_23 = lean_nat_dec_lt(x_6, x_22); +lean_dec(x_22); +if (x_23 == 0) +{ +uint8_t x_24; uint8_t x_25; lean_object* x_26; +lean_dec(x_21); +x_24 = 0; +x_25 = 1; +lean_inc(x_5); +x_26 = l_Lean_Meta_substCore(x_19, x_5, x_24, x_18, x_25, x_8, x_9); +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; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +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_ctor_get(x_27, 0); +lean_inc(x_29); +x_30 = lean_ctor_get(x_27, 1); +lean_inc(x_30); +lean_dec(x_27); +x_31 = lean_ctor_get(x_17, 1); +lean_inc(x_31); +lean_dec(x_17); +x_32 = x_31; +x_33 = l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__2(x_29, x_15, x_32); +x_34 = x_33; +x_35 = l_Array_empty___closed__1; +x_36 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_35); +lean_ctor_set(x_36, 2, x_34); +lean_ctor_set(x_36, 3, x_29); +x_37 = lean_unsigned_to_nat(1u); +x_38 = lean_nat_add(x_6, x_37); +x_39 = x_36; +x_40 = lean_array_fset(x_16, x_6, x_39); +lean_dec(x_6); +x_6 = x_38; +x_7 = x_40; +x_9 = x_28; +goto _start; +} +else +{ +uint8_t x_42; +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_42 = !lean_is_exclusive(x_26); +if (x_42 == 0) +{ +return x_26; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_26, 0); +x_44 = lean_ctor_get(x_26, 1); +lean_inc(x_44); +lean_inc(x_43); +lean_dec(x_26); +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 +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_46 = lean_array_fget(x_1, x_6); +x_47 = lean_ctor_get(x_17, 1); +lean_inc(x_47); +lean_dec(x_17); +x_48 = l_Lean_Name_inhabited; +x_49 = lean_array_get(x_48, x_47, x_15); +lean_dec(x_47); +x_50 = l_Lean_Meta_clear(x_19, x_49, x_8, x_9); +if (lean_obj_tag(x_50) == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_51 = lean_ctor_get(x_50, 0); +lean_inc(x_51); +x_52 = lean_ctor_get(x_50, 1); +lean_inc(x_52); +lean_dec(x_50); +lean_inc(x_4); +x_53 = l_Lean_Meta_FVarSubst_get(x_18, x_4); +x_54 = l_Lean_Expr_fvarId_x21(x_53); +lean_dec(x_53); +x_55 = l_Lean_Meta_clear(x_51, x_54, x_8, x_52); +if (lean_obj_tag(x_55) == 0) +{ +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_56 = lean_ctor_get(x_55, 0); +lean_inc(x_56); +x_57 = lean_ctor_get(x_55, 1); +lean_inc(x_57); +lean_dec(x_55); +lean_inc(x_21); +x_58 = l_Lean_mkFVar(x_21); +x_59 = lean_alloc_closure((void*)(l_Lean_Meta_mkEqSymm), 3, 1); +lean_closure_set(x_59, 0, x_58); +lean_inc(x_2); +lean_inc(x_3); +lean_inc(x_56); +x_60 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3___lambda__1), 9, 6); +lean_closure_set(x_60, 0, x_56); +lean_closure_set(x_60, 1, x_3); +lean_closure_set(x_60, 2, x_46); +lean_closure_set(x_60, 3, x_2); +lean_closure_set(x_60, 4, x_21); +lean_closure_set(x_60, 5, x_18); +x_61 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_61, 0, x_59); +lean_closure_set(x_61, 1, x_60); +x_62 = l_Lean_Meta_getMVarDecl(x_56, x_8, x_57); +if (lean_obj_tag(x_62) == 0) +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_63 = lean_ctor_get(x_62, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +lean_dec(x_62); +x_65 = lean_ctor_get(x_63, 1); +lean_inc(x_65); +x_66 = lean_ctor_get(x_63, 4); +lean_inc(x_66); +lean_dec(x_63); +x_67 = l_Lean_Meta_withLocalContext___rarg(x_65, x_66, x_61, x_8, x_64); +if (lean_obj_tag(x_67) == 0) +{ +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_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); +x_70 = lean_unsigned_to_nat(1u); +x_71 = lean_nat_add(x_6, x_70); +x_72 = x_68; +x_73 = lean_array_fset(x_16, x_6, x_72); +lean_dec(x_6); +x_6 = x_71; +x_7 = x_73; +x_9 = x_69; +goto _start; +} +else +{ +uint8_t x_75; +lean_dec(x_16); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_75 = !lean_is_exclusive(x_67); +if (x_75 == 0) +{ +return x_67; +} +else +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_76 = lean_ctor_get(x_67, 0); +x_77 = lean_ctor_get(x_67, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_67); +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_61); +lean_dec(x_16); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_79 = !lean_is_exclusive(x_62); +if (x_79 == 0) +{ +return x_62; +} +else +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_80 = lean_ctor_get(x_62, 0); +x_81 = lean_ctor_get(x_62, 1); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_62); +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_46); +lean_dec(x_21); +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_83 = !lean_is_exclusive(x_55); +if (x_83 == 0) +{ +return x_55; +} +else +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_55, 0); +x_85 = lean_ctor_get(x_55, 1); +lean_inc(x_85); +lean_inc(x_84); +lean_dec(x_55); +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 +{ +uint8_t x_87; +lean_dec(x_46); +lean_dec(x_21); +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_87 = !lean_is_exclusive(x_50); +if (x_87 == 0) +{ +return x_50; +} +else +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_50, 0); +x_89 = lean_ctor_get(x_50, 1); +lean_inc(x_89); +lean_inc(x_88); +lean_dec(x_50); +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* _init_l_Lean_Meta_caseArraySizes___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("size"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseArraySizes___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_arrayToExpr___rarg___closed__2; +x_2 = l_Lean_Meta_caseArraySizes___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseArraySizes___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("aSize"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseArraySizes___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseArraySizes___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_caseArraySizes(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; +x_8 = l_Lean_mkFVar(x_2); +lean_inc(x_6); +lean_inc(x_8); +x_9 = l_Lean_Meta_getArrayArgType(x_8, x_6, x_7); +if (lean_obj_tag(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_9, 1); +lean_inc(x_10); +lean_dec(x_9); +x_11 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_8); +x_12 = lean_array_push(x_11, x_8); +x_13 = l_Lean_Meta_caseArraySizes___closed__2; +lean_inc(x_6); +x_14 = l_Lean_Meta_mkAppM(x_13, x_12, x_6, x_10); +lean_dec(x_12); +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 = l_Lean_Meta_caseArraySizes___closed__4; +x_18 = l_Lean_Literal_type___closed__3; +x_19 = l_Lean_Meta_caseValue___closed__2; +x_20 = l_Lean_Meta_assertExt(x_1, x_17, x_18, x_15, x_19, x_6, x_16); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; lean_object* x_22; uint8_t x_23; lean_object* x_24; +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 = 1; +x_24 = l_Lean_Meta_intro1(x_21, x_23, x_6, x_22); +if (lean_obj_tag(x_24) == 0) +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_25 = lean_ctor_get(x_24, 0); +lean_inc(x_25); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); +lean_dec(x_24); +x_27 = lean_ctor_get(x_25, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_25, 1); +lean_inc(x_28); +lean_dec(x_25); +x_29 = l_Lean_Meta_intro1(x_28, x_23, x_6, x_26); +if (lean_obj_tag(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; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = lean_ctor_get(x_30, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +lean_dec(x_30); +lean_inc(x_3); +x_34 = x_3; +x_35 = lean_unsigned_to_nat(0u); +x_36 = l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__1(x_35, x_34); +x_37 = x_36; +lean_inc(x_27); +x_38 = l_Lean_Meta_caseValues(x_33, x_27, x_37, x_5, x_6, x_31); +lean_dec(x_37); +if (lean_obj_tag(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; +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 = x_39; +x_42 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3___boxed), 9, 7); +lean_closure_set(x_42, 0, x_3); +lean_closure_set(x_42, 1, x_4); +lean_closure_set(x_42, 2, x_8); +lean_closure_set(x_42, 3, x_27); +lean_closure_set(x_42, 4, x_32); +lean_closure_set(x_42, 5, x_35); +lean_closure_set(x_42, 6, x_41); +x_43 = x_42; +x_44 = lean_apply_2(x_43, x_6, x_40); +return x_44; +} +else +{ +uint8_t x_45; +lean_dec(x_32); +lean_dec(x_27); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_45 = !lean_is_exclusive(x_38); +if (x_45 == 0) +{ +return x_38; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_38, 0); +x_47 = lean_ctor_get(x_38, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_38); +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_27); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +x_49 = !lean_is_exclusive(x_29); +if (x_49 == 0) +{ +return x_29; +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_29, 0); +x_51 = lean_ctor_get(x_29, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_29); +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_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +x_53 = !lean_is_exclusive(x_24); +if (x_53 == 0) +{ +return x_24; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_24, 0); +x_55 = lean_ctor_get(x_24, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_24); +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_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +x_57 = !lean_is_exclusive(x_20); +if (x_57 == 0) +{ +return x_20; +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_20, 0); +x_59 = lean_ctor_get(x_20, 1); +lean_inc(x_59); +lean_inc(x_58); +lean_dec(x_20); +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 +{ +uint8_t x_61; +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_61 = !lean_is_exclusive(x_14); +if (x_61 == 0) +{ +return x_14; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_62 = lean_ctor_get(x_14, 0); +x_63 = lean_ctor_get(x_14, 1); +lean_inc(x_63); +lean_inc(x_62); +lean_dec(x_14); +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_62); +lean_ctor_set(x_64, 1, x_63); +return x_64; +} +} +} +else +{ +uint8_t x_65; +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_65 = !lean_is_exclusive(x_9); +if (x_65 == 0) +{ +return x_9; +} +else +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_66 = lean_ctor_get(x_9, 0); +x_67 = lean_ctor_get(x_9, 1); +lean_inc(x_67); +lean_inc(x_66); +lean_dec(x_9); +x_68 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_67); +return x_68; +} +} +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___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_Meta_caseArraySizes___spec__2(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3___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_Array_umapMAux___main___at_Lean_Meta_caseArraySizes___spec__3(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_1); +return x_10; +} +} +lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Meta_Tactic_Assert(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_CaseValues(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Lean_Meta_EqnCompiler_CaseArraySizes(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_Tactic_Assert(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_CaseValues(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Meta_CaseArraySizesSubgoal_inhabited___closed__1 = _init_l_Lean_Meta_CaseArraySizesSubgoal_inhabited___closed__1(); +lean_mark_persistent(l_Lean_Meta_CaseArraySizesSubgoal_inhabited___closed__1); +l_Lean_Meta_CaseArraySizesSubgoal_inhabited = _init_l_Lean_Meta_CaseArraySizesSubgoal_inhabited(); +lean_mark_persistent(l_Lean_Meta_CaseArraySizesSubgoal_inhabited); +l_Lean_Meta_getArrayArgType___closed__1 = _init_l_Lean_Meta_getArrayArgType___closed__1(); +lean_mark_persistent(l_Lean_Meta_getArrayArgType___closed__1); +l_Lean_Meta_getArrayArgType___closed__2 = _init_l_Lean_Meta_getArrayArgType___closed__2(); +lean_mark_persistent(l_Lean_Meta_getArrayArgType___closed__2); +l_Lean_Meta_getArrayArgType___closed__3 = _init_l_Lean_Meta_getArrayArgType___closed__3(); +lean_mark_persistent(l_Lean_Meta_getArrayArgType___closed__3); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__1); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_1__mkArrayGetLit___closed__2); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__1); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__2); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__3); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__4); +l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__5 = _init_l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__5(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseArraySizes_2__introArrayLitAux___main___closed__5); +l_Lean_Meta_caseArraySizes___closed__1 = _init_l_Lean_Meta_caseArraySizes___closed__1(); +lean_mark_persistent(l_Lean_Meta_caseArraySizes___closed__1); +l_Lean_Meta_caseArraySizes___closed__2 = _init_l_Lean_Meta_caseArraySizes___closed__2(); +lean_mark_persistent(l_Lean_Meta_caseArraySizes___closed__2); +l_Lean_Meta_caseArraySizes___closed__3 = _init_l_Lean_Meta_caseArraySizes___closed__3(); +lean_mark_persistent(l_Lean_Meta_caseArraySizes___closed__3); +l_Lean_Meta_caseArraySizes___closed__4 = _init_l_Lean_Meta_caseArraySizes___closed__4(); +lean_mark_persistent(l_Lean_Meta_caseArraySizes___closed__4); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Lean/Meta/EqnCompiler/CaseValues.c b/stage0/stdlib/Lean/Meta/EqnCompiler/CaseValues.c new file mode 100644 index 0000000000..ef21f4340a --- /dev/null +++ b/stage0/stdlib/Lean/Meta/EqnCompiler/CaseValues.c @@ -0,0 +1,2025 @@ +// Lean compiler output +// Module: Lean.Meta.EqnCompiler.CaseValues +// Imports: Init Lean.Meta.Tactic.Subst Lean.Meta.Tactic.Clear +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* lean_mk_empty_array_with_capacity(lean_object*); +lean_object* l_Lean_Meta_appendTagSuffix(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__5; +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__3; +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValues___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Array_empty___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__2; +lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_domain(lean_object*); +lean_object* l_Lean_Meta_caseValue___closed__4; +extern lean_object* l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__6; +lean_object* l_Lean_Meta_caseValue___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_CaseValueSubgoal_inhabited; +lean_object* l_Lean_Meta_caseValue___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkAppOptM(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__6; +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__2; +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__8; +lean_object* l_Lean_Meta_caseValueAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__5; +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__4; +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__8; +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__1; +lean_object* l_Lean_Meta_caseValueAux___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_tryClear(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValue___closed__2; +lean_object* l_Lean_Expr_fvarId_x21(lean_object*); +lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__9; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Meta_CaseValueSubgoals_inhabited___closed__1; +lean_object* l_Lean_Meta_caseValue(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__7; +lean_object* l_Lean_Meta_caseValue___closed__6; +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__5; +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValue___closed__5; +lean_object* l_Lean_mkFVar(lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_get(lean_object*, lean_object*); +lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__6; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getLocalDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__2; +lean_object* l_Lean_Meta_caseValue___closed__3; +lean_object* l_List_toString___at_Lean_Meta_substCore___spec__4(lean_object*); +lean_object* l_Lean_Meta_caseValues(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkForall(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toList___rarg(lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_mkOptionalNode___closed__2; +lean_object* l_Lean_Meta_CaseValueSubgoals_inhabited; +lean_object* l_Lean_Meta_CaseValueSubgoal_inhabited___closed__1; +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__4; +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__4; +lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__9; +lean_object* l_Lean_Meta_getMVarTag___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__2___closed__7; +lean_object* l_Lean_mkConst(lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValueAux___lambda__1___closed__7; +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* _init_l_Lean_Meta_CaseValueSubgoal_inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = lean_box(0); +x_3 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_2); +lean_ctor_set(x_3, 2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_CaseValueSubgoal_inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_CaseValueSubgoal_inhabited___closed__1; +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("found decl"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_caseValueAux___lambda__1___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_Meta_caseValueAux___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_caseValueAux___lambda__1___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_Lean_Meta_caseValueAux___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("searching for decl"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_caseValueAux___lambda__1___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_caseValueAux___lambda__1___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__7() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("subst domain: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_caseValueAux___lambda__1___closed__7; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__1___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_caseValueAux___lambda__1___closed__8; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_caseValueAux___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_46; lean_object* x_58; uint8_t x_59; +x_58 = lean_ctor_get(x_5, 4); +lean_inc(x_58); +x_59 = lean_ctor_get_uint8(x_58, sizeof(void*)*1); +lean_dec(x_58); +if (x_59 == 0) +{ +x_46 = x_5; +goto block_57; +} +else +{ +lean_object* x_60; lean_object* x_61; uint8_t x_62; +lean_inc(x_2); +x_60 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_2, x_4, x_5); +x_61 = lean_ctor_get(x_60, 0); +lean_inc(x_61); +x_62 = lean_unbox(x_61); +lean_dec(x_61); +if (x_62 == 0) +{ +lean_object* x_63; +x_63 = lean_ctor_get(x_60, 1); +lean_inc(x_63); +lean_dec(x_60); +x_46 = x_63; +goto block_57; +} +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; +x_64 = lean_ctor_get(x_60, 1); +lean_inc(x_64); +lean_dec(x_60); +x_65 = l_Lean_Meta_FVarSubst_domain(x_3); +x_66 = l_List_toString___at_Lean_Meta_substCore___spec__4(x_65); +x_67 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_67, 0, x_66); +x_68 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_68, 0, x_67); +x_69 = l_Lean_Meta_caseValueAux___lambda__1___closed__9; +x_70 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_68); +lean_inc(x_2); +x_71 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_2, x_70, x_4, x_64); +x_72 = lean_ctor_get(x_71, 1); +lean_inc(x_72); +lean_dec(x_71); +x_46 = x_72; +goto block_57; +} +} +block_45: +{ +lean_object* x_7; +lean_inc(x_4); +x_7 = l_Lean_Meta_getLocalDecl(x_1, x_4, x_6); +if (lean_obj_tag(x_7) == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_9 = lean_ctor_get(x_7, 1); +x_10 = lean_ctor_get(x_7, 0); +lean_dec(x_10); +x_11 = lean_ctor_get(x_9, 4); +lean_inc(x_11); +x_12 = lean_ctor_get_uint8(x_11, sizeof(void*)*1); +lean_dec(x_11); +if (x_12 == 0) +{ +lean_object* x_13; +lean_dec(x_4); +lean_dec(x_2); +x_13 = lean_box(0); +lean_ctor_set(x_7, 0, x_13); +return x_7; +} +else +{ +lean_object* x_14; lean_object* x_15; uint8_t x_16; +lean_free_object(x_7); +lean_inc(x_2); +x_14 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_2, x_4, x_9); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_unbox(x_15); +lean_dec(x_15); +if (x_16 == 0) +{ +uint8_t x_17; +lean_dec(x_4); +lean_dec(x_2); +x_17 = !lean_is_exclusive(x_14); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; +x_18 = lean_ctor_get(x_14, 0); +lean_dec(x_18); +x_19 = lean_box(0); +lean_ctor_set(x_14, 0, x_19); +return x_14; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_14, 1); +lean_inc(x_20); +lean_dec(x_14); +x_21 = lean_box(0); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_20); +return x_22; +} +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_14, 1); +lean_inc(x_23); +lean_dec(x_14); +x_24 = l_Lean_Meta_caseValueAux___lambda__1___closed__3; +x_25 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_2, x_24, x_4, x_23); +lean_dec(x_4); +return x_25; +} +} +} +else +{ +lean_object* x_26; lean_object* x_27; uint8_t x_28; +x_26 = lean_ctor_get(x_7, 1); +lean_inc(x_26); +lean_dec(x_7); +x_27 = lean_ctor_get(x_26, 4); +lean_inc(x_27); +x_28 = lean_ctor_get_uint8(x_27, sizeof(void*)*1); +lean_dec(x_27); +if (x_28 == 0) +{ +lean_object* x_29; lean_object* x_30; +lean_dec(x_4); +lean_dec(x_2); +x_29 = lean_box(0); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_26); +return x_30; +} +else +{ +lean_object* x_31; lean_object* x_32; uint8_t x_33; +lean_inc(x_2); +x_31 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_2, x_4, x_26); +x_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +x_33 = lean_unbox(x_32); +lean_dec(x_32); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +lean_dec(x_4); +lean_dec(x_2); +x_34 = lean_ctor_get(x_31, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_31)) { + lean_ctor_release(x_31, 0); + lean_ctor_release(x_31, 1); + x_35 = x_31; +} else { + lean_dec_ref(x_31); + x_35 = lean_box(0); +} +x_36 = lean_box(0); +if (lean_is_scalar(x_35)) { + x_37 = lean_alloc_ctor(0, 2, 0); +} else { + x_37 = x_35; +} +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_31, 1); +lean_inc(x_38); +lean_dec(x_31); +x_39 = l_Lean_Meta_caseValueAux___lambda__1___closed__3; +x_40 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_2, x_39, x_4, x_38); +lean_dec(x_4); +return x_40; +} +} +} +} +else +{ +uint8_t x_41; +lean_dec(x_4); +lean_dec(x_2); +x_41 = !lean_is_exclusive(x_7); +if (x_41 == 0) +{ +return x_7; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_7, 0); +x_43 = lean_ctor_get(x_7, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_7); +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; +} +} +} +block_57: +{ +lean_object* x_47; uint8_t x_48; +x_47 = lean_ctor_get(x_46, 4); +lean_inc(x_47); +x_48 = lean_ctor_get_uint8(x_47, sizeof(void*)*1); +lean_dec(x_47); +if (x_48 == 0) +{ +x_6 = x_46; +goto block_45; +} +else +{ +lean_object* x_49; lean_object* x_50; uint8_t x_51; +lean_inc(x_2); +x_49 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_2, x_4, x_46); +x_50 = lean_ctor_get(x_49, 0); +lean_inc(x_50); +x_51 = lean_unbox(x_50); +lean_dec(x_50); +if (x_51 == 0) +{ +lean_object* x_52; +x_52 = lean_ctor_get(x_49, 1); +lean_inc(x_52); +lean_dec(x_49); +x_6 = x_52; +goto block_45; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_53 = lean_ctor_get(x_49, 1); +lean_inc(x_53); +lean_dec(x_49); +x_54 = l_Lean_Meta_caseValueAux___lambda__1___closed__6; +lean_inc(x_2); +x_55 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_2, x_54, x_4, x_53); +x_56 = lean_ctor_get(x_55, 1); +lean_inc(x_56); +lean_dec(x_55); +x_6 = x_56; +goto block_45; +} +} +} +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("caseValue"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValueAux___lambda__2___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Not"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValueAux___lambda__2___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValueAux___lambda__2___closed__4; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("dite"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValueAux___lambda__2___closed__6; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(5u); +x_2 = lean_mk_empty_array_with_capacity(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_caseValueAux___lambda__2___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValueAux___lambda__2___closed__8; +x_3 = lean_array_push(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_caseValueAux___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, lean_object* x_8) { +_start: +{ +lean_object* x_9; lean_object* x_10; +x_9 = l_Lean_Meta_caseValueAux___lambda__2___closed__2; +lean_inc(x_1); +x_10 = l_Lean_Meta_checkNotAssigned(x_1, x_9, x_7, x_8); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); +lean_dec(x_10); +lean_inc(x_1); +x_12 = l_Lean_Meta_getMVarType(x_1, x_7, x_11); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_Lean_mkFVar(x_2); +lean_inc(x_7); +x_16 = l_Lean_Meta_mkEq(x_15, x_3, x_7, x_14); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +x_19 = l_Lean_Meta_caseValueAux___lambda__2___closed__5; +lean_inc(x_17); +x_20 = l_Lean_mkApp(x_19, x_17); +x_21 = 0; +lean_inc(x_13); +lean_inc(x_17); +x_22 = l_Lean_mkForall(x_4, x_21, x_17, x_13); +x_23 = l_Lean_mkForall(x_4, x_21, x_20, x_13); +x_24 = 2; +lean_inc(x_7); +lean_inc(x_6); +x_25 = l_Lean_Meta_mkFreshExprMVar(x_22, x_6, x_24, x_7, x_18); +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +x_27 = lean_ctor_get(x_25, 1); +lean_inc(x_27); +lean_dec(x_25); +lean_inc(x_7); +x_28 = l_Lean_Meta_mkFreshExprMVar(x_23, x_6, x_24, x_7, x_27); +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 = lean_box(0); +x_32 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_32, 0, x_17); +lean_inc(x_26); +x_33 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_33, 0, x_26); +lean_inc(x_29); +x_34 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_34, 0, x_29); +x_35 = l_Lean_Meta_caseValueAux___lambda__2___closed__9; +x_36 = lean_array_push(x_35, x_32); +x_37 = lean_array_push(x_36, x_31); +x_38 = lean_array_push(x_37, x_33); +x_39 = lean_array_push(x_38, x_34); +x_40 = l_Lean_Meta_caseValueAux___lambda__2___closed__7; +lean_inc(x_7); +x_41 = l_Lean_Meta_mkAppOptM(x_40, x_39, x_7, x_30); +lean_dec(x_39); +if (lean_obj_tag(x_41) == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_42 = lean_ctor_get(x_41, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_41, 1); +lean_inc(x_43); +lean_dec(x_41); +x_44 = l_Lean_Expr_mvarId_x21(x_29); +lean_dec(x_29); +x_45 = l_Lean_Meta_assignExprMVar(x_1, x_42, x_7, x_43); +if (lean_obj_tag(x_45) == 0) +{ +lean_object* x_46; uint8_t x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_45, 1); +lean_inc(x_46); +lean_dec(x_45); +x_47 = 0; +x_48 = l_Lean_Meta_intro1(x_44, x_47, x_7, x_46); +if (lean_obj_tag(x_48) == 0) +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_49 = lean_ctor_get(x_48, 0); +lean_inc(x_49); +x_50 = lean_ctor_get(x_48, 1); +lean_inc(x_50); +lean_dec(x_48); +x_51 = lean_ctor_get(x_49, 0); +lean_inc(x_51); +x_52 = lean_ctor_get(x_49, 1); +lean_inc(x_52); +lean_dec(x_49); +lean_inc(x_5); +x_53 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_51); +lean_ctor_set(x_53, 2, x_5); +x_54 = l_Lean_Expr_mvarId_x21(x_26); +lean_dec(x_26); +x_55 = l_Lean_Meta_intro1(x_54, x_47, x_7, x_50); +if (lean_obj_tag(x_55) == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_56 = lean_ctor_get(x_55, 0); +lean_inc(x_56); +x_57 = lean_ctor_get(x_55, 1); +lean_inc(x_57); +lean_dec(x_55); +x_58 = lean_ctor_get(x_56, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_56, 1); +lean_inc(x_59); +lean_dec(x_56); +lean_inc(x_58); +x_60 = l_Lean_Meta_substCore(x_59, x_58, x_47, x_5, x_47, x_7, x_57); +if (lean_obj_tag(x_60) == 0) +{ +lean_object* x_61; lean_object* x_62; uint8_t x_63; +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_63 = !lean_is_exclusive(x_61); +if (x_63 == 0) +{ +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; +x_64 = lean_ctor_get(x_61, 0); +x_65 = lean_ctor_get(x_61, 1); +x_66 = l_Lean_Meta_FVarSubst_get(x_64, x_58); +x_67 = l_Lean_Expr_fvarId_x21(x_66); +lean_dec(x_66); +x_68 = l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; +lean_inc(x_64); +lean_inc(x_67); +x_69 = lean_alloc_closure((void*)(l_Lean_Meta_caseValueAux___lambda__1___boxed), 5, 3); +lean_closure_set(x_69, 0, x_67); +lean_closure_set(x_69, 1, x_68); +lean_closure_set(x_69, 2, x_64); +lean_inc(x_65); +x_70 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_70, 0, x_65); +lean_ctor_set(x_70, 1, x_67); +lean_ctor_set(x_70, 2, x_64); +lean_ctor_set(x_61, 1, x_53); +lean_ctor_set(x_61, 0, x_70); +x_71 = l_Lean_Meta_getMVarDecl(x_65, x_7, x_62); +if (lean_obj_tag(x_71) == 0) +{ +lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; +x_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +x_73 = lean_ctor_get(x_71, 1); +lean_inc(x_73); +lean_dec(x_71); +x_74 = lean_ctor_get(x_72, 1); +lean_inc(x_74); +x_75 = lean_ctor_get(x_72, 4); +lean_inc(x_75); +lean_dec(x_72); +x_76 = l_Lean_Meta_withLocalContext___rarg(x_74, x_75, x_69, x_7, x_73); +lean_dec(x_7); +if (lean_obj_tag(x_76) == 0) +{ +uint8_t x_77; +x_77 = !lean_is_exclusive(x_76); +if (x_77 == 0) +{ +lean_object* x_78; +x_78 = lean_ctor_get(x_76, 0); +lean_dec(x_78); +lean_ctor_set(x_76, 0, x_61); +return x_76; +} +else +{ +lean_object* x_79; lean_object* x_80; +x_79 = lean_ctor_get(x_76, 1); +lean_inc(x_79); +lean_dec(x_76); +x_80 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_80, 0, x_61); +lean_ctor_set(x_80, 1, x_79); +return x_80; +} +} +else +{ +uint8_t x_81; +lean_dec(x_61); +x_81 = !lean_is_exclusive(x_76); +if (x_81 == 0) +{ +return x_76; +} +else +{ +lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_82 = lean_ctor_get(x_76, 0); +x_83 = lean_ctor_get(x_76, 1); +lean_inc(x_83); +lean_inc(x_82); +lean_dec(x_76); +x_84 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_84, 0, x_82); +lean_ctor_set(x_84, 1, x_83); +return x_84; +} +} +} +else +{ +uint8_t x_85; +lean_dec(x_61); +lean_dec(x_69); +lean_dec(x_7); +x_85 = !lean_is_exclusive(x_71); +if (x_85 == 0) +{ +return x_71; +} +else +{ +lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_86 = lean_ctor_get(x_71, 0); +x_87 = lean_ctor_get(x_71, 1); +lean_inc(x_87); +lean_inc(x_86); +lean_dec(x_71); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_86); +lean_ctor_set(x_88, 1, x_87); +return x_88; +} +} +} +else +{ +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; +x_89 = lean_ctor_get(x_61, 0); +x_90 = lean_ctor_get(x_61, 1); +lean_inc(x_90); +lean_inc(x_89); +lean_dec(x_61); +x_91 = l_Lean_Meta_FVarSubst_get(x_89, x_58); +x_92 = l_Lean_Expr_fvarId_x21(x_91); +lean_dec(x_91); +x_93 = l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; +lean_inc(x_89); +lean_inc(x_92); +x_94 = lean_alloc_closure((void*)(l_Lean_Meta_caseValueAux___lambda__1___boxed), 5, 3); +lean_closure_set(x_94, 0, x_92); +lean_closure_set(x_94, 1, x_93); +lean_closure_set(x_94, 2, x_89); +lean_inc(x_90); +x_95 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_95, 0, x_90); +lean_ctor_set(x_95, 1, x_92); +lean_ctor_set(x_95, 2, x_89); +x_96 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_96, 0, x_95); +lean_ctor_set(x_96, 1, x_53); +x_97 = l_Lean_Meta_getMVarDecl(x_90, x_7, x_62); +if (lean_obj_tag(x_97) == 0) +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_ctor_get(x_97, 1); +lean_inc(x_99); +lean_dec(x_97); +x_100 = lean_ctor_get(x_98, 1); +lean_inc(x_100); +x_101 = lean_ctor_get(x_98, 4); +lean_inc(x_101); +lean_dec(x_98); +x_102 = l_Lean_Meta_withLocalContext___rarg(x_100, x_101, x_94, x_7, x_99); +lean_dec(x_7); +if (lean_obj_tag(x_102) == 0) +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; +x_103 = lean_ctor_get(x_102, 1); +lean_inc(x_103); +if (lean_is_exclusive(x_102)) { + lean_ctor_release(x_102, 0); + lean_ctor_release(x_102, 1); + x_104 = x_102; +} else { + lean_dec_ref(x_102); + x_104 = lean_box(0); +} +if (lean_is_scalar(x_104)) { + x_105 = lean_alloc_ctor(0, 2, 0); +} else { + x_105 = x_104; +} +lean_ctor_set(x_105, 0, x_96); +lean_ctor_set(x_105, 1, x_103); +return x_105; +} +else +{ +lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +lean_dec(x_96); +x_106 = lean_ctor_get(x_102, 0); +lean_inc(x_106); +x_107 = lean_ctor_get(x_102, 1); +lean_inc(x_107); +if (lean_is_exclusive(x_102)) { + lean_ctor_release(x_102, 0); + lean_ctor_release(x_102, 1); + x_108 = x_102; +} else { + lean_dec_ref(x_102); + x_108 = lean_box(0); +} +if (lean_is_scalar(x_108)) { + x_109 = lean_alloc_ctor(1, 2, 0); +} else { + x_109 = x_108; +} +lean_ctor_set(x_109, 0, x_106); +lean_ctor_set(x_109, 1, x_107); +return x_109; +} +} +else +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +lean_dec(x_96); +lean_dec(x_94); +lean_dec(x_7); +x_110 = lean_ctor_get(x_97, 0); +lean_inc(x_110); +x_111 = lean_ctor_get(x_97, 1); +lean_inc(x_111); +if (lean_is_exclusive(x_97)) { + lean_ctor_release(x_97, 0); + lean_ctor_release(x_97, 1); + x_112 = x_97; +} else { + lean_dec_ref(x_97); + x_112 = lean_box(0); +} +if (lean_is_scalar(x_112)) { + x_113 = lean_alloc_ctor(1, 2, 0); +} else { + x_113 = x_112; +} +lean_ctor_set(x_113, 0, x_110); +lean_ctor_set(x_113, 1, x_111); +return x_113; +} +} +} +else +{ +uint8_t x_114; +lean_dec(x_58); +lean_dec(x_53); +lean_dec(x_7); +x_114 = !lean_is_exclusive(x_60); +if (x_114 == 0) +{ +return x_60; +} +else +{ +lean_object* x_115; lean_object* x_116; lean_object* x_117; +x_115 = lean_ctor_get(x_60, 0); +x_116 = lean_ctor_get(x_60, 1); +lean_inc(x_116); +lean_inc(x_115); +lean_dec(x_60); +x_117 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_117, 0, x_115); +lean_ctor_set(x_117, 1, x_116); +return x_117; +} +} +} +else +{ +uint8_t x_118; +lean_dec(x_53); +lean_dec(x_7); +lean_dec(x_5); +x_118 = !lean_is_exclusive(x_55); +if (x_118 == 0) +{ +return x_55; +} +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; +x_119 = lean_ctor_get(x_55, 0); +x_120 = lean_ctor_get(x_55, 1); +lean_inc(x_120); +lean_inc(x_119); +lean_dec(x_55); +x_121 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_121, 0, x_119); +lean_ctor_set(x_121, 1, x_120); +return x_121; +} +} +} +else +{ +uint8_t x_122; +lean_dec(x_26); +lean_dec(x_7); +lean_dec(x_5); +x_122 = !lean_is_exclusive(x_48); +if (x_122 == 0) +{ +return x_48; +} +else +{ +lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_123 = lean_ctor_get(x_48, 0); +x_124 = lean_ctor_get(x_48, 1); +lean_inc(x_124); +lean_inc(x_123); +lean_dec(x_48); +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; +lean_dec(x_44); +lean_dec(x_26); +lean_dec(x_7); +lean_dec(x_5); +x_126 = !lean_is_exclusive(x_45); +if (x_126 == 0) +{ +return x_45; +} +else +{ +lean_object* x_127; lean_object* x_128; lean_object* x_129; +x_127 = lean_ctor_get(x_45, 0); +x_128 = lean_ctor_get(x_45, 1); +lean_inc(x_128); +lean_inc(x_127); +lean_dec(x_45); +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; +} +} +} +else +{ +uint8_t x_130; +lean_dec(x_29); +lean_dec(x_26); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_1); +x_130 = !lean_is_exclusive(x_41); +if (x_130 == 0) +{ +return x_41; +} +else +{ +lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_131 = lean_ctor_get(x_41, 0); +x_132 = lean_ctor_get(x_41, 1); +lean_inc(x_132); +lean_inc(x_131); +lean_dec(x_41); +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_131); +lean_ctor_set(x_133, 1, x_132); +return x_133; +} +} +} +else +{ +uint8_t x_134; +lean_dec(x_13); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_134 = !lean_is_exclusive(x_16); +if (x_134 == 0) +{ +return x_16; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; +x_135 = lean_ctor_get(x_16, 0); +x_136 = lean_ctor_get(x_16, 1); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_16); +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_135); +lean_ctor_set(x_137, 1, x_136); +return x_137; +} +} +} +else +{ +uint8_t x_138; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_138 = !lean_is_exclusive(x_12); +if (x_138 == 0) +{ +return x_12; +} +else +{ +lean_object* x_139; lean_object* x_140; lean_object* x_141; +x_139 = lean_ctor_get(x_12, 0); +x_140 = lean_ctor_get(x_12, 1); +lean_inc(x_140); +lean_inc(x_139); +lean_dec(x_12); +x_141 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_141, 0, x_139); +lean_ctor_set(x_141, 1, x_140); +return x_141; +} +} +} +else +{ +uint8_t x_142; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_142 = !lean_is_exclusive(x_10); +if (x_142 == 0) +{ +return x_10; +} +else +{ +lean_object* x_143; lean_object* x_144; lean_object* x_145; +x_143 = lean_ctor_get(x_10, 0); +x_144 = lean_ctor_get(x_10, 1); +lean_inc(x_144); +lean_inc(x_143); +lean_dec(x_10); +x_145 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_145, 0, x_143); +lean_ctor_set(x_145, 1, x_144); +return x_145; +} +} +} +} +lean_object* l_Lean_Meta_caseValueAux(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; lean_object* x_11; +lean_inc(x_1); +x_8 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarTag___boxed), 3, 1); +lean_closure_set(x_8, 0, x_1); +lean_inc(x_1); +x_9 = lean_alloc_closure((void*)(l_Lean_Meta_caseValueAux___lambda__2___boxed), 8, 5); +lean_closure_set(x_9, 0, x_1); +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_5); +x_10 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_10, 0, x_8); +lean_closure_set(x_10, 1, x_9); +x_11 = l_Lean_Meta_getMVarDecl(x_1, x_6, x_7); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_12 = 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); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_12, 4); +lean_inc(x_15); +lean_dec(x_12); +x_16 = l_Lean_Meta_withLocalContext___rarg(x_14, x_15, x_10, x_6, x_13); +return x_16; +} +else +{ +uint8_t x_17; +lean_dec(x_10); +x_17 = !lean_is_exclusive(x_11); +if (x_17 == 0) +{ +return x_11; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_11, 0); +x_19 = lean_ctor_get(x_11, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_11); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +} +lean_object* l_Lean_Meta_caseValueAux___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_Meta_caseValueAux___lambda__1(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +return x_6; +} +} +lean_object* l_Lean_Meta_caseValueAux___lambda__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) { +_start: +{ +lean_object* x_9; +x_9 = l_Lean_Meta_caseValueAux___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +lean_dec(x_4); +return x_9; +} +} +lean_object* l_Lean_Meta_caseValueAux___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_Lean_Meta_caseValueAux(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_6); +return x_8; +} +} +lean_object* _init_l_Lean_Meta_caseValue___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("h"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValue___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValue___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseValue___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("thenBranch"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValue___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValue___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_caseValue___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("elseBranch"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_caseValue___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_caseValue___closed__5; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_caseValue(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_box(0); +x_7 = l_Lean_Meta_caseValue___closed__2; +x_8 = l_Lean_Meta_caseValueAux(x_1, x_2, x_3, x_7, x_6, x_4, x_5); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_ctor_get(x_9, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +lean_dec(x_11); +x_13 = lean_ctor_get(x_9, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +lean_dec(x_13); +x_15 = l_Lean_Meta_caseValue___closed__4; +x_16 = l_Lean_Meta_appendTagSuffix(x_12, x_15, x_4, x_10); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_16, 1); +lean_inc(x_17); +lean_dec(x_16); +x_18 = l_Lean_Meta_caseValue___closed__6; +x_19 = l_Lean_Meta_appendTagSuffix(x_14, x_18, x_4, x_17); +if (lean_obj_tag(x_19) == 0) +{ +uint8_t x_20; +x_20 = !lean_is_exclusive(x_19); +if (x_20 == 0) +{ +lean_object* x_21; +x_21 = lean_ctor_get(x_19, 0); +lean_dec(x_21); +lean_ctor_set(x_19, 0, x_9); +return x_19; +} +else +{ +lean_object* x_22; lean_object* x_23; +x_22 = lean_ctor_get(x_19, 1); +lean_inc(x_22); +lean_dec(x_19); +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_9); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +else +{ +uint8_t x_24; +lean_dec(x_9); +x_24 = !lean_is_exclusive(x_19); +if (x_24 == 0) +{ +return x_19; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_19, 0); +x_26 = lean_ctor_get(x_19, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_19); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; +} +} +} +else +{ +uint8_t x_28; +lean_dec(x_14); +lean_dec(x_9); +x_28 = !lean_is_exclusive(x_16); +if (x_28 == 0) +{ +return x_16; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_16, 0); +x_30 = lean_ctor_get(x_16, 1); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_16); +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 +{ +uint8_t x_32; +x_32 = !lean_is_exclusive(x_8); +if (x_32 == 0) +{ +return x_8; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_8, 0); +x_34 = lean_ctor_get(x_8, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_8); +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_object* l_Lean_Meta_caseValue___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_Meta_caseValue(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* _init_l_Lean_Meta_CaseValueSubgoals_inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = lean_box(0); +x_2 = lean_box(0); +x_3 = l_Array_empty___closed__1; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set(x_4, 2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Meta_CaseValueSubgoals_inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_CaseValueSubgoals_inhabited___closed__1; +return x_1; +} +} +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___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) { +_start: +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_array_get_size(x_3); +x_9 = lean_nat_dec_lt(x_4, x_8); +lean_dec(x_8); +if (x_9 == 0) +{ +lean_object* x_10; +lean_dec(x_4); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_5); +lean_ctor_set(x_10, 1, x_7); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_11 = lean_array_fget(x_3, x_4); +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_add(x_4, x_12); +lean_dec(x_4); +x_14 = lean_ctor_get(x_2, 2); +x_15 = l_Lean_Meta_FVarSubst_get(x_14, x_11); +if (lean_obj_tag(x_15) == 1) +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +lean_dec(x_15); +x_17 = l_Lean_Meta_tryClear(x_5, x_16, x_6, x_7); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; +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); +x_4 = x_13; +x_5 = x_18; +x_7 = x_19; +goto _start; +} +else +{ +uint8_t x_21; +lean_dec(x_13); +x_21 = !lean_is_exclusive(x_17); +if (x_21 == 0) +{ +return x_17; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_17, 0); +x_23 = lean_ctor_get(x_17, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_17); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +else +{ +lean_dec(x_15); +x_4 = x_13; +goto _start; +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("caseValues"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("list of values must not be empty"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__4; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("case"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__6; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___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, lean_object* x_9) { +_start: +{ +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_10 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__2; +x_11 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__5; +x_12 = lean_box(0); +x_13 = l_Lean_Meta_throwTacticEx___rarg(x_10, x_4, x_11, x_12, x_8, x_9); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_14 = lean_ctor_get(x_5, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_5, 1); +lean_inc(x_15); +lean_dec(x_5); +lean_inc(x_3); +lean_inc(x_1); +x_16 = l_Lean_Name_appendIndexAfter(x_1, x_3); +x_17 = lean_box(0); +lean_inc(x_2); +x_18 = l_Lean_Meta_caseValueAux(x_4, x_2, x_14, x_16, x_17, x_8, x_9); +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; lean_object* x_27; lean_object* x_28; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_19, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_18, 1); +lean_inc(x_21); +lean_dec(x_18); +x_22 = lean_ctor_get(x_19, 1); +lean_inc(x_22); +lean_dec(x_19); +x_23 = lean_ctor_get(x_20, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_20, 1); +lean_inc(x_24); +x_25 = lean_ctor_get(x_20, 2); +lean_inc(x_25); +x_26 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__7; +lean_inc(x_3); +x_27 = l_Lean_Name_appendIndexAfter(x_26, x_3); +lean_inc(x_23); +x_28 = l_Lean_Meta_appendTagSuffix(x_23, x_27, x_8, x_21); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_28, 1); +lean_inc(x_29); +lean_dec(x_28); +x_30 = lean_unsigned_to_nat(0u); +x_31 = l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___spec__1(x_6, x_20, x_6, x_30, x_23, x_8, x_29); +lean_dec(x_20); +if (lean_obj_tag(x_31) == 0) +{ +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_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_31, 1); +lean_inc(x_33); +lean_dec(x_31); +x_34 = l_Lean_mkOptionalNode___closed__2; +x_35 = lean_array_push(x_34, x_24); +x_36 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_36, 0, x_32); +lean_ctor_set(x_36, 1, x_35); +lean_ctor_set(x_36, 2, x_25); +x_37 = lean_array_push(x_7, x_36); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +lean_dec(x_2); +lean_dec(x_1); +x_38 = lean_ctor_get(x_22, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_22, 1); +lean_inc(x_39); +lean_dec(x_22); +x_40 = lean_unsigned_to_nat(1u); +x_41 = lean_nat_add(x_3, x_40); +lean_dec(x_3); +x_42 = l_Lean_Name_appendIndexAfter(x_26, x_41); +x_43 = lean_array_push(x_6, x_39); +lean_inc(x_38); +x_44 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_44, 0, x_38); +lean_ctor_set(x_44, 1, x_43); +lean_ctor_set(x_44, 2, x_17); +x_45 = lean_array_push(x_37, x_44); +x_46 = l_Lean_Meta_appendTagSuffix(x_38, x_42, x_8, x_33); +if (lean_obj_tag(x_46) == 0) +{ +uint8_t x_47; +x_47 = !lean_is_exclusive(x_46); +if (x_47 == 0) +{ +lean_object* x_48; +x_48 = lean_ctor_get(x_46, 0); +lean_dec(x_48); +lean_ctor_set(x_46, 0, x_45); +return x_46; +} +else +{ +lean_object* x_49; lean_object* x_50; +x_49 = lean_ctor_get(x_46, 1); +lean_inc(x_49); +lean_dec(x_46); +x_50 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_50, 0, x_45); +lean_ctor_set(x_50, 1, x_49); +return x_50; +} +} +else +{ +uint8_t x_51; +lean_dec(x_45); +x_51 = !lean_is_exclusive(x_46); +if (x_51 == 0) +{ +return x_46; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_46, 0); +x_53 = lean_ctor_get(x_46, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_46); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_55 = lean_unsigned_to_nat(1u); +x_56 = lean_nat_add(x_3, x_55); +lean_dec(x_3); +x_57 = lean_ctor_get(x_22, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_22, 1); +lean_inc(x_58); +lean_dec(x_22); +x_59 = lean_array_push(x_6, x_58); +x_3 = x_56; +x_4 = x_57; +x_5 = x_15; +x_6 = x_59; +x_7 = x_37; +x_9 = x_33; +goto _start; +} +} +else +{ +uint8_t x_61; +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_22); +lean_dec(x_15); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_61 = !lean_is_exclusive(x_31); +if (x_61 == 0) +{ +return x_31; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_62 = lean_ctor_get(x_31, 0); +x_63 = lean_ctor_get(x_31, 1); +lean_inc(x_63); +lean_inc(x_62); +lean_dec(x_31); +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_62); +lean_ctor_set(x_64, 1, x_63); +return x_64; +} +} +} +else +{ +uint8_t x_65; +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_22); +lean_dec(x_20); +lean_dec(x_15); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_65 = !lean_is_exclusive(x_28); +if (x_65 == 0) +{ +return x_28; +} +else +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_66 = lean_ctor_get(x_28, 0); +x_67 = lean_ctor_get(x_28, 1); +lean_inc(x_67); +lean_inc(x_66); +lean_dec(x_28); +x_68 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_67); +return x_68; +} +} +} +else +{ +uint8_t x_69; +lean_dec(x_15); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_69 = !lean_is_exclusive(x_18); +if (x_69 == 0) +{ +return x_18; +} +else +{ +lean_object* x_70; lean_object* x_71; lean_object* x_72; +x_70 = lean_ctor_get(x_18, 0); +x_71 = lean_ctor_get(x_18, 1); +lean_inc(x_71); +lean_inc(x_70); +lean_dec(x_18); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_70); +lean_ctor_set(x_72, 1, x_71); +return x_72; +} +} +} +} +} +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___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) { +_start: +{ +lean_object* x_8; +x_8 = l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_8; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___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_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_8); +return x_10; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux(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_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +return x_10; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___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_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_8); +return x_10; +} +} +lean_object* l_Lean_Meta_caseValues(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = l_Array_toList___rarg(x_3); +x_8 = lean_unsigned_to_nat(1u); +x_9 = l_Array_empty___closed__1; +x_10 = l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main(x_4, x_2, x_8, x_1, x_7, x_9, x_9, x_5, x_6); +return x_10; +} +} +lean_object* l_Lean_Meta_caseValues___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_Meta_caseValues(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_3); +return x_7; +} +} +lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Meta_Tactic_Subst(lean_object*); +lean_object* initialize_Lean_Meta_Tactic_Clear(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Lean_Meta_EqnCompiler_CaseValues(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_Tactic_Subst(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_Tactic_Clear(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Meta_CaseValueSubgoal_inhabited___closed__1 = _init_l_Lean_Meta_CaseValueSubgoal_inhabited___closed__1(); +lean_mark_persistent(l_Lean_Meta_CaseValueSubgoal_inhabited___closed__1); +l_Lean_Meta_CaseValueSubgoal_inhabited = _init_l_Lean_Meta_CaseValueSubgoal_inhabited(); +lean_mark_persistent(l_Lean_Meta_CaseValueSubgoal_inhabited); +l_Lean_Meta_caseValueAux___lambda__1___closed__1 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__1); +l_Lean_Meta_caseValueAux___lambda__1___closed__2 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__2); +l_Lean_Meta_caseValueAux___lambda__1___closed__3 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__3); +l_Lean_Meta_caseValueAux___lambda__1___closed__4 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__4); +l_Lean_Meta_caseValueAux___lambda__1___closed__5 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__5); +l_Lean_Meta_caseValueAux___lambda__1___closed__6 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__6); +l_Lean_Meta_caseValueAux___lambda__1___closed__7 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__7(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__7); +l_Lean_Meta_caseValueAux___lambda__1___closed__8 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__8(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__8); +l_Lean_Meta_caseValueAux___lambda__1___closed__9 = _init_l_Lean_Meta_caseValueAux___lambda__1___closed__9(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__1___closed__9); +l_Lean_Meta_caseValueAux___lambda__2___closed__1 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__1(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__1); +l_Lean_Meta_caseValueAux___lambda__2___closed__2 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__2(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__2); +l_Lean_Meta_caseValueAux___lambda__2___closed__3 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__3(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__3); +l_Lean_Meta_caseValueAux___lambda__2___closed__4 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__4(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__4); +l_Lean_Meta_caseValueAux___lambda__2___closed__5 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__5(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__5); +l_Lean_Meta_caseValueAux___lambda__2___closed__6 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__6(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__6); +l_Lean_Meta_caseValueAux___lambda__2___closed__7 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__7(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__7); +l_Lean_Meta_caseValueAux___lambda__2___closed__8 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__8(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__8); +l_Lean_Meta_caseValueAux___lambda__2___closed__9 = _init_l_Lean_Meta_caseValueAux___lambda__2___closed__9(); +lean_mark_persistent(l_Lean_Meta_caseValueAux___lambda__2___closed__9); +l_Lean_Meta_caseValue___closed__1 = _init_l_Lean_Meta_caseValue___closed__1(); +lean_mark_persistent(l_Lean_Meta_caseValue___closed__1); +l_Lean_Meta_caseValue___closed__2 = _init_l_Lean_Meta_caseValue___closed__2(); +lean_mark_persistent(l_Lean_Meta_caseValue___closed__2); +l_Lean_Meta_caseValue___closed__3 = _init_l_Lean_Meta_caseValue___closed__3(); +lean_mark_persistent(l_Lean_Meta_caseValue___closed__3); +l_Lean_Meta_caseValue___closed__4 = _init_l_Lean_Meta_caseValue___closed__4(); +lean_mark_persistent(l_Lean_Meta_caseValue___closed__4); +l_Lean_Meta_caseValue___closed__5 = _init_l_Lean_Meta_caseValue___closed__5(); +lean_mark_persistent(l_Lean_Meta_caseValue___closed__5); +l_Lean_Meta_caseValue___closed__6 = _init_l_Lean_Meta_caseValue___closed__6(); +lean_mark_persistent(l_Lean_Meta_caseValue___closed__6); +l_Lean_Meta_CaseValueSubgoals_inhabited___closed__1 = _init_l_Lean_Meta_CaseValueSubgoals_inhabited___closed__1(); +lean_mark_persistent(l_Lean_Meta_CaseValueSubgoals_inhabited___closed__1); +l_Lean_Meta_CaseValueSubgoals_inhabited = _init_l_Lean_Meta_CaseValueSubgoals_inhabited(); +lean_mark_persistent(l_Lean_Meta_CaseValueSubgoals_inhabited); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__1); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__2); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__3); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__4); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__5 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__5(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__5); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__6 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__6(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__6); +l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__7 = _init_l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__7(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_CaseValues_1__caseValuesAux___main___closed__7); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Lean/Meta/EqnCompiler/DepElim.c b/stage0/stdlib/Lean/Meta/EqnCompiler/DepElim.c new file mode 100644 index 0000000000..f4fd7ee8a0 --- /dev/null +++ b/stage0/stdlib/Lean/Meta/EqnCompiler/DepElim.c @@ -0,0 +1,21169 @@ +// Lean compiler output +// Module: Lean.Meta.EqnCompiler.DepElim +// Imports: Init Lean.Util.CollectLevelParams Lean.Meta.Check Lean.Meta.Tactic.Cases Lean.Meta.GeneralizeTelescope Lean.Meta.EqnCompiler.MVarRenaming Lean.Meta.EqnCompiler.CaseValues Lean.Meta.EqnCompiler.CaseArraySizes +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_List_reverse___rarg(lean_object*); +lean_object* l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__3; +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition(lean_object*); +extern lean_object* l_Lean_mkHole___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux(lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11; +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__3(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Closure_mkNewLevelParam___closed__2; +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1; +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__5; +lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__4(lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Lean_Meta_ExprDefEq_8__checkTypesAndAssign___closed__7; +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__6(lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* lean_mk_empty_array_with_capacity(lean_object*); +lean_object* l_Lean_mkSort(lean_object*); +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__5(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__8; +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___boxed(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Alt_applyFVarSubst(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__4; +lean_object* l_unreachable_x21___rarg(lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_toMessageData___main___closed__2; +lean_object* l___private_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_counterExampleToMessageData(lean_object*); +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1(uint8_t, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__6___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_toMessageData___main___closed__3; +lean_object* l_List_foldlM___main___at_Lean_Meta_DepElim_getUnusedLevelParam___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_MessageData_ofList___closed__3; +lean_object* lean_array_uget(lean_object*, size_t); +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___spec__1(uint8_t, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__2; +extern lean_object* l_Lean_Meta_withIncRecDepth___rarg___closed__3; +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___spec__1(lean_object*, lean_object*); +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___closed__2; +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__1; +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkForall(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__4; +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__9(lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__4; +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___spec__1___boxed(lean_object*, lean_object*); +lean_object* lean_array_uset(lean_object*, size_t, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__8; +lean_object* l_Lean_Meta_DepElim_Alt_copy(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_ref___rarg(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__1; +lean_object* l_Std_HashSetImp_moveEntries___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__3(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__2; +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(lean_object*, lean_object*); +lean_object* lean_metavar_ctx_get_expr_assignment(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_37__mkElimSort(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__1; +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkMVar(lean_object*); +extern lean_object* l_Array_empty___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___spec__1___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__6; +lean_object* l_Lean_Meta_withExistingLocalDecls___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_environment_find(lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3(lean_object*, lean_object*); +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__5___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main(uint8_t, lean_object*); +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__9; +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__12; +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_examplesToMessageData(lean_object*); +lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_append___rarg(lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7(lean_object*, lean_object*); +lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1___boxed(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main___closed__1; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__4; +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__3; +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues___spec__1(lean_object*, lean_object*); +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__6(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Std_HashSetImp_insert___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__2; +extern lean_object* l_Lean_unitToExpr___lambda__1___closed__5; +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2___boxed(lean_object*, lean_object*); +extern lean_object* l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1(lean_object*, lean_object*); +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Meta_getEnv___boxed(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1(uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_withGoalOf___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_MessageData_ofList(lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition(lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_9__mkThunk(lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___boxed(lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_apply(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppFn___main(lean_object*); +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___spec__1___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__1; +extern lean_object* l_Lean_Expr_getAppArgs___closed__1; +lean_object* l_Std_mkHashSetImp___rarg(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues(lean_object*); +uint8_t l_Array_contains___at_Lean_Meta_CheckAssignment_check___main___spec__2(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__11(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_LocalContext_contains(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_ref___rarg___boxed(lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr(uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__2; +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___closed__3; +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__1; +lean_object* l_Lean_Meta_mkAuxDefinition(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__2; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2(uint8_t, lean_object*); +uint8_t l_List_elem___main___at_Lean_Occurrences_contains___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_8__localDeclsToMVars(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__5; +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_7__localDeclsToMVarsAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); +uint8_t lean_metavar_ctx_is_expr_assigned(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__10; +lean_object* l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Meta_MVarRenaming_isEmpty(lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(lean_object*, lean_object*); +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Alt_Inhabited; +uint8_t l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_3__copyMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_CollectLevelParams_State_getUnusedLevelParam(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(lean_object*, lean_object*); +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__12___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_Inhabited___closed__1; +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__5; +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam___closed__1; +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_sub(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__1(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___boxed(lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars___main___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__1; +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__2(lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_getArrayArgType(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_apply(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_Inhabited___boxed(lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__5; +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__4; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_12__isDone___boxed(lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst___main(lean_object*, lean_object*); +lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__7; +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar___boxed(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_caseValue___closed__2; +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_arrayHasFormat___rarg___closed__1; +lean_object* l_Lean_Expr_fvarId_x21(lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElim___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_unitToExpr___closed__1; +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__9; +lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__1; +lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3; +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__3; +lean_object* l_Lean_Meta_DepElim_Problem_Inhabited___closed__1; +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2; +lean_object* l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_MessageData_coeOfArrayExpr___closed__2; +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__12(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_tracer___closed__3; +lean_object* l_Std_HashSetImp_expand___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__2(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkArrayLit(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId___main___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_toMessageData___main___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__3; +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__6(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition(lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__1; +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___main___boxed(lean_object*, lean_object*); +lean_object* l_Std_mkHashSet___at_Lean_Meta_DepElim_mkElimCore___spec__2(lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__2; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_assignGoalOf___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__2(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3; +uint8_t l_Std_AssocList_isEmpty___rarg(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__4; +lean_object* l_Lean_Meta_DepElim_Example_varsToUnderscore(lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___boxed(lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5; +lean_object* l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5___boxed(lean_object*, lean_object*, lean_object*); +size_t lean_usize_modn(size_t, lean_object*); +extern lean_object* l_List_map___main___at_Lean_Meta_DiscrTree_Trie_format___main___spec__2___rarg___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__2; +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__2(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___spec__1(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__5; +lean_object* l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Array_isEmpty___rarg(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4(lean_object*, lean_object*); +lean_object* l_Lean_LocalDecl_toExpr(lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__4; +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern(lean_object*); +lean_object* l_List_redLength___main___rarg(lean_object*); +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_isForall(lean_object*); +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1(lean_object*, uint8_t, lean_object*); +lean_object* l_Lean_Meta_DepElim_Problem_Inhabited; +lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__1; +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__8; +lean_object* l_Lean_mkFVar(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__5; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__7; +size_t lean_usize_of_nat(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___boxed(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +lean_object* l_Lean_MessageData_joinSep___main(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___boxed(lean_object*); +lean_object* l_Nat_foldAux___main___at_Lean_Meta_DepElim_mkElimCore___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__2; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__1; +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__8; +lean_object* l_Lean_LocalDecl_fvarId(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__9; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__1; +lean_object* l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1___boxed(lean_object*, lean_object*); +uint8_t l_Std_AssocList_any___main___rarg(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__2; +lean_object* l_Lean_Meta_DepElim_Alt_copyCore(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Std_HashSet_Inhabited___closed__1; +lean_object* l_List_join___main___rarg(lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__11; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_7__localDeclsToMVarsAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_forallMetaTelescopeReducing(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___boxed(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__2; +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst___boxed(lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElim(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_counterExamplesToMessageData(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4___boxed(lean_object*, lean_object*); +lean_object* l_Lean_LocalDecl_type(lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +lean_object* l_Lean_Meta_FVarSubst_get(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__2; +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__6; +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_mkElimCore___spec__1(lean_object*); +lean_object* l_Lean_Meta_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_Cases_cases(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Nat_foldAux___main___at_Lean_Meta_DepElim_mkElimCore___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_find_x21(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_withGoalOf___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_counterExamplesToMessageData___spec__1(lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__1; +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData(uint8_t, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor___boxed(lean_object*, lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(lean_object*, lean_object*); +uint8_t lean_expr_eqv(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6; +lean_object* l_Lean_Meta_DepElim_Pattern_ref(uint8_t); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___closed__4; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Std_HashSetImp_contains___at_Lean_Meta_DepElim_mkElimCore___spec__3___boxed(lean_object*, lean_object*); +uint8_t lean_nat_dec_le(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_insert(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__1; +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_admit(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__3; +extern lean_object* l_Lean_Format_paren___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars(lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar___boxed(lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_varsToUnderscore___main(lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_examplesToMessageData___spec__1(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___closed__1; +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___boxed(lean_object*); +uint8_t l_Array_contains___at___private_Lean_Meta_FunInfo_3__collectDepsAux___main___spec__2(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(lean_object*, lean_object*); +lean_object* lean_nat_mul(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_caseValues(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkForall(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___boxed(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Std_HashSetImp_contains___at_Lean_Meta_DepElim_mkElimCore___spec__3(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__2; +lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__1(uint8_t, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assignExprMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(lean_object*); +lean_object* l_Lean_Meta_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3___boxed(lean_object*, lean_object*); +lean_object* l_Array_toList___rarg(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Position_lt___closed__1; +lean_object* lean_mk_array(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_Inhabited(uint8_t); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__6; +extern lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; +lean_object* l_Lean_Meta_DepElim_assignGoalOf(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2(uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(lean_object*, lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition(lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_toMessageData___main(lean_object*); +lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_12__isDone(lean_object*); +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main(lean_object*); +extern lean_object* l_Lean_mkOptionalNode___closed__2; +extern lean_object* l_Lean_Format_paren___closed__3; +lean_object* l_Lean_Meta_setInlineAttribute(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2; +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__2; +extern lean_object* l_Lean_Meta_isClassQuick___main___closed__1; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes(lean_object*); +lean_object* l_Lean_Meta_DepElim_withGoalOf(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__10(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__9; +lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*); +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Nat_Inhabited; +extern lean_object* l_Lean_Meta_CaseValueSubgoals_inhabited; +lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*); +uint8_t l_List_isEmpty___rarg(lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Alt_Inhabited___closed__1; +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern(lean_object*, lean_object*); +lean_object* l_beqOfEq___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__7; +lean_object* l_Lean_indentExpr(lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__3; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__2; +lean_object* l_Lean_Meta_DepElim_mkElimCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__1; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__3; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__2(lean_object*); +lean_object* l_Lean_mkConst(lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__1(lean_object*); +extern lean_object* l_Lean_MessageData_Inhabited___closed__1; +lean_object* l_Lean_Meta_caseArraySizes(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__10; +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___boxed(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4___boxed(lean_object*, lean_object*); +lean_object* l_Lean_CollectLevelParams_main___main(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_38__regTraceClasses(lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__3; +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr___main(uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_37__mkElimSort___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__4(lean_object*, lean_object*); +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1(uint8_t, lean_object*); +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive(lean_object*); +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalizeTelescope___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Example_toMessageData(lean_object*); +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__4___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__7; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__2(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_ref___boxed(lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__3; +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected(lean_object*); +lean_object* l_Lean_Meta_DepElim_Pattern_Inhabited(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_box(0); +x_3 = l_Lean_Expr_Inhabited___closed__1; +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_Inhabited___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Meta_DepElim_Pattern_Inhabited(x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_ref___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_ref(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_Pattern_ref___rarg___boxed), 1, 0); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_ref___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Meta_DepElim_Pattern_ref___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_ref___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Meta_DepElim_Pattern_ref(x_2); +return x_3; +} +} +lean_object* l_List_foldl___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__1(uint8_t x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +return x_2; +} +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; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); +lean_dec(x_3); +x_6 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; +x_7 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_7, 0, x_2); +lean_ctor_set(x_7, 1, x_6); +x_8 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_1, x_4); +x_9 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_9, 0, x_7); +lean_ctor_set(x_9, 1, x_8); +x_2 = x_9; +x_3 = x_5; +goto _start; +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2(uint8_t x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2(x_1, x_10); +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* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(".("); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Pattern_toMessageData___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_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Pattern_toMessageData___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_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_paren___closed__3; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_paren___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_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("val!("); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__6; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__7; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__9() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("@"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__9; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__10; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main(uint8_t x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_3 = lean_ctor_get(x_2, 1); +lean_inc(x_3); +lean_dec(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +x_5 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__3; +x_6 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_4); +x_7 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +x_8 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_8, 0, x_6); +lean_ctor_set(x_8, 1, x_7); +return x_8; +} +case 1: +{ +if (x_1 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_2, 1); +lean_inc(x_9); +lean_dec(x_2); +x_10 = l_Lean_mkFVar(x_9); +x_11 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_11, 0, x_10); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_2, 1); +lean_inc(x_12); +lean_dec(x_2); +x_13 = l_Lean_mkMVar(x_12); +x_14 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_14, 0, x_13); +return x_14; +} +} +case 2: +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_2, 4); +lean_inc(x_15); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_ctor_get(x_2, 1); +lean_inc(x_16); +lean_dec(x_2); +x_17 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_17, 0, x_16); +return x_17; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_18 = lean_ctor_get(x_2, 1); +lean_inc(x_18); +lean_dec(x_2); +x_19 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_19, 0, x_18); +x_20 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5; +x_21 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_19); +x_22 = l_Lean_MessageData_Inhabited___closed__1; +x_23 = l_List_foldl___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__1(x_1, x_22, x_15); +x_24 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_24, 0, x_21); +lean_ctor_set(x_24, 1, x_23); +x_25 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +x_26 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +case 3: +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_27 = lean_ctor_get(x_2, 1); +lean_inc(x_27); +lean_dec(x_2); +x_28 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_28, 0, x_27); +x_29 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__8; +x_30 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_28); +x_31 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +x_32 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_32, 0, x_30); +lean_ctor_set(x_32, 1, x_31); +return x_32; +} +case 4: +{ +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_33 = lean_ctor_get(x_2, 2); +lean_inc(x_33); +lean_dec(x_2); +x_34 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2(x_1, x_33); +x_35 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; +x_36 = l_Lean_MessageData_joinSep___main(x_34, x_35); +lean_dec(x_34); +x_37 = l_Lean_MessageData_coeOfArrayExpr___closed__2; +x_38 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +x_39 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__1; +x_40 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; +} +default: +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_2, 1); +lean_inc(x_41); +x_42 = lean_ctor_get(x_2, 2); +lean_inc(x_42); +lean_dec(x_2); +x_43 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_1, x_42); +if (x_1 == 0) +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_44 = l_Lean_mkFVar(x_41); +x_45 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_45, 0, x_44); +x_46 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11; +x_47 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_47, 0, x_45); +lean_ctor_set(x_47, 1, x_46); +x_48 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_43); +return x_48; +} +else +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_49 = l_Lean_mkMVar(x_41); +x_50 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_50, 0, x_49); +x_51 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11; +x_52 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set(x_52, 1, x_51); +x_53 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_43); +return x_53; +} +} +} +} +} +lean_object* l_List_foldl___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; lean_object* x_5; +x_4 = lean_unbox(x_1); +lean_dec(x_1); +x_5 = l_List_foldl___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__1(x_4, x_2, x_3); +return x_5; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___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_map___main___at_Lean_Meta_DepElim_Pattern_toMessageData___main___spec__2(x_3, x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___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_Lean_Meta_DepElim_Pattern_toMessageData___main(x_3, x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData(uint8_t x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___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_Lean_Meta_DepElim_Pattern_toMessageData(x_3, x_2); +return x_4; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_2); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_2, 0); +x_9 = lean_ctor_get(x_2, 1); +lean_inc(x_3); +x_10 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1(x_1, x_9, x_3, x_12); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_13, 0); +lean_ctor_set(x_2, 1, x_15); +lean_ctor_set(x_2, 0, x_11); +lean_ctor_set(x_13, 0, x_2); +return x_13; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_13, 0); +x_17 = lean_ctor_get(x_13, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_13); +lean_ctor_set(x_2, 1, x_16); +lean_ctor_set(x_2, 0, x_11); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +else +{ +uint8_t x_19; +lean_dec(x_11); +lean_free_object(x_2); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; +} +} +} +else +{ +uint8_t x_23; +lean_free_object(x_2); +lean_dec(x_9); +lean_dec(x_3); +x_23 = !lean_is_exclusive(x_10); +if (x_23 == 0) +{ +return x_10; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_10, 0); +x_25 = lean_ctor_get(x_10, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_10); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_2, 0); +x_28 = lean_ctor_get(x_2, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_2); +lean_inc(x_3); +x_29 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_1, x_27, x_3, x_4); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1(x_1, x_28, x_3, x_31); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_35 = x_32; +} else { + lean_dec_ref(x_32); + x_35 = lean_box(0); +} +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_33); +if (lean_is_scalar(x_35)) { + x_37 = lean_alloc_ctor(0, 2, 0); +} else { + x_37 = x_35; +} +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_38 = lean_ctor_get(x_32, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_32, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_40 = x_32; +} else { + lean_dec_ref(x_32); + x_40 = lean_box(0); +} +if (lean_is_scalar(x_40)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_40; +} +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +return x_41; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_28); +lean_dec(x_3); +x_42 = lean_ctor_get(x_29, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_29, 1); +lean_inc(x_43); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + lean_ctor_release(x_29, 1); + x_44 = x_29; +} else { + lean_dec_ref(x_29); + x_44 = lean_box(0); +} +if (lean_is_scalar(x_44)) { + x_45 = lean_alloc_ctor(1, 2, 0); +} else { + x_45 = x_44; +} +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_43); +return x_45; +} +} +} +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_2); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_2, 0); +x_9 = lean_ctor_get(x_2, 1); +lean_inc(x_3); +x_10 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2(x_1, x_9, x_3, x_12); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_13, 0); +lean_ctor_set(x_2, 1, x_15); +lean_ctor_set(x_2, 0, x_11); +lean_ctor_set(x_13, 0, x_2); +return x_13; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_13, 0); +x_17 = lean_ctor_get(x_13, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_13); +lean_ctor_set(x_2, 1, x_16); +lean_ctor_set(x_2, 0, x_11); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +else +{ +uint8_t x_19; +lean_dec(x_11); +lean_free_object(x_2); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; +} +} +} +else +{ +uint8_t x_23; +lean_free_object(x_2); +lean_dec(x_9); +lean_dec(x_3); +x_23 = !lean_is_exclusive(x_10); +if (x_23 == 0) +{ +return x_10; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_10, 0); +x_25 = lean_ctor_get(x_10, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_10); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_2, 0); +x_28 = lean_ctor_get(x_2, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_2); +lean_inc(x_3); +x_29 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_1, x_27, x_3, x_4); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2(x_1, x_28, x_3, x_31); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_35 = x_32; +} else { + lean_dec_ref(x_32); + x_35 = lean_box(0); +} +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_33); +if (lean_is_scalar(x_35)) { + x_37 = lean_alloc_ctor(0, 2, 0); +} else { + x_37 = x_35; +} +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_38 = lean_ctor_get(x_32, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_32, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_40 = x_32; +} else { + lean_dec_ref(x_32); + x_40 = lean_box(0); +} +if (lean_is_scalar(x_40)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_40; +} +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +return x_41; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_28); +lean_dec(x_3); +x_42 = lean_ctor_get(x_29, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_29, 1); +lean_inc(x_43); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + lean_ctor_release(x_29, 1); + x_44 = x_29; +} else { + lean_dec_ref(x_29); + x_44 = lean_box(0); +} +if (lean_is_scalar(x_44)) { + x_45 = lean_alloc_ctor(1, 2, 0); +} else { + x_45 = x_44; +} +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_43); +return x_45; +} +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr___main(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 1: +{ +lean_dec(x_3); +if (x_1 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_ctor_get(x_2, 1); +lean_inc(x_5); +lean_dec(x_2); +x_6 = l_Lean_mkFVar(x_5); +x_7 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_4); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +lean_dec(x_2); +x_9 = l_Lean_mkMVar(x_8); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_4); +return x_10; +} +} +case 2: +{ +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_2, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_2, 2); +lean_inc(x_12); +x_13 = lean_ctor_get(x_2, 3); +lean_inc(x_13); +x_14 = lean_ctor_get(x_2, 4); +lean_inc(x_14); +lean_dec(x_2); +x_15 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1(x_1, x_14, x_3, x_4); +if (lean_obj_tag(x_15) == 0) +{ +uint8_t x_16; +x_16 = !lean_is_exclusive(x_15); +if (x_16 == 0) +{ +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_17 = lean_ctor_get(x_15, 0); +x_18 = l_Lean_mkConst(x_11, x_12); +x_19 = l_List_append___rarg(x_13, x_17); +x_20 = l_List_redLength___main___rarg(x_19); +x_21 = lean_mk_empty_array_with_capacity(x_20); +lean_dec(x_20); +x_22 = l_List_toArrayAux___main___rarg(x_19, x_21); +x_23 = lean_unsigned_to_nat(0u); +x_24 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_22, x_22, x_23, x_18); +lean_dec(x_22); +lean_ctor_set(x_15, 0, x_24); +return x_15; +} +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; +x_25 = lean_ctor_get(x_15, 0); +x_26 = lean_ctor_get(x_15, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_15); +x_27 = l_Lean_mkConst(x_11, x_12); +x_28 = l_List_append___rarg(x_13, x_25); +x_29 = l_List_redLength___main___rarg(x_28); +x_30 = lean_mk_empty_array_with_capacity(x_29); +lean_dec(x_29); +x_31 = l_List_toArrayAux___main___rarg(x_28, x_30); +x_32 = lean_unsigned_to_nat(0u); +x_33 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_31, x_31, x_32, x_27); +lean_dec(x_31); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_26); +return x_34; +} +} +else +{ +uint8_t x_35; +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_11); +x_35 = !lean_is_exclusive(x_15); +if (x_35 == 0) +{ +return x_15; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_15, 0); +x_37 = lean_ctor_get(x_15, 1); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_15); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +return x_38; +} +} +} +case 4: +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_39 = lean_ctor_get(x_2, 1); +lean_inc(x_39); +x_40 = lean_ctor_get(x_2, 2); +lean_inc(x_40); +lean_dec(x_2); +lean_inc(x_3); +x_41 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2(x_1, x_40, x_3, x_4); +if (lean_obj_tag(x_41) == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_41, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_41, 1); +lean_inc(x_43); +lean_dec(x_41); +x_44 = l_Lean_Meta_mkArrayLit(x_39, x_42, x_3, x_43); +return x_44; +} +else +{ +uint8_t x_45; +lean_dec(x_39); +lean_dec(x_3); +x_45 = !lean_is_exclusive(x_41); +if (x_45 == 0) +{ +return x_41; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_41, 0); +x_47 = lean_ctor_get(x_41, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_41); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_46); +lean_ctor_set(x_48, 1, x_47); +return x_48; +} +} +} +case 5: +{ +lean_object* x_49; +x_49 = lean_ctor_get(x_2, 2); +lean_inc(x_49); +lean_dec(x_2); +x_2 = x_49; +goto _start; +} +default: +{ +lean_object* x_51; lean_object* x_52; +lean_dec(x_3); +x_51 = lean_ctor_get(x_2, 1); +lean_inc(x_51); +lean_dec(x_2); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_4); +return x_52; +} +} +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___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 = lean_unbox(x_1); +lean_dec(x_1); +x_6 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__1(x_5, x_2, x_3, x_4); +return x_6; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_1); +lean_dec(x_1); +x_6 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_toExpr___main___spec__2(x_5, x_2, x_3, x_4); +return x_6; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_1); +lean_dec(x_1); +x_6 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_5, x_2, x_3, x_4); +return x_6; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toExpr___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_1); +lean_dec(x_1); +x_6 = l_Lean_Meta_DepElim_Pattern_toExpr(x_5, x_2, x_3, x_4); +return x_6; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_FVarSubst_apply(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_FVarSubst_apply(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(x_1, x_10); +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* l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_2, 1); +x_5 = l_Lean_Meta_FVarSubst_apply(x_1, x_4); +lean_ctor_set(x_2, 1, x_5); +return x_2; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_2); +x_8 = l_Lean_Meta_FVarSubst_apply(x_1, x_7); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +return x_9; +} +} +case 1: +{ +return x_2; +} +case 2: +{ +uint8_t x_10; +x_10 = !lean_is_exclusive(x_2); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_11 = lean_ctor_get(x_2, 3); +x_12 = lean_ctor_get(x_2, 4); +x_13 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(x_1, x_11); +x_14 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(x_1, x_12); +lean_ctor_set(x_2, 4, x_14); +lean_ctor_set(x_2, 3, x_13); +return x_2; +} +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_22; +x_15 = lean_ctor_get(x_2, 0); +x_16 = lean_ctor_get(x_2, 1); +x_17 = lean_ctor_get(x_2, 2); +x_18 = lean_ctor_get(x_2, 3); +x_19 = lean_ctor_get(x_2, 4); +lean_inc(x_19); +lean_inc(x_18); +lean_inc(x_17); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_2); +x_20 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(x_1, x_18); +x_21 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(x_1, x_19); +x_22 = lean_alloc_ctor(2, 5, 0); +lean_ctor_set(x_22, 0, x_15); +lean_ctor_set(x_22, 1, x_16); +lean_ctor_set(x_22, 2, x_17); +lean_ctor_set(x_22, 3, x_20); +lean_ctor_set(x_22, 4, x_21); +return x_22; +} +} +case 3: +{ +uint8_t x_23; +x_23 = !lean_is_exclusive(x_2); +if (x_23 == 0) +{ +lean_object* x_24; lean_object* x_25; +x_24 = lean_ctor_get(x_2, 1); +x_25 = l_Lean_Meta_FVarSubst_apply(x_1, x_24); +lean_ctor_set(x_2, 1, x_25); +return x_2; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_26 = lean_ctor_get(x_2, 0); +x_27 = lean_ctor_get(x_2, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_2); +x_28 = l_Lean_Meta_FVarSubst_apply(x_1, x_27); +x_29 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_29, 0, x_26); +lean_ctor_set(x_29, 1, x_28); +return x_29; +} +} +case 4: +{ +uint8_t x_30; +x_30 = !lean_is_exclusive(x_2); +if (x_30 == 0) +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_31 = lean_ctor_get(x_2, 1); +x_32 = lean_ctor_get(x_2, 2); +x_33 = l_Lean_Meta_FVarSubst_apply(x_1, x_31); +x_34 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(x_1, x_32); +lean_ctor_set(x_2, 2, x_34); +lean_ctor_set(x_2, 1, x_33); +return x_2; +} +else +{ +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_35 = lean_ctor_get(x_2, 0); +x_36 = lean_ctor_get(x_2, 1); +x_37 = lean_ctor_get(x_2, 2); +lean_inc(x_37); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_2); +x_38 = l_Lean_Meta_FVarSubst_apply(x_1, x_36); +x_39 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(x_1, x_37); +x_40 = lean_alloc_ctor(4, 3, 0); +lean_ctor_set(x_40, 0, x_35); +lean_ctor_set(x_40, 1, x_38); +lean_ctor_set(x_40, 2, x_39); +return x_40; +} +} +default: +{ +uint8_t x_41; +x_41 = !lean_is_exclusive(x_2); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; +x_42 = lean_ctor_get(x_2, 2); +x_43 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_42); +lean_ctor_set(x_2, 2, x_43); +return x_2; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_44 = lean_ctor_get(x_2, 0); +x_45 = lean_ctor_get(x_2, 1); +x_46 = lean_ctor_get(x_2, 2); +lean_inc(x_46); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_2); +x_47 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_46); +x_48 = lean_alloc_ctor(5, 3, 0); +lean_ctor_set(x_48, 0, x_44); +lean_ctor_set(x_48, 1, x_45); +lean_ctor_set(x_48, 2, x_47); +return x_48; +} +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___spec__3(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_applyFVarSubst___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +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; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l_Lean_Meta_instantiateMVars(x_7, x_2, x_3); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(x_8, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_18 = lean_ctor_get(x_1, 0); +x_19 = lean_ctor_get(x_1, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_1); +x_20 = l_Lean_Meta_instantiateMVars(x_18, x_2, x_3); +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_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(x_19, x_2, x_22); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_26 = x_23; +} else { + lean_dec_ref(x_23); + x_26 = lean_box(0); +} +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_21); +lean_ctor_set(x_27, 1, x_24); +if (lean_is_scalar(x_26)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_26; +} +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_25); +return x_28; +} +} +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +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; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_7, x_2, x_3); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_8, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_18 = lean_ctor_get(x_1, 0); +x_19 = lean_ctor_get(x_1, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_1); +x_20 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_18, x_2, x_3); +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_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_19, x_2, x_22); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_26 = x_23; +} else { + lean_dec_ref(x_23); + x_26 = lean_box(0); +} +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_21); +lean_ctor_set(x_27, 1, x_24); +if (lean_is_scalar(x_26)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_26; +} +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_25); +return x_28; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Meta_instantiateMVars(x_5, x_2, x_3); +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; +x_8 = lean_ctor_get(x_6, 0); +lean_ctor_set(x_1, 1, x_8); +lean_ctor_set(x_6, 0, x_1); +return x_6; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_6, 0); +x_10 = lean_ctor_get(x_6, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_6); +lean_ctor_set(x_1, 1, x_9); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_1); +lean_ctor_set(x_11, 1, x_10); +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; +x_12 = lean_ctor_get(x_1, 0); +x_13 = lean_ctor_get(x_1, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_1); +x_14 = l_Lean_Meta_instantiateMVars(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); +if (lean_is_exclusive(x_14)) { + lean_ctor_release(x_14, 0); + lean_ctor_release(x_14, 1); + x_17 = x_14; +} else { + lean_dec_ref(x_14); + x_17 = lean_box(0); +} +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_12); +lean_ctor_set(x_18, 1, x_15); +if (lean_is_scalar(x_17)) { + x_19 = lean_alloc_ctor(0, 2, 0); +} else { + x_19 = x_17; +} +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_16); +return x_19; +} +} +case 1: +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = lean_ctor_get(x_1, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_1, 1); +lean_inc(x_21); +x_22 = lean_ctor_get(x_3, 1); +lean_inc(x_22); +x_23 = lean_metavar_ctx_get_expr_assignment(x_22, x_21); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_24; +lean_dec(x_20); +x_24 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_24, 0, x_1); +lean_ctor_set(x_24, 1, x_3); +return x_24; +} +else +{ +uint8_t x_25; +x_25 = !lean_is_exclusive(x_1); +if (x_25 == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_26 = lean_ctor_get(x_1, 1); +lean_dec(x_26); +x_27 = lean_ctor_get(x_1, 0); +lean_dec(x_27); +x_28 = lean_ctor_get(x_23, 0); +lean_inc(x_28); +lean_dec(x_23); +x_29 = l_Lean_Meta_instantiateMVars(x_28, x_2, x_3); +x_30 = !lean_is_exclusive(x_29); +if (x_30 == 0) +{ +lean_object* x_31; +x_31 = lean_ctor_get(x_29, 0); +lean_ctor_set_tag(x_1, 0); +lean_ctor_set(x_1, 1, x_31); +lean_ctor_set(x_29, 0, x_1); +return x_29; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_29, 0); +x_33 = lean_ctor_get(x_29, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_29); +lean_ctor_set_tag(x_1, 0); +lean_ctor_set(x_1, 1, x_32); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_1); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +else +{ +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_dec(x_1); +x_35 = lean_ctor_get(x_23, 0); +lean_inc(x_35); +lean_dec(x_23); +x_36 = l_Lean_Meta_instantiateMVars(x_35, x_2, x_3); +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +x_38 = lean_ctor_get(x_36, 1); +lean_inc(x_38); +if (lean_is_exclusive(x_36)) { + lean_ctor_release(x_36, 0); + lean_ctor_release(x_36, 1); + x_39 = x_36; +} else { + lean_dec_ref(x_36); + x_39 = lean_box(0); +} +x_40 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_40, 0, x_20); +lean_ctor_set(x_40, 1, x_37); +if (lean_is_scalar(x_39)) { + x_41 = lean_alloc_ctor(0, 2, 0); +} else { + x_41 = x_39; +} +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_38); +return x_41; +} +} +} +case 2: +{ +uint8_t x_42; +x_42 = !lean_is_exclusive(x_1); +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; uint8_t x_49; +x_43 = lean_ctor_get(x_1, 3); +x_44 = lean_ctor_get(x_1, 4); +x_45 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(x_43, x_2, x_3); +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +x_48 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_44, x_2, x_47); +x_49 = !lean_is_exclusive(x_48); +if (x_49 == 0) +{ +lean_object* x_50; +x_50 = lean_ctor_get(x_48, 0); +lean_ctor_set(x_1, 4, x_50); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_48, 0, x_1); +return x_48; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_48, 0); +x_52 = lean_ctor_get(x_48, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_48); +lean_ctor_set(x_1, 4, x_51); +lean_ctor_set(x_1, 3, x_46); +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_1); +lean_ctor_set(x_53, 1, x_52); +return x_53; +} +} +else +{ +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_54 = lean_ctor_get(x_1, 0); +x_55 = lean_ctor_get(x_1, 1); +x_56 = lean_ctor_get(x_1, 2); +x_57 = lean_ctor_get(x_1, 3); +x_58 = lean_ctor_get(x_1, 4); +lean_inc(x_58); +lean_inc(x_57); +lean_inc(x_56); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_1); +x_59 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(x_57, x_2, x_3); +x_60 = lean_ctor_get(x_59, 0); +lean_inc(x_60); +x_61 = lean_ctor_get(x_59, 1); +lean_inc(x_61); +lean_dec(x_59); +x_62 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_58, x_2, x_61); +x_63 = lean_ctor_get(x_62, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +if (lean_is_exclusive(x_62)) { + lean_ctor_release(x_62, 0); + lean_ctor_release(x_62, 1); + x_65 = x_62; +} else { + lean_dec_ref(x_62); + x_65 = lean_box(0); +} +x_66 = lean_alloc_ctor(2, 5, 0); +lean_ctor_set(x_66, 0, x_54); +lean_ctor_set(x_66, 1, x_55); +lean_ctor_set(x_66, 2, x_56); +lean_ctor_set(x_66, 3, x_60); +lean_ctor_set(x_66, 4, x_63); +if (lean_is_scalar(x_65)) { + x_67 = lean_alloc_ctor(0, 2, 0); +} else { + x_67 = x_65; +} +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_64); +return x_67; +} +} +case 3: +{ +uint8_t x_68; +x_68 = !lean_is_exclusive(x_1); +if (x_68 == 0) +{ +lean_object* x_69; lean_object* x_70; uint8_t x_71; +x_69 = lean_ctor_get(x_1, 1); +x_70 = l_Lean_Meta_instantiateMVars(x_69, x_2, x_3); +x_71 = !lean_is_exclusive(x_70); +if (x_71 == 0) +{ +lean_object* x_72; +x_72 = lean_ctor_get(x_70, 0); +lean_ctor_set(x_1, 1, x_72); +lean_ctor_set(x_70, 0, x_1); +return x_70; +} +else +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_70, 0); +x_74 = lean_ctor_get(x_70, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_70); +lean_ctor_set(x_1, 1, x_73); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_1); +lean_ctor_set(x_75, 1, x_74); +return x_75; +} +} +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; +x_76 = lean_ctor_get(x_1, 0); +x_77 = lean_ctor_get(x_1, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_1); +x_78 = l_Lean_Meta_instantiateMVars(x_77, x_2, 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); +if (lean_is_exclusive(x_78)) { + lean_ctor_release(x_78, 0); + lean_ctor_release(x_78, 1); + x_81 = x_78; +} else { + lean_dec_ref(x_78); + x_81 = lean_box(0); +} +x_82 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_82, 0, x_76); +lean_ctor_set(x_82, 1, x_79); +if (lean_is_scalar(x_81)) { + x_83 = lean_alloc_ctor(0, 2, 0); +} else { + x_83 = x_81; +} +lean_ctor_set(x_83, 0, x_82); +lean_ctor_set(x_83, 1, x_80); +return x_83; +} +} +case 4: +{ +uint8_t x_84; +x_84 = !lean_is_exclusive(x_1); +if (x_84 == 0) +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint8_t x_91; +x_85 = lean_ctor_get(x_1, 1); +x_86 = lean_ctor_get(x_1, 2); +x_87 = l_Lean_Meta_instantiateMVars(x_85, x_2, x_3); +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_90 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_86, x_2, x_89); +x_91 = !lean_is_exclusive(x_90); +if (x_91 == 0) +{ +lean_object* x_92; +x_92 = lean_ctor_get(x_90, 0); +lean_ctor_set(x_1, 2, x_92); +lean_ctor_set(x_1, 1, x_88); +lean_ctor_set(x_90, 0, x_1); +return x_90; +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_93 = lean_ctor_get(x_90, 0); +x_94 = lean_ctor_get(x_90, 1); +lean_inc(x_94); +lean_inc(x_93); +lean_dec(x_90); +lean_ctor_set(x_1, 2, x_93); +lean_ctor_set(x_1, 1, x_88); +x_95 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_95, 0, x_1); +lean_ctor_set(x_95, 1, x_94); +return x_95; +} +} +else +{ +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; +x_96 = lean_ctor_get(x_1, 0); +x_97 = lean_ctor_get(x_1, 1); +x_98 = lean_ctor_get(x_1, 2); +lean_inc(x_98); +lean_inc(x_97); +lean_inc(x_96); +lean_dec(x_1); +x_99 = l_Lean_Meta_instantiateMVars(x_97, x_2, x_3); +x_100 = lean_ctor_get(x_99, 0); +lean_inc(x_100); +x_101 = lean_ctor_get(x_99, 1); +lean_inc(x_101); +lean_dec(x_99); +x_102 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_98, x_2, x_101); +x_103 = lean_ctor_get(x_102, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_102, 1); +lean_inc(x_104); +if (lean_is_exclusive(x_102)) { + lean_ctor_release(x_102, 0); + lean_ctor_release(x_102, 1); + x_105 = x_102; +} else { + lean_dec_ref(x_102); + x_105 = lean_box(0); +} +x_106 = lean_alloc_ctor(4, 3, 0); +lean_ctor_set(x_106, 0, x_96); +lean_ctor_set(x_106, 1, x_100); +lean_ctor_set(x_106, 2, x_103); +if (lean_is_scalar(x_105)) { + x_107 = lean_alloc_ctor(0, 2, 0); +} else { + x_107 = x_105; +} +lean_ctor_set(x_107, 0, x_106); +lean_ctor_set(x_107, 1, x_104); +return x_107; +} +} +default: +{ +uint8_t x_108; +x_108 = !lean_is_exclusive(x_1); +if (x_108 == 0) +{ +lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +x_109 = lean_ctor_get(x_1, 0); +x_110 = lean_ctor_get(x_1, 1); +x_111 = lean_ctor_get(x_1, 2); +x_112 = lean_ctor_get(x_3, 1); +lean_inc(x_112); +lean_inc(x_110); +x_113 = lean_metavar_ctx_get_expr_assignment(x_112, x_110); +if (lean_obj_tag(x_113) == 0) +{ +lean_object* x_114; uint8_t x_115; +x_114 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_111, x_2, x_3); +x_115 = !lean_is_exclusive(x_114); +if (x_115 == 0) +{ +lean_object* x_116; +x_116 = lean_ctor_get(x_114, 0); +lean_ctor_set(x_1, 2, x_116); +lean_ctor_set(x_114, 0, x_1); +return x_114; +} +else +{ +lean_object* x_117; lean_object* x_118; lean_object* x_119; +x_117 = lean_ctor_get(x_114, 0); +x_118 = lean_ctor_get(x_114, 1); +lean_inc(x_118); +lean_inc(x_117); +lean_dec(x_114); +lean_ctor_set(x_1, 2, x_117); +x_119 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_119, 0, x_1); +lean_ctor_set(x_119, 1, x_118); +return x_119; +} +} +else +{ +lean_dec(x_113); +lean_free_object(x_1); +lean_dec(x_110); +lean_dec(x_109); +x_1 = x_111; +goto _start; +} +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_121 = lean_ctor_get(x_1, 0); +x_122 = lean_ctor_get(x_1, 1); +x_123 = lean_ctor_get(x_1, 2); +lean_inc(x_123); +lean_inc(x_122); +lean_inc(x_121); +lean_dec(x_1); +x_124 = lean_ctor_get(x_3, 1); +lean_inc(x_124); +lean_inc(x_122); +x_125 = lean_metavar_ctx_get_expr_assignment(x_124, x_122); +if (lean_obj_tag(x_125) == 0) +{ +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_126 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_123, x_2, x_3); +x_127 = lean_ctor_get(x_126, 0); +lean_inc(x_127); +x_128 = lean_ctor_get(x_126, 1); +lean_inc(x_128); +if (lean_is_exclusive(x_126)) { + lean_ctor_release(x_126, 0); + lean_ctor_release(x_126, 1); + x_129 = x_126; +} else { + lean_dec_ref(x_126); + x_129 = lean_box(0); +} +x_130 = lean_alloc_ctor(5, 3, 0); +lean_ctor_set(x_130, 0, x_121); +lean_ctor_set(x_130, 1, x_122); +lean_ctor_set(x_130, 2, x_127); +if (lean_is_scalar(x_129)) { + x_131 = lean_alloc_ctor(0, 2, 0); +} else { + x_131 = x_129; +} +lean_ctor_set(x_131, 0, x_130); +lean_ctor_set(x_131, 1, x_128); +return x_131; +} +else +{ +lean_dec(x_125); +lean_dec(x_122); +lean_dec(x_121); +x_1 = x_123; +goto _start; +} +} +} +} +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at_Lean_Meta_DepElim_Pattern_instantiateMVars___main___spec__2(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_instantiateMVars___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Pattern_instantiateMVars(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_MVarRenaming_apply(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_MVarRenaming_apply(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(x_1, x_10); +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* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_2, 1); +x_5 = l_Lean_Meta_MVarRenaming_apply(x_1, x_4); +lean_ctor_set(x_2, 1, x_5); +return x_2; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_2); +x_8 = l_Lean_Meta_MVarRenaming_apply(x_1, x_7); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +return x_9; +} +} +case 1: +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_2, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_2, 1); +lean_inc(x_11); +x_12 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_11); +lean_dec(x_11); +if (lean_obj_tag(x_12) == 0) +{ +lean_dec(x_10); +return x_2; +} +else +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_2); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_2, 1); +lean_dec(x_14); +x_15 = lean_ctor_get(x_2, 0); +lean_dec(x_15); +x_16 = lean_ctor_get(x_12, 0); +lean_inc(x_16); +lean_dec(x_12); +lean_ctor_set(x_2, 1, x_16); +return x_2; +} +else +{ +lean_object* x_17; lean_object* x_18; +lean_dec(x_2); +x_17 = lean_ctor_get(x_12, 0); +lean_inc(x_17); +lean_dec(x_12); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_10); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +} +case 2: +{ +uint8_t x_19; +x_19 = !lean_is_exclusive(x_2); +if (x_19 == 0) +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = lean_ctor_get(x_2, 3); +x_21 = lean_ctor_get(x_2, 4); +x_22 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(x_1, x_20); +x_23 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(x_1, x_21); +lean_ctor_set(x_2, 4, x_23); +lean_ctor_set(x_2, 3, x_22); +return x_2; +} +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; +x_24 = lean_ctor_get(x_2, 0); +x_25 = lean_ctor_get(x_2, 1); +x_26 = lean_ctor_get(x_2, 2); +x_27 = lean_ctor_get(x_2, 3); +x_28 = lean_ctor_get(x_2, 4); +lean_inc(x_28); +lean_inc(x_27); +lean_inc(x_26); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_2); +x_29 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(x_1, x_27); +x_30 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(x_1, x_28); +x_31 = lean_alloc_ctor(2, 5, 0); +lean_ctor_set(x_31, 0, x_24); +lean_ctor_set(x_31, 1, x_25); +lean_ctor_set(x_31, 2, x_26); +lean_ctor_set(x_31, 3, x_29); +lean_ctor_set(x_31, 4, x_30); +return x_31; +} +} +case 3: +{ +uint8_t x_32; +x_32 = !lean_is_exclusive(x_2); +if (x_32 == 0) +{ +lean_object* x_33; lean_object* x_34; +x_33 = lean_ctor_get(x_2, 1); +x_34 = l_Lean_Meta_MVarRenaming_apply(x_1, x_33); +lean_ctor_set(x_2, 1, x_34); +return x_2; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_35 = lean_ctor_get(x_2, 0); +x_36 = lean_ctor_get(x_2, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_2); +x_37 = l_Lean_Meta_MVarRenaming_apply(x_1, x_36); +x_38 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_38, 0, x_35); +lean_ctor_set(x_38, 1, x_37); +return x_38; +} +} +case 4: +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_2); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_40 = lean_ctor_get(x_2, 1); +x_41 = lean_ctor_get(x_2, 2); +x_42 = l_Lean_Meta_MVarRenaming_apply(x_1, x_40); +x_43 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(x_1, x_41); +lean_ctor_set(x_2, 2, x_43); +lean_ctor_set(x_2, 1, x_42); +return x_2; +} +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; +x_44 = lean_ctor_get(x_2, 0); +x_45 = lean_ctor_get(x_2, 1); +x_46 = lean_ctor_get(x_2, 2); +lean_inc(x_46); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_2); +x_47 = l_Lean_Meta_MVarRenaming_apply(x_1, x_45); +x_48 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(x_1, x_46); +x_49 = lean_alloc_ctor(4, 3, 0); +lean_ctor_set(x_49, 0, x_44); +lean_ctor_set(x_49, 1, x_47); +lean_ctor_set(x_49, 2, x_48); +return x_49; +} +} +default: +{ +uint8_t x_50; +x_50 = !lean_is_exclusive(x_2); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_2, 1); +x_52 = lean_ctor_get(x_2, 2); +x_53 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_51); +if (lean_obj_tag(x_53) == 0) +{ +lean_object* x_54; +x_54 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_52); +lean_ctor_set(x_2, 2, x_54); +return x_2; +} +else +{ +lean_object* x_55; lean_object* x_56; +lean_dec(x_51); +x_55 = lean_ctor_get(x_53, 0); +lean_inc(x_55); +lean_dec(x_53); +x_56 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_52); +lean_ctor_set(x_2, 2, x_56); +lean_ctor_set(x_2, 1, x_55); +return x_2; +} +} +else +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_57 = lean_ctor_get(x_2, 0); +x_58 = lean_ctor_get(x_2, 1); +x_59 = lean_ctor_get(x_2, 2); +lean_inc(x_59); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_2); +x_60 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_58); +if (lean_obj_tag(x_60) == 0) +{ +lean_object* x_61; lean_object* x_62; +x_61 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_59); +x_62 = lean_alloc_ctor(5, 3, 0); +lean_ctor_set(x_62, 0, x_57); +lean_ctor_set(x_62, 1, x_58); +lean_ctor_set(x_62, 2, x_61); +return x_62; +} +else +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; +lean_dec(x_58); +x_63 = lean_ctor_get(x_60, 0); +lean_inc(x_63); +lean_dec(x_60); +x_64 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_59); +x_65 = lean_alloc_ctor(5, 3, 0); +lean_ctor_set(x_65, 0, x_57); +lean_ctor_set(x_65, 1, x_63); +lean_ctor_set(x_65, 2, x_64); +return x_65; +} +} +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___spec__3(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_FVarSubst_apply(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_FVarSubst_apply(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(x_1, x_10); +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* _init_l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1() { +_start: +{ +uint8_t x_1; lean_object* x_2; +x_1 = 1; +x_2 = l_Lean_Meta_DepElim_Pattern_Inhabited(x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_2, 1); +x_5 = l_Lean_Meta_FVarSubst_apply(x_1, x_4); +lean_ctor_set(x_2, 1, x_5); +return x_2; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_2); +x_8 = l_Lean_Meta_FVarSubst_apply(x_1, x_7); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +return x_9; +} +} +case 1: +{ +uint8_t x_10; +x_10 = !lean_is_exclusive(x_2); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_2, 0); +x_12 = lean_ctor_get(x_2, 1); +x_13 = l_Lean_Meta_FVarSubst_get(x_1, x_12); +if (lean_obj_tag(x_13) == 2) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +lean_dec(x_13); +lean_ctor_set(x_2, 1, x_14); +return x_2; +} +else +{ +lean_object* x_15; lean_object* x_16; +lean_dec(x_13); +lean_free_object(x_2); +lean_dec(x_11); +x_15 = l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1; +x_16 = l_unreachable_x21___rarg(x_15); +return x_16; +} +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_2, 0); +x_18 = lean_ctor_get(x_2, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_2); +x_19 = l_Lean_Meta_FVarSubst_get(x_1, x_18); +if (lean_obj_tag(x_19) == 2) +{ +lean_object* x_20; lean_object* x_21; +x_20 = lean_ctor_get(x_19, 0); +lean_inc(x_20); +lean_dec(x_19); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_17); +lean_ctor_set(x_21, 1, x_20); +return x_21; +} +else +{ +lean_object* x_22; lean_object* x_23; +lean_dec(x_19); +lean_dec(x_17); +x_22 = l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1; +x_23 = l_unreachable_x21___rarg(x_22); +return x_23; +} +} +} +case 2: +{ +uint8_t x_24; +x_24 = !lean_is_exclusive(x_2); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_25 = lean_ctor_get(x_2, 3); +x_26 = lean_ctor_get(x_2, 4); +x_27 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(x_1, x_25); +x_28 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(x_1, x_26); +lean_ctor_set(x_2, 4, x_28); +lean_ctor_set(x_2, 3, x_27); +return x_2; +} +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; +x_29 = lean_ctor_get(x_2, 0); +x_30 = lean_ctor_get(x_2, 1); +x_31 = lean_ctor_get(x_2, 2); +x_32 = lean_ctor_get(x_2, 3); +x_33 = lean_ctor_get(x_2, 4); +lean_inc(x_33); +lean_inc(x_32); +lean_inc(x_31); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_2); +x_34 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(x_1, x_32); +x_35 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(x_1, x_33); +x_36 = lean_alloc_ctor(2, 5, 0); +lean_ctor_set(x_36, 0, x_29); +lean_ctor_set(x_36, 1, x_30); +lean_ctor_set(x_36, 2, x_31); +lean_ctor_set(x_36, 3, x_34); +lean_ctor_set(x_36, 4, x_35); +return x_36; +} +} +case 3: +{ +uint8_t x_37; +x_37 = !lean_is_exclusive(x_2); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; +x_38 = lean_ctor_get(x_2, 1); +x_39 = l_Lean_Meta_FVarSubst_apply(x_1, x_38); +lean_ctor_set(x_2, 1, x_39); +return x_2; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_40 = lean_ctor_get(x_2, 0); +x_41 = lean_ctor_get(x_2, 1); +lean_inc(x_41); +lean_inc(x_40); +lean_dec(x_2); +x_42 = l_Lean_Meta_FVarSubst_apply(x_1, x_41); +x_43 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_43, 0, x_40); +lean_ctor_set(x_43, 1, x_42); +return x_43; +} +} +case 4: +{ +uint8_t x_44; +x_44 = !lean_is_exclusive(x_2); +if (x_44 == 0) +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_45 = lean_ctor_get(x_2, 1); +x_46 = lean_ctor_get(x_2, 2); +x_47 = l_Lean_Meta_FVarSubst_apply(x_1, x_45); +x_48 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(x_1, x_46); +lean_ctor_set(x_2, 2, x_48); +lean_ctor_set(x_2, 1, x_47); +return x_2; +} +else +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_49 = lean_ctor_get(x_2, 0); +x_50 = lean_ctor_get(x_2, 1); +x_51 = lean_ctor_get(x_2, 2); +lean_inc(x_51); +lean_inc(x_50); +lean_inc(x_49); +lean_dec(x_2); +x_52 = l_Lean_Meta_FVarSubst_apply(x_1, x_50); +x_53 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(x_1, x_51); +x_54 = lean_alloc_ctor(4, 3, 0); +lean_ctor_set(x_54, 0, x_49); +lean_ctor_set(x_54, 1, x_52); +lean_ctor_set(x_54, 2, x_53); +return x_54; +} +} +default: +{ +uint8_t x_55; +x_55 = !lean_is_exclusive(x_2); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_56 = lean_ctor_get(x_2, 0); +x_57 = lean_ctor_get(x_2, 1); +x_58 = lean_ctor_get(x_2, 2); +x_59 = l_Lean_Meta_FVarSubst_get(x_1, x_57); +if (lean_obj_tag(x_59) == 2) +{ +lean_object* x_60; lean_object* x_61; +x_60 = lean_ctor_get(x_59, 0); +lean_inc(x_60); +lean_dec(x_59); +x_61 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_58); +lean_ctor_set(x_2, 2, x_61); +lean_ctor_set(x_2, 1, x_60); +return x_2; +} +else +{ +lean_object* x_62; lean_object* x_63; +lean_dec(x_59); +lean_free_object(x_2); +lean_dec(x_58); +lean_dec(x_56); +x_62 = l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1; +x_63 = l_unreachable_x21___rarg(x_62); +return x_63; +} +} +else +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_64 = lean_ctor_get(x_2, 0); +x_65 = lean_ctor_get(x_2, 1); +x_66 = lean_ctor_get(x_2, 2); +lean_inc(x_66); +lean_inc(x_65); +lean_inc(x_64); +lean_dec(x_2); +x_67 = l_Lean_Meta_FVarSubst_get(x_1, x_65); +if (lean_obj_tag(x_67) == 2) +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_68 = lean_ctor_get(x_67, 0); +lean_inc(x_68); +lean_dec(x_67); +x_69 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_66); +x_70 = lean_alloc_ctor(5, 3, 0); +lean_ctor_set(x_70, 0, x_64); +lean_ctor_set(x_70, 1, x_68); +lean_ctor_set(x_70, 2, x_69); +return x_70; +} +else +{ +lean_object* x_71; lean_object* x_72; +lean_dec(x_67); +lean_dec(x_66); +lean_dec(x_64); +x_71 = l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1; +x_72 = l_unreachable_x21___rarg(x_71); +return x_72; +} +} +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Pattern_toIPattern___main___spec__3(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Pattern_toIPattern___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Pattern_toIPattern(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Alt_Inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = lean_box(0); +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Expr_Inhabited___closed__1; +x_4 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set(x_4, 2, x_1); +lean_ctor_set(x_4, 3, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Alt_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_DepElim_Alt_Inhabited___closed__1; +return x_1; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_mkMVar(x_4); +x_7 = l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_mkMVar(x_8); +x_11 = l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__2(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = 1; +x_7 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_6, x_4); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__2(x_5); +lean_ctor_set(x_1, 1, x_8); +lean_ctor_set(x_1, 0, x_7); +return x_1; +} +else +{ +lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_1); +x_11 = 1; +x_12 = l_Lean_Meta_DepElim_Pattern_toMessageData___main(x_11, x_9); +x_13 = l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__2(x_10); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_Alt_toMessageData___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(" |- "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Alt_toMessageData___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Alt_toMessageData___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_Meta_DepElim_Alt_toMessageData___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Alt_toMessageData___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_Lean_Meta_DepElim_Alt_toMessageData___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_map___main___at_Lean_Meta_DiscrTree_Trie_format___main___spec__2___rarg___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData(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; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_4 = lean_ctor_get(x_1, 2); +lean_inc(x_4); +x_5 = l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__1(x_4); +x_6 = l_List_map___main___at_Lean_MessageData_coeOfListExpr___spec__1(x_5); +x_7 = l_Lean_MessageData_ofList(x_6); +lean_dec(x_6); +x_8 = l_Lean_Meta_DepElim_Alt_toMessageData___closed__3; +x_9 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_9, 0, x_7); +lean_ctor_set(x_9, 1, x_8); +x_10 = lean_ctor_get(x_1, 3); +lean_inc(x_10); +x_11 = l_List_map___main___at_Lean_Meta_DepElim_Alt_toMessageData___spec__2(x_10); +x_12 = l_Lean_MessageData_ofList(x_11); +lean_dec(x_11); +x_13 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_13, 0, x_9); +lean_ctor_set(x_13, 1, x_12); +x_14 = l_Lean_Meta_DepElim_Alt_toMessageData___closed__4; +x_15 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +x_16 = lean_ctor_get(x_1, 1); +lean_inc(x_16); +lean_dec(x_1); +x_17 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_17, 0, x_16); +x_18 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set(x_18, 1, x_17); +x_19 = l_Lean_Meta_addContext(x_18, x_2, x_3); +return x_19; +} +} +lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Alt_toMessageData(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = l_Lean_LocalContext_contains(x_1, x_2); +return x_4; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar(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_85; +x_85 = l_Std_AssocList_isEmpty___rarg(x_1); +if (x_85 == 0) +{ +lean_object* x_86; +x_86 = lean_box(0); +x_6 = x_86; +goto block_84; +} +else +{ +uint8_t x_87; +x_87 = l_Lean_Meta_MVarRenaming_isEmpty(x_2); +if (x_87 == 0) +{ +lean_object* x_88; +x_88 = lean_box(0); +x_6 = x_88; +goto block_84; +} +else +{ +lean_object* x_89; lean_object* x_90; +lean_dec(x_4); +lean_dec(x_1); +x_89 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_89, 0, x_2); +lean_ctor_set(x_89, 1, x_3); +x_90 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_90, 0, x_89); +lean_ctor_set(x_90, 1, x_5); +return x_90; +} +} +block_84: +{ +lean_object* x_7; +lean_dec(x_6); +lean_inc(x_3); +x_7 = l_Lean_Meta_getMVarDecl(x_3, x_4, x_5); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 2); +lean_inc(x_10); +x_11 = l_Lean_Meta_instantiateMVars(x_10, x_4, x_9); +x_12 = !lean_is_exclusive(x_11); +if (x_12 == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; +x_13 = lean_ctor_get(x_11, 0); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +x_15 = l_Lean_Meta_FVarSubst_apply(x_1, x_13); +x_16 = l_Lean_Meta_MVarRenaming_apply(x_2, x_15); +x_17 = lean_ctor_get(x_8, 1); +lean_inc(x_17); +lean_dec(x_8); +x_18 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1___boxed), 3, 1); +lean_closure_set(x_18, 0, x_17); +x_19 = l_Std_AssocList_any___main___rarg(x_18, x_1); +if (x_19 == 0) +{ +uint8_t x_20; +x_20 = lean_expr_eqv(x_16, x_13); +lean_dec(x_13); +if (x_20 == 0) +{ +lean_object* x_21; uint8_t x_22; lean_object* x_23; uint8_t x_24; +lean_free_object(x_11); +x_21 = lean_box(0); +x_22 = 0; +x_23 = l_Lean_Meta_mkFreshExprMVar(x_16, x_21, x_22, x_4, x_14); +x_24 = !lean_is_exclusive(x_23); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_25 = lean_ctor_get(x_23, 0); +x_26 = l_Lean_Expr_mvarId_x21(x_25); +lean_dec(x_25); +lean_inc(x_26); +x_27 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_2, x_3, x_26); +x_28 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +lean_ctor_set(x_23, 0, x_28); +return x_23; +} +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; +x_29 = lean_ctor_get(x_23, 0); +x_30 = lean_ctor_get(x_23, 1); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_23); +x_31 = l_Lean_Expr_mvarId_x21(x_29); +lean_dec(x_29); +lean_inc(x_31); +x_32 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_2, x_3, x_31); +x_33 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_31); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_30); +return x_34; +} +} +else +{ +lean_object* x_35; +lean_dec(x_16); +lean_dec(x_4); +x_35 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_35, 0, x_2); +lean_ctor_set(x_35, 1, x_3); +lean_ctor_set(x_11, 0, x_35); +return x_11; +} +} +else +{ +lean_object* x_36; uint8_t x_37; lean_object* x_38; uint8_t x_39; +lean_free_object(x_11); +lean_dec(x_13); +x_36 = lean_box(0); +x_37 = 0; +x_38 = l_Lean_Meta_mkFreshExprMVar(x_16, x_36, x_37, x_4, x_14); +x_39 = !lean_is_exclusive(x_38); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_40 = lean_ctor_get(x_38, 0); +x_41 = l_Lean_Expr_mvarId_x21(x_40); +lean_dec(x_40); +lean_inc(x_41); +x_42 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_2, x_3, x_41); +x_43 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_41); +lean_ctor_set(x_38, 0, x_43); +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; +x_44 = lean_ctor_get(x_38, 0); +x_45 = lean_ctor_get(x_38, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_38); +x_46 = l_Lean_Expr_mvarId_x21(x_44); +lean_dec(x_44); +lean_inc(x_46); +x_47 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_2, x_3, 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_46); +x_49 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_45); +return x_49; +} +} +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; uint8_t x_56; +x_50 = lean_ctor_get(x_11, 0); +x_51 = lean_ctor_get(x_11, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_11); +lean_inc(x_50); +x_52 = l_Lean_Meta_FVarSubst_apply(x_1, x_50); +x_53 = l_Lean_Meta_MVarRenaming_apply(x_2, x_52); +x_54 = lean_ctor_get(x_8, 1); +lean_inc(x_54); +lean_dec(x_8); +x_55 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1___boxed), 3, 1); +lean_closure_set(x_55, 0, x_54); +x_56 = l_Std_AssocList_any___main___rarg(x_55, x_1); +if (x_56 == 0) +{ +uint8_t x_57; +x_57 = lean_expr_eqv(x_53, x_50); +lean_dec(x_50); +if (x_57 == 0) +{ +lean_object* x_58; uint8_t 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_58 = lean_box(0); +x_59 = 0; +x_60 = l_Lean_Meta_mkFreshExprMVar(x_53, x_58, x_59, x_4, x_51); +x_61 = lean_ctor_get(x_60, 0); +lean_inc(x_61); +x_62 = lean_ctor_get(x_60, 1); +lean_inc(x_62); +if (lean_is_exclusive(x_60)) { + lean_ctor_release(x_60, 0); + lean_ctor_release(x_60, 1); + x_63 = x_60; +} else { + lean_dec_ref(x_60); + x_63 = lean_box(0); +} +x_64 = l_Lean_Expr_mvarId_x21(x_61); +lean_dec(x_61); +lean_inc(x_64); +x_65 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_2, x_3, x_64); +x_66 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +if (lean_is_scalar(x_63)) { + x_67 = lean_alloc_ctor(0, 2, 0); +} else { + x_67 = x_63; +} +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_62); +return x_67; +} +else +{ +lean_object* x_68; lean_object* x_69; +lean_dec(x_53); +lean_dec(x_4); +x_68 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_68, 0, x_2); +lean_ctor_set(x_68, 1, x_3); +x_69 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_51); +return x_69; +} +} +else +{ +lean_object* x_70; uint8_t 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_dec(x_50); +x_70 = lean_box(0); +x_71 = 0; +x_72 = l_Lean_Meta_mkFreshExprMVar(x_53, x_70, x_71, x_4, x_51); +x_73 = lean_ctor_get(x_72, 0); +lean_inc(x_73); +x_74 = lean_ctor_get(x_72, 1); +lean_inc(x_74); +if (lean_is_exclusive(x_72)) { + lean_ctor_release(x_72, 0); + lean_ctor_release(x_72, 1); + x_75 = x_72; +} else { + lean_dec_ref(x_72); + x_75 = lean_box(0); +} +x_76 = l_Lean_Expr_mvarId_x21(x_73); +lean_dec(x_73); +lean_inc(x_76); +x_77 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_2, x_3, x_76); +x_78 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +if (lean_is_scalar(x_75)) { + x_79 = lean_alloc_ctor(0, 2, 0); +} else { + x_79 = x_75; +} +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_74); +return x_79; +} +} +} +else +{ +uint8_t x_80; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_80 = !lean_is_exclusive(x_7); +if (x_80 == 0) +{ +return x_7; +} +else +{ +lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_7, 0); +x_82 = lean_ctor_get(x_7, 1); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_7); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +return x_83; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; lean_object* x_5; +x_4 = l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar___lambda__1(x_1, x_2, x_3); +lean_dec(x_3); +lean_dec(x_2); +x_5 = lean_box(x_4); +return x_5; +} +} +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_6; +lean_dec(x_4); +lean_dec(x_1); +x_6 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_6, 0, x_2); +lean_ctor_set(x_6, 1, x_5); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_3); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_3, 0); +x_9 = lean_ctor_get(x_3, 1); +x_10 = lean_ctor_get(x_2, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_2, 1); +lean_inc(x_11); +lean_dec(x_2); +lean_inc(x_4); +lean_inc(x_8); +lean_inc(x_1); +x_12 = l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar(x_1, x_10, x_8, x_4, x_5); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = !lean_is_exclusive(x_13); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; uint8_t x_18; +x_16 = lean_ctor_get(x_13, 0); +x_17 = lean_ctor_get(x_13, 1); +x_18 = lean_name_eq(x_8, x_17); +lean_inc(x_17); +lean_ctor_set(x_3, 1, x_11); +lean_ctor_set(x_3, 0, x_17); +if (x_18 == 0) +{ +lean_object* x_19; +x_19 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_16, x_8, x_17); +lean_ctor_set(x_13, 1, x_3); +lean_ctor_set(x_13, 0, x_19); +x_2 = x_13; +x_3 = x_9; +x_5 = x_14; +goto _start; +} +else +{ +lean_dec(x_17); +lean_dec(x_8); +lean_ctor_set(x_13, 1, x_3); +x_2 = x_13; +x_3 = x_9; +x_5 = x_14; +goto _start; +} +} +else +{ +lean_object* x_22; lean_object* x_23; uint8_t x_24; +x_22 = lean_ctor_get(x_13, 0); +x_23 = lean_ctor_get(x_13, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_13); +x_24 = lean_name_eq(x_8, x_23); +lean_inc(x_23); +lean_ctor_set(x_3, 1, x_11); +lean_ctor_set(x_3, 0, x_23); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; +x_25 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_22, x_8, x_23); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_3); +x_2 = x_26; +x_3 = x_9; +x_5 = x_14; +goto _start; +} +else +{ +lean_object* x_28; +lean_dec(x_23); +lean_dec(x_8); +x_28 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_28, 0, x_22); +lean_ctor_set(x_28, 1, x_3); +x_2 = x_28; +x_3 = x_9; +x_5 = x_14; +goto _start; +} +} +} +else +{ +uint8_t x_30; +lean_dec(x_11); +lean_free_object(x_3); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_1); +x_30 = !lean_is_exclusive(x_12); +if (x_30 == 0) +{ +return x_12; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_31 = lean_ctor_get(x_12, 0); +x_32 = lean_ctor_get(x_12, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_12); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_31); +lean_ctor_set(x_33, 1, x_32); +return x_33; +} +} +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_34 = lean_ctor_get(x_3, 0); +x_35 = lean_ctor_get(x_3, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_3); +x_36 = lean_ctor_get(x_2, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_2, 1); +lean_inc(x_37); +lean_dec(x_2); +lean_inc(x_4); +lean_inc(x_34); +lean_inc(x_1); +x_38 = l___private_Lean_Meta_EqnCompiler_DepElim_1__convertMVar(x_1, x_36, x_34, x_4, x_5); +if (lean_obj_tag(x_38) == 0) +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; lean_object* x_45; +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_ctor_get(x_39, 0); +lean_inc(x_41); +x_42 = lean_ctor_get(x_39, 1); +lean_inc(x_42); +if (lean_is_exclusive(x_39)) { + lean_ctor_release(x_39, 0); + lean_ctor_release(x_39, 1); + x_43 = x_39; +} else { + lean_dec_ref(x_39); + x_43 = lean_box(0); +} +x_44 = lean_name_eq(x_34, x_42); +lean_inc(x_42); +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_37); +if (x_44 == 0) +{ +lean_object* x_46; lean_object* x_47; +x_46 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_41, x_34, x_42); +if (lean_is_scalar(x_43)) { + x_47 = lean_alloc_ctor(0, 2, 0); +} else { + x_47 = x_43; +} +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_45); +x_2 = x_47; +x_3 = x_35; +x_5 = x_40; +goto _start; +} +else +{ +lean_object* x_49; +lean_dec(x_42); +lean_dec(x_34); +if (lean_is_scalar(x_43)) { + x_49 = lean_alloc_ctor(0, 2, 0); +} else { + x_49 = x_43; +} +lean_ctor_set(x_49, 0, x_41); +lean_ctor_set(x_49, 1, x_45); +x_2 = x_49; +x_3 = x_35; +x_5 = x_40; +goto _start; +} +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +lean_dec(x_37); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_4); +lean_dec(x_1); +x_51 = lean_ctor_get(x_38, 0); +lean_inc(x_51); +x_52 = lean_ctor_get(x_38, 1); +lean_inc(x_52); +if (lean_is_exclusive(x_38)) { + lean_ctor_release(x_38, 0); + lean_ctor_release(x_38, 1); + x_53 = x_38; +} else { + lean_dec_ref(x_38); + x_53 = lean_box(0); +} +if (lean_is_scalar(x_53)) { + x_54 = lean_alloc_ctor(1, 2, 0); +} else { + x_54 = x_53; +} +lean_ctor_set(x_54, 0, x_51); +lean_ctor_set(x_54, 1, x_52); +return x_54; +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = lean_box(0); +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars(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; +x_5 = l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1; +x_6 = l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___spec__1(x_1, x_5, x_2, x_3, x_4); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_ctor_get(x_6, 0); +x_9 = !lean_is_exclusive(x_8); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_ctor_get(x_8, 1); +x_11 = l_List_reverse___rarg(x_10); +lean_ctor_set(x_8, 1, x_11); +return x_6; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_12 = lean_ctor_get(x_8, 0); +x_13 = lean_ctor_get(x_8, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_8); +x_14 = l_List_reverse___rarg(x_13); +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_6, 0, x_15); +return x_6; +} +} +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; +x_16 = lean_ctor_get(x_6, 0); +x_17 = lean_ctor_get(x_6, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_6); +x_18 = lean_ctor_get(x_16, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_16, 1); +lean_inc(x_19); +if (lean_is_exclusive(x_16)) { + lean_ctor_release(x_16, 0); + lean_ctor_release(x_16, 1); + x_20 = x_16; +} else { + lean_dec_ref(x_16); + x_20 = lean_box(0); +} +x_21 = l_List_reverse___rarg(x_19); +if (lean_is_scalar(x_20)) { + x_22 = lean_alloc_ctor(0, 2, 0); +} else { + x_22 = x_20; +} +lean_ctor_set(x_22, 0, x_18); +lean_ctor_set(x_22, 1, x_21); +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_17); +return x_23; +} +} +else +{ +uint8_t x_24; +x_24 = !lean_is_exclusive(x_6); +if (x_24 == 0) +{ +return x_6; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_6, 0); +x_26 = lean_ctor_get(x_6, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_6); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_6); +x_9 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_2, x_8); +x_10 = l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_10); +lean_ctor_set(x_3, 0, x_9); +return x_3; +} +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; +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 = l_Lean_Meta_DepElim_Pattern_applyFVarSubst___main(x_1, x_11); +x_14 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_2, x_13); +x_15 = l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(x_1, x_2, x_12); +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +return x_16; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Alt_applyFVarSubst(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_2); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +x_8 = lean_ctor_get(x_2, 2); +x_9 = lean_ctor_get(x_2, 3); +lean_inc(x_1); +x_10 = l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_10) == 0) +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_12 = lean_ctor_get(x_10, 0); +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(x_1, x_13, x_9); +x_16 = l_Lean_Meta_FVarSubst_apply(x_1, x_7); +lean_dec(x_1); +x_17 = l_Lean_Meta_MVarRenaming_apply(x_13, x_16); +lean_dec(x_13); +lean_ctor_set(x_2, 3, x_15); +lean_ctor_set(x_2, 2, x_14); +lean_ctor_set(x_2, 1, x_17); +lean_ctor_set(x_10, 0, x_2); +return x_10; +} +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; +x_18 = lean_ctor_get(x_10, 0); +x_19 = lean_ctor_get(x_10, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_10); +x_20 = lean_ctor_get(x_18, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_18, 1); +lean_inc(x_21); +lean_dec(x_18); +x_22 = l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(x_1, x_20, x_9); +x_23 = l_Lean_Meta_FVarSubst_apply(x_1, x_7); +lean_dec(x_1); +x_24 = l_Lean_Meta_MVarRenaming_apply(x_20, x_23); +lean_dec(x_20); +lean_ctor_set(x_2, 3, x_22); +lean_ctor_set(x_2, 2, x_21); +lean_ctor_set(x_2, 1, x_24); +x_25 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_2); +lean_ctor_set(x_25, 1, x_19); +return x_25; +} +} +else +{ +uint8_t x_26; +lean_free_object(x_2); +lean_dec(x_9); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_1); +x_26 = !lean_is_exclusive(x_10); +if (x_26 == 0) +{ +return x_10; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_10, 0); +x_28 = lean_ctor_get(x_10, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_10); +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_2, 0); +x_31 = lean_ctor_get(x_2, 1); +x_32 = lean_ctor_get(x_2, 2); +x_33 = lean_ctor_get(x_2, 3); +lean_inc(x_33); +lean_inc(x_32); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_2); +lean_inc(x_1); +x_34 = l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars(x_1, x_32, x_3, x_4); +if (lean_obj_tag(x_34) == 0) +{ +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; +x_35 = lean_ctor_get(x_34, 0); +lean_inc(x_35); +x_36 = lean_ctor_get(x_34, 1); +lean_inc(x_36); +if (lean_is_exclusive(x_34)) { + lean_ctor_release(x_34, 0); + lean_ctor_release(x_34, 1); + x_37 = x_34; +} else { + lean_dec_ref(x_34); + x_37 = lean_box(0); +} +x_38 = lean_ctor_get(x_35, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_35, 1); +lean_inc(x_39); +lean_dec(x_35); +x_40 = l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(x_1, x_38, x_33); +x_41 = l_Lean_Meta_FVarSubst_apply(x_1, x_31); +lean_dec(x_1); +x_42 = l_Lean_Meta_MVarRenaming_apply(x_38, x_41); +lean_dec(x_38); +x_43 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_43, 0, x_30); +lean_ctor_set(x_43, 1, x_42); +lean_ctor_set(x_43, 2, x_39); +lean_ctor_set(x_43, 3, x_40); +if (lean_is_scalar(x_37)) { + x_44 = lean_alloc_ctor(0, 2, 0); +} else { + x_44 = x_37; +} +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_36); +return x_44; +} +else +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +lean_dec(x_33); +lean_dec(x_31); +lean_dec(x_30); +lean_dec(x_1); +x_45 = lean_ctor_get(x_34, 0); +lean_inc(x_45); +x_46 = lean_ctor_get(x_34, 1); +lean_inc(x_46); +if (lean_is_exclusive(x_34)) { + lean_ctor_release(x_34, 0); + lean_ctor_release(x_34, 1); + x_47 = x_34; +} else { + lean_dec_ref(x_34); + x_47 = lean_box(0); +} +if (lean_is_scalar(x_47)) { + x_48 = lean_alloc_ctor(1, 2, 0); +} else { + x_48 = x_47; +} +lean_ctor_set(x_48, 0, x_45); +lean_ctor_set(x_48, 1, x_46); +return x_48; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at_Lean_Meta_DepElim_Alt_applyFVarSubst___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_3__copyMVar(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_Meta_getMVarDecl(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_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; lean_object* x_15; uint8_t x_16; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = lean_ctor_get(x_6, 2); +lean_inc(x_8); +lean_dec(x_6); +x_9 = l_Lean_Meta_instantiateMVars(x_8, x_3, x_7); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_Lean_Meta_MVarRenaming_apply(x_1, x_10); +x_13 = lean_box(0); +x_14 = 0; +x_15 = l_Lean_Meta_mkFreshExprMVar(x_12, x_13, x_14, x_3, x_11); +x_16 = !lean_is_exclusive(x_15); +if (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_15, 0); +x_18 = l_Lean_Expr_mvarId_x21(x_17); +lean_dec(x_17); +lean_inc(x_18); +x_19 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_1, x_2, x_18); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_18); +lean_ctor_set(x_15, 0, x_20); +return x_15; +} +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; +x_21 = lean_ctor_get(x_15, 0); +x_22 = lean_ctor_get(x_15, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_15); +x_23 = l_Lean_Expr_mvarId_x21(x_21); +lean_dec(x_21); +lean_inc(x_23); +x_24 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_1, x_2, x_23); +x_25 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_23); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_22); +return x_26; +} +} +else +{ +uint8_t x_27; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_5); +if (x_27 == 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_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; +} +} +} +} +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; +lean_dec(x_3); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_1); +lean_ctor_set(x_5, 1, x_4); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_2); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_2, 0); +x_8 = lean_ctor_get(x_2, 1); +x_9 = lean_ctor_get(x_1, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_dec(x_1); +lean_inc(x_3); +x_11 = l___private_Lean_Meta_EqnCompiler_DepElim_3__copyMVar(x_9, x_7, x_3, x_4); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; uint8_t 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); +x_14 = !lean_is_exclusive(x_12); +if (x_14 == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_12, 1); +lean_ctor_set(x_2, 1, x_10); +lean_ctor_set(x_2, 0, x_15); +lean_ctor_set(x_12, 1, x_2); +x_1 = x_12; +x_2 = x_8; +x_4 = x_13; +goto _start; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_12, 0); +x_18 = lean_ctor_get(x_12, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_12); +lean_ctor_set(x_2, 1, x_10); +lean_ctor_set(x_2, 0, x_18); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_2); +x_1 = x_19; +x_2 = x_8; +x_4 = x_13; +goto _start; +} +} +else +{ +uint8_t x_21; +lean_dec(x_10); +lean_free_object(x_2); +lean_dec(x_8); +lean_dec(x_3); +x_21 = !lean_is_exclusive(x_11); +if (x_21 == 0) +{ +return x_11; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_11, 0); +x_23 = lean_ctor_get(x_11, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_11); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_25 = lean_ctor_get(x_2, 0); +x_26 = lean_ctor_get(x_2, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_2); +x_27 = lean_ctor_get(x_1, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_1, 1); +lean_inc(x_28); +lean_dec(x_1); +lean_inc(x_3); +x_29 = l___private_Lean_Meta_EqnCompiler_DepElim_3__copyMVar(x_27, x_25, x_3, x_4); +if (lean_obj_tag(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; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = lean_ctor_get(x_30, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +if (lean_is_exclusive(x_30)) { + lean_ctor_release(x_30, 0); + lean_ctor_release(x_30, 1); + x_34 = x_30; +} else { + lean_dec_ref(x_30); + x_34 = lean_box(0); +} +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_33); +lean_ctor_set(x_35, 1, x_28); +if (lean_is_scalar(x_34)) { + x_36 = lean_alloc_ctor(0, 2, 0); +} else { + x_36 = x_34; +} +lean_ctor_set(x_36, 0, x_32); +lean_ctor_set(x_36, 1, x_35); +x_1 = x_36; +x_2 = x_26; +x_4 = x_31; +goto _start; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_28); +lean_dec(x_26); +lean_dec(x_3); +x_38 = lean_ctor_get(x_29, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_29, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + lean_ctor_release(x_29, 1); + x_40 = x_29; +} else { + lean_dec_ref(x_29); + x_40 = lean_box(0); +} +if (lean_is_scalar(x_40)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_40; +} +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +return x_41; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars(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_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1; +x_5 = l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars___spec__1(x_4, x_1, x_2, x_3); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_ctor_get(x_5, 0); +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; +x_9 = lean_ctor_get(x_7, 1); +x_10 = l_List_reverse___rarg(x_9); +lean_ctor_set(x_7, 1, x_10); +return x_5; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_11 = lean_ctor_get(x_7, 0); +x_12 = lean_ctor_get(x_7, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_7); +x_13 = l_List_reverse___rarg(x_12); +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_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_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_17 = lean_ctor_get(x_15, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); +lean_inc(x_18); +if (lean_is_exclusive(x_15)) { + lean_ctor_release(x_15, 0); + lean_ctor_release(x_15, 1); + x_19 = x_15; +} else { + lean_dec_ref(x_15); + x_19 = lean_box(0); +} +x_20 = l_List_reverse___rarg(x_18); +if (lean_is_scalar(x_19)) { + x_21 = lean_alloc_ctor(0, 2, 0); +} else { + x_21 = x_19; +} +lean_ctor_set(x_21, 0, x_17); +lean_ctor_set(x_21, 1, x_20); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_16); +return x_22; +} +} +else +{ +uint8_t x_23; +x_23 = !lean_is_exclusive(x_5); +if (x_23 == 0) +{ +return x_5; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_5, 0); +x_25 = lean_ctor_get(x_5, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_5); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_applyMVarRenaming___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_1, x_10); +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* l_Lean_Meta_DepElim_Alt_copyCore(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_ctor_get(x_1, 2); +x_8 = lean_ctor_get(x_1, 3); +x_9 = l___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars(x_7, x_2, x_3); +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; uint8_t x_12; +x_11 = lean_ctor_get(x_9, 0); +x_12 = !lean_is_exclusive(x_11); +if (x_12 == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = lean_ctor_get(x_11, 0); +x_14 = lean_ctor_get(x_11, 1); +x_15 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_13, x_8); +x_16 = l_Lean_Meta_MVarRenaming_apply(x_13, x_6); +lean_ctor_set(x_1, 3, x_15); +lean_ctor_set(x_1, 2, x_14); +lean_ctor_set(x_1, 1, x_16); +lean_ctor_set(x_11, 1, x_1); +return x_9; +} +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_11, 0); +x_18 = lean_ctor_get(x_11, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_11); +x_19 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_17, x_8); +x_20 = l_Lean_Meta_MVarRenaming_apply(x_17, x_6); +lean_ctor_set(x_1, 3, x_19); +lean_ctor_set(x_1, 2, x_18); +lean_ctor_set(x_1, 1, x_20); +x_21 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_21, 0, x_17); +lean_ctor_set(x_21, 1, x_1); +lean_ctor_set(x_9, 0, x_21); +return x_9; +} +} +else +{ +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_9, 0); +x_23 = lean_ctor_get(x_9, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_9); +x_24 = lean_ctor_get(x_22, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_22, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_22)) { + lean_ctor_release(x_22, 0); + lean_ctor_release(x_22, 1); + x_26 = x_22; +} else { + lean_dec_ref(x_22); + x_26 = lean_box(0); +} +x_27 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_24, x_8); +x_28 = l_Lean_Meta_MVarRenaming_apply(x_24, x_6); +lean_ctor_set(x_1, 3, x_27); +lean_ctor_set(x_1, 2, x_25); +lean_ctor_set(x_1, 1, x_28); +if (lean_is_scalar(x_26)) { + x_29 = lean_alloc_ctor(0, 2, 0); +} else { + x_29 = x_26; +} +lean_ctor_set(x_29, 0, x_24); +lean_ctor_set(x_29, 1, x_1); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_23); +return x_30; +} +} +else +{ +uint8_t x_31; +lean_free_object(x_1); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +x_31 = !lean_is_exclusive(x_9); +if (x_31 == 0) +{ +return x_9; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_9, 0); +x_33 = lean_ctor_get(x_9, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_9); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_35 = lean_ctor_get(x_1, 0); +x_36 = lean_ctor_get(x_1, 1); +x_37 = lean_ctor_get(x_1, 2); +x_38 = lean_ctor_get(x_1, 3); +lean_inc(x_38); +lean_inc(x_37); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_1); +x_39 = l___private_Lean_Meta_EqnCompiler_DepElim_4__copyMVars(x_37, x_2, x_3); +if (lean_obj_tag(x_39) == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_40 = lean_ctor_get(x_39, 0); +lean_inc(x_40); +x_41 = lean_ctor_get(x_39, 1); +lean_inc(x_41); +if (lean_is_exclusive(x_39)) { + lean_ctor_release(x_39, 0); + lean_ctor_release(x_39, 1); + x_42 = x_39; +} else { + lean_dec_ref(x_39); + x_42 = lean_box(0); +} +x_43 = lean_ctor_get(x_40, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_40, 1); +lean_inc(x_44); +if (lean_is_exclusive(x_40)) { + lean_ctor_release(x_40, 0); + lean_ctor_release(x_40, 1); + x_45 = x_40; +} else { + lean_dec_ref(x_40); + x_45 = lean_box(0); +} +x_46 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_43, x_38); +x_47 = l_Lean_Meta_MVarRenaming_apply(x_43, x_36); +x_48 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_48, 0, x_35); +lean_ctor_set(x_48, 1, x_47); +lean_ctor_set(x_48, 2, x_44); +lean_ctor_set(x_48, 3, x_46); +if (lean_is_scalar(x_45)) { + x_49 = lean_alloc_ctor(0, 2, 0); +} else { + x_49 = x_45; +} +lean_ctor_set(x_49, 0, x_43); +lean_ctor_set(x_49, 1, x_48); +if (lean_is_scalar(x_42)) { + x_50 = lean_alloc_ctor(0, 2, 0); +} else { + x_50 = x_42; +} +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_41); +return x_50; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +lean_dec(x_38); +lean_dec(x_36); +lean_dec(x_35); +x_51 = lean_ctor_get(x_39, 0); +lean_inc(x_51); +x_52 = lean_ctor_get(x_39, 1); +lean_inc(x_52); +if (lean_is_exclusive(x_39)) { + lean_ctor_release(x_39, 0); + lean_ctor_release(x_39, 1); + x_53 = x_39; +} else { + lean_dec_ref(x_39); + x_53 = lean_box(0); +} +if (lean_is_scalar(x_53)) { + x_54 = lean_alloc_ctor(1, 2, 0); +} else { + x_54 = x_53; +} +lean_ctor_set(x_54, 0, x_51); +lean_ctor_set(x_54, 1, x_52); +return x_54; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Alt_copyCore___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Alt_copy(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Alt_copyCore(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_ctor_get(x_4, 0); +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +lean_dec(x_6); +lean_ctor_set(x_4, 0, x_7); +return x_4; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_8 = lean_ctor_get(x_4, 0); +x_9 = lean_ctor_get(x_4, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_4); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_9); +return x_11; +} +} +else +{ +uint8_t x_12; +x_12 = !lean_is_exclusive(x_4); +if (x_12 == 0) +{ +return x_4; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_4, 0); +x_14 = lean_ctor_get(x_4, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_4); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +return x_15; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_1, x_2, x_6); +x_9 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_9); +lean_ctor_set(x_3, 0, x_8); +return x_3; +} +else +{ +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_3, 0); +x_11 = lean_ctor_get(x_3, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_3); +x_12 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_1, x_2, x_10); +x_13 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(x_1, x_2, x_11); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_1, x_2, x_6); +x_9 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_9); +lean_ctor_set(x_3, 0, x_8); +return x_3; +} +else +{ +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_3, 0); +x_11 = lean_ctor_get(x_3, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_3); +x_12 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_1, x_2, x_10); +x_13 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(x_1, x_2, x_11); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +switch (lean_obj_tag(x_3)) { +case 0: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_name_eq(x_4, x_1); +lean_dec(x_4); +if (x_5 == 0) +{ +return x_3; +} +else +{ +lean_dec(x_3); +lean_inc(x_2); +return x_2; +} +} +case 2: +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_3); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_8); +return x_3; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_9 = lean_ctor_get(x_3, 0); +x_10 = lean_ctor_get(x_3, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_3); +x_11 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(x_1, x_2, x_10); +x_12 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_12, 0, x_9); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +case 4: +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_3); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_3, 0); +x_15 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(x_1, x_2, x_14); +lean_ctor_set(x_3, 0, x_15); +return x_3; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_3, 0); +lean_inc(x_16); +lean_dec(x_3); +x_17 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(x_1, x_2, x_16); +x_18 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_18, 0, x_17); +return x_18; +} +} +default: +{ +return x_3; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at_Lean_Meta_DepElim_Example_replaceFVarId___main___spec__2(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Example_replaceFVarId___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Example_replaceFVarId(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(x_1, x_10); +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* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_1, x_5); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_1, x_9); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(x_1, x_10); +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* l_Lean_Meta_DepElim_Example_applyFVarSubst___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_2, 0); +x_5 = l_Lean_Meta_FVarSubst_get(x_1, x_4); +if (lean_obj_tag(x_5) == 1) +{ +lean_object* x_6; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +lean_dec(x_5); +lean_ctor_set(x_2, 0, x_6); +return x_2; +} +else +{ +lean_object* x_7; +lean_dec(x_5); +lean_free_object(x_2); +x_7 = lean_box(1); +return x_7; +} +} +else +{ +lean_object* x_8; lean_object* x_9; +x_8 = lean_ctor_get(x_2, 0); +lean_inc(x_8); +lean_dec(x_2); +x_9 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +if (lean_obj_tag(x_9) == 1) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +lean_dec(x_9); +x_11 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_11, 0, x_10); +return x_11; +} +else +{ +lean_object* x_12; +lean_dec(x_9); +x_12 = lean_box(1); +return x_12; +} +} +} +case 2: +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_2); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_2, 1); +x_15 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(x_1, x_14); +lean_ctor_set(x_2, 1, x_15); +return x_2; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_2, 0); +x_17 = lean_ctor_get(x_2, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_2); +x_18 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(x_1, x_17); +x_19 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_19, 0, x_16); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +case 4: +{ +uint8_t x_20; +x_20 = !lean_is_exclusive(x_2); +if (x_20 == 0) +{ +lean_object* x_21; lean_object* x_22; +x_21 = lean_ctor_get(x_2, 0); +x_22 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(x_1, x_21); +lean_ctor_set(x_2, 0, x_22); +return x_2; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_2, 0); +lean_inc(x_23); +lean_dec(x_2); +x_24 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(x_1, x_23); +x_25 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_25, 0, x_24); +return x_25; +} +} +default: +{ +return x_2; +} +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Lean_Meta_DepElim_Example_applyFVarSubst___main___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_Example_applyFVarSubst___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_DepElim_Example_applyFVarSubst(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Meta_DepElim_Example_varsToUnderscore___main(x_4); +x_7 = l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_Meta_DepElim_Example_varsToUnderscore___main(x_8); +x_11 = l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Example_varsToUnderscore___main(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_object* x_2; +lean_dec(x_1); +x_2 = lean_box(1); +return x_2; +} +case 2: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_1, 1); +x_5 = l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(x_4); +lean_ctor_set(x_1, 1, x_5); +return x_1; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_1, 0); +x_7 = lean_ctor_get(x_1, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_1); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(x_7); +x_9 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +return x_9; +} +} +case 4: +{ +uint8_t x_10; +x_10 = !lean_is_exclusive(x_1); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = lean_ctor_get(x_1, 0); +x_12 = l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(x_11); +lean_ctor_set(x_1, 0, x_12); +return x_1; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_1, 0); +lean_inc(x_13); +lean_dec(x_1); +x_14 = l_List_map___main___at_Lean_Meta_DepElim_Example_varsToUnderscore___main___spec__1(x_13); +x_15 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_15, 0, x_14); +return x_15; +} +} +default: +{ +return x_1; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Example_varsToUnderscore(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Meta_DepElim_Example_varsToUnderscore___main(x_1); +return x_2; +} +} +lean_object* l_List_foldl___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_3 = lean_ctor_get(x_2, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_2, 1); +lean_inc(x_4); +lean_dec(x_2); +x_5 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; +x_6 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_5); +x_7 = l_Lean_Meta_DepElim_Example_toMessageData___main(x_3); +x_8 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_8, 0, x_6); +lean_ctor_set(x_8, 1, x_7); +x_1 = x_8; +x_2 = x_4; +goto _start; +} +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__2(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Meta_DepElim_Example_toMessageData___main(x_4); +x_7 = l_List_map___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__2(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_Meta_DepElim_Example_toMessageData___main(x_8); +x_11 = l_List_map___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__2(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_Example_toMessageData___main___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_mkHole___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Example_toMessageData___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Example_toMessageData___main___closed__1; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Example_toMessageData___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_arrayHasFormat___rarg___closed__1; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Example_toMessageData___main(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_Lean_mkFVar(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +case 1: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_DepElim_Example_toMessageData___main___closed__2; +return x_5; +} +case 2: +{ +lean_object* x_6; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_box(0); +x_9 = l_Lean_mkConst(x_7, x_8); +x_10 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_10, 0, x_9); +return x_10; +} +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; +x_11 = lean_ctor_get(x_1, 0); +lean_inc(x_11); +lean_dec(x_1); +x_12 = lean_box(0); +x_13 = l_Lean_mkConst(x_11, x_12); +x_14 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_14, 0, x_13); +x_15 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5; +x_16 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_14); +x_17 = l_Lean_MessageData_Inhabited___closed__1; +x_18 = l_List_foldl___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__1(x_17, x_6); +x_19 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_19, 0, x_16); +lean_ctor_set(x_19, 1, x_18); +x_20 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +x_21 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +return x_21; +} +} +case 3: +{ +lean_object* x_22; lean_object* x_23; +x_22 = lean_ctor_get(x_1, 0); +lean_inc(x_22); +lean_dec(x_1); +x_23 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_23, 0, x_22); +return x_23; +} +default: +{ +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_1, 0); +lean_inc(x_24); +lean_dec(x_1); +x_25 = l_List_map___main___at_Lean_Meta_DepElim_Example_toMessageData___main___spec__2(x_24); +x_26 = l_Lean_MessageData_ofList(x_25); +lean_dec(x_25); +x_27 = l_Lean_Meta_DepElim_Example_toMessageData___main___closed__3; +x_28 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +return x_28; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_Example_toMessageData(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Meta_DepElim_Example_toMessageData___main(x_1); +return x_2; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_examplesToMessageData___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Meta_DepElim_Example_varsToUnderscore___main(x_4); +x_7 = l_Lean_Meta_DepElim_Example_toMessageData___main(x_6); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_examplesToMessageData___spec__1(x_5); +lean_ctor_set(x_1, 1, x_8); +lean_ctor_set(x_1, 0, x_7); +return x_1; +} +else +{ +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_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_1); +x_11 = l_Lean_Meta_DepElim_Example_varsToUnderscore___main(x_9); +x_12 = l_Lean_Meta_DepElim_Example_toMessageData___main(x_11); +x_13 = l_List_map___main___at_Lean_Meta_DepElim_examplesToMessageData___spec__1(x_10); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_examplesToMessageData(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_List_map___main___at_Lean_Meta_DepElim_examplesToMessageData___spec__1(x_1); +x_3 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; +x_4 = l_Lean_MessageData_joinSep___main(x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_withGoalOf___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = l_Lean_Meta_getMVarDecl(x_5, x_3, x_4); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 4); +lean_inc(x_10); +lean_dec(x_7); +x_11 = l_Lean_Meta_withLocalContext___rarg(x_9, x_10, x_2, x_3, x_8); +return x_11; +} +else +{ +uint8_t x_12; +lean_dec(x_2); +x_12 = !lean_is_exclusive(x_6); +if (x_12 == 0) +{ +return x_6; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_6, 0); +x_14 = lean_ctor_get(x_6, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_6); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +return x_15; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_withGoalOf(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_withGoalOf___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_withGoalOf___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Problem_Inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = lean_box(0); +x_3 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +lean_ctor_set(x_3, 2, x_1); +lean_ctor_set(x_3, 3, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Problem_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_DepElim_Problem_Inhabited___closed__1; +return x_1; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +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; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l_Lean_Meta_DepElim_Alt_toMessageData(x_7, x_2, x_3); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1(x_8, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_18 = lean_ctor_get(x_1, 0); +x_19 = lean_ctor_get(x_1, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_1); +x_20 = l_Lean_Meta_DepElim_Alt_toMessageData(x_18, x_2, x_3); +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_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1(x_19, x_2, x_22); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_26 = x_23; +} else { + lean_dec_ref(x_23); + x_26 = lean_box(0); +} +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_21); +lean_ctor_set(x_27, 1, x_24); +if (lean_is_scalar(x_26)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_26; +} +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_25); +return x_28; +} +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("vars "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___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_Meta_DepElim_Problem_toMessageData___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___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_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("examples: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1(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; 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; +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +x_6 = l_List_redLength___main___rarg(x_5); +x_7 = lean_mk_empty_array_with_capacity(x_6); +lean_dec(x_6); +x_8 = l_List_toArrayAux___main___rarg(x_5, x_7); +x_9 = lean_unsigned_to_nat(0u); +x_10 = l_Lean_MessageData_coeOfArrayExpr___closed__2; +x_11 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_8, x_9, x_10); +lean_dec(x_8); +x_12 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__3; +x_13 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +x_14 = l_Lean_MessageData_ofList___closed__3; +x_15 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +x_16 = l_Lean_MessageData_joinSep___main(x_2, x_14); +x_17 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +x_18 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_14); +x_19 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__6; +x_20 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +x_21 = lean_ctor_get(x_1, 3); +lean_inc(x_21); +lean_dec(x_1); +x_22 = l_Lean_Meta_DepElim_examplesToMessageData(x_21); +x_23 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_22); +x_24 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_14); +x_25 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_4); +return x_25; +} +} +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_ctor_get(x_1, 2); +lean_inc(x_4); +x_5 = lean_alloc_closure((void*)(l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1___boxed), 3, 1); +lean_closure_set(x_5, 0, x_4); +lean_inc(x_1); +x_6 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___boxed), 4, 1); +lean_closure_set(x_6, 0, x_1); +x_7 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_7, 0, x_5); +lean_closure_set(x_7, 1, x_6); +x_8 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_1, x_7, x_2, x_3); +return x_8; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at_Lean_Meta_DepElim_Problem_toMessageData___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_5; +} +} +lean_object* l_Lean_Meta_DepElim_Problem_toMessageData___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_DepElim_Problem_toMessageData(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_DepElim_counterExampleToMessageData(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Meta_DepElim_examplesToMessageData(x_1); +return x_2; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_counterExamplesToMessageData___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Meta_DepElim_examplesToMessageData(x_4); +x_7 = l_List_map___main___at_Lean_Meta_DepElim_counterExamplesToMessageData___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_Meta_DepElim_examplesToMessageData(x_8); +x_11 = l_List_map___main___at_Lean_Meta_DepElim_counterExamplesToMessageData___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_counterExamplesToMessageData(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_List_map___main___at_Lean_Meta_DepElim_counterExamplesToMessageData___spec__1(x_1); +x_3 = l_Lean_MessageData_ofList___closed__3; +x_4 = l_Lean_MessageData_joinSep___main(x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1(lean_object* x_1, uint8_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +return x_2; +} +else +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_4 = lean_ctor_get(x_3, 0); +x_5 = lean_ctor_get(x_3, 1); +x_6 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1(x_1, x_2, x_5); +x_7 = lean_ctor_get(x_4, 1); +x_8 = lean_unsigned_to_nat(0u); +x_9 = l_List_lengthAux___main___rarg(x_7, x_8); +x_10 = lean_nat_dec_eq(x_9, x_1); +lean_dec(x_9); +if (x_10 == 0) +{ +uint8_t x_11; +x_11 = 1; +return x_11; +} +else +{ +return x_6; +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("incorrect number of patterns"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___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_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___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_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; uint8_t x_8; +x_5 = lean_unsigned_to_nat(0u); +x_6 = l_List_lengthAux___main___rarg(x_1, x_5); +x_7 = 0; +x_8 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1(x_6, x_7, x_2); +lean_dec(x_6); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; +x_9 = lean_box(0); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_4); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__3; +x_12 = lean_box(0); +x_13 = l_Lean_Meta_throwOther___rarg(x_11, x_12, x_3, x_4); +return x_13; +} +} +} +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; uint8_t x_5; lean_object* x_6; +x_4 = lean_unbox(x_2); +lean_dec(x_2); +x_5 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___spec__1(x_1, x_4, x_3); +lean_dec(x_3); +lean_dec(x_1); +x_6 = lean_box(x_5); +return x_6; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___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_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_5; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("EqnCompiler"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("matchDebug"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("motive"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__5; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__7() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("motive: "); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__7; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__8; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +lean_inc(x_4); +x_6 = l_Lean_Meta_mkForall(x_1, x_2, x_4, x_5); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_7, 4); +lean_inc(x_8); +x_9 = lean_ctor_get_uint8(x_8, sizeof(void*)*1); +lean_dec(x_8); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_13; +x_10 = lean_ctor_get(x_6, 0); +lean_inc(x_10); +lean_dec(x_6); +x_11 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6; +x_12 = 0; +x_13 = l_Lean_Meta_withLocalDecl___rarg(x_11, x_10, x_12, x_3, x_4, x_7); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; +x_14 = lean_ctor_get(x_6, 0); +lean_inc(x_14); +lean_dec(x_6); +x_15 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +x_16 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_15, x_4, x_7); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_unbox(x_17); +lean_dec(x_17); +if (x_18 == 0) +{ +lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; +x_19 = lean_ctor_get(x_16, 1); +lean_inc(x_19); +lean_dec(x_16); +x_20 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6; +x_21 = 0; +x_22 = l_Lean_Meta_withLocalDecl___rarg(x_20, x_14, x_21, x_3, x_4, x_19); +return x_22; +} +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; uint8_t x_30; lean_object* x_31; +x_23 = lean_ctor_get(x_16, 1); +lean_inc(x_23); +lean_dec(x_16); +lean_inc(x_14); +x_24 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_24, 0, x_14); +x_25 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__9; +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_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_15, x_26, x_4, x_23); +x_28 = lean_ctor_get(x_27, 1); +lean_inc(x_28); +lean_dec(x_27); +x_29 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6; +x_30 = 0; +x_31 = l_Lean_Meta_withLocalDecl___rarg(x_29, x_14, x_30, x_3, x_4, x_28); +return x_31; +} +} +} +else +{ +uint8_t x_32; +lean_dec(x_4); +lean_dec(x_3); +x_32 = !lean_is_exclusive(x_6); +if (x_32 == 0) +{ +return x_6; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_6, 0); +x_34 = lean_ctor_get(x_6, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_6); +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_object* l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg), 5, 0); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_7__localDeclsToMVarsAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +lean_dec(x_4); +x_6 = l_List_reverse___rarg(x_2); +x_7 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_5); +return x_8; +} +else +{ +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; lean_object* x_13; lean_object* x_14; uint8_t 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_10 = lean_ctor_get(x_1, 0); +x_11 = lean_ctor_get(x_1, 1); +x_12 = l_Lean_LocalDecl_type(x_10); +x_13 = l_Lean_Meta_FVarSubst_apply(x_3, x_12); +x_14 = lean_box(0); +x_15 = 0; +lean_inc(x_4); +x_16 = l_Lean_Meta_mkFreshExprMVar(x_13, x_14, x_15, 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 = l_Lean_LocalDecl_fvarId(x_10); +lean_dec(x_10); +lean_inc(x_17); +x_20 = l_Lean_Meta_FVarSubst_insert(x_3, x_19, x_17); +x_21 = l_Lean_Expr_mvarId_x21(x_17); +lean_dec(x_17); +lean_ctor_set(x_1, 1, x_2); +lean_ctor_set(x_1, 0, x_21); +{ +lean_object* _tmp_0 = x_11; +lean_object* _tmp_1 = x_1; +lean_object* _tmp_2 = x_20; +lean_object* _tmp_4 = x_18; +x_1 = _tmp_0; +x_2 = _tmp_1; +x_3 = _tmp_2; +x_5 = _tmp_4; +} +goto _start; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_23 = lean_ctor_get(x_1, 0); +x_24 = lean_ctor_get(x_1, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_1); +x_25 = l_Lean_LocalDecl_type(x_23); +x_26 = l_Lean_Meta_FVarSubst_apply(x_3, x_25); +x_27 = lean_box(0); +x_28 = 0; +lean_inc(x_4); +x_29 = l_Lean_Meta_mkFreshExprMVar(x_26, x_27, x_28, x_4, x_5); +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_Lean_LocalDecl_fvarId(x_23); +lean_dec(x_23); +lean_inc(x_30); +x_33 = l_Lean_Meta_FVarSubst_insert(x_3, x_32, x_30); +x_34 = l_Lean_Expr_mvarId_x21(x_30); +lean_dec(x_30); +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_2); +x_1 = x_24; +x_2 = x_35; +x_3 = x_33; +x_5 = x_31; +goto _start; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_7__localDeclsToMVarsAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l___private_Lean_Meta_EqnCompiler_DepElim_7__localDeclsToMVarsAux___main(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_8__localDeclsToMVars(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_box(0); +x_5 = lean_box(0); +x_6 = l___private_Lean_Meta_EqnCompiler_DepElim_7__localDeclsToMVarsAux___main(x_1, x_4, x_5, x_2, x_3); +return x_6; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_9__mkThunk(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_Closure_mkNewLevelParam___closed__2; +x_3 = 0; +x_4 = l_Lean_unitToExpr___closed__1; +x_5 = l_Lean_mkForall(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; uint8_t x_4; +x_3 = lean_array_get_size(x_2); +x_4 = lean_nat_dec_lt(x_1, x_3); +lean_dec(x_3); +if (x_4 == 0) +{ +lean_object* x_5; +lean_dec(x_1); +x_5 = x_2; +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; +x_6 = lean_array_fget(x_2, x_1); +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_array_fset(x_2, x_1, x_7); +x_9 = x_6; +x_10 = l_Lean_LocalDecl_toExpr(x_9); +lean_dec(x_9); +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_1, x_11); +x_13 = x_10; +x_14 = lean_array_fset(x_8, x_1, x_13); +lean_dec(x_1); +x_1 = x_12; +x_2 = x_14; +goto _start; +} +} +} +lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___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_dec(x_3); +lean_dec(x_1); +x_7 = x_2; +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; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; +x_9 = lean_array_fget(x_2, x_1); +x_10 = lean_unsigned_to_nat(0u); +x_11 = lean_array_fset(x_2, x_1, x_10); +x_12 = x_9; +x_13 = 0; +lean_inc(x_3); +x_14 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_13, x_12, 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; +x_20 = lean_array_fset(x_11, 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_11); +lean_dec(x_3); +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_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_5); +x_8 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_9); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3(x_1, x_10); +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* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_5); +x_8 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_DepElim_Pattern_toIPattern___main(x_1, x_9); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4(x_1, x_10); +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* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_3, x_3, x_6, x_1); +x_8 = l_Lean_Meta_mkForall(x_2, x_7, x_4, x_5); +return x_8; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___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, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { +_start: +{ +uint8_t x_13; lean_object* x_14; lean_object* x_15; +x_13 = l_Array_isEmpty___rarg(x_1); +lean_inc(x_10); +x_14 = lean_array_push(x_2, x_10); +lean_inc(x_11); +x_15 = l___private_Lean_Meta_EqnCompiler_DepElim_8__localDeclsToMVars(x_3, x_11, x_12); +if (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; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 1); +lean_inc(x_17); +lean_dec(x_15); +x_18 = lean_unsigned_to_nat(0u); +x_19 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_1, x_1, x_18, x_10); +x_20 = lean_ctor_get(x_16, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_16, 1); +lean_inc(x_21); +lean_dec(x_16); +x_22 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3(x_21, x_4); +x_23 = l_Lean_Meta_FVarSubst_apply(x_21, x_19); +lean_dec(x_21); +x_24 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_24, 0, x_5); +lean_ctor_set(x_24, 1, x_23); +lean_ctor_set(x_24, 2, x_20); +lean_ctor_set(x_24, 3, x_22); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_6); +x_26 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg(x_7, x_8, x_25, x_14, x_9, x_11, x_17); +return x_26; +} +else +{ +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; +x_27 = lean_ctor_get(x_15, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_15, 1); +lean_inc(x_28); +lean_dec(x_15); +x_29 = l_Lean_unitToExpr___lambda__1___closed__5; +x_30 = l_Lean_mkApp(x_10, x_29); +x_31 = lean_ctor_get(x_27, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_27, 1); +lean_inc(x_32); +lean_dec(x_27); +x_33 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4(x_32, x_4); +x_34 = l_Lean_Meta_FVarSubst_apply(x_32, x_30); +lean_dec(x_32); +x_35 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_35, 0, x_5); +lean_ctor_set(x_35, 1, x_34); +lean_ctor_set(x_35, 2, x_31); +lean_ctor_set(x_35, 3, x_33); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_6); +x_37 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg(x_7, x_8, x_36, x_14, x_9, x_11, x_28); +return x_37; +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("minor premise "); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___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_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___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_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___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: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_8; lean_object* x_9; +lean_dec(x_1); +x_8 = l_List_reverse___rarg(x_3); +x_9 = lean_apply_4(x_5, x_8, x_4, x_6, x_7); +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_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_10 = lean_ctor_get(x_2, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_2, 1); +lean_inc(x_11); +lean_dec(x_2); +x_12 = lean_ctor_get(x_10, 0); +lean_inc(x_12); +x_13 = l_List_redLength___main___rarg(x_12); +x_14 = lean_mk_empty_array_with_capacity(x_13); +lean_dec(x_13); +lean_inc(x_12); +x_15 = l_List_toArrayAux___main___rarg(x_12, x_14); +x_16 = x_15; +x_17 = lean_unsigned_to_nat(0u); +x_18 = l_Array_umapMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__1(x_17, x_16); +x_19 = x_18; +x_20 = lean_ctor_get(x_10, 1); +lean_inc(x_20); +lean_dec(x_10); +x_21 = l_List_redLength___main___rarg(x_20); +x_22 = lean_mk_empty_array_with_capacity(x_21); +lean_dec(x_21); +lean_inc(x_20); +x_23 = l_List_toArrayAux___main___rarg(x_20, x_22); +x_24 = x_23; +x_25 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__2), 4, 2); +lean_closure_set(x_25, 0, x_17); +lean_closure_set(x_25, 1, x_24); +x_26 = x_25; +lean_inc(x_19); +lean_inc(x_1); +x_27 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__1___boxed), 5, 2); +lean_closure_set(x_27, 0, x_1); +lean_closure_set(x_27, 1, x_19); +x_28 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_28, 0, x_26); +lean_closure_set(x_28, 1, x_27); +lean_inc(x_6); +lean_inc(x_12); +x_29 = l_Lean_Meta_withExistingLocalDecls___rarg(x_12, x_28, x_6, x_7); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; uint8_t 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_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_Lean_Expr_isForall(x_30); +x_33 = l_List_lengthAux___main___rarg(x_3, x_17); +x_34 = lean_unsigned_to_nat(1u); +x_35 = lean_nat_add(x_33, x_34); +x_36 = l_Lean_Meta_caseValue___closed__2; +x_37 = l_Lean_Name_appendIndexAfter(x_36, x_35); +x_38 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__2___boxed), 12, 9); +lean_closure_set(x_38, 0, x_19); +lean_closure_set(x_38, 1, x_4); +lean_closure_set(x_38, 2, x_12); +lean_closure_set(x_38, 3, x_20); +lean_closure_set(x_38, 4, x_33); +lean_closure_set(x_38, 5, x_3); +lean_closure_set(x_38, 6, x_1); +lean_closure_set(x_38, 7, x_11); +lean_closure_set(x_38, 8, x_5); +if (x_32 == 0) +{ +lean_object* x_39; uint8_t x_40; lean_object* x_41; +x_39 = lean_ctor_get(x_31, 4); +lean_inc(x_39); +x_40 = lean_ctor_get_uint8(x_39, sizeof(void*)*1); +lean_dec(x_39); +x_41 = l___private_Lean_Meta_EqnCompiler_DepElim_9__mkThunk(x_30); +if (x_40 == 0) +{ +uint8_t x_42; lean_object* x_43; +x_42 = 0; +x_43 = l_Lean_Meta_withLocalDecl___rarg(x_37, x_41, x_42, x_38, x_6, x_31); +return x_43; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; +x_44 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +x_45 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_44, x_6, x_31); +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_unbox(x_46); +lean_dec(x_46); +if (x_47 == 0) +{ +lean_object* x_48; uint8_t x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_45, 1); +lean_inc(x_48); +lean_dec(x_45); +x_49 = 0; +x_50 = l_Lean_Meta_withLocalDecl___rarg(x_37, x_41, x_49, x_38, x_6, x_48); +return x_50; +} +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; uint8_t x_61; lean_object* x_62; +x_51 = lean_ctor_get(x_45, 1); +lean_inc(x_51); +lean_dec(x_45); +lean_inc(x_37); +x_52 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_52, 0, x_37); +x_53 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3; +x_54 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +x_55 = l___private_Lean_Meta_ExprDefEq_8__checkTypesAndAssign___closed__7; +x_56 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +lean_inc(x_41); +x_57 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_57, 0, x_41); +x_58 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +x_59 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_44, x_58, x_6, x_51); +x_60 = lean_ctor_get(x_59, 1); +lean_inc(x_60); +lean_dec(x_59); +x_61 = 0; +x_62 = l_Lean_Meta_withLocalDecl___rarg(x_37, x_41, x_61, x_38, x_6, x_60); +return x_62; +} +} +} +else +{ +lean_object* x_63; uint8_t x_64; +x_63 = lean_ctor_get(x_31, 4); +lean_inc(x_63); +x_64 = lean_ctor_get_uint8(x_63, sizeof(void*)*1); +lean_dec(x_63); +if (x_64 == 0) +{ +uint8_t x_65; lean_object* x_66; +x_65 = 0; +x_66 = l_Lean_Meta_withLocalDecl___rarg(x_37, x_30, x_65, x_38, x_6, x_31); +return x_66; +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_67 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +x_68 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_67, x_6, x_31); +x_69 = lean_ctor_get(x_68, 0); +lean_inc(x_69); +x_70 = lean_unbox(x_69); +lean_dec(x_69); +if (x_70 == 0) +{ +lean_object* x_71; uint8_t x_72; lean_object* x_73; +x_71 = lean_ctor_get(x_68, 1); +lean_inc(x_71); +lean_dec(x_68); +x_72 = 0; +x_73 = l_Lean_Meta_withLocalDecl___rarg(x_37, x_30, x_72, x_38, x_6, x_71); +return x_73; +} +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; uint8_t x_84; lean_object* x_85; +x_74 = lean_ctor_get(x_68, 1); +lean_inc(x_74); +lean_dec(x_68); +lean_inc(x_37); +x_75 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_75, 0, x_37); +x_76 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3; +x_77 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_77, 0, x_76); +lean_ctor_set(x_77, 1, x_75); +x_78 = l___private_Lean_Meta_ExprDefEq_8__checkTypesAndAssign___closed__7; +x_79 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_79, 0, x_77); +lean_ctor_set(x_79, 1, x_78); +lean_inc(x_30); +x_80 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_80, 0, x_30); +x_81 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_81, 0, x_79); +lean_ctor_set(x_81, 1, x_80); +x_82 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_67, x_81, x_6, x_74); +x_83 = lean_ctor_get(x_82, 1); +lean_inc(x_83); +lean_dec(x_82); +x_84 = 0; +x_85 = l_Lean_Meta_withLocalDecl___rarg(x_37, x_30, x_84, x_38, x_6, x_83); +return x_85; +} +} +} +} +else +{ +uint8_t x_86; +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_86 = !lean_is_exclusive(x_29); +if (x_86 == 0) +{ +return x_29; +} +else +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_29, 0); +x_88 = lean_ctor_get(x_29, 1); +lean_inc(x_88); +lean_inc(x_87); +lean_dec(x_29); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_87); +lean_ctor_set(x_89, 1, x_88); +return x_89; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg), 7, 0); +return x_2; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__3(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___spec__4(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +return x_6; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__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, lean_object* x_10, lean_object* x_11, lean_object* x_12) { +_start: +{ +lean_object* x_13; +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); +lean_dec(x_1); +return x_13; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___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: +{ +lean_object* x_8; +x_8 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +return x_8; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___rarg), 7, 0); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_box(0); +x_7 = l_Array_empty___closed__1; +x_8 = l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg(x_1, x_2, x_6, x_7, x_3, x_4, x_5); +return x_8; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts___rarg), 5, 0); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_assignGoalOf(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; +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +x_6 = lean_alloc_closure((void*)(l_Lean_Meta_assignExprMVar___boxed), 4, 2); +lean_closure_set(x_6, 0, x_5); +lean_closure_set(x_6, 1, x_2); +x_7 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_1, x_6, x_3, x_4); +return x_7; +} +} +lean_object* l_Lean_Meta_DepElim_assignGoalOf___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_Meta_DepElim_assignGoalOf(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_12__isDone(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; +x_2 = lean_ctor_get(x_1, 1); +x_3 = l_List_isEmpty___rarg(x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_12__isDone___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_12__isDone(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 1); +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +else +{ +lean_object* x_4; +x_4 = lean_ctor_get(x_2, 0); +if (lean_obj_tag(x_4) == 1) +{ +uint8_t x_5; +x_5 = 1; +return x_5; +} +else +{ +uint8_t x_6; +x_6 = 0; +return x_6; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1(uint8_t x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; uint8_t x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_2, 1); +x_5 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1(x_1, x_4); +x_6 = lean_ctor_get(x_3, 3); +if (lean_obj_tag(x_6) == 0) +{ +return x_5; +} +else +{ +lean_object* x_7; +x_7 = lean_ctor_get(x_6, 0); +if (lean_obj_tag(x_7) == 5) +{ +uint8_t x_8; +x_8 = 1; +return x_8; +} +else +{ +return x_5; +} +} +} +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; uint8_t x_4; +x_2 = lean_ctor_get(x_1, 2); +x_3 = 0; +x_4 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1(x_3, x_2); +return x_4; +} +} +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; uint8_t x_4; lean_object* x_5; +x_3 = lean_unbox(x_1); +lean_dec(x_1); +x_4 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___spec__1(x_3, x_2); +lean_dec(x_2); +x_5 = lean_box(x_4); +return x_5; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1(uint8_t x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_3, 3); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = 0; +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_6 = lean_ctor_get(x_2, 1); +x_7 = lean_ctor_get(x_4, 0); +x_8 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1(x_1, x_6); +switch (lean_obj_tag(x_7)) { +case 0: +{ +return x_8; +} +case 1: +{ +return x_8; +} +default: +{ +uint8_t x_9; +x_9 = 0; +return x_9; +} +} +} +} +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; uint8_t x_4; +x_2 = lean_ctor_get(x_1, 2); +x_3 = 1; +x_4 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1(x_3, x_2); +return x_4; +} +} +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; uint8_t x_4; lean_object* x_5; +x_3 = lean_unbox(x_1); +lean_dec(x_1); +x_4 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___spec__1(x_3, x_2); +lean_dec(x_2); +x_5 = lean_box(x_4); +return x_5; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___spec__1(uint8_t x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_3, 3); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = 0; +return x_5; +} +else +{ +lean_object* x_6; +x_6 = lean_ctor_get(x_4, 0); +if (lean_obj_tag(x_6) == 2) +{ +lean_object* x_7; +x_7 = lean_ctor_get(x_2, 1); +x_2 = x_7; +goto _start; +} +else +{ +uint8_t x_9; +x_9 = 0; +return x_9; +} +} +} +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; uint8_t x_4; +x_2 = lean_ctor_get(x_1, 2); +x_3 = 1; +x_4 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___spec__1(x_3, x_2); +return x_4; +} +} +lean_object* l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; uint8_t x_4; lean_object* x_5; +x_3 = lean_unbox(x_1); +lean_dec(x_1); +x_4 = l_List_foldr___main___at___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___spec__1(x_3, x_2); +lean_dec(x_2); +x_5 = lean_box(x_4); +return x_5; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_ctor_get(x_4, 3); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_1, 1); +lean_dec(x_7); +x_8 = lean_ctor_get(x_1, 0); +lean_dec(x_8); +x_9 = lean_ctor_get(x_2, 1); +x_10 = 0; +x_11 = lean_box(x_10); +lean_ctor_set(x_1, 0, x_11); +x_2 = x_9; +goto _start; +} +else +{ +lean_object* x_13; uint8_t x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_1); +x_13 = lean_ctor_get(x_2, 1); +x_14 = 0; +x_15 = lean_box(x_14); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_3); +x_1 = x_16; +x_2 = x_13; +goto _start; +} +} +else +{ +lean_object* x_18; +x_18 = lean_ctor_get(x_5, 0); +switch (lean_obj_tag(x_18)) { +case 1: +{ +uint8_t x_19; +x_19 = !lean_is_exclusive(x_1); +if (x_19 == 0) +{ +lean_object* x_20; lean_object* x_21; uint8_t x_22; +x_20 = lean_ctor_get(x_2, 1); +x_21 = lean_ctor_get(x_1, 1); +lean_dec(x_21); +x_22 = !lean_is_exclusive(x_3); +if (x_22 == 0) +{ +lean_object* x_23; uint8_t x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_3, 0); +lean_dec(x_23); +x_24 = 1; +x_25 = lean_box(x_24); +lean_ctor_set(x_3, 0, x_25); +x_2 = x_20; +goto _start; +} +else +{ +lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_3, 1); +lean_inc(x_27); +lean_dec(x_3); +x_28 = 1; +x_29 = lean_box(x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_27); +lean_ctor_set(x_1, 1, x_30); +x_2 = x_20; +goto _start; +} +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_32 = lean_ctor_get(x_2, 1); +x_33 = lean_ctor_get(x_1, 0); +lean_inc(x_33); +lean_dec(x_1); +x_34 = lean_ctor_get(x_3, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_35 = x_3; +} else { + lean_dec_ref(x_3); + x_35 = lean_box(0); +} +x_36 = 1; +x_37 = lean_box(x_36); +if (lean_is_scalar(x_35)) { + x_38 = lean_alloc_ctor(0, 2, 0); +} else { + x_38 = x_35; +} +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_34); +x_39 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_39, 0, x_33); +lean_ctor_set(x_39, 1, x_38); +x_1 = x_39; +x_2 = x_32; +goto _start; +} +} +case 2: +{ +uint8_t x_41; +x_41 = !lean_is_exclusive(x_1); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; uint8_t x_44; +x_42 = lean_ctor_get(x_2, 1); +x_43 = lean_ctor_get(x_1, 1); +lean_dec(x_43); +x_44 = !lean_is_exclusive(x_3); +if (x_44 == 0) +{ +lean_object* x_45; uint8_t x_46; lean_object* x_47; +x_45 = lean_ctor_get(x_3, 1); +lean_dec(x_45); +x_46 = 1; +x_47 = lean_box(x_46); +lean_ctor_set(x_3, 1, x_47); +x_2 = x_42; +goto _start; +} +else +{ +lean_object* x_49; uint8_t x_50; lean_object* x_51; lean_object* x_52; +x_49 = lean_ctor_get(x_3, 0); +lean_inc(x_49); +lean_dec(x_3); +x_50 = 1; +x_51 = lean_box(x_50); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_49); +lean_ctor_set(x_52, 1, x_51); +lean_ctor_set(x_1, 1, x_52); +x_2 = x_42; +goto _start; +} +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; uint8_t x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_54 = lean_ctor_get(x_2, 1); +x_55 = lean_ctor_get(x_1, 0); +lean_inc(x_55); +lean_dec(x_1); +x_56 = lean_ctor_get(x_3, 0); +lean_inc(x_56); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_57 = x_3; +} else { + lean_dec_ref(x_3); + x_57 = lean_box(0); +} +x_58 = 1; +x_59 = lean_box(x_58); +if (lean_is_scalar(x_57)) { + x_60 = lean_alloc_ctor(0, 2, 0); +} else { + x_60 = x_57; +} +lean_ctor_set(x_60, 0, x_56); +lean_ctor_set(x_60, 1, x_59); +x_61 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_61, 0, x_55); +lean_ctor_set(x_61, 1, x_60); +x_1 = x_61; +x_2 = x_54; +goto _start; +} +} +default: +{ +uint8_t x_63; +x_63 = !lean_is_exclusive(x_1); +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_1, 1); +lean_dec(x_64); +x_65 = lean_ctor_get(x_1, 0); +lean_dec(x_65); +x_66 = lean_ctor_get(x_2, 1); +x_67 = 0; +x_68 = lean_box(x_67); +lean_ctor_set(x_1, 0, x_68); +x_2 = x_66; +goto _start; +} +else +{ +lean_object* x_70; uint8_t x_71; lean_object* x_72; lean_object* x_73; +lean_dec(x_1); +x_70 = lean_ctor_get(x_2, 1); +x_71 = 0; +x_72 = lean_box(x_71); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_72); +lean_ctor_set(x_73, 1, x_3); +x_1 = x_73; +x_2 = x_70; +goto _start; +} +} +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__1() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = lean_box(x_1); +x_3 = lean_box(x_1); +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +return x_4; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 1; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__1; +x_3 = lean_box(x_1); +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; +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition(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; uint8_t x_7; +x_2 = lean_ctor_get(x_1, 2); +x_3 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2; +x_4 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___spec__1(x_3, x_2); +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 0); +lean_inc(x_6); +lean_dec(x_4); +x_7 = lean_unbox(x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +uint8_t x_8; +lean_dec(x_5); +x_8 = 0; +return x_8; +} +else +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_ctor_get(x_5, 0); +lean_inc(x_9); +x_10 = lean_unbox(x_9); +lean_dec(x_9); +if (x_10 == 0) +{ +uint8_t x_11; +lean_dec(x_5); +x_11 = 0; +return x_11; +} +else +{ +lean_object* x_12; uint8_t x_13; +x_12 = lean_ctor_get(x_5, 1); +lean_inc(x_12); +lean_dec(x_5); +x_13 = lean_unbox(x_12); +lean_dec(x_12); +return x_13; +} +} +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_ctor_get(x_4, 3); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_1, 1); +lean_dec(x_7); +x_8 = lean_ctor_get(x_1, 0); +lean_dec(x_8); +x_9 = lean_ctor_get(x_2, 1); +x_10 = 0; +x_11 = lean_box(x_10); +lean_ctor_set(x_1, 0, x_11); +x_2 = x_9; +goto _start; +} +else +{ +lean_object* x_13; uint8_t x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_1); +x_13 = lean_ctor_get(x_2, 1); +x_14 = 0; +x_15 = lean_box(x_14); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_3); +x_1 = x_16; +x_2 = x_13; +goto _start; +} +} +else +{ +lean_object* x_18; +x_18 = lean_ctor_get(x_5, 0); +switch (lean_obj_tag(x_18)) { +case 1: +{ +uint8_t x_19; +x_19 = !lean_is_exclusive(x_1); +if (x_19 == 0) +{ +lean_object* x_20; lean_object* x_21; uint8_t x_22; +x_20 = lean_ctor_get(x_2, 1); +x_21 = lean_ctor_get(x_1, 1); +lean_dec(x_21); +x_22 = !lean_is_exclusive(x_3); +if (x_22 == 0) +{ +lean_object* x_23; uint8_t x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_3, 0); +lean_dec(x_23); +x_24 = 1; +x_25 = lean_box(x_24); +lean_ctor_set(x_3, 0, x_25); +x_2 = x_20; +goto _start; +} +else +{ +lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_3, 1); +lean_inc(x_27); +lean_dec(x_3); +x_28 = 1; +x_29 = lean_box(x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_27); +lean_ctor_set(x_1, 1, x_30); +x_2 = x_20; +goto _start; +} +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_32 = lean_ctor_get(x_2, 1); +x_33 = lean_ctor_get(x_1, 0); +lean_inc(x_33); +lean_dec(x_1); +x_34 = lean_ctor_get(x_3, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_35 = x_3; +} else { + lean_dec_ref(x_3); + x_35 = lean_box(0); +} +x_36 = 1; +x_37 = lean_box(x_36); +if (lean_is_scalar(x_35)) { + x_38 = lean_alloc_ctor(0, 2, 0); +} else { + x_38 = x_35; +} +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_34); +x_39 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_39, 0, x_33); +lean_ctor_set(x_39, 1, x_38); +x_1 = x_39; +x_2 = x_32; +goto _start; +} +} +case 3: +{ +uint8_t x_41; +x_41 = !lean_is_exclusive(x_1); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; uint8_t x_44; +x_42 = lean_ctor_get(x_2, 1); +x_43 = lean_ctor_get(x_1, 1); +lean_dec(x_43); +x_44 = !lean_is_exclusive(x_3); +if (x_44 == 0) +{ +lean_object* x_45; uint8_t x_46; lean_object* x_47; +x_45 = lean_ctor_get(x_3, 1); +lean_dec(x_45); +x_46 = 1; +x_47 = lean_box(x_46); +lean_ctor_set(x_3, 1, x_47); +x_2 = x_42; +goto _start; +} +else +{ +lean_object* x_49; uint8_t x_50; lean_object* x_51; lean_object* x_52; +x_49 = lean_ctor_get(x_3, 0); +lean_inc(x_49); +lean_dec(x_3); +x_50 = 1; +x_51 = lean_box(x_50); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_49); +lean_ctor_set(x_52, 1, x_51); +lean_ctor_set(x_1, 1, x_52); +x_2 = x_42; +goto _start; +} +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; uint8_t x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_54 = lean_ctor_get(x_2, 1); +x_55 = lean_ctor_get(x_1, 0); +lean_inc(x_55); +lean_dec(x_1); +x_56 = lean_ctor_get(x_3, 0); +lean_inc(x_56); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_57 = x_3; +} else { + lean_dec_ref(x_3); + x_57 = lean_box(0); +} +x_58 = 1; +x_59 = lean_box(x_58); +if (lean_is_scalar(x_57)) { + x_60 = lean_alloc_ctor(0, 2, 0); +} else { + x_60 = x_57; +} +lean_ctor_set(x_60, 0, x_56); +lean_ctor_set(x_60, 1, x_59); +x_61 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_61, 0, x_55); +lean_ctor_set(x_61, 1, x_60); +x_1 = x_61; +x_2 = x_54; +goto _start; +} +} +default: +{ +uint8_t x_63; +x_63 = !lean_is_exclusive(x_1); +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_1, 1); +lean_dec(x_64); +x_65 = lean_ctor_get(x_1, 0); +lean_dec(x_65); +x_66 = lean_ctor_get(x_2, 1); +x_67 = 0; +x_68 = lean_box(x_67); +lean_ctor_set(x_1, 0, x_68); +x_2 = x_66; +goto _start; +} +else +{ +lean_object* x_70; uint8_t x_71; lean_object* x_72; lean_object* x_73; +lean_dec(x_1); +x_70 = lean_ctor_get(x_2, 1); +x_71 = 0; +x_72 = lean_box(x_71); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_72); +lean_ctor_set(x_73, 1, x_3); +x_1 = x_73; +x_2 = x_70; +goto _start; +} +} +} +} +} +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition(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; uint8_t x_7; +x_2 = lean_ctor_get(x_1, 2); +x_3 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2; +x_4 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___spec__1(x_3, x_2); +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 0); +lean_inc(x_6); +lean_dec(x_4); +x_7 = lean_unbox(x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +uint8_t x_8; +lean_dec(x_5); +x_8 = 0; +return x_8; +} +else +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_ctor_get(x_5, 0); +lean_inc(x_9); +x_10 = lean_unbox(x_9); +lean_dec(x_9); +if (x_10 == 0) +{ +uint8_t x_11; +lean_dec(x_5); +x_11 = 0; +return x_11; +} +else +{ +lean_object* x_12; uint8_t x_13; +x_12 = lean_ctor_get(x_5, 1); +lean_inc(x_12); +lean_dec(x_5); +x_13 = lean_unbox(x_12); +lean_dec(x_12); +return x_13; +} +} +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_ctor_get(x_4, 3); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_1, 1); +lean_dec(x_7); +x_8 = lean_ctor_get(x_1, 0); +lean_dec(x_8); +x_9 = lean_ctor_get(x_2, 1); +x_10 = 0; +x_11 = lean_box(x_10); +lean_ctor_set(x_1, 0, x_11); +x_2 = x_9; +goto _start; +} +else +{ +lean_object* x_13; uint8_t x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_1); +x_13 = lean_ctor_get(x_2, 1); +x_14 = 0; +x_15 = lean_box(x_14); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_3); +x_1 = x_16; +x_2 = x_13; +goto _start; +} +} +else +{ +lean_object* x_18; +x_18 = lean_ctor_get(x_5, 0); +switch (lean_obj_tag(x_18)) { +case 1: +{ +uint8_t x_19; +x_19 = !lean_is_exclusive(x_1); +if (x_19 == 0) +{ +lean_object* x_20; lean_object* x_21; uint8_t x_22; +x_20 = lean_ctor_get(x_2, 1); +x_21 = lean_ctor_get(x_1, 1); +lean_dec(x_21); +x_22 = !lean_is_exclusive(x_3); +if (x_22 == 0) +{ +lean_object* x_23; uint8_t x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_3, 0); +lean_dec(x_23); +x_24 = 1; +x_25 = lean_box(x_24); +lean_ctor_set(x_3, 0, x_25); +x_2 = x_20; +goto _start; +} +else +{ +lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_3, 1); +lean_inc(x_27); +lean_dec(x_3); +x_28 = 1; +x_29 = lean_box(x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_27); +lean_ctor_set(x_1, 1, x_30); +x_2 = x_20; +goto _start; +} +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_32 = lean_ctor_get(x_2, 1); +x_33 = lean_ctor_get(x_1, 0); +lean_inc(x_33); +lean_dec(x_1); +x_34 = lean_ctor_get(x_3, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_35 = x_3; +} else { + lean_dec_ref(x_3); + x_35 = lean_box(0); +} +x_36 = 1; +x_37 = lean_box(x_36); +if (lean_is_scalar(x_35)) { + x_38 = lean_alloc_ctor(0, 2, 0); +} else { + x_38 = x_35; +} +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_34); +x_39 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_39, 0, x_33); +lean_ctor_set(x_39, 1, x_38); +x_1 = x_39; +x_2 = x_32; +goto _start; +} +} +case 4: +{ +uint8_t x_41; +x_41 = !lean_is_exclusive(x_1); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; uint8_t x_44; +x_42 = lean_ctor_get(x_2, 1); +x_43 = lean_ctor_get(x_1, 1); +lean_dec(x_43); +x_44 = !lean_is_exclusive(x_3); +if (x_44 == 0) +{ +lean_object* x_45; uint8_t x_46; lean_object* x_47; +x_45 = lean_ctor_get(x_3, 1); +lean_dec(x_45); +x_46 = 1; +x_47 = lean_box(x_46); +lean_ctor_set(x_3, 1, x_47); +x_2 = x_42; +goto _start; +} +else +{ +lean_object* x_49; uint8_t x_50; lean_object* x_51; lean_object* x_52; +x_49 = lean_ctor_get(x_3, 0); +lean_inc(x_49); +lean_dec(x_3); +x_50 = 1; +x_51 = lean_box(x_50); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_49); +lean_ctor_set(x_52, 1, x_51); +lean_ctor_set(x_1, 1, x_52); +x_2 = x_42; +goto _start; +} +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; uint8_t x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_54 = lean_ctor_get(x_2, 1); +x_55 = lean_ctor_get(x_1, 0); +lean_inc(x_55); +lean_dec(x_1); +x_56 = lean_ctor_get(x_3, 0); +lean_inc(x_56); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_57 = x_3; +} else { + lean_dec_ref(x_3); + x_57 = lean_box(0); +} +x_58 = 1; +x_59 = lean_box(x_58); +if (lean_is_scalar(x_57)) { + x_60 = lean_alloc_ctor(0, 2, 0); +} else { + x_60 = x_57; +} +lean_ctor_set(x_60, 0, x_56); +lean_ctor_set(x_60, 1, x_59); +x_61 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_61, 0, x_55); +lean_ctor_set(x_61, 1, x_60); +x_1 = x_61; +x_2 = x_54; +goto _start; +} +} +default: +{ +uint8_t x_63; +x_63 = !lean_is_exclusive(x_1); +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_1, 1); +lean_dec(x_64); +x_65 = lean_ctor_get(x_1, 0); +lean_dec(x_65); +x_66 = lean_ctor_get(x_2, 1); +x_67 = 0; +x_68 = lean_box(x_67); +lean_ctor_set(x_1, 0, x_68); +x_2 = x_66; +goto _start; +} +else +{ +lean_object* x_70; uint8_t x_71; lean_object* x_72; lean_object* x_73; +lean_dec(x_1); +x_70 = lean_ctor_get(x_2, 1); +x_71 = 0; +x_72 = lean_box(x_71); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_72); +lean_ctor_set(x_73, 1, x_3); +x_1 = x_73; +x_2 = x_70; +goto _start; +} +} +} +} +} +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition(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; uint8_t x_7; +x_2 = lean_ctor_get(x_1, 2); +x_3 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2; +x_4 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___spec__1(x_3, x_2); +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 0); +lean_inc(x_6); +lean_dec(x_4); +x_7 = lean_unbox(x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +uint8_t x_8; +lean_dec(x_5); +x_8 = 0; +return x_8; +} +else +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_ctor_get(x_5, 0); +lean_inc(x_9); +x_10 = lean_unbox(x_9); +lean_dec(x_9); +if (x_10 == 0) +{ +uint8_t x_11; +lean_dec(x_5); +x_11 = 0; +return x_11; +} +else +{ +lean_object* x_12; uint8_t x_13; +x_12 = lean_ctor_get(x_5, 1); +lean_inc(x_12); +lean_dec(x_5); +x_13 = lean_unbox(x_12); +lean_dec(x_12); +return x_13; +} +} +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_ctor_get(x_1, 0); +x_5 = !lean_is_exclusive(x_4); +if (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_11; +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_ctor_get(x_4, 0); +x_8 = lean_ctor_get(x_4, 1); +x_9 = lean_ctor_get(x_4, 2); +x_10 = lean_ctor_get(x_4, 3); +x_11 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___spec__1(x_6); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_free_object(x_4); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_12 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_13 = l_unreachable_x21___rarg(x_12); +lean_ctor_set(x_1, 1, x_11); +lean_ctor_set(x_1, 0, x_13); +return x_1; +} +else +{ +uint8_t x_14; +lean_free_object(x_1); +x_14 = !lean_is_exclusive(x_10); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; +x_15 = lean_ctor_get(x_10, 1); +x_16 = lean_ctor_get(x_10, 0); +lean_dec(x_16); +lean_ctor_set(x_4, 3, x_15); +lean_ctor_set(x_10, 1, x_11); +lean_ctor_set(x_10, 0, x_4); +return x_10; +} +else +{ +lean_object* x_17; lean_object* x_18; +x_17 = lean_ctor_get(x_10, 1); +lean_inc(x_17); +lean_dec(x_10); +lean_ctor_set(x_4, 3, x_17); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_4); +lean_ctor_set(x_18, 1, x_11); +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; +x_19 = lean_ctor_get(x_1, 1); +x_20 = lean_ctor_get(x_4, 0); +x_21 = lean_ctor_get(x_4, 1); +x_22 = lean_ctor_get(x_4, 2); +x_23 = lean_ctor_get(x_4, 3); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_4); +x_24 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___spec__1(x_19); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_25; lean_object* x_26; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_20); +x_25 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_26 = l_unreachable_x21___rarg(x_25); +lean_ctor_set(x_1, 1, x_24); +lean_ctor_set(x_1, 0, x_26); +return x_1; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +lean_free_object(x_1); +x_27 = lean_ctor_get(x_23, 1); +lean_inc(x_27); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_28 = x_23; +} else { + lean_dec_ref(x_23); + x_28 = lean_box(0); +} +x_29 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_29, 0, x_20); +lean_ctor_set(x_29, 1, x_21); +lean_ctor_set(x_29, 2, x_22); +lean_ctor_set(x_29, 3, x_27); +if (lean_is_scalar(x_28)) { + x_30 = lean_alloc_ctor(1, 2, 0); +} else { + x_30 = x_28; +} +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_24); +return x_30; +} +} +} +else +{ +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_31 = lean_ctor_get(x_1, 0); +x_32 = lean_ctor_get(x_1, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_1); +x_33 = lean_ctor_get(x_31, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_31, 1); +lean_inc(x_34); +x_35 = lean_ctor_get(x_31, 2); +lean_inc(x_35); +x_36 = lean_ctor_get(x_31, 3); +lean_inc(x_36); +if (lean_is_exclusive(x_31)) { + lean_ctor_release(x_31, 0); + lean_ctor_release(x_31, 1); + lean_ctor_release(x_31, 2); + lean_ctor_release(x_31, 3); + x_37 = x_31; +} else { + lean_dec_ref(x_31); + x_37 = lean_box(0); +} +x_38 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___spec__1(x_32); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_37); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +x_39 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_40 = l_unreachable_x21___rarg(x_39); +x_41 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_38); +return x_41; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_42 = lean_ctor_get(x_36, 1); +lean_inc(x_42); +if (lean_is_exclusive(x_36)) { + lean_ctor_release(x_36, 0); + lean_ctor_release(x_36, 1); + x_43 = x_36; +} else { + lean_dec_ref(x_36); + x_43 = lean_box(0); +} +if (lean_is_scalar(x_37)) { + x_44 = lean_alloc_ctor(0, 4, 0); +} else { + x_44 = x_37; +} +lean_ctor_set(x_44, 0, x_33); +lean_ctor_set(x_44, 1, x_34); +lean_ctor_set(x_44, 2, x_35); +lean_ctor_set(x_44, 3, x_42); +if (lean_is_scalar(x_43)) { + x_45 = lean_alloc_ctor(1, 2, 0); +} else { + x_45 = x_43; +} +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_38); +return x_45; +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("match"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("non variable step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__4; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_23; uint8_t x_24; +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +x_23 = lean_ctor_get(x_5, 4); +lean_inc(x_23); +x_24 = lean_ctor_get_uint8(x_23, sizeof(void*)*1); +lean_dec(x_23); +if (x_24 == 0) +{ +x_7 = x_5; +goto block_22; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; +x_25 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_26 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_25, x_4, x_5); +x_27 = lean_ctor_get(x_26, 0); +lean_inc(x_27); +x_28 = lean_unbox(x_27); +lean_dec(x_27); +if (x_28 == 0) +{ +lean_object* x_29; +x_29 = lean_ctor_get(x_26, 1); +lean_inc(x_29); +lean_dec(x_26); +x_7 = x_29; +goto block_22; +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_30 = lean_ctor_get(x_26, 1); +lean_inc(x_30); +lean_dec(x_26); +x_31 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__5; +x_32 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_25, x_31, x_4, x_30); +x_33 = lean_ctor_get(x_32, 1); +lean_inc(x_33); +lean_dec(x_32); +x_7 = x_33; +goto block_22; +} +} +block_22: +{ +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_8 = l_Lean_Meta_isClassQuick___main___closed__1; +x_9 = l_unreachable_x21___rarg(x_8); +x_10 = lean_apply_2(x_9, x_4, x_7); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; +x_11 = lean_ctor_get(x_6, 1); +lean_inc(x_11); +lean_dec(x_6); +x_12 = lean_ctor_get(x_2, 2); +lean_inc(x_12); +x_13 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___spec__1(x_12); +x_14 = !lean_is_exclusive(x_2); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_2, 2); +lean_dec(x_15); +x_16 = lean_ctor_get(x_2, 1); +lean_dec(x_16); +lean_ctor_set(x_2, 2, x_13); +lean_ctor_set(x_2, 1, x_11); +x_17 = lean_apply_4(x_1, x_2, x_3, x_4, x_7); +return x_17; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_18 = lean_ctor_get(x_2, 0); +x_19 = lean_ctor_get(x_2, 3); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_2); +x_20 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_11); +lean_ctor_set(x_20, 2, x_13); +lean_ctor_set(x_20, 3, x_19); +x_21 = lean_apply_4(x_1, x_20, x_3, x_4, x_7); +return x_21; +} +} +} +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__4(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; size_t x_7; size_t x_8; lean_object* x_9; lean_object* x_10; +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_ctor_get(x_2, 1); +x_6 = lean_array_get_size(x_1); +x_7 = lean_usize_of_nat(x_4); +x_8 = lean_usize_modn(x_7, x_6); +lean_dec(x_6); +x_9 = lean_array_uget(x_1, x_8); +lean_ctor_set(x_2, 1, x_9); +x_10 = lean_array_uset(x_1, x_8, x_2); +x_1 = x_10; +x_2 = x_5; +goto _start; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; size_t x_15; size_t x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_12 = lean_ctor_get(x_2, 0); +x_13 = lean_ctor_get(x_2, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_2); +x_14 = lean_array_get_size(x_1); +x_15 = lean_usize_of_nat(x_12); +x_16 = lean_usize_modn(x_15, x_14); +lean_dec(x_14); +x_17 = lean_array_uget(x_1, x_16); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_12); +lean_ctor_set(x_18, 1, x_17); +x_19 = lean_array_uset(x_1, x_16, x_18); +x_1 = x_19; +x_2 = x_13; +goto _start; +} +} +} +} +lean_object* l_Std_HashSetImp_moveEntries___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__3(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_dec(x_2); +lean_dec(x_1); +return x_3; +} +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; +x_6 = lean_array_fget(x_2, x_1); +x_7 = lean_box(0); +x_8 = lean_array_fset(x_2, x_1, x_7); +x_9 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__4(x_3, x_6); +x_10 = lean_unsigned_to_nat(1u); +x_11 = lean_nat_add(x_1, x_10); +lean_dec(x_1); +x_1 = x_11; +x_2 = x_8; +x_3 = x_9; +goto _start; +} +} +} +lean_object* l_Std_HashSetImp_expand___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__2(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; +x_3 = lean_array_get_size(x_2); +x_4 = lean_unsigned_to_nat(2u); +x_5 = lean_nat_mul(x_3, x_4); +lean_dec(x_3); +x_6 = lean_box(0); +x_7 = lean_mk_array(x_5, x_6); +x_8 = lean_unsigned_to_nat(0u); +x_9 = l_Std_HashSetImp_moveEntries___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__3(x_8, x_2, x_7); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_1); +lean_ctor_set(x_10, 1, x_9); +return x_10; +} +} +lean_object* l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_3); +return x_1; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_nat_dec_eq(x_5, x_2); +if (x_7 == 0) +{ +lean_object* x_8; +x_8 = l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(x_6, x_2, x_3); +lean_ctor_set(x_1, 1, x_8); +return x_1; +} +else +{ +lean_dec(x_5); +lean_ctor_set(x_1, 0, x_3); +return x_1; +} +} +else +{ +lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_1); +x_11 = lean_nat_dec_eq(x_9, x_2); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +x_12 = l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(x_10, x_2, x_3); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_9); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +else +{ +lean_object* x_14; +lean_dec(x_9); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_3); +lean_ctor_set(x_14, 1, x_10); +return x_14; +} +} +} +} +} +lean_object* l_Std_HashSetImp_insert___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; size_t x_7; size_t x_8; lean_object* x_9; uint8_t x_10; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_array_get_size(x_5); +x_7 = lean_usize_of_nat(x_2); +x_8 = lean_usize_modn(x_7, x_6); +x_9 = lean_array_uget(x_5, x_8); +x_10 = l_List_elem___main___at_Lean_Occurrences_contains___spec__1(x_2, x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_4, x_11); +lean_dec(x_4); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_2); +lean_ctor_set(x_13, 1, x_9); +x_14 = lean_array_uset(x_5, x_8, x_13); +x_15 = lean_nat_dec_le(x_12, x_6); +lean_dec(x_6); +if (x_15 == 0) +{ +lean_object* x_16; +lean_free_object(x_1); +x_16 = l_Std_HashSetImp_expand___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__2(x_12, x_14); +return x_16; +} +else +{ +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_12); +return x_1; +} +} +else +{ +lean_object* x_17; lean_object* x_18; +lean_dec(x_6); +lean_inc(x_2); +x_17 = l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(x_9, x_2, x_2); +lean_dec(x_2); +x_18 = lean_array_uset(x_5, x_8, x_17); +lean_ctor_set(x_1, 1, x_18); +return x_1; +} +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; size_t x_22; size_t x_23; lean_object* x_24; uint8_t x_25; +x_19 = lean_ctor_get(x_1, 0); +x_20 = lean_ctor_get(x_1, 1); +lean_inc(x_20); +lean_inc(x_19); +lean_dec(x_1); +x_21 = lean_array_get_size(x_20); +x_22 = lean_usize_of_nat(x_2); +x_23 = lean_usize_modn(x_22, x_21); +x_24 = lean_array_uget(x_20, x_23); +x_25 = l_List_elem___main___at_Lean_Occurrences_contains___spec__1(x_2, x_24); +if (x_25 == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_26 = lean_unsigned_to_nat(1u); +x_27 = lean_nat_add(x_19, x_26); +lean_dec(x_19); +x_28 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_28, 0, x_2); +lean_ctor_set(x_28, 1, x_24); +x_29 = lean_array_uset(x_20, x_23, x_28); +x_30 = lean_nat_dec_le(x_27, x_21); +lean_dec(x_21); +if (x_30 == 0) +{ +lean_object* x_31; +x_31 = l_Std_HashSetImp_expand___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__2(x_27, x_29); +return x_31; +} +else +{ +lean_object* x_32; +x_32 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_32, 0, x_27); +lean_ctor_set(x_32, 1, x_29); +return x_32; +} +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +lean_dec(x_21); +lean_inc(x_2); +x_33 = l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(x_24, x_2, x_2); +lean_dec(x_2); +x_34 = lean_array_uset(x_20, x_23, x_33); +x_35 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_35, 0, x_19); +lean_ctor_set(x_35, 1, x_34); +return x_35; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_1, 2); +lean_inc(x_5); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_ctor_get(x_1, 0); +lean_inc(x_6); +x_7 = !lean_is_exclusive(x_2); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_2, 1); +x_9 = lean_ctor_get(x_1, 3); +lean_inc(x_9); +lean_dec(x_1); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_8); +lean_ctor_set(x_2, 1, x_10); +x_11 = 1; +x_12 = l_Lean_Meta_admit(x_6, x_11, x_3, x_4); +if (lean_obj_tag(x_12) == 0) +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_dec(x_14); +lean_ctor_set(x_12, 0, x_2); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; +x_15 = lean_ctor_get(x_12, 1); +lean_inc(x_15); +lean_dec(x_12); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_2); +lean_ctor_set(x_16, 1, x_15); +return x_16; +} +} +else +{ +uint8_t x_17; +lean_dec(x_2); +x_17 = !lean_is_exclusive(x_12); +if (x_17 == 0) +{ +return x_12; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_12, 0); +x_19 = lean_ctor_get(x_12, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_12); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; lean_object* x_27; +x_21 = lean_ctor_get(x_2, 0); +x_22 = lean_ctor_get(x_2, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_2); +x_23 = lean_ctor_get(x_1, 3); +lean_inc(x_23); +lean_dec(x_1); +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_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_21); +lean_ctor_set(x_25, 1, x_24); +x_26 = 1; +x_27 = l_Lean_Meta_admit(x_6, x_26, x_3, x_4); +if (lean_obj_tag(x_27) == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_27, 1); +lean_inc(x_28); +if (lean_is_exclusive(x_27)) { + lean_ctor_release(x_27, 0); + lean_ctor_release(x_27, 1); + x_29 = x_27; +} else { + lean_dec_ref(x_27); + x_29 = lean_box(0); +} +if (lean_is_scalar(x_29)) { + x_30 = lean_alloc_ctor(0, 2, 0); +} else { + x_30 = x_29; +} +lean_ctor_set(x_30, 0, x_25); +lean_ctor_set(x_30, 1, x_28); +return x_30; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +lean_dec(x_25); +x_31 = lean_ctor_get(x_27, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_27, 1); +lean_inc(x_32); +if (lean_is_exclusive(x_27)) { + lean_ctor_release(x_27, 0); + lean_ctor_release(x_27, 1); + x_33 = x_27; +} else { + lean_dec_ref(x_27); + x_33 = lean_box(0); +} +if (lean_is_scalar(x_33)) { + x_34 = lean_alloc_ctor(1, 2, 0); +} else { + x_34 = x_33; +} +lean_ctor_set(x_34, 0, x_31); +lean_ctor_set(x_34, 1, x_32); +return x_34; +} +} +} +else +{ +lean_object* x_35; lean_object* x_36; uint8_t x_37; +x_35 = lean_ctor_get(x_5, 0); +lean_inc(x_35); +lean_dec(x_5); +x_36 = lean_ctor_get(x_35, 1); +lean_inc(x_36); +x_37 = !lean_is_exclusive(x_2); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_38 = lean_ctor_get(x_2, 0); +x_39 = lean_ctor_get(x_35, 0); +lean_inc(x_39); +lean_dec(x_35); +x_40 = l_Std_HashSetImp_insert___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__1(x_38, x_39); +lean_ctor_set(x_2, 0, x_40); +x_41 = l_Lean_Meta_DepElim_assignGoalOf(x_1, x_36, x_3, x_4); +if (lean_obj_tag(x_41) == 0) +{ +uint8_t x_42; +x_42 = !lean_is_exclusive(x_41); +if (x_42 == 0) +{ +lean_object* x_43; +x_43 = lean_ctor_get(x_41, 0); +lean_dec(x_43); +lean_ctor_set(x_41, 0, x_2); +return x_41; +} +else +{ +lean_object* x_44; lean_object* x_45; +x_44 = lean_ctor_get(x_41, 1); +lean_inc(x_44); +lean_dec(x_41); +x_45 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_45, 0, x_2); +lean_ctor_set(x_45, 1, x_44); +return x_45; +} +} +else +{ +uint8_t x_46; +lean_dec(x_2); +x_46 = !lean_is_exclusive(x_41); +if (x_46 == 0) +{ +return x_41; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_41, 0); +x_48 = lean_ctor_get(x_41, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_41); +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 +{ +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_50 = lean_ctor_get(x_2, 0); +x_51 = lean_ctor_get(x_2, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_2); +x_52 = lean_ctor_get(x_35, 0); +lean_inc(x_52); +lean_dec(x_35); +x_53 = l_Std_HashSetImp_insert___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__1(x_50, x_52); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_51); +x_55 = l_Lean_Meta_DepElim_assignGoalOf(x_1, x_36, x_3, x_4); +if (lean_obj_tag(x_55) == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_55, 1); +lean_inc(x_56); +if (lean_is_exclusive(x_55)) { + lean_ctor_release(x_55, 0); + lean_ctor_release(x_55, 1); + x_57 = x_55; +} else { + lean_dec_ref(x_55); + x_57 = lean_box(0); +} +if (lean_is_scalar(x_57)) { + x_58 = lean_alloc_ctor(0, 2, 0); +} else { + x_58 = x_57; +} +lean_ctor_set(x_58, 0, x_54); +lean_ctor_set(x_58, 1, x_56); +return x_58; +} +else +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; +lean_dec(x_54); +x_59 = lean_ctor_get(x_55, 0); +lean_inc(x_59); +x_60 = lean_ctor_get(x_55, 1); +lean_inc(x_60); +if (lean_is_exclusive(x_55)) { + lean_ctor_release(x_55, 0); + lean_ctor_release(x_55, 1); + x_61 = x_55; +} else { + lean_dec_ref(x_55); + x_61 = lean_box(0); +} +if (lean_is_scalar(x_61)) { + x_62 = lean_alloc_ctor(1, 2, 0); +} else { + x_62 = x_61; +} +lean_ctor_set(x_62, 0, x_59); +lean_ctor_set(x_62, 1, x_60); +return x_62; +} +} +} +} +} +lean_object* l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_replace___main___at___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___spec__5(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf___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_Lean_Meta_EqnCompiler_DepElim_21__processLeaf(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +return x_1; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_name_eq(x_4, x_2); +if (x_6 == 0) +{ +lean_object* x_7; +x_7 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_5, x_2); +lean_ctor_set(x_1, 1, x_7); +return x_1; +} +else +{ +lean_free_object(x_1); +lean_dec(x_4); +return x_5; +} +} +else +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = lean_name_eq(x_8, x_2); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_9, x_2); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_8); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +else +{ +lean_dec(x_8); +return x_9; +} +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +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; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_7, x_2, x_3); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(x_8, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_18 = lean_ctor_get(x_1, 0); +x_19 = lean_ctor_get(x_1, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_1); +x_20 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_18, x_2, x_3); +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_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(x_19, x_2, x_22); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_26 = x_23; +} else { + lean_dec_ref(x_23); + x_26 = lean_box(0); +} +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_21); +lean_ctor_set(x_27, 1, x_24); +if (lean_is_scalar(x_26)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_26; +} +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_25); +return x_28; +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_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_4); +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_25; +x_7 = lean_ctor_get(x_2, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +if (lean_is_exclusive(x_2)) { + lean_ctor_release(x_2, 0); + lean_ctor_release(x_2, 1); + x_9 = x_2; +} else { + lean_dec_ref(x_2); + x_9 = lean_box(0); +} +x_25 = lean_ctor_get(x_7, 3); +lean_inc(x_25); +if (lean_obj_tag(x_25) == 0) +{ +x_10 = x_7; +x_11 = x_4; +goto block_24; +} +else +{ +lean_object* x_26; +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +if (lean_obj_tag(x_26) == 5) +{ +uint8_t x_27; +x_27 = !lean_is_exclusive(x_7); +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_28 = lean_ctor_get(x_7, 0); +x_29 = lean_ctor_get(x_7, 1); +x_30 = lean_ctor_get(x_7, 2); +x_31 = lean_ctor_get(x_7, 3); +lean_dec(x_31); +x_32 = !lean_is_exclusive(x_25); +if (x_32 == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_33 = lean_ctor_get(x_25, 1); +x_34 = lean_ctor_get(x_25, 0); +lean_dec(x_34); +x_35 = lean_ctor_get(x_26, 1); +lean_inc(x_35); +x_36 = lean_ctor_get(x_26, 2); +lean_inc(x_36); +lean_dec(x_26); +lean_inc(x_1); +lean_inc(x_35); +x_37 = l_Lean_Meta_assignExprMVar(x_35, x_1, x_3, x_4); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_38 = lean_ctor_get(x_37, 1); +lean_inc(x_38); +lean_dec(x_37); +x_39 = l_Lean_Meta_instantiateMVars(x_29, x_3, x_38); +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_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_30, x_35); +lean_dec(x_35); +lean_ctor_set(x_25, 0, x_36); +x_43 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(x_25, x_3, x_41); +x_44 = lean_ctor_get(x_43, 0); +lean_inc(x_44); +x_45 = lean_ctor_get(x_43, 1); +lean_inc(x_45); +lean_dec(x_43); +lean_ctor_set(x_7, 3, x_44); +lean_ctor_set(x_7, 2, x_42); +lean_ctor_set(x_7, 1, x_40); +x_10 = x_7; +x_11 = x_45; +goto block_24; +} +else +{ +uint8_t x_46; +lean_dec(x_36); +lean_dec(x_35); +lean_free_object(x_25); +lean_dec(x_33); +lean_free_object(x_7); +lean_dec(x_30); +lean_dec(x_29); +lean_dec(x_28); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_1); +x_46 = !lean_is_exclusive(x_37); +if (x_46 == 0) +{ +return x_37; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_37, 0); +x_48 = lean_ctor_get(x_37, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_37); +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 +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_50 = lean_ctor_get(x_25, 1); +lean_inc(x_50); +lean_dec(x_25); +x_51 = lean_ctor_get(x_26, 1); +lean_inc(x_51); +x_52 = lean_ctor_get(x_26, 2); +lean_inc(x_52); +lean_dec(x_26); +lean_inc(x_1); +lean_inc(x_51); +x_53 = l_Lean_Meta_assignExprMVar(x_51, x_1, x_3, x_4); +if (lean_obj_tag(x_53) == 0) +{ +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_54 = lean_ctor_get(x_53, 1); +lean_inc(x_54); +lean_dec(x_53); +x_55 = l_Lean_Meta_instantiateMVars(x_29, x_3, x_54); +x_56 = lean_ctor_get(x_55, 0); +lean_inc(x_56); +x_57 = lean_ctor_get(x_55, 1); +lean_inc(x_57); +lean_dec(x_55); +x_58 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_30, x_51); +lean_dec(x_51); +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_52); +lean_ctor_set(x_59, 1, x_50); +x_60 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(x_59, x_3, x_57); +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); +lean_ctor_set(x_7, 3, x_61); +lean_ctor_set(x_7, 2, x_58); +lean_ctor_set(x_7, 1, x_56); +x_10 = x_7; +x_11 = x_62; +goto block_24; +} +else +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +lean_dec(x_52); +lean_dec(x_51); +lean_dec(x_50); +lean_free_object(x_7); +lean_dec(x_30); +lean_dec(x_29); +lean_dec(x_28); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_1); +x_63 = lean_ctor_get(x_53, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_53, 1); +lean_inc(x_64); +if (lean_is_exclusive(x_53)) { + lean_ctor_release(x_53, 0); + lean_ctor_release(x_53, 1); + x_65 = x_53; +} else { + lean_dec_ref(x_53); + x_65 = lean_box(0); +} +if (lean_is_scalar(x_65)) { + x_66 = lean_alloc_ctor(1, 2, 0); +} else { + x_66 = x_65; +} +lean_ctor_set(x_66, 0, x_63); +lean_ctor_set(x_66, 1, x_64); +return x_66; +} +} +} +else +{ +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; +x_67 = lean_ctor_get(x_7, 0); +x_68 = lean_ctor_get(x_7, 1); +x_69 = lean_ctor_get(x_7, 2); +lean_inc(x_69); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_7); +x_70 = lean_ctor_get(x_25, 1); +lean_inc(x_70); +if (lean_is_exclusive(x_25)) { + lean_ctor_release(x_25, 0); + lean_ctor_release(x_25, 1); + x_71 = x_25; +} else { + lean_dec_ref(x_25); + x_71 = lean_box(0); +} +x_72 = lean_ctor_get(x_26, 1); +lean_inc(x_72); +x_73 = lean_ctor_get(x_26, 2); +lean_inc(x_73); +lean_dec(x_26); +lean_inc(x_1); +lean_inc(x_72); +x_74 = l_Lean_Meta_assignExprMVar(x_72, x_1, x_3, x_4); +if (lean_obj_tag(x_74) == 0) +{ +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; +x_75 = lean_ctor_get(x_74, 1); +lean_inc(x_75); +lean_dec(x_74); +x_76 = l_Lean_Meta_instantiateMVars(x_68, x_3, x_75); +x_77 = lean_ctor_get(x_76, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_76, 1); +lean_inc(x_78); +lean_dec(x_76); +x_79 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_69, x_72); +lean_dec(x_72); +if (lean_is_scalar(x_71)) { + x_80 = lean_alloc_ctor(1, 2, 0); +} else { + x_80 = x_71; +} +lean_ctor_set(x_80, 0, x_73); +lean_ctor_set(x_80, 1, x_70); +x_81 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(x_80, x_3, x_78); +x_82 = lean_ctor_get(x_81, 0); +lean_inc(x_82); +x_83 = lean_ctor_get(x_81, 1); +lean_inc(x_83); +lean_dec(x_81); +x_84 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_84, 0, x_67); +lean_ctor_set(x_84, 1, x_77); +lean_ctor_set(x_84, 2, x_79); +lean_ctor_set(x_84, 3, x_82); +x_10 = x_84; +x_11 = x_83; +goto block_24; +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; +lean_dec(x_73); +lean_dec(x_72); +lean_dec(x_71); +lean_dec(x_70); +lean_dec(x_69); +lean_dec(x_68); +lean_dec(x_67); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_1); +x_85 = lean_ctor_get(x_74, 0); +lean_inc(x_85); +x_86 = lean_ctor_get(x_74, 1); +lean_inc(x_86); +if (lean_is_exclusive(x_74)) { + lean_ctor_release(x_74, 0); + lean_ctor_release(x_74, 1); + x_87 = x_74; +} else { + lean_dec_ref(x_74); + x_87 = lean_box(0); +} +if (lean_is_scalar(x_87)) { + x_88 = lean_alloc_ctor(1, 2, 0); +} else { + x_88 = x_87; +} +lean_ctor_set(x_88, 0, x_85); +lean_ctor_set(x_88, 1, x_86); +return x_88; +} +} +} +else +{ +lean_dec(x_26); +lean_dec(x_25); +x_10 = x_7; +x_11 = x_4; +goto block_24; +} +} +block_24: +{ +lean_object* x_12; +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3(x_1, x_8, x_3, x_11); +if (lean_obj_tag(x_12) == 0) +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_12, 0); +if (lean_is_scalar(x_9)) { + x_15 = lean_alloc_ctor(1, 2, 0); +} else { + x_15 = x_9; +} +lean_ctor_set(x_15, 0, x_10); +lean_ctor_set(x_15, 1, x_14); +lean_ctor_set(x_12, 0, x_15); +return x_12; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_12, 0); +x_17 = lean_ctor_get(x_12, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_12); +if (lean_is_scalar(x_9)) { + x_18 = lean_alloc_ctor(1, 2, 0); +} else { + x_18 = x_9; +} +lean_ctor_set(x_18, 0, x_10); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +return x_19; +} +} +else +{ +uint8_t x_20; +lean_dec(x_10); +lean_dec(x_9); +x_20 = !lean_is_exclusive(x_12); +if (x_20 == 0) +{ +return x_12; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_12, 0); +x_22 = lean_ctor_get(x_12, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_12); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("as-pattern step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___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_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___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_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_29; uint8_t x_30; +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +x_29 = lean_ctor_get(x_5, 4); +lean_inc(x_29); +x_30 = lean_ctor_get_uint8(x_29, sizeof(void*)*1); +lean_dec(x_29); +if (x_30 == 0) +{ +x_7 = x_5; +goto block_28; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; uint8_t x_34; +x_31 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_32 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_31, x_4, x_5); +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_unbox(x_33); +lean_dec(x_33); +if (x_34 == 0) +{ +lean_object* x_35; +x_35 = lean_ctor_get(x_32, 1); +lean_inc(x_35); +lean_dec(x_32); +x_7 = x_35; +goto block_28; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_36 = lean_ctor_get(x_32, 1); +lean_inc(x_36); +lean_dec(x_32); +x_37 = l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__3; +x_38 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_31, x_37, x_4, x_36); +x_39 = lean_ctor_get(x_38, 1); +lean_inc(x_39); +lean_dec(x_38); +x_7 = x_39; +goto block_28; +} +} +block_28: +{ +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_8 = l_Lean_Meta_isClassQuick___main___closed__1; +x_9 = l_unreachable_x21___rarg(x_8); +x_10 = lean_apply_2(x_9, x_4, x_7); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_6, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_2, 2); +lean_inc(x_12); +x_13 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3(x_11, x_12, x_4, x_7); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = !lean_is_exclusive(x_2); +if (x_16 == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_2, 2); +lean_dec(x_17); +x_18 = lean_ctor_get(x_2, 1); +lean_dec(x_18); +lean_ctor_set(x_2, 2, x_14); +x_19 = lean_apply_4(x_1, x_2, x_3, x_4, x_15); +return x_19; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = lean_ctor_get(x_2, 0); +x_21 = lean_ctor_get(x_2, 3); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_2); +x_22 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_6); +lean_ctor_set(x_22, 2, x_14); +lean_ctor_set(x_22, 3, x_21); +x_23 = lean_apply_4(x_1, x_22, x_3, x_4, x_15); +return x_23; +} +} +else +{ +uint8_t x_24; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_24 = !lean_is_exclusive(x_13); +if (x_24 == 0) +{ +return x_13; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_13, 0); +x_26 = lean_ctor_get(x_13, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_13); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; +} +} +} +} +} +} +lean_object* l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__2(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3___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_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__3(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +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; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_7, x_2, x_3); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(x_8, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_18 = lean_ctor_get(x_1, 0); +x_19 = lean_ctor_get(x_1, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_1); +x_20 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_18, x_2, x_3); +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_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(x_19, x_2, x_22); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_26 = x_23; +} else { + lean_dec_ref(x_23); + x_26 = lean_box(0); +} +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_21); +lean_ctor_set(x_27, 1, x_24); +if (lean_is_scalar(x_26)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_26; +} +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_25); +return x_28; +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +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_25; +x_7 = lean_ctor_get(x_2, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +if (lean_is_exclusive(x_2)) { + lean_ctor_release(x_2, 0); + lean_ctor_release(x_2, 1); + x_9 = x_2; +} else { + lean_dec_ref(x_2); + x_9 = lean_box(0); +} +x_25 = lean_ctor_get(x_7, 3); +lean_inc(x_25); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_dec(x_7); +x_26 = l_Lean_Meta_isClassQuick___main___closed__1; +x_27 = l_unreachable_x21___rarg(x_26); +lean_inc(x_3); +x_28 = lean_apply_2(x_27, x_3, x_4); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; lean_object* x_30; +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_10 = x_29; +x_11 = x_30; +goto block_24; +} +else +{ +uint8_t x_31; +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_31 = !lean_is_exclusive(x_28); +if (x_31 == 0) +{ +return x_28; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_28, 0); +x_33 = lean_ctor_get(x_28, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_28); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +else +{ +lean_object* x_35; +x_35 = lean_ctor_get(x_25, 0); +lean_inc(x_35); +switch (lean_obj_tag(x_35)) { +case 0: +{ +uint8_t x_36; +lean_dec(x_35); +x_36 = !lean_is_exclusive(x_7); +if (x_36 == 0) +{ +lean_object* x_37; lean_object* x_38; +x_37 = lean_ctor_get(x_7, 3); +lean_dec(x_37); +x_38 = lean_ctor_get(x_25, 1); +lean_inc(x_38); +lean_dec(x_25); +lean_ctor_set(x_7, 3, x_38); +x_10 = x_7; +x_11 = x_4; +goto block_24; +} +else +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_39 = lean_ctor_get(x_7, 0); +x_40 = lean_ctor_get(x_7, 1); +x_41 = lean_ctor_get(x_7, 2); +lean_inc(x_41); +lean_inc(x_40); +lean_inc(x_39); +lean_dec(x_7); +x_42 = lean_ctor_get(x_25, 1); +lean_inc(x_42); +lean_dec(x_25); +x_43 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_43, 0, x_39); +lean_ctor_set(x_43, 1, x_40); +lean_ctor_set(x_43, 2, x_41); +lean_ctor_set(x_43, 3, x_42); +x_10 = x_43; +x_11 = x_4; +goto block_24; +} +} +case 1: +{ +uint8_t x_44; +x_44 = !lean_is_exclusive(x_7); +if (x_44 == 0) +{ +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_45 = lean_ctor_get(x_7, 0); +x_46 = lean_ctor_get(x_7, 1); +x_47 = lean_ctor_get(x_7, 2); +x_48 = lean_ctor_get(x_7, 3); +lean_dec(x_48); +x_49 = lean_ctor_get(x_25, 1); +lean_inc(x_49); +lean_dec(x_25); +x_50 = lean_ctor_get(x_35, 1); +lean_inc(x_50); +lean_dec(x_35); +lean_inc(x_1); +lean_inc(x_50); +x_51 = l_Lean_Meta_assignExprMVar(x_50, x_1, x_3, x_4); +if (lean_obj_tag(x_51) == 0) +{ +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; +x_52 = lean_ctor_get(x_51, 1); +lean_inc(x_52); +lean_dec(x_51); +x_53 = l_Lean_Meta_instantiateMVars(x_46, 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_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_47, x_50); +lean_dec(x_50); +x_57 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(x_49, x_3, x_55); +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_57, 1); +lean_inc(x_59); +lean_dec(x_57); +lean_ctor_set(x_7, 3, x_58); +lean_ctor_set(x_7, 2, x_56); +lean_ctor_set(x_7, 1, x_54); +x_10 = x_7; +x_11 = x_59; +goto block_24; +} +else +{ +uint8_t x_60; +lean_dec(x_50); +lean_dec(x_49); +lean_free_object(x_7); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_45); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_60 = !lean_is_exclusive(x_51); +if (x_60 == 0) +{ +return x_51; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_51, 0); +x_62 = lean_ctor_get(x_51, 1); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_51); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +return x_63; +} +} +} +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; +x_64 = lean_ctor_get(x_7, 0); +x_65 = lean_ctor_get(x_7, 1); +x_66 = lean_ctor_get(x_7, 2); +lean_inc(x_66); +lean_inc(x_65); +lean_inc(x_64); +lean_dec(x_7); +x_67 = lean_ctor_get(x_25, 1); +lean_inc(x_67); +lean_dec(x_25); +x_68 = lean_ctor_get(x_35, 1); +lean_inc(x_68); +lean_dec(x_35); +lean_inc(x_1); +lean_inc(x_68); +x_69 = l_Lean_Meta_assignExprMVar(x_68, x_1, x_3, x_4); +if (lean_obj_tag(x_69) == 0) +{ +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; +x_70 = lean_ctor_get(x_69, 1); +lean_inc(x_70); +lean_dec(x_69); +x_71 = l_Lean_Meta_instantiateMVars(x_65, x_3, x_70); +x_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +x_73 = lean_ctor_get(x_71, 1); +lean_inc(x_73); +lean_dec(x_71); +x_74 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_66, x_68); +lean_dec(x_68); +x_75 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(x_67, x_3, x_73); +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_alloc_ctor(0, 4, 0); +lean_ctor_set(x_78, 0, x_64); +lean_ctor_set(x_78, 1, x_72); +lean_ctor_set(x_78, 2, x_74); +lean_ctor_set(x_78, 3, x_76); +x_10 = x_78; +x_11 = x_77; +goto block_24; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +lean_dec(x_68); +lean_dec(x_67); +lean_dec(x_66); +lean_dec(x_65); +lean_dec(x_64); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_79 = lean_ctor_get(x_69, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_69, 1); +lean_inc(x_80); +if (lean_is_exclusive(x_69)) { + lean_ctor_release(x_69, 0); + lean_ctor_release(x_69, 1); + x_81 = x_69; +} else { + lean_dec_ref(x_69); + x_81 = lean_box(0); +} +if (lean_is_scalar(x_81)) { + x_82 = lean_alloc_ctor(1, 2, 0); +} else { + x_82 = x_81; +} +lean_ctor_set(x_82, 0, x_79); +lean_ctor_set(x_82, 1, x_80); +return x_82; +} +} +} +default: +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; +lean_dec(x_35); +lean_dec(x_25); +lean_dec(x_7); +x_83 = l_Lean_Meta_isClassQuick___main___closed__1; +x_84 = l_unreachable_x21___rarg(x_83); +lean_inc(x_3); +x_85 = lean_apply_2(x_84, x_3, x_4); +if (lean_obj_tag(x_85) == 0) +{ +lean_object* x_86; lean_object* x_87; +x_86 = lean_ctor_get(x_85, 0); +lean_inc(x_86); +x_87 = lean_ctor_get(x_85, 1); +lean_inc(x_87); +lean_dec(x_85); +x_10 = x_86; +x_11 = x_87; +goto block_24; +} +else +{ +uint8_t x_88; +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_88 = !lean_is_exclusive(x_85); +if (x_88 == 0) +{ +return x_85; +} +else +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; +x_89 = lean_ctor_get(x_85, 0); +x_90 = lean_ctor_get(x_85, 1); +lean_inc(x_90); +lean_inc(x_89); +lean_dec(x_85); +x_91 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_91, 0, x_89); +lean_ctor_set(x_91, 1, x_90); +return x_91; +} +} +} +} +} +block_24: +{ +lean_object* x_12; +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__2(x_1, x_8, x_3, x_11); +if (lean_obj_tag(x_12) == 0) +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_12, 0); +if (lean_is_scalar(x_9)) { + x_15 = lean_alloc_ctor(1, 2, 0); +} else { + x_15 = x_9; +} +lean_ctor_set(x_15, 0, x_10); +lean_ctor_set(x_15, 1, x_14); +lean_ctor_set(x_12, 0, x_15); +return x_12; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_12, 0); +x_17 = lean_ctor_get(x_12, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_12); +if (lean_is_scalar(x_9)) { + x_18 = lean_alloc_ctor(1, 2, 0); +} else { + x_18 = x_9; +} +lean_ctor_set(x_18, 0, x_10); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +return x_19; +} +} +else +{ +uint8_t x_20; +lean_dec(x_10); +lean_dec(x_9); +x_20 = !lean_is_exclusive(x_12); +if (x_20 == 0) +{ +return x_12; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_12, 0); +x_22 = lean_ctor_get(x_12, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_12); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("variable step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___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_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___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_Lean_Meta_EqnCompiler_DepElim_23__processVariable(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_30; uint8_t x_31; +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +x_30 = lean_ctor_get(x_5, 4); +lean_inc(x_30); +x_31 = lean_ctor_get_uint8(x_30, sizeof(void*)*1); +lean_dec(x_30); +if (x_31 == 0) +{ +x_7 = x_5; +goto block_29; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_32 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_33 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_32, x_4, x_5); +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_unbox(x_34); +lean_dec(x_34); +if (x_35 == 0) +{ +lean_object* x_36; +x_36 = lean_ctor_get(x_33, 1); +lean_inc(x_36); +lean_dec(x_33); +x_7 = x_36; +goto block_29; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_37 = lean_ctor_get(x_33, 1); +lean_inc(x_37); +lean_dec(x_33); +x_38 = l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__3; +x_39 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_32, x_38, x_4, x_37); +x_40 = lean_ctor_get(x_39, 1); +lean_inc(x_40); +lean_dec(x_39); +x_7 = x_40; +goto block_29; +} +} +block_29: +{ +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_8 = l_Lean_Meta_isClassQuick___main___closed__1; +x_9 = l_unreachable_x21___rarg(x_8); +x_10 = lean_apply_2(x_9, x_4, x_7); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_11 = lean_ctor_get(x_6, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_6, 1); +lean_inc(x_12); +lean_dec(x_6); +x_13 = lean_ctor_get(x_2, 2); +lean_inc(x_13); +lean_inc(x_4); +x_14 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__2(x_11, x_13, x_4, x_7); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = !lean_is_exclusive(x_2); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_2, 2); +lean_dec(x_18); +x_19 = lean_ctor_get(x_2, 1); +lean_dec(x_19); +lean_ctor_set(x_2, 2, x_15); +lean_ctor_set(x_2, 1, x_12); +x_20 = lean_apply_4(x_1, x_2, x_3, x_4, x_16); +return x_20; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_21 = lean_ctor_get(x_2, 0); +x_22 = lean_ctor_get(x_2, 3); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_2); +x_23 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_12); +lean_ctor_set(x_23, 2, x_15); +lean_ctor_set(x_23, 3, x_22); +x_24 = lean_apply_4(x_1, x_23, x_3, x_4, x_16); +return x_24; +} +} +else +{ +uint8_t x_25; +lean_dec(x_12); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_25 = !lean_is_exclusive(x_14); +if (x_25 == 0) +{ +return x_14; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_14, 0); +x_27 = lean_ctor_get(x_14, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_14); +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_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_ctor_get(x_2, 3); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +else +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_3, 0); +if (lean_obj_tag(x_5) == 2) +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_ctor_get(x_5, 1); +x_7 = lean_name_eq(x_6, x_1); +return x_7; +} +else +{ +uint8_t x_8; +x_8 = 0; +return x_8; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_FVarSubst_apply(x_1, x_5); +x_8 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_FVarSubst_apply(x_1, x_9); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1(x_1, x_10); +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* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__2(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +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_1, 1); +x_6 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__2(x_5); +if (lean_obj_tag(x_4) == 1) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_ctor_get(x_4, 0); +lean_inc(x_7); +lean_dec(x_4); +x_8 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_1, 1, x_6); +lean_ctor_set(x_1, 0, x_8); +return x_1; +} +else +{ +lean_object* x_9; +lean_dec(x_4); +x_9 = lean_box(1); +lean_ctor_set(x_1, 1, x_6); +lean_ctor_set(x_1, 0, x_9); +return x_1; +} +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_1, 0); +x_11 = lean_ctor_get(x_1, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_1); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__2(x_11); +if (lean_obj_tag(x_10) == 1) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_10, 0); +lean_inc(x_13); +lean_dec(x_10); +x_14 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_14, 0, x_13); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_12); +return x_15; +} +else +{ +lean_object* x_16; lean_object* x_17; +lean_dec(x_10); +x_16 = lean_box(1); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_16); +lean_ctor_set(x_17, 1, x_12); +return x_17; +} +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (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_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_Lean_Expr_fvarId_x21(x_1); +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_9, 1); +x_11 = l_Array_toList___rarg(x_10); +x_12 = lean_ctor_get(x_2, 1); +x_13 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__2(x_11); +lean_inc(x_12); +x_14 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +x_15 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_8, x_14, x_6); +lean_dec(x_14); +lean_dec(x_8); +x_16 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_16); +lean_ctor_set(x_3, 0, x_15); +return x_3; +} +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_object* x_28; +x_17 = lean_ctor_get(x_3, 0); +x_18 = lean_ctor_get(x_3, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_3); +x_19 = l_Lean_Expr_fvarId_x21(x_1); +x_20 = lean_ctor_get(x_2, 0); +x_21 = lean_ctor_get(x_20, 1); +x_22 = l_Array_toList___rarg(x_21); +x_23 = lean_ctor_get(x_2, 1); +x_24 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__2(x_22); +lean_inc(x_23); +x_25 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +x_26 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_19, x_25, x_17); +lean_dec(x_25); +lean_dec(x_19); +x_27 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3(x_1, x_2, x_18); +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_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_7, 2); +x_9 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_8, x_5); +x_10 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4(x_1, x_6); +lean_ctor_set(x_2, 1, x_10); +lean_ctor_set(x_2, 0, x_9); +return x_2; +} +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; +x_11 = lean_ctor_get(x_2, 0); +x_12 = lean_ctor_get(x_2, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_2); +x_13 = lean_ctor_get(x_1, 0); +x_14 = lean_ctor_get(x_13, 2); +x_15 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_14, x_11); +x_16 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4(x_1, x_12); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_4; +x_4 = l_List_reverse___rarg(x_3); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_2); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor(x_8, x_6); +if (x_9 == 0) +{ +lean_free_object(x_2); +lean_dec(x_6); +x_2 = x_7; +goto _start; +} +else +{ +lean_ctor_set(x_2, 1, x_3); +{ +lean_object* _tmp_1 = x_7; +lean_object* _tmp_2 = x_2; +x_2 = _tmp_1; +x_3 = _tmp_2; +} +goto _start; +} +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_12 = lean_ctor_get(x_2, 0); +x_13 = lean_ctor_get(x_2, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_2); +x_14 = lean_ctor_get(x_1, 1); +x_15 = l___private_Lean_Meta_EqnCompiler_DepElim_24__isFirstPatternCtor(x_14, x_12); +if (x_15 == 0) +{ +lean_dec(x_12); +x_2 = x_13; +goto _start; +} +else +{ +lean_object* x_17; +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_12); +lean_ctor_set(x_17, 1, x_3); +x_2 = x_13; +x_3 = x_17; +goto _start; +} +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__6(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_ctor_get(x_1, 0); +x_5 = !lean_is_exclusive(x_4); +if (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_11; +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_ctor_get(x_4, 0); +x_8 = lean_ctor_get(x_4, 1); +x_9 = lean_ctor_get(x_4, 2); +x_10 = lean_ctor_get(x_4, 3); +x_11 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__6(x_6); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_free_object(x_4); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_12 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_13 = l_unreachable_x21___rarg(x_12); +lean_ctor_set(x_1, 1, x_11); +lean_ctor_set(x_1, 0, x_13); +return x_1; +} +else +{ +lean_object* x_14; +lean_free_object(x_1); +x_14 = lean_ctor_get(x_10, 0); +lean_inc(x_14); +if (lean_obj_tag(x_14) == 2) +{ +uint8_t x_15; +x_15 = !lean_is_exclusive(x_10); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_10, 1); +x_17 = lean_ctor_get(x_10, 0); +lean_dec(x_17); +x_18 = lean_ctor_get(x_14, 4); +lean_inc(x_18); +lean_dec(x_14); +x_19 = l_List_append___rarg(x_18, x_16); +lean_ctor_set(x_4, 3, x_19); +lean_ctor_set(x_10, 1, x_11); +lean_ctor_set(x_10, 0, x_4); +return x_10; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = lean_ctor_get(x_10, 1); +lean_inc(x_20); +lean_dec(x_10); +x_21 = lean_ctor_get(x_14, 4); +lean_inc(x_21); +lean_dec(x_14); +x_22 = l_List_append___rarg(x_21, x_20); +lean_ctor_set(x_4, 3, x_22); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_4); +lean_ctor_set(x_23, 1, x_11); +return x_23; +} +} +else +{ +uint8_t x_24; +lean_dec(x_14); +lean_free_object(x_4); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +x_24 = !lean_is_exclusive(x_10); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_25 = lean_ctor_get(x_10, 1); +lean_dec(x_25); +x_26 = lean_ctor_get(x_10, 0); +lean_dec(x_26); +x_27 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_28 = l_unreachable_x21___rarg(x_27); +lean_ctor_set(x_10, 1, x_11); +lean_ctor_set(x_10, 0, x_28); +return x_10; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +lean_dec(x_10); +x_29 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_30 = l_unreachable_x21___rarg(x_29); +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_11); +return x_31; +} +} +} +} +else +{ +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_32 = lean_ctor_get(x_1, 1); +x_33 = lean_ctor_get(x_4, 0); +x_34 = lean_ctor_get(x_4, 1); +x_35 = lean_ctor_get(x_4, 2); +x_36 = lean_ctor_get(x_4, 3); +lean_inc(x_36); +lean_inc(x_35); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_4); +x_37 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__6(x_32); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_38; lean_object* x_39; +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +x_38 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_39 = l_unreachable_x21___rarg(x_38); +lean_ctor_set(x_1, 1, x_37); +lean_ctor_set(x_1, 0, x_39); +return x_1; +} +else +{ +lean_object* x_40; +lean_free_object(x_1); +x_40 = lean_ctor_get(x_36, 0); +lean_inc(x_40); +if (lean_obj_tag(x_40) == 2) +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_41 = lean_ctor_get(x_36, 1); +lean_inc(x_41); +if (lean_is_exclusive(x_36)) { + lean_ctor_release(x_36, 0); + lean_ctor_release(x_36, 1); + x_42 = x_36; +} else { + lean_dec_ref(x_36); + x_42 = lean_box(0); +} +x_43 = lean_ctor_get(x_40, 4); +lean_inc(x_43); +lean_dec(x_40); +x_44 = l_List_append___rarg(x_43, x_41); +x_45 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_45, 0, x_33); +lean_ctor_set(x_45, 1, x_34); +lean_ctor_set(x_45, 2, x_35); +lean_ctor_set(x_45, 3, x_44); +if (lean_is_scalar(x_42)) { + x_46 = lean_alloc_ctor(1, 2, 0); +} else { + x_46 = x_42; +} +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_37); +return x_46; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +lean_dec(x_40); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +if (lean_is_exclusive(x_36)) { + lean_ctor_release(x_36, 0); + lean_ctor_release(x_36, 1); + x_47 = x_36; +} else { + lean_dec_ref(x_36); + x_47 = lean_box(0); +} +x_48 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_49 = l_unreachable_x21___rarg(x_48); +if (lean_is_scalar(x_47)) { + x_50 = lean_alloc_ctor(1, 2, 0); +} else { + x_50 = x_47; +} +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_37); +return x_50; +} +} +} +} +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; +x_51 = lean_ctor_get(x_1, 0); +x_52 = lean_ctor_get(x_1, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_1); +x_53 = lean_ctor_get(x_51, 0); +lean_inc(x_53); +x_54 = lean_ctor_get(x_51, 1); +lean_inc(x_54); +x_55 = lean_ctor_get(x_51, 2); +lean_inc(x_55); +x_56 = lean_ctor_get(x_51, 3); +lean_inc(x_56); +if (lean_is_exclusive(x_51)) { + lean_ctor_release(x_51, 0); + lean_ctor_release(x_51, 1); + lean_ctor_release(x_51, 2); + lean_ctor_release(x_51, 3); + x_57 = x_51; +} else { + lean_dec_ref(x_51); + x_57 = lean_box(0); +} +x_58 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__6(x_52); +if (lean_obj_tag(x_56) == 0) +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; +lean_dec(x_57); +lean_dec(x_55); +lean_dec(x_54); +lean_dec(x_53); +x_59 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_60 = l_unreachable_x21___rarg(x_59); +x_61 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_61, 0, x_60); +lean_ctor_set(x_61, 1, x_58); +return x_61; +} +else +{ +lean_object* x_62; +x_62 = lean_ctor_get(x_56, 0); +lean_inc(x_62); +if (lean_obj_tag(x_62) == 2) +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_63 = lean_ctor_get(x_56, 1); +lean_inc(x_63); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + lean_ctor_release(x_56, 1); + x_64 = x_56; +} else { + lean_dec_ref(x_56); + x_64 = lean_box(0); +} +x_65 = lean_ctor_get(x_62, 4); +lean_inc(x_65); +lean_dec(x_62); +x_66 = l_List_append___rarg(x_65, x_63); +if (lean_is_scalar(x_57)) { + x_67 = lean_alloc_ctor(0, 4, 0); +} else { + x_67 = x_57; +} +lean_ctor_set(x_67, 0, x_53); +lean_ctor_set(x_67, 1, x_54); +lean_ctor_set(x_67, 2, x_55); +lean_ctor_set(x_67, 3, x_66); +if (lean_is_scalar(x_64)) { + x_68 = lean_alloc_ctor(1, 2, 0); +} else { + x_68 = x_64; +} +lean_ctor_set(x_68, 0, x_67); +lean_ctor_set(x_68, 1, x_58); +return x_68; +} +else +{ +lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; +lean_dec(x_62); +lean_dec(x_57); +lean_dec(x_55); +lean_dec(x_54); +lean_dec(x_53); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + lean_ctor_release(x_56, 1); + x_69 = x_56; +} else { + lean_dec_ref(x_56); + x_69 = lean_box(0); +} +x_70 = l_Lean_Meta_DepElim_Alt_Inhabited; +x_71 = l_unreachable_x21___rarg(x_70); +if (lean_is_scalar(x_69)) { + x_72 = lean_alloc_ctor(1, 2, 0); +} else { + x_72 = x_69; +} +lean_ctor_set(x_72, 0, x_71); +lean_ctor_set(x_72, 1, x_58); +return x_72; +} +} +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_2); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_2, 0); +x_9 = lean_ctor_get(x_2, 1); +lean_inc(x_3); +lean_inc(x_1); +x_10 = l_Lean_Meta_DepElim_Alt_applyFVarSubst(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__7(x_1, x_9, x_3, x_12); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_13, 0); +lean_ctor_set(x_2, 1, x_15); +lean_ctor_set(x_2, 0, x_11); +lean_ctor_set(x_13, 0, x_2); +return x_13; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_13, 0); +x_17 = lean_ctor_get(x_13, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_13); +lean_ctor_set(x_2, 1, x_16); +lean_ctor_set(x_2, 0, x_11); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +else +{ +uint8_t x_19; +lean_dec(x_11); +lean_free_object(x_2); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; +} +} +} +else +{ +uint8_t x_23; +lean_free_object(x_2); +lean_dec(x_9); +lean_dec(x_3); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_10); +if (x_23 == 0) +{ +return x_10; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_10, 0); +x_25 = lean_ctor_get(x_10, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_10); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_2, 0); +x_28 = lean_ctor_get(x_2, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_2); +lean_inc(x_3); +lean_inc(x_1); +x_29 = l_Lean_Meta_DepElim_Alt_applyFVarSubst(x_1, x_27, x_3, x_4); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__7(x_1, x_28, x_3, x_31); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_35 = x_32; +} else { + lean_dec_ref(x_32); + x_35 = lean_box(0); +} +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_33); +if (lean_is_scalar(x_35)) { + x_37 = lean_alloc_ctor(0, 2, 0); +} else { + x_37 = x_35; +} +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_38 = lean_ctor_get(x_32, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_32, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_40 = x_32; +} else { + lean_dec_ref(x_32); + x_40 = lean_box(0); +} +if (lean_is_scalar(x_40)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_40; +} +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +return x_41; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_28); +lean_dec(x_3); +lean_dec(x_1); +x_42 = lean_ctor_get(x_29, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_29, 1); +lean_inc(x_43); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + lean_ctor_release(x_29, 1); + x_44 = x_29; +} else { + lean_dec_ref(x_29); + x_44 = lean_box(0); +} +if (lean_is_scalar(x_44)) { + x_45 = lean_alloc_ctor(1, 2, 0); +} else { + x_45 = x_44; +} +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_43); +return x_45; +} +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +lean_dec(x_2); +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_2); +x_9 = l_Lean_Meta_DepElim_Alt_copy(x_7, x_2, x_3); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_8, x_2, x_11); +if (lean_obj_tag(x_12) == 0) +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +uint8_t x_18; +lean_dec(x_10); +lean_free_object(x_1); +x_18 = !lean_is_exclusive(x_12); +if (x_18 == 0) +{ +return x_12; +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_12, 0); +x_20 = lean_ctor_get(x_12, 1); +lean_inc(x_20); +lean_inc(x_19); +lean_dec(x_12); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +return x_21; +} +} +} +else +{ +uint8_t x_22; +lean_free_object(x_1); +lean_dec(x_8); +lean_dec(x_2); +x_22 = !lean_is_exclusive(x_9); +if (x_22 == 0) +{ +return x_9; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_9, 0); +x_24 = lean_ctor_get(x_9, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_9); +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; +} +} +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_1, 0); +x_27 = lean_ctor_get(x_1, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_1); +lean_inc(x_2); +x_28 = l_Lean_Meta_DepElim_Alt_copy(x_26, x_2, x_3); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +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_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_27, x_2, x_30); +if (lean_obj_tag(x_31) == 0) +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_31, 1); +lean_inc(x_33); +if (lean_is_exclusive(x_31)) { + lean_ctor_release(x_31, 0); + lean_ctor_release(x_31, 1); + x_34 = x_31; +} else { + lean_dec_ref(x_31); + x_34 = lean_box(0); +} +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_29); +lean_ctor_set(x_35, 1, x_32); +if (lean_is_scalar(x_34)) { + x_36 = lean_alloc_ctor(0, 2, 0); +} else { + x_36 = x_34; +} +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_33); +return x_36; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +lean_dec(x_29); +x_37 = lean_ctor_get(x_31, 0); +lean_inc(x_37); +x_38 = lean_ctor_get(x_31, 1); +lean_inc(x_38); +if (lean_is_exclusive(x_31)) { + lean_ctor_release(x_31, 0); + lean_ctor_release(x_31, 1); + x_39 = x_31; +} else { + lean_dec_ref(x_31); + x_39 = lean_box(0); +} +if (lean_is_scalar(x_39)) { + x_40 = lean_alloc_ctor(1, 2, 0); +} else { + x_40 = x_39; +} +lean_ctor_set(x_40, 0, x_37); +lean_ctor_set(x_40, 1, x_38); +return x_40; +} +} +else +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +lean_dec(x_27); +lean_dec(x_2); +x_41 = lean_ctor_get(x_28, 0); +lean_inc(x_41); +x_42 = lean_ctor_get(x_28, 1); +lean_inc(x_42); +if (lean_is_exclusive(x_28)) { + lean_ctor_release(x_28, 0); + lean_ctor_release(x_28, 1); + x_43 = x_28; +} else { + lean_dec_ref(x_28); + x_43 = lean_box(0); +} +if (lean_is_scalar(x_43)) { + x_44 = lean_alloc_ctor(1, 2, 0); +} else { + x_44 = x_43; +} +lean_ctor_set(x_44, 0, x_41); +lean_ctor_set(x_44, 1, x_42); +return x_44; +} +} +} +} +} +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__9(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, lean_object* x_11) { +_start: +{ +lean_object* x_12; uint8_t x_13; +x_12 = lean_array_get_size(x_7); +x_13 = lean_nat_dec_lt(x_8, x_12); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +lean_dec(x_10); +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_9); +lean_ctor_set(x_14, 1, x_11); +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_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; +x_15 = lean_array_fget(x_7, x_8); +x_16 = lean_unsigned_to_nat(1u); +x_17 = lean_nat_add(x_8, x_16); +lean_dec(x_8); +x_18 = lean_ctor_get(x_15, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +x_21 = lean_ctor_get(x_18, 2); +lean_inc(x_21); +lean_dec(x_18); +x_22 = l_Array_toList___rarg(x_20); +lean_dec(x_20); +lean_inc(x_4); +x_23 = l_List_append___rarg(x_22, x_4); +x_24 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1(x_21, x_23); +x_25 = lean_ctor_get(x_2, 3); +lean_inc(x_25); +x_26 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3(x_3, x_15, x_25); +x_27 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4(x_15, x_26); +x_28 = lean_ctor_get(x_2, 2); +lean_inc(x_28); +x_29 = lean_box(0); +x_30 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__5(x_15, x_28, x_29); +lean_dec(x_15); +x_31 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__6(x_30); +lean_inc(x_10); +x_32 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__7(x_21, x_31, x_10, x_11); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +lean_dec(x_32); +lean_inc(x_10); +x_35 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_33, x_10, x_34); +if (lean_obj_tag(x_35) == 0) +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +x_38 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_38, 0, x_19); +lean_ctor_set(x_38, 1, x_24); +lean_ctor_set(x_38, 2, x_36); +lean_ctor_set(x_38, 3, x_27); +lean_inc(x_1); +lean_inc(x_10); +x_39 = lean_apply_4(x_1, x_38, x_9, x_10, x_37); +if (lean_obj_tag(x_39) == 0) +{ +lean_object* x_40; lean_object* x_41; +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_8 = x_17; +x_9 = x_40; +x_11 = x_41; +goto _start; +} +else +{ +uint8_t x_43; +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +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_27); +lean_dec(x_24); +lean_dec(x_19); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_47 = !lean_is_exclusive(x_35); +if (x_47 == 0) +{ +return x_35; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_35, 0); +x_49 = lean_ctor_get(x_35, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_35); +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 +{ +uint8_t x_51; +lean_dec(x_27); +lean_dec(x_24); +lean_dec(x_19); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_51 = !lean_is_exclusive(x_32); +if (x_51 == 0) +{ +return x_32; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_32, 0); +x_53 = lean_ctor_get(x_32, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_32); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("constructor step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___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_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___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_Lean_Meta_EqnCompiler_DepElim_25__processConstructor(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_27; uint8_t x_28; +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +x_27 = lean_ctor_get(x_5, 4); +lean_inc(x_27); +x_28 = lean_ctor_get_uint8(x_27, sizeof(void*)*1); +lean_dec(x_27); +if (x_28 == 0) +{ +x_7 = x_5; +goto block_26; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_29 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_30 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_29, x_4, x_5); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_unbox(x_31); +lean_dec(x_31); +if (x_32 == 0) +{ +lean_object* x_33; +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +lean_dec(x_30); +x_7 = x_33; +goto block_26; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_34 = lean_ctor_get(x_30, 1); +lean_inc(x_34); +lean_dec(x_30); +x_35 = l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__3; +x_36 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_29, x_35, x_4, x_34); +x_37 = lean_ctor_get(x_36, 1); +lean_inc(x_37); +lean_dec(x_36); +x_7 = x_37; +goto block_26; +} +} +block_26: +{ +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_8 = l_Lean_Meta_isClassQuick___main___closed__1; +x_9 = l_unreachable_x21___rarg(x_8); +x_10 = lean_apply_2(x_9, x_4, x_7); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17; +x_11 = lean_ctor_get(x_6, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_6, 1); +lean_inc(x_12); +lean_dec(x_6); +x_13 = lean_ctor_get(x_2, 0); +lean_inc(x_13); +x_14 = l_Lean_Expr_fvarId_x21(x_11); +x_15 = l_Array_empty___closed__1; +x_16 = 0; +lean_inc(x_14); +x_17 = l_Lean_Meta_Cases_cases(x_13, x_14, x_15, x_16, x_4, x_7); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +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); +x_20 = lean_unsigned_to_nat(0u); +x_21 = l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__9(x_1, x_2, x_11, x_12, x_14, x_18, x_18, x_20, x_3, x_4, x_19); +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_11); +return x_21; +} +else +{ +uint8_t x_22; +lean_dec(x_14); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_17); +if (x_22 == 0) +{ +return x_17; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_17, 0); +x_24 = lean_ctor_get(x_17, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_17); +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_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__3(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__4(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__5(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__9___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, lean_object* x_11) { +_start: +{ +lean_object* x_12; +x_12 = l_Array_iterateMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__9(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +return x_12; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("failed to compile pattern matching, inductive type expected"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___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_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___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_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg(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; +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_1); +x_5 = l_Lean_indentExpr(x_4); +x_6 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__3; +x_7 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_5); +x_8 = lean_box(0); +x_9 = l_Lean_Meta_throwOther___rarg(x_7, x_8, x_2, x_3); +return x_9; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +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; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +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; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_7, x_2, x_3); +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_8, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_18 = lean_ctor_get(x_1, 0); +x_19 = lean_ctor_get(x_1, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_1); +x_20 = l_Lean_Meta_DepElim_Pattern_instantiateMVars___main(x_18, x_2, x_3); +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_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_19, x_2, x_22); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +if (lean_is_exclusive(x_23)) { + lean_ctor_release(x_23, 0); + lean_ctor_release(x_23, 1); + x_26 = x_23; +} else { + lean_dec_ref(x_23); + x_26 = lean_box(0); +} +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_21); +lean_ctor_set(x_27, 1, x_24); +if (lean_is_scalar(x_26)) { + x_28 = lean_alloc_ctor(0, 2, 0); +} else { + x_28 = x_26; +} +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_25); +return x_28; +} +} +} +} +uint8_t l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_ctor_get(x_2, 1); +x_6 = lean_name_eq(x_1, x_4); +if (x_6 == 0) +{ +x_2 = x_5; +goto _start; +} +else +{ +uint8_t x_8; +x_8 = 1; +return x_8; +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = lean_name_eq(x_6, x_1); +x_9 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(x_1, x_2, x_7); +if (x_8 == 0) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_box(0); +lean_ctor_set(x_3, 1, x_10); +x_11 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_11, 0, x_3); +lean_ctor_set(x_11, 1, x_9); +return x_11; +} +else +{ +lean_object* x_12; +lean_dec(x_6); +x_12 = l_Array_toList___rarg(x_2); +lean_ctor_set(x_3, 1, x_9); +lean_ctor_set(x_3, 0, x_12); +return x_3; +} +} +else +{ +lean_object* x_13; lean_object* x_14; uint8_t x_15; lean_object* x_16; +x_13 = lean_ctor_get(x_3, 0); +x_14 = lean_ctor_get(x_3, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_3); +x_15 = lean_name_eq(x_13, x_1); +x_16 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(x_1, x_2, x_14); +if (x_15 == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_13); +lean_ctor_set(x_18, 1, x_17); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_16); +return x_19; +} +else +{ +lean_object* x_20; lean_object* x_21; +lean_dec(x_13); +x_20 = l_Array_toList___rarg(x_2); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_16); +return x_21; +} +} +} +} +} +lean_object* l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_5; +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_2); +lean_ctor_set(x_5, 1, x_4); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_1); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = lean_ctor_get(x_1, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = lean_ctor_get(x_4, 1); +lean_inc(x_9); +lean_inc(x_7); +x_10 = lean_metavar_ctx_is_expr_assigned(x_9, x_7); +if (x_10 == 0) +{ +lean_ctor_set(x_1, 1, x_2); +{ +lean_object* _tmp_0 = x_8; +lean_object* _tmp_1 = x_1; +x_1 = _tmp_0; +x_2 = _tmp_1; +} +goto _start; +} +else +{ +lean_free_object(x_1); +lean_dec(x_7); +x_1 = x_8; +goto _start; +} +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_13 = lean_ctor_get(x_1, 0); +x_14 = lean_ctor_get(x_1, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_1); +x_15 = lean_ctor_get(x_4, 1); +lean_inc(x_15); +lean_inc(x_13); +x_16 = lean_metavar_ctx_is_expr_assigned(x_15, x_13); +if (x_16 == 0) +{ +lean_object* x_17; +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_13); +lean_ctor_set(x_17, 1, x_2); +x_1 = x_14; +x_2 = x_17; +goto _start; +} +else +{ +lean_dec(x_13); +x_1 = x_14; +goto _start; +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("ill-format alternative"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___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_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___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_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___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, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { +_start: +{ +lean_object* x_13; uint8_t x_14; +x_13 = lean_array_get_size(x_7); +x_14 = lean_nat_dec_lt(x_8, x_13); +lean_dec(x_13); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_8); +x_15 = l_Array_toList___rarg(x_6); +x_16 = l_Array_toList___rarg(x_10); +lean_dec(x_10); +x_17 = 1; +x_18 = lean_alloc_ctor(2, 5, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_4); +lean_ctor_set(x_18, 2, x_5); +lean_ctor_set(x_18, 3, x_15); +lean_ctor_set(x_18, 4, x_16); +lean_inc(x_11); +lean_inc(x_18); +x_19 = l_Lean_Meta_DepElim_Pattern_toExpr___main(x_17, x_18, x_11, x_12); +if (lean_obj_tag(x_19) == 0) +{ +lean_object* x_20; lean_object* x_21; uint8_t x_22; +x_20 = lean_ctor_get(x_19, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_19, 1); +lean_inc(x_21); +lean_dec(x_19); +x_22 = !lean_is_exclusive(x_1); +if (x_22 == 0) +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_23 = lean_ctor_get(x_1, 0); +x_24 = lean_ctor_get(x_1, 1); +x_25 = lean_ctor_get(x_1, 2); +x_26 = lean_ctor_get(x_1, 3); +lean_inc(x_3); +x_27 = l_Lean_Meta_assignExprMVar(x_3, x_20, x_11, x_21); +if (lean_obj_tag(x_27) == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_28 = lean_ctor_get(x_27, 1); +lean_inc(x_28); +lean_dec(x_27); +x_29 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_26, x_11, x_28); +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_18); +lean_ctor_set(x_32, 1, x_30); +x_33 = l_Lean_Meta_instantiateMVars(x_24, x_11, x_31); +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_ctor_get(x_33, 1); +lean_inc(x_35); +lean_dec(x_33); +x_36 = l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2(x_3, x_25); +x_37 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(x_3, x_9, x_25); +lean_dec(x_9); +lean_dec(x_3); +x_38 = l_List_join___main___rarg(x_37); +x_39 = lean_box(0); +if (x_36 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; +lean_dec(x_38); +lean_dec(x_34); +lean_dec(x_32); +lean_free_object(x_1); +lean_dec(x_23); +x_40 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3; +x_41 = lean_box(0); +x_42 = l_Lean_Meta_throwOther___rarg(x_40, x_41, x_11, x_35); +lean_dec(x_11); +x_43 = !lean_is_exclusive(x_42); +if (x_43 == 0) +{ +return x_42; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_42, 0); +x_45 = lean_ctor_get(x_42, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_42); +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 +{ +lean_object* x_47; uint8_t x_48; +x_47 = l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4(x_38, x_39, x_11, x_35); +lean_dec(x_11); +x_48 = !lean_is_exclusive(x_47); +if (x_48 == 0) +{ +lean_object* x_49; lean_object* x_50; +x_49 = lean_ctor_get(x_47, 0); +x_50 = l_List_reverse___rarg(x_49); +lean_ctor_set(x_1, 3, x_32); +lean_ctor_set(x_1, 2, x_50); +lean_ctor_set(x_1, 1, x_34); +lean_ctor_set(x_47, 0, x_1); +return x_47; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_51 = lean_ctor_get(x_47, 0); +x_52 = lean_ctor_get(x_47, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_47); +x_53 = l_List_reverse___rarg(x_51); +lean_ctor_set(x_1, 3, x_32); +lean_ctor_set(x_1, 2, x_53); +lean_ctor_set(x_1, 1, x_34); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_1); +lean_ctor_set(x_54, 1, x_52); +return x_54; +} +} +} +else +{ +uint8_t x_55; +lean_free_object(x_1); +lean_dec(x_26); +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_18); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_3); +x_55 = !lean_is_exclusive(x_27); +if (x_55 == 0) +{ +return x_27; +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_27, 0); +x_57 = lean_ctor_get(x_27, 1); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_27); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +} +else +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_59 = lean_ctor_get(x_1, 0); +x_60 = lean_ctor_get(x_1, 1); +x_61 = lean_ctor_get(x_1, 2); +x_62 = lean_ctor_get(x_1, 3); +lean_inc(x_62); +lean_inc(x_61); +lean_inc(x_60); +lean_inc(x_59); +lean_dec(x_1); +lean_inc(x_3); +x_63 = l_Lean_Meta_assignExprMVar(x_3, x_20, x_11, x_21); +if (lean_obj_tag(x_63) == 0) +{ +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; uint8_t x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_64 = lean_ctor_get(x_63, 1); +lean_inc(x_64); +lean_dec(x_63); +x_65 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_62, x_11, x_64); +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_68 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_68, 0, x_18); +lean_ctor_set(x_68, 1, x_66); +x_69 = l_Lean_Meta_instantiateMVars(x_60, x_11, x_67); +x_70 = lean_ctor_get(x_69, 0); +lean_inc(x_70); +x_71 = lean_ctor_get(x_69, 1); +lean_inc(x_71); +lean_dec(x_69); +x_72 = l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2(x_3, x_61); +x_73 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(x_3, x_9, x_61); +lean_dec(x_9); +lean_dec(x_3); +x_74 = l_List_join___main___rarg(x_73); +x_75 = lean_box(0); +if (x_72 == 0) +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +lean_dec(x_74); +lean_dec(x_70); +lean_dec(x_68); +lean_dec(x_59); +x_76 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3; +x_77 = lean_box(0); +x_78 = l_Lean_Meta_throwOther___rarg(x_76, x_77, x_11, x_71); +lean_dec(x_11); +x_79 = lean_ctor_get(x_78, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_78, 1); +lean_inc(x_80); +if (lean_is_exclusive(x_78)) { + lean_ctor_release(x_78, 0); + lean_ctor_release(x_78, 1); + x_81 = x_78; +} else { + lean_dec_ref(x_78); + x_81 = lean_box(0); +} +if (lean_is_scalar(x_81)) { + x_82 = lean_alloc_ctor(1, 2, 0); +} else { + x_82 = x_81; +} +lean_ctor_set(x_82, 0, x_79); +lean_ctor_set(x_82, 1, x_80); +return x_82; +} +else +{ +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 = l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4(x_74, x_75, x_11, x_71); +lean_dec(x_11); +x_84 = lean_ctor_get(x_83, 0); +lean_inc(x_84); +x_85 = lean_ctor_get(x_83, 1); +lean_inc(x_85); +if (lean_is_exclusive(x_83)) { + lean_ctor_release(x_83, 0); + lean_ctor_release(x_83, 1); + x_86 = x_83; +} else { + lean_dec_ref(x_83); + x_86 = lean_box(0); +} +x_87 = l_List_reverse___rarg(x_84); +x_88 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_88, 0, x_59); +lean_ctor_set(x_88, 1, x_70); +lean_ctor_set(x_88, 2, x_87); +lean_ctor_set(x_88, 3, x_68); +if (lean_is_scalar(x_86)) { + x_89 = lean_alloc_ctor(0, 2, 0); +} else { + x_89 = x_86; +} +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_85); +return x_89; +} +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; +lean_dec(x_62); +lean_dec(x_61); +lean_dec(x_60); +lean_dec(x_59); +lean_dec(x_18); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_3); +x_90 = lean_ctor_get(x_63, 0); +lean_inc(x_90); +x_91 = lean_ctor_get(x_63, 1); +lean_inc(x_91); +if (lean_is_exclusive(x_63)) { + lean_ctor_release(x_63, 0); + lean_ctor_release(x_63, 1); + x_92 = x_63; +} else { + lean_dec_ref(x_63); + x_92 = lean_box(0); +} +if (lean_is_scalar(x_92)) { + x_93 = lean_alloc_ctor(1, 2, 0); +} else { + x_93 = x_92; +} +lean_ctor_set(x_93, 0, x_90); +lean_ctor_set(x_93, 1, x_91); +return x_93; +} +} +} +else +{ +uint8_t x_94; +lean_dec(x_18); +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_3); +lean_dec(x_1); +x_94 = !lean_is_exclusive(x_19); +if (x_94 == 0) +{ +return x_19; +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; +x_95 = lean_ctor_get(x_19, 0); +x_96 = lean_ctor_get(x_19, 1); +lean_inc(x_96); +lean_inc(x_95); +lean_dec(x_19); +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; +} +} +} +else +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; +x_98 = lean_array_fget(x_7, x_8); +x_99 = l_Lean_Meta_instantiateMVars(x_98, x_11, x_12); +x_100 = lean_ctor_get(x_99, 0); +lean_inc(x_100); +x_101 = lean_ctor_get(x_99, 1); +lean_inc(x_101); +lean_dec(x_99); +if (lean_obj_tag(x_100) == 2) +{ +lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_109 = lean_ctor_get(x_100, 0); +lean_inc(x_109); +lean_dec(x_100); +x_110 = lean_unsigned_to_nat(1u); +x_111 = lean_nat_add(x_8, x_110); +lean_dec(x_8); +lean_inc(x_109); +x_112 = lean_array_push(x_9, x_109); +lean_inc(x_2); +x_113 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_113, 0, x_2); +lean_ctor_set(x_113, 1, x_109); +x_114 = lean_array_push(x_10, x_113); +x_8 = x_111; +x_9 = x_112; +x_10 = x_114; +x_12 = x_101; +goto _start; +} +else +{ +lean_object* x_116; +x_116 = lean_box(0); +x_102 = x_116; +goto block_108; +} +block_108: +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; +lean_dec(x_102); +x_103 = lean_unsigned_to_nat(1u); +x_104 = lean_nat_add(x_8, x_103); +lean_dec(x_8); +lean_inc(x_2); +x_105 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_105, 0, x_2); +lean_ctor_set(x_105, 1, x_100); +x_106 = lean_array_push(x_10, x_105); +x_8 = x_104; +x_10 = x_106; +x_12 = x_101; +goto _start; +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_List_elem___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__2(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__3(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_List_filterAuxM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__4(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___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, lean_object* x_11, lean_object* x_12) { +_start: +{ +lean_object* x_13; +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); +lean_dec(x_7); +lean_dec(x_6); +return x_13; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux(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, lean_object* x_11, lean_object* x_12) { +_start: +{ +lean_object* x_13; +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); +return x_13; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___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, lean_object* x_11, lean_object* x_12) { +_start: +{ +lean_object* x_13; +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); +lean_dec(x_7); +lean_dec(x_6); +return x_13; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("ctorName: "); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___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_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___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_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(", resultType: "); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__7() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(", expectedType: "); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__7; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__8; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f(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; lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_inc(x_5); +lean_inc(x_4); +x_10 = l_Lean_mkConst(x_4, x_5); +x_11 = lean_unsigned_to_nat(0u); +x_12 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_6, x_6, x_11, x_10); +lean_inc(x_8); +x_13 = l_Lean_Meta_inferType(x_12, x_8, x_9); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_box(0); +x_17 = 0; +lean_inc(x_8); +x_18 = l_Lean_Meta_forallMetaTelescopeReducing(x_14, x_16, x_17, x_8, x_15); +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_51; uint8_t x_52; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_19, 1); +lean_inc(x_20); +x_21 = lean_ctor_get(x_18, 1); +lean_inc(x_21); +lean_dec(x_18); +x_22 = lean_ctor_get(x_19, 0); +lean_inc(x_22); +lean_dec(x_19); +x_23 = lean_ctor_get(x_20, 1); +lean_inc(x_23); +lean_dec(x_20); +x_51 = lean_ctor_get(x_21, 4); +lean_inc(x_51); +x_52 = lean_ctor_get_uint8(x_51, sizeof(void*)*1); +lean_dec(x_51); +if (x_52 == 0) +{ +x_24 = x_21; +goto block_50; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; uint8_t x_56; +x_53 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +x_54 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_53, x_8, x_21); +x_55 = lean_ctor_get(x_54, 0); +lean_inc(x_55); +x_56 = lean_unbox(x_55); +lean_dec(x_55); +if (x_56 == 0) +{ +lean_object* x_57; +x_57 = lean_ctor_get(x_54, 1); +lean_inc(x_57); +lean_dec(x_54); +x_24 = x_57; +goto block_50; +} +else +{ +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; +x_58 = lean_ctor_get(x_54, 1); +lean_inc(x_58); +lean_dec(x_54); +lean_inc(x_4); +x_59 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_59, 0, x_4); +x_60 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__3; +x_61 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_61, 0, x_60); +lean_ctor_set(x_61, 1, x_59); +x_62 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__6; +x_63 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +lean_inc(x_23); +x_64 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_64, 0, x_23); +x_65 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_65, 0, x_63); +lean_ctor_set(x_65, 1, x_64); +x_66 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__9; +x_67 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_67, 0, x_65); +lean_ctor_set(x_67, 1, x_66); +lean_inc(x_7); +x_68 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_68, 0, x_7); +x_69 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_69, 0, x_67); +lean_ctor_set(x_69, 1, x_68); +x_70 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_53, x_69, x_8, x_58); +x_71 = lean_ctor_get(x_70, 1); +lean_inc(x_71); +lean_dec(x_70); +x_24 = x_71; +goto block_50; +} +} +block_50: +{ +lean_object* x_25; +lean_inc(x_8); +x_25 = l_Lean_Meta_isExprDefEq(x_23, x_7, x_8, x_24); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; uint8_t x_27; +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +x_27 = lean_unbox(x_26); +lean_dec(x_26); +if (x_27 == 0) +{ +uint8_t x_28; +lean_dec(x_22); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_28 = !lean_is_exclusive(x_25); +if (x_28 == 0) +{ +lean_object* x_29; +x_29 = lean_ctor_get(x_25, 0); +lean_dec(x_29); +lean_ctor_set(x_25, 0, x_16); +return x_25; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = lean_ctor_get(x_25, 1); +lean_inc(x_30); +lean_dec(x_25); +x_31 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_31, 0, x_16); +lean_ctor_set(x_31, 1, x_30); +return x_31; +} +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_25, 1); +lean_inc(x_32); +lean_dec(x_25); +x_33 = l_Array_empty___closed__1; +x_34 = l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_22, x_11, x_33, x_33, x_8, x_32); +lean_dec(x_22); +if (lean_obj_tag(x_34) == 0) +{ +uint8_t x_35; +x_35 = !lean_is_exclusive(x_34); +if (x_35 == 0) +{ +lean_object* x_36; lean_object* x_37; +x_36 = lean_ctor_get(x_34, 0); +x_37 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_34, 0, x_37); +return x_34; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_38 = lean_ctor_get(x_34, 0); +x_39 = lean_ctor_get(x_34, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_34); +x_40 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_40, 0, 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_39); +return x_41; +} +} +else +{ +uint8_t x_42; +x_42 = !lean_is_exclusive(x_34); +if (x_42 == 0) +{ +return x_34; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_34, 0); +x_44 = lean_ctor_get(x_34, 1); +lean_inc(x_44); +lean_inc(x_43); +lean_dec(x_34); +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_22); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_46 = !lean_is_exclusive(x_25); +if (x_46 == 0) +{ +return x_25; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_25, 0); +x_48 = lean_ctor_get(x_25, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_25); +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_72; +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_72 = !lean_is_exclusive(x_18); +if (x_72 == 0) +{ +return x_18; +} +else +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_18, 0); +x_74 = lean_ctor_get(x_18, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_18); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; +} +} +} +else +{ +uint8_t x_76; +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_76 = !lean_is_exclusive(x_13); +if (x_76 == 0) +{ +return x_13; +} +else +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_77 = lean_ctor_get(x_13, 0); +x_78 = lean_ctor_get(x_13, 1); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_13); +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_77); +lean_ctor_set(x_79, 1, x_78); +return x_79; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___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_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_6); +return x_10; +} +} +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt___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: +{ +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_10; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_6); +lean_ctor_set(x_10, 1, x_9); +return x_10; +} +else +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_7); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_7, 0); +x_13 = lean_ctor_get(x_7, 1); +lean_inc(x_8); +lean_inc(x_1); +x_14 = l_Lean_Meta_DepElim_Alt_copyCore(x_1, x_8, x_9); +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_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 = l_Lean_Meta_MVarRenaming_find_x21(x_17, x_3); +lean_dec(x_17); +lean_inc(x_19); +x_20 = l_Lean_Meta_getMVarDecl(x_19, x_8, x_16); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +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 = lean_ctor_get(x_21, 2); +lean_inc(x_23); +lean_dec(x_21); +lean_inc(x_8); +x_24 = l_Lean_Meta_whnfD(x_23, x_8, x_22); +if (lean_obj_tag(x_24) == 0) +{ +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_ctor_get(x_24, 0); +lean_inc(x_25); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); +lean_dec(x_24); +x_27 = lean_unsigned_to_nat(0u); +x_28 = l_Lean_Expr_getAppNumArgsAux___main(x_25, x_27); +x_29 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_28); +x_30 = lean_mk_array(x_28, x_29); +x_31 = lean_unsigned_to_nat(1u); +x_32 = lean_nat_sub(x_28, x_31); +lean_dec(x_28); +lean_inc(x_25); +x_33 = l___private_Lean_Expr_3__getAppArgsAux___main(x_25, x_30, x_32); +x_34 = lean_ctor_get(x_5, 1); +x_35 = l_Array_extract___rarg(x_33, x_27, x_34); +lean_dec(x_33); +lean_inc(x_8); +lean_inc(x_4); +lean_inc(x_2); +x_36 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f(x_18, x_2, x_19, x_12, x_4, x_35, x_25, x_8, x_26); +lean_dec(x_35); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_37; +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; +lean_free_object(x_7); +x_38 = lean_ctor_get(x_36, 1); +lean_inc(x_38); +lean_dec(x_36); +x_7 = x_13; +x_9 = x_38; +goto _start; +} +else +{ +lean_object* x_40; lean_object* x_41; +x_40 = lean_ctor_get(x_36, 1); +lean_inc(x_40); +lean_dec(x_36); +x_41 = lean_ctor_get(x_37, 0); +lean_inc(x_41); +lean_dec(x_37); +lean_ctor_set(x_7, 1, x_6); +lean_ctor_set(x_7, 0, x_41); +x_6 = x_7; +x_7 = x_13; +x_9 = x_40; +goto _start; +} +} +else +{ +uint8_t x_43; +lean_free_object(x_7); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_43 = !lean_is_exclusive(x_36); +if (x_43 == 0) +{ +return x_36; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_36, 0); +x_45 = lean_ctor_get(x_36, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_36); +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_19); +lean_dec(x_18); +lean_free_object(x_7); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_47 = !lean_is_exclusive(x_24); +if (x_47 == 0) +{ +return x_24; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_24, 0); +x_49 = lean_ctor_get(x_24, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_24); +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 +{ +uint8_t x_51; +lean_dec(x_19); +lean_dec(x_18); +lean_free_object(x_7); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_51 = !lean_is_exclusive(x_20); +if (x_51 == 0) +{ +return x_20; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_20, 0); +x_53 = lean_ctor_get(x_20, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_20); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +} +else +{ +uint8_t x_55; +lean_free_object(x_7); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_55 = !lean_is_exclusive(x_14); +if (x_55 == 0) +{ +return x_14; +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_14, 0); +x_57 = lean_ctor_get(x_14, 1); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_14); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +} +else +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_59 = lean_ctor_get(x_7, 0); +x_60 = lean_ctor_get(x_7, 1); +lean_inc(x_60); +lean_inc(x_59); +lean_dec(x_7); +lean_inc(x_8); +lean_inc(x_1); +x_61 = l_Lean_Meta_DepElim_Alt_copyCore(x_1, x_8, x_9); +if (lean_obj_tag(x_61) == 0) +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_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); +x_64 = lean_ctor_get(x_62, 0); +lean_inc(x_64); +x_65 = lean_ctor_get(x_62, 1); +lean_inc(x_65); +lean_dec(x_62); +x_66 = l_Lean_Meta_MVarRenaming_find_x21(x_64, x_3); +lean_dec(x_64); +lean_inc(x_66); +x_67 = l_Lean_Meta_getMVarDecl(x_66, x_8, x_63); +if (lean_obj_tag(x_67) == 0) +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; +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); +x_70 = lean_ctor_get(x_68, 2); +lean_inc(x_70); +lean_dec(x_68); +lean_inc(x_8); +x_71 = l_Lean_Meta_whnfD(x_70, x_8, x_69); +if (lean_obj_tag(x_71) == 0) +{ +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_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +x_73 = lean_ctor_get(x_71, 1); +lean_inc(x_73); +lean_dec(x_71); +x_74 = lean_unsigned_to_nat(0u); +x_75 = l_Lean_Expr_getAppNumArgsAux___main(x_72, x_74); +x_76 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_75); +x_77 = lean_mk_array(x_75, x_76); +x_78 = lean_unsigned_to_nat(1u); +x_79 = lean_nat_sub(x_75, x_78); +lean_dec(x_75); +lean_inc(x_72); +x_80 = l___private_Lean_Expr_3__getAppArgsAux___main(x_72, x_77, x_79); +x_81 = lean_ctor_get(x_5, 1); +x_82 = l_Array_extract___rarg(x_80, x_74, x_81); +lean_dec(x_80); +lean_inc(x_8); +lean_inc(x_4); +lean_inc(x_2); +x_83 = l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f(x_65, x_2, x_66, x_59, x_4, x_82, x_72, x_8, x_73); +lean_dec(x_82); +if (lean_obj_tag(x_83) == 0) +{ +lean_object* x_84; +x_84 = lean_ctor_get(x_83, 0); +lean_inc(x_84); +if (lean_obj_tag(x_84) == 0) +{ +lean_object* x_85; +x_85 = lean_ctor_get(x_83, 1); +lean_inc(x_85); +lean_dec(x_83); +x_7 = x_60; +x_9 = x_85; +goto _start; +} +else +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_83, 1); +lean_inc(x_87); +lean_dec(x_83); +x_88 = lean_ctor_get(x_84, 0); +lean_inc(x_88); +lean_dec(x_84); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_6); +x_6 = x_89; +x_7 = x_60; +x_9 = x_87; +goto _start; +} +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; +lean_dec(x_60); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_91 = lean_ctor_get(x_83, 0); +lean_inc(x_91); +x_92 = lean_ctor_get(x_83, 1); +lean_inc(x_92); +if (lean_is_exclusive(x_83)) { + lean_ctor_release(x_83, 0); + lean_ctor_release(x_83, 1); + x_93 = x_83; +} else { + lean_dec_ref(x_83); + x_93 = lean_box(0); +} +if (lean_is_scalar(x_93)) { + x_94 = lean_alloc_ctor(1, 2, 0); +} else { + x_94 = x_93; +} +lean_ctor_set(x_94, 0, x_91); +lean_ctor_set(x_94, 1, x_92); +return x_94; +} +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +lean_dec(x_66); +lean_dec(x_65); +lean_dec(x_60); +lean_dec(x_59); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_95 = lean_ctor_get(x_71, 0); +lean_inc(x_95); +x_96 = lean_ctor_get(x_71, 1); +lean_inc(x_96); +if (lean_is_exclusive(x_71)) { + lean_ctor_release(x_71, 0); + lean_ctor_release(x_71, 1); + x_97 = x_71; +} else { + lean_dec_ref(x_71); + 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; +} +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; +lean_dec(x_66); +lean_dec(x_65); +lean_dec(x_60); +lean_dec(x_59); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_99 = lean_ctor_get(x_67, 0); +lean_inc(x_99); +x_100 = lean_ctor_get(x_67, 1); +lean_inc(x_100); +if (lean_is_exclusive(x_67)) { + lean_ctor_release(x_67, 0); + lean_ctor_release(x_67, 1); + x_101 = x_67; +} else { + lean_dec_ref(x_67); + x_101 = lean_box(0); +} +if (lean_is_scalar(x_101)) { + x_102 = lean_alloc_ctor(1, 2, 0); +} else { + x_102 = x_101; +} +lean_ctor_set(x_102, 0, x_99); +lean_ctor_set(x_102, 1, x_100); +return x_102; +} +} +else +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; +lean_dec(x_60); +lean_dec(x_59); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_103 = lean_ctor_get(x_61, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_61, 1); +lean_inc(x_104); +if (lean_is_exclusive(x_61)) { + lean_ctor_release(x_61, 0); + lean_ctor_release(x_61, 1); + x_105 = x_61; +} else { + lean_dec_ref(x_61); + x_105 = lean_box(0); +} +if (lean_is_scalar(x_105)) { + x_106 = lean_alloc_ctor(1, 2, 0); +} else { + x_106 = x_105; +} +lean_ctor_set(x_106, 0, x_103); +lean_ctor_set(x_106, 1, x_104); +return x_106; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +lean_inc(x_3); +x_7 = l_Lean_Meta_getMVarDecl(x_3, x_4, x_5); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 2); +lean_inc(x_10); +lean_dec(x_8); +lean_inc(x_4); +x_11 = l_Lean_Meta_whnfD(x_10, x_4, x_9); +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); +x_14 = l_Lean_Expr_getAppFn___main(x_12); +if (lean_obj_tag(x_14) == 4) +{ +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); +x_17 = lean_environment_find(x_6, x_15); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; +lean_dec(x_16); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_18 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg(x_12, x_4, x_13); +lean_dec(x_4); +return x_18; +} +else +{ +lean_object* x_19; +x_19 = lean_ctor_get(x_17, 0); +lean_inc(x_19); +lean_dec(x_17); +if (lean_obj_tag(x_19) == 5) +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +lean_dec(x_12); +x_20 = lean_ctor_get(x_19, 0); +lean_inc(x_20); +lean_dec(x_19); +x_21 = lean_box(0); +x_22 = lean_ctor_get(x_20, 4); +lean_inc(x_22); +x_23 = l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt___spec__1(x_1, x_2, x_3, x_16, x_20, x_21, x_22, x_4, x_13); +lean_dec(x_20); +lean_dec(x_3); +return x_23; +} +else +{ +lean_object* x_24; +lean_dec(x_19); +lean_dec(x_16); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_24 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg(x_12, x_4, x_13); +lean_dec(x_4); +return x_24; +} +} +} +else +{ +lean_object* x_25; +lean_dec(x_14); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_25 = l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg(x_12, x_4, x_13); +lean_dec(x_4); +return x_25; +} +} +else +{ +uint8_t x_26; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_26 = !lean_is_exclusive(x_11); +if (x_26 == 0) +{ +return x_11; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_11, 0); +x_28 = lean_ctor_get(x_11, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_11); +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 +{ +uint8_t x_30; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_30 = !lean_is_exclusive(x_7); +if (x_30 == 0) +{ +return x_7; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_31 = lean_ctor_get(x_7, 0); +x_32 = lean_ctor_get(x_7, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_7); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_31); +lean_ctor_set(x_33, 1, x_32); +return x_33; +} +} +} +} +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt___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_10; +x_10 = l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_5); +lean_dec(x_3); +return x_10; +} +} +lean_object* l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; +lean_dec(x_3); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_1); +lean_ctor_set(x_5, 1, x_4); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_ctor_get(x_2, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_6, 3); +lean_inc(x_7); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_6); +lean_dec(x_1); +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +lean_dec(x_2); +x_9 = l_Lean_Meta_isClassQuick___main___closed__1; +x_10 = l_unreachable_x21___rarg(x_9); +lean_inc(x_3); +x_11 = lean_apply_2(x_10, x_3, x_4); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; +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); +x_1 = x_12; +x_2 = x_8; +x_4 = x_13; +goto _start; +} +else +{ +uint8_t x_15; +lean_dec(x_8); +lean_dec(x_3); +x_15 = !lean_is_exclusive(x_11); +if (x_15 == 0) +{ +return x_11; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_11, 0); +x_17 = lean_ctor_get(x_11, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_11); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_16); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +} +else +{ +lean_object* x_19; +x_19 = lean_ctor_get(x_7, 0); +lean_inc(x_19); +switch (lean_obj_tag(x_19)) { +case 1: +{ +lean_object* x_20; uint8_t x_21; +x_20 = lean_ctor_get(x_2, 1); +lean_inc(x_20); +lean_dec(x_2); +x_21 = !lean_is_exclusive(x_6); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_22 = lean_ctor_get(x_6, 3); +lean_dec(x_22); +x_23 = lean_ctor_get(x_7, 1); +lean_inc(x_23); +lean_dec(x_7); +x_24 = lean_ctor_get(x_19, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_19, 1); +lean_inc(x_25); +lean_dec(x_19); +lean_ctor_set(x_6, 3, x_23); +lean_inc(x_3); +x_26 = l___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt(x_6, x_24, x_25, x_3, x_4); +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_List_append___rarg(x_27, x_1); +x_1 = x_29; +x_2 = x_20; +x_4 = x_28; +goto _start; +} +else +{ +uint8_t x_31; +lean_dec(x_20); +lean_dec(x_3); +lean_dec(x_1); +x_31 = !lean_is_exclusive(x_26); +if (x_31 == 0) +{ +return x_26; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_26, 0); +x_33 = lean_ctor_get(x_26, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_26); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +else +{ +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; +x_35 = lean_ctor_get(x_6, 0); +x_36 = lean_ctor_get(x_6, 1); +x_37 = lean_ctor_get(x_6, 2); +lean_inc(x_37); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_6); +x_38 = lean_ctor_get(x_7, 1); +lean_inc(x_38); +lean_dec(x_7); +x_39 = lean_ctor_get(x_19, 0); +lean_inc(x_39); +x_40 = lean_ctor_get(x_19, 1); +lean_inc(x_40); +lean_dec(x_19); +x_41 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_41, 0, x_35); +lean_ctor_set(x_41, 1, x_36); +lean_ctor_set(x_41, 2, x_37); +lean_ctor_set(x_41, 3, x_38); +lean_inc(x_3); +x_42 = l___private_Lean_Meta_EqnCompiler_DepElim_29__expandAlt(x_41, x_39, x_40, x_3, x_4); +if (lean_obj_tag(x_42) == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_42, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_42, 1); +lean_inc(x_44); +lean_dec(x_42); +x_45 = l_List_append___rarg(x_43, x_1); +x_1 = x_45; +x_2 = x_20; +x_4 = x_44; +goto _start; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +lean_dec(x_20); +lean_dec(x_3); +lean_dec(x_1); +x_47 = lean_ctor_get(x_42, 0); +lean_inc(x_47); +x_48 = lean_ctor_get(x_42, 1); +lean_inc(x_48); +if (lean_is_exclusive(x_42)) { + lean_ctor_release(x_42, 0); + lean_ctor_release(x_42, 1); + x_49 = x_42; +} else { + lean_dec_ref(x_42); + x_49 = lean_box(0); +} +if (lean_is_scalar(x_49)) { + x_50 = lean_alloc_ctor(1, 2, 0); +} else { + x_50 = x_49; +} +lean_ctor_set(x_50, 0, x_47); +lean_ctor_set(x_50, 1, x_48); +return x_50; +} +} +} +case 2: +{ +uint8_t x_51; +lean_dec(x_19); +x_51 = !lean_is_exclusive(x_7); +if (x_51 == 0) +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_7, 1); +lean_dec(x_52); +x_53 = lean_ctor_get(x_7, 0); +lean_dec(x_53); +x_54 = lean_ctor_get(x_2, 1); +lean_inc(x_54); +lean_dec(x_2); +lean_ctor_set(x_7, 1, x_1); +lean_ctor_set(x_7, 0, x_6); +x_1 = x_7; +x_2 = x_54; +goto _start; +} +else +{ +lean_object* x_56; lean_object* x_57; +lean_dec(x_7); +x_56 = lean_ctor_get(x_2, 1); +lean_inc(x_56); +lean_dec(x_2); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_6); +lean_ctor_set(x_57, 1, x_1); +x_1 = x_57; +x_2 = x_56; +goto _start; +} +} +default: +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; +lean_dec(x_19); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_1); +x_59 = lean_ctor_get(x_2, 1); +lean_inc(x_59); +lean_dec(x_2); +x_60 = l_Lean_Meta_isClassQuick___main___closed__1; +x_61 = l_unreachable_x21___rarg(x_60); +lean_inc(x_3); +x_62 = lean_apply_2(x_61, x_3, x_4); +if (lean_obj_tag(x_62) == 0) +{ +lean_object* x_63; lean_object* x_64; +x_63 = lean_ctor_get(x_62, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +lean_dec(x_62); +x_1 = x_63; +x_2 = x_59; +x_4 = x_64; +goto _start; +} +else +{ +uint8_t x_66; +lean_dec(x_59); +lean_dec(x_3); +x_66 = !lean_is_exclusive(x_62); +if (x_66 == 0) +{ +return x_62; +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; +x_67 = lean_ctor_get(x_62, 0); +x_68 = lean_ctor_get(x_62, 1); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_62); +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_67); +lean_ctor_set(x_69, 1, x_68); +return x_69; +} +} +} +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_box(0); +x_8 = !lean_is_exclusive(x_1); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +x_11 = lean_ctor_get(x_1, 2); +x_12 = lean_ctor_get(x_1, 3); +lean_inc(x_5); +x_13 = l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___spec__1(x_7, x_11, x_5, x_6); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = l_List_reverse___rarg(x_14); +lean_ctor_set(x_1, 2, x_16); +x_17 = lean_apply_4(x_2, x_1, x_3, x_5, x_15); +return x_17; +} +else +{ +uint8_t x_18; +lean_free_object(x_1); +lean_dec(x_12); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_18 = !lean_is_exclusive(x_13); +if (x_18 == 0) +{ +return x_13; +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_13, 0); +x_20 = lean_ctor_get(x_13, 1); +lean_inc(x_20); +lean_inc(x_19); +lean_dec(x_13); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +return x_21; +} +} +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_22 = lean_ctor_get(x_1, 0); +x_23 = lean_ctor_get(x_1, 1); +x_24 = lean_ctor_get(x_1, 2); +x_25 = lean_ctor_get(x_1, 3); +lean_inc(x_25); +lean_inc(x_24); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_1); +lean_inc(x_5); +x_26 = l_List_foldlM___main___at___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___spec__1(x_7, x_24, x_5, x_6); +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; +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_List_reverse___rarg(x_27); +x_30 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_30, 0, x_22); +lean_ctor_set(x_30, 1, x_23); +lean_ctor_set(x_30, 2, x_29); +lean_ctor_set(x_30, 3, x_25); +x_31 = lean_apply_4(x_2, x_30, x_3, x_5, x_28); +return x_31; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +lean_dec(x_25); +lean_dec(x_23); +lean_dec(x_22); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_32 = lean_ctor_get(x_26, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_26, 1); +lean_inc(x_33); +if (lean_is_exclusive(x_26)) { + lean_ctor_release(x_26, 0); + lean_ctor_release(x_26, 1); + x_34 = x_26; +} else { + lean_dec_ref(x_26); + x_34 = lean_box(0); +} +if (lean_is_scalar(x_34)) { + x_35 = lean_alloc_ctor(1, 2, 0); +} else { + x_35 = x_34; +} +lean_ctor_set(x_35, 0, x_32); +lean_ctor_set(x_35, 1, x_33); +return x_35; +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Meta_getEnv___boxed), 1, 0); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("complete step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__3; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +lean_inc(x_2); +x_6 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___lambda__1___boxed), 6, 3); +lean_closure_set(x_6, 0, x_2); +lean_closure_set(x_6, 1, x_1); +lean_closure_set(x_6, 2, x_3); +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__1; +x_8 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_8, 0, x_7); +lean_closure_set(x_8, 1, x_6); +x_9 = lean_ctor_get(x_5, 4); +lean_inc(x_9); +x_10 = lean_ctor_get_uint8(x_9, sizeof(void*)*1); +lean_dec(x_9); +if (x_10 == 0) +{ +lean_object* x_11; +x_11 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_2, x_8, x_4, x_5); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_12 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_13 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_12, x_4, x_5); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_unbox(x_14); +lean_dec(x_14); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_ctor_get(x_13, 1); +lean_inc(x_16); +lean_dec(x_13); +x_17 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_2, x_8, x_4, x_16); +return x_17; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_18 = lean_ctor_get(x_13, 1); +lean_inc(x_18); +lean_dec(x_13); +x_19 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__4; +x_20 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_12, x_19, x_4, x_18); +x_21 = lean_ctor_get(x_20, 1); +lean_inc(x_21); +lean_dec(x_20); +x_22 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_2, x_8, x_4, x_21); +return x_22; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_4); +return x_7; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_2, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_3, 3); +lean_inc(x_4); +lean_dec(x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_2, 1); +lean_inc(x_5); +lean_dec(x_2); +x_2 = x_5; +goto _start; +} +else +{ +lean_object* x_7; +x_7 = lean_ctor_get(x_4, 0); +lean_inc(x_7); +lean_dec(x_4); +if (lean_obj_tag(x_7) == 3) +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +lean_dec(x_2); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = l_Array_contains___at_Lean_Meta_CheckAssignment_check___main___spec__2(x_1, x_9); +if (x_10 == 0) +{ +lean_object* x_11; +x_11 = lean_array_push(x_1, x_9); +x_1 = x_11; +x_2 = x_8; +goto _start; +} +else +{ +lean_dec(x_9); +x_2 = x_8; +goto _start; +} +} +else +{ +lean_object* x_14; +lean_dec(x_7); +x_14 = lean_ctor_get(x_2, 1); +lean_inc(x_14); +lean_dec(x_2); +x_2 = x_14; +goto _start; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 2); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_Array_empty___closed__1; +x_4 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues___spec__1(x_3, x_2); +return x_4; +} +} +uint8_t l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 3); +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +else +{ +lean_object* x_4; +x_4 = lean_ctor_get(x_2, 0); +if (lean_obj_tag(x_4) == 1) +{ +uint8_t x_5; +x_5 = 1; +return x_5; +} +else +{ +uint8_t x_6; +x_6 = 0; +return x_6; +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = l_List_reverse___rarg(x_2); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_ctor_get(x_1, 1); +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar(x_5); +if (x_7 == 0) +{ +lean_free_object(x_1); +lean_dec(x_5); +x_1 = x_6; +goto _start; +} +else +{ +lean_ctor_set(x_1, 1, x_2); +{ +lean_object* _tmp_0 = x_6; +lean_object* _tmp_1 = x_1; +x_1 = _tmp_0; +x_2 = _tmp_1; +} +goto _start; +} +} +else +{ +lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_10 = lean_ctor_get(x_1, 0); +x_11 = lean_ctor_get(x_1, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_1); +x_12 = l___private_Lean_Meta_EqnCompiler_DepElim_32__isFirstPatternVar(x_10); +if (x_12 == 0) +{ +lean_dec(x_10); +x_1 = x_11; +goto _start; +} +else +{ +lean_object* x_14; +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_10); +lean_ctor_set(x_14, 1, x_2); +x_1 = x_11; +x_2 = x_14; +goto _start; +} +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; +lean_dec(x_1); +x_6 = lean_box(0); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_5); +if (x_7 == 0) +{ +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_5, 0); +x_9 = lean_ctor_get(x_5, 1); +lean_inc(x_1); +x_10 = l___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues(x_1); +x_11 = l_Lean_Expr_fvarId_x21(x_2); +x_12 = lean_array_fget(x_10, x_3); +lean_dec(x_10); +x_13 = lean_alloc_ctor(3, 1, 0); +lean_ctor_set(x_13, 0, x_12); +x_14 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_11, x_13, x_8); +lean_dec(x_13); +lean_dec(x_11); +x_15 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2(x_1, x_2, x_3, lean_box(0), x_9); +lean_ctor_set(x_5, 1, x_15); +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; +x_16 = lean_ctor_get(x_5, 0); +x_17 = lean_ctor_get(x_5, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_5); +lean_inc(x_1); +x_18 = l___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues(x_1); +x_19 = l_Lean_Expr_fvarId_x21(x_2); +x_20 = lean_array_fget(x_18, x_3); +lean_dec(x_18); +x_21 = lean_alloc_ctor(3, 1, 0); +lean_ctor_set(x_21, 0, x_20); +x_22 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_19, x_21, x_16); +lean_dec(x_21); +lean_dec(x_19); +x_23 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2(x_1, x_2, x_3, lean_box(0), x_17); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (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_11; lean_object* x_12; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_Lean_Meta_CaseValueSubgoals_inhabited; +x_9 = lean_array_get(x_8, x_1, x_2); +x_10 = lean_ctor_get(x_9, 2); +lean_inc(x_10); +lean_dec(x_9); +x_11 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_10, x_6); +lean_dec(x_10); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_12); +lean_ctor_set(x_3, 0, x_11); +return x_3; +} +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; +x_13 = lean_ctor_get(x_3, 0); +x_14 = lean_ctor_get(x_3, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_3); +x_15 = l_Lean_Meta_CaseValueSubgoals_inhabited; +x_16 = lean_array_get(x_15, x_1, x_2); +x_17 = lean_ctor_get(x_16, 2); +lean_inc(x_17); +lean_dec(x_16); +x_18 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_17, x_13); +lean_dec(x_17); +x_19 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3(x_1, x_2, x_14); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_4; +x_4 = l_List_reverse___rarg(x_3); +return x_4; +} +else +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_2, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_5, 3); +lean_inc(x_6); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; +lean_dec(x_5); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_dec(x_2); +x_2 = x_7; +goto _start; +} +else +{ +uint8_t x_9; +x_9 = !lean_is_exclusive(x_6); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_ctor_get(x_6, 0); +x_11 = lean_ctor_get(x_6, 1); +lean_dec(x_11); +switch (lean_obj_tag(x_10)) { +case 1: +{ +lean_object* x_12; +lean_dec(x_10); +x_12 = lean_ctor_get(x_2, 1); +lean_inc(x_12); +lean_dec(x_2); +lean_ctor_set(x_6, 1, x_3); +lean_ctor_set(x_6, 0, x_5); +x_2 = x_12; +x_3 = x_6; +goto _start; +} +case 3: +{ +lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_14 = lean_ctor_get(x_2, 1); +lean_inc(x_14); +lean_dec(x_2); +x_15 = lean_ctor_get(x_10, 1); +lean_inc(x_15); +lean_dec(x_10); +x_16 = lean_expr_eqv(x_15, x_1); +lean_dec(x_15); +if (x_16 == 0) +{ +lean_free_object(x_6); +lean_dec(x_5); +x_2 = x_14; +goto _start; +} +else +{ +lean_ctor_set(x_6, 1, x_3); +lean_ctor_set(x_6, 0, x_5); +x_2 = x_14; +x_3 = x_6; +goto _start; +} +} +default: +{ +lean_object* x_19; +lean_free_object(x_6); +lean_dec(x_10); +lean_dec(x_5); +x_19 = lean_ctor_get(x_2, 1); +lean_inc(x_19); +lean_dec(x_2); +x_2 = x_19; +goto _start; +} +} +} +else +{ +lean_object* x_21; +x_21 = lean_ctor_get(x_6, 0); +lean_inc(x_21); +lean_dec(x_6); +switch (lean_obj_tag(x_21)) { +case 1: +{ +lean_object* x_22; lean_object* x_23; +lean_dec(x_21); +x_22 = lean_ctor_get(x_2, 1); +lean_inc(x_22); +lean_dec(x_2); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_5); +lean_ctor_set(x_23, 1, x_3); +x_2 = x_22; +x_3 = x_23; +goto _start; +} +case 3: +{ +lean_object* x_25; lean_object* x_26; uint8_t x_27; +x_25 = lean_ctor_get(x_2, 1); +lean_inc(x_25); +lean_dec(x_2); +x_26 = lean_ctor_get(x_21, 1); +lean_inc(x_26); +lean_dec(x_21); +x_27 = lean_expr_eqv(x_26, x_1); +lean_dec(x_26); +if (x_27 == 0) +{ +lean_dec(x_5); +x_2 = x_25; +goto _start; +} +else +{ +lean_object* x_29; +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_5); +lean_ctor_set(x_29, 1, x_3); +x_2 = x_25; +x_3 = x_29; +goto _start; +} +} +default: +{ +lean_object* x_31; +lean_dec(x_21); +lean_dec(x_5); +x_31 = lean_ctor_get(x_2, 1); +lean_inc(x_31); +lean_dec(x_2); +x_2 = x_31; +goto _start; +} +} +} +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_2); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_2, 0); +x_9 = lean_ctor_get(x_2, 1); +lean_inc(x_3); +lean_inc(x_1); +x_10 = l_Lean_Meta_DepElim_Alt_applyFVarSubst(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__5(x_1, x_9, x_3, x_12); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_13, 0); +lean_ctor_set(x_2, 1, x_15); +lean_ctor_set(x_2, 0, x_11); +lean_ctor_set(x_13, 0, x_2); +return x_13; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_13, 0); +x_17 = lean_ctor_get(x_13, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_13); +lean_ctor_set(x_2, 1, x_16); +lean_ctor_set(x_2, 0, x_11); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +else +{ +uint8_t x_19; +lean_dec(x_11); +lean_free_object(x_2); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; +} +} +} +else +{ +uint8_t x_23; +lean_free_object(x_2); +lean_dec(x_9); +lean_dec(x_3); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_10); +if (x_23 == 0) +{ +return x_10; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_10, 0); +x_25 = lean_ctor_get(x_10, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_10); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_2, 0); +x_28 = lean_ctor_get(x_2, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_2); +lean_inc(x_3); +lean_inc(x_1); +x_29 = l_Lean_Meta_DepElim_Alt_applyFVarSubst(x_1, x_27, x_3, x_4); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__5(x_1, x_28, x_3, x_31); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_35 = x_32; +} else { + lean_dec_ref(x_32); + x_35 = lean_box(0); +} +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_33); +if (lean_is_scalar(x_35)) { + x_37 = lean_alloc_ctor(0, 2, 0); +} else { + x_37 = x_35; +} +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_38 = lean_ctor_get(x_32, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_32, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_40 = x_32; +} else { + lean_dec_ref(x_32); + x_40 = lean_box(0); +} +if (lean_is_scalar(x_40)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_40; +} +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +return x_41; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_28); +lean_dec(x_3); +lean_dec(x_1); +x_42 = lean_ctor_get(x_29, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_29, 1); +lean_inc(x_43); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + lean_ctor_release(x_29, 1); + x_44 = x_29; +} else { + lean_dec_ref(x_29); + x_44 = lean_box(0); +} +if (lean_is_scalar(x_44)) { + x_45 = lean_alloc_ctor(1, 2, 0); +} else { + x_45 = x_44; +} +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_43); +return x_45; +} +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +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_25; +x_7 = lean_ctor_get(x_2, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +if (lean_is_exclusive(x_2)) { + lean_ctor_release(x_2, 0); + lean_ctor_release(x_2, 1); + x_9 = x_2; +} else { + lean_dec_ref(x_2); + x_9 = lean_box(0); +} +x_25 = lean_ctor_get(x_7, 3); +lean_inc(x_25); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_dec(x_7); +x_26 = l_Lean_Meta_isClassQuick___main___closed__1; +x_27 = l_unreachable_x21___rarg(x_26); +lean_inc(x_3); +x_28 = lean_apply_2(x_27, x_3, x_4); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; lean_object* x_30; +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_10 = x_29; +x_11 = x_30; +goto block_24; +} +else +{ +uint8_t x_31; +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_31 = !lean_is_exclusive(x_28); +if (x_31 == 0) +{ +return x_28; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_28, 0); +x_33 = lean_ctor_get(x_28, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_28); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +else +{ +lean_object* x_35; +x_35 = lean_ctor_get(x_25, 0); +lean_inc(x_35); +switch (lean_obj_tag(x_35)) { +case 1: +{ +uint8_t x_36; +x_36 = !lean_is_exclusive(x_7); +if (x_36 == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_37 = lean_ctor_get(x_7, 0); +x_38 = lean_ctor_get(x_7, 1); +x_39 = lean_ctor_get(x_7, 2); +x_40 = lean_ctor_get(x_7, 3); +lean_dec(x_40); +x_41 = lean_ctor_get(x_25, 1); +lean_inc(x_41); +lean_dec(x_25); +x_42 = lean_ctor_get(x_35, 1); +lean_inc(x_42); +lean_dec(x_35); +lean_inc(x_1); +lean_inc(x_42); +x_43 = l_Lean_Meta_assignExprMVar(x_42, x_1, x_3, x_4); +if (lean_obj_tag(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; +x_44 = lean_ctor_get(x_43, 1); +lean_inc(x_44); +lean_dec(x_43); +x_45 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_41, x_3, x_44); +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +x_48 = l_Lean_Meta_instantiateMVars(x_38, x_3, x_47); +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_51 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_39, x_42); +lean_dec(x_42); +lean_ctor_set(x_7, 3, x_46); +lean_ctor_set(x_7, 2, x_51); +lean_ctor_set(x_7, 1, x_49); +x_10 = x_7; +x_11 = x_50; +goto block_24; +} +else +{ +uint8_t x_52; +lean_dec(x_42); +lean_dec(x_41); +lean_free_object(x_7); +lean_dec(x_39); +lean_dec(x_38); +lean_dec(x_37); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_52 = !lean_is_exclusive(x_43); +if (x_52 == 0) +{ +return x_43; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_43, 0); +x_54 = lean_ctor_get(x_43, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_43); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; +} +} +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_56 = lean_ctor_get(x_7, 0); +x_57 = lean_ctor_get(x_7, 1); +x_58 = lean_ctor_get(x_7, 2); +lean_inc(x_58); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_7); +x_59 = lean_ctor_get(x_25, 1); +lean_inc(x_59); +lean_dec(x_25); +x_60 = lean_ctor_get(x_35, 1); +lean_inc(x_60); +lean_dec(x_35); +lean_inc(x_1); +lean_inc(x_60); +x_61 = l_Lean_Meta_assignExprMVar(x_60, x_1, x_3, x_4); +if (lean_obj_tag(x_61) == 0) +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_62 = lean_ctor_get(x_61, 1); +lean_inc(x_62); +lean_dec(x_61); +x_63 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_59, x_3, x_62); +x_64 = lean_ctor_get(x_63, 0); +lean_inc(x_64); +x_65 = lean_ctor_get(x_63, 1); +lean_inc(x_65); +lean_dec(x_63); +x_66 = l_Lean_Meta_instantiateMVars(x_57, x_3, x_65); +x_67 = lean_ctor_get(x_66, 0); +lean_inc(x_67); +x_68 = lean_ctor_get(x_66, 1); +lean_inc(x_68); +lean_dec(x_66); +x_69 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_58, x_60); +lean_dec(x_60); +x_70 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_70, 0, x_56); +lean_ctor_set(x_70, 1, x_67); +lean_ctor_set(x_70, 2, x_69); +lean_ctor_set(x_70, 3, x_64); +x_10 = x_70; +x_11 = x_68; +goto block_24; +} +else +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; +lean_dec(x_60); +lean_dec(x_59); +lean_dec(x_58); +lean_dec(x_57); +lean_dec(x_56); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_71 = lean_ctor_get(x_61, 0); +lean_inc(x_71); +x_72 = lean_ctor_get(x_61, 1); +lean_inc(x_72); +if (lean_is_exclusive(x_61)) { + lean_ctor_release(x_61, 0); + lean_ctor_release(x_61, 1); + x_73 = x_61; +} else { + lean_dec_ref(x_61); + x_73 = lean_box(0); +} +if (lean_is_scalar(x_73)) { + x_74 = lean_alloc_ctor(1, 2, 0); +} else { + x_74 = x_73; +} +lean_ctor_set(x_74, 0, x_71); +lean_ctor_set(x_74, 1, x_72); +return x_74; +} +} +} +case 3: +{ +uint8_t x_75; +lean_dec(x_35); +x_75 = !lean_is_exclusive(x_7); +if (x_75 == 0) +{ +lean_object* x_76; lean_object* x_77; +x_76 = lean_ctor_get(x_7, 3); +lean_dec(x_76); +x_77 = lean_ctor_get(x_25, 1); +lean_inc(x_77); +lean_dec(x_25); +lean_ctor_set(x_7, 3, x_77); +x_10 = x_7; +x_11 = x_4; +goto block_24; +} +else +{ +lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_78 = lean_ctor_get(x_7, 0); +x_79 = lean_ctor_get(x_7, 1); +x_80 = lean_ctor_get(x_7, 2); +lean_inc(x_80); +lean_inc(x_79); +lean_inc(x_78); +lean_dec(x_7); +x_81 = lean_ctor_get(x_25, 1); +lean_inc(x_81); +lean_dec(x_25); +x_82 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_82, 0, x_78); +lean_ctor_set(x_82, 1, x_79); +lean_ctor_set(x_82, 2, x_80); +lean_ctor_set(x_82, 3, x_81); +x_10 = x_82; +x_11 = x_4; +goto block_24; +} +} +default: +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; +lean_dec(x_35); +lean_dec(x_25); +lean_dec(x_7); +x_83 = l_Lean_Meta_isClassQuick___main___closed__1; +x_84 = l_unreachable_x21___rarg(x_83); +lean_inc(x_3); +x_85 = lean_apply_2(x_84, x_3, x_4); +if (lean_obj_tag(x_85) == 0) +{ +lean_object* x_86; lean_object* x_87; +x_86 = lean_ctor_get(x_85, 0); +lean_inc(x_86); +x_87 = lean_ctor_get(x_85, 1); +lean_inc(x_87); +lean_dec(x_85); +x_10 = x_86; +x_11 = x_87; +goto block_24; +} +else +{ +uint8_t x_88; +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_1); +x_88 = !lean_is_exclusive(x_85); +if (x_88 == 0) +{ +return x_85; +} +else +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; +x_89 = lean_ctor_get(x_85, 0); +x_90 = lean_ctor_get(x_85, 1); +lean_inc(x_90); +lean_inc(x_89); +lean_dec(x_85); +x_91 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_91, 0, x_89); +lean_ctor_set(x_91, 1, x_90); +return x_91; +} +} +} +} +} +block_24: +{ +lean_object* x_12; +x_12 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__6(x_1, x_8, x_3, x_11); +if (lean_obj_tag(x_12) == 0) +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_12, 0); +if (lean_is_scalar(x_9)) { + x_15 = lean_alloc_ctor(1, 2, 0); +} else { + x_15 = x_9; +} +lean_ctor_set(x_15, 0, x_10); +lean_ctor_set(x_15, 1, x_14); +lean_ctor_set(x_12, 0, x_15); +return x_12; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_12, 0); +x_17 = lean_ctor_get(x_12, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_12); +if (lean_is_scalar(x_9)) { + x_18 = lean_alloc_ctor(1, 2, 0); +} else { + x_18 = x_9; +} +lean_ctor_set(x_18, 0, x_10); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +return x_19; +} +} +else +{ +uint8_t x_20; +lean_dec(x_10); +lean_dec(x_9); +x_20 = !lean_is_exclusive(x_12); +if (x_20 == 0) +{ +return x_12; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_12, 0); +x_22 = lean_ctor_get(x_12, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_12); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_FVarSubst_apply(x_1, x_5); +x_8 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_FVarSubst_apply(x_1, x_9); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7(x_1, x_10); +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* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, 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) { +_start: +{ +lean_object* x_14; uint8_t x_15; +x_14 = lean_unsigned_to_nat(0u); +x_15 = lean_nat_dec_eq(x_10, x_14); +if (x_15 == 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; uint8_t x_23; +x_16 = lean_unsigned_to_nat(1u); +x_17 = lean_nat_sub(x_10, x_16); +lean_dec(x_10); +x_18 = lean_nat_sub(x_9, x_17); +x_19 = lean_nat_sub(x_18, x_16); +lean_dec(x_18); +x_20 = l_Lean_Meta_CaseValueSubgoals_inhabited; +x_21 = lean_array_get(x_20, x_8, x_19); +x_22 = lean_array_get_size(x_6); +x_23 = lean_nat_dec_lt(x_19, x_22); +lean_dec(x_22); +if (x_23 == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_dec(x_19); +x_24 = lean_ctor_get(x_2, 2); +lean_inc(x_24); +x_25 = lean_ctor_get(x_2, 3); +lean_inc(x_25); +x_26 = lean_box(0); +x_27 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__1(x_24, x_26); +lean_inc(x_12); +x_28 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_27, x_12, x_13); +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; +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 = lean_ctor_get(x_21, 0); +lean_inc(x_31); +lean_dec(x_21); +lean_inc(x_3); +x_32 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_3); +lean_ctor_set(x_32, 2, x_29); +lean_ctor_set(x_32, 3, x_25); +lean_inc(x_1); +lean_inc(x_12); +x_33 = lean_apply_4(x_1, x_32, x_11, x_12, x_30); +if (lean_obj_tag(x_33) == 0) +{ +lean_object* x_34; lean_object* x_35; +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_ctor_get(x_33, 1); +lean_inc(x_35); +lean_dec(x_33); +x_10 = x_17; +x_11 = x_34; +x_13 = x_35; +goto _start; +} +else +{ +uint8_t x_37; +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_37 = !lean_is_exclusive(x_33); +if (x_37 == 0) +{ +return x_33; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_33, 0); +x_39 = lean_ctor_get(x_33, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_33); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; +} +} +} +else +{ +uint8_t x_41; +lean_dec(x_25); +lean_dec(x_21); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_41 = !lean_is_exclusive(x_28); +if (x_41 == 0) +{ +return x_28; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_28, 0); +x_43 = lean_ctor_get(x_28, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_28); +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 +{ +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; +x_45 = lean_array_fget(x_6, x_19); +x_46 = lean_ctor_get(x_21, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_21, 2); +lean_inc(x_47); +lean_dec(x_21); +x_48 = lean_ctor_get(x_2, 2); +lean_inc(x_48); +x_49 = lean_ctor_get(x_2, 3); +lean_inc(x_49); +lean_inc(x_2); +x_50 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2(x_2, x_4, x_19, lean_box(0), x_49); +x_51 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3(x_8, x_19, x_50); +lean_dec(x_19); +x_52 = lean_box(0); +x_53 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__4(x_45, x_48, x_52); +lean_inc(x_12); +lean_inc(x_47); +x_54 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__5(x_47, x_53, x_12, x_13); +if (lean_obj_tag(x_54) == 0) +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_54, 0); +lean_inc(x_55); +x_56 = lean_ctor_get(x_54, 1); +lean_inc(x_56); +lean_dec(x_54); +lean_inc(x_12); +x_57 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_55, x_12, x_56); +if (lean_obj_tag(x_57) == 0) +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_57, 1); +lean_inc(x_59); +lean_dec(x_57); +lean_inc(x_12); +x_60 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__6(x_45, x_58, x_12, x_59); +if (lean_obj_tag(x_60) == 0) +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +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); +lean_inc(x_5); +x_63 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7(x_47, x_5); +lean_dec(x_47); +x_64 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_64, 0, x_46); +lean_ctor_set(x_64, 1, x_63); +lean_ctor_set(x_64, 2, x_61); +lean_ctor_set(x_64, 3, x_51); +lean_inc(x_1); +lean_inc(x_12); +x_65 = lean_apply_4(x_1, x_64, x_11, x_12, x_62); +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_10 = x_17; +x_11 = x_66; +x_13 = x_67; +goto _start; +} +else +{ +uint8_t x_69; +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_69 = !lean_is_exclusive(x_65); +if (x_69 == 0) +{ +return x_65; +} +else +{ +lean_object* x_70; lean_object* x_71; lean_object* x_72; +x_70 = lean_ctor_get(x_65, 0); +x_71 = lean_ctor_get(x_65, 1); +lean_inc(x_71); +lean_inc(x_70); +lean_dec(x_65); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_70); +lean_ctor_set(x_72, 1, x_71); +return x_72; +} +} +} +else +{ +uint8_t x_73; +lean_dec(x_51); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_73 = !lean_is_exclusive(x_60); +if (x_73 == 0) +{ +return x_60; +} +else +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; +x_74 = lean_ctor_get(x_60, 0); +x_75 = lean_ctor_get(x_60, 1); +lean_inc(x_75); +lean_inc(x_74); +lean_dec(x_60); +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_74); +lean_ctor_set(x_76, 1, x_75); +return x_76; +} +} +} +else +{ +uint8_t x_77; +lean_dec(x_51); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_45); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_77 = !lean_is_exclusive(x_57); +if (x_77 == 0) +{ +return x_57; +} +else +{ +lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_78 = lean_ctor_get(x_57, 0); +x_79 = lean_ctor_get(x_57, 1); +lean_inc(x_79); +lean_inc(x_78); +lean_dec(x_57); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_78); +lean_ctor_set(x_80, 1, x_79); +return x_80; +} +} +} +else +{ +uint8_t x_81; +lean_dec(x_51); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_45); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_81 = !lean_is_exclusive(x_54); +if (x_81 == 0) +{ +return x_54; +} +else +{ +lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_82 = lean_ctor_get(x_54, 0); +x_83 = lean_ctor_get(x_54, 1); +lean_inc(x_83); +lean_inc(x_82); +lean_dec(x_54); +x_84 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_84, 0, x_82); +lean_ctor_set(x_84, 1, x_83); +return x_84; +} +} +} +} +else +{ +lean_object* x_85; +lean_dec(x_12); +lean_dec(x_10); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_85 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_85, 0, x_11); +lean_ctor_set(x_85, 1, x_13); +return x_85; +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("value step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___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_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___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_Lean_Meta_EqnCompiler_DepElim_33__processValue(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_27; uint8_t x_28; +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +x_27 = lean_ctor_get(x_5, 4); +lean_inc(x_27); +x_28 = lean_ctor_get_uint8(x_27, sizeof(void*)*1); +lean_dec(x_27); +if (x_28 == 0) +{ +x_7 = x_5; +goto block_26; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_29 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_30 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_29, x_4, x_5); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_unbox(x_31); +lean_dec(x_31); +if (x_32 == 0) +{ +lean_object* x_33; +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +lean_dec(x_30); +x_7 = x_33; +goto block_26; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_34 = lean_ctor_get(x_30, 1); +lean_inc(x_34); +lean_dec(x_30); +x_35 = l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__3; +x_36 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_29, x_35, x_4, x_34); +x_37 = lean_ctor_get(x_36, 1); +lean_inc(x_37); +lean_dec(x_36); +x_7 = x_37; +goto block_26; +} +} +block_26: +{ +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_8 = l_Lean_Meta_isClassQuick___main___closed__1; +x_9 = l_unreachable_x21___rarg(x_8); +x_10 = lean_apply_2(x_9, x_4, x_7); +return x_10; +} +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; +x_11 = lean_ctor_get(x_6, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_6, 1); +lean_inc(x_12); +lean_inc(x_2); +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_31__collectValues(x_2); +x_14 = lean_ctor_get(x_2, 0); +lean_inc(x_14); +x_15 = l_Lean_Expr_fvarId_x21(x_11); +x_16 = l_Lean_Meta_caseValue___closed__2; +lean_inc(x_15); +x_17 = l_Lean_Meta_caseValues(x_14, x_15, x_13, x_16, x_4, x_7); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +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); +x_20 = lean_array_get_size(x_18); +lean_inc(x_20); +x_21 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__8(x_1, x_2, x_6, x_11, x_12, x_13, x_15, x_18, x_20, x_20, x_3, x_4, x_19); +lean_dec(x_20); +lean_dec(x_18); +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_11); +return x_21; +} +else +{ +uint8_t x_22; +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_17); +if (x_22 == 0) +{ +return x_17; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_17, 0); +x_24 = lean_ctor_get(x_17, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_17); +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_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__2(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__3(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__4(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__7(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__8___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, 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) { +_start: +{ +lean_object* x_14; +x_14 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__8(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12, x_13); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +return x_14; +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_3, 3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_2, 1); +x_2 = x_5; +goto _start; +} +else +{ +lean_object* x_7; +x_7 = lean_ctor_get(x_4, 0); +if (lean_obj_tag(x_7) == 4) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_2, 1); +x_9 = lean_ctor_get(x_7, 2); +x_10 = lean_unsigned_to_nat(0u); +x_11 = l_List_lengthAux___main___rarg(x_9, x_10); +x_12 = l_Array_contains___at___private_Lean_Meta_FunInfo_3__collectDepsAux___main___spec__2(x_1, x_11); +if (x_12 == 0) +{ +lean_object* x_13; +x_13 = lean_array_push(x_1, x_11); +x_1 = x_13; +x_2 = x_8; +goto _start; +} +else +{ +lean_dec(x_11); +x_2 = x_8; +goto _start; +} +} +else +{ +lean_object* x_16; +x_16 = lean_ctor_get(x_2, 1); +x_2 = x_16; +goto _start; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 2); +x_3 = l_Array_empty___closed__1; +x_4 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___spec__1(x_3, x_2); +return x_4; +} +} +lean_object* l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_foldl___main___at___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_mkFVar(x_4); +x_7 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_mkFVar(x_8); +x_11 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Meta_FVarSubst_apply(x_1, x_5); +x_8 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +x_11 = l_Lean_Meta_FVarSubst_apply(x_1, x_9); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2(x_1, x_10); +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* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__3(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_6, 0, x_4); +x_7 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__3(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_10, 0, x_8); +x_11 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__3(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; +x_5 = lean_box(0); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_4); +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_16; lean_object* x_17; +x_7 = lean_ctor_get(x_4, 0); +x_8 = lean_ctor_get(x_4, 1); +x_9 = l_Lean_Expr_fvarId_x21(x_1); +x_10 = l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +x_11 = lean_array_get(x_10, x_2, x_3); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = l_Array_toList___rarg(x_12); +lean_dec(x_12); +x_14 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__3(x_13); +x_15 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_15, 0, x_14); +x_16 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_9, x_15, x_7); +lean_dec(x_15); +lean_dec(x_9); +x_17 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4(x_1, x_2, x_3, x_8); +lean_ctor_set(x_4, 1, x_17); +lean_ctor_set(x_4, 0, x_16); +return x_4; +} +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_4, 0); +x_19 = lean_ctor_get(x_4, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_4); +x_20 = l_Lean_Expr_fvarId_x21(x_1); +x_21 = l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +x_22 = lean_array_get(x_21, x_2, x_3); +x_23 = lean_ctor_get(x_22, 1); +lean_inc(x_23); +lean_dec(x_22); +x_24 = l_Array_toList___rarg(x_23); +lean_dec(x_23); +x_25 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__3(x_24); +x_26 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_26, 0, x_25); +x_27 = l_Lean_Meta_DepElim_Example_replaceFVarId___main(x_20, x_26, x_18); +lean_dec(x_26); +lean_dec(x_20); +x_28 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4(x_1, x_2, x_3, x_19); +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; +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +else +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (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_11; lean_object* x_12; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +x_9 = lean_array_get(x_8, x_1, x_2); +x_10 = lean_ctor_get(x_9, 3); +lean_inc(x_10); +lean_dec(x_9); +x_11 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_10, x_6); +lean_dec(x_10); +x_12 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5(x_1, x_2, x_7); +lean_ctor_set(x_3, 1, x_12); +lean_ctor_set(x_3, 0, x_11); +return x_3; +} +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; +x_13 = lean_ctor_get(x_3, 0); +x_14 = lean_ctor_get(x_3, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_3); +x_15 = l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +x_16 = lean_array_get(x_15, x_1, x_2); +x_17 = lean_ctor_get(x_16, 3); +lean_inc(x_17); +lean_dec(x_16); +x_18 = l_Lean_Meta_DepElim_Example_applyFVarSubst___main(x_17, x_13); +lean_dec(x_17); +x_19 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5(x_1, x_2, x_14); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_4; +x_4 = l_List_reverse___rarg(x_3); +return x_4; +} +else +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_2, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_5, 3); +lean_inc(x_6); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; +lean_dec(x_5); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_dec(x_2); +x_2 = x_7; +goto _start; +} +else +{ +uint8_t x_9; +x_9 = !lean_is_exclusive(x_6); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_ctor_get(x_6, 0); +x_11 = lean_ctor_get(x_6, 1); +lean_dec(x_11); +switch (lean_obj_tag(x_10)) { +case 1: +{ +lean_object* x_12; +lean_dec(x_10); +x_12 = lean_ctor_get(x_2, 1); +lean_inc(x_12); +lean_dec(x_2); +lean_ctor_set(x_6, 1, x_3); +lean_ctor_set(x_6, 0, x_5); +x_2 = x_12; +x_3 = x_6; +goto _start; +} +case 4: +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; +x_14 = lean_ctor_get(x_2, 1); +lean_inc(x_14); +lean_dec(x_2); +x_15 = lean_ctor_get(x_10, 2); +lean_inc(x_15); +lean_dec(x_10); +x_16 = lean_unsigned_to_nat(0u); +x_17 = l_List_lengthAux___main___rarg(x_15, x_16); +lean_dec(x_15); +x_18 = lean_nat_dec_eq(x_17, x_1); +lean_dec(x_17); +if (x_18 == 0) +{ +lean_free_object(x_6); +lean_dec(x_5); +x_2 = x_14; +goto _start; +} +else +{ +lean_ctor_set(x_6, 1, x_3); +lean_ctor_set(x_6, 0, x_5); +x_2 = x_14; +x_3 = x_6; +goto _start; +} +} +default: +{ +lean_object* x_21; +lean_free_object(x_6); +lean_dec(x_10); +lean_dec(x_5); +x_21 = lean_ctor_get(x_2, 1); +lean_inc(x_21); +lean_dec(x_2); +x_2 = x_21; +goto _start; +} +} +} +else +{ +lean_object* x_23; +x_23 = lean_ctor_get(x_6, 0); +lean_inc(x_23); +lean_dec(x_6); +switch (lean_obj_tag(x_23)) { +case 1: +{ +lean_object* x_24; lean_object* x_25; +lean_dec(x_23); +x_24 = lean_ctor_get(x_2, 1); +lean_inc(x_24); +lean_dec(x_2); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_5); +lean_ctor_set(x_25, 1, x_3); +x_2 = x_24; +x_3 = x_25; +goto _start; +} +case 4: +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; +x_27 = lean_ctor_get(x_2, 1); +lean_inc(x_27); +lean_dec(x_2); +x_28 = lean_ctor_get(x_23, 2); +lean_inc(x_28); +lean_dec(x_23); +x_29 = lean_unsigned_to_nat(0u); +x_30 = l_List_lengthAux___main___rarg(x_28, x_29); +lean_dec(x_28); +x_31 = lean_nat_dec_eq(x_30, x_1); +lean_dec(x_30); +if (x_31 == 0) +{ +lean_dec(x_5); +x_2 = x_27; +goto _start; +} +else +{ +lean_object* x_33; +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_5); +lean_ctor_set(x_33, 1, x_3); +x_2 = x_27; +x_3 = x_33; +goto _start; +} +} +default: +{ +lean_object* x_35; +lean_dec(x_23); +lean_dec(x_5); +x_35 = lean_ctor_get(x_2, 1); +lean_inc(x_35); +lean_dec(x_2); +x_2 = x_35; +goto _start; +} +} +} +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_3); +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_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_2); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_2, 0); +x_9 = lean_ctor_get(x_2, 1); +lean_inc(x_3); +lean_inc(x_1); +x_10 = l_Lean_Meta_DepElim_Alt_applyFVarSubst(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__7(x_1, x_9, x_3, x_12); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_13, 0); +lean_ctor_set(x_2, 1, x_15); +lean_ctor_set(x_2, 0, x_11); +lean_ctor_set(x_13, 0, x_2); +return x_13; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_13, 0); +x_17 = lean_ctor_get(x_13, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_13); +lean_ctor_set(x_2, 1, x_16); +lean_ctor_set(x_2, 0, x_11); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +else +{ +uint8_t x_19; +lean_dec(x_11); +lean_free_object(x_2); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; +} +} +} +else +{ +uint8_t x_23; +lean_free_object(x_2); +lean_dec(x_9); +lean_dec(x_3); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_10); +if (x_23 == 0) +{ +return x_10; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_10, 0); +x_25 = lean_ctor_get(x_10, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_10); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_2, 0); +x_28 = lean_ctor_get(x_2, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_2); +lean_inc(x_3); +lean_inc(x_1); +x_29 = l_Lean_Meta_DepElim_Alt_applyFVarSubst(x_1, x_27, x_3, x_4); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__7(x_1, x_28, x_3, x_31); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_35 = x_32; +} else { + lean_dec_ref(x_32); + x_35 = lean_box(0); +} +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_33); +if (lean_is_scalar(x_35)) { + x_37 = lean_alloc_ctor(0, 2, 0); +} else { + x_37 = x_35; +} +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_38 = lean_ctor_get(x_32, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_32, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_32)) { + lean_ctor_release(x_32, 0); + lean_ctor_release(x_32, 1); + x_40 = x_32; +} else { + lean_dec_ref(x_32); + x_40 = lean_box(0); +} +if (lean_is_scalar(x_40)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_40; +} +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +return x_41; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_28); +lean_dec(x_3); +lean_dec(x_1); +x_42 = lean_ctor_get(x_29, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_29, 1); +lean_inc(x_43); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + lean_ctor_release(x_29, 1); + x_44 = x_29; +} else { + lean_dec_ref(x_29); + x_44 = lean_box(0); +} +if (lean_is_scalar(x_44)) { + x_45 = lean_alloc_ctor(1, 2, 0); +} else { + x_45 = x_44; +} +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_43); +return x_45; +} +} +} +} +} +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_nat_dec_eq(x_3, x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_3, x_9); +lean_dec(x_3); +x_11 = lean_box(0); +x_12 = 0; +lean_inc(x_5); +lean_inc(x_1); +x_13 = l_Lean_Meta_mkFreshExprMVar(x_1, x_11, x_12, x_5, x_6); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_4); +x_3 = x_10; +x_4 = x_16; +x_6 = x_15; +goto _start; +} +else +{ +lean_object* x_18; +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_1); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_4); +lean_ctor_set(x_18, 1, x_6); +return x_18; +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__9(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Expr_mvarId_x21(x_4); +lean_dec(x_4); +x_7 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__9(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_Expr_mvarId_x21(x_8); +lean_dec(x_8); +x_11 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__9(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__10(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +lean_dec(x_1); +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = l_Lean_Expr_mvarId_x21(x_5); +lean_dec(x_5); +lean_inc(x_1); +x_8 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_8, 0, x_1); +lean_ctor_set(x_8, 1, x_7); +x_9 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__10(x_1, x_6); +lean_ctor_set(x_2, 1, x_9); +lean_ctor_set(x_2, 0, x_8); +return x_2; +} +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; +x_10 = lean_ctor_get(x_2, 0); +x_11 = lean_ctor_get(x_2, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_2); +x_12 = l_Lean_Expr_mvarId_x21(x_10); +lean_dec(x_10); +lean_inc(x_1); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_1); +lean_ctor_set(x_13, 1, x_12); +x_14 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__10(x_1, x_11); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +return x_15; +} +} +} +} +lean_object* l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__11(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(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_5); +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_26; +x_8 = lean_ctor_get(x_3, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_3, 1); +lean_inc(x_9); +if (lean_is_exclusive(x_3)) { + lean_ctor_release(x_3, 0); + lean_ctor_release(x_3, 1); + x_10 = x_3; +} else { + lean_dec_ref(x_3); + x_10 = lean_box(0); +} +x_26 = lean_ctor_get(x_8, 3); +lean_inc(x_26); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +lean_dec(x_8); +x_27 = l_Lean_Meta_isClassQuick___main___closed__1; +x_28 = l_unreachable_x21___rarg(x_27); +lean_inc(x_4); +x_29 = lean_apply_2(x_28, x_4, x_5); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_11 = x_30; +x_12 = x_31; +goto block_25; +} +else +{ +uint8_t x_32; +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_32 = !lean_is_exclusive(x_29); +if (x_32 == 0) +{ +return x_29; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_29, 0); +x_34 = lean_ctor_get(x_29, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_29); +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_33); +lean_ctor_set(x_35, 1, x_34); +return x_35; +} +} +} +else +{ +lean_object* x_36; +x_36 = lean_ctor_get(x_26, 0); +lean_inc(x_36); +switch (lean_obj_tag(x_36)) { +case 1: +{ +uint8_t x_37; +x_37 = !lean_is_exclusive(x_8); +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; lean_object* x_45; +x_38 = lean_ctor_get(x_8, 0); +x_39 = lean_ctor_get(x_8, 1); +x_40 = lean_ctor_get(x_8, 2); +x_41 = lean_ctor_get(x_8, 3); +lean_dec(x_41); +x_42 = lean_ctor_get(x_26, 1); +lean_inc(x_42); +lean_dec(x_26); +x_43 = lean_ctor_get(x_36, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_36, 1); +lean_inc(x_44); +lean_dec(x_36); +lean_inc(x_4); +lean_inc(x_1); +x_45 = l_Lean_Meta_getArrayArgType(x_1, x_4, x_5); +if (lean_obj_tag(x_45) == 0) +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +x_48 = lean_box(0); +lean_inc(x_4); +lean_inc(x_2); +lean_inc(x_46); +x_49 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8(x_46, x_2, x_2, x_48, x_4, x_47); +x_50 = lean_ctor_get(x_49, 0); +lean_inc(x_50); +x_51 = lean_ctor_get(x_49, 1); +lean_inc(x_51); +lean_dec(x_49); +lean_inc(x_4); +lean_inc(x_50); +x_52 = l_Lean_Meta_mkArrayLit(x_46, x_50, x_4, x_51); +if (lean_obj_tag(x_52) == 0) +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_52, 0); +lean_inc(x_53); +x_54 = lean_ctor_get(x_52, 1); +lean_inc(x_54); +lean_dec(x_52); +lean_inc(x_44); +x_55 = l_Lean_Meta_assignExprMVar(x_44, x_53, x_4, x_54); +if (lean_obj_tag(x_55) == 0) +{ +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_56 = lean_ctor_get(x_55, 1); +lean_inc(x_56); +lean_dec(x_55); +x_57 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_42, x_4, x_56); +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_57, 1); +lean_inc(x_59); +lean_dec(x_57); +x_60 = l_Lean_Meta_instantiateMVars(x_39, x_4, x_59); +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_63 = l_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_40, x_44); +lean_dec(x_44); +lean_inc(x_50); +x_64 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__9(x_50); +x_65 = l_List_append___rarg(x_64, x_63); +x_66 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__10(x_43, x_50); +x_67 = l_List_append___rarg(x_66, x_58); +lean_ctor_set(x_8, 3, x_67); +lean_ctor_set(x_8, 2, x_65); +lean_ctor_set(x_8, 1, x_61); +x_11 = x_8; +x_12 = x_62; +goto block_25; +} +else +{ +uint8_t x_68; +lean_dec(x_50); +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_42); +lean_free_object(x_8); +lean_dec(x_40); +lean_dec(x_39); +lean_dec(x_38); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_68 = !lean_is_exclusive(x_55); +if (x_68 == 0) +{ +return x_55; +} +else +{ +lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_69 = lean_ctor_get(x_55, 0); +x_70 = lean_ctor_get(x_55, 1); +lean_inc(x_70); +lean_inc(x_69); +lean_dec(x_55); +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_69); +lean_ctor_set(x_71, 1, x_70); +return x_71; +} +} +} +else +{ +uint8_t x_72; +lean_dec(x_50); +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_42); +lean_free_object(x_8); +lean_dec(x_40); +lean_dec(x_39); +lean_dec(x_38); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_72 = !lean_is_exclusive(x_52); +if (x_72 == 0) +{ +return x_52; +} +else +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_52, 0); +x_74 = lean_ctor_get(x_52, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_52); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; +} +} +} +else +{ +uint8_t x_76; +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_42); +lean_free_object(x_8); +lean_dec(x_40); +lean_dec(x_39); +lean_dec(x_38); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_76 = !lean_is_exclusive(x_45); +if (x_76 == 0) +{ +return x_45; +} +else +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_77 = lean_ctor_get(x_45, 0); +x_78 = lean_ctor_get(x_45, 1); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_45); +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_77); +lean_ctor_set(x_79, 1, x_78); +return x_79; +} +} +} +else +{ +lean_object* x_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; +x_80 = lean_ctor_get(x_8, 0); +x_81 = lean_ctor_get(x_8, 1); +x_82 = lean_ctor_get(x_8, 2); +lean_inc(x_82); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_8); +x_83 = lean_ctor_get(x_26, 1); +lean_inc(x_83); +lean_dec(x_26); +x_84 = lean_ctor_get(x_36, 0); +lean_inc(x_84); +x_85 = lean_ctor_get(x_36, 1); +lean_inc(x_85); +lean_dec(x_36); +lean_inc(x_4); +lean_inc(x_1); +x_86 = l_Lean_Meta_getArrayArgType(x_1, x_4, x_5); +if (lean_obj_tag(x_86) == 0) +{ +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; +x_87 = lean_ctor_get(x_86, 0); +lean_inc(x_87); +x_88 = lean_ctor_get(x_86, 1); +lean_inc(x_88); +lean_dec(x_86); +x_89 = lean_box(0); +lean_inc(x_4); +lean_inc(x_2); +lean_inc(x_87); +x_90 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8(x_87, x_2, x_2, x_89, x_4, x_88); +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); +lean_inc(x_4); +lean_inc(x_91); +x_93 = l_Lean_Meta_mkArrayLit(x_87, x_91, x_4, x_92); +if (lean_obj_tag(x_93) == 0) +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_94 = lean_ctor_get(x_93, 0); +lean_inc(x_94); +x_95 = lean_ctor_get(x_93, 1); +lean_inc(x_95); +lean_dec(x_93); +lean_inc(x_85); +x_96 = l_Lean_Meta_assignExprMVar(x_85, x_94, x_4, x_95); +if (lean_obj_tag(x_96) == 0) +{ +lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_97 = lean_ctor_get(x_96, 1); +lean_inc(x_97); +lean_dec(x_96); +x_98 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___spec__1(x_83, x_4, x_97); +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_101 = l_Lean_Meta_instantiateMVars(x_81, x_4, x_100); +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_List_erase___main___at___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___spec__1(x_82, x_85); +lean_dec(x_85); +lean_inc(x_91); +x_105 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__9(x_91); +x_106 = l_List_append___rarg(x_105, x_104); +x_107 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__10(x_84, x_91); +x_108 = l_List_append___rarg(x_107, x_99); +x_109 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_109, 0, x_80); +lean_ctor_set(x_109, 1, x_102); +lean_ctor_set(x_109, 2, x_106); +lean_ctor_set(x_109, 3, x_108); +x_11 = x_109; +x_12 = x_103; +goto block_25; +} +else +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +lean_dec(x_91); +lean_dec(x_85); +lean_dec(x_84); +lean_dec(x_83); +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_80); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_110 = lean_ctor_get(x_96, 0); +lean_inc(x_110); +x_111 = lean_ctor_get(x_96, 1); +lean_inc(x_111); +if (lean_is_exclusive(x_96)) { + lean_ctor_release(x_96, 0); + lean_ctor_release(x_96, 1); + x_112 = x_96; +} else { + lean_dec_ref(x_96); + x_112 = lean_box(0); +} +if (lean_is_scalar(x_112)) { + x_113 = lean_alloc_ctor(1, 2, 0); +} else { + x_113 = x_112; +} +lean_ctor_set(x_113, 0, x_110); +lean_ctor_set(x_113, 1, x_111); +return x_113; +} +} +else +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; +lean_dec(x_91); +lean_dec(x_85); +lean_dec(x_84); +lean_dec(x_83); +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_80); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_114 = lean_ctor_get(x_93, 0); +lean_inc(x_114); +x_115 = lean_ctor_get(x_93, 1); +lean_inc(x_115); +if (lean_is_exclusive(x_93)) { + lean_ctor_release(x_93, 0); + lean_ctor_release(x_93, 1); + x_116 = x_93; +} else { + lean_dec_ref(x_93); + 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; +} +} +else +{ +lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; +lean_dec(x_85); +lean_dec(x_84); +lean_dec(x_83); +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_80); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_118 = lean_ctor_get(x_86, 0); +lean_inc(x_118); +x_119 = lean_ctor_get(x_86, 1); +lean_inc(x_119); +if (lean_is_exclusive(x_86)) { + lean_ctor_release(x_86, 0); + lean_ctor_release(x_86, 1); + x_120 = x_86; +} else { + lean_dec_ref(x_86); + x_120 = lean_box(0); +} +if (lean_is_scalar(x_120)) { + x_121 = lean_alloc_ctor(1, 2, 0); +} else { + x_121 = x_120; +} +lean_ctor_set(x_121, 0, x_118); +lean_ctor_set(x_121, 1, x_119); +return x_121; +} +} +} +case 4: +{ +uint8_t x_122; +x_122 = !lean_is_exclusive(x_8); +if (x_122 == 0) +{ +lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_123 = lean_ctor_get(x_8, 3); +lean_dec(x_123); +x_124 = lean_ctor_get(x_26, 1); +lean_inc(x_124); +lean_dec(x_26); +x_125 = lean_ctor_get(x_36, 2); +lean_inc(x_125); +lean_dec(x_36); +x_126 = l_List_append___rarg(x_125, x_124); +lean_ctor_set(x_8, 3, x_126); +x_11 = x_8; +x_12 = x_5; +goto block_25; +} +else +{ +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_127 = lean_ctor_get(x_8, 0); +x_128 = lean_ctor_get(x_8, 1); +x_129 = lean_ctor_get(x_8, 2); +lean_inc(x_129); +lean_inc(x_128); +lean_inc(x_127); +lean_dec(x_8); +x_130 = lean_ctor_get(x_26, 1); +lean_inc(x_130); +lean_dec(x_26); +x_131 = lean_ctor_get(x_36, 2); +lean_inc(x_131); +lean_dec(x_36); +x_132 = l_List_append___rarg(x_131, x_130); +x_133 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_133, 0, x_127); +lean_ctor_set(x_133, 1, x_128); +lean_ctor_set(x_133, 2, x_129); +lean_ctor_set(x_133, 3, x_132); +x_11 = x_133; +x_12 = x_5; +goto block_25; +} +} +default: +{ +lean_object* x_134; lean_object* x_135; lean_object* x_136; +lean_dec(x_36); +lean_dec(x_26); +lean_dec(x_8); +x_134 = l_Lean_Meta_isClassQuick___main___closed__1; +x_135 = l_unreachable_x21___rarg(x_134); +lean_inc(x_4); +x_136 = lean_apply_2(x_135, x_4, x_5); +if (lean_obj_tag(x_136) == 0) +{ +lean_object* x_137; lean_object* x_138; +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_11 = x_137; +x_12 = x_138; +goto block_25; +} +else +{ +uint8_t x_139; +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_139 = !lean_is_exclusive(x_136); +if (x_139 == 0) +{ +return x_136; +} +else +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; +x_140 = lean_ctor_get(x_136, 0); +x_141 = lean_ctor_get(x_136, 1); +lean_inc(x_141); +lean_inc(x_140); +lean_dec(x_136); +x_142 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_142, 0, x_140); +lean_ctor_set(x_142, 1, x_141); +return x_142; +} +} +} +} +} +block_25: +{ +lean_object* x_13; +x_13 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__11(x_1, x_2, x_9, x_4, x_12); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; +x_15 = lean_ctor_get(x_13, 0); +if (lean_is_scalar(x_10)) { + x_16 = lean_alloc_ctor(1, 2, 0); +} else { + x_16 = x_10; +} +lean_ctor_set(x_16, 0, x_11); +lean_ctor_set(x_16, 1, x_15); +lean_ctor_set(x_13, 0, x_16); +return x_13; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_17 = lean_ctor_get(x_13, 0); +x_18 = lean_ctor_get(x_13, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_13); +if (lean_is_scalar(x_10)) { + x_19 = lean_alloc_ctor(1, 2, 0); +} else { + x_19 = x_10; +} +lean_ctor_set(x_19, 0, x_11); +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_18); +return x_20; +} +} +else +{ +uint8_t x_21; +lean_dec(x_11); +lean_dec(x_10); +x_21 = !lean_is_exclusive(x_13); +if (x_21 == 0) +{ +return x_13; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_13, 0); +x_23 = lean_ctor_get(x_13, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_13); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +} +} +} +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__12(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, lean_object* x_11, lean_object* x_12, lean_object* x_13) { +_start: +{ +lean_object* x_14; uint8_t x_15; +x_14 = lean_unsigned_to_nat(0u); +x_15 = lean_nat_dec_eq(x_10, x_14); +if (x_15 == 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; uint8_t x_23; +x_16 = lean_unsigned_to_nat(1u); +x_17 = lean_nat_sub(x_10, x_16); +lean_dec(x_10); +x_18 = lean_nat_sub(x_9, x_17); +x_19 = lean_nat_sub(x_18, x_16); +lean_dec(x_18); +x_20 = l_Lean_Meta_CaseArraySizesSubgoal_inhabited; +x_21 = lean_array_get(x_20, x_8, x_19); +x_22 = lean_array_get_size(x_6); +x_23 = lean_nat_dec_lt(x_19, x_22); +lean_dec(x_22); +if (x_23 == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_dec(x_19); +x_24 = lean_ctor_get(x_2, 2); +lean_inc(x_24); +x_25 = lean_ctor_get(x_2, 3); +lean_inc(x_25); +x_26 = lean_box(0); +x_27 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___spec__1(x_24, x_26); +lean_inc(x_12); +x_28 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_27, x_12, x_13); +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; +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 = lean_ctor_get(x_21, 0); +lean_inc(x_31); +lean_dec(x_21); +lean_inc(x_3); +x_32 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_3); +lean_ctor_set(x_32, 2, x_29); +lean_ctor_set(x_32, 3, x_25); +lean_inc(x_1); +lean_inc(x_12); +x_33 = lean_apply_4(x_1, x_32, x_11, x_12, x_30); +if (lean_obj_tag(x_33) == 0) +{ +lean_object* x_34; lean_object* x_35; +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_ctor_get(x_33, 1); +lean_inc(x_35); +lean_dec(x_33); +x_10 = x_17; +x_11 = x_34; +x_13 = x_35; +goto _start; +} +else +{ +uint8_t x_37; +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_37 = !lean_is_exclusive(x_33); +if (x_37 == 0) +{ +return x_33; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_33, 0); +x_39 = lean_ctor_get(x_33, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_33); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; +} +} +} +else +{ +uint8_t x_41; +lean_dec(x_25); +lean_dec(x_21); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_41 = !lean_is_exclusive(x_28); +if (x_41 == 0) +{ +return x_28; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_28, 0); +x_43 = lean_ctor_get(x_28, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_28); +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 +{ +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; +x_45 = l_Nat_Inhabited; +x_46 = lean_array_get(x_45, x_6, x_19); +x_47 = lean_ctor_get(x_21, 0); +lean_inc(x_47); +x_48 = lean_ctor_get(x_21, 1); +lean_inc(x_48); +x_49 = lean_ctor_get(x_21, 3); +lean_inc(x_49); +lean_dec(x_21); +x_50 = l_Array_toList___rarg(x_48); +lean_dec(x_48); +x_51 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__1(x_50); +lean_inc(x_5); +x_52 = l_List_append___rarg(x_51, x_5); +x_53 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2(x_49, x_52); +x_54 = lean_ctor_get(x_2, 2); +lean_inc(x_54); +x_55 = lean_ctor_get(x_2, 3); +lean_inc(x_55); +x_56 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4(x_4, x_8, x_19, x_55); +x_57 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5(x_8, x_19, x_56); +lean_dec(x_19); +x_58 = lean_box(0); +x_59 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__6(x_46, x_54, x_58); +lean_inc(x_12); +x_60 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__7(x_49, x_59, x_12, x_13); +if (lean_obj_tag(x_60) == 0) +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; +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); +lean_inc(x_12); +x_63 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___spec__8(x_61, x_12, x_62); +if (lean_obj_tag(x_63) == 0) +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_64 = lean_ctor_get(x_63, 0); +lean_inc(x_64); +x_65 = lean_ctor_get(x_63, 1); +lean_inc(x_65); +lean_dec(x_63); +lean_inc(x_12); +lean_inc(x_4); +x_66 = l_List_mapM___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__11(x_4, x_46, x_64, x_12, x_65); +if (lean_obj_tag(x_66) == 0) +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_67 = lean_ctor_get(x_66, 0); +lean_inc(x_67); +x_68 = lean_ctor_get(x_66, 1); +lean_inc(x_68); +lean_dec(x_66); +x_69 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_69, 0, x_47); +lean_ctor_set(x_69, 1, x_53); +lean_ctor_set(x_69, 2, x_67); +lean_ctor_set(x_69, 3, x_57); +lean_inc(x_1); +lean_inc(x_12); +x_70 = lean_apply_4(x_1, x_69, x_11, x_12, x_68); +if (lean_obj_tag(x_70) == 0) +{ +lean_object* x_71; lean_object* x_72; +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_10 = x_17; +x_11 = x_71; +x_13 = x_72; +goto _start; +} +else +{ +uint8_t x_74; +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_74 = !lean_is_exclusive(x_70); +if (x_74 == 0) +{ +return x_70; +} +else +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_75 = lean_ctor_get(x_70, 0); +x_76 = lean_ctor_get(x_70, 1); +lean_inc(x_76); +lean_inc(x_75); +lean_dec(x_70); +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_75); +lean_ctor_set(x_77, 1, x_76); +return x_77; +} +} +} +else +{ +uint8_t x_78; +lean_dec(x_57); +lean_dec(x_53); +lean_dec(x_47); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_78 = !lean_is_exclusive(x_66); +if (x_78 == 0) +{ +return x_66; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; +x_79 = lean_ctor_get(x_66, 0); +x_80 = lean_ctor_get(x_66, 1); +lean_inc(x_80); +lean_inc(x_79); +lean_dec(x_66); +x_81 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_81, 0, x_79); +lean_ctor_set(x_81, 1, x_80); +return x_81; +} +} +} +else +{ +uint8_t x_82; +lean_dec(x_57); +lean_dec(x_53); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_82 = !lean_is_exclusive(x_63); +if (x_82 == 0) +{ +return x_63; +} +else +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; +x_83 = lean_ctor_get(x_63, 0); +x_84 = lean_ctor_get(x_63, 1); +lean_inc(x_84); +lean_inc(x_83); +lean_dec(x_63); +x_85 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_85, 0, x_83); +lean_ctor_set(x_85, 1, x_84); +return x_85; +} +} +} +else +{ +uint8_t x_86; +lean_dec(x_57); +lean_dec(x_53); +lean_dec(x_47); +lean_dec(x_46); +lean_dec(x_17); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_86 = !lean_is_exclusive(x_60); +if (x_86 == 0) +{ +return x_60; +} +else +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_60, 0); +x_88 = lean_ctor_get(x_60, 1); +lean_inc(x_88); +lean_inc(x_87); +lean_dec(x_60); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_87); +lean_ctor_set(x_89, 1, x_88); +return x_89; +} +} +} +} +else +{ +lean_object* x_90; +lean_dec(x_12); +lean_dec(x_10); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_90 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_90, 0, x_11); +lean_ctor_set(x_90, 1, x_13); +return x_90; +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("array literal step"); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___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_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___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_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_28; uint8_t x_29; +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +x_28 = lean_ctor_get(x_5, 4); +lean_inc(x_28); +x_29 = lean_ctor_get_uint8(x_28, sizeof(void*)*1); +lean_dec(x_28); +if (x_29 == 0) +{ +x_7 = x_5; +goto block_27; +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; +x_30 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_31 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_30, x_4, x_5); +x_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +x_33 = lean_unbox(x_32); +lean_dec(x_32); +if (x_33 == 0) +{ +lean_object* x_34; +x_34 = lean_ctor_get(x_31, 1); +lean_inc(x_34); +lean_dec(x_31); +x_7 = x_34; +goto block_27; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_35 = lean_ctor_get(x_31, 1); +lean_inc(x_35); +lean_dec(x_31); +x_36 = l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__3; +x_37 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_30, x_36, x_4, x_35); +x_38 = lean_ctor_get(x_37, 1); +lean_inc(x_38); +lean_dec(x_37); +x_7 = x_38; +goto block_27; +} +} +block_27: +{ +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_8 = l_Lean_Meta_isClassQuick___main___closed__1; +x_9 = l_unreachable_x21___rarg(x_8); +x_10 = lean_apply_2(x_9, x_4, x_7); +return x_10; +} +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; +x_11 = lean_ctor_get(x_6, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_6, 1); +lean_inc(x_12); +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_34__collectArraySizes(x_2); +x_14 = lean_ctor_get(x_2, 0); +lean_inc(x_14); +x_15 = l_Lean_Expr_fvarId_x21(x_11); +x_16 = l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; +x_17 = l_Lean_Meta_caseValue___closed__2; +lean_inc(x_4); +lean_inc(x_13); +lean_inc(x_15); +x_18 = l_Lean_Meta_caseArraySizes(x_14, x_15, x_13, x_16, x_17, x_4, x_7); +if (lean_obj_tag(x_18) == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_array_get_size(x_19); +lean_inc(x_21); +x_22 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__12(x_1, x_2, x_6, x_11, x_12, x_13, x_15, x_19, x_21, x_21, x_3, x_4, x_20); +lean_dec(x_21); +lean_dec(x_19); +lean_dec(x_15); +lean_dec(x_13); +return x_22; +} +else +{ +uint8_t x_23; +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_18); +if (x_23 == 0) +{ +return x_18; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_18, 0); +x_25 = lean_ctor_get(x_18, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_18); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +} +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__4(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_map___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__5(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_filterAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__6(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__8(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_2); +return x_7; +} +} +lean_object* l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__12___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, lean_object* x_11, lean_object* x_12, lean_object* x_13) { +_start: +{ +lean_object* x_14; +x_14 = l_Nat_foldMAux___main___at___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___spec__12(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12, x_13); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +return x_14; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__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_ctor_get_uint8(x_2, sizeof(void*)*1); +if (x_5 == 0) +{ +uint8_t x_6; lean_object* x_7; lean_object* x_8; +lean_dec(x_1); +x_6 = 0; +x_7 = lean_box(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_4); +return x_8; +} +else +{ +lean_object* x_9; +x_9 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_1, x_3, x_4); +return x_9; +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__2(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (x_3 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +lean_dec(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_5); +return x_7; +} +else +{ +lean_object* x_8; +x_8 = l_Lean_Meta_DepElim_Problem_toMessageData(x_1, x_4, x_5); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_2, x_9, x_4, x_10); +return x_11; +} +else +{ +uint8_t x_12; +lean_dec(x_2); +x_12 = !lean_is_exclusive(x_8); +if (x_12 == 0) +{ +return x_8; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_8, 0); +x_14 = lean_ctor_get(x_8, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_8); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +return x_15; +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_2 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__1___boxed), 4, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_tracer___closed__3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__1; +x_3 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___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___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main), 4, 0); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("not implement yet "); +return x_1; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main(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; uint8_t x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; uint8_t x_13; +x_5 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +lean_inc(x_1); +x_6 = lean_alloc_closure((void*)(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__2___boxed), 5, 2); +lean_closure_set(x_6, 0, x_1); +lean_closure_set(x_6, 1, x_5); +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__2; +x_8 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_8, 0, x_7); +lean_closure_set(x_8, 1, x_6); +x_9 = l___private_Lean_Meta_EqnCompiler_DepElim_12__isDone(x_1); +x_10 = lean_ctor_get(x_3, 3); +lean_inc(x_10); +x_11 = lean_ctor_get(x_3, 4); +lean_inc(x_11); +x_12 = lean_nat_dec_eq(x_10, x_11); +if (x_9 == 0) +{ +if (x_12 == 0) +{ +uint8_t x_106; +x_106 = 0; +x_13 = x_106; +goto block_105; +} +else +{ +lean_object* x_107; lean_object* x_108; +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_107 = l_Lean_Meta_withIncRecDepth___rarg___closed__3; +x_108 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_108, 0, x_107); +lean_ctor_set(x_108, 1, x_4); +return x_108; +} +} +else +{ +if (x_12 == 0) +{ +uint8_t x_109; +x_109 = 1; +x_13 = x_109; +goto block_105; +} +else +{ +lean_object* x_110; lean_object* x_111; +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_110 = l_Lean_Meta_withIncRecDepth___rarg___closed__3; +x_111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_111, 0, x_110); +lean_ctor_set(x_111, 1, x_4); +return x_111; +} +} +block_105: +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_3); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_15 = lean_ctor_get(x_3, 4); +lean_dec(x_15); +x_16 = lean_ctor_get(x_3, 3); +lean_dec(x_16); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_10, x_17); +lean_dec(x_10); +lean_ctor_set(x_3, 3, x_18); +lean_inc(x_1); +x_19 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_1, x_8, x_3, x_4); +if (lean_obj_tag(x_19) == 0) +{ +if (x_13 == 0) +{ +lean_object* x_20; uint8_t x_21; +x_20 = lean_ctor_get(x_19, 1); +lean_inc(x_20); +lean_dec(x_19); +x_21 = l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern(x_1); +if (x_21 == 0) +{ +uint8_t x_22; +x_22 = l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar(x_1); +if (x_22 == 0) +{ +lean_object* x_23; lean_object* x_24; +x_23 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_24 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable(x_23, x_1, x_2, x_3, x_20); +return x_24; +} +else +{ +uint8_t x_25; +x_25 = l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition(x_1); +if (x_25 == 0) +{ +uint8_t x_26; +x_26 = l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition(x_1); +if (x_26 == 0) +{ +uint8_t x_27; +x_27 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition(x_1); +if (x_27 == 0) +{ +uint8_t x_28; +x_28 = l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition(x_1); +if (x_28 == 0) +{ +uint8_t x_29; +x_29 = l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition(x_1); +if (x_29 == 0) +{ +lean_object* x_30; +lean_dec(x_2); +x_30 = l_Lean_Meta_DepElim_Problem_toMessageData(x_1, x_3, x_20); +if (lean_obj_tag(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; +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +x_33 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6; +x_34 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_31); +x_35 = lean_box(0); +x_36 = l_Lean_Meta_throwOther___rarg(x_34, x_35, x_3, x_32); +lean_dec(x_3); +return x_36; +} +else +{ +uint8_t x_37; +lean_dec(x_3); +x_37 = !lean_is_exclusive(x_30); +if (x_37 == 0) +{ +return x_30; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_30, 0); +x_39 = lean_ctor_get(x_30, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_30); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; +} +} +} +else +{ +lean_object* x_41; lean_object* x_42; +x_41 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_42 = l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit(x_41, x_1, x_2, x_3, x_20); +return x_42; +} +} +else +{ +lean_object* x_43; lean_object* x_44; +x_43 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_44 = l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue(x_43, x_1, x_2, x_3, x_20); +return x_44; +} +} +else +{ +lean_object* x_45; lean_object* x_46; +x_45 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_46 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete(x_45, x_1, x_2, x_3, x_20); +lean_dec(x_3); +return x_46; +} +} +else +{ +lean_object* x_47; lean_object* x_48; +x_47 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_48 = l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor(x_47, x_1, x_2, x_3, x_20); +return x_48; +} +} +else +{ +lean_object* x_49; lean_object* x_50; +x_49 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_50 = l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable(x_49, x_1, x_2, x_3, x_20); +return x_50; +} +} +} +else +{ +lean_object* x_51; lean_object* x_52; +x_51 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_52 = l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern(x_51, x_1, x_2, x_3, x_20); +return x_52; +} +} +else +{ +lean_object* x_53; lean_object* x_54; +x_53 = lean_ctor_get(x_19, 1); +lean_inc(x_53); +lean_dec(x_19); +x_54 = l___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf(x_1, x_2, x_3, x_53); +lean_dec(x_3); +return x_54; +} +} +else +{ +uint8_t x_55; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_55 = !lean_is_exclusive(x_19); +if (x_55 == 0) +{ +return x_19; +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_19, 0); +x_57 = lean_ctor_get(x_19, 1); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_19); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +} +else +{ +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; +x_59 = lean_ctor_get(x_3, 0); +x_60 = lean_ctor_get(x_3, 1); +x_61 = lean_ctor_get(x_3, 2); +lean_inc(x_61); +lean_inc(x_60); +lean_inc(x_59); +lean_dec(x_3); +x_62 = lean_unsigned_to_nat(1u); +x_63 = lean_nat_add(x_10, x_62); +lean_dec(x_10); +x_64 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_64, 0, x_59); +lean_ctor_set(x_64, 1, x_60); +lean_ctor_set(x_64, 2, x_61); +lean_ctor_set(x_64, 3, x_63); +lean_ctor_set(x_64, 4, x_11); +lean_inc(x_1); +x_65 = l_Lean_Meta_DepElim_withGoalOf___rarg(x_1, x_8, x_64, x_4); +if (lean_obj_tag(x_65) == 0) +{ +if (x_13 == 0) +{ +lean_object* x_66; uint8_t x_67; +x_66 = lean_ctor_get(x_65, 1); +lean_inc(x_66); +lean_dec(x_65); +x_67 = l___private_Lean_Meta_EqnCompiler_DepElim_14__hasAsPattern(x_1); +if (x_67 == 0) +{ +uint8_t x_68; +x_68 = l___private_Lean_Meta_EqnCompiler_DepElim_13__isNextVar(x_1); +if (x_68 == 0) +{ +lean_object* x_69; lean_object* x_70; +x_69 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_70 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable(x_69, x_1, x_2, x_64, x_66); +return x_70; +} +else +{ +uint8_t x_71; +x_71 = l___private_Lean_Meta_EqnCompiler_DepElim_15__isVariableTransition(x_1); +if (x_71 == 0) +{ +uint8_t x_72; +x_72 = l___private_Lean_Meta_EqnCompiler_DepElim_16__isConstructorTransition(x_1); +if (x_72 == 0) +{ +uint8_t x_73; +x_73 = l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition(x_1); +if (x_73 == 0) +{ +uint8_t x_74; +x_74 = l___private_Lean_Meta_EqnCompiler_DepElim_18__isValueTransition(x_1); +if (x_74 == 0) +{ +uint8_t x_75; +x_75 = l___private_Lean_Meta_EqnCompiler_DepElim_19__isArrayLitTransition(x_1); +if (x_75 == 0) +{ +lean_object* x_76; +lean_dec(x_2); +x_76 = l_Lean_Meta_DepElim_Problem_toMessageData(x_1, x_64, x_66); +if (lean_obj_tag(x_76) == 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); +x_78 = lean_ctor_get(x_76, 1); +lean_inc(x_78); +lean_dec(x_76); +x_79 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6; +x_80 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_77); +x_81 = lean_box(0); +x_82 = l_Lean_Meta_throwOther___rarg(x_80, x_81, x_64, x_78); +lean_dec(x_64); +return x_82; +} +else +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +lean_dec(x_64); +x_83 = lean_ctor_get(x_76, 0); +lean_inc(x_83); +x_84 = lean_ctor_get(x_76, 1); +lean_inc(x_84); +if (lean_is_exclusive(x_76)) { + lean_ctor_release(x_76, 0); + lean_ctor_release(x_76, 1); + x_85 = x_76; +} else { + lean_dec_ref(x_76); + x_85 = lean_box(0); +} +if (lean_is_scalar(x_85)) { + x_86 = lean_alloc_ctor(1, 2, 0); +} else { + x_86 = x_85; +} +lean_ctor_set(x_86, 0, x_83); +lean_ctor_set(x_86, 1, x_84); +return x_86; +} +} +else +{ +lean_object* x_87; lean_object* x_88; +x_87 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_88 = l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit(x_87, x_1, x_2, x_64, x_66); +return x_88; +} +} +else +{ +lean_object* x_89; lean_object* x_90; +x_89 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_90 = l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue(x_89, x_1, x_2, x_64, x_66); +return x_90; +} +} +else +{ +lean_object* x_91; lean_object* x_92; +x_91 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_92 = l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete(x_91, x_1, x_2, x_64, x_66); +lean_dec(x_64); +return x_92; +} +} +else +{ +lean_object* x_93; lean_object* x_94; +x_93 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_94 = l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor(x_93, x_1, x_2, x_64, x_66); +return x_94; +} +} +else +{ +lean_object* x_95; lean_object* x_96; +x_95 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_96 = l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable(x_95, x_1, x_2, x_64, x_66); +return x_96; +} +} +} +else +{ +lean_object* x_97; lean_object* x_98; +x_97 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3; +x_98 = l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern(x_97, x_1, x_2, x_64, x_66); +return x_98; +} +} +else +{ +lean_object* x_99; lean_object* x_100; +x_99 = lean_ctor_get(x_65, 1); +lean_inc(x_99); +lean_dec(x_65); +x_100 = l___private_Lean_Meta_EqnCompiler_DepElim_21__processLeaf(x_1, x_2, x_64, x_99); +lean_dec(x_64); +return x_100; +} +} +else +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; +lean_dec(x_64); +lean_dec(x_2); +lean_dec(x_1); +x_101 = lean_ctor_get(x_65, 0); +lean_inc(x_101); +x_102 = lean_ctor_get(x_65, 1); +lean_inc(x_102); +if (lean_is_exclusive(x_65)) { + lean_ctor_release(x_65, 0); + lean_ctor_release(x_65, 1); + x_103 = x_65; +} else { + lean_dec_ref(x_65); + x_103 = lean_box(0); +} +if (lean_is_scalar(x_103)) { + x_104 = lean_alloc_ctor(1, 2, 0); +} else { + x_104 = x_103; +} +lean_ctor_set(x_104, 0, x_101); +lean_ctor_set(x_104, 1, x_102); +return x_104; +} +} +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__1(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_5; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; lean_object* x_7; +x_6 = lean_unbox(x_3); +lean_dec(x_3); +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___lambda__2(x_1, x_2, x_6, x_4, x_5); +lean_dec(x_4); +return x_7; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_36__process(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_Lean_Meta_EqnCompiler_DepElim_36__process___main(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l_List_foldlM___main___at_Lean_Meta_DepElim_getUnusedLevelParam___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_5; +lean_dec(x_3); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_1); +lean_ctor_set(x_5, 1, x_4); +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; +x_6 = lean_ctor_get(x_2, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_dec(x_2); +x_8 = l_Lean_Meta_instantiateMVars(x_6, x_3, x_4); +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +lean_inc(x_3); +lean_inc(x_9); +x_11 = l_Lean_Meta_inferType(x_9, x_3, x_10); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +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); +x_14 = l_Lean_Meta_instantiateMVars(x_12, x_3, x_13); +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 = l_Lean_CollectLevelParams_main___main(x_9, x_1); +x_18 = l_Lean_CollectLevelParams_main___main(x_15, x_17); +x_1 = x_18; +x_2 = x_7; +x_4 = x_16; +goto _start; +} +else +{ +uint8_t x_20; +lean_dec(x_9); +lean_dec(x_7); +lean_dec(x_3); +lean_dec(x_1); +x_20 = !lean_is_exclusive(x_11); +if (x_20 == 0) +{ +return x_11; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_11, 0); +x_22 = lean_ctor_get(x_11, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_11); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_getUnusedLevelParam___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Std_HashSet_Inhabited___closed__1; +x_2 = l_Array_empty___closed__1; +x_3 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_1); +lean_ctor_set(x_3, 2, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_DepElim_getUnusedLevelParam___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("v"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_DepElim_getUnusedLevelParam___closed__2; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam(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; +x_5 = l_Lean_Meta_DepElim_getUnusedLevelParam___closed__1; +x_6 = l_List_foldlM___main___at_Lean_Meta_DepElim_getUnusedLevelParam___spec__1(x_5, x_1, x_3, x_4); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_6, 0); +x_9 = l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3; +x_10 = l_Lean_CollectLevelParams_State_getUnusedLevelParam(x_8, x_9); +lean_dec(x_8); +lean_ctor_set(x_6, 0, x_10); +return x_6; +} +else +{ +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_6, 0); +x_12 = lean_ctor_get(x_6, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_6); +x_13 = l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3; +x_14 = l_Lean_CollectLevelParams_State_getUnusedLevelParam(x_11, x_13); +lean_dec(x_11); +x_15 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_12); +return x_15; +} +} +else +{ +uint8_t x_16; +x_16 = !lean_is_exclusive(x_6); +if (x_16 == 0) +{ +return x_6; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_6, 0); +x_18 = lean_ctor_get(x_6, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_6); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_getUnusedLevelParam___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_Meta_DepElim_getUnusedLevelParam(x_1, x_2, x_3, x_4); +lean_dec(x_2); +return x_5; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_37__mkElimSort(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (x_3 == 0) +{ +lean_object* x_6; +x_6 = l_Lean_Meta_DepElim_getUnusedLevelParam(x_1, x_2, x_4, x_5); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; +x_8 = lean_ctor_get(x_6, 0); +x_9 = l_Lean_mkSort(x_8); +lean_ctor_set(x_6, 0, x_9); +return x_6; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_10 = lean_ctor_get(x_6, 0); +x_11 = lean_ctor_get(x_6, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_6); +x_12 = l_Lean_mkSort(x_10); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +return x_13; +} +} +else +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_6); +if (x_14 == 0) +{ +return x_6; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_6, 0); +x_16 = lean_ctor_get(x_6, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_6); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} +else +{ +lean_object* x_18; lean_object* x_19; +lean_dec(x_4); +lean_dec(x_1); +x_18 = l_Lean_Expr_getAppArgs___closed__1; +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_5); +return x_19; +} +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_37__mkElimSort___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; lean_object* x_7; +x_6 = lean_unbox(x_3); +lean_dec(x_3); +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_37__mkElimSort(x_1, x_2, x_6, x_4, x_5); +lean_dec(x_2); +return x_7; +} +} +lean_object* l_List_map___main___at_Lean_Meta_DepElim_mkElimCore___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Expr_fvarId_x21(x_4); +lean_dec(x_4); +x_7 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_7, 0, x_6); +x_8 = l_List_map___main___at_Lean_Meta_DepElim_mkElimCore___spec__1(x_5); +lean_ctor_set(x_1, 1, x_8); +lean_ctor_set(x_1, 0, x_7); +return x_1; +} +else +{ +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_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_1); +x_11 = l_Lean_Expr_fvarId_x21(x_9); +lean_dec(x_9); +x_12 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_12, 0, x_11); +x_13 = l_List_map___main___at_Lean_Meta_DepElim_mkElimCore___spec__1(x_10); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_Std_mkHashSet___at_Lean_Meta_DepElim_mkElimCore___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Std_mkHashSetImp___rarg(x_1); +return x_2; +} +} +uint8_t l_Std_HashSetImp_contains___at_Lean_Meta_DepElim_mkElimCore___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; size_t x_5; size_t x_6; lean_object* x_7; uint8_t x_8; +x_3 = lean_ctor_get(x_1, 1); +x_4 = lean_array_get_size(x_3); +x_5 = lean_usize_of_nat(x_2); +x_6 = lean_usize_modn(x_5, x_4); +lean_dec(x_4); +x_7 = lean_array_uget(x_3, x_6); +x_8 = l_List_elem___main___at_Lean_Occurrences_contains___spec__1(x_2, x_7); +lean_dec(x_7); +return x_8; +} +} +lean_object* l_Nat_foldAux___main___at_Lean_Meta_DepElim_mkElimCore___spec__4(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_unsigned_to_nat(0u); +x_7 = lean_nat_dec_eq(x_4, x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_sub(x_4, x_8); +x_10 = lean_nat_sub(x_3, x_4); +lean_dec(x_4); +x_11 = lean_ctor_get(x_2, 0); +x_12 = l_Std_HashSetImp_contains___at_Lean_Meta_DepElim_mkElimCore___spec__3(x_11, x_10); +if (x_12 == 0) +{ +lean_object* x_13; +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_10); +lean_ctor_set(x_13, 1, x_5); +x_4 = x_9; +x_5 = x_13; +goto _start; +} +else +{ +lean_dec(x_10); +x_4 = x_9; +goto _start; +} +} +else +{ +lean_dec(x_4); +return x_5; +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Position_lt___closed__1; +x_2 = lean_alloc_closure((void*)(l_beqOfEq___rarg), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(8u); +x_2 = l_Std_mkHashSetImp___rarg(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__2; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("eliminator: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__7() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("eliminator value: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__7; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__8; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__10() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("\ntype: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__11() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__10; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__12() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__11; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_mkElimCore___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; uint8_t x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_11 = lean_box(0); +x_12 = 0; +lean_inc(x_9); +lean_inc(x_1); +x_13 = l_Lean_Meta_mkFreshExprMVar(x_1, x_11, x_12, x_9, x_10); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = l_Array_toList___rarg(x_2); +lean_inc(x_16); +x_17 = l_List_map___main___at_Lean_Meta_DepElim_mkElimCore___spec__1(x_16); +x_18 = l_Lean_Expr_mvarId_x21(x_14); +x_19 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_16); +lean_ctor_set(x_19, 2, x_7); +lean_ctor_set(x_19, 3, x_17); +x_20 = lean_box(0); +x_21 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__3; +lean_inc(x_9); +x_22 = l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main(x_19, x_21, x_9, x_15); +if (lean_obj_tag(x_22) == 0) +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = l_Lean_mkOptionalNode___closed__2; +x_26 = lean_array_push(x_25, x_3); +x_27 = lean_unsigned_to_nat(0u); +x_28 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_2, x_2, x_27, x_26); +x_29 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_8, x_8, x_27, x_28); +lean_inc(x_9); +lean_inc(x_29); +x_30 = l_Lean_Meta_mkForall(x_29, x_1, x_9, x_24); +if (lean_obj_tag(x_30) == 0) +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +lean_inc(x_9); +x_33 = l_Lean_Meta_mkLambda(x_29, x_14, x_9, x_32); +if (lean_obj_tag(x_33) == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_96; uint8_t x_97; +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_ctor_get(x_33, 1); +lean_inc(x_35); +lean_dec(x_33); +x_96 = lean_ctor_get(x_35, 4); +lean_inc(x_96); +x_97 = lean_ctor_get_uint8(x_96, sizeof(void*)*1); +lean_dec(x_96); +if (x_97 == 0) +{ +x_36 = x_35; +goto block_95; +} +else +{ +lean_object* x_98; lean_object* x_99; uint8_t x_100; +lean_inc(x_6); +x_98 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_6, x_9, x_35); +x_99 = lean_ctor_get(x_98, 0); +lean_inc(x_99); +x_100 = lean_unbox(x_99); +lean_dec(x_99); +if (x_100 == 0) +{ +lean_object* x_101; +x_101 = lean_ctor_get(x_98, 1); +lean_inc(x_101); +lean_dec(x_98); +x_36 = x_101; +goto block_95; +} +else +{ +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; +x_102 = lean_ctor_get(x_98, 1); +lean_inc(x_102); +lean_dec(x_98); +lean_inc(x_34); +x_103 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_103, 0, x_34); +x_104 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__9; +x_105 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_105, 0, x_104); +lean_ctor_set(x_105, 1, x_103); +x_106 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__12; +x_107 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_107, 0, x_105); +lean_ctor_set(x_107, 1, x_106); +lean_inc(x_31); +x_108 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_108, 0, x_31); +x_109 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_109, 0, x_107); +lean_ctor_set(x_109, 1, x_108); +lean_inc(x_6); +x_110 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_6, x_109, x_9, x_102); +x_111 = lean_ctor_get(x_110, 1); +lean_inc(x_111); +lean_dec(x_110); +x_36 = x_111; +goto block_95; +} +} +block_95: +{ +lean_object* x_37; +lean_inc(x_9); +lean_inc(x_4); +x_37 = l_Lean_Meta_mkAuxDefinition(x_4, x_31, x_34, x_9, x_36); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; lean_object* x_47; +x_38 = lean_ctor_get(x_37, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_37, 1); +lean_inc(x_39); +lean_dec(x_37); +x_40 = l_List_lengthAux___main___rarg(x_5, x_27); +x_41 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__1; +lean_inc(x_40); +x_42 = l_Nat_foldAux___main___at_Lean_Meta_DepElim_mkElimCore___spec__4(x_41, x_23, x_40, x_40, x_20); +lean_dec(x_40); +x_43 = lean_ctor_get(x_23, 1); +lean_inc(x_43); +lean_dec(x_23); +x_44 = l_List_reverse___rarg(x_42); +lean_inc(x_38); +x_45 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_45, 0, x_38); +lean_ctor_set(x_45, 1, x_43); +lean_ctor_set(x_45, 2, x_44); +x_46 = 0; +x_47 = l_Lean_Meta_setInlineAttribute(x_4, x_46, x_9, x_39); +if (lean_obj_tag(x_47) == 0) +{ +uint8_t x_48; +x_48 = !lean_is_exclusive(x_47); +if (x_48 == 0) +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; +x_49 = lean_ctor_get(x_47, 1); +x_50 = lean_ctor_get(x_47, 0); +lean_dec(x_50); +x_51 = lean_ctor_get(x_49, 4); +lean_inc(x_51); +x_52 = lean_ctor_get_uint8(x_51, sizeof(void*)*1); +lean_dec(x_51); +if (x_52 == 0) +{ +lean_dec(x_38); +lean_dec(x_9); +lean_dec(x_6); +lean_ctor_set(x_47, 0, x_45); +return x_47; +} +else +{ +lean_object* x_53; lean_object* x_54; uint8_t x_55; +lean_free_object(x_47); +lean_inc(x_6); +x_53 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_6, x_9, x_49); +x_54 = lean_ctor_get(x_53, 0); +lean_inc(x_54); +x_55 = lean_unbox(x_54); +lean_dec(x_54); +if (x_55 == 0) +{ +uint8_t x_56; +lean_dec(x_38); +lean_dec(x_9); +lean_dec(x_6); +x_56 = !lean_is_exclusive(x_53); +if (x_56 == 0) +{ +lean_object* x_57; +x_57 = lean_ctor_get(x_53, 0); +lean_dec(x_57); +lean_ctor_set(x_53, 0, x_45); +return x_53; +} +else +{ +lean_object* x_58; lean_object* x_59; +x_58 = lean_ctor_get(x_53, 1); +lean_inc(x_58); +lean_dec(x_53); +x_59 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_59, 0, x_45); +lean_ctor_set(x_59, 1, x_58); +return x_59; +} +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; +x_60 = lean_ctor_get(x_53, 1); +lean_inc(x_60); +lean_dec(x_53); +x_61 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_61, 0, x_38); +x_62 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6; +x_63 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_61); +x_64 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_6, x_63, x_9, x_60); +lean_dec(x_9); +x_65 = !lean_is_exclusive(x_64); +if (x_65 == 0) +{ +lean_object* x_66; +x_66 = lean_ctor_get(x_64, 0); +lean_dec(x_66); +lean_ctor_set(x_64, 0, x_45); +return x_64; +} +else +{ +lean_object* x_67; lean_object* x_68; +x_67 = lean_ctor_get(x_64, 1); +lean_inc(x_67); +lean_dec(x_64); +x_68 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_68, 0, x_45); +lean_ctor_set(x_68, 1, x_67); +return x_68; +} +} +} +} +else +{ +lean_object* x_69; lean_object* x_70; uint8_t x_71; +x_69 = lean_ctor_get(x_47, 1); +lean_inc(x_69); +lean_dec(x_47); +x_70 = lean_ctor_get(x_69, 4); +lean_inc(x_70); +x_71 = lean_ctor_get_uint8(x_70, sizeof(void*)*1); +lean_dec(x_70); +if (x_71 == 0) +{ +lean_object* x_72; +lean_dec(x_38); +lean_dec(x_9); +lean_dec(x_6); +x_72 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_72, 0, x_45); +lean_ctor_set(x_72, 1, x_69); +return x_72; +} +else +{ +lean_object* x_73; lean_object* x_74; uint8_t x_75; +lean_inc(x_6); +x_73 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_6, x_9, x_69); +x_74 = lean_ctor_get(x_73, 0); +lean_inc(x_74); +x_75 = lean_unbox(x_74); +lean_dec(x_74); +if (x_75 == 0) +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; +lean_dec(x_38); +lean_dec(x_9); +lean_dec(x_6); +x_76 = lean_ctor_get(x_73, 1); +lean_inc(x_76); +if (lean_is_exclusive(x_73)) { + lean_ctor_release(x_73, 0); + lean_ctor_release(x_73, 1); + x_77 = x_73; +} else { + lean_dec_ref(x_73); + x_77 = lean_box(0); +} +if (lean_is_scalar(x_77)) { + x_78 = lean_alloc_ctor(0, 2, 0); +} else { + x_78 = x_77; +} +lean_ctor_set(x_78, 0, x_45); +lean_ctor_set(x_78, 1, x_76); +return x_78; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_79 = lean_ctor_get(x_73, 1); +lean_inc(x_79); +lean_dec(x_73); +x_80 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_80, 0, x_38); +x_81 = l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6; +x_82 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_82, 0, x_81); +lean_ctor_set(x_82, 1, x_80); +x_83 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_6, x_82, x_9, x_79); +lean_dec(x_9); +x_84 = lean_ctor_get(x_83, 1); +lean_inc(x_84); +if (lean_is_exclusive(x_83)) { + lean_ctor_release(x_83, 0); + lean_ctor_release(x_83, 1); + x_85 = x_83; +} else { + lean_dec_ref(x_83); + x_85 = lean_box(0); +} +if (lean_is_scalar(x_85)) { + x_86 = lean_alloc_ctor(0, 2, 0); +} else { + x_86 = x_85; +} +lean_ctor_set(x_86, 0, x_45); +lean_ctor_set(x_86, 1, x_84); +return x_86; +} +} +} +} +else +{ +uint8_t x_87; +lean_dec(x_45); +lean_dec(x_38); +lean_dec(x_9); +lean_dec(x_6); +x_87 = !lean_is_exclusive(x_47); +if (x_87 == 0) +{ +return x_47; +} +else +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_47, 0); +x_89 = lean_ctor_get(x_47, 1); +lean_inc(x_89); +lean_inc(x_88); +lean_dec(x_47); +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; +} +} +} +else +{ +uint8_t x_91; +lean_dec(x_23); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +x_91 = !lean_is_exclusive(x_37); +if (x_91 == 0) +{ +return x_37; +} +else +{ +lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_92 = lean_ctor_get(x_37, 0); +x_93 = lean_ctor_get(x_37, 1); +lean_inc(x_93); +lean_inc(x_92); +lean_dec(x_37); +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_92); +lean_ctor_set(x_94, 1, x_93); +return x_94; +} +} +} +} +else +{ +uint8_t x_112; +lean_dec(x_31); +lean_dec(x_23); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +x_112 = !lean_is_exclusive(x_33); +if (x_112 == 0) +{ +return x_33; +} +else +{ +lean_object* x_113; lean_object* x_114; lean_object* x_115; +x_113 = lean_ctor_get(x_33, 0); +x_114 = lean_ctor_get(x_33, 1); +lean_inc(x_114); +lean_inc(x_113); +lean_dec(x_33); +x_115 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_115, 0, x_113); +lean_ctor_set(x_115, 1, x_114); +return x_115; +} +} +} +else +{ +uint8_t x_116; +lean_dec(x_29); +lean_dec(x_23); +lean_dec(x_14); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +x_116 = !lean_is_exclusive(x_30); +if (x_116 == 0) +{ +return x_30; +} +else +{ +lean_object* x_117; lean_object* x_118; lean_object* x_119; +x_117 = lean_ctor_get(x_30, 0); +x_118 = lean_ctor_get(x_30, 1); +lean_inc(x_118); +lean_inc(x_117); +lean_dec(x_30); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_117); +lean_ctor_set(x_119, 1, x_118); +return x_119; +} +} +} +else +{ +uint8_t x_120; +lean_dec(x_14); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_120 = !lean_is_exclusive(x_22); +if (x_120 == 0) +{ +return x_22; +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_121 = lean_ctor_get(x_22, 0); +x_122 = lean_ctor_get(x_22, 1); +lean_inc(x_122); +lean_inc(x_121); +lean_dec(x_22); +x_123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_123, 0, x_121); +lean_ctor_set(x_123, 1, x_122); +return x_123; +} +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("target: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__2___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_Meta_DepElim_mkElimCore___lambda__2___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_DepElim_mkElimCore___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) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_7 = lean_unsigned_to_nat(0u); +lean_inc(x_1); +x_8 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_4, x_4, x_7, x_1); +x_9 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +lean_inc(x_3); +lean_inc(x_1); +lean_inc(x_8); +x_10 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_mkElimCore___lambda__1___boxed), 10, 6); +lean_closure_set(x_10, 0, x_8); +lean_closure_set(x_10, 1, x_4); +lean_closure_set(x_10, 2, x_1); +lean_closure_set(x_10, 3, x_2); +lean_closure_set(x_10, 4, x_3); +lean_closure_set(x_10, 5, x_9); +x_11 = lean_ctor_get(x_6, 4); +lean_inc(x_11); +x_12 = lean_ctor_get_uint8(x_11, sizeof(void*)*1); +lean_dec(x_11); +if (x_12 == 0) +{ +lean_object* x_13; +lean_dec(x_8); +x_13 = l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts___rarg(x_1, x_3, x_10, x_5, x_6); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_14 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_9, x_5, x_6); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_unbox(x_15); +lean_dec(x_15); +if (x_16 == 0) +{ +lean_object* x_17; lean_object* x_18; +lean_dec(x_8); +x_17 = lean_ctor_get(x_14, 1); +lean_inc(x_17); +lean_dec(x_14); +x_18 = l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts___rarg(x_1, x_3, x_10, x_5, x_17); +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_14, 1); +lean_inc(x_19); +lean_dec(x_14); +x_20 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_20, 0, x_8); +x_21 = l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__3; +x_22 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_20); +x_23 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_9, x_22, x_5, x_19); +x_24 = lean_ctor_get(x_23, 1); +lean_inc(x_24); +lean_dec(x_23); +x_25 = l___private_Lean_Meta_EqnCompiler_DepElim_11__withAlts___rarg(x_1, x_3, x_10, x_5, x_24); +return x_25; +} +} +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("_d"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_DepElim_mkElimCore___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_DepElim_mkElimCore___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_DepElim_mkElimCore(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, uint8_t x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = l_List_redLength___main___rarg(x_3); +x_9 = lean_mk_empty_array_with_capacity(x_8); +lean_dec(x_8); +lean_inc(x_3); +x_10 = l_List_toArrayAux___main___rarg(x_3, x_9); +lean_inc(x_4); +x_11 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_mkElimCore___lambda__2), 6, 3); +lean_closure_set(x_11, 0, x_2); +lean_closure_set(x_11, 1, x_1); +lean_closure_set(x_11, 2, x_4); +x_12 = l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns(x_3, x_4, x_6, x_7); +lean_dec(x_4); +lean_dec(x_3); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_12, 1); +lean_inc(x_13); +lean_dec(x_12); +x_14 = l_Lean_Meta_DepElim_mkElimCore___closed__2; +x_15 = l_Lean_Meta_generalizeTelescope___rarg(x_10, x_14, x_11, x_6, x_13); +return x_15; +} +else +{ +uint8_t x_16; +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_6); +x_16 = !lean_is_exclusive(x_12); +if (x_16 == 0) +{ +return x_12; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_12, 0); +x_18 = lean_ctor_get(x_12, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_12); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} +lean_object* l_Std_HashSetImp_contains___at_Lean_Meta_DepElim_mkElimCore___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Std_HashSetImp_contains___at_Lean_Meta_DepElim_mkElimCore___spec__3(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_Nat_foldAux___main___at_Lean_Meta_DepElim_mkElimCore___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Nat_foldAux___main___at_Lean_Meta_DepElim_mkElimCore___spec__4(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_6; +} +} +lean_object* l_Lean_Meta_DepElim_mkElimCore___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_Lean_Meta_DepElim_mkElimCore___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_8); +lean_dec(x_5); +lean_dec(x_2); +return x_11; +} +} +lean_object* l_Lean_Meta_DepElim_mkElimCore___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +uint8_t x_8; lean_object* x_9; +x_8 = lean_unbox(x_5); +lean_dec(x_5); +x_9 = l_Lean_Meta_DepElim_mkElimCore(x_1, x_2, x_3, x_4, x_8, x_6, x_7); +return x_9; +} +} +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; lean_object* x_9; +x_8 = l_Array_toList___rarg(x_1); +x_9 = l_Lean_Meta_DepElim_mkElimCore(x_2, x_5, x_8, x_3, x_4, x_6, x_7); +return x_9; +} +} +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__2(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_box(x_3); +lean_inc(x_5); +x_9 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_mkElim___lambda__1___boxed), 7, 4); +lean_closure_set(x_9, 0, x_5); +lean_closure_set(x_9, 1, x_1); +lean_closure_set(x_9, 2, x_2); +lean_closure_set(x_9, 3, x_8); +x_10 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg(x_5, x_4, x_9, x_6, x_7); +return x_10; +} +} +lean_object* l_Lean_Meta_DepElim_mkElim(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +lean_inc(x_5); +lean_inc(x_2); +x_7 = l___private_Lean_Meta_EqnCompiler_DepElim_37__mkElimSort(x_2, x_3, x_4, x_5, x_6); +if (lean_obj_tag(x_7) == 0) +{ +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_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = l_List_redLength___main___rarg(x_2); +x_11 = lean_mk_empty_array_with_capacity(x_10); +lean_dec(x_10); +x_12 = l_List_toArrayAux___main___rarg(x_2, x_11); +x_13 = lean_box(x_4); +x_14 = lean_alloc_closure((void*)(l_Lean_Meta_DepElim_mkElim___lambda__2___boxed), 7, 4); +lean_closure_set(x_14, 0, x_1); +lean_closure_set(x_14, 1, x_3); +lean_closure_set(x_14, 2, x_13); +lean_closure_set(x_14, 3, x_8); +x_15 = l_Lean_Meta_DepElim_mkElimCore___closed__2; +x_16 = l_Lean_Meta_generalizeTelescope___rarg(x_12, x_15, x_14, x_5, x_9); +return x_16; +} +else +{ +uint8_t x_17; +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_17 = !lean_is_exclusive(x_7); +if (x_17 == 0) +{ +return x_7; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_7, 0); +x_19 = lean_ctor_get(x_7, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_7); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +} +lean_object* l_Lean_Meta_DepElim_mkElim___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: +{ +uint8_t x_8; lean_object* x_9; +x_8 = lean_unbox(x_4); +lean_dec(x_4); +x_9 = l_Lean_Meta_DepElim_mkElim___lambda__1(x_1, x_2, x_3, x_8, x_5, x_6, x_7); +lean_dec(x_1); +return x_9; +} +} +lean_object* l_Lean_Meta_DepElim_mkElim___lambda__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) { +_start: +{ +uint8_t x_8; lean_object* x_9; +x_8 = lean_unbox(x_3); +lean_dec(x_3); +x_9 = l_Lean_Meta_DepElim_mkElim___lambda__2(x_1, x_2, x_8, x_4, x_5, x_6, x_7); +return x_9; +} +} +lean_object* l_Lean_Meta_DepElim_mkElim___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; lean_object* x_8; +x_7 = lean_unbox(x_4); +lean_dec(x_4); +x_8 = l_Lean_Meta_DepElim_mkElim(x_1, x_2, x_3, x_7, x_5, x_6); +return x_8; +} +} +lean_object* l___private_Lean_Meta_EqnCompiler_DepElim_38__regTraceClasses(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2; +x_3 = l_Lean_registerTraceClass(x_2, x_1); +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +lean_dec(x_3); +x_5 = l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4; +x_6 = l_Lean_registerTraceClass(x_5, x_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_3); +if (x_7 == 0) +{ +return x_3; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_8 = lean_ctor_get(x_3, 0); +x_9 = lean_ctor_get(x_3, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_3); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_8); +lean_ctor_set(x_10, 1, x_9); +return x_10; +} +} +} +} +lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Util_CollectLevelParams(lean_object*); +lean_object* initialize_Lean_Meta_Check(lean_object*); +lean_object* initialize_Lean_Meta_Tactic_Cases(lean_object*); +lean_object* initialize_Lean_Meta_GeneralizeTelescope(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_MVarRenaming(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_CaseValues(lean_object*); +lean_object* initialize_Lean_Meta_EqnCompiler_CaseArraySizes(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Lean_Meta_EqnCompiler_DepElim(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Util_CollectLevelParams(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_Check(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_Tactic_Cases(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_GeneralizeTelescope(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_MVarRenaming(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_CaseValues(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_EqnCompiler_CaseArraySizes(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__1 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__1); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__2 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__2); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__3 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__3); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__5); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__6 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__6(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__6); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__7 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__7(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__7); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__8 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__8(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__8); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__9 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__9(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__9); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__10 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__10(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__10); +l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11 = _init_l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__11); +l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1 = _init_l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Pattern_toIPattern___main___closed__1); +l_Lean_Meta_DepElim_Alt_Inhabited___closed__1 = _init_l_Lean_Meta_DepElim_Alt_Inhabited___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Alt_Inhabited___closed__1); +l_Lean_Meta_DepElim_Alt_Inhabited = _init_l_Lean_Meta_DepElim_Alt_Inhabited(); +lean_mark_persistent(l_Lean_Meta_DepElim_Alt_Inhabited); +l_Lean_Meta_DepElim_Alt_toMessageData___closed__1 = _init_l_Lean_Meta_DepElim_Alt_toMessageData___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Alt_toMessageData___closed__1); +l_Lean_Meta_DepElim_Alt_toMessageData___closed__2 = _init_l_Lean_Meta_DepElim_Alt_toMessageData___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_Alt_toMessageData___closed__2); +l_Lean_Meta_DepElim_Alt_toMessageData___closed__3 = _init_l_Lean_Meta_DepElim_Alt_toMessageData___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_Alt_toMessageData___closed__3); +l_Lean_Meta_DepElim_Alt_toMessageData___closed__4 = _init_l_Lean_Meta_DepElim_Alt_toMessageData___closed__4(); +lean_mark_persistent(l_Lean_Meta_DepElim_Alt_toMessageData___closed__4); +l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_2__convertMVars___closed__1); +l_Lean_Meta_DepElim_Example_toMessageData___main___closed__1 = _init_l_Lean_Meta_DepElim_Example_toMessageData___main___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Example_toMessageData___main___closed__1); +l_Lean_Meta_DepElim_Example_toMessageData___main___closed__2 = _init_l_Lean_Meta_DepElim_Example_toMessageData___main___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_Example_toMessageData___main___closed__2); +l_Lean_Meta_DepElim_Example_toMessageData___main___closed__3 = _init_l_Lean_Meta_DepElim_Example_toMessageData___main___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_Example_toMessageData___main___closed__3); +l_Lean_Meta_DepElim_Problem_Inhabited___closed__1 = _init_l_Lean_Meta_DepElim_Problem_Inhabited___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_Inhabited___closed__1); +l_Lean_Meta_DepElim_Problem_Inhabited = _init_l_Lean_Meta_DepElim_Problem_Inhabited(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_Inhabited); +l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__1 = _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__1); +l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__2 = _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__2); +l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__3 = _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__3); +l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__4 = _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__4); +l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__5 = _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__5); +l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__6 = _init_l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Meta_DepElim_Problem_toMessageData___lambda__1___closed__6); +l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_5__checkNumPatterns___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__4); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__5 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__5(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__5); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__6); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__7 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__7(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__7); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__8 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__8(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__8); +l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__9 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__9(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_6__withMotive___rarg___closed__9); +l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_10__withAltsAux___main___rarg___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_17__isCompleteTransition___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__4); +l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__5 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__5(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_20__processNonVariable___closed__5); +l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_22__processAsPattern___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_23__processVariable___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_25__processConstructor___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_26__throwInductiveTypeExpected___rarg___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_27__tryConstructorAux___main___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__4); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__5 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__5(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__5); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__6 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__6(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__6); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__7 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__7(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__7); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__8 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__8(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__8); +l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__9 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__9(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_28__tryConstructor_x3f___closed__9); +l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_30__processComplete___closed__4); +l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_33__processValue___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_35__processArrayLit___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__1 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__1); +l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__2 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__2); +l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__3); +l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__4 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__4); +l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__5 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__5(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__5); +l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6 = _init_l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6(); +lean_mark_persistent(l___private_Lean_Meta_EqnCompiler_DepElim_36__process___main___closed__6); +l_Lean_Meta_DepElim_getUnusedLevelParam___closed__1 = _init_l_Lean_Meta_DepElim_getUnusedLevelParam___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_getUnusedLevelParam___closed__1); +l_Lean_Meta_DepElim_getUnusedLevelParam___closed__2 = _init_l_Lean_Meta_DepElim_getUnusedLevelParam___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_getUnusedLevelParam___closed__2); +l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3 = _init_l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_getUnusedLevelParam___closed__3); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__1 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__1); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__2 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__2); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__3 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__3); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__4 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__4); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__5 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__5); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__6); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__7 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__7(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__7); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__8 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__8(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__8); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__9 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__9(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__9); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__10 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__10(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__10); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__11 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__11(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__11); +l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__12 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__12(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__1___closed__12); +l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__1 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__1); +l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__2 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__2); +l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__3 = _init_l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__3(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___lambda__2___closed__3); +l_Lean_Meta_DepElim_mkElimCore___closed__1 = _init_l_Lean_Meta_DepElim_mkElimCore___closed__1(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___closed__1); +l_Lean_Meta_DepElim_mkElimCore___closed__2 = _init_l_Lean_Meta_DepElim_mkElimCore___closed__2(); +lean_mark_persistent(l_Lean_Meta_DepElim_mkElimCore___closed__2); +res = l___private_Lean_Meta_EqnCompiler_DepElim_38__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 +} +#endif diff --git a/stage0/stdlib/Lean/Meta/EqnCompiler/MVarRenaming.c b/stage0/stdlib/Lean/Meta/EqnCompiler/MVarRenaming.c new file mode 100644 index 0000000000..32277d4c96 --- /dev/null +++ b/stage0/stdlib/Lean/Meta/EqnCompiler/MVarRenaming.c @@ -0,0 +1,741 @@ +// Lean compiler output +// Module: Lean.Meta.EqnCompiler.MVarRenaming +// Imports: Init Lean.Util.ReplaceExpr +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* lean_expr_update_forall(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_unreachable_x21___rarg(lean_object*); +uint8_t l_USize_decEq(size_t, size_t); +lean_object* lean_array_uget(lean_object*, size_t); +lean_object* lean_expr_update_mdata(lean_object*, lean_object*); +uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*); +extern lean_object* l_Option_get_x21___rarg___closed__3; +lean_object* lean_array_uset(lean_object*, size_t, lean_object*); +lean_object* l_Lean_mkMVar(lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_find_x3f(lean_object*, lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_apply(lean_object*, lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_insert(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Name_inhabited; +uint8_t l_Lean_Meta_MVarRenaming_isEmpty(lean_object*); +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_find_x21___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(lean_object*, size_t, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___closed__2; +lean_object* l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_find_x3f___boxed(lean_object*, lean_object*); +lean_object* lean_expr_update_let(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_Data_binderInfo(uint64_t); +lean_object* lean_expr_update_proj(lean_object*, lean_object*); +lean_object* l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_isEmpty___boxed(lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_apply___boxed(lean_object*, lean_object*); +size_t l_USize_mod(size_t, size_t); +size_t lean_ptr_addr(lean_object*); +lean_object* l_Lean_Meta_MVarRenaming_find_x21(lean_object*, lean_object*); +uint8_t l_Lean_Expr_hasMVar(lean_object*); +lean_object* lean_panic_fn(lean_object*, lean_object*); +lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* lean_expr_update_app(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_ReplaceImpl_initCache; +uint8_t l_Lean_Meta_MVarRenaming_isEmpty(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_2; +x_2 = 1; +return x_2; +} +else +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +} +} +lean_object* l_Lean_Meta_MVarRenaming_isEmpty___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Meta_MVarRenaming_isEmpty(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_ctor_get(x_1, 2); +x_7 = lean_ctor_get(x_1, 3); +x_8 = l_Lean_Name_quickLt(x_2, x_5); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = l_Lean_Name_quickLt(x_5, x_2); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_6); +x_10 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_10, 0, x_6); +return x_10; +} +else +{ +x_1 = x_7; +goto _start; +} +} +else +{ +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* l_Lean_Meta_MVarRenaming_find_x3f(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_2); +return x_3; +} +} +lean_object* l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_MVarRenaming_find_x3f___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_MVarRenaming_find_x3f(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_MVarRenaming_find_x21(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = l_Lean_Name_inhabited; +x_5 = l_Option_get_x21___rarg___closed__3; +x_6 = lean_panic_fn(x_4, x_5); +return x_6; +} +else +{ +lean_object* x_7; +x_7 = lean_ctor_get(x_3, 0); +lean_inc(x_7); +lean_dec(x_3); +return x_7; +} +} +} +lean_object* l_Lean_Meta_MVarRenaming_find_x21___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_MVarRenaming_find_x21(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_MVarRenaming_insert(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(lean_object* x_1, size_t x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +size_t x_5; size_t x_6; lean_object* x_7; lean_object* x_159; lean_object* x_160; lean_object* x_167; size_t x_168; uint8_t x_169; +x_5 = lean_ptr_addr(x_3); +x_6 = x_2 == 0 ? 0 : x_5 % x_2; +x_159 = lean_ctor_get(x_4, 0); +lean_inc(x_159); +x_167 = lean_array_uget(x_159, x_6); +x_168 = lean_ptr_addr(x_167); +lean_dec(x_167); +x_169 = x_168 == x_5; +if (x_169 == 0) +{ +if (lean_obj_tag(x_3) == 2) +{ +lean_object* x_170; lean_object* x_171; +x_170 = lean_ctor_get(x_3, 0); +lean_inc(x_170); +x_171 = l_Std_RBNode_find___main___at_Lean_Meta_MVarRenaming_find_x3f___spec__1(x_1, x_170); +lean_dec(x_170); +if (lean_obj_tag(x_171) == 0) +{ +lean_inc(x_3); +x_160 = x_3; +goto block_166; +} +else +{ +lean_object* x_172; lean_object* x_173; +x_172 = lean_ctor_get(x_171, 0); +lean_inc(x_172); +lean_dec(x_171); +x_173 = l_Lean_mkMVar(x_172); +x_160 = x_173; +goto block_166; +} +} +else +{ +lean_object* x_174; +lean_dec(x_159); +x_174 = lean_box(0); +x_7 = x_174; +goto block_158; +} +} +else +{ +lean_object* x_175; lean_object* x_176; lean_object* x_177; +lean_dec(x_159); +lean_dec(x_3); +x_175 = lean_ctor_get(x_4, 1); +lean_inc(x_175); +x_176 = lean_array_uget(x_175, x_6); +lean_dec(x_175); +x_177 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_177, 0, x_176); +lean_ctor_set(x_177, 1, x_4); +return x_177; +} +block_158: +{ +lean_dec(x_7); +switch (lean_obj_tag(x_3)) { +case 5: +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; +x_8 = lean_ctor_get(x_3, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_3, 1); +lean_inc(x_9); +x_10 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_8, x_4); +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_9, x_12); +x_14 = !lean_is_exclusive(x_13); +if (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; lean_object* x_21; lean_object* x_22; +x_15 = lean_ctor_get(x_13, 0); +x_16 = lean_ctor_get(x_13, 1); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +lean_inc(x_3); +x_18 = lean_array_uset(x_17, x_6, x_3); +x_19 = lean_ctor_get(x_16, 1); +lean_inc(x_19); +lean_dec(x_16); +x_20 = lean_expr_update_app(x_3, x_11, x_15); +lean_inc(x_20); +x_21 = lean_array_uset(x_19, x_6, x_20); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_18); +lean_ctor_set(x_22, 1, x_21); +lean_ctor_set(x_13, 1, x_22); +lean_ctor_set(x_13, 0, x_20); +return x_13; +} +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; lean_object* x_30; lean_object* x_31; +x_23 = lean_ctor_get(x_13, 0); +x_24 = lean_ctor_get(x_13, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_13); +x_25 = lean_ctor_get(x_24, 0); +lean_inc(x_25); +lean_inc(x_3); +x_26 = lean_array_uset(x_25, x_6, x_3); +x_27 = lean_ctor_get(x_24, 1); +lean_inc(x_27); +lean_dec(x_24); +x_28 = lean_expr_update_app(x_3, x_11, x_23); +lean_inc(x_28); +x_29 = lean_array_uset(x_27, x_6, x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_26); +lean_ctor_set(x_30, 1, x_29); +x_31 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_31, 0, x_28); +lean_ctor_set(x_31, 1, x_30); +return x_31; +} +} +case 6: +{ +lean_object* x_32; lean_object* x_33; uint64_t x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; uint8_t x_39; +x_32 = lean_ctor_get(x_3, 1); +lean_inc(x_32); +x_33 = lean_ctor_get(x_3, 2); +lean_inc(x_33); +x_34 = lean_ctor_get_uint64(x_3, sizeof(void*)*3); +x_35 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_32, x_4); +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +x_38 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_33, x_37); +x_39 = !lean_is_exclusive(x_38); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_40 = lean_ctor_get(x_38, 0); +x_41 = lean_ctor_get(x_38, 1); +x_42 = lean_ctor_get(x_41, 0); +lean_inc(x_42); +lean_inc(x_3); +x_43 = lean_array_uset(x_42, x_6, x_3); +x_44 = lean_ctor_get(x_41, 1); +lean_inc(x_44); +lean_dec(x_41); +x_45 = (uint8_t)((x_34 << 24) >> 61); +x_46 = lean_expr_update_lambda(x_3, x_45, x_36, x_40); +lean_inc(x_46); +x_47 = lean_array_uset(x_44, x_6, x_46); +x_48 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_48, 0, x_43); +lean_ctor_set(x_48, 1, x_47); +lean_ctor_set(x_38, 1, x_48); +lean_ctor_set(x_38, 0, x_46); +return x_38; +} +else +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_49 = lean_ctor_get(x_38, 0); +x_50 = lean_ctor_get(x_38, 1); +lean_inc(x_50); +lean_inc(x_49); +lean_dec(x_38); +x_51 = lean_ctor_get(x_50, 0); +lean_inc(x_51); +lean_inc(x_3); +x_52 = lean_array_uset(x_51, x_6, x_3); +x_53 = lean_ctor_get(x_50, 1); +lean_inc(x_53); +lean_dec(x_50); +x_54 = (uint8_t)((x_34 << 24) >> 61); +x_55 = lean_expr_update_lambda(x_3, x_54, x_36, x_49); +lean_inc(x_55); +x_56 = lean_array_uset(x_53, x_6, x_55); +x_57 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_57, 0, x_52); +lean_ctor_set(x_57, 1, x_56); +x_58 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_58, 0, x_55); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +case 7: +{ +lean_object* x_59; lean_object* x_60; uint64_t x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; uint8_t x_66; +x_59 = lean_ctor_get(x_3, 1); +lean_inc(x_59); +x_60 = lean_ctor_get(x_3, 2); +lean_inc(x_60); +x_61 = lean_ctor_get_uint64(x_3, sizeof(void*)*3); +x_62 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_59, x_4); +x_63 = lean_ctor_get(x_62, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +lean_dec(x_62); +x_65 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_60, x_64); +x_66 = !lean_is_exclusive(x_65); +if (x_66 == 0) +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; uint8_t x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_67 = lean_ctor_get(x_65, 0); +x_68 = lean_ctor_get(x_65, 1); +x_69 = lean_ctor_get(x_68, 0); +lean_inc(x_69); +lean_inc(x_3); +x_70 = lean_array_uset(x_69, x_6, x_3); +x_71 = lean_ctor_get(x_68, 1); +lean_inc(x_71); +lean_dec(x_68); +x_72 = (uint8_t)((x_61 << 24) >> 61); +x_73 = lean_expr_update_forall(x_3, x_72, x_63, x_67); +lean_inc(x_73); +x_74 = lean_array_uset(x_71, x_6, x_73); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_70); +lean_ctor_set(x_75, 1, x_74); +lean_ctor_set(x_65, 1, x_75); +lean_ctor_set(x_65, 0, x_73); +return x_65; +} +else +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; +x_76 = lean_ctor_get(x_65, 0); +x_77 = lean_ctor_get(x_65, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_65); +x_78 = lean_ctor_get(x_77, 0); +lean_inc(x_78); +lean_inc(x_3); +x_79 = lean_array_uset(x_78, x_6, x_3); +x_80 = lean_ctor_get(x_77, 1); +lean_inc(x_80); +lean_dec(x_77); +x_81 = (uint8_t)((x_61 << 24) >> 61); +x_82 = lean_expr_update_forall(x_3, x_81, x_63, x_76); +lean_inc(x_82); +x_83 = lean_array_uset(x_80, x_6, x_82); +x_84 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_84, 0, x_79); +lean_ctor_set(x_84, 1, x_83); +x_85 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_85, 0, x_82); +lean_ctor_set(x_85, 1, x_84); +return x_85; +} +} +case 8: +{ +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; uint8_t x_96; +x_86 = lean_ctor_get(x_3, 1); +lean_inc(x_86); +x_87 = lean_ctor_get(x_3, 2); +lean_inc(x_87); +x_88 = lean_ctor_get(x_3, 3); +lean_inc(x_88); +x_89 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_86, x_4); +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 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_87, x_91); +x_93 = lean_ctor_get(x_92, 0); +lean_inc(x_93); +x_94 = lean_ctor_get(x_92, 1); +lean_inc(x_94); +lean_dec(x_92); +x_95 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_88, x_94); +x_96 = !lean_is_exclusive(x_95); +if (x_96 == 0) +{ +lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; +x_97 = lean_ctor_get(x_95, 0); +x_98 = lean_ctor_get(x_95, 1); +x_99 = lean_ctor_get(x_98, 0); +lean_inc(x_99); +lean_inc(x_3); +x_100 = lean_array_uset(x_99, x_6, x_3); +x_101 = lean_ctor_get(x_98, 1); +lean_inc(x_101); +lean_dec(x_98); +x_102 = lean_expr_update_let(x_3, x_90, x_93, x_97); +lean_inc(x_102); +x_103 = lean_array_uset(x_101, x_6, x_102); +x_104 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_104, 0, x_100); +lean_ctor_set(x_104, 1, x_103); +lean_ctor_set(x_95, 1, x_104); +lean_ctor_set(x_95, 0, x_102); +return x_95; +} +else +{ +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_105 = lean_ctor_get(x_95, 0); +x_106 = lean_ctor_get(x_95, 1); +lean_inc(x_106); +lean_inc(x_105); +lean_dec(x_95); +x_107 = lean_ctor_get(x_106, 0); +lean_inc(x_107); +lean_inc(x_3); +x_108 = lean_array_uset(x_107, x_6, x_3); +x_109 = lean_ctor_get(x_106, 1); +lean_inc(x_109); +lean_dec(x_106); +x_110 = lean_expr_update_let(x_3, x_90, x_93, x_105); +lean_inc(x_110); +x_111 = lean_array_uset(x_109, x_6, x_110); +x_112 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_112, 0, x_108); +lean_ctor_set(x_112, 1, x_111); +x_113 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_113, 0, x_110); +lean_ctor_set(x_113, 1, x_112); +return x_113; +} +} +case 10: +{ +lean_object* x_114; lean_object* x_115; uint8_t x_116; +x_114 = lean_ctor_get(x_3, 1); +lean_inc(x_114); +x_115 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_114, x_4); +x_116 = !lean_is_exclusive(x_115); +if (x_116 == 0) +{ +lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_117 = lean_ctor_get(x_115, 0); +x_118 = lean_ctor_get(x_115, 1); +x_119 = lean_ctor_get(x_118, 0); +lean_inc(x_119); +lean_inc(x_3); +x_120 = lean_array_uset(x_119, x_6, x_3); +x_121 = lean_ctor_get(x_118, 1); +lean_inc(x_121); +lean_dec(x_118); +x_122 = lean_expr_update_mdata(x_3, x_117); +lean_inc(x_122); +x_123 = lean_array_uset(x_121, x_6, x_122); +x_124 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_124, 0, x_120); +lean_ctor_set(x_124, 1, x_123); +lean_ctor_set(x_115, 1, x_124); +lean_ctor_set(x_115, 0, x_122); +return x_115; +} +else +{ +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_125 = lean_ctor_get(x_115, 0); +x_126 = lean_ctor_get(x_115, 1); +lean_inc(x_126); +lean_inc(x_125); +lean_dec(x_115); +x_127 = lean_ctor_get(x_126, 0); +lean_inc(x_127); +lean_inc(x_3); +x_128 = lean_array_uset(x_127, x_6, x_3); +x_129 = lean_ctor_get(x_126, 1); +lean_inc(x_129); +lean_dec(x_126); +x_130 = lean_expr_update_mdata(x_3, x_125); +lean_inc(x_130); +x_131 = lean_array_uset(x_129, x_6, x_130); +x_132 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_132, 0, x_128); +lean_ctor_set(x_132, 1, x_131); +x_133 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_133, 0, x_130); +lean_ctor_set(x_133, 1, x_132); +return x_133; +} +} +case 11: +{ +lean_object* x_134; lean_object* x_135; uint8_t x_136; +x_134 = lean_ctor_get(x_3, 2); +lean_inc(x_134); +x_135 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_2, x_134, x_4); +x_136 = !lean_is_exclusive(x_135); +if (x_136 == 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; +x_137 = lean_ctor_get(x_135, 0); +x_138 = lean_ctor_get(x_135, 1); +x_139 = lean_ctor_get(x_138, 0); +lean_inc(x_139); +lean_inc(x_3); +x_140 = lean_array_uset(x_139, x_6, x_3); +x_141 = lean_ctor_get(x_138, 1); +lean_inc(x_141); +lean_dec(x_138); +x_142 = lean_expr_update_proj(x_3, x_137); +lean_inc(x_142); +x_143 = lean_array_uset(x_141, x_6, x_142); +x_144 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_144, 0, x_140); +lean_ctor_set(x_144, 1, x_143); +lean_ctor_set(x_135, 1, x_144); +lean_ctor_set(x_135, 0, x_142); +return x_135; +} +else +{ +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_135, 0); +x_146 = lean_ctor_get(x_135, 1); +lean_inc(x_146); +lean_inc(x_145); +lean_dec(x_135); +x_147 = lean_ctor_get(x_146, 0); +lean_inc(x_147); +lean_inc(x_3); +x_148 = lean_array_uset(x_147, x_6, x_3); +x_149 = lean_ctor_get(x_146, 1); +lean_inc(x_149); +lean_dec(x_146); +x_150 = lean_expr_update_proj(x_3, x_145); +lean_inc(x_150); +x_151 = lean_array_uset(x_149, x_6, x_150); +x_152 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_152, 0, x_148); +lean_ctor_set(x_152, 1, x_151); +x_153 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_153, 0, x_150); +lean_ctor_set(x_153, 1, x_152); +return x_153; +} +} +case 12: +{ +lean_object* x_154; lean_object* x_155; lean_object* x_156; +lean_dec(x_3); +x_154 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___closed__2; +x_155 = l_unreachable_x21___rarg(x_154); +x_156 = lean_apply_1(x_155, x_4); +return x_156; +} +default: +{ +lean_object* x_157; +x_157 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_157, 0, x_3); +lean_ctor_set(x_157, 1, x_4); +return x_157; +} +} +} +block_166: +{ +lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; +x_161 = lean_array_uset(x_159, x_6, x_3); +x_162 = lean_ctor_get(x_4, 1); +lean_inc(x_162); +lean_dec(x_4); +lean_inc(x_160); +x_163 = lean_array_uset(x_162, x_6, x_160); +x_164 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_164, 0, x_161); +lean_ctor_set(x_164, 1, x_163); +x_165 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_165, 0, x_160); +lean_ctor_set(x_165, 1, x_164); +return x_165; +} +} +} +lean_object* l_Lean_Meta_MVarRenaming_apply(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = l_Lean_Expr_hasMVar(x_2); +if (x_3 == 0) +{ +return x_2; +} +else +{ +if (lean_obj_tag(x_1) == 0) +{ +return x_2; +} +else +{ +size_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = 8192; +x_5 = l_Lean_Expr_ReplaceImpl_initCache; +x_6 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_4, x_2, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +lean_dec(x_6); +return x_7; +} +} +} +} +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +size_t x_5; lean_object* x_6; +x_5 = lean_unbox_usize(x_2); +lean_dec(x_2); +x_6 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_MVarRenaming_apply___spec__1(x_1, x_5, x_3, x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* l_Lean_Meta_MVarRenaming_apply___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_MVarRenaming_apply(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Util_ReplaceExpr(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Lean_Meta_EqnCompiler_MVarRenaming(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Util_ReplaceExpr(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Lean/EqnCompiler/MatchPattern.c b/stage0/stdlib/Lean/Meta/EqnCompiler/MatchPattern.c similarity index 97% rename from stage0/stdlib/Lean/EqnCompiler/MatchPattern.c rename to stage0/stdlib/Lean/Meta/EqnCompiler/MatchPattern.c index 21f64bcf36..1c3a868317 100644 --- a/stage0/stdlib/Lean/EqnCompiler/MatchPattern.c +++ b/stage0/stdlib/Lean/Meta/EqnCompiler/MatchPattern.c @@ -1,5 +1,5 @@ // Lean compiler output -// Module: Lean.EqnCompiler.MatchPattern +// Module: Lean.Meta.EqnCompiler.MatchPattern // Imports: Init Lean.Attributes #include #if defined(__clang__) @@ -124,7 +124,7 @@ return x_4; lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Attributes(lean_object*); static bool _G_initialized = false; -lean_object* initialize_Lean_EqnCompiler_MatchPattern(lean_object* w) { +lean_object* initialize_Lean_Meta_EqnCompiler_MatchPattern(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; diff --git a/stage0/stdlib/Lean/Meta/Exception.c b/stage0/stdlib/Lean/Meta/Exception.c index 73a8307fb9..f0807d11f5 100644 --- a/stage0/stdlib/Lean/Meta/Exception.c +++ b/stage0/stdlib/Lean/Meta/Exception.c @@ -62,6 +62,7 @@ lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__68; lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__73; lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__32; lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__10; +lean_object* l_Lean_Meta_Exception_getRef(lean_object*); lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__20; lean_object* l_Lean_mkProj(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__57; @@ -108,6 +109,7 @@ lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__75; lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__26; lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__58; lean_object* l_Lean_fmt___at_Lean_Message_toString___spec__1(lean_object*); +lean_object* l_Lean_Meta_Exception_getRef___boxed(lean_object*); lean_object* l_List_toStringAux___main___at_Lean_Meta_Exception_toStr___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__14; lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__28; @@ -173,11 +175,13 @@ return x_2; lean_object* _init_l_Lean_Meta_Exception_Inhabited___closed__2() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_Exception_Inhabited___closed__1; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_Exception_Inhabited___closed__1; +x_3 = lean_alloc_ctor(22, 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_Lean_Meta_Exception_Inhabited() { @@ -188,6 +192,42 @@ x_1 = l_Lean_Meta_Exception_Inhabited___closed__2; return x_1; } } +lean_object* l_Lean_Meta_Exception_getRef(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 18: +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +return x_2; +} +case 22: +{ +lean_object* x_3; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +return x_3; +} +default: +{ +lean_object* x_4; +x_4 = lean_box(0); +return x_4; +} +} +} +} +lean_object* l_Lean_Meta_Exception_getRef___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Meta_Exception_getRef(x_1); +lean_dec(x_1); +return x_2; +} +} lean_object* l_List_toStringAux___main___at_Lean_Meta_Exception_toStr___spec__2(uint8_t x_1, lean_object* x_2) { _start: { @@ -615,7 +655,7 @@ return x_53; case 18: { 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; -x_54 = lean_ctor_get(x_1, 0); +x_54 = lean_ctor_get(x_1, 1); lean_inc(x_54); lean_dec(x_1); x_55 = l_Lean_Name_toString___closed__1; @@ -651,7 +691,7 @@ return x_63; case 22: { lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; -x_64 = lean_ctor_get(x_1, 0); +x_64 = lean_ctor_get(x_1, 1); lean_inc(x_64); lean_dec(x_1); x_65 = l_Lean_fmt___at_Lean_Message_toString___spec__1(x_64); @@ -1946,11 +1986,11 @@ return x_132; case 18: { lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; -x_133 = lean_ctor_get(x_1, 0); +x_133 = lean_ctor_get(x_1, 1); lean_inc(x_133); -x_134 = lean_ctor_get(x_1, 2); +x_134 = lean_ctor_get(x_1, 3); lean_inc(x_134); -x_135 = lean_ctor_get(x_1, 3); +x_135 = lean_ctor_get(x_1, 4); lean_inc(x_135); lean_dec(x_1); x_136 = lean_alloc_ctor(4, 1, 0); @@ -2013,7 +2053,7 @@ return x_154; default: { lean_object* x_155; -x_155 = lean_ctor_get(x_1, 0); +x_155 = lean_ctor_get(x_1, 1); lean_inc(x_155); lean_dec(x_1); return x_155; diff --git a/stage0/stdlib/Lean/Meta/Message.c b/stage0/stdlib/Lean/Meta/Message.c index 05d60eb50a..529a0205b5 100644 --- a/stage0/stdlib/Lean/Meta/Message.c +++ b/stage0/stdlib/Lean/Meta/Message.c @@ -63,6 +63,7 @@ lean_object* l_Lean_mkProj(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage___closed__1; lean_object* l_Lean_Meta_Exception_toMessageData___closed__48; lean_object* l_Lean_Meta_Exception_toMessageData___closed__34; +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_Inhabited; lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage___closed__2; lean_object* l_Lean_KernelException_toMessageData(lean_object*, lean_object*); @@ -155,7 +156,6 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__20; uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object*, lean_object*); extern lean_object* l_Lean_KernelException_toMessageData___closed__39; -lean_object* l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4; lean_object* _init_l___private_Lean_Meta_Message_1__run_x3f___rarg___closed__1() { _start: { @@ -302,20 +302,11 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; +lean_inc(x_2); x_4 = l_Lean_Meta_whnf(x_1, x_2, x_3); if (lean_obj_tag(x_4) == 0) { @@ -325,6 +316,7 @@ lean_inc(x_5); if (lean_obj_tag(x_5) == 7) { uint8_t x_6; +lean_dec(x_2); x_6 = !lean_is_exclusive(x_4); if (x_6 == 0) { @@ -354,53 +346,39 @@ return x_11; } else { -uint8_t x_12; +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_dec(x_5); -x_12 = !lean_is_exclusive(x_4); -if (x_12 == 0) -{ -lean_object* x_13; lean_object* x_14; -x_13 = lean_ctor_get(x_4, 0); -lean_dec(x_13); -x_14 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4; -lean_ctor_set_tag(x_4, 1); -lean_ctor_set(x_4, 0, x_14); -return x_4; -} -else -{ -lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_15 = lean_ctor_get(x_4, 1); -lean_inc(x_15); +x_12 = lean_ctor_get(x_4, 1); +lean_inc(x_12); lean_dec(x_4); -x_16 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4; -x_17 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_15); -return x_17; -} +x_13 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3; +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwOther___rarg(x_13, x_14, x_2, x_12); +lean_dec(x_2); +return x_15; } } else { -uint8_t x_18; -x_18 = !lean_is_exclusive(x_4); -if (x_18 == 0) +uint8_t x_16; +lean_dec(x_2); +x_16 = !lean_is_exclusive(x_4); +if (x_16 == 0) { return x_4; } else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_19 = lean_ctor_get(x_4, 0); -x_20 = lean_ctor_get(x_4, 1); -lean_inc(x_20); -lean_inc(x_19); +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_4, 0); +x_18 = lean_ctor_get(x_4, 1); +lean_inc(x_18); +lean_inc(x_17); lean_dec(x_4); -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_19); -lean_ctor_set(x_21, 1, x_20); -return x_21; +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; } } } @@ -1695,13 +1673,13 @@ return x_124; case 18: { lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; -x_125 = lean_ctor_get(x_1, 0); +x_125 = lean_ctor_get(x_1, 1); lean_inc(x_125); -x_126 = lean_ctor_get(x_1, 1); +x_126 = lean_ctor_get(x_1, 2); lean_inc(x_126); -x_127 = lean_ctor_get(x_1, 2); +x_127 = lean_ctor_get(x_1, 3); lean_inc(x_127); -x_128 = lean_ctor_get(x_1, 3); +x_128 = lean_ctor_get(x_1, 4); lean_inc(x_128); lean_dec(x_1); x_129 = lean_alloc_ctor(4, 1, 0); @@ -1773,7 +1751,7 @@ return x_151; default: { lean_object* x_152; -x_152 = lean_ctor_get(x_1, 0); +x_152 = lean_ctor_get(x_1, 1); lean_inc(x_152); lean_dec(x_1); return x_152; @@ -2218,8 +2196,6 @@ l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2 = _init lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2); l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3(); lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3); -l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4(); -lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4); l___private_Lean_Meta_Message_3__inferDomain_x3f___closed__1 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___closed__1(); lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___closed__1); l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__1 = _init_l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__1(); diff --git a/stage0/stdlib/Lean/Meta/RecursorInfo.c b/stage0/stdlib/Lean/Meta/RecursorInfo.c index c8e5cee647..91cc48a035 100644 --- a/stage0/stdlib/Lean/Meta/RecursorInfo.c +++ b/stage0/stdlib/Lean/Meta/RecursorInfo.c @@ -121,7 +121,6 @@ lean_object* l_Array_binSearchAux___main___at_Lean_Meta_getMajorPos_x3f___spec__ lean_object* l_Array_findIdxAux___main___at___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Array_findIdxAux___main___at___private_Lean_Meta_RecursorInfo_9__getUnivLevelPos___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__13; -lean_object* l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4; lean_object* l_Lean_RecursorVal_getMajorIdx(lean_object*); lean_object* l_Array_findIdxMAux___main___at___private_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_brecOnSuffix; @@ -147,6 +146,7 @@ lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__16; lean_object* l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__7; lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__1; +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___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_Lean_Meta_RecursorInfo_3__checkMotive___closed__5; @@ -343,7 +343,6 @@ lean_object* l_Lean_Meta_recOnSuffix___closed__1; lean_object* l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___spec__1___lambda__1(lean_object*); lean_object* l___private_Lean_Meta_RecursorInfo_9__getUnivLevelPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkRecursorAttr___closed__1; -lean_object* l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4; lean_object* l_Lean_Meta_forallTelescopeReducing___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkRecursorAttr___lambda__1(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isSort(lean_object*); @@ -1550,16 +1549,6 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -1788,59 +1777,43 @@ return x_78; } else { -uint8_t x_79; +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_79 = !lean_is_exclusive(x_6); -if (x_79 == 0) -{ -lean_object* x_80; lean_object* x_81; -x_80 = lean_ctor_get(x_6, 0); -lean_dec(x_80); -x_81 = l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4; -lean_ctor_set_tag(x_6, 1); -lean_ctor_set(x_6, 0, x_81); -return x_6; -} -else -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; -x_82 = lean_ctor_get(x_6, 1); -lean_inc(x_82); +x_79 = lean_ctor_get(x_6, 1); +lean_inc(x_79); lean_dec(x_6); -x_83 = l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4; -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_83); -lean_ctor_set(x_84, 1, x_82); -return x_84; -} +x_80 = l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__3; +x_81 = lean_box(0); +x_82 = l_Lean_Meta_throwOther___rarg(x_80, x_81, x_3, x_79); +return x_82; } } else { -uint8_t x_85; +uint8_t x_83; lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_85 = !lean_is_exclusive(x_6); -if (x_85 == 0) +x_83 = !lean_is_exclusive(x_6); +if (x_83 == 0) { return x_6; } else { -lean_object* x_86; lean_object* x_87; lean_object* x_88; -x_86 = lean_ctor_get(x_6, 0); -x_87 = lean_ctor_get(x_6, 1); -lean_inc(x_87); -lean_inc(x_86); +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_6, 0); +x_85 = lean_ctor_get(x_6, 1); +lean_inc(x_85); +lean_inc(x_84); lean_dec(x_6); -x_88 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_88, 0, x_86); -lean_ctor_set(x_88, 1, x_87); -return x_88; +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; } } } @@ -1891,16 +1864,6 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -1926,59 +1889,59 @@ else { if (lean_obj_tag(x_1) == 1) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_57; uint8_t x_58; +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_55; uint8_t x_56; x_10 = lean_ctor_get(x_1, 0); lean_inc(x_10); x_11 = lean_ctor_get(x_1, 1); lean_inc(x_11); lean_dec(x_1); -x_57 = l_Lean_Meta_recOnSuffix; +x_55 = l_Lean_Meta_recOnSuffix; +x_56 = lean_string_dec_eq(x_11, x_55); +if (x_56 == 0) +{ +lean_object* x_57; uint8_t x_58; +x_57 = l_Lean_Meta_casesOnSuffix; x_58 = lean_string_dec_eq(x_11, x_57); if (x_58 == 0) { lean_object* x_59; uint8_t x_60; -x_59 = l_Lean_Meta_casesOnSuffix; +x_59 = l_Lean_Meta_brecOnSuffix; x_60 = lean_string_dec_eq(x_11, x_59); if (x_60 == 0) { -lean_object* x_61; uint8_t x_62; -x_61 = l_Lean_Meta_brecOnSuffix; -x_62 = lean_string_dec_eq(x_11, x_61); -if (x_62 == 0) -{ -lean_object* x_63; lean_object* x_64; +lean_object* x_61; lean_object* x_62; lean_dec(x_11); lean_dec(x_10); +x_61 = lean_box(0); +x_62 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_62, 0, x_61); +lean_ctor_set(x_62, 1, x_4); +return x_62; +} +else +{ +lean_object* x_63; x_63 = lean_box(0); -x_64 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_64, 0, x_63); -lean_ctor_set(x_64, 1, x_4); -return x_64; +x_12 = x_63; +goto block_54; +} +} +else +{ +lean_object* x_64; +x_64 = lean_box(0); +x_12 = x_64; +goto block_54; +} } else { lean_object* x_65; x_65 = lean_box(0); x_12 = x_65; -goto block_56; +goto block_54; } -} -else -{ -lean_object* x_66; -x_66 = lean_box(0); -x_12 = x_66; -goto block_56; -} -} -else -{ -lean_object* x_67; -x_67 = lean_box(0); -x_12 = x_67; -goto block_56; -} -block_56: +block_54: { lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_dec(x_12); @@ -2092,79 +2055,63 @@ return x_45; } else { -uint8_t x_46; +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_dec(x_16); lean_dec(x_11); -x_46 = !lean_is_exclusive(x_15); -if (x_46 == 0) -{ -lean_object* x_47; lean_object* x_48; -x_47 = lean_ctor_get(x_15, 0); -lean_dec(x_47); -x_48 = l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4; -lean_ctor_set_tag(x_15, 1); -lean_ctor_set(x_15, 0, x_48); -return x_15; -} -else -{ -lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_49 = lean_ctor_get(x_15, 1); -lean_inc(x_49); +x_46 = lean_ctor_get(x_15, 1); +lean_inc(x_46); lean_dec(x_15); -x_50 = l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4; -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_49); -return x_51; -} +x_47 = l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; +x_48 = lean_box(0); +x_49 = l_Lean_Meta_throwOther___rarg(x_47, x_48, x_3, x_46); +return x_49; } } else { -uint8_t x_52; +uint8_t x_50; lean_dec(x_11); -x_52 = !lean_is_exclusive(x_15); -if (x_52 == 0) +x_50 = !lean_is_exclusive(x_15); +if (x_50 == 0) { return x_15; } else { -lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_53 = lean_ctor_get(x_15, 0); -x_54 = lean_ctor_get(x_15, 1); -lean_inc(x_54); -lean_inc(x_53); +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_15, 0); +x_52 = lean_ctor_get(x_15, 1); +lean_inc(x_52); +lean_inc(x_51); lean_dec(x_15); -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; +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_68; lean_object* x_69; +lean_object* x_66; lean_object* x_67; lean_dec(x_1); -x_68 = lean_box(0); -x_69 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_69, 0, x_68); -lean_ctor_set(x_69, 1, x_4); -return x_69; +x_66 = lean_box(0); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_4); +return x_67; } } } else { -lean_object* x_70; +lean_object* x_68; lean_dec(x_1); -x_70 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_70, 0, x_2); -lean_ctor_set(x_70, 1, x_4); -return x_70; +x_68 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_68, 0, x_2); +lean_ctor_set(x_68, 1, x_4); +return x_68; } } } @@ -2324,11 +2271,8 @@ x_15 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__9; x_16 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_16, 0, x_14); lean_ctor_set(x_16, 1, x_15); -x_17 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_17, 0, x_16); -x_18 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_18, 0, x_17); -lean_ctor_set(x_18, 1, x_5); +x_17 = lean_box(0); +x_18 = l_Lean_Meta_throwOther___rarg(x_16, x_17, x_4, x_5); return x_18; } else @@ -2369,11 +2313,8 @@ x_32 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__9; x_33 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_33, 0, x_31); lean_ctor_set(x_33, 1, x_32); -x_34 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_34, 0, x_33); -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_5); +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwOther___rarg(x_33, x_34, x_4, x_5); return x_35; } } @@ -2739,19 +2680,19 @@ x_10 = lean_unsigned_to_nat(0u); x_11 = l_Array_findIdxAux___main___at___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___spec__2(x_9, x_3, x_10); if (x_8 == 0) { -uint8_t x_44; -x_44 = 0; -x_12 = x_44; -goto block_43; +uint8_t x_48; +x_48 = 0; +x_12 = x_48; +goto block_47; } else { -uint8_t x_45; -x_45 = 1; -x_12 = x_45; -goto block_43; +uint8_t x_49; +x_49 = 1; +x_12 = x_49; +goto block_47; } -block_43: +block_47: { if (x_12 == 0) { @@ -2773,11 +2714,8 @@ x_19 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__5; x_20 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_20, 0, x_18); lean_ctor_set(x_20, 1, x_19); -x_21 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_21, 0, x_20); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_21); -lean_ctor_set(x_22, 1, x_7); +x_21 = lean_box(0); +x_22 = l_Lean_Meta_throwOther___rarg(x_20, x_21, x_6, x_7); return x_22; } else @@ -2803,7 +2741,7 @@ 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; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; +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; uint8_t x_43; lean_dec(x_11); lean_dec(x_9); x_29 = l_Lean_Name_toString___closed__1; @@ -2828,63 +2766,74 @@ x_39 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__17; x_40 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_40, 0, x_38); lean_ctor_set(x_40, 1, x_39); -x_41 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_41, 0, x_40); -x_42 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_7); +x_41 = lean_box(0); +x_42 = l_Lean_Meta_throwOther___rarg(x_40, x_41, x_6, x_7); +x_43 = !lean_is_exclusive(x_42); +if (x_43 == 0) +{ return x_42; } +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_42, 0); +x_45 = lean_ctor_get(x_42, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_42); +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 { -lean_object* x_46; lean_object* x_47; uint8_t x_48; +lean_object* x_50; lean_object* x_51; uint8_t x_52; lean_dec(x_1); -x_46 = lean_ctor_get(x_2, 0); -x_47 = lean_array_get_size(x_3); -x_48 = lean_nat_dec_lt(x_46, x_47); -if (x_48 == 0) +x_50 = lean_ctor_get(x_2, 0); +x_51 = lean_array_get_size(x_3); +x_52 = lean_nat_dec_lt(x_50, x_51); +if (x_52 == 0) { -lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; -x_49 = l_Nat_repr(x_47); -x_50 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_50, 0, x_49); -x_51 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_51, 0, x_50); -x_52 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__20; -x_53 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_51); -x_54 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__23; -x_55 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_55, 0, x_53); -lean_ctor_set(x_55, 1, x_54); -x_56 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_56, 0, x_55); -x_57 = lean_alloc_ctor(1, 2, 0); +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; +x_53 = l_Nat_repr(x_51); +x_54 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_54, 0, x_53); +x_55 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_55, 0, x_54); +x_56 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__20; +x_57 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_57, 0, x_56); -lean_ctor_set(x_57, 1, x_7); -return x_57; +lean_ctor_set(x_57, 1, x_55); +x_58 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__23; +x_59 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +x_60 = lean_box(0); +x_61 = l_Lean_Meta_throwOther___rarg(x_59, x_60, x_6, x_7); +return x_61; } else { -lean_object* x_58; uint8_t x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; -lean_dec(x_47); -x_58 = lean_array_fget(x_3, x_46); -x_59 = l_Array_contains___at_Lean_Meta_CheckAssignment_check___main___spec__2(x_5, x_58); -x_60 = lean_box(x_59); -lean_inc(x_46); -x_61 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_61, 0, x_46); -lean_ctor_set(x_61, 1, x_60); -x_62 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_62, 0, x_58); -lean_ctor_set(x_62, 1, x_61); -x_63 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_7); -return x_63; +lean_object* x_62; uint8_t x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +lean_dec(x_51); +x_62 = lean_array_fget(x_3, x_50); +x_63 = l_Array_contains___at_Lean_Meta_CheckAssignment_check___main___spec__2(x_5, x_62); +x_64 = lean_box(x_63); +lean_inc(x_50); +x_65 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_65, 0, x_50); +lean_ctor_set(x_65, 1, x_64); +x_66 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_66, 0, x_62); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_7); +return x_67; } } } @@ -3093,181 +3042,145 @@ lean_inc(x_7); x_21 = l_Lean_Meta_getLocalDecl(x_20, x_7, x_19); if (lean_obj_tag(x_21) == 0) { -uint8_t x_22; -x_22 = !lean_is_exclusive(x_21); -if (x_22 == 0) +lean_object* x_22; lean_object* x_23; uint8_t x_24; uint8_t x_25; +x_22 = lean_ctor_get(x_21, 0); +lean_inc(x_22); +x_23 = lean_ctor_get(x_21, 1); +lean_inc(x_23); +lean_dec(x_21); +x_24 = l_Lean_LocalDecl_binderInfo(x_22); +lean_dec(x_22); +x_25 = l_Lean_BinderInfo_isInstImplicit(x_24); +if (x_25 == 0) { -lean_object* x_23; lean_object* x_24; uint8_t x_25; uint8_t x_26; -x_23 = lean_ctor_get(x_21, 0); -x_24 = lean_ctor_get(x_21, 1); -x_25 = l_Lean_LocalDecl_binderInfo(x_23); -lean_dec(x_23); -x_26 = l_Lean_BinderInfo_isInstImplicit(x_25); -if (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_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; uint8_t x_36; lean_dec(x_12); -lean_dec(x_7); lean_dec(x_6); -x_27 = l_Lean_Name_toString___closed__1; -x_28 = l_Lean_Name_toStringWithSep___main(x_27, x_1); -x_29 = lean_alloc_ctor(2, 1, 0); +x_26 = l_Lean_Name_toString___closed__1; +x_27 = l_Lean_Name_toStringWithSep___main(x_26, x_1); +x_28 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_28, 0, x_27); +x_29 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_29, 0, x_28); -x_30 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_30, 0, x_29); -x_31 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___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_Nat_foldMAux___main___at___private_Lean_Meta_RecursorInfo_6__getParamsPos___spec__2___closed__3; -x_34 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_34, 0, x_32); -lean_ctor_set(x_34, 1, x_33); -x_35 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set_tag(x_21, 1); -lean_ctor_set(x_21, 0, x_35); -return x_21; +x_30 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_31 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +x_32 = l_Nat_foldMAux___main___at___private_Lean_Meta_RecursorInfo_6__getParamsPos___spec__2___closed__3; +x_33 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_33, 0, x_31); +lean_ctor_set(x_33, 1, x_32); +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwOther___rarg(x_33, x_34, x_7, x_23); +lean_dec(x_7); +x_36 = !lean_is_exclusive(x_35); +if (x_36 == 0) +{ +return x_35; } else { -lean_object* x_36; -lean_free_object(x_21); -x_36 = lean_array_push(x_6, x_18); -x_5 = x_12; -x_6 = x_36; -x_8 = x_24; -goto _start; -} -} -else -{ -lean_object* x_38; lean_object* x_39; uint8_t x_40; uint8_t x_41; -x_38 = lean_ctor_get(x_21, 0); -x_39 = lean_ctor_get(x_21, 1); -lean_inc(x_39); +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_ctor_get(x_35, 1); lean_inc(x_38); -lean_dec(x_21); -x_40 = l_Lean_LocalDecl_binderInfo(x_38); -lean_dec(x_38); -x_41 = l_Lean_BinderInfo_isInstImplicit(x_40); -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_dec(x_12); -lean_dec(x_7); -lean_dec(x_6); -x_42 = l_Lean_Name_toString___closed__1; -x_43 = l_Lean_Name_toStringWithSep___main(x_42, x_1); -x_44 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_44, 0, x_43); -x_45 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_45, 0, x_44); -x_46 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_47 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_45); -x_48 = l_Nat_foldMAux___main___at___private_Lean_Meta_RecursorInfo_6__getParamsPos___spec__2___closed__3; -x_49 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_49, 0, x_47); -lean_ctor_set(x_49, 1, x_48); -x_50 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_50, 0, x_49); -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_39); -return x_51; +lean_inc(x_37); +lean_dec(x_35); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; +} } else { -lean_object* x_52; -x_52 = lean_array_push(x_6, x_18); +lean_object* x_40; +x_40 = lean_array_push(x_6, x_18); x_5 = x_12; -x_6 = x_52; -x_8 = x_39; +x_6 = x_40; +x_8 = x_23; goto _start; } } -} else { -uint8_t x_54; +uint8_t x_42; lean_dec(x_12); lean_dec(x_7); lean_dec(x_6); lean_dec(x_1); -x_54 = !lean_is_exclusive(x_21); -if (x_54 == 0) +x_42 = !lean_is_exclusive(x_21); +if (x_42 == 0) { return x_21; } else { -lean_object* x_55; lean_object* x_56; lean_object* x_57; -x_55 = lean_ctor_get(x_21, 0); -x_56 = lean_ctor_get(x_21, 1); -lean_inc(x_56); -lean_inc(x_55); +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_21, 0); +x_44 = lean_ctor_get(x_21, 1); +lean_inc(x_44); +lean_inc(x_43); lean_dec(x_21); -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_55); -lean_ctor_set(x_57, 1, x_56); -return x_57; +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 { -lean_object* x_58; lean_object* x_59; +lean_object* x_46; lean_object* x_47; lean_dec(x_16); -x_58 = lean_ctor_get(x_17, 1); -lean_inc(x_58); +x_46 = lean_ctor_get(x_17, 1); +lean_inc(x_46); lean_dec(x_17); -x_59 = lean_array_push(x_6, x_18); +x_47 = lean_array_push(x_6, x_18); x_5 = x_12; -x_6 = x_59; -x_8 = x_58; +x_6 = x_47; +x_8 = x_46; goto _start; } } else { -uint8_t x_61; +uint8_t x_49; lean_dec(x_16); lean_dec(x_12); lean_dec(x_7); lean_dec(x_6); lean_dec(x_1); -x_61 = !lean_is_exclusive(x_17); -if (x_61 == 0) +x_49 = !lean_is_exclusive(x_17); +if (x_49 == 0) { return x_17; } else { -lean_object* x_62; lean_object* x_63; lean_object* x_64; -x_62 = lean_ctor_get(x_17, 0); -x_63 = lean_ctor_get(x_17, 1); -lean_inc(x_63); -lean_inc(x_62); +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_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_62); -lean_ctor_set(x_64, 1, x_63); -return x_64; +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_65; +lean_object* x_53; lean_dec(x_7); lean_dec(x_5); lean_dec(x_1); -x_65 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_65, 0, x_6); -lean_ctor_set(x_65, 1, x_8); -return x_65; +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_6); +lean_ctor_set(x_53, 1, x_8); +return x_53; } } } @@ -3526,117 +3439,101 @@ x_22 = lean_ctor_get(x_21, 0); lean_inc(x_22); if (lean_obj_tag(x_22) == 0) { -uint8_t x_23; +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; uint8_t x_34; lean_dec(x_14); -lean_dec(x_9); lean_dec(x_8); -x_23 = !lean_is_exclusive(x_21); -if (x_23 == 0) -{ -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; -x_24 = lean_ctor_get(x_21, 0); -lean_dec(x_24); -x_25 = l_Lean_Name_toString___closed__1; -x_26 = l_Lean_Name_toStringWithSep___main(x_25, x_1); -x_27 = lean_alloc_ctor(2, 1, 0); +x_23 = lean_ctor_get(x_21, 1); +lean_inc(x_23); +lean_dec(x_21); +x_24 = l_Lean_Name_toString___closed__1; +x_25 = l_Lean_Name_toStringWithSep___main(x_24, x_1); +x_26 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_26, 0, x_25); +x_27 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_27, 0, x_26); -x_28 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_28, 0, x_27); -x_29 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_30 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_28); -x_31 = l_Nat_foldMAux___main___at___private_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__2___closed__3; -x_32 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_32, 0, x_30); -lean_ctor_set(x_32, 1, x_31); -x_33 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set_tag(x_21, 1); -lean_ctor_set(x_21, 0, x_33); -return x_21; +x_28 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_29 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_27); +x_30 = l_Nat_foldMAux___main___at___private_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__2___closed__3; +x_31 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_31, 0, x_29); +lean_ctor_set(x_31, 1, x_30); +x_32 = lean_box(0); +x_33 = l_Lean_Meta_throwOther___rarg(x_31, x_32, x_9, x_23); +lean_dec(x_9); +x_34 = !lean_is_exclusive(x_33); +if (x_34 == 0) +{ +return x_33; } else { -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; -x_34 = lean_ctor_get(x_21, 1); -lean_inc(x_34); -lean_dec(x_21); -x_35 = l_Lean_Name_toString___closed__1; -x_36 = l_Lean_Name_toStringWithSep___main(x_35, x_1); -x_37 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_37, 0, x_36); -x_38 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_38, 0, x_37); -x_39 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_40 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_40, 0, x_39); -lean_ctor_set(x_40, 1, x_38); -x_41 = l_Nat_foldMAux___main___at___private_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__2___closed__3; -x_42 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_42, 0, x_40); -lean_ctor_set(x_42, 1, x_41); -x_43 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_43, 0, x_42); -x_44 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_44, 0, x_43); -lean_ctor_set(x_44, 1, x_34); -return x_44; +lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_35 = lean_ctor_get(x_33, 0); +x_36 = lean_ctor_get(x_33, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_33); +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; } } else { -lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_45 = lean_ctor_get(x_21, 1); -lean_inc(x_45); +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_21, 1); +lean_inc(x_38); lean_dec(x_21); -x_46 = lean_ctor_get(x_22, 0); -lean_inc(x_46); +x_39 = lean_ctor_get(x_22, 0); +lean_inc(x_39); lean_dec(x_22); -x_47 = lean_array_push(x_8, x_46); +x_40 = lean_array_push(x_8, x_39); x_7 = x_14; -x_8 = x_47; -x_10 = x_45; +x_8 = x_40; +x_10 = x_38; goto _start; } } else { -uint8_t x_49; +uint8_t x_42; lean_dec(x_14); lean_dec(x_9); lean_dec(x_8); lean_dec(x_1); -x_49 = !lean_is_exclusive(x_21); -if (x_49 == 0) +x_42 = !lean_is_exclusive(x_21); +if (x_42 == 0) { return x_21; } else { -lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_50 = lean_ctor_get(x_21, 0); -x_51 = lean_ctor_get(x_21, 1); -lean_inc(x_51); -lean_inc(x_50); +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_21, 0); +x_44 = lean_ctor_get(x_21, 1); +lean_inc(x_44); +lean_inc(x_43); lean_dec(x_21); -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; +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 { -lean_object* x_53; +lean_object* x_46; lean_dec(x_9); lean_dec(x_7); lean_dec(x_1); -x_53 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_53, 0, x_8); -lean_ctor_set(x_53, 1, x_10); -return x_53; +x_46 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_46, 0, x_8); +lean_ctor_set(x_46, 1, x_10); +return x_46; } } } @@ -3825,11 +3722,8 @@ x_12 = l___private_Lean_Meta_RecursorInfo_8__getMotiveLevel___closed__3; x_13 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_13, 0, x_11); lean_ctor_set(x_13, 1, x_12); -x_14 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_14, 0, x_13); -x_15 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_15, 0, x_14); -lean_ctor_set(x_15, 1, x_4); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwOther___rarg(x_13, x_14, x_3, x_4); return x_15; } } @@ -3942,7 +3836,7 @@ x_14 = l_Array_findIdxAux___main___at___private_Lean_Meta_RecursorInfo_9__getUni lean_dec(x_11); 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; 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_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; uint8_t x_31; lean_dec(x_10); lean_dec(x_4); x_15 = l_Lean_Name_toString___closed__1; @@ -3971,36 +3865,50 @@ x_27 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__5; 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(22, 1, 0); -lean_ctor_set(x_29, 0, x_28); -x_30 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_7); +x_29 = lean_box(0); +x_30 = l_Lean_Meta_throwOther___rarg(x_28, x_29, x_6, x_7); +x_31 = !lean_is_exclusive(x_30); +if (x_31 == 0) +{ return x_30; } else { -lean_object* x_31; lean_object* x_32; lean_object* x_33; +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_30, 0); +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_30); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_dec(x_9); -x_31 = lean_ctor_get(x_14, 0); -lean_inc(x_31); +x_35 = lean_ctor_get(x_14, 0); +lean_inc(x_35); lean_dec(x_14); -x_32 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_32, 0, x_31); -x_33 = lean_array_push(x_4, x_32); -x_4 = x_33; +x_36 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_36, 0, x_35); +x_37 = lean_array_push(x_4, x_36); +x_4 = x_37; x_5 = x_10; goto _start; } } else { -lean_object* x_35; lean_object* x_36; +lean_object* x_39; lean_object* x_40; lean_dec(x_11); lean_dec(x_9); -x_35 = lean_box(0); -x_36 = lean_array_push(x_4, x_35); -x_4 = x_36; +x_39 = lean_box(0); +x_40 = lean_array_push(x_4, x_39); +x_4 = x_40; x_5 = x_10; goto _start; } @@ -5284,11 +5192,8 @@ x_18 = l___private_Lean_Meta_RecursorInfo_11__checkMotiveResultType___closed__9; x_19 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_19, 0, x_17); lean_ctor_set(x_19, 1, x_18); -x_20 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_20, 0, x_19); -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_20); -lean_ctor_set(x_21, 1, x_6); +x_20 = lean_box(0); +x_21 = l_Lean_Meta_throwOther___rarg(x_19, x_20, x_5, x_6); return x_21; } else @@ -5324,11 +5229,8 @@ x_35 = l___private_Lean_Meta_RecursorInfo_11__checkMotiveResultType___closed__9; x_36 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_36, 0, x_34); lean_ctor_set(x_36, 1, x_35); -x_37 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_37, 0, x_36); -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_6); +x_37 = lean_box(0); +x_38 = l_Lean_Meta_throwOther___rarg(x_36, x_37, x_5, x_6); return x_38; } else @@ -5797,7 +5699,6 @@ goto _start; default: { 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_dec(x_13); lean_dec(x_12); lean_dec(x_11); lean_dec(x_10); @@ -5822,11 +5723,9 @@ x_53 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__m x_54 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_54, 0, x_52); lean_ctor_set(x_54, 1, x_53); -x_55 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_55, 0, x_54); -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_14); +x_55 = lean_box(0); +x_56 = l_Lean_Meta_throwOther___rarg(x_54, x_55, x_13, x_14); +lean_dec(x_13); return x_56; } } @@ -5882,57 +5781,102 @@ lean_inc(x_2); x_14 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_13); 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; lean_object* x_21; lean_object* x_22; uint8_t x_49; +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; uint8_t x_54; x_15 = lean_ctor_get(x_14, 0); lean_inc(x_15); x_16 = lean_ctor_get(x_15, 1); lean_inc(x_16); x_17 = lean_ctor_get(x_14, 1); lean_inc(x_17); -if (lean_is_exclusive(x_14)) { - lean_ctor_release(x_14, 0); - lean_ctor_release(x_14, 1); - x_18 = x_14; -} else { - lean_dec_ref(x_14); - x_18 = lean_box(0); -} -x_19 = lean_ctor_get(x_15, 0); -lean_inc(x_19); +lean_dec(x_14); +x_18 = lean_ctor_get(x_15, 0); +lean_inc(x_18); lean_dec(x_15); -x_20 = lean_ctor_get(x_16, 0); +x_19 = lean_ctor_get(x_16, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_16, 1); lean_inc(x_20); -x_21 = lean_ctor_get(x_16, 1); -lean_inc(x_21); lean_dec(x_16); -x_49 = lean_unbox(x_21); -if (x_49 == 0) +x_54 = lean_unbox(x_20); +if (x_54 == 0) { -lean_object* x_50; -x_50 = lean_array_get_size(x_6); -x_22 = x_50; -goto block_48; +lean_object* x_55; +x_55 = lean_array_get_size(x_6); +x_21 = x_55; +goto block_53; } else { -lean_object* x_51; lean_object* x_52; lean_object* x_53; -x_51 = lean_array_get_size(x_6); -x_52 = lean_unsigned_to_nat(1u); -x_53 = lean_nat_sub(x_51, x_52); -lean_dec(x_51); -x_22 = x_53; -goto block_48; +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_array_get_size(x_6); +x_57 = lean_unsigned_to_nat(1u); +x_58 = lean_nat_sub(x_56, x_57); +lean_dec(x_56); +x_21 = x_58; +goto block_53; } -block_48: +block_53: { -uint8_t x_23; -x_23 = lean_nat_dec_lt(x_20, x_22); -if (x_23 == 0) +uint8_t x_22; lean_object* x_23; +x_22 = lean_nat_dec_lt(x_19, x_21); +if (x_22 == 0) +{ +x_23 = x_17; +goto block_38; +} +else +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; uint8_t x_49; +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_11); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_39 = l_Lean_Name_toString___closed__1; +x_40 = l_Lean_Name_toStringWithSep___main(x_39, x_2); +x_41 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_41, 0, x_40); +x_42 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_42, 0, x_41); +x_43 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_44 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_46 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_46, 0, x_44); +lean_ctor_set(x_46, 1, x_45); +x_47 = lean_box(0); +x_48 = l_Lean_Meta_throwOther___rarg(x_46, x_47, x_8, x_17); +lean_dec(x_8); +x_49 = !lean_is_exclusive(x_48); +if (x_49 == 0) +{ +return x_48; +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_48, 0); +x_51 = lean_ctor_get(x_48, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_48); +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; +} +} +block_38: { lean_object* x_24; -lean_dec(x_18); lean_inc(x_8); -x_24 = l_Lean_Meta_inferType(x_19, x_8, x_17); +x_24 = l_Lean_Meta_inferType(x_18, x_8, x_23); if (lean_obj_tag(x_24) == 0) { 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; uint8_t x_32; lean_object* x_33; @@ -5948,17 +5892,17 @@ x_29 = lean_mk_array(x_27, x_28); x_30 = lean_unsigned_to_nat(1u); x_31 = lean_nat_sub(x_27, x_30); lean_dec(x_27); -x_32 = lean_unbox(x_21); -lean_dec(x_21); -x_33 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_11, x_20, x_32, x_22, x_25, x_29, x_31, x_8, x_26); +x_32 = lean_unbox(x_20); +lean_dec(x_20); +x_33 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_11, x_19, x_32, x_21, x_25, x_29, x_31, x_8, x_26); return x_33; } else { uint8_t x_34; -lean_dec(x_22); lean_dec(x_21); lean_dec(x_20); +lean_dec(x_19); lean_dec(x_11); lean_dec(x_8); lean_dec(x_6); @@ -5986,50 +5930,11 @@ return x_37; } } } -else -{ -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_dec(x_22); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_19); -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_38 = l_Lean_Name_toString___closed__1; -x_39 = l_Lean_Name_toStringWithSep___main(x_38, x_2); -x_40 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_40, 0, x_39); -x_41 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_41, 0, x_40); -x_42 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___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_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_45 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_45, 0, x_43); -lean_ctor_set(x_45, 1, x_44); -x_46 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_46, 0, x_45); -if (lean_is_scalar(x_18)) { - x_47 = lean_alloc_ctor(1, 2, 0); -} else { - x_47 = x_18; - lean_ctor_set_tag(x_47, 1); -} -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_17); -return x_47; -} } } else { -uint8_t x_54; +uint8_t x_59; lean_dec(x_11); lean_dec(x_8); lean_dec(x_6); @@ -6037,29 +5942,29 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_54 = !lean_is_exclusive(x_14); -if (x_54 == 0) +x_59 = !lean_is_exclusive(x_14); +if (x_59 == 0) { return x_14; } else { -lean_object* x_55; lean_object* x_56; lean_object* x_57; -x_55 = lean_ctor_get(x_14, 0); -x_56 = lean_ctor_get(x_14, 1); -lean_inc(x_56); -lean_inc(x_55); +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_14, 0); +x_61 = lean_ctor_get(x_14, 1); +lean_inc(x_61); +lean_inc(x_60); lean_dec(x_14); -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_55); -lean_ctor_set(x_57, 1, x_56); -return x_57; +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +return x_62; } } } else { -uint8_t x_58; +uint8_t x_63; lean_dec(x_11); lean_dec(x_8); lean_dec(x_6); @@ -6067,881 +5972,873 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_58 = !lean_is_exclusive(x_12); -if (x_58 == 0) +x_63 = !lean_is_exclusive(x_12); +if (x_63 == 0) { return x_12; } else { -lean_object* x_59; lean_object* x_60; lean_object* x_61; -x_59 = lean_ctor_get(x_12, 0); -x_60 = lean_ctor_get(x_12, 1); -lean_inc(x_60); -lean_inc(x_59); +lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_64 = lean_ctor_get(x_12, 0); +x_65 = lean_ctor_get(x_12, 1); +lean_inc(x_65); +lean_inc(x_64); lean_dec(x_12); -x_61 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_61, 0, x_59); -lean_ctor_set(x_61, 1, x_60); -return x_61; +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_64); +lean_ctor_set(x_66, 1, x_65); +return x_66; } } } case 1: { -lean_object* x_62; lean_object* x_63; lean_object* x_64; +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_dec(x_7); -x_62 = lean_unsigned_to_nat(0u); -x_63 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_62); +x_67 = lean_unsigned_to_nat(0u); +x_68 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_67); lean_inc(x_2); -x_64 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_64) == 0) +x_69 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_69) == 0) { -lean_object* x_65; lean_object* x_66; -x_65 = lean_ctor_get(x_64, 1); -lean_inc(x_65); -lean_dec(x_64); +lean_object* x_70; lean_object* x_71; +x_70 = lean_ctor_get(x_69, 1); +lean_inc(x_70); +lean_dec(x_69); lean_inc(x_2); -x_66 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_65); -if (lean_obj_tag(x_66) == 0) +x_71 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_70); +if (lean_obj_tag(x_71) == 0) { -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; uint8_t x_101; -x_67 = lean_ctor_get(x_66, 0); -lean_inc(x_67); -x_68 = lean_ctor_get(x_67, 1); -lean_inc(x_68); -x_69 = lean_ctor_get(x_66, 1); -lean_inc(x_69); -if (lean_is_exclusive(x_66)) { - lean_ctor_release(x_66, 0); - lean_ctor_release(x_66, 1); - x_70 = x_66; -} else { - lean_dec_ref(x_66); - x_70 = lean_box(0); -} -x_71 = lean_ctor_get(x_67, 0); -lean_inc(x_71); -lean_dec(x_67); -x_72 = lean_ctor_get(x_68, 0); +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_111; +x_72 = lean_ctor_get(x_71, 0); lean_inc(x_72); -x_73 = lean_ctor_get(x_68, 1); +x_73 = lean_ctor_get(x_72, 1); lean_inc(x_73); -lean_dec(x_68); -x_101 = lean_unbox(x_73); -if (x_101 == 0) -{ -lean_object* x_102; -x_102 = lean_array_get_size(x_6); -x_74 = x_102; -goto block_100; -} -else -{ -lean_object* x_103; lean_object* x_104; lean_object* x_105; -x_103 = lean_array_get_size(x_6); -x_104 = lean_unsigned_to_nat(1u); -x_105 = lean_nat_sub(x_103, x_104); -lean_dec(x_103); -x_74 = x_105; -goto block_100; -} -block_100: -{ -uint8_t x_75; -x_75 = lean_nat_dec_lt(x_72, x_74); -if (x_75 == 0) -{ -lean_object* x_76; -lean_dec(x_70); -lean_inc(x_8); -x_76 = l_Lean_Meta_inferType(x_71, x_8, x_69); -if (lean_obj_tag(x_76) == 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; lean_object* x_83; uint8_t x_84; lean_object* x_85; -x_77 = lean_ctor_get(x_76, 0); -lean_inc(x_77); -x_78 = lean_ctor_get(x_76, 1); -lean_inc(x_78); -lean_dec(x_76); -x_79 = l_Lean_Expr_getAppNumArgsAux___main(x_77, x_62); -x_80 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_79); -x_81 = lean_mk_array(x_79, x_80); -x_82 = lean_unsigned_to_nat(1u); -x_83 = lean_nat_sub(x_79, x_82); -lean_dec(x_79); -x_84 = lean_unbox(x_73); -lean_dec(x_73); -x_85 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_63, x_72, x_84, x_74, x_77, x_81, x_83, x_8, x_78); -return x_85; -} -else -{ -uint8_t x_86; -lean_dec(x_74); -lean_dec(x_73); -lean_dec(x_72); -lean_dec(x_63); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_86 = !lean_is_exclusive(x_76); -if (x_86 == 0) -{ -return x_76; -} -else -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_76, 0); -x_88 = lean_ctor_get(x_76, 1); -lean_inc(x_88); -lean_inc(x_87); -lean_dec(x_76); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_87); -lean_ctor_set(x_89, 1, x_88); -return x_89; -} -} -} -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; lean_object* x_99; -lean_dec(x_74); -lean_dec(x_73); -lean_dec(x_72); +x_74 = lean_ctor_get(x_71, 1); +lean_inc(x_74); lean_dec(x_71); -lean_dec(x_63); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_90 = l_Lean_Name_toString___closed__1; -x_91 = l_Lean_Name_toStringWithSep___main(x_90, x_2); -x_92 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_92, 0, x_91); -x_93 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_93, 0, x_92); -x_94 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_95 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_93); -x_96 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_97 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_97, 0, x_95); -lean_ctor_set(x_97, 1, x_96); -x_98 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_98, 0, x_97); -if (lean_is_scalar(x_70)) { - x_99 = lean_alloc_ctor(1, 2, 0); -} else { - x_99 = x_70; - lean_ctor_set_tag(x_99, 1); -} -lean_ctor_set(x_99, 0, x_98); -lean_ctor_set(x_99, 1, x_69); -return x_99; -} -} +x_75 = lean_ctor_get(x_72, 0); +lean_inc(x_75); +lean_dec(x_72); +x_76 = lean_ctor_get(x_73, 0); +lean_inc(x_76); +x_77 = lean_ctor_get(x_73, 1); +lean_inc(x_77); +lean_dec(x_73); +x_111 = lean_unbox(x_77); +if (x_111 == 0) +{ +lean_object* x_112; +x_112 = lean_array_get_size(x_6); +x_78 = x_112; +goto block_110; } else { -uint8_t x_106; -lean_dec(x_63); -lean_dec(x_8); +lean_object* x_113; lean_object* x_114; lean_object* x_115; +x_113 = lean_array_get_size(x_6); +x_114 = lean_unsigned_to_nat(1u); +x_115 = lean_nat_sub(x_113, x_114); +lean_dec(x_113); +x_78 = x_115; +goto block_110; +} +block_110: +{ +uint8_t x_79; lean_object* x_80; +x_79 = lean_nat_dec_lt(x_76, x_78); +if (x_79 == 0) +{ +x_80 = x_74; +goto block_95; +} +else +{ +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; uint8_t x_106; +lean_dec(x_78); +lean_dec(x_77); +lean_dec(x_76); +lean_dec(x_75); +lean_dec(x_68); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_2); lean_dec(x_1); -x_106 = !lean_is_exclusive(x_66); +x_96 = l_Lean_Name_toString___closed__1; +x_97 = l_Lean_Name_toStringWithSep___main(x_96, x_2); +x_98 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_98, 0, x_97); +x_99 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_99, 0, x_98); +x_100 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_101 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_101, 0, x_100); +lean_ctor_set(x_101, 1, x_99); +x_102 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_103 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_103, 0, x_101); +lean_ctor_set(x_103, 1, x_102); +x_104 = lean_box(0); +x_105 = l_Lean_Meta_throwOther___rarg(x_103, x_104, x_8, x_74); +lean_dec(x_8); +x_106 = !lean_is_exclusive(x_105); if (x_106 == 0) { -return x_66; +return x_105; } else { lean_object* x_107; lean_object* x_108; lean_object* x_109; -x_107 = lean_ctor_get(x_66, 0); -x_108 = lean_ctor_get(x_66, 1); +x_107 = lean_ctor_get(x_105, 0); +x_108 = lean_ctor_get(x_105, 1); lean_inc(x_108); lean_inc(x_107); -lean_dec(x_66); +lean_dec(x_105); x_109 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_109, 0, x_107); lean_ctor_set(x_109, 1, x_108); return x_109; } } +block_95: +{ +lean_object* x_81; +lean_inc(x_8); +x_81 = l_Lean_Meta_inferType(x_75, x_8, x_80); +if (lean_obj_tag(x_81) == 0) +{ +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; uint8_t x_89; lean_object* x_90; +x_82 = lean_ctor_get(x_81, 0); +lean_inc(x_82); +x_83 = lean_ctor_get(x_81, 1); +lean_inc(x_83); +lean_dec(x_81); +x_84 = l_Lean_Expr_getAppNumArgsAux___main(x_82, x_67); +x_85 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_84); +x_86 = lean_mk_array(x_84, x_85); +x_87 = lean_unsigned_to_nat(1u); +x_88 = lean_nat_sub(x_84, x_87); +lean_dec(x_84); +x_89 = lean_unbox(x_77); +lean_dec(x_77); +x_90 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_68, x_76, x_89, x_78, x_82, x_86, x_88, x_8, x_83); +return x_90; } else { -uint8_t x_110; -lean_dec(x_63); +uint8_t x_91; +lean_dec(x_78); +lean_dec(x_77); +lean_dec(x_76); +lean_dec(x_68); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_110 = !lean_is_exclusive(x_64); -if (x_110 == 0) +x_91 = !lean_is_exclusive(x_81); +if (x_91 == 0) { -return x_64; +return x_81; } else { -lean_object* x_111; lean_object* x_112; lean_object* x_113; -x_111 = lean_ctor_get(x_64, 0); -x_112 = lean_ctor_get(x_64, 1); -lean_inc(x_112); -lean_inc(x_111); -lean_dec(x_64); -x_113 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_113, 0, x_111); -lean_ctor_set(x_113, 1, x_112); -return x_113; +lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_92 = lean_ctor_get(x_81, 0); +x_93 = lean_ctor_get(x_81, 1); +lean_inc(x_93); +lean_inc(x_92); +lean_dec(x_81); +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_92); +lean_ctor_set(x_94, 1, x_93); +return x_94; +} +} +} +} +} +else +{ +uint8_t x_116; +lean_dec(x_68); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_116 = !lean_is_exclusive(x_71); +if (x_116 == 0) +{ +return x_71; +} +else +{ +lean_object* x_117; lean_object* x_118; lean_object* x_119; +x_117 = lean_ctor_get(x_71, 0); +x_118 = lean_ctor_get(x_71, 1); +lean_inc(x_118); +lean_inc(x_117); +lean_dec(x_71); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_117); +lean_ctor_set(x_119, 1, x_118); +return x_119; +} +} +} +else +{ +uint8_t x_120; +lean_dec(x_68); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_120 = !lean_is_exclusive(x_69); +if (x_120 == 0) +{ +return x_69; +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_121 = lean_ctor_get(x_69, 0); +x_122 = lean_ctor_get(x_69, 1); +lean_inc(x_122); +lean_inc(x_121); +lean_dec(x_69); +x_123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_123, 0, x_121); +lean_ctor_set(x_123, 1, x_122); +return x_123; } } } case 2: { -lean_object* x_114; lean_object* x_115; lean_object* x_116; +lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_dec(x_7); -x_114 = lean_unsigned_to_nat(0u); -x_115 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_114); +x_124 = lean_unsigned_to_nat(0u); +x_125 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_124); lean_inc(x_2); -x_116 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_116) == 0) +x_126 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_126) == 0) { -lean_object* x_117; lean_object* x_118; -x_117 = lean_ctor_get(x_116, 1); -lean_inc(x_117); -lean_dec(x_116); +lean_object* x_127; lean_object* x_128; +x_127 = lean_ctor_get(x_126, 1); +lean_inc(x_127); +lean_dec(x_126); lean_inc(x_2); -x_118 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_117); -if (lean_obj_tag(x_118) == 0) +x_128 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_127); +if (lean_obj_tag(x_128) == 0) { -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; uint8_t x_153; -x_119 = lean_ctor_get(x_118, 0); -lean_inc(x_119); -x_120 = lean_ctor_get(x_119, 1); -lean_inc(x_120); -x_121 = lean_ctor_get(x_118, 1); -lean_inc(x_121); -if (lean_is_exclusive(x_118)) { - lean_ctor_release(x_118, 0); - lean_ctor_release(x_118, 1); - x_122 = x_118; -} else { - lean_dec_ref(x_118); - x_122 = lean_box(0); +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; uint8_t x_168; +x_129 = lean_ctor_get(x_128, 0); +lean_inc(x_129); +x_130 = lean_ctor_get(x_129, 1); +lean_inc(x_130); +x_131 = lean_ctor_get(x_128, 1); +lean_inc(x_131); +lean_dec(x_128); +x_132 = lean_ctor_get(x_129, 0); +lean_inc(x_132); +lean_dec(x_129); +x_133 = lean_ctor_get(x_130, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_130, 1); +lean_inc(x_134); +lean_dec(x_130); +x_168 = lean_unbox(x_134); +if (x_168 == 0) +{ +lean_object* x_169; +x_169 = lean_array_get_size(x_6); +x_135 = x_169; +goto block_167; } -x_123 = lean_ctor_get(x_119, 0); -lean_inc(x_123); -lean_dec(x_119); -x_124 = lean_ctor_get(x_120, 0); -lean_inc(x_124); -x_125 = lean_ctor_get(x_120, 1); -lean_inc(x_125); -lean_dec(x_120); -x_153 = lean_unbox(x_125); -if (x_153 == 0) +else { -lean_object* x_154; -x_154 = lean_array_get_size(x_6); -x_126 = x_154; +lean_object* x_170; lean_object* x_171; lean_object* x_172; +x_170 = lean_array_get_size(x_6); +x_171 = lean_unsigned_to_nat(1u); +x_172 = lean_nat_sub(x_170, x_171); +lean_dec(x_170); +x_135 = x_172; +goto block_167; +} +block_167: +{ +uint8_t x_136; lean_object* x_137; +x_136 = lean_nat_dec_lt(x_133, x_135); +if (x_136 == 0) +{ +x_137 = x_131; goto block_152; } else { -lean_object* x_155; lean_object* x_156; lean_object* x_157; -x_155 = lean_array_get_size(x_6); -x_156 = lean_unsigned_to_nat(1u); -x_157 = lean_nat_sub(x_155, x_156); -lean_dec(x_155); -x_126 = x_157; -goto block_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; uint8_t x_163; +lean_dec(x_135); +lean_dec(x_134); +lean_dec(x_133); +lean_dec(x_132); +lean_dec(x_125); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_153 = l_Lean_Name_toString___closed__1; +x_154 = l_Lean_Name_toStringWithSep___main(x_153, x_2); +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); +x_157 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_158 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_158, 0, x_157); +lean_ctor_set(x_158, 1, x_156); +x_159 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_160 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_160, 0, x_158); +lean_ctor_set(x_160, 1, x_159); +x_161 = lean_box(0); +x_162 = l_Lean_Meta_throwOther___rarg(x_160, x_161, x_8, x_131); +lean_dec(x_8); +x_163 = !lean_is_exclusive(x_162); +if (x_163 == 0) +{ +return x_162; +} +else +{ +lean_object* x_164; lean_object* x_165; lean_object* x_166; +x_164 = lean_ctor_get(x_162, 0); +x_165 = lean_ctor_get(x_162, 1); +lean_inc(x_165); +lean_inc(x_164); +lean_dec(x_162); +x_166 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_166, 0, x_164); +lean_ctor_set(x_166, 1, x_165); +return x_166; +} } block_152: { -uint8_t x_127; -x_127 = lean_nat_dec_lt(x_124, x_126); -if (x_127 == 0) -{ -lean_object* x_128; -lean_dec(x_122); +lean_object* x_138; lean_inc(x_8); -x_128 = l_Lean_Meta_inferType(x_123, x_8, x_121); -if (lean_obj_tag(x_128) == 0) +x_138 = l_Lean_Meta_inferType(x_132, x_8, x_137); +if (lean_obj_tag(x_138) == 0) { -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; uint8_t x_136; lean_object* x_137; -x_129 = lean_ctor_get(x_128, 0); -lean_inc(x_129); -x_130 = lean_ctor_get(x_128, 1); -lean_inc(x_130); -lean_dec(x_128); -x_131 = l_Lean_Expr_getAppNumArgsAux___main(x_129, x_114); -x_132 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_131); -x_133 = lean_mk_array(x_131, x_132); -x_134 = lean_unsigned_to_nat(1u); -x_135 = lean_nat_sub(x_131, x_134); -lean_dec(x_131); -x_136 = lean_unbox(x_125); -lean_dec(x_125); -x_137 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_115, x_124, x_136, x_126, x_129, x_133, x_135, x_8, x_130); -return x_137; +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; uint8_t x_146; lean_object* x_147; +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_Expr_getAppNumArgsAux___main(x_139, x_124); +x_142 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_141); +x_143 = lean_mk_array(x_141, x_142); +x_144 = lean_unsigned_to_nat(1u); +x_145 = lean_nat_sub(x_141, x_144); +lean_dec(x_141); +x_146 = lean_unbox(x_134); +lean_dec(x_134); +x_147 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_125, x_133, x_146, x_135, x_139, x_143, x_145, x_8, x_140); +return x_147; } else { -uint8_t x_138; -lean_dec(x_126); +uint8_t x_148; +lean_dec(x_135); +lean_dec(x_134); +lean_dec(x_133); lean_dec(x_125); -lean_dec(x_124); -lean_dec(x_115); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_138 = !lean_is_exclusive(x_128); -if (x_138 == 0) +x_148 = !lean_is_exclusive(x_138); +if (x_148 == 0) +{ +return x_138; +} +else +{ +lean_object* x_149; lean_object* x_150; lean_object* x_151; +x_149 = lean_ctor_get(x_138, 0); +x_150 = lean_ctor_get(x_138, 1); +lean_inc(x_150); +lean_inc(x_149); +lean_dec(x_138); +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 +{ +uint8_t x_173; +lean_dec(x_125); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_173 = !lean_is_exclusive(x_128); +if (x_173 == 0) { return x_128; } else { -lean_object* x_139; lean_object* x_140; lean_object* x_141; -x_139 = lean_ctor_get(x_128, 0); -x_140 = lean_ctor_get(x_128, 1); -lean_inc(x_140); -lean_inc(x_139); +lean_object* x_174; lean_object* x_175; lean_object* x_176; +x_174 = lean_ctor_get(x_128, 0); +x_175 = lean_ctor_get(x_128, 1); +lean_inc(x_175); +lean_inc(x_174); lean_dec(x_128); -x_141 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_141, 0, x_139); -lean_ctor_set(x_141, 1, x_140); -return x_141; +x_176 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_176, 0, x_174); +lean_ctor_set(x_176, 1, x_175); +return x_176; } } } else { -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_dec(x_126); +uint8_t x_177; lean_dec(x_125); -lean_dec(x_124); -lean_dec(x_123); -lean_dec(x_115); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_142 = l_Lean_Name_toString___closed__1; -x_143 = l_Lean_Name_toStringWithSep___main(x_142, x_2); -x_144 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_144, 0, x_143); -x_145 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_145, 0, x_144); -x_146 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_147 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_147, 0, x_146); -lean_ctor_set(x_147, 1, x_145); -x_148 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_149 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_149, 0, x_147); -lean_ctor_set(x_149, 1, x_148); -x_150 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_150, 0, x_149); -if (lean_is_scalar(x_122)) { - x_151 = lean_alloc_ctor(1, 2, 0); -} else { - x_151 = x_122; - lean_ctor_set_tag(x_151, 1); -} -lean_ctor_set(x_151, 0, x_150); -lean_ctor_set(x_151, 1, x_121); -return x_151; -} -} -} -else -{ -uint8_t x_158; -lean_dec(x_115); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_158 = !lean_is_exclusive(x_118); -if (x_158 == 0) +x_177 = !lean_is_exclusive(x_126); +if (x_177 == 0) { -return x_118; +return x_126; } else { -lean_object* x_159; lean_object* x_160; lean_object* x_161; -x_159 = lean_ctor_get(x_118, 0); -x_160 = lean_ctor_get(x_118, 1); -lean_inc(x_160); -lean_inc(x_159); -lean_dec(x_118); -x_161 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_161, 0, x_159); -lean_ctor_set(x_161, 1, x_160); -return x_161; -} -} -} -else -{ -uint8_t x_162; -lean_dec(x_115); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_162 = !lean_is_exclusive(x_116); -if (x_162 == 0) -{ -return x_116; -} -else -{ -lean_object* x_163; lean_object* x_164; lean_object* x_165; -x_163 = lean_ctor_get(x_116, 0); -x_164 = lean_ctor_get(x_116, 1); -lean_inc(x_164); -lean_inc(x_163); -lean_dec(x_116); -x_165 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_165, 0, x_163); -lean_ctor_set(x_165, 1, x_164); -return x_165; +lean_object* x_178; lean_object* x_179; lean_object* x_180; +x_178 = lean_ctor_get(x_126, 0); +x_179 = lean_ctor_get(x_126, 1); +lean_inc(x_179); +lean_inc(x_178); +lean_dec(x_126); +x_180 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_180, 0, x_178); +lean_ctor_set(x_180, 1, x_179); +return x_180; } } } case 3: { -lean_object* x_166; lean_object* x_167; lean_object* x_168; +lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_dec(x_7); -x_166 = lean_unsigned_to_nat(0u); -x_167 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_166); +x_181 = lean_unsigned_to_nat(0u); +x_182 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_181); lean_inc(x_2); -x_168 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_168) == 0) +x_183 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_183) == 0) { -lean_object* x_169; lean_object* x_170; -x_169 = lean_ctor_get(x_168, 1); -lean_inc(x_169); -lean_dec(x_168); -lean_inc(x_2); -x_170 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_169); -if (lean_obj_tag(x_170) == 0) -{ -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; uint8_t x_205; -x_171 = lean_ctor_get(x_170, 0); -lean_inc(x_171); -x_172 = lean_ctor_get(x_171, 1); -lean_inc(x_172); -x_173 = lean_ctor_get(x_170, 1); -lean_inc(x_173); -if (lean_is_exclusive(x_170)) { - lean_ctor_release(x_170, 0); - lean_ctor_release(x_170, 1); - x_174 = x_170; -} else { - lean_dec_ref(x_170); - x_174 = lean_box(0); -} -x_175 = lean_ctor_get(x_171, 0); -lean_inc(x_175); -lean_dec(x_171); -x_176 = lean_ctor_get(x_172, 0); -lean_inc(x_176); -x_177 = lean_ctor_get(x_172, 1); -lean_inc(x_177); -lean_dec(x_172); -x_205 = lean_unbox(x_177); -if (x_205 == 0) -{ -lean_object* x_206; -x_206 = lean_array_get_size(x_6); -x_178 = x_206; -goto block_204; -} -else -{ -lean_object* x_207; lean_object* x_208; lean_object* x_209; -x_207 = lean_array_get_size(x_6); -x_208 = lean_unsigned_to_nat(1u); -x_209 = lean_nat_sub(x_207, x_208); -lean_dec(x_207); -x_178 = x_209; -goto block_204; -} -block_204: -{ -uint8_t x_179; -x_179 = lean_nat_dec_lt(x_176, x_178); -if (x_179 == 0) -{ -lean_object* x_180; -lean_dec(x_174); -lean_inc(x_8); -x_180 = l_Lean_Meta_inferType(x_175, x_8, x_173); -if (lean_obj_tag(x_180) == 0) -{ -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; uint8_t x_188; lean_object* x_189; -x_181 = lean_ctor_get(x_180, 0); -lean_inc(x_181); -x_182 = lean_ctor_get(x_180, 1); -lean_inc(x_182); -lean_dec(x_180); -x_183 = l_Lean_Expr_getAppNumArgsAux___main(x_181, x_166); -x_184 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_183); -x_185 = lean_mk_array(x_183, x_184); -x_186 = lean_unsigned_to_nat(1u); -x_187 = lean_nat_sub(x_183, x_186); +lean_object* x_184; lean_object* x_185; +x_184 = lean_ctor_get(x_183, 1); +lean_inc(x_184); lean_dec(x_183); -x_188 = lean_unbox(x_177); -lean_dec(x_177); -x_189 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_167, x_176, x_188, x_178, x_181, x_185, x_187, x_8, x_182); -return x_189; -} -else +lean_inc(x_2); +x_185 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_184); +if (lean_obj_tag(x_185) == 0) { -uint8_t x_190; -lean_dec(x_178); -lean_dec(x_177); -lean_dec(x_176); -lean_dec(x_167); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_190 = !lean_is_exclusive(x_180); -if (x_190 == 0) -{ -return x_180; -} -else -{ -lean_object* x_191; lean_object* x_192; lean_object* x_193; -x_191 = lean_ctor_get(x_180, 0); -x_192 = lean_ctor_get(x_180, 1); -lean_inc(x_192); +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; uint8_t x_225; +x_186 = lean_ctor_get(x_185, 0); +lean_inc(x_186); +x_187 = lean_ctor_get(x_186, 1); +lean_inc(x_187); +x_188 = lean_ctor_get(x_185, 1); +lean_inc(x_188); +lean_dec(x_185); +x_189 = lean_ctor_get(x_186, 0); +lean_inc(x_189); +lean_dec(x_186); +x_190 = lean_ctor_get(x_187, 0); +lean_inc(x_190); +x_191 = lean_ctor_get(x_187, 1); lean_inc(x_191); -lean_dec(x_180); -x_193 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_193, 0, x_191); -lean_ctor_set(x_193, 1, x_192); -return x_193; -} -} +lean_dec(x_187); +x_225 = lean_unbox(x_191); +if (x_225 == 0) +{ +lean_object* x_226; +x_226 = lean_array_get_size(x_6); +x_192 = x_226; +goto block_224; } else { -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_dec(x_178); -lean_dec(x_177); -lean_dec(x_176); -lean_dec(x_175); -lean_dec(x_167); -lean_dec(x_8); +lean_object* x_227; lean_object* x_228; lean_object* x_229; +x_227 = lean_array_get_size(x_6); +x_228 = lean_unsigned_to_nat(1u); +x_229 = lean_nat_sub(x_227, x_228); +lean_dec(x_227); +x_192 = x_229; +goto block_224; +} +block_224: +{ +uint8_t x_193; lean_object* x_194; +x_193 = lean_nat_dec_lt(x_190, x_192); +if (x_193 == 0) +{ +x_194 = x_188; +goto block_209; +} +else +{ +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; uint8_t x_220; +lean_dec(x_192); +lean_dec(x_191); +lean_dec(x_190); +lean_dec(x_189); +lean_dec(x_182); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_1); -x_194 = l_Lean_Name_toString___closed__1; -x_195 = l_Lean_Name_toStringWithSep___main(x_194, x_2); -x_196 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_196, 0, x_195); -x_197 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_197, 0, x_196); -x_198 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_199 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_199, 0, x_198); -lean_ctor_set(x_199, 1, x_197); -x_200 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_201 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_201, 0, x_199); -lean_ctor_set(x_201, 1, x_200); -x_202 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_202, 0, x_201); -if (lean_is_scalar(x_174)) { - x_203 = lean_alloc_ctor(1, 2, 0); -} else { - x_203 = x_174; - lean_ctor_set_tag(x_203, 1); -} -lean_ctor_set(x_203, 0, x_202); -lean_ctor_set(x_203, 1, x_173); -return x_203; -} -} -} -else -{ -uint8_t x_210; -lean_dec(x_167); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_210 = !lean_is_exclusive(x_170); -if (x_210 == 0) -{ -return x_170; -} -else -{ -lean_object* x_211; lean_object* x_212; lean_object* x_213; -x_211 = lean_ctor_get(x_170, 0); -x_212 = lean_ctor_get(x_170, 1); -lean_inc(x_212); -lean_inc(x_211); -lean_dec(x_170); -x_213 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_213, 0, x_211); -lean_ctor_set(x_213, 1, x_212); -return x_213; -} -} -} -else -{ -uint8_t x_214; -lean_dec(x_167); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_214 = !lean_is_exclusive(x_168); -if (x_214 == 0) -{ -return x_168; -} -else -{ -lean_object* x_215; lean_object* x_216; lean_object* x_217; -x_215 = lean_ctor_get(x_168, 0); -x_216 = lean_ctor_get(x_168, 1); -lean_inc(x_216); -lean_inc(x_215); -lean_dec(x_168); -x_217 = lean_alloc_ctor(1, 2, 0); +x_210 = l_Lean_Name_toString___closed__1; +x_211 = l_Lean_Name_toStringWithSep___main(x_210, x_2); +x_212 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_212, 0, x_211); +x_213 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_213, 0, x_212); +x_214 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_215 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_215, 0, x_214); +lean_ctor_set(x_215, 1, x_213); +x_216 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_217 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_217, 0, x_215); lean_ctor_set(x_217, 1, x_216); -return x_217; +x_218 = lean_box(0); +x_219 = l_Lean_Meta_throwOther___rarg(x_217, x_218, x_8, x_188); +lean_dec(x_8); +x_220 = !lean_is_exclusive(x_219); +if (x_220 == 0) +{ +return x_219; +} +else +{ +lean_object* x_221; lean_object* x_222; lean_object* x_223; +x_221 = lean_ctor_get(x_219, 0); +x_222 = lean_ctor_get(x_219, 1); +lean_inc(x_222); +lean_inc(x_221); +lean_dec(x_219); +x_223 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_223, 0, x_221); +lean_ctor_set(x_223, 1, x_222); +return x_223; +} +} +block_209: +{ +lean_object* x_195; +lean_inc(x_8); +x_195 = l_Lean_Meta_inferType(x_189, x_8, x_194); +if (lean_obj_tag(x_195) == 0) +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; uint8_t x_203; lean_object* x_204; +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_198 = l_Lean_Expr_getAppNumArgsAux___main(x_196, x_181); +x_199 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_198); +x_200 = lean_mk_array(x_198, x_199); +x_201 = lean_unsigned_to_nat(1u); +x_202 = lean_nat_sub(x_198, x_201); +lean_dec(x_198); +x_203 = lean_unbox(x_191); +lean_dec(x_191); +x_204 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_182, x_190, x_203, x_192, x_196, x_200, x_202, x_8, x_197); +return x_204; +} +else +{ +uint8_t x_205; +lean_dec(x_192); +lean_dec(x_191); +lean_dec(x_190); +lean_dec(x_182); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_205 = !lean_is_exclusive(x_195); +if (x_205 == 0) +{ +return x_195; +} +else +{ +lean_object* x_206; lean_object* x_207; lean_object* x_208; +x_206 = lean_ctor_get(x_195, 0); +x_207 = lean_ctor_get(x_195, 1); +lean_inc(x_207); +lean_inc(x_206); +lean_dec(x_195); +x_208 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_208, 0, x_206); +lean_ctor_set(x_208, 1, x_207); +return x_208; +} +} +} +} +} +else +{ +uint8_t x_230; +lean_dec(x_182); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_230 = !lean_is_exclusive(x_185); +if (x_230 == 0) +{ +return x_185; +} +else +{ +lean_object* x_231; lean_object* x_232; lean_object* x_233; +x_231 = lean_ctor_get(x_185, 0); +x_232 = lean_ctor_get(x_185, 1); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_185); +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_182); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_234 = !lean_is_exclusive(x_183); +if (x_234 == 0) +{ +return x_183; +} +else +{ +lean_object* x_235; lean_object* x_236; lean_object* x_237; +x_235 = lean_ctor_get(x_183, 0); +x_236 = lean_ctor_get(x_183, 1); +lean_inc(x_236); +lean_inc(x_235); +lean_dec(x_183); +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; } } } case 4: { -lean_object* x_218; lean_object* x_219; lean_object* x_220; +lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_dec(x_7); -x_218 = lean_unsigned_to_nat(0u); -x_219 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_218); +x_238 = lean_unsigned_to_nat(0u); +x_239 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_238); lean_inc(x_2); -x_220 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_220) == 0) +x_240 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_240) == 0) { -lean_object* x_221; lean_object* x_222; -x_221 = lean_ctor_get(x_220, 1); -lean_inc(x_221); -lean_dec(x_220); +lean_object* x_241; lean_object* x_242; +x_241 = lean_ctor_get(x_240, 1); +lean_inc(x_241); +lean_dec(x_240); lean_inc(x_2); -x_222 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_221); -if (lean_obj_tag(x_222) == 0) +x_242 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_241); +if (lean_obj_tag(x_242) == 0) { -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; uint8_t x_257; -x_223 = lean_ctor_get(x_222, 0); -lean_inc(x_223); -x_224 = lean_ctor_get(x_223, 1); -lean_inc(x_224); -x_225 = lean_ctor_get(x_222, 1); -lean_inc(x_225); -if (lean_is_exclusive(x_222)) { - lean_ctor_release(x_222, 0); - lean_ctor_release(x_222, 1); - x_226 = x_222; -} else { - lean_dec_ref(x_222); - x_226 = lean_box(0); -} -x_227 = lean_ctor_get(x_223, 0); -lean_inc(x_227); -lean_dec(x_223); -x_228 = lean_ctor_get(x_224, 0); -lean_inc(x_228); -x_229 = lean_ctor_get(x_224, 1); -lean_inc(x_229); -lean_dec(x_224); -x_257 = lean_unbox(x_229); -if (x_257 == 0) -{ -lean_object* x_258; -x_258 = lean_array_get_size(x_6); -x_230 = x_258; -goto block_256; -} -else -{ -lean_object* x_259; lean_object* x_260; lean_object* x_261; -x_259 = lean_array_get_size(x_6); -x_260 = lean_unsigned_to_nat(1u); -x_261 = lean_nat_sub(x_259, x_260); -lean_dec(x_259); -x_230 = x_261; -goto block_256; -} -block_256: -{ -uint8_t x_231; -x_231 = lean_nat_dec_lt(x_228, x_230); -if (x_231 == 0) -{ -lean_object* x_232; -lean_dec(x_226); -lean_inc(x_8); -x_232 = l_Lean_Meta_inferType(x_227, x_8, x_225); -if (lean_obj_tag(x_232) == 0) -{ -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; uint8_t x_240; lean_object* x_241; -x_233 = lean_ctor_get(x_232, 0); -lean_inc(x_233); -x_234 = lean_ctor_get(x_232, 1); -lean_inc(x_234); -lean_dec(x_232); -x_235 = l_Lean_Expr_getAppNumArgsAux___main(x_233, x_218); -x_236 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_235); -x_237 = lean_mk_array(x_235, x_236); -x_238 = lean_unsigned_to_nat(1u); -x_239 = lean_nat_sub(x_235, x_238); -lean_dec(x_235); -x_240 = lean_unbox(x_229); -lean_dec(x_229); -x_241 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_219, x_228, x_240, x_230, x_233, x_237, x_239, x_8, x_234); -return x_241; -} -else -{ -uint8_t x_242; -lean_dec(x_230); -lean_dec(x_229); -lean_dec(x_228); -lean_dec(x_219); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_242 = !lean_is_exclusive(x_232); -if (x_242 == 0) -{ -return x_232; -} -else -{ -lean_object* x_243; lean_object* x_244; lean_object* x_245; -x_243 = lean_ctor_get(x_232, 0); -x_244 = lean_ctor_get(x_232, 1); -lean_inc(x_244); +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; uint8_t x_282; +x_243 = lean_ctor_get(x_242, 0); lean_inc(x_243); -lean_dec(x_232); -x_245 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_245, 0, x_243); -lean_ctor_set(x_245, 1, x_244); -return x_245; -} -} +x_244 = lean_ctor_get(x_243, 1); +lean_inc(x_244); +x_245 = lean_ctor_get(x_242, 1); +lean_inc(x_245); +lean_dec(x_242); +x_246 = lean_ctor_get(x_243, 0); +lean_inc(x_246); +lean_dec(x_243); +x_247 = lean_ctor_get(x_244, 0); +lean_inc(x_247); +x_248 = lean_ctor_get(x_244, 1); +lean_inc(x_248); +lean_dec(x_244); +x_282 = lean_unbox(x_248); +if (x_282 == 0) +{ +lean_object* x_283; +x_283 = lean_array_get_size(x_6); +x_249 = x_283; +goto block_281; } else { -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_dec(x_230); -lean_dec(x_229); -lean_dec(x_228); -lean_dec(x_227); -lean_dec(x_219); -lean_dec(x_8); +lean_object* x_284; lean_object* x_285; lean_object* x_286; +x_284 = lean_array_get_size(x_6); +x_285 = lean_unsigned_to_nat(1u); +x_286 = lean_nat_sub(x_284, x_285); +lean_dec(x_284); +x_249 = x_286; +goto block_281; +} +block_281: +{ +uint8_t x_250; lean_object* x_251; +x_250 = lean_nat_dec_lt(x_247, x_249); +if (x_250 == 0) +{ +x_251 = x_245; +goto block_266; +} +else +{ +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; uint8_t x_277; +lean_dec(x_249); +lean_dec(x_248); +lean_dec(x_247); +lean_dec(x_246); +lean_dec(x_239); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_1); -x_246 = l_Lean_Name_toString___closed__1; -x_247 = l_Lean_Name_toStringWithSep___main(x_246, x_2); -x_248 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_248, 0, x_247); -x_249 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_249, 0, x_248); -x_250 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_251 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_251, 0, x_250); -lean_ctor_set(x_251, 1, x_249); -x_252 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_253 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_253, 0, x_251); -lean_ctor_set(x_253, 1, x_252); -x_254 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_254, 0, x_253); -if (lean_is_scalar(x_226)) { - x_255 = lean_alloc_ctor(1, 2, 0); -} else { - x_255 = x_226; - lean_ctor_set_tag(x_255, 1); +x_267 = l_Lean_Name_toString___closed__1; +x_268 = l_Lean_Name_toStringWithSep___main(x_267, x_2); +x_269 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_269, 0, x_268); +x_270 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_270, 0, x_269); +x_271 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_272 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_272, 0, x_271); +lean_ctor_set(x_272, 1, x_270); +x_273 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_274 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_274, 0, x_272); +lean_ctor_set(x_274, 1, x_273); +x_275 = lean_box(0); +x_276 = l_Lean_Meta_throwOther___rarg(x_274, x_275, x_8, x_245); +lean_dec(x_8); +x_277 = !lean_is_exclusive(x_276); +if (x_277 == 0) +{ +return x_276; } -lean_ctor_set(x_255, 0, x_254); -lean_ctor_set(x_255, 1, x_225); -return x_255; +else +{ +lean_object* x_278; lean_object* x_279; lean_object* x_280; +x_278 = lean_ctor_get(x_276, 0); +x_279 = lean_ctor_get(x_276, 1); +lean_inc(x_279); +lean_inc(x_278); +lean_dec(x_276); +x_280 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_280, 0, x_278); +lean_ctor_set(x_280, 1, x_279); +return x_280; } } +block_266: +{ +lean_object* x_252; +lean_inc(x_8); +x_252 = l_Lean_Meta_inferType(x_246, x_8, x_251); +if (lean_obj_tag(x_252) == 0) +{ +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; uint8_t x_260; lean_object* x_261; +x_253 = lean_ctor_get(x_252, 0); +lean_inc(x_253); +x_254 = lean_ctor_get(x_252, 1); +lean_inc(x_254); +lean_dec(x_252); +x_255 = l_Lean_Expr_getAppNumArgsAux___main(x_253, x_238); +x_256 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_255); +x_257 = lean_mk_array(x_255, x_256); +x_258 = lean_unsigned_to_nat(1u); +x_259 = lean_nat_sub(x_255, x_258); +lean_dec(x_255); +x_260 = lean_unbox(x_248); +lean_dec(x_248); +x_261 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_239, x_247, x_260, x_249, x_253, x_257, x_259, x_8, x_254); +return x_261; } else { uint8_t x_262; -lean_dec(x_219); +lean_dec(x_249); +lean_dec(x_248); +lean_dec(x_247); +lean_dec(x_239); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_262 = !lean_is_exclusive(x_222); +x_262 = !lean_is_exclusive(x_252); if (x_262 == 0) { -return x_222; +return x_252; } else { lean_object* x_263; lean_object* x_264; lean_object* x_265; -x_263 = lean_ctor_get(x_222, 0); -x_264 = lean_ctor_get(x_222, 1); +x_263 = lean_ctor_get(x_252, 0); +x_264 = lean_ctor_get(x_252, 1); lean_inc(x_264); lean_inc(x_263); -lean_dec(x_222); +lean_dec(x_252); x_265 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_265, 0, x_263); lean_ctor_set(x_265, 1, x_264); @@ -6949,1611 +6846,1685 @@ return x_265; } } } +} +} else { -uint8_t x_266; -lean_dec(x_219); +uint8_t x_287; +lean_dec(x_239); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_266 = !lean_is_exclusive(x_220); -if (x_266 == 0) +x_287 = !lean_is_exclusive(x_242); +if (x_287 == 0) { -return x_220; +return x_242; } else { -lean_object* x_267; lean_object* x_268; lean_object* x_269; -x_267 = lean_ctor_get(x_220, 0); -x_268 = lean_ctor_get(x_220, 1); -lean_inc(x_268); -lean_inc(x_267); -lean_dec(x_220); -x_269 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_269, 0, x_267); -lean_ctor_set(x_269, 1, x_268); -return x_269; +lean_object* x_288; lean_object* x_289; lean_object* x_290; +x_288 = lean_ctor_get(x_242, 0); +x_289 = lean_ctor_get(x_242, 1); +lean_inc(x_289); +lean_inc(x_288); +lean_dec(x_242); +x_290 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_290, 0, x_288); +lean_ctor_set(x_290, 1, x_289); +return x_290; +} +} +} +else +{ +uint8_t x_291; +lean_dec(x_239); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_291 = !lean_is_exclusive(x_240); +if (x_291 == 0) +{ +return x_240; +} +else +{ +lean_object* x_292; lean_object* x_293; lean_object* x_294; +x_292 = lean_ctor_get(x_240, 0); +x_293 = lean_ctor_get(x_240, 1); +lean_inc(x_293); +lean_inc(x_292); +lean_dec(x_240); +x_294 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_294, 0, x_292); +lean_ctor_set(x_294, 1, x_293); +return x_294; } } } case 5: { -lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; -x_270 = lean_ctor_get(x_5, 0); -lean_inc(x_270); -x_271 = lean_ctor_get(x_5, 1); -lean_inc(x_271); +lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; +x_295 = lean_ctor_get(x_5, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_5, 1); +lean_inc(x_296); lean_dec(x_5); -x_272 = lean_array_set(x_6, x_7, x_271); -x_273 = lean_unsigned_to_nat(1u); -x_274 = lean_nat_sub(x_7, x_273); +x_297 = lean_array_set(x_6, x_7, x_296); +x_298 = lean_unsigned_to_nat(1u); +x_299 = lean_nat_sub(x_7, x_298); lean_dec(x_7); -x_5 = x_270; -x_6 = x_272; -x_7 = x_274; +x_5 = x_295; +x_6 = x_297; +x_7 = x_299; goto _start; } case 6: { -lean_object* x_276; lean_object* x_277; lean_object* x_278; +lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_dec(x_7); -x_276 = lean_unsigned_to_nat(0u); -x_277 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_276); +x_301 = lean_unsigned_to_nat(0u); +x_302 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_301); lean_inc(x_2); -x_278 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_278) == 0) +x_303 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_303) == 0) { -lean_object* x_279; lean_object* x_280; -x_279 = lean_ctor_get(x_278, 1); -lean_inc(x_279); -lean_dec(x_278); +lean_object* x_304; lean_object* x_305; +x_304 = lean_ctor_get(x_303, 1); +lean_inc(x_304); +lean_dec(x_303); lean_inc(x_2); -x_280 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_279); -if (lean_obj_tag(x_280) == 0) +x_305 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_304); +if (lean_obj_tag(x_305) == 0) { -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; uint8_t x_315; -x_281 = lean_ctor_get(x_280, 0); -lean_inc(x_281); -x_282 = lean_ctor_get(x_281, 1); -lean_inc(x_282); -x_283 = lean_ctor_get(x_280, 1); -lean_inc(x_283); -if (lean_is_exclusive(x_280)) { - lean_ctor_release(x_280, 0); - lean_ctor_release(x_280, 1); - x_284 = x_280; -} else { - lean_dec_ref(x_280); - x_284 = lean_box(0); -} -x_285 = lean_ctor_get(x_281, 0); -lean_inc(x_285); -lean_dec(x_281); -x_286 = lean_ctor_get(x_282, 0); -lean_inc(x_286); -x_287 = lean_ctor_get(x_282, 1); -lean_inc(x_287); -lean_dec(x_282); -x_315 = lean_unbox(x_287); -if (x_315 == 0) +lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; uint8_t x_345; +x_306 = lean_ctor_get(x_305, 0); +lean_inc(x_306); +x_307 = lean_ctor_get(x_306, 1); +lean_inc(x_307); +x_308 = lean_ctor_get(x_305, 1); +lean_inc(x_308); +lean_dec(x_305); +x_309 = lean_ctor_get(x_306, 0); +lean_inc(x_309); +lean_dec(x_306); +x_310 = lean_ctor_get(x_307, 0); +lean_inc(x_310); +x_311 = lean_ctor_get(x_307, 1); +lean_inc(x_311); +lean_dec(x_307); +x_345 = lean_unbox(x_311); +if (x_345 == 0) { -lean_object* x_316; -x_316 = lean_array_get_size(x_6); -x_288 = x_316; -goto block_314; +lean_object* x_346; +x_346 = lean_array_get_size(x_6); +x_312 = x_346; +goto block_344; } else { -lean_object* x_317; lean_object* x_318; lean_object* x_319; -x_317 = lean_array_get_size(x_6); -x_318 = lean_unsigned_to_nat(1u); -x_319 = lean_nat_sub(x_317, x_318); -lean_dec(x_317); -x_288 = x_319; -goto block_314; +lean_object* x_347; lean_object* x_348; lean_object* x_349; +x_347 = lean_array_get_size(x_6); +x_348 = lean_unsigned_to_nat(1u); +x_349 = lean_nat_sub(x_347, x_348); +lean_dec(x_347); +x_312 = x_349; +goto block_344; } -block_314: +block_344: { -uint8_t x_289; -x_289 = lean_nat_dec_lt(x_286, x_288); -if (x_289 == 0) +uint8_t x_313; lean_object* x_314; +x_313 = lean_nat_dec_lt(x_310, x_312); +if (x_313 == 0) { -lean_object* x_290; -lean_dec(x_284); +x_314 = x_308; +goto block_329; +} +else +{ +lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; uint8_t x_340; +lean_dec(x_312); +lean_dec(x_311); +lean_dec(x_310); +lean_dec(x_309); +lean_dec(x_302); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_330 = l_Lean_Name_toString___closed__1; +x_331 = l_Lean_Name_toStringWithSep___main(x_330, x_2); +x_332 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_332, 0, x_331); +x_333 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_333, 0, x_332); +x_334 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_335 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_335, 0, x_334); +lean_ctor_set(x_335, 1, x_333); +x_336 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_337 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_337, 0, x_335); +lean_ctor_set(x_337, 1, x_336); +x_338 = lean_box(0); +x_339 = l_Lean_Meta_throwOther___rarg(x_337, x_338, x_8, x_308); +lean_dec(x_8); +x_340 = !lean_is_exclusive(x_339); +if (x_340 == 0) +{ +return x_339; +} +else +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; +x_341 = lean_ctor_get(x_339, 0); +x_342 = lean_ctor_get(x_339, 1); +lean_inc(x_342); +lean_inc(x_341); +lean_dec(x_339); +x_343 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_343, 0, x_341); +lean_ctor_set(x_343, 1, x_342); +return x_343; +} +} +block_329: +{ +lean_object* x_315; lean_inc(x_8); -x_290 = l_Lean_Meta_inferType(x_285, x_8, x_283); -if (lean_obj_tag(x_290) == 0) +x_315 = l_Lean_Meta_inferType(x_309, x_8, x_314); +if (lean_obj_tag(x_315) == 0) { -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; uint8_t x_298; lean_object* x_299; -x_291 = lean_ctor_get(x_290, 0); -lean_inc(x_291); -x_292 = lean_ctor_get(x_290, 1); -lean_inc(x_292); -lean_dec(x_290); -x_293 = l_Lean_Expr_getAppNumArgsAux___main(x_291, x_276); -x_294 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_293); -x_295 = lean_mk_array(x_293, x_294); -x_296 = lean_unsigned_to_nat(1u); -x_297 = lean_nat_sub(x_293, x_296); -lean_dec(x_293); -x_298 = lean_unbox(x_287); -lean_dec(x_287); -x_299 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_277, x_286, x_298, x_288, x_291, x_295, x_297, x_8, x_292); -return x_299; +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; uint8_t x_323; lean_object* x_324; +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_Expr_getAppNumArgsAux___main(x_316, x_301); +x_319 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_318); +x_320 = lean_mk_array(x_318, x_319); +x_321 = lean_unsigned_to_nat(1u); +x_322 = lean_nat_sub(x_318, x_321); +lean_dec(x_318); +x_323 = lean_unbox(x_311); +lean_dec(x_311); +x_324 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_302, x_310, x_323, x_312, x_316, x_320, x_322, x_8, x_317); +return x_324; } else { -uint8_t x_300; -lean_dec(x_288); -lean_dec(x_287); -lean_dec(x_286); -lean_dec(x_277); +uint8_t x_325; +lean_dec(x_312); +lean_dec(x_311); +lean_dec(x_310); +lean_dec(x_302); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_300 = !lean_is_exclusive(x_290); -if (x_300 == 0) +x_325 = !lean_is_exclusive(x_315); +if (x_325 == 0) { -return x_290; +return x_315; } else { -lean_object* x_301; lean_object* x_302; lean_object* x_303; -x_301 = lean_ctor_get(x_290, 0); -x_302 = lean_ctor_get(x_290, 1); -lean_inc(x_302); -lean_inc(x_301); -lean_dec(x_290); -x_303 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_303, 0, x_301); -lean_ctor_set(x_303, 1, x_302); +lean_object* x_326; lean_object* x_327; lean_object* x_328; +x_326 = lean_ctor_get(x_315, 0); +x_327 = lean_ctor_get(x_315, 1); +lean_inc(x_327); +lean_inc(x_326); +lean_dec(x_315); +x_328 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_328, 0, x_326); +lean_ctor_set(x_328, 1, x_327); +return x_328; +} +} +} +} +} +else +{ +uint8_t x_350; +lean_dec(x_302); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_350 = !lean_is_exclusive(x_305); +if (x_350 == 0) +{ +return x_305; +} +else +{ +lean_object* x_351; lean_object* x_352; lean_object* x_353; +x_351 = lean_ctor_get(x_305, 0); +x_352 = lean_ctor_get(x_305, 1); +lean_inc(x_352); +lean_inc(x_351); +lean_dec(x_305); +x_353 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_353, 0, x_351); +lean_ctor_set(x_353, 1, x_352); +return x_353; +} +} +} +else +{ +uint8_t x_354; +lean_dec(x_302); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_354 = !lean_is_exclusive(x_303); +if (x_354 == 0) +{ return x_303; } -} -} else { -lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; -lean_dec(x_288); -lean_dec(x_287); -lean_dec(x_286); -lean_dec(x_285); -lean_dec(x_277); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_304 = l_Lean_Name_toString___closed__1; -x_305 = l_Lean_Name_toStringWithSep___main(x_304, x_2); -x_306 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_306, 0, x_305); -x_307 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_307, 0, x_306); -x_308 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_309 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_309, 0, x_308); -lean_ctor_set(x_309, 1, x_307); -x_310 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_311 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_311, 0, x_309); -lean_ctor_set(x_311, 1, x_310); -x_312 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_312, 0, x_311); -if (lean_is_scalar(x_284)) { - x_313 = lean_alloc_ctor(1, 2, 0); -} else { - x_313 = x_284; - lean_ctor_set_tag(x_313, 1); -} -lean_ctor_set(x_313, 0, x_312); -lean_ctor_set(x_313, 1, x_283); -return x_313; -} -} -} -else -{ -uint8_t x_320; -lean_dec(x_277); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_320 = !lean_is_exclusive(x_280); -if (x_320 == 0) -{ -return x_280; -} -else -{ -lean_object* x_321; lean_object* x_322; lean_object* x_323; -x_321 = lean_ctor_get(x_280, 0); -x_322 = lean_ctor_get(x_280, 1); -lean_inc(x_322); -lean_inc(x_321); -lean_dec(x_280); -x_323 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_323, 0, x_321); -lean_ctor_set(x_323, 1, x_322); -return x_323; -} -} -} -else -{ -uint8_t x_324; -lean_dec(x_277); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_324 = !lean_is_exclusive(x_278); -if (x_324 == 0) -{ -return x_278; -} -else -{ -lean_object* x_325; lean_object* x_326; lean_object* x_327; -x_325 = lean_ctor_get(x_278, 0); -x_326 = lean_ctor_get(x_278, 1); -lean_inc(x_326); -lean_inc(x_325); -lean_dec(x_278); -x_327 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_327, 0, x_325); -lean_ctor_set(x_327, 1, x_326); -return x_327; +lean_object* x_355; lean_object* x_356; lean_object* x_357; +x_355 = lean_ctor_get(x_303, 0); +x_356 = lean_ctor_get(x_303, 1); +lean_inc(x_356); +lean_inc(x_355); +lean_dec(x_303); +x_357 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_357, 0, x_355); +lean_ctor_set(x_357, 1, x_356); +return x_357; } } } case 7: { -lean_object* x_328; lean_object* x_329; lean_object* x_330; +lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_dec(x_7); -x_328 = lean_unsigned_to_nat(0u); -x_329 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_328); +x_358 = lean_unsigned_to_nat(0u); +x_359 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_358); lean_inc(x_2); -x_330 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_330) == 0) +x_360 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_360) == 0) { -lean_object* x_331; lean_object* x_332; -x_331 = lean_ctor_get(x_330, 1); -lean_inc(x_331); -lean_dec(x_330); +lean_object* x_361; lean_object* x_362; +x_361 = lean_ctor_get(x_360, 1); +lean_inc(x_361); +lean_dec(x_360); lean_inc(x_2); -x_332 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_331); -if (lean_obj_tag(x_332) == 0) +x_362 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_361); +if (lean_obj_tag(x_362) == 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; uint8_t x_367; -x_333 = lean_ctor_get(x_332, 0); -lean_inc(x_333); -x_334 = lean_ctor_get(x_333, 1); -lean_inc(x_334); -x_335 = lean_ctor_get(x_332, 1); -lean_inc(x_335); -if (lean_is_exclusive(x_332)) { - lean_ctor_release(x_332, 0); - lean_ctor_release(x_332, 1); - x_336 = x_332; -} else { - lean_dec_ref(x_332); - x_336 = lean_box(0); -} -x_337 = lean_ctor_get(x_333, 0); -lean_inc(x_337); -lean_dec(x_333); -x_338 = lean_ctor_get(x_334, 0); -lean_inc(x_338); -x_339 = lean_ctor_get(x_334, 1); -lean_inc(x_339); -lean_dec(x_334); -x_367 = lean_unbox(x_339); -if (x_367 == 0) +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; uint8_t x_402; +x_363 = lean_ctor_get(x_362, 0); +lean_inc(x_363); +x_364 = lean_ctor_get(x_363, 1); +lean_inc(x_364); +x_365 = lean_ctor_get(x_362, 1); +lean_inc(x_365); +lean_dec(x_362); +x_366 = lean_ctor_get(x_363, 0); +lean_inc(x_366); +lean_dec(x_363); +x_367 = lean_ctor_get(x_364, 0); +lean_inc(x_367); +x_368 = lean_ctor_get(x_364, 1); +lean_inc(x_368); +lean_dec(x_364); +x_402 = lean_unbox(x_368); +if (x_402 == 0) { -lean_object* x_368; -x_368 = lean_array_get_size(x_6); -x_340 = x_368; -goto block_366; +lean_object* x_403; +x_403 = lean_array_get_size(x_6); +x_369 = x_403; +goto block_401; } else { -lean_object* x_369; lean_object* x_370; lean_object* x_371; -x_369 = lean_array_get_size(x_6); -x_370 = lean_unsigned_to_nat(1u); -x_371 = lean_nat_sub(x_369, x_370); +lean_object* x_404; lean_object* x_405; lean_object* x_406; +x_404 = lean_array_get_size(x_6); +x_405 = lean_unsigned_to_nat(1u); +x_406 = lean_nat_sub(x_404, x_405); +lean_dec(x_404); +x_369 = x_406; +goto block_401; +} +block_401: +{ +uint8_t x_370; lean_object* x_371; +x_370 = lean_nat_dec_lt(x_367, x_369); +if (x_370 == 0) +{ +x_371 = x_365; +goto block_386; +} +else +{ +lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; uint8_t x_397; lean_dec(x_369); -x_340 = x_371; -goto block_366; +lean_dec(x_368); +lean_dec(x_367); +lean_dec(x_366); +lean_dec(x_359); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_387 = l_Lean_Name_toString___closed__1; +x_388 = l_Lean_Name_toStringWithSep___main(x_387, x_2); +x_389 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_389, 0, x_388); +x_390 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_390, 0, x_389); +x_391 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_392 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_392, 0, x_391); +lean_ctor_set(x_392, 1, x_390); +x_393 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_394 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_394, 0, x_392); +lean_ctor_set(x_394, 1, x_393); +x_395 = lean_box(0); +x_396 = l_Lean_Meta_throwOther___rarg(x_394, x_395, x_8, x_365); +lean_dec(x_8); +x_397 = !lean_is_exclusive(x_396); +if (x_397 == 0) +{ +return x_396; } -block_366: +else { -uint8_t x_341; -x_341 = lean_nat_dec_lt(x_338, x_340); -if (x_341 == 0) +lean_object* x_398; lean_object* x_399; lean_object* x_400; +x_398 = lean_ctor_get(x_396, 0); +x_399 = lean_ctor_get(x_396, 1); +lean_inc(x_399); +lean_inc(x_398); +lean_dec(x_396); +x_400 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_400, 0, x_398); +lean_ctor_set(x_400, 1, x_399); +return x_400; +} +} +block_386: { -lean_object* x_342; -lean_dec(x_336); +lean_object* x_372; lean_inc(x_8); -x_342 = l_Lean_Meta_inferType(x_337, x_8, x_335); -if (lean_obj_tag(x_342) == 0) +x_372 = l_Lean_Meta_inferType(x_366, x_8, x_371); +if (lean_obj_tag(x_372) == 0) { -lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; uint8_t x_350; lean_object* x_351; -x_343 = lean_ctor_get(x_342, 0); -lean_inc(x_343); -x_344 = lean_ctor_get(x_342, 1); -lean_inc(x_344); -lean_dec(x_342); -x_345 = l_Lean_Expr_getAppNumArgsAux___main(x_343, x_328); -x_346 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_345); -x_347 = lean_mk_array(x_345, x_346); -x_348 = lean_unsigned_to_nat(1u); -x_349 = lean_nat_sub(x_345, x_348); -lean_dec(x_345); -x_350 = lean_unbox(x_339); -lean_dec(x_339); -x_351 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_329, x_338, x_350, x_340, x_343, x_347, x_349, x_8, x_344); -return x_351; -} -else -{ -uint8_t x_352; -lean_dec(x_340); -lean_dec(x_339); -lean_dec(x_338); -lean_dec(x_329); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_352 = !lean_is_exclusive(x_342); -if (x_352 == 0) -{ -return x_342; -} -else -{ -lean_object* x_353; lean_object* x_354; lean_object* x_355; -x_353 = lean_ctor_get(x_342, 0); -x_354 = lean_ctor_get(x_342, 1); -lean_inc(x_354); -lean_inc(x_353); -lean_dec(x_342); -x_355 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_355, 0, x_353); -lean_ctor_set(x_355, 1, x_354); -return x_355; -} -} -} -else -{ -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_dec(x_340); -lean_dec(x_339); -lean_dec(x_338); -lean_dec(x_337); -lean_dec(x_329); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_356 = l_Lean_Name_toString___closed__1; -x_357 = l_Lean_Name_toStringWithSep___main(x_356, x_2); -x_358 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_358, 0, x_357); -x_359 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_359, 0, x_358); -x_360 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_361 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_361, 0, x_360); -lean_ctor_set(x_361, 1, x_359); -x_362 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_363 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_363, 0, x_361); -lean_ctor_set(x_363, 1, x_362); -x_364 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_364, 0, x_363); -if (lean_is_scalar(x_336)) { - x_365 = lean_alloc_ctor(1, 2, 0); -} else { - x_365 = x_336; - lean_ctor_set_tag(x_365, 1); -} -lean_ctor_set(x_365, 0, x_364); -lean_ctor_set(x_365, 1, x_335); -return x_365; -} -} -} -else -{ -uint8_t x_372; -lean_dec(x_329); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_372 = !lean_is_exclusive(x_332); -if (x_372 == 0) -{ -return x_332; -} -else -{ -lean_object* x_373; lean_object* x_374; lean_object* x_375; -x_373 = lean_ctor_get(x_332, 0); -x_374 = lean_ctor_get(x_332, 1); -lean_inc(x_374); +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; uint8_t x_380; lean_object* x_381; +x_373 = lean_ctor_get(x_372, 0); lean_inc(x_373); -lean_dec(x_332); -x_375 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_375, 0, x_373); -lean_ctor_set(x_375, 1, x_374); -return x_375; -} -} +x_374 = lean_ctor_get(x_372, 1); +lean_inc(x_374); +lean_dec(x_372); +x_375 = l_Lean_Expr_getAppNumArgsAux___main(x_373, x_358); +x_376 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_375); +x_377 = lean_mk_array(x_375, x_376); +x_378 = lean_unsigned_to_nat(1u); +x_379 = lean_nat_sub(x_375, x_378); +lean_dec(x_375); +x_380 = lean_unbox(x_368); +lean_dec(x_368); +x_381 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_359, x_367, x_380, x_369, x_373, x_377, x_379, x_8, x_374); +return x_381; } else { -uint8_t x_376; -lean_dec(x_329); +uint8_t x_382; +lean_dec(x_369); +lean_dec(x_368); +lean_dec(x_367); +lean_dec(x_359); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_376 = !lean_is_exclusive(x_330); -if (x_376 == 0) +x_382 = !lean_is_exclusive(x_372); +if (x_382 == 0) { -return x_330; +return x_372; } else { -lean_object* x_377; lean_object* x_378; lean_object* x_379; -x_377 = lean_ctor_get(x_330, 0); -x_378 = lean_ctor_get(x_330, 1); -lean_inc(x_378); -lean_inc(x_377); -lean_dec(x_330); -x_379 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_379, 0, x_377); -lean_ctor_set(x_379, 1, x_378); -return x_379; +lean_object* x_383; lean_object* x_384; lean_object* x_385; +x_383 = lean_ctor_get(x_372, 0); +x_384 = lean_ctor_get(x_372, 1); +lean_inc(x_384); +lean_inc(x_383); +lean_dec(x_372); +x_385 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_385, 0, x_383); +lean_ctor_set(x_385, 1, x_384); +return x_385; +} +} +} +} +} +else +{ +uint8_t x_407; +lean_dec(x_359); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_407 = !lean_is_exclusive(x_362); +if (x_407 == 0) +{ +return x_362; +} +else +{ +lean_object* x_408; lean_object* x_409; lean_object* x_410; +x_408 = lean_ctor_get(x_362, 0); +x_409 = lean_ctor_get(x_362, 1); +lean_inc(x_409); +lean_inc(x_408); +lean_dec(x_362); +x_410 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_410, 0, x_408); +lean_ctor_set(x_410, 1, x_409); +return x_410; +} +} +} +else +{ +uint8_t x_411; +lean_dec(x_359); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_411 = !lean_is_exclusive(x_360); +if (x_411 == 0) +{ +return x_360; +} +else +{ +lean_object* x_412; lean_object* x_413; lean_object* x_414; +x_412 = lean_ctor_get(x_360, 0); +x_413 = lean_ctor_get(x_360, 1); +lean_inc(x_413); +lean_inc(x_412); +lean_dec(x_360); +x_414 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_414, 0, x_412); +lean_ctor_set(x_414, 1, x_413); +return x_414; } } } case 8: { -lean_object* x_380; lean_object* x_381; lean_object* x_382; +lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_dec(x_7); -x_380 = lean_unsigned_to_nat(0u); -x_381 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_380); +x_415 = lean_unsigned_to_nat(0u); +x_416 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_415); lean_inc(x_2); -x_382 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_382) == 0) +x_417 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_417) == 0) { -lean_object* x_383; lean_object* x_384; -x_383 = lean_ctor_get(x_382, 1); -lean_inc(x_383); -lean_dec(x_382); +lean_object* x_418; lean_object* x_419; +x_418 = lean_ctor_get(x_417, 1); +lean_inc(x_418); +lean_dec(x_417); lean_inc(x_2); -x_384 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_383); -if (lean_obj_tag(x_384) == 0) +x_419 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_418); +if (lean_obj_tag(x_419) == 0) { -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; uint8_t x_419; -x_385 = lean_ctor_get(x_384, 0); -lean_inc(x_385); -x_386 = lean_ctor_get(x_385, 1); -lean_inc(x_386); -x_387 = lean_ctor_get(x_384, 1); -lean_inc(x_387); -if (lean_is_exclusive(x_384)) { - lean_ctor_release(x_384, 0); - lean_ctor_release(x_384, 1); - x_388 = x_384; -} else { - lean_dec_ref(x_384); - x_388 = lean_box(0); -} -x_389 = lean_ctor_get(x_385, 0); -lean_inc(x_389); -lean_dec(x_385); -x_390 = lean_ctor_get(x_386, 0); -lean_inc(x_390); -x_391 = lean_ctor_get(x_386, 1); -lean_inc(x_391); -lean_dec(x_386); -x_419 = lean_unbox(x_391); -if (x_419 == 0) -{ -lean_object* x_420; -x_420 = lean_array_get_size(x_6); -x_392 = x_420; -goto block_418; -} -else -{ -lean_object* x_421; lean_object* x_422; lean_object* x_423; -x_421 = lean_array_get_size(x_6); -x_422 = lean_unsigned_to_nat(1u); -x_423 = lean_nat_sub(x_421, x_422); +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; uint8_t x_459; +x_420 = lean_ctor_get(x_419, 0); +lean_inc(x_420); +x_421 = lean_ctor_get(x_420, 1); +lean_inc(x_421); +x_422 = lean_ctor_get(x_419, 1); +lean_inc(x_422); +lean_dec(x_419); +x_423 = lean_ctor_get(x_420, 0); +lean_inc(x_423); +lean_dec(x_420); +x_424 = lean_ctor_get(x_421, 0); +lean_inc(x_424); +x_425 = lean_ctor_get(x_421, 1); +lean_inc(x_425); lean_dec(x_421); -x_392 = x_423; -goto block_418; -} -block_418: +x_459 = lean_unbox(x_425); +if (x_459 == 0) { -uint8_t x_393; -x_393 = lean_nat_dec_lt(x_390, x_392); -if (x_393 == 0) -{ -lean_object* x_394; -lean_dec(x_388); -lean_inc(x_8); -x_394 = l_Lean_Meta_inferType(x_389, x_8, x_387); -if (lean_obj_tag(x_394) == 0) -{ -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; uint8_t x_402; lean_object* x_403; -x_395 = lean_ctor_get(x_394, 0); -lean_inc(x_395); -x_396 = lean_ctor_get(x_394, 1); -lean_inc(x_396); -lean_dec(x_394); -x_397 = l_Lean_Expr_getAppNumArgsAux___main(x_395, x_380); -x_398 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_397); -x_399 = lean_mk_array(x_397, x_398); -x_400 = lean_unsigned_to_nat(1u); -x_401 = lean_nat_sub(x_397, x_400); -lean_dec(x_397); -x_402 = lean_unbox(x_391); -lean_dec(x_391); -x_403 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_381, x_390, x_402, x_392, x_395, x_399, x_401, x_8, x_396); -return x_403; +lean_object* x_460; +x_460 = lean_array_get_size(x_6); +x_426 = x_460; +goto block_458; } else { -uint8_t x_404; -lean_dec(x_392); -lean_dec(x_391); -lean_dec(x_390); -lean_dec(x_381); +lean_object* x_461; lean_object* x_462; lean_object* x_463; +x_461 = lean_array_get_size(x_6); +x_462 = lean_unsigned_to_nat(1u); +x_463 = lean_nat_sub(x_461, x_462); +lean_dec(x_461); +x_426 = x_463; +goto block_458; +} +block_458: +{ +uint8_t x_427; lean_object* x_428; +x_427 = lean_nat_dec_lt(x_424, x_426); +if (x_427 == 0) +{ +x_428 = x_422; +goto block_443; +} +else +{ +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; uint8_t x_454; +lean_dec(x_426); +lean_dec(x_425); +lean_dec(x_424); +lean_dec(x_423); +lean_dec(x_416); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_444 = l_Lean_Name_toString___closed__1; +x_445 = l_Lean_Name_toStringWithSep___main(x_444, x_2); +x_446 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_446, 0, x_445); +x_447 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_447, 0, x_446); +x_448 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_449 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_449, 0, x_448); +lean_ctor_set(x_449, 1, x_447); +x_450 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_451 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_451, 0, x_449); +lean_ctor_set(x_451, 1, x_450); +x_452 = lean_box(0); +x_453 = l_Lean_Meta_throwOther___rarg(x_451, x_452, x_8, x_422); +lean_dec(x_8); +x_454 = !lean_is_exclusive(x_453); +if (x_454 == 0) +{ +return x_453; +} +else +{ +lean_object* x_455; lean_object* x_456; lean_object* x_457; +x_455 = lean_ctor_get(x_453, 0); +x_456 = lean_ctor_get(x_453, 1); +lean_inc(x_456); +lean_inc(x_455); +lean_dec(x_453); +x_457 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_457, 0, x_455); +lean_ctor_set(x_457, 1, x_456); +return x_457; +} +} +block_443: +{ +lean_object* x_429; +lean_inc(x_8); +x_429 = l_Lean_Meta_inferType(x_423, x_8, x_428); +if (lean_obj_tag(x_429) == 0) +{ +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; uint8_t x_437; lean_object* x_438; +x_430 = lean_ctor_get(x_429, 0); +lean_inc(x_430); +x_431 = lean_ctor_get(x_429, 1); +lean_inc(x_431); +lean_dec(x_429); +x_432 = l_Lean_Expr_getAppNumArgsAux___main(x_430, x_415); +x_433 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_432); +x_434 = lean_mk_array(x_432, x_433); +x_435 = lean_unsigned_to_nat(1u); +x_436 = lean_nat_sub(x_432, x_435); +lean_dec(x_432); +x_437 = lean_unbox(x_425); +lean_dec(x_425); +x_438 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_416, x_424, x_437, x_426, x_430, x_434, x_436, x_8, x_431); +return x_438; +} +else +{ +uint8_t x_439; +lean_dec(x_426); +lean_dec(x_425); +lean_dec(x_424); +lean_dec(x_416); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_404 = !lean_is_exclusive(x_394); -if (x_404 == 0) +x_439 = !lean_is_exclusive(x_429); +if (x_439 == 0) { -return x_394; +return x_429; } else { -lean_object* x_405; lean_object* x_406; lean_object* x_407; -x_405 = lean_ctor_get(x_394, 0); -x_406 = lean_ctor_get(x_394, 1); -lean_inc(x_406); -lean_inc(x_405); -lean_dec(x_394); -x_407 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_407, 0, x_405); -lean_ctor_set(x_407, 1, x_406); -return x_407; +lean_object* x_440; lean_object* x_441; lean_object* x_442; +x_440 = lean_ctor_get(x_429, 0); +x_441 = lean_ctor_get(x_429, 1); +lean_inc(x_441); +lean_inc(x_440); +lean_dec(x_429); +x_442 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_442, 0, x_440); +lean_ctor_set(x_442, 1, x_441); +return x_442; +} +} } } } else { -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_dec(x_392); -lean_dec(x_391); -lean_dec(x_390); -lean_dec(x_389); -lean_dec(x_381); +uint8_t x_464; +lean_dec(x_416); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); +lean_dec(x_2); lean_dec(x_1); -x_408 = l_Lean_Name_toString___closed__1; -x_409 = l_Lean_Name_toStringWithSep___main(x_408, x_2); -x_410 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_410, 0, x_409); -x_411 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_411, 0, x_410); -x_412 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_413 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_413, 0, x_412); -lean_ctor_set(x_413, 1, x_411); -x_414 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_415 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_415, 0, x_413); -lean_ctor_set(x_415, 1, x_414); -x_416 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_416, 0, x_415); -if (lean_is_scalar(x_388)) { - x_417 = lean_alloc_ctor(1, 2, 0); -} else { - x_417 = x_388; - lean_ctor_set_tag(x_417, 1); +x_464 = !lean_is_exclusive(x_419); +if (x_464 == 0) +{ +return x_419; } -lean_ctor_set(x_417, 0, x_416); -lean_ctor_set(x_417, 1, x_387); +else +{ +lean_object* x_465; lean_object* x_466; lean_object* x_467; +x_465 = lean_ctor_get(x_419, 0); +x_466 = lean_ctor_get(x_419, 1); +lean_inc(x_466); +lean_inc(x_465); +lean_dec(x_419); +x_467 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_467, 0, x_465); +lean_ctor_set(x_467, 1, x_466); +return x_467; +} +} +} +else +{ +uint8_t x_468; +lean_dec(x_416); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_468 = !lean_is_exclusive(x_417); +if (x_468 == 0) +{ return x_417; } -} -} else { -uint8_t x_424; -lean_dec(x_381); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_424 = !lean_is_exclusive(x_384); -if (x_424 == 0) -{ -return x_384; -} -else -{ -lean_object* x_425; lean_object* x_426; lean_object* x_427; -x_425 = lean_ctor_get(x_384, 0); -x_426 = lean_ctor_get(x_384, 1); -lean_inc(x_426); -lean_inc(x_425); -lean_dec(x_384); -x_427 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_427, 0, x_425); -lean_ctor_set(x_427, 1, x_426); -return x_427; -} -} -} -else -{ -uint8_t x_428; -lean_dec(x_381); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_428 = !lean_is_exclusive(x_382); -if (x_428 == 0) -{ -return x_382; -} -else -{ -lean_object* x_429; lean_object* x_430; lean_object* x_431; -x_429 = lean_ctor_get(x_382, 0); -x_430 = lean_ctor_get(x_382, 1); -lean_inc(x_430); -lean_inc(x_429); -lean_dec(x_382); -x_431 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_431, 0, x_429); -lean_ctor_set(x_431, 1, x_430); -return x_431; +lean_object* x_469; lean_object* x_470; lean_object* x_471; +x_469 = lean_ctor_get(x_417, 0); +x_470 = lean_ctor_get(x_417, 1); +lean_inc(x_470); +lean_inc(x_469); +lean_dec(x_417); +x_471 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_471, 0, x_469); +lean_ctor_set(x_471, 1, x_470); +return x_471; } } } case 9: { -lean_object* x_432; lean_object* x_433; lean_object* x_434; +lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_dec(x_7); -x_432 = lean_unsigned_to_nat(0u); -x_433 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_432); +x_472 = lean_unsigned_to_nat(0u); +x_473 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_472); lean_inc(x_2); -x_434 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_434) == 0) +x_474 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_474) == 0) { -lean_object* x_435; lean_object* x_436; -x_435 = lean_ctor_get(x_434, 1); -lean_inc(x_435); -lean_dec(x_434); +lean_object* x_475; lean_object* x_476; +x_475 = lean_ctor_get(x_474, 1); +lean_inc(x_475); +lean_dec(x_474); lean_inc(x_2); -x_436 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_435); -if (lean_obj_tag(x_436) == 0) +x_476 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_475); +if (lean_obj_tag(x_476) == 0) { -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; uint8_t x_471; -x_437 = lean_ctor_get(x_436, 0); -lean_inc(x_437); -x_438 = lean_ctor_get(x_437, 1); -lean_inc(x_438); -x_439 = lean_ctor_get(x_436, 1); -lean_inc(x_439); -if (lean_is_exclusive(x_436)) { - lean_ctor_release(x_436, 0); - lean_ctor_release(x_436, 1); - x_440 = x_436; -} else { - lean_dec_ref(x_436); - x_440 = lean_box(0); -} -x_441 = lean_ctor_get(x_437, 0); -lean_inc(x_441); -lean_dec(x_437); -x_442 = lean_ctor_get(x_438, 0); -lean_inc(x_442); -x_443 = lean_ctor_get(x_438, 1); -lean_inc(x_443); -lean_dec(x_438); -x_471 = lean_unbox(x_443); -if (x_471 == 0) -{ -lean_object* x_472; -x_472 = lean_array_get_size(x_6); -x_444 = x_472; -goto block_470; -} -else -{ -lean_object* x_473; lean_object* x_474; lean_object* x_475; -x_473 = lean_array_get_size(x_6); -x_474 = lean_unsigned_to_nat(1u); -x_475 = lean_nat_sub(x_473, x_474); -lean_dec(x_473); -x_444 = x_475; -goto block_470; -} -block_470: -{ -uint8_t x_445; -x_445 = lean_nat_dec_lt(x_442, x_444); -if (x_445 == 0) -{ -lean_object* x_446; -lean_dec(x_440); -lean_inc(x_8); -x_446 = l_Lean_Meta_inferType(x_441, x_8, x_439); -if (lean_obj_tag(x_446) == 0) -{ -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; uint8_t x_454; lean_object* x_455; -x_447 = lean_ctor_get(x_446, 0); -lean_inc(x_447); -x_448 = lean_ctor_get(x_446, 1); -lean_inc(x_448); -lean_dec(x_446); -x_449 = l_Lean_Expr_getAppNumArgsAux___main(x_447, x_432); -x_450 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_449); -x_451 = lean_mk_array(x_449, x_450); -x_452 = lean_unsigned_to_nat(1u); -x_453 = lean_nat_sub(x_449, x_452); -lean_dec(x_449); -x_454 = lean_unbox(x_443); -lean_dec(x_443); -x_455 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_433, x_442, x_454, x_444, x_447, x_451, x_453, x_8, x_448); -return x_455; -} -else -{ -uint8_t x_456; -lean_dec(x_444); -lean_dec(x_443); -lean_dec(x_442); -lean_dec(x_433); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_456 = !lean_is_exclusive(x_446); -if (x_456 == 0) -{ -return x_446; -} -else -{ -lean_object* x_457; lean_object* x_458; lean_object* x_459; -x_457 = lean_ctor_get(x_446, 0); -x_458 = lean_ctor_get(x_446, 1); -lean_inc(x_458); -lean_inc(x_457); -lean_dec(x_446); -x_459 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_459, 0, x_457); -lean_ctor_set(x_459, 1, x_458); -return x_459; -} -} -} -else -{ -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_444); -lean_dec(x_443); -lean_dec(x_442); -lean_dec(x_441); -lean_dec(x_433); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_460 = l_Lean_Name_toString___closed__1; -x_461 = l_Lean_Name_toStringWithSep___main(x_460, x_2); -x_462 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_462, 0, x_461); -x_463 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_463, 0, x_462); -x_464 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_465 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_465, 0, x_464); -lean_ctor_set(x_465, 1, x_463); -x_466 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_467 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_467, 0, x_465); -lean_ctor_set(x_467, 1, x_466); -x_468 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_468, 0, x_467); -if (lean_is_scalar(x_440)) { - x_469 = lean_alloc_ctor(1, 2, 0); -} else { - x_469 = x_440; - lean_ctor_set_tag(x_469, 1); -} -lean_ctor_set(x_469, 0, x_468); -lean_ctor_set(x_469, 1, x_439); -return x_469; -} -} -} -else -{ -uint8_t x_476; -lean_dec(x_433); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_476 = !lean_is_exclusive(x_436); -if (x_476 == 0) -{ -return x_436; -} -else -{ -lean_object* x_477; lean_object* x_478; lean_object* x_479; -x_477 = lean_ctor_get(x_436, 0); -x_478 = lean_ctor_get(x_436, 1); -lean_inc(x_478); +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; uint8_t x_516; +x_477 = lean_ctor_get(x_476, 0); lean_inc(x_477); -lean_dec(x_436); -x_479 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_479, 0, x_477); -lean_ctor_set(x_479, 1, x_478); -return x_479; -} -} +x_478 = lean_ctor_get(x_477, 1); +lean_inc(x_478); +x_479 = lean_ctor_get(x_476, 1); +lean_inc(x_479); +lean_dec(x_476); +x_480 = lean_ctor_get(x_477, 0); +lean_inc(x_480); +lean_dec(x_477); +x_481 = lean_ctor_get(x_478, 0); +lean_inc(x_481); +x_482 = lean_ctor_get(x_478, 1); +lean_inc(x_482); +lean_dec(x_478); +x_516 = lean_unbox(x_482); +if (x_516 == 0) +{ +lean_object* x_517; +x_517 = lean_array_get_size(x_6); +x_483 = x_517; +goto block_515; } else { -uint8_t x_480; -lean_dec(x_433); -lean_dec(x_8); +lean_object* x_518; lean_object* x_519; lean_object* x_520; +x_518 = lean_array_get_size(x_6); +x_519 = lean_unsigned_to_nat(1u); +x_520 = lean_nat_sub(x_518, x_519); +lean_dec(x_518); +x_483 = x_520; +goto block_515; +} +block_515: +{ +uint8_t x_484; lean_object* x_485; +x_484 = lean_nat_dec_lt(x_481, x_483); +if (x_484 == 0) +{ +x_485 = x_479; +goto block_500; +} +else +{ +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; uint8_t x_511; +lean_dec(x_483); +lean_dec(x_482); +lean_dec(x_481); +lean_dec(x_480); +lean_dec(x_473); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_2); lean_dec(x_1); -x_480 = !lean_is_exclusive(x_434); -if (x_480 == 0) +x_501 = l_Lean_Name_toString___closed__1; +x_502 = l_Lean_Name_toStringWithSep___main(x_501, x_2); +x_503 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_503, 0, x_502); +x_504 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_504, 0, x_503); +x_505 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_506 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_506, 0, x_505); +lean_ctor_set(x_506, 1, x_504); +x_507 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_508 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_508, 0, x_506); +lean_ctor_set(x_508, 1, x_507); +x_509 = lean_box(0); +x_510 = l_Lean_Meta_throwOther___rarg(x_508, x_509, x_8, x_479); +lean_dec(x_8); +x_511 = !lean_is_exclusive(x_510); +if (x_511 == 0) { -return x_434; +return x_510; } else { -lean_object* x_481; lean_object* x_482; lean_object* x_483; -x_481 = lean_ctor_get(x_434, 0); -x_482 = lean_ctor_get(x_434, 1); -lean_inc(x_482); -lean_inc(x_481); -lean_dec(x_434); -x_483 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_483, 0, x_481); -lean_ctor_set(x_483, 1, x_482); -return x_483; +lean_object* x_512; lean_object* x_513; lean_object* x_514; +x_512 = lean_ctor_get(x_510, 0); +x_513 = lean_ctor_get(x_510, 1); +lean_inc(x_513); +lean_inc(x_512); +lean_dec(x_510); +x_514 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_514, 0, x_512); +lean_ctor_set(x_514, 1, x_513); +return x_514; } } -} -case 10: +block_500: { -lean_object* x_484; lean_object* x_485; lean_object* x_486; -lean_dec(x_7); -x_484 = lean_unsigned_to_nat(0u); -x_485 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_484); -lean_inc(x_2); -x_486 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +lean_object* x_486; +lean_inc(x_8); +x_486 = l_Lean_Meta_inferType(x_480, x_8, x_485); if (lean_obj_tag(x_486) == 0) { -lean_object* x_487; lean_object* x_488; -x_487 = lean_ctor_get(x_486, 1); +lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; lean_object* x_493; uint8_t x_494; lean_object* x_495; +x_487 = lean_ctor_get(x_486, 0); lean_inc(x_487); +x_488 = lean_ctor_get(x_486, 1); +lean_inc(x_488); lean_dec(x_486); -lean_inc(x_2); -x_488 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_487); -if (lean_obj_tag(x_488) == 0) -{ -lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; lean_object* x_493; lean_object* x_494; lean_object* x_495; lean_object* x_496; uint8_t x_523; -x_489 = lean_ctor_get(x_488, 0); +x_489 = l_Lean_Expr_getAppNumArgsAux___main(x_487, x_472); +x_490 = l_Lean_Expr_getAppArgs___closed__1; lean_inc(x_489); -x_490 = lean_ctor_get(x_489, 1); -lean_inc(x_490); -x_491 = lean_ctor_get(x_488, 1); -lean_inc(x_491); -if (lean_is_exclusive(x_488)) { - lean_ctor_release(x_488, 0); - lean_ctor_release(x_488, 1); - x_492 = x_488; -} else { - lean_dec_ref(x_488); - x_492 = lean_box(0); -} -x_493 = lean_ctor_get(x_489, 0); -lean_inc(x_493); +x_491 = lean_mk_array(x_489, x_490); +x_492 = lean_unsigned_to_nat(1u); +x_493 = lean_nat_sub(x_489, x_492); lean_dec(x_489); -x_494 = lean_ctor_get(x_490, 0); -lean_inc(x_494); -x_495 = lean_ctor_get(x_490, 1); -lean_inc(x_495); -lean_dec(x_490); -x_523 = lean_unbox(x_495); -if (x_523 == 0) -{ -lean_object* x_524; -x_524 = lean_array_get_size(x_6); -x_496 = x_524; -goto block_522; +x_494 = lean_unbox(x_482); +lean_dec(x_482); +x_495 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_473, x_481, x_494, x_483, x_487, x_491, x_493, x_8, x_488); +return x_495; } else { -lean_object* x_525; lean_object* x_526; lean_object* x_527; -x_525 = lean_array_get_size(x_6); -x_526 = lean_unsigned_to_nat(1u); -x_527 = lean_nat_sub(x_525, x_526); -lean_dec(x_525); -x_496 = x_527; -goto block_522; -} -block_522: -{ -uint8_t x_497; -x_497 = lean_nat_dec_lt(x_494, x_496); -if (x_497 == 0) -{ -lean_object* x_498; -lean_dec(x_492); -lean_inc(x_8); -x_498 = l_Lean_Meta_inferType(x_493, x_8, x_491); -if (lean_obj_tag(x_498) == 0) -{ -lean_object* x_499; lean_object* x_500; lean_object* x_501; lean_object* x_502; lean_object* x_503; lean_object* x_504; lean_object* x_505; uint8_t x_506; lean_object* x_507; -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_Expr_getAppNumArgsAux___main(x_499, x_484); -x_502 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_501); -x_503 = lean_mk_array(x_501, x_502); -x_504 = lean_unsigned_to_nat(1u); -x_505 = lean_nat_sub(x_501, x_504); -lean_dec(x_501); -x_506 = lean_unbox(x_495); -lean_dec(x_495); -x_507 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_485, x_494, x_506, x_496, x_499, x_503, x_505, x_8, x_500); -return x_507; -} -else -{ -uint8_t x_508; -lean_dec(x_496); -lean_dec(x_495); -lean_dec(x_494); -lean_dec(x_485); +uint8_t x_496; +lean_dec(x_483); +lean_dec(x_482); +lean_dec(x_481); +lean_dec(x_473); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_508 = !lean_is_exclusive(x_498); -if (x_508 == 0) -{ -return x_498; -} -else -{ -lean_object* x_509; lean_object* x_510; lean_object* x_511; -x_509 = lean_ctor_get(x_498, 0); -x_510 = lean_ctor_get(x_498, 1); -lean_inc(x_510); -lean_inc(x_509); -lean_dec(x_498); -x_511 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_511, 0, x_509); -lean_ctor_set(x_511, 1, x_510); -return x_511; -} -} -} -else -{ -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_dec(x_496); -lean_dec(x_495); -lean_dec(x_494); -lean_dec(x_493); -lean_dec(x_485); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_512 = l_Lean_Name_toString___closed__1; -x_513 = l_Lean_Name_toStringWithSep___main(x_512, x_2); -x_514 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_514, 0, x_513); -x_515 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_515, 0, x_514); -x_516 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_517 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_517, 0, x_516); -lean_ctor_set(x_517, 1, x_515); -x_518 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_519 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_519, 0, x_517); -lean_ctor_set(x_519, 1, x_518); -x_520 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_520, 0, x_519); -if (lean_is_scalar(x_492)) { - x_521 = lean_alloc_ctor(1, 2, 0); -} else { - x_521 = x_492; - lean_ctor_set_tag(x_521, 1); -} -lean_ctor_set(x_521, 0, x_520); -lean_ctor_set(x_521, 1, x_491); -return x_521; -} -} -} -else -{ -uint8_t x_528; -lean_dec(x_485); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_528 = !lean_is_exclusive(x_488); -if (x_528 == 0) -{ -return x_488; -} -else -{ -lean_object* x_529; lean_object* x_530; lean_object* x_531; -x_529 = lean_ctor_get(x_488, 0); -x_530 = lean_ctor_get(x_488, 1); -lean_inc(x_530); -lean_inc(x_529); -lean_dec(x_488); -x_531 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_531, 0, x_529); -lean_ctor_set(x_531, 1, x_530); -return x_531; -} -} -} -else -{ -uint8_t x_532; -lean_dec(x_485); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_532 = !lean_is_exclusive(x_486); -if (x_532 == 0) +x_496 = !lean_is_exclusive(x_486); +if (x_496 == 0) { return x_486; } else { -lean_object* x_533; lean_object* x_534; lean_object* x_535; -x_533 = lean_ctor_get(x_486, 0); -x_534 = lean_ctor_get(x_486, 1); -lean_inc(x_534); -lean_inc(x_533); +lean_object* x_497; lean_object* x_498; lean_object* x_499; +x_497 = lean_ctor_get(x_486, 0); +x_498 = lean_ctor_get(x_486, 1); +lean_inc(x_498); +lean_inc(x_497); lean_dec(x_486); -x_535 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_535, 0, x_533); -lean_ctor_set(x_535, 1, x_534); -return x_535; +x_499 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_499, 0, x_497); +lean_ctor_set(x_499, 1, x_498); +return x_499; +} +} +} +} +} +else +{ +uint8_t x_521; +lean_dec(x_473); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_521 = !lean_is_exclusive(x_476); +if (x_521 == 0) +{ +return x_476; +} +else +{ +lean_object* x_522; lean_object* x_523; lean_object* x_524; +x_522 = lean_ctor_get(x_476, 0); +x_523 = lean_ctor_get(x_476, 1); +lean_inc(x_523); +lean_inc(x_522); +lean_dec(x_476); +x_524 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_524, 0, x_522); +lean_ctor_set(x_524, 1, x_523); +return x_524; +} +} +} +else +{ +uint8_t x_525; +lean_dec(x_473); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_525 = !lean_is_exclusive(x_474); +if (x_525 == 0) +{ +return x_474; +} +else +{ +lean_object* x_526; lean_object* x_527; lean_object* x_528; +x_526 = lean_ctor_get(x_474, 0); +x_527 = lean_ctor_get(x_474, 1); +lean_inc(x_527); +lean_inc(x_526); +lean_dec(x_474); +x_528 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_528, 0, x_526); +lean_ctor_set(x_528, 1, x_527); +return x_528; +} +} +} +case 10: +{ +lean_object* x_529; lean_object* x_530; lean_object* x_531; +lean_dec(x_7); +x_529 = lean_unsigned_to_nat(0u); +x_530 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_529); +lean_inc(x_2); +x_531 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_531) == 0) +{ +lean_object* x_532; lean_object* x_533; +x_532 = lean_ctor_get(x_531, 1); +lean_inc(x_532); +lean_dec(x_531); +lean_inc(x_2); +x_533 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_532); +if (lean_obj_tag(x_533) == 0) +{ +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; uint8_t x_573; +x_534 = lean_ctor_get(x_533, 0); +lean_inc(x_534); +x_535 = lean_ctor_get(x_534, 1); +lean_inc(x_535); +x_536 = lean_ctor_get(x_533, 1); +lean_inc(x_536); +lean_dec(x_533); +x_537 = lean_ctor_get(x_534, 0); +lean_inc(x_537); +lean_dec(x_534); +x_538 = lean_ctor_get(x_535, 0); +lean_inc(x_538); +x_539 = lean_ctor_get(x_535, 1); +lean_inc(x_539); +lean_dec(x_535); +x_573 = lean_unbox(x_539); +if (x_573 == 0) +{ +lean_object* x_574; +x_574 = lean_array_get_size(x_6); +x_540 = x_574; +goto block_572; +} +else +{ +lean_object* x_575; lean_object* x_576; lean_object* x_577; +x_575 = lean_array_get_size(x_6); +x_576 = lean_unsigned_to_nat(1u); +x_577 = lean_nat_sub(x_575, x_576); +lean_dec(x_575); +x_540 = x_577; +goto block_572; +} +block_572: +{ +uint8_t x_541; lean_object* x_542; +x_541 = lean_nat_dec_lt(x_538, x_540); +if (x_541 == 0) +{ +x_542 = x_536; +goto block_557; +} +else +{ +lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_object* x_563; lean_object* x_564; lean_object* x_565; lean_object* x_566; lean_object* x_567; uint8_t x_568; +lean_dec(x_540); +lean_dec(x_539); +lean_dec(x_538); +lean_dec(x_537); +lean_dec(x_530); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_558 = l_Lean_Name_toString___closed__1; +x_559 = l_Lean_Name_toStringWithSep___main(x_558, x_2); +x_560 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_560, 0, x_559); +x_561 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_561, 0, x_560); +x_562 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_563 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_563, 0, x_562); +lean_ctor_set(x_563, 1, x_561); +x_564 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_565 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_565, 0, x_563); +lean_ctor_set(x_565, 1, x_564); +x_566 = lean_box(0); +x_567 = l_Lean_Meta_throwOther___rarg(x_565, x_566, x_8, x_536); +lean_dec(x_8); +x_568 = !lean_is_exclusive(x_567); +if (x_568 == 0) +{ +return x_567; +} +else +{ +lean_object* x_569; lean_object* x_570; lean_object* x_571; +x_569 = lean_ctor_get(x_567, 0); +x_570 = lean_ctor_get(x_567, 1); +lean_inc(x_570); +lean_inc(x_569); +lean_dec(x_567); +x_571 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_571, 0, x_569); +lean_ctor_set(x_571, 1, x_570); +return x_571; +} +} +block_557: +{ +lean_object* x_543; +lean_inc(x_8); +x_543 = l_Lean_Meta_inferType(x_537, x_8, x_542); +if (lean_obj_tag(x_543) == 0) +{ +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; uint8_t x_551; lean_object* x_552; +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_Expr_getAppNumArgsAux___main(x_544, x_529); +x_547 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_546); +x_548 = lean_mk_array(x_546, x_547); +x_549 = lean_unsigned_to_nat(1u); +x_550 = lean_nat_sub(x_546, x_549); +lean_dec(x_546); +x_551 = lean_unbox(x_539); +lean_dec(x_539); +x_552 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_530, x_538, x_551, x_540, x_544, x_548, x_550, x_8, x_545); +return x_552; +} +else +{ +uint8_t x_553; +lean_dec(x_540); +lean_dec(x_539); +lean_dec(x_538); +lean_dec(x_530); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_553 = !lean_is_exclusive(x_543); +if (x_553 == 0) +{ +return x_543; +} +else +{ +lean_object* x_554; lean_object* x_555; lean_object* x_556; +x_554 = lean_ctor_get(x_543, 0); +x_555 = lean_ctor_get(x_543, 1); +lean_inc(x_555); +lean_inc(x_554); +lean_dec(x_543); +x_556 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_556, 0, x_554); +lean_ctor_set(x_556, 1, x_555); +return x_556; +} +} +} +} +} +else +{ +uint8_t x_578; +lean_dec(x_530); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_578 = !lean_is_exclusive(x_533); +if (x_578 == 0) +{ +return x_533; +} +else +{ +lean_object* x_579; lean_object* x_580; lean_object* x_581; +x_579 = lean_ctor_get(x_533, 0); +x_580 = lean_ctor_get(x_533, 1); +lean_inc(x_580); +lean_inc(x_579); +lean_dec(x_533); +x_581 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_581, 0, x_579); +lean_ctor_set(x_581, 1, x_580); +return x_581; +} +} +} +else +{ +uint8_t x_582; +lean_dec(x_530); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_582 = !lean_is_exclusive(x_531); +if (x_582 == 0) +{ +return x_531; +} +else +{ +lean_object* x_583; lean_object* x_584; lean_object* x_585; +x_583 = lean_ctor_get(x_531, 0); +x_584 = lean_ctor_get(x_531, 1); +lean_inc(x_584); +lean_inc(x_583); +lean_dec(x_531); +x_585 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_585, 0, x_583); +lean_ctor_set(x_585, 1, x_584); +return x_585; } } } case 11: { -lean_object* x_536; lean_object* x_537; lean_object* x_538; +lean_object* x_586; lean_object* x_587; lean_object* x_588; lean_dec(x_7); -x_536 = lean_unsigned_to_nat(0u); -x_537 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_536); +x_586 = lean_unsigned_to_nat(0u); +x_587 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_586); lean_inc(x_2); -x_538 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); -if (lean_obj_tag(x_538) == 0) +x_588 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_588) == 0) { -lean_object* x_539; lean_object* x_540; -x_539 = lean_ctor_get(x_538, 1); -lean_inc(x_539); -lean_dec(x_538); +lean_object* x_589; lean_object* x_590; +x_589 = lean_ctor_get(x_588, 1); +lean_inc(x_589); +lean_dec(x_588); lean_inc(x_2); -x_540 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_539); -if (lean_obj_tag(x_540) == 0) -{ -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; uint8_t x_575; -x_541 = lean_ctor_get(x_540, 0); -lean_inc(x_541); -x_542 = lean_ctor_get(x_541, 1); -lean_inc(x_542); -x_543 = lean_ctor_get(x_540, 1); -lean_inc(x_543); -if (lean_is_exclusive(x_540)) { - lean_ctor_release(x_540, 0); - lean_ctor_release(x_540, 1); - x_544 = x_540; -} else { - lean_dec_ref(x_540); - x_544 = lean_box(0); -} -x_545 = lean_ctor_get(x_541, 0); -lean_inc(x_545); -lean_dec(x_541); -x_546 = lean_ctor_get(x_542, 0); -lean_inc(x_546); -x_547 = lean_ctor_get(x_542, 1); -lean_inc(x_547); -lean_dec(x_542); -x_575 = lean_unbox(x_547); -if (x_575 == 0) -{ -lean_object* x_576; -x_576 = lean_array_get_size(x_6); -x_548 = x_576; -goto block_574; -} -else -{ -lean_object* x_577; lean_object* x_578; lean_object* x_579; -x_577 = lean_array_get_size(x_6); -x_578 = lean_unsigned_to_nat(1u); -x_579 = lean_nat_sub(x_577, x_578); -lean_dec(x_577); -x_548 = x_579; -goto block_574; -} -block_574: -{ -uint8_t x_549; -x_549 = lean_nat_dec_lt(x_546, x_548); -if (x_549 == 0) -{ -lean_object* x_550; -lean_dec(x_544); -lean_inc(x_8); -x_550 = l_Lean_Meta_inferType(x_545, x_8, x_543); -if (lean_obj_tag(x_550) == 0) -{ -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; uint8_t x_558; lean_object* x_559; -x_551 = lean_ctor_get(x_550, 0); -lean_inc(x_551); -x_552 = lean_ctor_get(x_550, 1); -lean_inc(x_552); -lean_dec(x_550); -x_553 = l_Lean_Expr_getAppNumArgsAux___main(x_551, x_536); -x_554 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_553); -x_555 = lean_mk_array(x_553, x_554); -x_556 = lean_unsigned_to_nat(1u); -x_557 = lean_nat_sub(x_553, x_556); -lean_dec(x_553); -x_558 = lean_unbox(x_547); -lean_dec(x_547); -x_559 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_537, x_546, x_558, x_548, x_551, x_555, x_557, x_8, x_552); -return x_559; -} -else -{ -uint8_t x_560; -lean_dec(x_548); -lean_dec(x_547); -lean_dec(x_546); -lean_dec(x_537); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_560 = !lean_is_exclusive(x_550); -if (x_560 == 0) -{ -return x_550; -} -else -{ -lean_object* x_561; lean_object* x_562; lean_object* x_563; -x_561 = lean_ctor_get(x_550, 0); -x_562 = lean_ctor_get(x_550, 1); -lean_inc(x_562); -lean_inc(x_561); -lean_dec(x_550); -x_563 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_563, 0, x_561); -lean_ctor_set(x_563, 1, x_562); -return x_563; -} -} -} -else -{ -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_dec(x_548); -lean_dec(x_547); -lean_dec(x_546); -lean_dec(x_545); -lean_dec(x_537); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_564 = l_Lean_Name_toString___closed__1; -x_565 = l_Lean_Name_toStringWithSep___main(x_564, x_2); -x_566 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_566, 0, x_565); -x_567 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_567, 0, x_566); -x_568 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_569 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_569, 0, x_568); -lean_ctor_set(x_569, 1, x_567); -x_570 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_571 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_571, 0, x_569); -lean_ctor_set(x_571, 1, x_570); -x_572 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_572, 0, x_571); -if (lean_is_scalar(x_544)) { - x_573 = lean_alloc_ctor(1, 2, 0); -} else { - x_573 = x_544; - lean_ctor_set_tag(x_573, 1); -} -lean_ctor_set(x_573, 0, x_572); -lean_ctor_set(x_573, 1, x_543); -return x_573; -} -} -} -else -{ -uint8_t x_580; -lean_dec(x_537); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_580 = !lean_is_exclusive(x_540); -if (x_580 == 0) -{ -return x_540; -} -else -{ -lean_object* x_581; lean_object* x_582; lean_object* x_583; -x_581 = lean_ctor_get(x_540, 0); -x_582 = lean_ctor_get(x_540, 1); -lean_inc(x_582); -lean_inc(x_581); -lean_dec(x_540); -x_583 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_583, 0, x_581); -lean_ctor_set(x_583, 1, x_582); -return x_583; -} -} -} -else -{ -uint8_t x_584; -lean_dec(x_537); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_584 = !lean_is_exclusive(x_538); -if (x_584 == 0) -{ -return x_538; -} -else -{ -lean_object* x_585; lean_object* x_586; lean_object* x_587; -x_585 = lean_ctor_get(x_538, 0); -x_586 = lean_ctor_get(x_538, 1); -lean_inc(x_586); -lean_inc(x_585); -lean_dec(x_538); -x_587 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_587, 0, x_585); -lean_ctor_set(x_587, 1, x_586); -return x_587; -} -} -} -default: -{ -lean_object* x_588; lean_object* x_589; lean_object* x_590; -lean_dec(x_7); -x_588 = lean_unsigned_to_nat(0u); -x_589 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_588); -lean_inc(x_2); -x_590 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +x_590 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_589); if (lean_obj_tag(x_590) == 0) { -lean_object* x_591; lean_object* x_592; -x_591 = lean_ctor_get(x_590, 1); +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; uint8_t x_630; +x_591 = lean_ctor_get(x_590, 0); lean_inc(x_591); -lean_dec(x_590); -lean_inc(x_2); -x_592 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_591); -if (lean_obj_tag(x_592) == 0) -{ -lean_object* x_593; lean_object* x_594; lean_object* x_595; lean_object* x_596; lean_object* x_597; lean_object* x_598; lean_object* x_599; lean_object* x_600; uint8_t x_627; -x_593 = lean_ctor_get(x_592, 0); +x_592 = lean_ctor_get(x_591, 1); +lean_inc(x_592); +x_593 = lean_ctor_get(x_590, 1); lean_inc(x_593); -x_594 = lean_ctor_get(x_593, 1); +lean_dec(x_590); +x_594 = lean_ctor_get(x_591, 0); lean_inc(x_594); -x_595 = lean_ctor_get(x_592, 1); +lean_dec(x_591); +x_595 = lean_ctor_get(x_592, 0); lean_inc(x_595); -if (lean_is_exclusive(x_592)) { - lean_ctor_release(x_592, 0); - lean_ctor_release(x_592, 1); - x_596 = x_592; -} else { - lean_dec_ref(x_592); - x_596 = lean_box(0); -} -x_597 = lean_ctor_get(x_593, 0); -lean_inc(x_597); -lean_dec(x_593); -x_598 = lean_ctor_get(x_594, 0); -lean_inc(x_598); -x_599 = lean_ctor_get(x_594, 1); -lean_inc(x_599); -lean_dec(x_594); -x_627 = lean_unbox(x_599); -if (x_627 == 0) -{ -lean_object* x_628; -x_628 = lean_array_get_size(x_6); -x_600 = x_628; -goto block_626; -} -else -{ -lean_object* x_629; lean_object* x_630; lean_object* x_631; -x_629 = lean_array_get_size(x_6); -x_630 = lean_unsigned_to_nat(1u); -x_631 = lean_nat_sub(x_629, x_630); -lean_dec(x_629); -x_600 = x_631; -goto block_626; -} -block_626: -{ -uint8_t x_601; -x_601 = lean_nat_dec_lt(x_598, x_600); -if (x_601 == 0) -{ -lean_object* x_602; -lean_dec(x_596); -lean_inc(x_8); -x_602 = l_Lean_Meta_inferType(x_597, x_8, x_595); -if (lean_obj_tag(x_602) == 0) -{ -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; uint8_t x_610; lean_object* x_611; -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_Expr_getAppNumArgsAux___main(x_603, x_588); -x_606 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_605); -x_607 = lean_mk_array(x_605, x_606); -x_608 = lean_unsigned_to_nat(1u); -x_609 = lean_nat_sub(x_605, x_608); -lean_dec(x_605); -x_610 = lean_unbox(x_599); -lean_dec(x_599); -x_611 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_589, x_598, x_610, x_600, x_603, x_607, x_609, x_8, x_604); -return x_611; -} -else -{ -uint8_t x_612; -lean_dec(x_600); -lean_dec(x_599); -lean_dec(x_598); -lean_dec(x_589); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_612 = !lean_is_exclusive(x_602); -if (x_612 == 0) -{ -return x_602; -} -else -{ -lean_object* x_613; lean_object* x_614; lean_object* x_615; -x_613 = lean_ctor_get(x_602, 0); -x_614 = lean_ctor_get(x_602, 1); -lean_inc(x_614); -lean_inc(x_613); -lean_dec(x_602); -x_615 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_615, 0, x_613); -lean_ctor_set(x_615, 1, x_614); -return x_615; -} -} -} -else -{ -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_dec(x_600); -lean_dec(x_599); -lean_dec(x_598); -lean_dec(x_597); -lean_dec(x_589); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_616 = l_Lean_Name_toString___closed__1; -x_617 = l_Lean_Name_toStringWithSep___main(x_616, x_2); -x_618 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_618, 0, x_617); -x_619 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_619, 0, x_618); -x_620 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; -x_621 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_621, 0, x_620); -lean_ctor_set(x_621, 1, x_619); -x_622 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; -x_623 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_623, 0, x_621); -lean_ctor_set(x_623, 1, x_622); -x_624 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_624, 0, x_623); -if (lean_is_scalar(x_596)) { - x_625 = lean_alloc_ctor(1, 2, 0); -} else { - x_625 = x_596; - lean_ctor_set_tag(x_625, 1); -} -lean_ctor_set(x_625, 0, x_624); -lean_ctor_set(x_625, 1, x_595); -return x_625; -} -} -} -else -{ -uint8_t x_632; -lean_dec(x_589); -lean_dec(x_8); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_632 = !lean_is_exclusive(x_592); -if (x_632 == 0) -{ -return x_592; -} -else -{ -lean_object* x_633; lean_object* x_634; lean_object* x_635; -x_633 = lean_ctor_get(x_592, 0); -x_634 = lean_ctor_get(x_592, 1); -lean_inc(x_634); -lean_inc(x_633); +x_596 = lean_ctor_get(x_592, 1); +lean_inc(x_596); lean_dec(x_592); -x_635 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_635, 0, x_633); -lean_ctor_set(x_635, 1, x_634); -return x_635; -} -} +x_630 = lean_unbox(x_596); +if (x_630 == 0) +{ +lean_object* x_631; +x_631 = lean_array_get_size(x_6); +x_597 = x_631; +goto block_629; } else { -uint8_t x_636; -lean_dec(x_589); +lean_object* x_632; lean_object* x_633; lean_object* x_634; +x_632 = lean_array_get_size(x_6); +x_633 = lean_unsigned_to_nat(1u); +x_634 = lean_nat_sub(x_632, x_633); +lean_dec(x_632); +x_597 = x_634; +goto block_629; +} +block_629: +{ +uint8_t x_598; lean_object* x_599; +x_598 = lean_nat_dec_lt(x_595, x_597); +if (x_598 == 0) +{ +x_599 = x_593; +goto block_614; +} +else +{ +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; uint8_t x_625; +lean_dec(x_597); +lean_dec(x_596); +lean_dec(x_595); +lean_dec(x_594); +lean_dec(x_587); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_615 = l_Lean_Name_toString___closed__1; +x_616 = l_Lean_Name_toStringWithSep___main(x_615, x_2); +x_617 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_617, 0, x_616); +x_618 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_618, 0, x_617); +x_619 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_620 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_620, 0, x_619); +lean_ctor_set(x_620, 1, x_618); +x_621 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_622 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_622, 0, x_620); +lean_ctor_set(x_622, 1, x_621); +x_623 = lean_box(0); +x_624 = l_Lean_Meta_throwOther___rarg(x_622, x_623, x_8, x_593); +lean_dec(x_8); +x_625 = !lean_is_exclusive(x_624); +if (x_625 == 0) +{ +return x_624; +} +else +{ +lean_object* x_626; lean_object* x_627; lean_object* x_628; +x_626 = lean_ctor_get(x_624, 0); +x_627 = lean_ctor_get(x_624, 1); +lean_inc(x_627); +lean_inc(x_626); +lean_dec(x_624); +x_628 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_628, 0, x_626); +lean_ctor_set(x_628, 1, x_627); +return x_628; +} +} +block_614: +{ +lean_object* x_600; +lean_inc(x_8); +x_600 = l_Lean_Meta_inferType(x_594, x_8, x_599); +if (lean_obj_tag(x_600) == 0) +{ +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; uint8_t x_608; lean_object* x_609; +x_601 = lean_ctor_get(x_600, 0); +lean_inc(x_601); +x_602 = lean_ctor_get(x_600, 1); +lean_inc(x_602); +lean_dec(x_600); +x_603 = l_Lean_Expr_getAppNumArgsAux___main(x_601, x_586); +x_604 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_603); +x_605 = lean_mk_array(x_603, x_604); +x_606 = lean_unsigned_to_nat(1u); +x_607 = lean_nat_sub(x_603, x_606); +lean_dec(x_603); +x_608 = lean_unbox(x_596); +lean_dec(x_596); +x_609 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_587, x_595, x_608, x_597, x_601, x_605, x_607, x_8, x_602); +return x_609; +} +else +{ +uint8_t x_610; +lean_dec(x_597); +lean_dec(x_596); +lean_dec(x_595); +lean_dec(x_587); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_636 = !lean_is_exclusive(x_590); -if (x_636 == 0) +x_610 = !lean_is_exclusive(x_600); +if (x_610 == 0) +{ +return x_600; +} +else +{ +lean_object* x_611; lean_object* x_612; lean_object* x_613; +x_611 = lean_ctor_get(x_600, 0); +x_612 = lean_ctor_get(x_600, 1); +lean_inc(x_612); +lean_inc(x_611); +lean_dec(x_600); +x_613 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_613, 0, x_611); +lean_ctor_set(x_613, 1, x_612); +return x_613; +} +} +} +} +} +else +{ +uint8_t x_635; +lean_dec(x_587); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_635 = !lean_is_exclusive(x_590); +if (x_635 == 0) { return x_590; } else { -lean_object* x_637; lean_object* x_638; lean_object* x_639; -x_637 = lean_ctor_get(x_590, 0); -x_638 = lean_ctor_get(x_590, 1); -lean_inc(x_638); +lean_object* x_636; lean_object* x_637; lean_object* x_638; +x_636 = lean_ctor_get(x_590, 0); +x_637 = lean_ctor_get(x_590, 1); lean_inc(x_637); +lean_inc(x_636); lean_dec(x_590); -x_639 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_639, 0, x_637); -lean_ctor_set(x_639, 1, x_638); -return x_639; +x_638 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_638, 0, x_636); +lean_ctor_set(x_638, 1, x_637); +return x_638; +} +} +} +else +{ +uint8_t x_639; +lean_dec(x_587); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_639 = !lean_is_exclusive(x_588); +if (x_639 == 0) +{ +return x_588; +} +else +{ +lean_object* x_640; lean_object* x_641; lean_object* x_642; +x_640 = lean_ctor_get(x_588, 0); +x_641 = lean_ctor_get(x_588, 1); +lean_inc(x_641); +lean_inc(x_640); +lean_dec(x_588); +x_642 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_642, 0, x_640); +lean_ctor_set(x_642, 1, x_641); +return x_642; +} +} +} +default: +{ +lean_object* x_643; lean_object* x_644; lean_object* x_645; +lean_dec(x_7); +x_643 = lean_unsigned_to_nat(0u); +x_644 = l___private_Lean_Meta_RecursorInfo_4__getNumParams___main(x_4, x_5, x_643); +lean_inc(x_2); +x_645 = l___private_Lean_Meta_RecursorInfo_3__checkMotive(x_2, x_5, x_6, x_8, x_9); +if (lean_obj_tag(x_645) == 0) +{ +lean_object* x_646; lean_object* x_647; +x_646 = lean_ctor_get(x_645, 1); +lean_inc(x_646); +lean_dec(x_645); +lean_inc(x_2); +x_647 = l___private_Lean_Meta_RecursorInfo_5__getMajorPosDepElim(x_2, x_3, x_4, x_5, x_6, x_8, x_646); +if (lean_obj_tag(x_647) == 0) +{ +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; uint8_t x_687; +x_648 = lean_ctor_get(x_647, 0); +lean_inc(x_648); +x_649 = lean_ctor_get(x_648, 1); +lean_inc(x_649); +x_650 = lean_ctor_get(x_647, 1); +lean_inc(x_650); +lean_dec(x_647); +x_651 = lean_ctor_get(x_648, 0); +lean_inc(x_651); +lean_dec(x_648); +x_652 = lean_ctor_get(x_649, 0); +lean_inc(x_652); +x_653 = lean_ctor_get(x_649, 1); +lean_inc(x_653); +lean_dec(x_649); +x_687 = lean_unbox(x_653); +if (x_687 == 0) +{ +lean_object* x_688; +x_688 = lean_array_get_size(x_6); +x_654 = x_688; +goto block_686; +} +else +{ +lean_object* x_689; lean_object* x_690; lean_object* x_691; +x_689 = lean_array_get_size(x_6); +x_690 = lean_unsigned_to_nat(1u); +x_691 = lean_nat_sub(x_689, x_690); +lean_dec(x_689); +x_654 = x_691; +goto block_686; +} +block_686: +{ +uint8_t x_655; lean_object* x_656; +x_655 = lean_nat_dec_lt(x_652, x_654); +if (x_655 == 0) +{ +x_656 = x_650; +goto block_671; +} +else +{ +lean_object* x_672; lean_object* x_673; lean_object* x_674; lean_object* x_675; lean_object* x_676; lean_object* x_677; lean_object* x_678; lean_object* x_679; lean_object* x_680; lean_object* x_681; uint8_t x_682; +lean_dec(x_654); +lean_dec(x_653); +lean_dec(x_652); +lean_dec(x_651); +lean_dec(x_644); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_672 = l_Lean_Name_toString___closed__1; +x_673 = l_Lean_Name_toStringWithSep___main(x_672, x_2); +x_674 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_674, 0, x_673); +x_675 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_675, 0, x_674); +x_676 = l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__3; +x_677 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_677, 0, x_676); +lean_ctor_set(x_677, 1, x_675); +x_678 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___closed__3; +x_679 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_679, 0, x_677); +lean_ctor_set(x_679, 1, x_678); +x_680 = lean_box(0); +x_681 = l_Lean_Meta_throwOther___rarg(x_679, x_680, x_8, x_650); +lean_dec(x_8); +x_682 = !lean_is_exclusive(x_681); +if (x_682 == 0) +{ +return x_681; +} +else +{ +lean_object* x_683; lean_object* x_684; lean_object* x_685; +x_683 = lean_ctor_get(x_681, 0); +x_684 = lean_ctor_get(x_681, 1); +lean_inc(x_684); +lean_inc(x_683); +lean_dec(x_681); +x_685 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_685, 0, x_683); +lean_ctor_set(x_685, 1, x_684); +return x_685; +} +} +block_671: +{ +lean_object* x_657; +lean_inc(x_8); +x_657 = l_Lean_Meta_inferType(x_651, x_8, x_656); +if (lean_obj_tag(x_657) == 0) +{ +lean_object* x_658; lean_object* x_659; lean_object* x_660; lean_object* x_661; lean_object* x_662; lean_object* x_663; lean_object* x_664; uint8_t x_665; lean_object* x_666; +x_658 = lean_ctor_get(x_657, 0); +lean_inc(x_658); +x_659 = lean_ctor_get(x_657, 1); +lean_inc(x_659); +lean_dec(x_657); +x_660 = l_Lean_Expr_getAppNumArgsAux___main(x_658, x_643); +x_661 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_660); +x_662 = lean_mk_array(x_660, x_661); +x_663 = lean_unsigned_to_nat(1u); +x_664 = lean_nat_sub(x_660, x_663); +lean_dec(x_660); +x_665 = lean_unbox(x_653); +lean_dec(x_653); +x_666 = l_Lean_Expr_withAppAux___main___at___private_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(x_1, x_2, x_4, x_5, x_6, x_644, x_652, x_665, x_654, x_658, x_662, x_664, x_8, x_659); +return x_666; +} +else +{ +uint8_t x_667; +lean_dec(x_654); +lean_dec(x_653); +lean_dec(x_652); +lean_dec(x_644); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_667 = !lean_is_exclusive(x_657); +if (x_667 == 0) +{ +return x_657; +} +else +{ +lean_object* x_668; lean_object* x_669; lean_object* x_670; +x_668 = lean_ctor_get(x_657, 0); +x_669 = lean_ctor_get(x_657, 1); +lean_inc(x_669); +lean_inc(x_668); +lean_dec(x_657); +x_670 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_670, 0, x_668); +lean_ctor_set(x_670, 1, x_669); +return x_670; +} +} +} +} +} +else +{ +uint8_t x_692; +lean_dec(x_644); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_692 = !lean_is_exclusive(x_647); +if (x_692 == 0) +{ +return x_647; +} +else +{ +lean_object* x_693; lean_object* x_694; lean_object* x_695; +x_693 = lean_ctor_get(x_647, 0); +x_694 = lean_ctor_get(x_647, 1); +lean_inc(x_694); +lean_inc(x_693); +lean_dec(x_647); +x_695 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_695, 0, x_693); +lean_ctor_set(x_695, 1, x_694); +return x_695; +} +} +} +else +{ +uint8_t x_696; +lean_dec(x_644); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_696 = !lean_is_exclusive(x_645); +if (x_696 == 0) +{ +return x_645; +} +else +{ +lean_object* x_697; lean_object* x_698; lean_object* x_699; +x_697 = lean_ctor_get(x_645, 0); +x_698 = lean_ctor_get(x_645, 1); +lean_inc(x_698); +lean_inc(x_697); +lean_dec(x_645); +x_699 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_699, 0, x_697); +lean_ctor_set(x_699, 1, x_698); +return x_699; } } } @@ -10598,16 +10569,12 @@ l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__2 = _ lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__2); l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__3 = _init_l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__3(); lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__3); -l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4 = _init_l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4(); -lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__4); l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__1 = _init_l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__1(); lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__1); l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__2 = _init_l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__2(); lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__2); l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3 = _init_l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3(); lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3); -l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4 = _init_l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4(); -lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4); l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__1 = _init_l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__1(); lean_mark_persistent(l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__1); l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__2 = _init_l___private_Lean_Meta_RecursorInfo_3__checkMotive___closed__2(); diff --git a/stage0/stdlib/Lean/Meta/ReduceEval.c b/stage0/stdlib/Lean/Meta/ReduceEval.c new file mode 100644 index 0000000000..3c107d3c68 --- /dev/null +++ b/stage0/stdlib/Lean/Meta/ReduceEval.c @@ -0,0 +1,3475 @@ +// Lean compiler output +// Module: Lean.Meta.ReduceEval +// Imports: Init Lean.Meta.Offset +#include +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_Meta_reduceEval___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1; +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2; +lean_object* l_Lean_Meta_Nat_hasReduceEval(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppFn___main(lean_object*); +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4; +lean_object* l_Lean_Expr_appArg_x21(lean_object*); +lean_object* l_Lean_Meta_Nat_hasReduceEval___closed__3; +lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); +extern lean_object* l___private_Lean_Syntax_9__quoteOption___rarg___closed__3; +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +extern lean_object* l_Lean_Nat_HasQuote___closed__1; +lean_object* lean_nat_sub(lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_evalNat___main(lean_object*); +extern lean_object* l_Lean_String_HasQuote___closed__1; +extern lean_object* l___private_Lean_Syntax_9__quoteOption___rarg___closed__6; +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* lean_expr_dbg_to_string(lean_object*); +lean_object* l_Lean_Meta_Option_hasReduceEval___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_String_hasReduceEval(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Name_hasReduceEval___closed__1; +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Nat_hasReduceEval___closed__1; +uint8_t l_Lean_Meta_TransparencyMode_lt(uint8_t, uint8_t); +extern lean_object* l___private_Lean_Syntax_7__quoteName___main___closed__1; +extern lean_object* l___private_Lean_Syntax_7__quoteName___main___closed__2; +lean_object* l_Lean_Meta_reduceEval(lean_object*); +lean_object* l_Lean_Meta_Option_hasReduceEval(lean_object*); +lean_object* l_Lean_Meta_Name_hasReduceEval; +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3; +extern lean_object* l_Lean_mkAppStx___closed__2; +lean_object* lean_name_mk_numeral(lean_object*, lean_object*); +lean_object* l_Lean_Meta_Nat_hasReduceEval___closed__2; +lean_object* l_Lean_Meta_reduceEval___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (x_5 == 0) +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_ctor_get(x_3, 0); +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +uint8_t x_8; uint8_t x_9; uint8_t x_10; +x_8 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 6); +x_9 = 1; +x_10 = l_Lean_Meta_TransparencyMode_lt(x_8, x_9); +if (x_10 == 0) +{ +lean_object* x_11; +x_11 = lean_apply_3(x_1, x_2, x_3, x_4); +return x_11; +} +else +{ +lean_object* x_12; +lean_ctor_set_uint8(x_6, sizeof(void*)*1 + 6, x_9); +x_12 = lean_apply_3(x_1, x_2, x_3, x_4); +return x_12; +} +} +else +{ +lean_object* x_13; uint8_t x_14; uint8_t x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; uint8_t x_19; uint8_t x_20; uint8_t x_21; uint8_t x_22; +x_13 = lean_ctor_get(x_6, 0); +x_14 = lean_ctor_get_uint8(x_6, sizeof(void*)*1); +x_15 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 1); +x_16 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 2); +x_17 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 3); +x_18 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 4); +x_19 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 5); +x_20 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 6); +lean_inc(x_13); +lean_dec(x_6); +x_21 = 1; +x_22 = l_Lean_Meta_TransparencyMode_lt(x_20, x_21); +if (x_22 == 0) +{ +lean_object* x_23; lean_object* x_24; +x_23 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_23, 0, x_13); +lean_ctor_set_uint8(x_23, sizeof(void*)*1, x_14); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 1, x_15); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 2, x_16); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 3, x_17); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 4, x_18); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 5, x_19); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 6, x_20); +lean_ctor_set(x_3, 0, x_23); +x_24 = lean_apply_3(x_1, x_2, x_3, x_4); +return x_24; +} +else +{ +lean_object* x_25; lean_object* x_26; +x_25 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_25, 0, x_13); +lean_ctor_set_uint8(x_25, sizeof(void*)*1, x_14); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 1, x_15); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 2, x_16); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 3, x_17); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 4, x_18); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 5, x_19); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 6, x_21); +lean_ctor_set(x_3, 0, x_25); +x_26 = lean_apply_3(x_1, x_2, x_3, x_4); +return x_26; +} +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; uint8_t x_34; uint8_t x_35; uint8_t x_36; uint8_t x_37; uint8_t x_38; uint8_t x_39; lean_object* x_40; uint8_t x_41; uint8_t x_42; +x_27 = lean_ctor_get(x_3, 0); +x_28 = lean_ctor_get(x_3, 1); +x_29 = lean_ctor_get(x_3, 2); +x_30 = lean_ctor_get(x_3, 3); +x_31 = lean_ctor_get(x_3, 4); +lean_inc(x_31); +lean_inc(x_30); +lean_inc(x_29); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_3); +x_32 = lean_ctor_get(x_27, 0); +lean_inc(x_32); +x_33 = lean_ctor_get_uint8(x_27, sizeof(void*)*1); +x_34 = lean_ctor_get_uint8(x_27, sizeof(void*)*1 + 1); +x_35 = lean_ctor_get_uint8(x_27, sizeof(void*)*1 + 2); +x_36 = lean_ctor_get_uint8(x_27, sizeof(void*)*1 + 3); +x_37 = lean_ctor_get_uint8(x_27, sizeof(void*)*1 + 4); +x_38 = lean_ctor_get_uint8(x_27, sizeof(void*)*1 + 5); +x_39 = lean_ctor_get_uint8(x_27, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_27)) { + lean_ctor_release(x_27, 0); + x_40 = x_27; +} else { + lean_dec_ref(x_27); + x_40 = lean_box(0); +} +x_41 = 1; +x_42 = l_Lean_Meta_TransparencyMode_lt(x_39, x_41); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +if (lean_is_scalar(x_40)) { + x_43 = lean_alloc_ctor(0, 1, 7); +} else { + x_43 = x_40; +} +lean_ctor_set(x_43, 0, x_32); +lean_ctor_set_uint8(x_43, sizeof(void*)*1, x_33); +lean_ctor_set_uint8(x_43, sizeof(void*)*1 + 1, x_34); +lean_ctor_set_uint8(x_43, sizeof(void*)*1 + 2, x_35); +lean_ctor_set_uint8(x_43, sizeof(void*)*1 + 3, x_36); +lean_ctor_set_uint8(x_43, sizeof(void*)*1 + 4, x_37); +lean_ctor_set_uint8(x_43, sizeof(void*)*1 + 5, x_38); +lean_ctor_set_uint8(x_43, sizeof(void*)*1 + 6, x_39); +x_44 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_28); +lean_ctor_set(x_44, 2, x_29); +lean_ctor_set(x_44, 3, x_30); +lean_ctor_set(x_44, 4, x_31); +x_45 = lean_apply_3(x_1, x_2, x_44, x_4); +return x_45; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +if (lean_is_scalar(x_40)) { + x_46 = lean_alloc_ctor(0, 1, 7); +} else { + x_46 = x_40; +} +lean_ctor_set(x_46, 0, x_32); +lean_ctor_set_uint8(x_46, sizeof(void*)*1, x_33); +lean_ctor_set_uint8(x_46, sizeof(void*)*1 + 1, x_34); +lean_ctor_set_uint8(x_46, sizeof(void*)*1 + 2, x_35); +lean_ctor_set_uint8(x_46, sizeof(void*)*1 + 3, x_36); +lean_ctor_set_uint8(x_46, sizeof(void*)*1 + 4, x_37); +lean_ctor_set_uint8(x_46, sizeof(void*)*1 + 5, x_38); +lean_ctor_set_uint8(x_46, sizeof(void*)*1 + 6, x_41); +x_47 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_28); +lean_ctor_set(x_47, 2, x_29); +lean_ctor_set(x_47, 3, x_30); +lean_ctor_set(x_47, 4, x_31); +x_48 = lean_apply_3(x_1, x_2, x_47, x_4); +return x_48; +} +} +} +} +lean_object* l_Lean_Meta_reduceEval(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_reduceEval___rarg), 4, 0); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_Nat_hasReduceEval___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("reduceEval: failed to evaluate argument: "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Nat_hasReduceEval___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Nat_hasReduceEval___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_Meta_Nat_hasReduceEval___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Nat_hasReduceEval___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_Nat_hasReduceEval(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +x_4 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_ctor_get(x_4, 0); +x_7 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +x_8 = l_Lean_Meta_evalNat___main(x_6); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +lean_free_object(x_4); +x_9 = lean_expr_dbg_to_string(x_6); +lean_dec(x_6); +x_10 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_10, 0, x_9); +x_11 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_13 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwOther___rarg(x_13, x_14, x_2, x_7); +lean_dec(x_2); +return x_15; +} +else +{ +lean_object* x_16; +lean_dec(x_6); +lean_dec(x_2); +x_16 = lean_ctor_get(x_8, 0); +lean_inc(x_16); +lean_dec(x_8); +lean_ctor_set(x_4, 0, x_16); +return x_4; +} +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_4, 0); +x_18 = lean_ctor_get(x_4, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_4); +lean_inc(x_17); +x_19 = l_Lean_Meta_evalNat___main(x_17); +if (lean_obj_tag(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; +x_20 = lean_expr_dbg_to_string(x_17); +lean_dec(x_17); +x_21 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_21, 0, x_20); +x_22 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_22, 0, x_21); +x_23 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_24 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_22); +x_25 = lean_box(0); +x_26 = l_Lean_Meta_throwOther___rarg(x_24, x_25, x_2, x_18); +lean_dec(x_2); +return x_26; +} +else +{ +lean_object* x_27; lean_object* x_28; +lean_dec(x_17); +lean_dec(x_2); +x_27 = lean_ctor_get(x_19, 0); +lean_inc(x_27); +lean_dec(x_19); +x_28 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_18); +return x_28; +} +} +} +else +{ +uint8_t x_29; +lean_dec(x_2); +x_29 = !lean_is_exclusive(x_4); +if (x_29 == 0) +{ +return x_4; +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_4, 0); +x_31 = lean_ctor_get(x_4, 1); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_4); +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_30); +lean_ctor_set(x_32, 1, x_31); +return x_32; +} +} +} +} +lean_object* l_Lean_Meta_Option_hasReduceEval___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +x_5 = l_Lean_Meta_whnf(x_2, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +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_18; +x_7 = lean_ctor_get(x_5, 0); +x_8 = lean_ctor_get(x_5, 1); +x_18 = l_Lean_Expr_getAppFn___main(x_7); +if (lean_obj_tag(x_18) == 4) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +lean_dec(x_18); +x_20 = lean_unsigned_to_nat(0u); +x_21 = l_Lean_Expr_getAppNumArgsAux___main(x_7, x_20); +x_22 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__3; +x_23 = lean_name_eq(x_19, x_22); +if (x_23 == 0) +{ +lean_object* x_24; uint8_t x_25; +lean_free_object(x_5); +x_24 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__6; +x_25 = lean_name_eq(x_19, x_24); +lean_dec(x_19); +if (x_25 == 0) +{ +lean_object* x_26; +lean_dec(x_21); +lean_dec(x_1); +x_26 = lean_box(0); +x_9 = x_26; +goto block_17; +} +else +{ +lean_object* x_27; uint8_t x_28; +x_27 = lean_unsigned_to_nat(1u); +x_28 = lean_nat_dec_eq(x_21, x_27); +lean_dec(x_21); +if (x_28 == 0) +{ +lean_object* x_29; +lean_dec(x_1); +x_29 = lean_box(0); +x_9 = x_29; +goto block_17; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = l_Lean_Expr_appArg_x21(x_7); +lean_dec(x_7); +x_31 = l_Lean_Meta_reduceEval___rarg(x_1, x_30, x_3, x_8); +if (lean_obj_tag(x_31) == 0) +{ +uint8_t x_32; +x_32 = !lean_is_exclusive(x_31); +if (x_32 == 0) +{ +lean_object* x_33; lean_object* x_34; +x_33 = lean_ctor_get(x_31, 0); +x_34 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_31, 0, x_34); +return x_31; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_35 = lean_ctor_get(x_31, 0); +x_36 = lean_ctor_get(x_31, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_31); +x_37 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_37, 0, 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_36); +return x_38; +} +} +else +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_31); +if (x_39 == 0) +{ +return x_31; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_31, 0); +x_41 = lean_ctor_get(x_31, 1); +lean_inc(x_41); +lean_inc(x_40); +lean_dec(x_31); +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; +x_43 = lean_nat_dec_eq(x_21, x_20); +if (x_43 == 0) +{ +lean_object* x_44; uint8_t x_45; +lean_free_object(x_5); +x_44 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__6; +x_45 = lean_name_eq(x_19, x_44); +lean_dec(x_19); +if (x_45 == 0) +{ +lean_object* x_46; +lean_dec(x_21); +lean_dec(x_1); +x_46 = lean_box(0); +x_9 = x_46; +goto block_17; +} +else +{ +lean_object* x_47; uint8_t x_48; +x_47 = lean_unsigned_to_nat(1u); +x_48 = lean_nat_dec_eq(x_21, x_47); +lean_dec(x_21); +if (x_48 == 0) +{ +lean_object* x_49; +lean_dec(x_1); +x_49 = lean_box(0); +x_9 = x_49; +goto block_17; +} +else +{ +lean_object* x_50; lean_object* x_51; +x_50 = l_Lean_Expr_appArg_x21(x_7); +lean_dec(x_7); +x_51 = l_Lean_Meta_reduceEval___rarg(x_1, x_50, x_3, x_8); +if (lean_obj_tag(x_51) == 0) +{ +uint8_t x_52; +x_52 = !lean_is_exclusive(x_51); +if (x_52 == 0) +{ +lean_object* x_53; lean_object* x_54; +x_53 = lean_ctor_get(x_51, 0); +x_54 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_51, 0, x_54); +return x_51; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_55 = lean_ctor_get(x_51, 0); +x_56 = lean_ctor_get(x_51, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_51); +x_57 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_57, 0, 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_56); +return x_58; +} +} +else +{ +uint8_t x_59; +x_59 = !lean_is_exclusive(x_51); +if (x_59 == 0) +{ +return x_51; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_51, 0); +x_61 = lean_ctor_get(x_51, 1); +lean_inc(x_61); +lean_inc(x_60); +lean_dec(x_51); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +return x_62; +} +} +} +} +} +else +{ +lean_object* x_63; +lean_dec(x_21); +lean_dec(x_19); +lean_dec(x_7); +lean_dec(x_3); +lean_dec(x_1); +x_63 = lean_box(0); +lean_ctor_set(x_5, 0, x_63); +return x_5; +} +} +} +else +{ +lean_object* x_64; +lean_dec(x_18); +lean_free_object(x_5); +lean_dec(x_1); +x_64 = lean_box(0); +x_9 = x_64; +goto block_17; +} +block_17: +{ +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_dec(x_9); +x_10 = lean_expr_dbg_to_string(x_7); +lean_dec(x_7); +x_11 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_12, 0, x_11); +x_13 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_14 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_12); +x_15 = lean_box(0); +x_16 = l_Lean_Meta_throwOther___rarg(x_14, x_15, x_3, x_8); +lean_dec(x_3); +return x_16; +} +} +else +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_76; +x_65 = lean_ctor_get(x_5, 0); +x_66 = lean_ctor_get(x_5, 1); +lean_inc(x_66); +lean_inc(x_65); +lean_dec(x_5); +x_76 = l_Lean_Expr_getAppFn___main(x_65); +if (lean_obj_tag(x_76) == 4) +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; +x_77 = lean_ctor_get(x_76, 0); +lean_inc(x_77); +lean_dec(x_76); +x_78 = lean_unsigned_to_nat(0u); +x_79 = l_Lean_Expr_getAppNumArgsAux___main(x_65, x_78); +x_80 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__3; +x_81 = lean_name_eq(x_77, x_80); +if (x_81 == 0) +{ +lean_object* x_82; uint8_t x_83; +x_82 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__6; +x_83 = lean_name_eq(x_77, x_82); +lean_dec(x_77); +if (x_83 == 0) +{ +lean_object* x_84; +lean_dec(x_79); +lean_dec(x_1); +x_84 = lean_box(0); +x_67 = x_84; +goto block_75; +} +else +{ +lean_object* x_85; uint8_t x_86; +x_85 = lean_unsigned_to_nat(1u); +x_86 = lean_nat_dec_eq(x_79, x_85); +lean_dec(x_79); +if (x_86 == 0) +{ +lean_object* x_87; +lean_dec(x_1); +x_87 = lean_box(0); +x_67 = x_87; +goto block_75; +} +else +{ +lean_object* x_88; lean_object* x_89; +x_88 = l_Lean_Expr_appArg_x21(x_65); +lean_dec(x_65); +x_89 = l_Lean_Meta_reduceEval___rarg(x_1, x_88, x_3, x_66); +if (lean_obj_tag(x_89) == 0) +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_90 = lean_ctor_get(x_89, 0); +lean_inc(x_90); +x_91 = lean_ctor_get(x_89, 1); +lean_inc(x_91); +if (lean_is_exclusive(x_89)) { + lean_ctor_release(x_89, 0); + lean_ctor_release(x_89, 1); + x_92 = x_89; +} else { + lean_dec_ref(x_89); + x_92 = lean_box(0); +} +x_93 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_93, 0, x_90); +if (lean_is_scalar(x_92)) { + x_94 = lean_alloc_ctor(0, 2, 0); +} else { + x_94 = x_92; +} +lean_ctor_set(x_94, 0, x_93); +lean_ctor_set(x_94, 1, x_91); +return x_94; +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_95 = lean_ctor_get(x_89, 0); +lean_inc(x_95); +x_96 = lean_ctor_get(x_89, 1); +lean_inc(x_96); +if (lean_is_exclusive(x_89)) { + lean_ctor_release(x_89, 0); + lean_ctor_release(x_89, 1); + x_97 = x_89; +} else { + lean_dec_ref(x_89); + 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; +} +} +} +} +else +{ +uint8_t x_99; +x_99 = lean_nat_dec_eq(x_79, x_78); +if (x_99 == 0) +{ +lean_object* x_100; uint8_t x_101; +x_100 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__6; +x_101 = lean_name_eq(x_77, x_100); +lean_dec(x_77); +if (x_101 == 0) +{ +lean_object* x_102; +lean_dec(x_79); +lean_dec(x_1); +x_102 = lean_box(0); +x_67 = x_102; +goto block_75; +} +else +{ +lean_object* x_103; uint8_t x_104; +x_103 = lean_unsigned_to_nat(1u); +x_104 = lean_nat_dec_eq(x_79, x_103); +lean_dec(x_79); +if (x_104 == 0) +{ +lean_object* x_105; +lean_dec(x_1); +x_105 = lean_box(0); +x_67 = x_105; +goto block_75; +} +else +{ +lean_object* x_106; lean_object* x_107; +x_106 = l_Lean_Expr_appArg_x21(x_65); +lean_dec(x_65); +x_107 = l_Lean_Meta_reduceEval___rarg(x_1, x_106, x_3, x_66); +if (lean_obj_tag(x_107) == 0) +{ +lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; +x_108 = lean_ctor_get(x_107, 0); +lean_inc(x_108); +x_109 = lean_ctor_get(x_107, 1); +lean_inc(x_109); +if (lean_is_exclusive(x_107)) { + lean_ctor_release(x_107, 0); + lean_ctor_release(x_107, 1); + x_110 = x_107; +} else { + lean_dec_ref(x_107); + x_110 = lean_box(0); +} +x_111 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_111, 0, x_108); +if (lean_is_scalar(x_110)) { + x_112 = lean_alloc_ctor(0, 2, 0); +} else { + x_112 = x_110; +} +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_109); +return x_112; +} +else +{ +lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; +x_113 = lean_ctor_get(x_107, 0); +lean_inc(x_113); +x_114 = lean_ctor_get(x_107, 1); +lean_inc(x_114); +if (lean_is_exclusive(x_107)) { + lean_ctor_release(x_107, 0); + lean_ctor_release(x_107, 1); + x_115 = x_107; +} else { + lean_dec_ref(x_107); + x_115 = lean_box(0); +} +if (lean_is_scalar(x_115)) { + x_116 = lean_alloc_ctor(1, 2, 0); +} else { + x_116 = x_115; +} +lean_ctor_set(x_116, 0, x_113); +lean_ctor_set(x_116, 1, x_114); +return x_116; +} +} +} +} +else +{ +lean_object* x_117; lean_object* x_118; +lean_dec(x_79); +lean_dec(x_77); +lean_dec(x_65); +lean_dec(x_3); +lean_dec(x_1); +x_117 = lean_box(0); +x_118 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_66); +return x_118; +} +} +} +else +{ +lean_object* x_119; +lean_dec(x_76); +lean_dec(x_1); +x_119 = lean_box(0); +x_67 = x_119; +goto block_75; +} +block_75: +{ +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_dec(x_67); +x_68 = lean_expr_dbg_to_string(x_65); +lean_dec(x_65); +x_69 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_69, 0, x_68); +x_70 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_70, 0, x_69); +x_71 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_72 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_72, 0, x_71); +lean_ctor_set(x_72, 1, x_70); +x_73 = lean_box(0); +x_74 = l_Lean_Meta_throwOther___rarg(x_72, x_73, x_3, x_66); +lean_dec(x_3); +return x_74; +} +} +} +else +{ +uint8_t x_120; +lean_dec(x_3); +lean_dec(x_1); +x_120 = !lean_is_exclusive(x_5); +if (x_120 == 0) +{ +return x_5; +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_121 = lean_ctor_get(x_5, 0); +x_122 = lean_ctor_get(x_5, 1); +lean_inc(x_122); +lean_inc(x_121); +lean_dec(x_5); +x_123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_123, 0, x_121); +lean_ctor_set(x_123, 1, x_122); +return x_123; +} +} +} +} +lean_object* l_Lean_Meta_Option_hasReduceEval(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_Option_hasReduceEval___rarg), 4, 0); +return x_2; +} +} +lean_object* l_Lean_Meta_String_hasReduceEval(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +lean_inc(x_1); +x_4 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_ctor_get(x_4, 0); +x_7 = lean_ctor_get(x_4, 1); +if (lean_obj_tag(x_6) == 9) +{ +lean_object* x_17; +x_17 = lean_ctor_get(x_6, 0); +lean_inc(x_17); +lean_dec(x_6); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; +lean_dec(x_17); +lean_free_object(x_4); +x_18 = lean_box(0); +x_8 = x_18; +goto block_16; +} +else +{ +lean_object* x_19; +lean_dec(x_2); +lean_dec(x_1); +x_19 = lean_ctor_get(x_17, 0); +lean_inc(x_19); +lean_dec(x_17); +lean_ctor_set(x_4, 0, x_19); +return x_4; +} +} +else +{ +lean_object* x_20; +lean_free_object(x_4); +lean_dec(x_6); +x_20 = lean_box(0); +x_8 = x_20; +goto block_16; +} +block_16: +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +lean_dec(x_8); +x_9 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_10 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_10, 0, x_9); +x_11 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_13 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwOther___rarg(x_13, x_14, x_2, x_7); +lean_dec(x_2); +return x_15; +} +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_4, 0); +x_22 = lean_ctor_get(x_4, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_4); +if (lean_obj_tag(x_21) == 9) +{ +lean_object* x_32; +x_32 = lean_ctor_get(x_21, 0); +lean_inc(x_32); +lean_dec(x_21); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; +lean_dec(x_32); +x_33 = lean_box(0); +x_23 = x_33; +goto block_31; +} +else +{ +lean_object* x_34; lean_object* x_35; +lean_dec(x_2); +lean_dec(x_1); +x_34 = lean_ctor_get(x_32, 0); +lean_inc(x_34); +lean_dec(x_32); +x_35 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_22); +return x_35; +} +} +else +{ +lean_object* x_36; +lean_dec(x_21); +x_36 = lean_box(0); +x_23 = x_36; +goto block_31; +} +block_31: +{ +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_dec(x_23); +x_24 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_25 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_25, 0, x_24); +x_26 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_26, 0, x_25); +x_27 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_28 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +x_29 = lean_box(0); +x_30 = l_Lean_Meta_throwOther___rarg(x_28, x_29, x_2, x_22); +lean_dec(x_2); +return x_30; +} +} +} +else +{ +uint8_t x_37; +lean_dec(x_2); +lean_dec(x_1); +x_37 = !lean_is_exclusive(x_4); +if (x_37 == 0) +{ +return x_4; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_4, 0); +x_39 = lean_ctor_get(x_4, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_4); +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; +} +} +} +} +lean_object* l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_ctor_get(x_2, 0); +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +uint8_t x_7; uint8_t x_8; uint8_t x_9; +x_7 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +x_8 = 1; +x_9 = l_Lean_Meta_TransparencyMode_lt(x_7, x_8); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_2); +x_10 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_10) == 0) +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_10, 0); +x_13 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +x_14 = l_Lean_Meta_evalNat___main(x_12); +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; lean_object* x_21; +lean_free_object(x_10); +x_15 = lean_expr_dbg_to_string(x_12); +lean_dec(x_12); +x_16 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_16, 0, x_15); +x_17 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_17, 0, x_16); +x_18 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_19 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +x_20 = lean_box(0); +x_21 = l_Lean_Meta_throwOther___rarg(x_19, x_20, x_2, x_13); +lean_dec(x_2); +return x_21; +} +else +{ +lean_object* x_22; +lean_dec(x_12); +lean_dec(x_2); +x_22 = lean_ctor_get(x_14, 0); +lean_inc(x_22); +lean_dec(x_14); +lean_ctor_set(x_10, 0, x_22); +return x_10; +} +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_10, 0); +x_24 = lean_ctor_get(x_10, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_10); +lean_inc(x_23); +x_25 = l_Lean_Meta_evalNat___main(x_23); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_26 = lean_expr_dbg_to_string(x_23); +lean_dec(x_23); +x_27 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_27, 0, x_26); +x_28 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_28, 0, x_27); +x_29 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_30 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_28); +x_31 = lean_box(0); +x_32 = l_Lean_Meta_throwOther___rarg(x_30, x_31, x_2, x_24); +lean_dec(x_2); +return x_32; +} +else +{ +lean_object* x_33; lean_object* x_34; +lean_dec(x_23); +lean_dec(x_2); +x_33 = lean_ctor_get(x_25, 0); +lean_inc(x_33); +lean_dec(x_25); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_24); +return x_34; +} +} +} +else +{ +uint8_t x_35; +lean_dec(x_2); +x_35 = !lean_is_exclusive(x_10); +if (x_35 == 0) +{ +return x_10; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_10, 0); +x_37 = lean_ctor_get(x_10, 1); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_10); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +return x_38; +} +} +} +else +{ +lean_object* x_39; +lean_ctor_set_uint8(x_5, sizeof(void*)*1 + 6, x_8); +lean_inc(x_2); +x_39 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_39) == 0) +{ +uint8_t x_40; +x_40 = !lean_is_exclusive(x_39); +if (x_40 == 0) +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_39, 0); +x_42 = lean_ctor_get(x_39, 1); +lean_inc(x_41); +x_43 = l_Lean_Meta_evalNat___main(x_41); +if (lean_obj_tag(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_free_object(x_39); +x_44 = lean_expr_dbg_to_string(x_41); +lean_dec(x_41); +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); +x_47 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_48 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_46); +x_49 = lean_box(0); +x_50 = l_Lean_Meta_throwOther___rarg(x_48, x_49, x_2, x_42); +lean_dec(x_2); +return x_50; +} +else +{ +lean_object* x_51; +lean_dec(x_41); +lean_dec(x_2); +x_51 = lean_ctor_get(x_43, 0); +lean_inc(x_51); +lean_dec(x_43); +lean_ctor_set(x_39, 0, x_51); +return x_39; +} +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_39, 0); +x_53 = lean_ctor_get(x_39, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_39); +lean_inc(x_52); +x_54 = l_Lean_Meta_evalNat___main(x_52); +if (lean_obj_tag(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_expr_dbg_to_string(x_52); +lean_dec(x_52); +x_56 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_56, 0, x_55); +x_57 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_57, 0, x_56); +x_58 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_59 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_59, 0, x_58); +lean_ctor_set(x_59, 1, x_57); +x_60 = lean_box(0); +x_61 = l_Lean_Meta_throwOther___rarg(x_59, x_60, x_2, x_53); +lean_dec(x_2); +return x_61; +} +else +{ +lean_object* x_62; lean_object* x_63; +lean_dec(x_52); +lean_dec(x_2); +x_62 = lean_ctor_get(x_54, 0); +lean_inc(x_62); +lean_dec(x_54); +x_63 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_53); +return x_63; +} +} +} +else +{ +uint8_t x_64; +lean_dec(x_2); +x_64 = !lean_is_exclusive(x_39); +if (x_64 == 0) +{ +return x_39; +} +else +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_65 = lean_ctor_get(x_39, 0); +x_66 = lean_ctor_get(x_39, 1); +lean_inc(x_66); +lean_inc(x_65); +lean_dec(x_39); +x_67 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_67, 0, x_65); +lean_ctor_set(x_67, 1, x_66); +return x_67; +} +} +} +} +else +{ +lean_object* x_68; uint8_t x_69; uint8_t x_70; uint8_t x_71; uint8_t x_72; uint8_t x_73; uint8_t x_74; uint8_t x_75; uint8_t x_76; uint8_t x_77; +x_68 = lean_ctor_get(x_5, 0); +x_69 = lean_ctor_get_uint8(x_5, sizeof(void*)*1); +x_70 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 1); +x_71 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 2); +x_72 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 3); +x_73 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 4); +x_74 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 5); +x_75 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +lean_inc(x_68); +lean_dec(x_5); +x_76 = 1; +x_77 = l_Lean_Meta_TransparencyMode_lt(x_75, x_76); +if (x_77 == 0) +{ +lean_object* x_78; lean_object* x_79; +x_78 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_78, 0, x_68); +lean_ctor_set_uint8(x_78, sizeof(void*)*1, x_69); +lean_ctor_set_uint8(x_78, sizeof(void*)*1 + 1, x_70); +lean_ctor_set_uint8(x_78, sizeof(void*)*1 + 2, x_71); +lean_ctor_set_uint8(x_78, sizeof(void*)*1 + 3, x_72); +lean_ctor_set_uint8(x_78, sizeof(void*)*1 + 4, x_73); +lean_ctor_set_uint8(x_78, sizeof(void*)*1 + 5, x_74); +lean_ctor_set_uint8(x_78, sizeof(void*)*1 + 6, x_75); +lean_ctor_set(x_2, 0, x_78); +lean_inc(x_2); +x_79 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_79) == 0) +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_80 = lean_ctor_get(x_79, 0); +lean_inc(x_80); +x_81 = lean_ctor_get(x_79, 1); +lean_inc(x_81); +if (lean_is_exclusive(x_79)) { + lean_ctor_release(x_79, 0); + lean_ctor_release(x_79, 1); + x_82 = x_79; +} else { + lean_dec_ref(x_79); + x_82 = lean_box(0); +} +lean_inc(x_80); +x_83 = l_Lean_Meta_evalNat___main(x_80); +if (lean_obj_tag(x_83) == 0) +{ +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_dec(x_82); +x_84 = lean_expr_dbg_to_string(x_80); +lean_dec(x_80); +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); +x_87 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_88 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_86); +x_89 = lean_box(0); +x_90 = l_Lean_Meta_throwOther___rarg(x_88, x_89, x_2, x_81); +lean_dec(x_2); +return x_90; +} +else +{ +lean_object* x_91; lean_object* x_92; +lean_dec(x_80); +lean_dec(x_2); +x_91 = lean_ctor_get(x_83, 0); +lean_inc(x_91); +lean_dec(x_83); +if (lean_is_scalar(x_82)) { + x_92 = lean_alloc_ctor(0, 2, 0); +} else { + x_92 = x_82; +} +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_81); +return x_92; +} +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; +lean_dec(x_2); +x_93 = lean_ctor_get(x_79, 0); +lean_inc(x_93); +x_94 = lean_ctor_get(x_79, 1); +lean_inc(x_94); +if (lean_is_exclusive(x_79)) { + lean_ctor_release(x_79, 0); + lean_ctor_release(x_79, 1); + x_95 = x_79; +} else { + lean_dec_ref(x_79); + x_95 = lean_box(0); +} +if (lean_is_scalar(x_95)) { + x_96 = lean_alloc_ctor(1, 2, 0); +} else { + x_96 = x_95; +} +lean_ctor_set(x_96, 0, x_93); +lean_ctor_set(x_96, 1, x_94); +return x_96; +} +} +else +{ +lean_object* x_97; lean_object* x_98; +x_97 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_97, 0, x_68); +lean_ctor_set_uint8(x_97, sizeof(void*)*1, x_69); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 1, x_70); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 2, x_71); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 3, x_72); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 4, x_73); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 5, x_74); +lean_ctor_set_uint8(x_97, sizeof(void*)*1 + 6, x_76); +lean_ctor_set(x_2, 0, x_97); +lean_inc(x_2); +x_98 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_98) == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; +x_99 = lean_ctor_get(x_98, 0); +lean_inc(x_99); +x_100 = lean_ctor_get(x_98, 1); +lean_inc(x_100); +if (lean_is_exclusive(x_98)) { + lean_ctor_release(x_98, 0); + lean_ctor_release(x_98, 1); + x_101 = x_98; +} else { + lean_dec_ref(x_98); + x_101 = lean_box(0); +} +lean_inc(x_99); +x_102 = l_Lean_Meta_evalNat___main(x_99); +if (lean_obj_tag(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_dec(x_101); +x_103 = lean_expr_dbg_to_string(x_99); +lean_dec(x_99); +x_104 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_104, 0, x_103); +x_105 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_105, 0, x_104); +x_106 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_107 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_107, 0, x_106); +lean_ctor_set(x_107, 1, x_105); +x_108 = lean_box(0); +x_109 = l_Lean_Meta_throwOther___rarg(x_107, x_108, x_2, x_100); +lean_dec(x_2); +return x_109; +} +else +{ +lean_object* x_110; lean_object* x_111; +lean_dec(x_99); +lean_dec(x_2); +x_110 = lean_ctor_get(x_102, 0); +lean_inc(x_110); +lean_dec(x_102); +if (lean_is_scalar(x_101)) { + x_111 = lean_alloc_ctor(0, 2, 0); +} else { + x_111 = x_101; +} +lean_ctor_set(x_111, 0, x_110); +lean_ctor_set(x_111, 1, x_100); +return x_111; +} +} +else +{ +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; +lean_dec(x_2); +x_112 = lean_ctor_get(x_98, 0); +lean_inc(x_112); +x_113 = lean_ctor_get(x_98, 1); +lean_inc(x_113); +if (lean_is_exclusive(x_98)) { + lean_ctor_release(x_98, 0); + lean_ctor_release(x_98, 1); + x_114 = x_98; +} else { + lean_dec_ref(x_98); + x_114 = lean_box(0); +} +if (lean_is_scalar(x_114)) { + x_115 = lean_alloc_ctor(1, 2, 0); +} else { + x_115 = x_114; +} +lean_ctor_set(x_115, 0, x_112); +lean_ctor_set(x_115, 1, x_113); +return x_115; +} +} +} +} +else +{ +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; uint8_t x_123; uint8_t x_124; uint8_t x_125; uint8_t x_126; uint8_t x_127; uint8_t x_128; lean_object* x_129; uint8_t x_130; uint8_t x_131; +x_116 = lean_ctor_get(x_2, 0); +x_117 = lean_ctor_get(x_2, 1); +x_118 = lean_ctor_get(x_2, 2); +x_119 = lean_ctor_get(x_2, 3); +x_120 = lean_ctor_get(x_2, 4); +lean_inc(x_120); +lean_inc(x_119); +lean_inc(x_118); +lean_inc(x_117); +lean_inc(x_116); +lean_dec(x_2); +x_121 = lean_ctor_get(x_116, 0); +lean_inc(x_121); +x_122 = lean_ctor_get_uint8(x_116, sizeof(void*)*1); +x_123 = lean_ctor_get_uint8(x_116, sizeof(void*)*1 + 1); +x_124 = lean_ctor_get_uint8(x_116, sizeof(void*)*1 + 2); +x_125 = lean_ctor_get_uint8(x_116, sizeof(void*)*1 + 3); +x_126 = lean_ctor_get_uint8(x_116, sizeof(void*)*1 + 4); +x_127 = lean_ctor_get_uint8(x_116, sizeof(void*)*1 + 5); +x_128 = lean_ctor_get_uint8(x_116, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_116)) { + lean_ctor_release(x_116, 0); + x_129 = x_116; +} else { + lean_dec_ref(x_116); + x_129 = lean_box(0); +} +x_130 = 1; +x_131 = l_Lean_Meta_TransparencyMode_lt(x_128, x_130); +if (x_131 == 0) +{ +lean_object* x_132; lean_object* x_133; lean_object* x_134; +if (lean_is_scalar(x_129)) { + x_132 = lean_alloc_ctor(0, 1, 7); +} else { + x_132 = x_129; +} +lean_ctor_set(x_132, 0, x_121); +lean_ctor_set_uint8(x_132, sizeof(void*)*1, x_122); +lean_ctor_set_uint8(x_132, sizeof(void*)*1 + 1, x_123); +lean_ctor_set_uint8(x_132, sizeof(void*)*1 + 2, x_124); +lean_ctor_set_uint8(x_132, sizeof(void*)*1 + 3, x_125); +lean_ctor_set_uint8(x_132, sizeof(void*)*1 + 4, x_126); +lean_ctor_set_uint8(x_132, sizeof(void*)*1 + 5, x_127); +lean_ctor_set_uint8(x_132, sizeof(void*)*1 + 6, x_128); +x_133 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_117); +lean_ctor_set(x_133, 2, x_118); +lean_ctor_set(x_133, 3, x_119); +lean_ctor_set(x_133, 4, x_120); +lean_inc(x_133); +x_134 = l_Lean_Meta_whnf(x_1, x_133, x_3); +if (lean_obj_tag(x_134) == 0) +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; +x_135 = lean_ctor_get(x_134, 0); +lean_inc(x_135); +x_136 = lean_ctor_get(x_134, 1); +lean_inc(x_136); +if (lean_is_exclusive(x_134)) { + lean_ctor_release(x_134, 0); + lean_ctor_release(x_134, 1); + x_137 = x_134; +} else { + lean_dec_ref(x_134); + x_137 = lean_box(0); +} +lean_inc(x_135); +x_138 = l_Lean_Meta_evalNat___main(x_135); +if (lean_obj_tag(x_138) == 0) +{ +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_dec(x_137); +x_139 = lean_expr_dbg_to_string(x_135); +lean_dec(x_135); +x_140 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_140, 0, x_139); +x_141 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_141, 0, x_140); +x_142 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_143 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_143, 0, x_142); +lean_ctor_set(x_143, 1, x_141); +x_144 = lean_box(0); +x_145 = l_Lean_Meta_throwOther___rarg(x_143, x_144, x_133, x_136); +lean_dec(x_133); +return x_145; +} +else +{ +lean_object* x_146; lean_object* x_147; +lean_dec(x_135); +lean_dec(x_133); +x_146 = lean_ctor_get(x_138, 0); +lean_inc(x_146); +lean_dec(x_138); +if (lean_is_scalar(x_137)) { + x_147 = lean_alloc_ctor(0, 2, 0); +} else { + x_147 = x_137; +} +lean_ctor_set(x_147, 0, x_146); +lean_ctor_set(x_147, 1, x_136); +return x_147; +} +} +else +{ +lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; +lean_dec(x_133); +x_148 = lean_ctor_get(x_134, 0); +lean_inc(x_148); +x_149 = lean_ctor_get(x_134, 1); +lean_inc(x_149); +if (lean_is_exclusive(x_134)) { + lean_ctor_release(x_134, 0); + lean_ctor_release(x_134, 1); + x_150 = x_134; +} else { + lean_dec_ref(x_134); + x_150 = lean_box(0); +} +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 2, 0); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_148); +lean_ctor_set(x_151, 1, x_149); +return x_151; +} +} +else +{ +lean_object* x_152; lean_object* x_153; lean_object* x_154; +if (lean_is_scalar(x_129)) { + x_152 = lean_alloc_ctor(0, 1, 7); +} else { + x_152 = x_129; +} +lean_ctor_set(x_152, 0, x_121); +lean_ctor_set_uint8(x_152, sizeof(void*)*1, x_122); +lean_ctor_set_uint8(x_152, sizeof(void*)*1 + 1, x_123); +lean_ctor_set_uint8(x_152, sizeof(void*)*1 + 2, x_124); +lean_ctor_set_uint8(x_152, sizeof(void*)*1 + 3, x_125); +lean_ctor_set_uint8(x_152, sizeof(void*)*1 + 4, x_126); +lean_ctor_set_uint8(x_152, sizeof(void*)*1 + 5, x_127); +lean_ctor_set_uint8(x_152, sizeof(void*)*1 + 6, x_130); +x_153 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_153, 0, x_152); +lean_ctor_set(x_153, 1, x_117); +lean_ctor_set(x_153, 2, x_118); +lean_ctor_set(x_153, 3, x_119); +lean_ctor_set(x_153, 4, x_120); +lean_inc(x_153); +x_154 = l_Lean_Meta_whnf(x_1, x_153, x_3); +if (lean_obj_tag(x_154) == 0) +{ +lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; +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); +} +lean_inc(x_155); +x_158 = l_Lean_Meta_evalNat___main(x_155); +if (lean_obj_tag(x_158) == 0) +{ +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_dec(x_157); +x_159 = lean_expr_dbg_to_string(x_155); +lean_dec(x_155); +x_160 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_160, 0, x_159); +x_161 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_161, 0, x_160); +x_162 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_163 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_163, 0, x_162); +lean_ctor_set(x_163, 1, x_161); +x_164 = lean_box(0); +x_165 = l_Lean_Meta_throwOther___rarg(x_163, x_164, x_153, x_156); +lean_dec(x_153); +return x_165; +} +else +{ +lean_object* x_166; lean_object* x_167; +lean_dec(x_155); +lean_dec(x_153); +x_166 = lean_ctor_get(x_158, 0); +lean_inc(x_166); +lean_dec(x_158); +if (lean_is_scalar(x_157)) { + x_167 = lean_alloc_ctor(0, 2, 0); +} else { + x_167 = x_157; +} +lean_ctor_set(x_167, 0, x_166); +lean_ctor_set(x_167, 1, x_156); +return x_167; +} +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; +lean_dec(x_153); +x_168 = lean_ctor_get(x_154, 0); +lean_inc(x_168); +x_169 = lean_ctor_get(x_154, 1); +lean_inc(x_169); +if (lean_is_exclusive(x_154)) { + lean_ctor_release(x_154, 0); + lean_ctor_release(x_154, 1); + x_170 = x_154; +} else { + lean_dec_ref(x_154); + x_170 = lean_box(0); +} +if (lean_is_scalar(x_170)) { + x_171 = lean_alloc_ctor(1, 2, 0); +} else { + x_171 = x_170; +} +lean_ctor_set(x_171, 0, x_168); +lean_ctor_set(x_171, 1, x_169); +return x_171; +} +} +} +} +} +lean_object* l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_ctor_get(x_2, 0); +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +uint8_t x_7; uint8_t x_8; uint8_t x_9; +x_7 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +x_8 = 1; +x_9 = l_Lean_Meta_TransparencyMode_lt(x_7, x_8); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_2); +lean_inc(x_1); +x_10 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_10) == 0) +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_10, 0); +x_13 = lean_ctor_get(x_10, 1); +if (lean_obj_tag(x_12) == 9) +{ +lean_object* x_23; +x_23 = lean_ctor_get(x_12, 0); +lean_inc(x_23); +lean_dec(x_12); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_24; +lean_dec(x_23); +lean_free_object(x_10); +x_24 = lean_box(0); +x_14 = x_24; +goto block_22; +} +else +{ +lean_object* x_25; +lean_dec(x_2); +lean_dec(x_1); +x_25 = lean_ctor_get(x_23, 0); +lean_inc(x_25); +lean_dec(x_23); +lean_ctor_set(x_10, 0, x_25); +return x_10; +} +} +else +{ +lean_object* x_26; +lean_free_object(x_10); +lean_dec(x_12); +x_26 = lean_box(0); +x_14 = x_26; +goto block_22; +} +block_22: +{ +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_dec(x_14); +x_15 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_16 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_16, 0, x_15); +x_17 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_17, 0, x_16); +x_18 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_19 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +x_20 = lean_box(0); +x_21 = l_Lean_Meta_throwOther___rarg(x_19, x_20, x_2, x_13); +lean_dec(x_2); +return x_21; +} +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_10, 0); +x_28 = lean_ctor_get(x_10, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_10); +if (lean_obj_tag(x_27) == 9) +{ +lean_object* x_38; +x_38 = lean_ctor_get(x_27, 0); +lean_inc(x_38); +lean_dec(x_27); +if (lean_obj_tag(x_38) == 0) +{ +lean_object* x_39; +lean_dec(x_38); +x_39 = lean_box(0); +x_29 = x_39; +goto block_37; +} +else +{ +lean_object* x_40; lean_object* x_41; +lean_dec(x_2); +lean_dec(x_1); +x_40 = lean_ctor_get(x_38, 0); +lean_inc(x_40); +lean_dec(x_38); +x_41 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_28); +return x_41; +} +} +else +{ +lean_object* x_42; +lean_dec(x_27); +x_42 = lean_box(0); +x_29 = x_42; +goto block_37; +} +block_37: +{ +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_dec(x_29); +x_30 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_31 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_31, 0, x_30); +x_32 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_32, 0, x_31); +x_33 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_34 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = lean_box(0); +x_36 = l_Lean_Meta_throwOther___rarg(x_34, x_35, x_2, x_28); +lean_dec(x_2); +return x_36; +} +} +} +else +{ +uint8_t x_43; +lean_dec(x_2); +lean_dec(x_1); +x_43 = !lean_is_exclusive(x_10); +if (x_43 == 0) +{ +return x_10; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_10, 0); +x_45 = lean_ctor_get(x_10, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_10); +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 +{ +lean_object* x_47; +lean_ctor_set_uint8(x_5, sizeof(void*)*1 + 6, x_8); +lean_inc(x_2); +lean_inc(x_1); +x_47 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_47) == 0) +{ +uint8_t x_48; +x_48 = !lean_is_exclusive(x_47); +if (x_48 == 0) +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_49 = lean_ctor_get(x_47, 0); +x_50 = lean_ctor_get(x_47, 1); +if (lean_obj_tag(x_49) == 9) +{ +lean_object* x_60; +x_60 = lean_ctor_get(x_49, 0); +lean_inc(x_60); +lean_dec(x_49); +if (lean_obj_tag(x_60) == 0) +{ +lean_object* x_61; +lean_dec(x_60); +lean_free_object(x_47); +x_61 = lean_box(0); +x_51 = x_61; +goto block_59; +} +else +{ +lean_object* x_62; +lean_dec(x_2); +lean_dec(x_1); +x_62 = lean_ctor_get(x_60, 0); +lean_inc(x_62); +lean_dec(x_60); +lean_ctor_set(x_47, 0, x_62); +return x_47; +} +} +else +{ +lean_object* x_63; +lean_free_object(x_47); +lean_dec(x_49); +x_63 = lean_box(0); +x_51 = x_63; +goto block_59; +} +block_59: +{ +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_dec(x_51); +x_52 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_53 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_53, 0, x_52); +x_54 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_54, 0, x_53); +x_55 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_56 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_54); +x_57 = lean_box(0); +x_58 = l_Lean_Meta_throwOther___rarg(x_56, x_57, x_2, x_50); +lean_dec(x_2); +return x_58; +} +} +else +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_64 = lean_ctor_get(x_47, 0); +x_65 = lean_ctor_get(x_47, 1); +lean_inc(x_65); +lean_inc(x_64); +lean_dec(x_47); +if (lean_obj_tag(x_64) == 9) +{ +lean_object* x_75; +x_75 = lean_ctor_get(x_64, 0); +lean_inc(x_75); +lean_dec(x_64); +if (lean_obj_tag(x_75) == 0) +{ +lean_object* x_76; +lean_dec(x_75); +x_76 = lean_box(0); +x_66 = x_76; +goto block_74; +} +else +{ +lean_object* x_77; lean_object* x_78; +lean_dec(x_2); +lean_dec(x_1); +x_77 = lean_ctor_get(x_75, 0); +lean_inc(x_77); +lean_dec(x_75); +x_78 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_65); +return x_78; +} +} +else +{ +lean_object* x_79; +lean_dec(x_64); +x_79 = lean_box(0); +x_66 = x_79; +goto block_74; +} +block_74: +{ +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_dec(x_66); +x_67 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_68 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_68, 0, x_67); +x_69 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_69, 0, x_68); +x_70 = l_Lean_Meta_Nat_hasReduceEval___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 = lean_box(0); +x_73 = l_Lean_Meta_throwOther___rarg(x_71, x_72, x_2, x_65); +lean_dec(x_2); +return x_73; +} +} +} +else +{ +uint8_t x_80; +lean_dec(x_2); +lean_dec(x_1); +x_80 = !lean_is_exclusive(x_47); +if (x_80 == 0) +{ +return x_47; +} +else +{ +lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_47, 0); +x_82 = lean_ctor_get(x_47, 1); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_47); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +return x_83; +} +} +} +} +else +{ +lean_object* x_84; uint8_t x_85; uint8_t x_86; uint8_t x_87; uint8_t x_88; uint8_t x_89; uint8_t x_90; uint8_t x_91; uint8_t x_92; uint8_t x_93; +x_84 = lean_ctor_get(x_5, 0); +x_85 = lean_ctor_get_uint8(x_5, sizeof(void*)*1); +x_86 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 1); +x_87 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 2); +x_88 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 3); +x_89 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 4); +x_90 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 5); +x_91 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +lean_inc(x_84); +lean_dec(x_5); +x_92 = 1; +x_93 = l_Lean_Meta_TransparencyMode_lt(x_91, x_92); +if (x_93 == 0) +{ +lean_object* x_94; lean_object* x_95; +x_94 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_94, 0, x_84); +lean_ctor_set_uint8(x_94, sizeof(void*)*1, x_85); +lean_ctor_set_uint8(x_94, sizeof(void*)*1 + 1, x_86); +lean_ctor_set_uint8(x_94, sizeof(void*)*1 + 2, x_87); +lean_ctor_set_uint8(x_94, sizeof(void*)*1 + 3, x_88); +lean_ctor_set_uint8(x_94, sizeof(void*)*1 + 4, x_89); +lean_ctor_set_uint8(x_94, sizeof(void*)*1 + 5, x_90); +lean_ctor_set_uint8(x_94, sizeof(void*)*1 + 6, x_91); +lean_ctor_set(x_2, 0, x_94); +lean_inc(x_2); +lean_inc(x_1); +x_95 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_95) == 0) +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; +x_96 = lean_ctor_get(x_95, 0); +lean_inc(x_96); +x_97 = lean_ctor_get(x_95, 1); +lean_inc(x_97); +if (lean_is_exclusive(x_95)) { + lean_ctor_release(x_95, 0); + lean_ctor_release(x_95, 1); + x_98 = x_95; +} else { + lean_dec_ref(x_95); + x_98 = lean_box(0); +} +if (lean_obj_tag(x_96) == 9) +{ +lean_object* x_108; +x_108 = lean_ctor_get(x_96, 0); +lean_inc(x_108); +lean_dec(x_96); +if (lean_obj_tag(x_108) == 0) +{ +lean_object* x_109; +lean_dec(x_108); +lean_dec(x_98); +x_109 = lean_box(0); +x_99 = x_109; +goto block_107; +} +else +{ +lean_object* x_110; lean_object* x_111; +lean_dec(x_2); +lean_dec(x_1); +x_110 = lean_ctor_get(x_108, 0); +lean_inc(x_110); +lean_dec(x_108); +if (lean_is_scalar(x_98)) { + x_111 = lean_alloc_ctor(0, 2, 0); +} else { + x_111 = x_98; +} +lean_ctor_set(x_111, 0, x_110); +lean_ctor_set(x_111, 1, x_97); +return x_111; +} +} +else +{ +lean_object* x_112; +lean_dec(x_98); +lean_dec(x_96); +x_112 = lean_box(0); +x_99 = x_112; +goto block_107; +} +block_107: +{ +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_dec(x_99); +x_100 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_101 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_101, 0, x_100); +x_102 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_102, 0, x_101); +x_103 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_104 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_102); +x_105 = lean_box(0); +x_106 = l_Lean_Meta_throwOther___rarg(x_104, x_105, x_2, x_97); +lean_dec(x_2); +return x_106; +} +} +else +{ +lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; +lean_dec(x_2); +lean_dec(x_1); +x_113 = lean_ctor_get(x_95, 0); +lean_inc(x_113); +x_114 = lean_ctor_get(x_95, 1); +lean_inc(x_114); +if (lean_is_exclusive(x_95)) { + lean_ctor_release(x_95, 0); + lean_ctor_release(x_95, 1); + x_115 = x_95; +} else { + lean_dec_ref(x_95); + x_115 = lean_box(0); +} +if (lean_is_scalar(x_115)) { + x_116 = lean_alloc_ctor(1, 2, 0); +} else { + x_116 = x_115; +} +lean_ctor_set(x_116, 0, x_113); +lean_ctor_set(x_116, 1, x_114); +return x_116; +} +} +else +{ +lean_object* x_117; lean_object* x_118; +x_117 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_117, 0, x_84); +lean_ctor_set_uint8(x_117, sizeof(void*)*1, x_85); +lean_ctor_set_uint8(x_117, sizeof(void*)*1 + 1, x_86); +lean_ctor_set_uint8(x_117, sizeof(void*)*1 + 2, x_87); +lean_ctor_set_uint8(x_117, sizeof(void*)*1 + 3, x_88); +lean_ctor_set_uint8(x_117, sizeof(void*)*1 + 4, x_89); +lean_ctor_set_uint8(x_117, sizeof(void*)*1 + 5, x_90); +lean_ctor_set_uint8(x_117, sizeof(void*)*1 + 6, x_92); +lean_ctor_set(x_2, 0, x_117); +lean_inc(x_2); +lean_inc(x_1); +x_118 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_118) == 0) +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_119 = lean_ctor_get(x_118, 0); +lean_inc(x_119); +x_120 = lean_ctor_get(x_118, 1); +lean_inc(x_120); +if (lean_is_exclusive(x_118)) { + lean_ctor_release(x_118, 0); + lean_ctor_release(x_118, 1); + x_121 = x_118; +} else { + lean_dec_ref(x_118); + x_121 = lean_box(0); +} +if (lean_obj_tag(x_119) == 9) +{ +lean_object* x_131; +x_131 = lean_ctor_get(x_119, 0); +lean_inc(x_131); +lean_dec(x_119); +if (lean_obj_tag(x_131) == 0) +{ +lean_object* x_132; +lean_dec(x_131); +lean_dec(x_121); +x_132 = lean_box(0); +x_122 = x_132; +goto block_130; +} +else +{ +lean_object* x_133; lean_object* x_134; +lean_dec(x_2); +lean_dec(x_1); +x_133 = lean_ctor_get(x_131, 0); +lean_inc(x_133); +lean_dec(x_131); +if (lean_is_scalar(x_121)) { + x_134 = lean_alloc_ctor(0, 2, 0); +} else { + x_134 = x_121; +} +lean_ctor_set(x_134, 0, x_133); +lean_ctor_set(x_134, 1, x_120); +return x_134; +} +} +else +{ +lean_object* x_135; +lean_dec(x_121); +lean_dec(x_119); +x_135 = lean_box(0); +x_122 = x_135; +goto block_130; +} +block_130: +{ +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_dec(x_122); +x_123 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_124 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_124, 0, x_123); +x_125 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_125, 0, x_124); +x_126 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_127 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_127, 0, x_126); +lean_ctor_set(x_127, 1, x_125); +x_128 = lean_box(0); +x_129 = l_Lean_Meta_throwOther___rarg(x_127, x_128, x_2, x_120); +lean_dec(x_2); +return x_129; +} +} +else +{ +lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; +lean_dec(x_2); +lean_dec(x_1); +x_136 = lean_ctor_get(x_118, 0); +lean_inc(x_136); +x_137 = lean_ctor_get(x_118, 1); +lean_inc(x_137); +if (lean_is_exclusive(x_118)) { + lean_ctor_release(x_118, 0); + lean_ctor_release(x_118, 1); + x_138 = x_118; +} else { + lean_dec_ref(x_118); + x_138 = lean_box(0); +} +if (lean_is_scalar(x_138)) { + x_139 = lean_alloc_ctor(1, 2, 0); +} else { + x_139 = x_138; +} +lean_ctor_set(x_139, 0, x_136); +lean_ctor_set(x_139, 1, x_137); +return x_139; +} +} +} +} +else +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; uint8_t x_146; uint8_t x_147; uint8_t x_148; uint8_t x_149; uint8_t x_150; uint8_t x_151; uint8_t x_152; lean_object* x_153; uint8_t x_154; uint8_t x_155; +x_140 = lean_ctor_get(x_2, 0); +x_141 = lean_ctor_get(x_2, 1); +x_142 = lean_ctor_get(x_2, 2); +x_143 = lean_ctor_get(x_2, 3); +x_144 = lean_ctor_get(x_2, 4); +lean_inc(x_144); +lean_inc(x_143); +lean_inc(x_142); +lean_inc(x_141); +lean_inc(x_140); +lean_dec(x_2); +x_145 = lean_ctor_get(x_140, 0); +lean_inc(x_145); +x_146 = lean_ctor_get_uint8(x_140, sizeof(void*)*1); +x_147 = lean_ctor_get_uint8(x_140, sizeof(void*)*1 + 1); +x_148 = lean_ctor_get_uint8(x_140, sizeof(void*)*1 + 2); +x_149 = lean_ctor_get_uint8(x_140, sizeof(void*)*1 + 3); +x_150 = lean_ctor_get_uint8(x_140, sizeof(void*)*1 + 4); +x_151 = lean_ctor_get_uint8(x_140, sizeof(void*)*1 + 5); +x_152 = lean_ctor_get_uint8(x_140, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_140)) { + lean_ctor_release(x_140, 0); + x_153 = x_140; +} else { + lean_dec_ref(x_140); + x_153 = lean_box(0); +} +x_154 = 1; +x_155 = l_Lean_Meta_TransparencyMode_lt(x_152, x_154); +if (x_155 == 0) +{ +lean_object* x_156; lean_object* x_157; lean_object* x_158; +if (lean_is_scalar(x_153)) { + x_156 = lean_alloc_ctor(0, 1, 7); +} else { + x_156 = x_153; +} +lean_ctor_set(x_156, 0, x_145); +lean_ctor_set_uint8(x_156, sizeof(void*)*1, x_146); +lean_ctor_set_uint8(x_156, sizeof(void*)*1 + 1, x_147); +lean_ctor_set_uint8(x_156, sizeof(void*)*1 + 2, x_148); +lean_ctor_set_uint8(x_156, sizeof(void*)*1 + 3, x_149); +lean_ctor_set_uint8(x_156, sizeof(void*)*1 + 4, x_150); +lean_ctor_set_uint8(x_156, sizeof(void*)*1 + 5, x_151); +lean_ctor_set_uint8(x_156, sizeof(void*)*1 + 6, x_152); +x_157 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_157, 0, x_156); +lean_ctor_set(x_157, 1, x_141); +lean_ctor_set(x_157, 2, x_142); +lean_ctor_set(x_157, 3, x_143); +lean_ctor_set(x_157, 4, x_144); +lean_inc(x_157); +lean_inc(x_1); +x_158 = l_Lean_Meta_whnf(x_1, x_157, x_3); +if (lean_obj_tag(x_158) == 0) +{ +lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; +x_159 = lean_ctor_get(x_158, 0); +lean_inc(x_159); +x_160 = lean_ctor_get(x_158, 1); +lean_inc(x_160); +if (lean_is_exclusive(x_158)) { + lean_ctor_release(x_158, 0); + lean_ctor_release(x_158, 1); + x_161 = x_158; +} else { + lean_dec_ref(x_158); + x_161 = lean_box(0); +} +if (lean_obj_tag(x_159) == 9) +{ +lean_object* x_171; +x_171 = lean_ctor_get(x_159, 0); +lean_inc(x_171); +lean_dec(x_159); +if (lean_obj_tag(x_171) == 0) +{ +lean_object* x_172; +lean_dec(x_171); +lean_dec(x_161); +x_172 = lean_box(0); +x_162 = x_172; +goto block_170; +} +else +{ +lean_object* x_173; lean_object* x_174; +lean_dec(x_157); +lean_dec(x_1); +x_173 = lean_ctor_get(x_171, 0); +lean_inc(x_173); +lean_dec(x_171); +if (lean_is_scalar(x_161)) { + x_174 = lean_alloc_ctor(0, 2, 0); +} else { + x_174 = x_161; +} +lean_ctor_set(x_174, 0, x_173); +lean_ctor_set(x_174, 1, x_160); +return x_174; +} +} +else +{ +lean_object* x_175; +lean_dec(x_161); +lean_dec(x_159); +x_175 = lean_box(0); +x_162 = x_175; +goto block_170; +} +block_170: +{ +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_dec(x_162); +x_163 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_164 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_164, 0, x_163); +x_165 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_165, 0, x_164); +x_166 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_167 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_167, 0, x_166); +lean_ctor_set(x_167, 1, x_165); +x_168 = lean_box(0); +x_169 = l_Lean_Meta_throwOther___rarg(x_167, x_168, x_157, x_160); +lean_dec(x_157); +return x_169; +} +} +else +{ +lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; +lean_dec(x_157); +lean_dec(x_1); +x_176 = lean_ctor_get(x_158, 0); +lean_inc(x_176); +x_177 = lean_ctor_get(x_158, 1); +lean_inc(x_177); +if (lean_is_exclusive(x_158)) { + lean_ctor_release(x_158, 0); + lean_ctor_release(x_158, 1); + x_178 = x_158; +} else { + lean_dec_ref(x_158); + x_178 = lean_box(0); +} +if (lean_is_scalar(x_178)) { + x_179 = lean_alloc_ctor(1, 2, 0); +} else { + x_179 = x_178; +} +lean_ctor_set(x_179, 0, x_176); +lean_ctor_set(x_179, 1, x_177); +return x_179; +} +} +else +{ +lean_object* x_180; lean_object* x_181; lean_object* x_182; +if (lean_is_scalar(x_153)) { + x_180 = lean_alloc_ctor(0, 1, 7); +} else { + x_180 = x_153; +} +lean_ctor_set(x_180, 0, x_145); +lean_ctor_set_uint8(x_180, sizeof(void*)*1, x_146); +lean_ctor_set_uint8(x_180, sizeof(void*)*1 + 1, x_147); +lean_ctor_set_uint8(x_180, sizeof(void*)*1 + 2, x_148); +lean_ctor_set_uint8(x_180, sizeof(void*)*1 + 3, x_149); +lean_ctor_set_uint8(x_180, sizeof(void*)*1 + 4, x_150); +lean_ctor_set_uint8(x_180, sizeof(void*)*1 + 5, x_151); +lean_ctor_set_uint8(x_180, sizeof(void*)*1 + 6, x_154); +x_181 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_181, 0, x_180); +lean_ctor_set(x_181, 1, x_141); +lean_ctor_set(x_181, 2, x_142); +lean_ctor_set(x_181, 3, x_143); +lean_ctor_set(x_181, 4, x_144); +lean_inc(x_181); +lean_inc(x_1); +x_182 = l_Lean_Meta_whnf(x_1, x_181, x_3); +if (lean_obj_tag(x_182) == 0) +{ +lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_183 = lean_ctor_get(x_182, 0); +lean_inc(x_183); +x_184 = lean_ctor_get(x_182, 1); +lean_inc(x_184); +if (lean_is_exclusive(x_182)) { + lean_ctor_release(x_182, 0); + lean_ctor_release(x_182, 1); + x_185 = x_182; +} else { + lean_dec_ref(x_182); + x_185 = lean_box(0); +} +if (lean_obj_tag(x_183) == 9) +{ +lean_object* x_195; +x_195 = lean_ctor_get(x_183, 0); +lean_inc(x_195); +lean_dec(x_183); +if (lean_obj_tag(x_195) == 0) +{ +lean_object* x_196; +lean_dec(x_195); +lean_dec(x_185); +x_196 = lean_box(0); +x_186 = x_196; +goto block_194; +} +else +{ +lean_object* x_197; lean_object* x_198; +lean_dec(x_181); +lean_dec(x_1); +x_197 = lean_ctor_get(x_195, 0); +lean_inc(x_197); +lean_dec(x_195); +if (lean_is_scalar(x_185)) { + x_198 = lean_alloc_ctor(0, 2, 0); +} else { + x_198 = x_185; +} +lean_ctor_set(x_198, 0, x_197); +lean_ctor_set(x_198, 1, x_184); +return x_198; +} +} +else +{ +lean_object* x_199; +lean_dec(x_185); +lean_dec(x_183); +x_199 = lean_box(0); +x_186 = x_199; +goto block_194; +} +block_194: +{ +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_dec(x_186); +x_187 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_188 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_188, 0, x_187); +x_189 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_189, 0, x_188); +x_190 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_191 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_191, 0, x_190); +lean_ctor_set(x_191, 1, x_189); +x_192 = lean_box(0); +x_193 = l_Lean_Meta_throwOther___rarg(x_191, x_192, x_181, x_184); +lean_dec(x_181); +return x_193; +} +} +else +{ +lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; +lean_dec(x_181); +lean_dec(x_1); +x_200 = lean_ctor_get(x_182, 0); +lean_inc(x_200); +x_201 = lean_ctor_get(x_182, 1); +lean_inc(x_201); +if (lean_is_exclusive(x_182)) { + lean_ctor_release(x_182, 0); + lean_ctor_release(x_182, 1); + x_202 = x_182; +} else { + lean_dec_ref(x_182); + x_202 = lean_box(0); +} +if (lean_is_scalar(x_202)) { + x_203 = lean_alloc_ctor(1, 2, 0); +} else { + x_203 = x_202; +} +lean_ctor_set(x_203, 0, x_200); +lean_ctor_set(x_203, 1, x_201); +return x_203; +} +} +} +} +} +lean_object* _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__2; +x_2 = l___private_Lean_Syntax_7__quoteName___main___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1; +x_2 = l_Lean_Nat_HasQuote___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1; +x_2 = l_Lean_String_HasQuote___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1; +x_2 = l___private_Lean_Syntax_7__quoteName___main___closed__2; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +x_4 = l_Lean_Meta_whnf(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_17; +x_6 = lean_ctor_get(x_4, 0); +x_7 = lean_ctor_get(x_4, 1); +x_17 = l_Lean_Expr_getAppFn___main(x_6); +if (lean_obj_tag(x_17) == 4) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_55; lean_object* x_89; uint8_t x_90; +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +lean_dec(x_17); +x_19 = lean_unsigned_to_nat(0u); +x_20 = l_Lean_Expr_getAppNumArgsAux___main(x_6, x_19); +x_89 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4; +x_90 = lean_name_eq(x_18, x_89); +if (x_90 == 0) +{ +lean_object* x_91; +lean_free_object(x_4); +x_91 = lean_box(0); +x_55 = x_91; +goto block_88; +} +else +{ +uint8_t x_92; +x_92 = lean_nat_dec_eq(x_20, x_19); +if (x_92 == 0) +{ +lean_object* x_93; +lean_free_object(x_4); +x_93 = lean_box(0); +x_55 = x_93; +goto block_88; +} +else +{ +lean_object* x_94; +lean_dec(x_20); +lean_dec(x_18); +lean_dec(x_6); +lean_dec(x_2); +x_94 = lean_box(0); +lean_ctor_set(x_4, 0, x_94); +return x_4; +} +} +block_54: +{ +lean_object* x_22; uint8_t x_23; +lean_dec(x_21); +x_22 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2; +x_23 = lean_name_eq(x_18, x_22); +lean_dec(x_18); +if (x_23 == 0) +{ +lean_object* x_24; +lean_dec(x_20); +x_24 = lean_box(0); +x_8 = x_24; +goto block_16; +} +else +{ +lean_object* x_25; uint8_t x_26; +x_25 = lean_unsigned_to_nat(3u); +x_26 = lean_nat_dec_eq(x_20, x_25); +if (x_26 == 0) +{ +lean_object* x_27; +lean_dec(x_20); +x_27 = lean_box(0); +x_8 = x_27; +goto block_16; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_28 = lean_nat_sub(x_20, x_19); +x_29 = lean_unsigned_to_nat(1u); +x_30 = lean_nat_sub(x_28, x_29); +lean_dec(x_28); +x_31 = l_Lean_Expr_getRevArg_x21___main(x_6, x_30); +lean_inc(x_2); +x_32 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_31, x_2, x_7); +if (lean_obj_tag(x_32) == 0) +{ +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_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +lean_dec(x_32); +x_35 = lean_nat_sub(x_20, x_29); +lean_dec(x_20); +x_36 = lean_nat_sub(x_35, x_29); +lean_dec(x_35); +x_37 = l_Lean_Expr_getRevArg_x21___main(x_6, x_36); +lean_dec(x_6); +x_38 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_37, x_2, x_34); +if (lean_obj_tag(x_38) == 0) +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_38); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; +x_40 = lean_ctor_get(x_38, 0); +x_41 = lean_name_mk_numeral(x_33, x_40); +lean_ctor_set(x_38, 0, x_41); +return x_38; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_42 = lean_ctor_get(x_38, 0); +x_43 = lean_ctor_get(x_38, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_38); +x_44 = lean_name_mk_numeral(x_33, x_42); +x_45 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_43); +return x_45; +} +} +else +{ +uint8_t x_46; +lean_dec(x_33); +x_46 = !lean_is_exclusive(x_38); +if (x_46 == 0) +{ +return x_38; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_38, 0); +x_48 = lean_ctor_get(x_38, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_38); +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_20); +lean_dec(x_6); +lean_dec(x_2); +x_50 = !lean_is_exclusive(x_32); +if (x_50 == 0) +{ +return x_32; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_32, 0); +x_52 = lean_ctor_get(x_32, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_32); +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; +} +} +} +} +} +block_88: +{ +lean_object* x_56; uint8_t x_57; +lean_dec(x_55); +x_56 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3; +x_57 = lean_name_eq(x_18, x_56); +if (x_57 == 0) +{ +lean_object* x_58; +x_58 = lean_box(0); +x_21 = x_58; +goto block_54; +} +else +{ +lean_object* x_59; uint8_t x_60; +x_59 = lean_unsigned_to_nat(3u); +x_60 = lean_nat_dec_eq(x_20, x_59); +if (x_60 == 0) +{ +lean_object* x_61; +x_61 = lean_box(0); +x_21 = x_61; +goto block_54; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +lean_dec(x_18); +x_62 = lean_nat_sub(x_20, x_19); +x_63 = lean_unsigned_to_nat(1u); +x_64 = lean_nat_sub(x_62, x_63); +lean_dec(x_62); +x_65 = l_Lean_Expr_getRevArg_x21___main(x_6, x_64); +lean_inc(x_2); +x_66 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_65, x_2, x_7); +if (lean_obj_tag(x_66) == 0) +{ +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_67 = lean_ctor_get(x_66, 0); +lean_inc(x_67); +x_68 = lean_ctor_get(x_66, 1); +lean_inc(x_68); +lean_dec(x_66); +x_69 = lean_nat_sub(x_20, x_63); +lean_dec(x_20); +x_70 = lean_nat_sub(x_69, x_63); +lean_dec(x_69); +x_71 = l_Lean_Expr_getRevArg_x21___main(x_6, x_70); +lean_dec(x_6); +x_72 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__2(x_71, x_2, x_68); +if (lean_obj_tag(x_72) == 0) +{ +uint8_t x_73; +x_73 = !lean_is_exclusive(x_72); +if (x_73 == 0) +{ +lean_object* x_74; lean_object* x_75; +x_74 = lean_ctor_get(x_72, 0); +x_75 = lean_name_mk_string(x_67, x_74); +lean_ctor_set(x_72, 0, x_75); +return x_72; +} +else +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_76 = lean_ctor_get(x_72, 0); +x_77 = lean_ctor_get(x_72, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_72); +x_78 = lean_name_mk_string(x_67, x_76); +x_79 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_77); +return x_79; +} +} +else +{ +uint8_t x_80; +lean_dec(x_67); +x_80 = !lean_is_exclusive(x_72); +if (x_80 == 0) +{ +return x_72; +} +else +{ +lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_72, 0); +x_82 = lean_ctor_get(x_72, 1); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_72); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +return x_83; +} +} +} +else +{ +uint8_t x_84; +lean_dec(x_20); +lean_dec(x_6); +lean_dec(x_2); +x_84 = !lean_is_exclusive(x_66); +if (x_84 == 0) +{ +return x_66; +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_85 = lean_ctor_get(x_66, 0); +x_86 = lean_ctor_get(x_66, 1); +lean_inc(x_86); +lean_inc(x_85); +lean_dec(x_66); +x_87 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_87, 0, x_85); +lean_ctor_set(x_87, 1, x_86); +return x_87; +} +} +} +} +} +} +else +{ +lean_object* x_95; +lean_dec(x_17); +lean_free_object(x_4); +x_95 = lean_box(0); +x_8 = x_95; +goto block_16; +} +block_16: +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +lean_dec(x_8); +x_9 = lean_expr_dbg_to_string(x_6); +lean_dec(x_6); +x_10 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_10, 0, x_9); +x_11 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_13 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwOther___rarg(x_13, x_14, x_2, x_7); +lean_dec(x_2); +return x_15; +} +} +else +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_107; +x_96 = lean_ctor_get(x_4, 0); +x_97 = lean_ctor_get(x_4, 1); +lean_inc(x_97); +lean_inc(x_96); +lean_dec(x_4); +x_107 = l_Lean_Expr_getAppFn___main(x_96); +if (lean_obj_tag(x_107) == 4) +{ +lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_143; lean_object* x_175; uint8_t x_176; +x_108 = lean_ctor_get(x_107, 0); +lean_inc(x_108); +lean_dec(x_107); +x_109 = lean_unsigned_to_nat(0u); +x_110 = l_Lean_Expr_getAppNumArgsAux___main(x_96, x_109); +x_175 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4; +x_176 = lean_name_eq(x_108, x_175); +if (x_176 == 0) +{ +lean_object* x_177; +x_177 = lean_box(0); +x_143 = x_177; +goto block_174; +} +else +{ +uint8_t x_178; +x_178 = lean_nat_dec_eq(x_110, x_109); +if (x_178 == 0) +{ +lean_object* x_179; +x_179 = lean_box(0); +x_143 = x_179; +goto block_174; +} +else +{ +lean_object* x_180; lean_object* x_181; +lean_dec(x_110); +lean_dec(x_108); +lean_dec(x_96); +lean_dec(x_2); +x_180 = lean_box(0); +x_181 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_181, 0, x_180); +lean_ctor_set(x_181, 1, x_97); +return x_181; +} +} +block_142: +{ +lean_object* x_112; uint8_t x_113; +lean_dec(x_111); +x_112 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2; +x_113 = lean_name_eq(x_108, x_112); +lean_dec(x_108); +if (x_113 == 0) +{ +lean_object* x_114; +lean_dec(x_110); +x_114 = lean_box(0); +x_98 = x_114; +goto block_106; +} +else +{ +lean_object* x_115; uint8_t x_116; +x_115 = lean_unsigned_to_nat(3u); +x_116 = lean_nat_dec_eq(x_110, x_115); +if (x_116 == 0) +{ +lean_object* x_117; +lean_dec(x_110); +x_117 = lean_box(0); +x_98 = x_117; +goto block_106; +} +else +{ +lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_118 = lean_nat_sub(x_110, x_109); +x_119 = lean_unsigned_to_nat(1u); +x_120 = lean_nat_sub(x_118, x_119); +lean_dec(x_118); +x_121 = l_Lean_Expr_getRevArg_x21___main(x_96, x_120); +lean_inc(x_2); +x_122 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_121, x_2, x_97); +if (lean_obj_tag(x_122) == 0) +{ +lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; +x_123 = lean_ctor_get(x_122, 0); +lean_inc(x_123); +x_124 = lean_ctor_get(x_122, 1); +lean_inc(x_124); +lean_dec(x_122); +x_125 = lean_nat_sub(x_110, x_119); +lean_dec(x_110); +x_126 = lean_nat_sub(x_125, x_119); +lean_dec(x_125); +x_127 = l_Lean_Expr_getRevArg_x21___main(x_96, x_126); +lean_dec(x_96); +x_128 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_127, x_2, x_124); +if (lean_obj_tag(x_128) == 0) +{ +lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_129 = lean_ctor_get(x_128, 0); +lean_inc(x_129); +x_130 = lean_ctor_get(x_128, 1); +lean_inc(x_130); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_131 = x_128; +} else { + lean_dec_ref(x_128); + x_131 = lean_box(0); +} +x_132 = lean_name_mk_numeral(x_123, x_129); +if (lean_is_scalar(x_131)) { + x_133 = lean_alloc_ctor(0, 2, 0); +} else { + x_133 = x_131; +} +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_130); +return x_133; +} +else +{ +lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; +lean_dec(x_123); +x_134 = lean_ctor_get(x_128, 0); +lean_inc(x_134); +x_135 = lean_ctor_get(x_128, 1); +lean_inc(x_135); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_136 = x_128; +} else { + lean_dec_ref(x_128); + x_136 = lean_box(0); +} +if (lean_is_scalar(x_136)) { + x_137 = lean_alloc_ctor(1, 2, 0); +} else { + x_137 = x_136; +} +lean_ctor_set(x_137, 0, x_134); +lean_ctor_set(x_137, 1, x_135); +return x_137; +} +} +else +{ +lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; +lean_dec(x_110); +lean_dec(x_96); +lean_dec(x_2); +x_138 = lean_ctor_get(x_122, 0); +lean_inc(x_138); +x_139 = lean_ctor_get(x_122, 1); +lean_inc(x_139); +if (lean_is_exclusive(x_122)) { + lean_ctor_release(x_122, 0); + lean_ctor_release(x_122, 1); + x_140 = x_122; +} else { + lean_dec_ref(x_122); + x_140 = lean_box(0); +} +if (lean_is_scalar(x_140)) { + x_141 = lean_alloc_ctor(1, 2, 0); +} else { + x_141 = x_140; +} +lean_ctor_set(x_141, 0, x_138); +lean_ctor_set(x_141, 1, x_139); +return x_141; +} +} +} +} +block_174: +{ +lean_object* x_144; uint8_t x_145; +lean_dec(x_143); +x_144 = l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3; +x_145 = lean_name_eq(x_108, x_144); +if (x_145 == 0) +{ +lean_object* x_146; +x_146 = lean_box(0); +x_111 = x_146; +goto block_142; +} +else +{ +lean_object* x_147; uint8_t x_148; +x_147 = lean_unsigned_to_nat(3u); +x_148 = lean_nat_dec_eq(x_110, x_147); +if (x_148 == 0) +{ +lean_object* x_149; +x_149 = lean_box(0); +x_111 = x_149; +goto block_142; +} +else +{ +lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; +lean_dec(x_108); +x_150 = lean_nat_sub(x_110, x_109); +x_151 = lean_unsigned_to_nat(1u); +x_152 = lean_nat_sub(x_150, x_151); +lean_dec(x_150); +x_153 = l_Lean_Expr_getRevArg_x21___main(x_96, x_152); +lean_inc(x_2); +x_154 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_153, x_2, x_97); +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_160; +x_155 = lean_ctor_get(x_154, 0); +lean_inc(x_155); +x_156 = lean_ctor_get(x_154, 1); +lean_inc(x_156); +lean_dec(x_154); +x_157 = lean_nat_sub(x_110, x_151); +lean_dec(x_110); +x_158 = lean_nat_sub(x_157, x_151); +lean_dec(x_157); +x_159 = l_Lean_Expr_getRevArg_x21___main(x_96, x_158); +lean_dec(x_96); +x_160 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__2(x_159, x_2, x_156); +if (lean_obj_tag(x_160) == 0) +{ +lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; +x_161 = lean_ctor_get(x_160, 0); +lean_inc(x_161); +x_162 = lean_ctor_get(x_160, 1); +lean_inc(x_162); +if (lean_is_exclusive(x_160)) { + lean_ctor_release(x_160, 0); + lean_ctor_release(x_160, 1); + x_163 = x_160; +} else { + lean_dec_ref(x_160); + x_163 = lean_box(0); +} +x_164 = lean_name_mk_string(x_155, x_161); +if (lean_is_scalar(x_163)) { + x_165 = lean_alloc_ctor(0, 2, 0); +} else { + x_165 = x_163; +} +lean_ctor_set(x_165, 0, x_164); +lean_ctor_set(x_165, 1, x_162); +return x_165; +} +else +{ +lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; +lean_dec(x_155); +x_166 = lean_ctor_get(x_160, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_160, 1); +lean_inc(x_167); +if (lean_is_exclusive(x_160)) { + lean_ctor_release(x_160, 0); + lean_ctor_release(x_160, 1); + x_168 = x_160; +} else { + lean_dec_ref(x_160); + x_168 = lean_box(0); +} +if (lean_is_scalar(x_168)) { + x_169 = lean_alloc_ctor(1, 2, 0); +} else { + x_169 = x_168; +} +lean_ctor_set(x_169, 0, x_166); +lean_ctor_set(x_169, 1, x_167); +return x_169; +} +} +else +{ +lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; +lean_dec(x_110); +lean_dec(x_96); +lean_dec(x_2); +x_170 = lean_ctor_get(x_154, 0); +lean_inc(x_170); +x_171 = lean_ctor_get(x_154, 1); +lean_inc(x_171); +if (lean_is_exclusive(x_154)) { + lean_ctor_release(x_154, 0); + lean_ctor_release(x_154, 1); + x_172 = x_154; +} else { + lean_dec_ref(x_154); + x_172 = lean_box(0); +} +if (lean_is_scalar(x_172)) { + x_173 = lean_alloc_ctor(1, 2, 0); +} else { + x_173 = x_172; +} +lean_ctor_set(x_173, 0, x_170); +lean_ctor_set(x_173, 1, x_171); +return x_173; +} +} +} +} +} +else +{ +lean_object* x_182; +lean_dec(x_107); +x_182 = lean_box(0); +x_98 = x_182; +goto block_106; +} +block_106: +{ +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_dec(x_98); +x_99 = lean_expr_dbg_to_string(x_96); +lean_dec(x_96); +x_100 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_100, 0, x_99); +x_101 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_101, 0, x_100); +x_102 = l_Lean_Meta_Nat_hasReduceEval___closed__3; +x_103 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_103, 0, x_102); +lean_ctor_set(x_103, 1, x_101); +x_104 = lean_box(0); +x_105 = l_Lean_Meta_throwOther___rarg(x_103, x_104, x_2, x_97); +lean_dec(x_2); +return x_105; +} +} +} +else +{ +uint8_t x_183; +lean_dec(x_2); +x_183 = !lean_is_exclusive(x_4); +if (x_183 == 0) +{ +return x_4; +} +else +{ +lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_184 = lean_ctor_get(x_4, 0); +x_185 = lean_ctor_get(x_4, 1); +lean_inc(x_185); +lean_inc(x_184); +lean_dec(x_4); +x_186 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_186, 0, x_184); +lean_ctor_set(x_186, 1, x_185); +return x_186; +} +} +} +} +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Meta_Name_hasReduceEval___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l___private_Lean_Meta_ReduceEval_1__evalName), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Name_hasReduceEval() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_Name_hasReduceEval___closed__1; +return x_1; +} +} +lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Meta_Offset(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Lean_Meta_ReduceEval(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Lean_Meta_Offset(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Meta_Nat_hasReduceEval___closed__1 = _init_l_Lean_Meta_Nat_hasReduceEval___closed__1(); +lean_mark_persistent(l_Lean_Meta_Nat_hasReduceEval___closed__1); +l_Lean_Meta_Nat_hasReduceEval___closed__2 = _init_l_Lean_Meta_Nat_hasReduceEval___closed__2(); +lean_mark_persistent(l_Lean_Meta_Nat_hasReduceEval___closed__2); +l_Lean_Meta_Nat_hasReduceEval___closed__3 = _init_l_Lean_Meta_Nat_hasReduceEval___closed__3(); +lean_mark_persistent(l_Lean_Meta_Nat_hasReduceEval___closed__3); +l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1 = _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1(); +lean_mark_persistent(l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__1); +l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2 = _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2(); +lean_mark_persistent(l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__2); +l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3 = _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3(); +lean_mark_persistent(l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__3); +l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4 = _init_l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4(); +lean_mark_persistent(l___private_Lean_Meta_ReduceEval_1__evalName___main___closed__4); +l_Lean_Meta_Name_hasReduceEval___closed__1 = _init_l_Lean_Meta_Name_hasReduceEval___closed__1(); +lean_mark_persistent(l_Lean_Meta_Name_hasReduceEval___closed__1); +l_Lean_Meta_Name_hasReduceEval = _init_l_Lean_Meta_Name_hasReduceEval(); +lean_mark_persistent(l_Lean_Meta_Name_hasReduceEval); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Lean/Meta/SynthInstance.c b/stage0/stdlib/Lean/Meta/SynthInstance.c index 4ab79dbdd2..741bfc4d4f 100644 --- a/stage0/stdlib/Lean/Meta/SynthInstance.c +++ b/stage0/stdlib/Lean/Meta/SynthInstance.c @@ -128,7 +128,6 @@ lean_object* l_Std_AssocList_contains___main___at_Lean_Meta_SynthInstance_MkTabl extern lean_object* l_Lean_Meta_AbstractMVarsResult_inhabited___closed__1; lean_object* l_Lean_Meta_setSynthPendingRef___closed__1; uint8_t l_Lean_Meta_SynthInstance_Waiter_isRoot(lean_object*); -extern lean_object* l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* lean_expr_instantiate_rev_range(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_Inhabited___closed__1; @@ -345,6 +344,7 @@ extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__2; uint8_t l_Lean_MetavarContext_isExprAssignable(lean_object*, lean_object*); lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_Answer_inhabited___closed__1; +extern lean_object* l_Lean_Compiler_checkIsDefinition___closed__5; lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); extern lean_object* l_Lean_MetavarContext_Inhabited___closed__1; extern lean_object* l_Lean_mkOptionalNode___closed__2; @@ -401,7 +401,7 @@ lean_object* l_Lean_Meta_SynthInstance_mkInferTCGoalsLRAttr___lambda__1(lean_obj _start: { lean_object* x_3; -x_3 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_3 = l_Lean_Compiler_checkIsDefinition___closed__5; return x_3; } } @@ -5159,7 +5159,7 @@ lean_ctor_set(x_99, 1, x_75); lean_ctor_set(x_99, 2, x_97); lean_ctor_set(x_99, 3, x_77); lean_ctor_set(x_99, 4, x_98); -x_100 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_100 = l_Lean_Compiler_checkIsDefinition___closed__5; x_15 = x_100; x_16 = x_99; goto block_71; @@ -5178,7 +5178,7 @@ lean_dec(x_12); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_101 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_101 = l_Lean_Compiler_checkIsDefinition___closed__5; x_15 = x_101; x_16 = x_72; goto block_71; @@ -5310,7 +5310,7 @@ lean_ctor_set(x_134, 1, x_109); lean_ctor_set(x_134, 2, x_132); lean_ctor_set(x_134, 3, x_111); lean_ctor_set(x_134, 4, x_133); -x_135 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_135 = l_Lean_Compiler_checkIsDefinition___closed__5; x_15 = x_135; x_16 = x_134; goto block_71; @@ -5329,7 +5329,7 @@ lean_dec(x_12); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_136 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_136 = l_Lean_Compiler_checkIsDefinition___closed__5; x_15 = x_136; x_16 = x_124; goto block_71; @@ -5721,7 +5721,7 @@ lean_ctor_set(x_230, 1, x_204); lean_ctor_set(x_230, 2, x_228); lean_ctor_set(x_230, 3, x_206); lean_ctor_set(x_230, 4, x_229); -x_231 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_231 = l_Lean_Compiler_checkIsDefinition___closed__5; x_167 = x_231; x_168 = x_230; goto block_201; @@ -5740,7 +5740,7 @@ lean_dec(x_12); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_232 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_232 = l_Lean_Compiler_checkIsDefinition___closed__5; x_167 = x_232; x_168 = x_220; goto block_201; @@ -17773,7 +17773,7 @@ if (x_92 == 0) lean_object* x_94; lean_dec(x_19); lean_dec(x_15); -x_94 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_94 = l_Lean_Compiler_checkIsDefinition___closed__5; x_36 = x_94; x_37 = x_93; goto block_91; @@ -18199,7 +18199,7 @@ if (x_201 == 0) lean_object* x_203; lean_dec(x_19); lean_dec(x_15); -x_203 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_203 = l_Lean_Compiler_checkIsDefinition___closed__5; x_167 = x_203; x_168 = x_202; goto block_200; @@ -18591,7 +18591,7 @@ if (x_294 == 0) lean_object* x_296; lean_dec(x_19); lean_dec(x_15); -x_296 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_296 = l_Lean_Compiler_checkIsDefinition___closed__5; x_260 = x_296; x_261 = x_295; goto block_293; @@ -19098,7 +19098,7 @@ if (x_408 == 0) lean_object* x_410; lean_dec(x_349); lean_dec(x_346); -x_410 = l_Nat_forMAux___main___at___private_Lean_MetavarContext_10__collectDeps___spec__50___closed__1; +x_410 = l_Lean_Compiler_checkIsDefinition___closed__5; x_374 = x_410; x_375 = x_409; goto block_407; @@ -21230,11 +21230,13 @@ return x_2; lean_object* _init_l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { diff --git a/stage0/stdlib/Lean/Meta/Tactic/Apply.c b/stage0/stdlib/Lean/Meta/Tactic/Apply.c index 33d0f0f49b..c388c09a09 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Apply.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Apply.c @@ -67,7 +67,7 @@ lean_object* l___private_Lean_Meta_Tactic_Apply_2__getExpectedNumArgs(lean_objec lean_object* l_Lean_Meta_postprocessAppMVars___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_forallMetaTelescopeReducing(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Apply_1__getExpectedNumArgsAux___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); extern uint8_t l_Lean_BinderInfo_inhabited; lean_object* l_Lean_Meta_synthInstance(lean_object*, lean_object*, lean_object*); @@ -376,7 +376,7 @@ return x_2; lean_object* l___private_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; 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_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; x_6 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_6, 0, x_2); x_7 = l_Lean_indentExpr(x_6); @@ -399,8 +399,9 @@ x_16 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_16, 0, x_13); lean_ctor_set(x_16, 1, x_15); x_17 = l___private_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg___closed__2; -x_18 = l_Lean_Meta_throwTacticEx___rarg(x_17, x_1, x_16, x_4, x_5); -return x_18; +x_18 = lean_box(0); +x_19 = l_Lean_Meta_throwTacticEx___rarg(x_17, x_1, x_16, x_18, x_4, x_5); +return x_19; } } lean_object* l___private_Lean_Meta_Tactic_Apply_3__throwApplyError(lean_object* x_1) { @@ -513,140 +514,141 @@ x_31 = lean_unbox(x_30); lean_dec(x_30); if (x_31 == 0) { -lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_dec(x_12); x_32 = lean_ctor_get(x_29, 1); lean_inc(x_32); lean_dec(x_29); x_33 = l_Nat_forMAux___main___at_Lean_Meta_synthAppInstances___spec__1___closed__3; -x_34 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_33, x_7, x_32); +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_33, x_34, x_7, x_32); lean_dec(x_7); -x_35 = !lean_is_exclusive(x_34); -if (x_35 == 0) +x_36 = !lean_is_exclusive(x_35); +if (x_36 == 0) { -return x_34; +return x_35; } else { -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_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_ctor_get(x_35, 1); +lean_inc(x_38); lean_inc(x_37); -lean_inc(x_36); -lean_dec(x_34); -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_36); -lean_ctor_set(x_38, 1, x_37); -return x_38; +lean_dec(x_35); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; } } else { -lean_object* x_39; -x_39 = lean_ctor_get(x_29, 1); -lean_inc(x_39); +lean_object* x_40; +x_40 = lean_ctor_get(x_29, 1); +lean_inc(x_40); lean_dec(x_29); x_6 = x_12; -x_8 = x_39; +x_8 = x_40; goto _start; } } else { -uint8_t x_41; +uint8_t x_42; lean_dec(x_12); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_41 = !lean_is_exclusive(x_29); -if (x_41 == 0) +x_42 = !lean_is_exclusive(x_29); +if (x_42 == 0) { return x_29; } else { -lean_object* x_42; lean_object* x_43; lean_object* x_44; -x_42 = lean_ctor_get(x_29, 0); -x_43 = lean_ctor_get(x_29, 1); +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_29, 0); +x_44 = lean_ctor_get(x_29, 1); +lean_inc(x_44); lean_inc(x_43); -lean_inc(x_42); lean_dec(x_29); -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; +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_45; +uint8_t x_46; lean_dec(x_22); lean_dec(x_12); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_45 = !lean_is_exclusive(x_26); -if (x_45 == 0) +x_46 = !lean_is_exclusive(x_26); +if (x_46 == 0) { return x_26; } else { -lean_object* x_46; lean_object* x_47; lean_object* x_48; -x_46 = lean_ctor_get(x_26, 0); -x_47 = lean_ctor_get(x_26, 1); +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_26, 0); +x_48 = lean_ctor_get(x_26, 1); +lean_inc(x_48); lean_inc(x_47); -lean_inc(x_46); lean_dec(x_26); -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; +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_49; +uint8_t x_50; lean_dec(x_22); lean_dec(x_12); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_49 = !lean_is_exclusive(x_23); -if (x_49 == 0) +x_50 = !lean_is_exclusive(x_23); +if (x_50 == 0) { return x_23; } else { -lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_50 = lean_ctor_get(x_23, 0); -x_51 = lean_ctor_get(x_23, 1); +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_23, 0); +x_52 = lean_ctor_get(x_23, 1); +lean_inc(x_52); lean_inc(x_51); -lean_inc(x_50); lean_dec(x_23); -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; +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_53; lean_object* x_54; +lean_object* x_54; lean_object* x_55; lean_dec(x_7); lean_dec(x_6); lean_dec(x_2); lean_dec(x_1); -x_53 = lean_box(0); -x_54 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_54, 0, x_53); -lean_ctor_set(x_54, 1, x_8); -return x_54; +x_54 = lean_box(0); +x_55 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_8); +return x_55; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Assert.c b/stage0/stdlib/Lean/Meta/Tactic/Assert.c index a1af6d660f..f74039bc9e 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Assert.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Assert.c @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* l_Lean_Meta_assert(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_Meta_assert___closed__2; lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -22,21 +23,32 @@ lean_object* l_Lean_Meta_define(lean_object*, lean_object*, lean_object*, lean_o lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assert___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assert___closed__1; +lean_object* l_Lean_Meta_mkEqRefl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assert___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Meta_define___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assertExt___lambda__1___closed__1; +lean_object* l_Lean_Meta_assertExt(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assertExt___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___closed__2; +lean_object* l_Lean_Meta_assertExt___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkForall(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___closed__1; lean_object* l_Lean_mkLet(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assertExt___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkBVar(lean_object*); +lean_object* l_Lean_mkConst(lean_object*, lean_object*); +lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assert___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) { _start: { @@ -572,6 +584,357 @@ lean_dec(x_5); return x_7; } } +lean_object* _init_l_Lean_Meta_assertExt___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(0u); +x_2 = l_Lean_mkBVar(x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_assertExt___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_9; +lean_inc(x_1); +x_9 = l_Lean_Meta_checkNotAssigned(x_1, x_2, x_7, x_8); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_ctor_get(x_9, 1); +lean_inc(x_10); +lean_dec(x_9); +lean_inc(x_1); +x_11 = l_Lean_Meta_getMVarTag(x_1, x_7, x_10); +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_1); +x_14 = l_Lean_Meta_getMVarType(x_1, x_7, 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_7); +lean_inc(x_3); +x_17 = l_Lean_Meta_getLevel(x_3, x_7, x_16); +if (lean_obj_tag(x_17) == 0) +{ +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; uint8_t 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; lean_object* x_33; +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); +x_20 = lean_box(0); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_18); +lean_ctor_set(x_21, 1, x_20); +x_22 = l_Lean_Expr_eq_x3f___closed__2; +x_23 = l_Lean_mkConst(x_22, x_21); +x_24 = l_Lean_Meta_assertExt___lambda__1___closed__1; +lean_inc(x_4); +lean_inc(x_3); +x_25 = l_Lean_mkApp3(x_23, x_3, x_24, x_4); +x_26 = 0; +x_27 = l_Lean_mkForall(x_5, x_26, x_25, x_15); +x_28 = l_Lean_mkForall(x_6, x_26, x_3, x_27); +x_29 = 2; +lean_inc(x_7); +x_30 = l_Lean_Meta_mkFreshExprMVar(x_28, x_12, x_29, x_7, x_19); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +lean_inc(x_7); +lean_inc(x_4); +x_33 = l_Lean_Meta_mkEqRefl(x_4, x_7, x_32); +if (lean_obj_tag(x_33) == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_ctor_get(x_33, 1); +lean_inc(x_35); +lean_dec(x_33); +lean_inc(x_31); +x_36 = l_Lean_mkAppB(x_31, x_4, x_34); +x_37 = l_Lean_Expr_mvarId_x21(x_31); +lean_dec(x_31); +x_38 = l_Lean_Meta_assignExprMVar(x_1, x_36, x_7, x_35); +lean_dec(x_7); +if (lean_obj_tag(x_38) == 0) +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_38); +if (x_39 == 0) +{ +lean_object* x_40; +x_40 = lean_ctor_get(x_38, 0); +lean_dec(x_40); +lean_ctor_set(x_38, 0, x_37); +return x_38; +} +else +{ +lean_object* x_41; lean_object* x_42; +x_41 = lean_ctor_get(x_38, 1); +lean_inc(x_41); +lean_dec(x_38); +x_42 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_42, 0, x_37); +lean_ctor_set(x_42, 1, x_41); +return x_42; +} +} +else +{ +uint8_t x_43; +lean_dec(x_37); +x_43 = !lean_is_exclusive(x_38); +if (x_43 == 0) +{ +return x_38; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_38, 0); +x_45 = lean_ctor_get(x_38, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_38); +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_31); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_1); +x_47 = !lean_is_exclusive(x_33); +if (x_47 == 0) +{ +return x_33; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_33, 0); +x_49 = lean_ctor_get(x_33, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_33); +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 +{ +uint8_t x_51; +lean_dec(x_15); +lean_dec(x_12); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_51 = !lean_is_exclusive(x_17); +if (x_51 == 0) +{ +return x_17; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_17, 0); +x_53 = lean_ctor_get(x_17, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_17); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +} +else +{ +uint8_t x_55; +lean_dec(x_12); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_55 = !lean_is_exclusive(x_14); +if (x_55 == 0) +{ +return x_14; +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_14, 0); +x_57 = lean_ctor_get(x_14, 1); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_14); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +} +else +{ +uint8_t x_59; +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_59 = !lean_is_exclusive(x_11); +if (x_59 == 0) +{ +return x_11; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_11, 0); +x_61 = lean_ctor_get(x_11, 1); +lean_inc(x_61); +lean_inc(x_60); +lean_dec(x_11); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +return x_62; +} +} +} +else +{ +uint8_t x_63; +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_63 = !lean_is_exclusive(x_9); +if (x_63 == 0) +{ +return x_9; +} +else +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_64 = lean_ctor_get(x_9, 0); +x_65 = lean_ctor_get(x_9, 1); +lean_inc(x_65); +lean_inc(x_64); +lean_dec(x_9); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_64); +lean_ctor_set(x_66, 1, x_65); +return x_66; +} +} +} +} +lean_object* l_Lean_Meta_assertExt(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 = l_Lean_Meta_assert___closed__2; +lean_inc(x_1); +x_9 = lean_alloc_closure((void*)(l_Lean_Meta_assertExt___lambda__1___boxed), 8, 6); +lean_closure_set(x_9, 0, x_1); +lean_closure_set(x_9, 1, x_8); +lean_closure_set(x_9, 2, x_3); +lean_closure_set(x_9, 3, x_4); +lean_closure_set(x_9, 4, x_5); +lean_closure_set(x_9, 5, x_2); +x_10 = l_Lean_Meta_getMVarDecl(x_1, x_6, x_7); +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); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_11, 4); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l_Lean_Meta_withLocalContext___rarg(x_13, x_14, x_9, x_6, x_12); +return x_15; +} +else +{ +uint8_t x_16; +lean_dec(x_9); +x_16 = !lean_is_exclusive(x_10); +if (x_16 == 0) +{ +return x_10; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_10, 0); +x_18 = lean_ctor_get(x_10, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_10); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} +lean_object* l_Lean_Meta_assertExt___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) { +_start: +{ +lean_object* x_9; +x_9 = l_Lean_Meta_assertExt___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +lean_dec(x_6); +lean_dec(x_5); +return x_9; +} +} +lean_object* l_Lean_Meta_assertExt___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_Lean_Meta_assertExt(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_6); +return x_8; +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Meta_Tactic_Util(lean_object*); static bool _G_initialized = false; @@ -593,6 +956,8 @@ l_Lean_Meta_define___closed__1 = _init_l_Lean_Meta_define___closed__1(); lean_mark_persistent(l_Lean_Meta_define___closed__1); l_Lean_Meta_define___closed__2 = _init_l_Lean_Meta_define___closed__2(); lean_mark_persistent(l_Lean_Meta_define___closed__2); +l_Lean_Meta_assertExt___lambda__1___closed__1 = _init_l_Lean_Meta_assertExt___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_assertExt___lambda__1___closed__1); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Meta/Tactic/Assumption.c b/stage0/stdlib/Lean/Meta/Tactic/Assumption.c index 82f23cf9e3..d4b2eff2fd 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Assumption.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Assumption.c @@ -33,7 +33,7 @@ lean_object* l_Lean_LocalContext_findDeclRevM_x3f___at_Lean_Meta_assumptionAux__ lean_object* l_Std_PersistentArray_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_PersistentArray_findSomeRevM_x3f___at_Lean_Meta_assumptionAux___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalDecl_type(lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assumptionAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assumptionAux___closed__1; @@ -1035,64 +1035,65 @@ x_6 = lean_unbox(x_5); lean_dec(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_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; x_7 = lean_ctor_get(x_4, 1); lean_inc(x_7); lean_dec(x_4); x_8 = l_Lean_Meta_assumptionAux___closed__2; x_9 = l_Lean_Meta_Exception_Inhabited___closed__1; -x_10 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_9, x_2, x_7); -return x_10; +x_10 = lean_box(0); +x_11 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_9, x_10, x_2, x_7); +return x_11; } else { -uint8_t x_11; +uint8_t x_12; lean_dec(x_1); -x_11 = !lean_is_exclusive(x_4); -if (x_11 == 0) +x_12 = !lean_is_exclusive(x_4); +if (x_12 == 0) { -lean_object* x_12; lean_object* x_13; -x_12 = lean_ctor_get(x_4, 0); -lean_dec(x_12); -x_13 = lean_box(0); -lean_ctor_set(x_4, 0, x_13); +lean_object* x_13; lean_object* x_14; +x_13 = lean_ctor_get(x_4, 0); +lean_dec(x_13); +x_14 = lean_box(0); +lean_ctor_set(x_4, 0, x_14); return x_4; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_14 = lean_ctor_get(x_4, 1); -lean_inc(x_14); +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_4, 1); +lean_inc(x_15); lean_dec(x_4); -x_15 = lean_box(0); -x_16 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_16, 0, x_15); -lean_ctor_set(x_16, 1, x_14); -return x_16; +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_15); +return x_17; } } } else { -uint8_t x_17; +uint8_t x_18; lean_dec(x_1); -x_17 = !lean_is_exclusive(x_4); -if (x_17 == 0) +x_18 = !lean_is_exclusive(x_4); +if (x_18 == 0) { return x_4; } else { -lean_object* x_18; lean_object* x_19; lean_object* x_20; -x_18 = lean_ctor_get(x_4, 0); -x_19 = lean_ctor_get(x_4, 1); +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_4, 0); +x_20 = lean_ctor_get(x_4, 1); +lean_inc(x_20); lean_inc(x_19); -lean_inc(x_18); lean_dec(x_4); -x_20 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_20, 0, x_18); -lean_ctor_set(x_20, 1, x_19); -return x_20; +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +return x_21; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Cases.c b/stage0/stdlib/Lean/Meta/Tactic/Cases.c index 90bfa165d2..51d37b8ed3 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Cases.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Cases.c @@ -42,6 +42,7 @@ lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___sp lean_object* l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_Cases_cases___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__8; +lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_ofList___closed__3; lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -131,7 +132,7 @@ uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__has lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__21___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__17(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); -lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); @@ -226,7 +227,7 @@ lean_object* l_Lean_LocalDecl_type(lean_object*); lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__2; lean_object* l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7; extern lean_object* l_Lean_Meta_casesOnSuffix___closed__1; -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_FVarSubst_get(lean_object*, lean_object*); lean_object* l_Lean_Meta_Cases_cases___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); @@ -265,7 +266,6 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__un uint8_t l_Std_PersistentArray_anyM___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkApp4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_anyAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__3___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__1; @@ -853,7 +853,7 @@ x_43 = lean_ctor_get(x_42, 1); lean_inc(x_43); lean_dec(x_42); x_44 = 0; -x_45 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_44, x_39, x_40, x_41, x_11, x_43); +x_45 = l_Lean_Meta_introN(x_39, x_40, x_41, x_44, x_11, x_43); if (lean_obj_tag(x_45) == 0) { lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; @@ -1331,186 +1331,189 @@ lean_inc(x_12); x_13 = lean_environment_find(x_4, x_12); if (lean_obj_tag(x_13) == 0) { -lean_object* x_14; lean_object* x_15; +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); x_14 = l_Lean_Meta_mkNoConfusion___closed__8; -x_15 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_14, x_10, x_11); +x_15 = lean_box(0); +x_16 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_14, x_15, x_10, x_11); lean_dec(x_10); -return x_15; +return x_16; } else { -lean_object* x_16; -x_16 = lean_ctor_get(x_13, 0); -lean_inc(x_16); -lean_dec(x_13); -if (lean_obj_tag(x_16) == 5) -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; -x_17 = lean_ctor_get(x_16, 0); +lean_object* x_17; +x_17 = lean_ctor_get(x_13, 0); lean_inc(x_17); -lean_dec(x_16); -x_18 = lean_ctor_get(x_17, 2); +lean_dec(x_13); +if (lean_obj_tag(x_17) == 5) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_18 = lean_ctor_get(x_17, 0); lean_inc(x_18); -x_19 = lean_unsigned_to_nat(0u); -x_20 = lean_nat_dec_lt(x_19, x_18); -x_21 = lean_array_get_size(x_8); -x_22 = lean_ctor_get(x_17, 1); -lean_inc(x_22); lean_dec(x_17); -x_23 = lean_nat_add(x_18, x_22); -x_24 = lean_nat_dec_eq(x_21, x_23); -lean_dec(x_23); -x_25 = lean_nat_sub(x_21, x_18); +x_19 = lean_ctor_get(x_18, 2); +lean_inc(x_19); +x_20 = lean_unsigned_to_nat(0u); +x_21 = lean_nat_dec_lt(x_20, x_19); +x_22 = lean_array_get_size(x_8); +x_23 = lean_ctor_get(x_18, 1); +lean_inc(x_23); lean_dec(x_18); -x_26 = l_Array_extract___rarg(x_8, x_25, x_21); -lean_dec(x_21); -x_27 = l_Array_extract___rarg(x_8, x_19, x_22); +x_24 = lean_nat_add(x_19, x_23); +x_25 = lean_nat_dec_eq(x_22, x_24); +lean_dec(x_24); +x_26 = lean_nat_sub(x_22, x_19); +lean_dec(x_19); +x_27 = l_Array_extract___rarg(x_8, x_26, x_22); lean_dec(x_22); +x_28 = l_Array_extract___rarg(x_8, x_20, x_23); +lean_dec(x_23); lean_dec(x_8); -x_28 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_27, x_27, x_19, x_7); +x_29 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_28, x_28, x_20, x_7); +lean_dec(x_28); +if (x_25 == 0) +{ +uint8_t x_57; +x_57 = 0; +x_30 = x_57; +goto block_56; +} +else +{ +uint8_t x_58; +x_58 = 1; +x_30 = x_58; +goto block_56; +} +block_56: +{ +lean_object* x_31; +if (x_21 == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; +lean_dec(x_29); lean_dec(x_27); -if (x_24 == 0) -{ -uint8_t x_54; -x_54 = 0; -x_29 = x_54; -goto block_53; -} -else -{ -uint8_t x_55; -x_55 = 1; -x_29 = x_55; -goto block_53; -} -block_53: -{ -lean_object* x_30; -if (x_20 == 0) -{ -lean_object* x_41; lean_object* x_42; uint8_t x_43; -lean_dec(x_28); -lean_dec(x_26); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_41 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3; -x_42 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_41, x_10, x_11); +x_42 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3; +x_43 = lean_box(0); +x_44 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_42, x_43, x_10, x_11); lean_dec(x_10); -x_43 = !lean_is_exclusive(x_42); -if (x_43 == 0) +x_45 = !lean_is_exclusive(x_44); +if (x_45 == 0) { -return x_42; +return x_44; } else { -lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_44 = lean_ctor_get(x_42, 0); -x_45 = lean_ctor_get(x_42, 1); -lean_inc(x_45); -lean_inc(x_44); -lean_dec(x_42); -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 -{ -if (x_29 == 0) -{ -lean_object* x_47; lean_object* x_48; uint8_t x_49; -lean_dec(x_28); -lean_dec(x_26); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_2); -x_47 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6; -x_48 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_47, x_10, x_11); -lean_dec(x_10); -x_49 = !lean_is_exclusive(x_48); -if (x_49 == 0) -{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_44, 0); +x_47 = lean_ctor_get(x_44, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_44); +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 { -lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_50 = lean_ctor_get(x_48, 0); -x_51 = lean_ctor_get(x_48, 1); -lean_inc(x_51); -lean_inc(x_50); -lean_dec(x_48); -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; +if (x_30 == 0) +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; +lean_dec(x_29); +lean_dec(x_27); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_49 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6; +x_50 = lean_box(0); +x_51 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_49, x_50, x_10, x_11); +lean_dec(x_10); +x_52 = !lean_is_exclusive(x_51); +if (x_52 == 0) +{ +return x_51; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_51, 0); +x_54 = lean_ctor_get(x_51, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_51); +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); -x_30 = x_11; -goto block_40; +x_31 = x_11; +goto block_41; } } -block_40: +block_41: { -lean_object* x_31; +lean_object* x_32; lean_inc(x_10); -lean_inc(x_28); -x_31 = l_Lean_Meta_inferType(x_28, x_10, x_30); -if (lean_obj_tag(x_31) == 0) +lean_inc(x_29); +x_32 = l_Lean_Meta_inferType(x_29, x_10, x_31); +if (lean_obj_tag(x_32) == 0) { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_32 = lean_ctor_get(x_31, 0); -lean_inc(x_32); -x_33 = lean_ctor_get(x_31, 1); +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_33 = lean_ctor_get(x_32, 0); lean_inc(x_33); -lean_dec(x_31); -x_34 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__4___boxed), 10, 6); -lean_closure_set(x_34, 0, x_28); -lean_closure_set(x_34, 1, x_6); -lean_closure_set(x_34, 2, x_1); -lean_closure_set(x_34, 3, x_2); -lean_closure_set(x_34, 4, x_3); -lean_closure_set(x_34, 5, x_26); -x_35 = l_Lean_Meta_forallTelescopeReducing___rarg(x_32, x_34, x_10, x_33); -return x_35; +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +lean_dec(x_32); +x_35 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__4___boxed), 10, 6); +lean_closure_set(x_35, 0, x_29); +lean_closure_set(x_35, 1, x_6); +lean_closure_set(x_35, 2, x_1); +lean_closure_set(x_35, 3, x_2); +lean_closure_set(x_35, 4, x_3); +lean_closure_set(x_35, 5, x_27); +x_36 = l_Lean_Meta_forallTelescopeReducing___rarg(x_33, x_35, x_10, x_34); +return x_36; } else { -uint8_t x_36; -lean_dec(x_28); -lean_dec(x_26); +uint8_t x_37; +lean_dec(x_29); +lean_dec(x_27); lean_dec(x_10); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_36 = !lean_is_exclusive(x_31); -if (x_36 == 0) +x_37 = !lean_is_exclusive(x_32); +if (x_37 == 0) { -return x_31; +return x_32; } else { -lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_37 = lean_ctor_get(x_31, 0); -x_38 = lean_ctor_get(x_31, 1); +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_32, 0); +x_39 = lean_ctor_get(x_32, 1); +lean_inc(x_39); lean_inc(x_38); -lean_inc(x_37); -lean_dec(x_31); -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_37); -lean_ctor_set(x_39, 1, x_38); -return x_39; +lean_dec(x_32); +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; } } } @@ -1518,40 +1521,41 @@ return x_39; } else { -lean_object* x_56; lean_object* x_57; -lean_dec(x_16); +lean_object* x_59; lean_object* x_60; lean_object* x_61; +lean_dec(x_17); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_56 = l_Lean_Meta_mkNoConfusion___closed__8; -x_57 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_56, x_10, x_11); +x_59 = l_Lean_Meta_mkNoConfusion___closed__8; +x_60 = lean_box(0); +x_61 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_59, x_60, x_10, x_11); lean_dec(x_10); -return x_57; +return x_61; } } } case 5: { -lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; -x_58 = lean_ctor_get(x_7, 0); -lean_inc(x_58); -x_59 = lean_ctor_get(x_7, 1); -lean_inc(x_59); +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_62 = lean_ctor_get(x_7, 0); +lean_inc(x_62); +x_63 = lean_ctor_get(x_7, 1); +lean_inc(x_63); lean_dec(x_7); -x_60 = lean_array_set(x_8, x_9, x_59); -x_61 = lean_unsigned_to_nat(1u); -x_62 = lean_nat_sub(x_9, x_61); +x_64 = lean_array_set(x_8, x_9, x_63); +x_65 = lean_unsigned_to_nat(1u); +x_66 = lean_nat_sub(x_9, x_65); lean_dec(x_9); -x_7 = x_58; -x_8 = x_60; -x_9 = x_62; +x_7 = x_62; +x_8 = x_64; +x_9 = x_66; goto _start; } default: { -lean_object* x_64; lean_object* x_65; +lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); @@ -1559,10 +1563,11 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_64 = l_Lean_Meta_mkNoConfusion___closed__8; -x_65 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_64, x_10, x_11); +x_68 = l_Lean_Meta_mkNoConfusion___closed__8; +x_69 = lean_box(0); +x_70 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_68, x_69, x_10, x_11); lean_dec(x_10); -return x_65; +return x_70; } } } @@ -11532,1474 +11537,1488 @@ x_14 = lean_unsigned_to_nat(3u); x_15 = l_Lean_Expr_isAppOfArity___main(x_9, x_13, x_14); if (x_15 == 0) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_dec(x_9); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); x_16 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2; x_17 = l_Lean_Meta_mkNoConfusion___closed__5; -x_18 = l_Lean_Meta_throwTacticEx___rarg(x_16, x_1, x_17, x_7, x_8); +x_18 = lean_box(0); +x_19 = l_Lean_Meta_throwTacticEx___rarg(x_16, x_1, x_17, x_18, x_7, x_8); lean_dec(x_7); -return x_18; +return x_19; } else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = l_Lean_Expr_appFn_x21(x_9); -x_20 = l_Lean_Expr_appArg_x21(x_19); -lean_dec(x_19); -x_21 = l_Lean_Expr_appArg_x21(x_9); +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = l_Lean_Expr_appFn_x21(x_9); +x_21 = l_Lean_Expr_appArg_x21(x_20); +lean_dec(x_20); +x_22 = l_Lean_Expr_appArg_x21(x_9); lean_dec(x_9); lean_inc(x_7); +lean_inc(x_22); lean_inc(x_21); -lean_inc(x_20); -x_22 = l_Lean_Meta_isExprDefEq(x_20, x_21, x_7, x_8); -if (lean_obj_tag(x_22) == 0) +x_23 = l_Lean_Meta_isExprDefEq(x_21, x_22, x_7, x_8); +if (lean_obj_tag(x_23) == 0) { -lean_object* x_23; uint8_t x_24; -x_23 = lean_ctor_get(x_22, 0); -lean_inc(x_23); -x_24 = lean_unbox(x_23); -if (x_24 == 0) +lean_object* x_24; uint8_t x_25; +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_unbox(x_24); +if (x_25 == 0) { -lean_object* x_25; lean_object* x_26; -x_25 = lean_ctor_get(x_22, 1); -lean_inc(x_25); -lean_dec(x_22); +lean_object* x_26; lean_object* x_27; +x_26 = lean_ctor_get(x_23, 1); +lean_inc(x_26); +lean_dec(x_23); lean_inc(x_7); -lean_inc(x_20); -x_26 = l_Lean_Meta_whnf(x_20, x_7, x_25); -if (lean_obj_tag(x_26) == 0) +lean_inc(x_21); +x_27 = l_Lean_Meta_whnf(x_21, x_7, x_26); +if (lean_obj_tag(x_27) == 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_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_27, 0); lean_inc(x_28); -lean_dec(x_26); -lean_inc(x_7); -lean_inc(x_21); -x_29 = l_Lean_Meta_whnf(x_21, x_7, x_28); -if (lean_obj_tag(x_29) == 0) -{ -lean_object* x_30; lean_object* x_31; uint8_t x_32; -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -x_31 = lean_ctor_get(x_29, 1); -lean_inc(x_31); -lean_dec(x_29); -x_32 = lean_expr_eqv(x_27, x_20); -if (x_32 == 0) -{ -lean_object* x_33; lean_object* x_34; -lean_dec(x_23); -lean_dec(x_21); -lean_dec(x_20); -lean_inc(x_2); -x_33 = l_Lean_mkFVar(x_2); -lean_inc(x_7); -x_34 = l_Lean_Meta_mkEq(x_27, x_30, x_7, x_31); -if (lean_obj_tag(x_34) == 0) -{ -lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; -x_35 = lean_ctor_get(x_34, 0); -lean_inc(x_35); -x_36 = lean_ctor_get(x_34, 1); -lean_inc(x_36); -lean_dec(x_34); -x_37 = l_Lean_LocalDecl_userName(x_6); -x_38 = l_Lean_Meta_assert(x_1, x_37, x_35, x_33, x_7, x_36); -if (lean_obj_tag(x_38) == 0) -{ -lean_object* x_39; lean_object* x_40; lean_object* x_41; -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 = l_Lean_Meta_clear(x_39, x_2, x_7, x_40); -if (lean_obj_tag(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; -x_42 = lean_ctor_get(x_41, 0); -lean_inc(x_42); -x_43 = lean_ctor_get(x_41, 1); -lean_inc(x_43); -lean_dec(x_41); -x_44 = lean_unsigned_to_nat(1u); -x_45 = lean_nat_add(x_3, x_44); -x_46 = lean_ctor_get(x_4, 1); -lean_inc(x_46); -x_47 = lean_ctor_get(x_4, 2); -lean_inc(x_47); -lean_dec(x_4); -x_48 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_48, 0, x_42); -lean_ctor_set(x_48, 1, x_46); -lean_ctor_set(x_48, 2, x_47); -x_49 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_5); -x_50 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_45, x_49, x_7, x_43); -lean_dec(x_7); -lean_dec(x_45); -return x_50; -} -else -{ -uint8_t x_51; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_51 = !lean_is_exclusive(x_41); -if (x_51 == 0) -{ -return x_41; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_41, 0); -x_53 = lean_ctor_get(x_41, 1); -lean_inc(x_53); -lean_inc(x_52); -lean_dec(x_41); -x_54 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_54, 0, x_52); -lean_ctor_set(x_54, 1, x_53); -return x_54; -} -} -} -else -{ -uint8_t x_55; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -x_55 = !lean_is_exclusive(x_38); -if (x_55 == 0) -{ -return x_38; -} -else -{ -lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_56 = lean_ctor_get(x_38, 0); -x_57 = lean_ctor_get(x_38, 1); -lean_inc(x_57); -lean_inc(x_56); -lean_dec(x_38); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_56); -lean_ctor_set(x_58, 1, x_57); -return x_58; -} -} -} -else -{ -uint8_t x_59; -lean_dec(x_33); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_59 = !lean_is_exclusive(x_34); -if (x_59 == 0) -{ -return x_34; -} -else -{ -lean_object* x_60; lean_object* x_61; lean_object* x_62; -x_60 = lean_ctor_get(x_34, 0); -x_61 = lean_ctor_get(x_34, 1); -lean_inc(x_61); -lean_inc(x_60); -lean_dec(x_34); -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_60); -lean_ctor_set(x_62, 1, x_61); -return x_62; -} -} -} -else -{ -uint8_t x_63; -x_63 = lean_expr_eqv(x_30, x_21); -if (x_63 == 0) -{ -lean_object* x_64; lean_object* x_65; -lean_dec(x_23); -lean_dec(x_21); -lean_dec(x_20); -lean_inc(x_2); -x_64 = l_Lean_mkFVar(x_2); -lean_inc(x_7); -x_65 = l_Lean_Meta_mkEq(x_27, x_30, x_7, x_31); -if (lean_obj_tag(x_65) == 0) -{ -lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; -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_68 = l_Lean_LocalDecl_userName(x_6); -x_69 = l_Lean_Meta_assert(x_1, x_68, x_66, x_64, x_7, x_67); -if (lean_obj_tag(x_69) == 0) -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_70 = lean_ctor_get(x_69, 0); -lean_inc(x_70); -x_71 = lean_ctor_get(x_69, 1); -lean_inc(x_71); -lean_dec(x_69); -x_72 = l_Lean_Meta_clear(x_70, x_2, x_7, x_71); -if (lean_obj_tag(x_72) == 0) -{ -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_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 = lean_unsigned_to_nat(1u); -x_76 = lean_nat_add(x_3, x_75); -x_77 = lean_ctor_get(x_4, 1); -lean_inc(x_77); -x_78 = lean_ctor_get(x_4, 2); -lean_inc(x_78); -lean_dec(x_4); -x_79 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_79, 0, x_73); -lean_ctor_set(x_79, 1, x_77); -lean_ctor_set(x_79, 2, x_78); -x_80 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_80, 0, x_79); -lean_ctor_set(x_80, 1, x_5); -x_81 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_76, x_80, x_7, x_74); -lean_dec(x_7); -lean_dec(x_76); -return x_81; -} -else -{ -uint8_t x_82; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_82 = !lean_is_exclusive(x_72); -if (x_82 == 0) -{ -return x_72; -} -else -{ -lean_object* x_83; lean_object* x_84; lean_object* x_85; -x_83 = lean_ctor_get(x_72, 0); -x_84 = lean_ctor_get(x_72, 1); -lean_inc(x_84); -lean_inc(x_83); -lean_dec(x_72); -x_85 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_85, 0, x_83); -lean_ctor_set(x_85, 1, x_84); -return x_85; -} -} -} -else -{ -uint8_t x_86; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -x_86 = !lean_is_exclusive(x_69); -if (x_86 == 0) -{ -return x_69; -} -else -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_69, 0); -x_88 = lean_ctor_get(x_69, 1); -lean_inc(x_88); -lean_inc(x_87); -lean_dec(x_69); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_87); -lean_ctor_set(x_89, 1, x_88); -return x_89; -} -} -} -else -{ -uint8_t x_90; -lean_dec(x_64); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_90 = !lean_is_exclusive(x_65); -if (x_90 == 0) -{ -return x_65; -} -else -{ -lean_object* x_91; lean_object* x_92; lean_object* x_93; -x_91 = lean_ctor_get(x_65, 0); -x_92 = lean_ctor_get(x_65, 1); -lean_inc(x_92); -lean_inc(x_91); -lean_dec(x_65); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_91); -lean_ctor_set(x_93, 1, x_92); -return x_93; -} -} -} -else -{ -lean_dec(x_30); +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); lean_dec(x_27); -switch (lean_obj_tag(x_20)) { -case 0: +lean_inc(x_7); +lean_inc(x_22); +x_30 = l_Lean_Meta_whnf(x_22, x_7, x_29); +if (lean_obj_tag(x_30) == 0) { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) +lean_object* x_31; lean_object* x_32; uint8_t x_33; +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +x_33 = lean_expr_eqv(x_28, x_21); +if (x_33 == 0) { -lean_object* x_94; uint8_t x_95; lean_object* x_96; +lean_object* x_34; lean_object* x_35; +lean_dec(x_24); +lean_dec(x_22); lean_dec(x_21); -x_94 = lean_ctor_get(x_4, 2); -lean_inc(x_94); -x_95 = 1; -x_96 = l_Lean_Meta_substCore(x_1, x_2, x_95, x_94, x_7, x_31); -if (lean_obj_tag(x_96) == 0) +lean_inc(x_2); +x_34 = l_Lean_mkFVar(x_2); +lean_inc(x_7); +x_35 = l_Lean_Meta_mkEq(x_28, x_31, x_7, x_32); +if (lean_obj_tag(x_35) == 0) { -lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_97 = lean_ctor_get(x_96, 0); -lean_inc(x_97); -x_98 = lean_ctor_get(x_96, 1); -lean_inc(x_98); -lean_dec(x_96); -x_99 = lean_ctor_get(x_97, 0); -lean_inc(x_99); -x_100 = lean_ctor_get(x_97, 1); -lean_inc(x_100); -lean_dec(x_97); -x_101 = lean_ctor_get(x_4, 1); -lean_inc(x_101); +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +x_38 = l_Lean_LocalDecl_userName(x_6); +x_39 = l_Lean_Meta_assert(x_1, x_38, x_36, x_34, x_7, x_37); +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_Lean_Meta_clear(x_40, x_2, x_7, x_41); +if (lean_obj_tag(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_42, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_42, 1); +lean_inc(x_44); +lean_dec(x_42); +x_45 = lean_unsigned_to_nat(1u); +x_46 = lean_nat_add(x_3, x_45); +x_47 = lean_ctor_get(x_4, 1); +lean_inc(x_47); +x_48 = lean_ctor_get(x_4, 2); +lean_inc(x_48); lean_dec(x_4); -x_102 = x_101; -x_103 = lean_unsigned_to_nat(0u); -x_104 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1(x_99, x_103, x_102); -x_105 = x_104; -x_106 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_106, 0, x_100); -lean_ctor_set(x_106, 1, x_105); -lean_ctor_set(x_106, 2, x_99); -x_107 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_107, 0, x_106); -lean_ctor_set(x_107, 1, x_5); -x_108 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_107, x_7, x_98); +x_49 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_49, 0, x_43); +lean_ctor_set(x_49, 1, x_47); +lean_ctor_set(x_49, 2, x_48); +x_50 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_5); +x_51 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_46, x_50, x_7, x_44); lean_dec(x_7); -return x_108; +lean_dec(x_46); +return x_51; } else { -uint8_t x_109; +uint8_t x_52; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_109 = !lean_is_exclusive(x_96); -if (x_109 == 0) +x_52 = !lean_is_exclusive(x_42); +if (x_52 == 0) { -return x_96; +return x_42; } else { -lean_object* x_110; lean_object* x_111; lean_object* x_112; -x_110 = lean_ctor_get(x_96, 0); -x_111 = lean_ctor_get(x_96, 1); -lean_inc(x_111); -lean_inc(x_110); -lean_dec(x_96); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_110); -lean_ctor_set(x_112, 1, x_111); -return x_112; +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_42, 0); +x_54 = lean_ctor_get(x_42, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_42); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; } } } else { -lean_object* x_113; +uint8_t x_56; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_56 = !lean_is_exclusive(x_39); +if (x_56 == 0) +{ +return x_39; +} +else +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_39, 0); +x_58 = lean_ctor_get(x_39, 1); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_39); +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +return x_59; +} +} +} +else +{ +uint8_t x_60; +lean_dec(x_34); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_60 = !lean_is_exclusive(x_35); +if (x_60 == 0) +{ +return x_35; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_35, 0); +x_62 = lean_ctor_get(x_35, 1); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_35); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +return x_63; +} +} +} +else +{ +uint8_t x_64; +x_64 = lean_expr_eqv(x_31, x_22); +if (x_64 == 0) +{ +lean_object* x_65; lean_object* x_66; +lean_dec(x_24); +lean_dec(x_22); lean_dec(x_21); -x_113 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_113) == 0) +lean_inc(x_2); +x_65 = l_Lean_mkFVar(x_2); +lean_inc(x_7); +x_66 = l_Lean_Meta_mkEq(x_28, x_31, x_7, x_32); +if (lean_obj_tag(x_66) == 0) { -lean_object* x_114; -x_114 = lean_ctor_get(x_113, 0); -lean_inc(x_114); -if (lean_obj_tag(x_114) == 0) +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_67 = lean_ctor_get(x_66, 0); +lean_inc(x_67); +x_68 = lean_ctor_get(x_66, 1); +lean_inc(x_68); +lean_dec(x_66); +x_69 = l_Lean_LocalDecl_userName(x_6); +x_70 = l_Lean_Meta_assert(x_1, x_69, x_67, x_65, x_7, x_68); +if (lean_obj_tag(x_70) == 0) { -uint8_t x_115; +lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_71 = lean_ctor_get(x_70, 0); +lean_inc(x_71); +x_72 = lean_ctor_get(x_70, 1); +lean_inc(x_72); +lean_dec(x_70); +x_73 = l_Lean_Meta_clear(x_71, x_2, x_7, x_72); +if (lean_obj_tag(x_73) == 0) +{ +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; +x_74 = lean_ctor_get(x_73, 0); +lean_inc(x_74); +x_75 = lean_ctor_get(x_73, 1); +lean_inc(x_75); +lean_dec(x_73); +x_76 = lean_unsigned_to_nat(1u); +x_77 = lean_nat_add(x_3, x_76); +x_78 = lean_ctor_get(x_4, 1); +lean_inc(x_78); +x_79 = lean_ctor_get(x_4, 2); +lean_inc(x_79); +lean_dec(x_4); +x_80 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_80, 0, x_74); +lean_ctor_set(x_80, 1, x_78); +lean_ctor_set(x_80, 2, x_79); +x_81 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_81, 0, x_80); +lean_ctor_set(x_81, 1, x_5); +x_82 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_77, x_81, x_7, x_75); +lean_dec(x_7); +lean_dec(x_77); +return x_82; +} +else +{ +uint8_t x_83; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_115 = !lean_is_exclusive(x_113); -if (x_115 == 0) +x_83 = !lean_is_exclusive(x_73); +if (x_83 == 0) { -lean_object* x_116; lean_object* x_117; -x_116 = lean_ctor_get(x_113, 0); -lean_dec(x_116); -x_117 = lean_box(0); -lean_ctor_set(x_113, 0, x_117); -return x_113; +return x_73; } else { -lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_118 = lean_ctor_get(x_113, 1); -lean_inc(x_118); -lean_dec(x_113); -x_119 = lean_box(0); -x_120 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_120, 0, x_119); -lean_ctor_set(x_120, 1, x_118); -return x_120; +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_73, 0); +x_85 = lean_ctor_get(x_73, 1); +lean_inc(x_85); +lean_inc(x_84); +lean_dec(x_73); +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_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; -x_121 = lean_ctor_get(x_113, 1); -lean_inc(x_121); -lean_dec(x_113); -x_122 = lean_ctor_get(x_114, 0); -lean_inc(x_122); -x_123 = lean_ctor_get(x_114, 1); -lean_inc(x_123); -lean_dec(x_114); -x_124 = lean_nat_add(x_3, x_123); -lean_dec(x_123); -x_125 = lean_ctor_get(x_4, 1); -lean_inc(x_125); -x_126 = lean_ctor_get(x_4, 2); -lean_inc(x_126); -lean_dec(x_4); -x_127 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_127, 0, x_122); -lean_ctor_set(x_127, 1, x_125); -lean_ctor_set(x_127, 2, x_126); -x_128 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_128, 0, x_127); -lean_ctor_set(x_128, 1, x_5); -x_129 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_124, x_128, x_7, x_121); -lean_dec(x_7); -lean_dec(x_124); -return x_129; -} -} -else -{ -uint8_t x_130; +uint8_t x_87; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_130 = !lean_is_exclusive(x_113); -if (x_130 == 0) +lean_dec(x_2); +x_87 = !lean_is_exclusive(x_70); +if (x_87 == 0) { -return x_113; +return x_70; } else { -lean_object* x_131; lean_object* x_132; lean_object* x_133; -x_131 = lean_ctor_get(x_113, 0); -x_132 = lean_ctor_get(x_113, 1); -lean_inc(x_132); -lean_inc(x_131); -lean_dec(x_113); -x_133 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_133, 0, x_131); -lean_ctor_set(x_133, 1, x_132); -return x_133; +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_70, 0); +x_89 = lean_ctor_get(x_70, 1); +lean_inc(x_89); +lean_inc(x_88); +lean_dec(x_70); +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; } } } -} -case 1: +else { +uint8_t x_91; +lean_dec(x_65); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_91 = !lean_is_exclusive(x_66); +if (x_91 == 0) +{ +return x_66; +} +else +{ +lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_92 = lean_ctor_get(x_66, 0); +x_93 = lean_ctor_get(x_66, 1); +lean_inc(x_93); +lean_inc(x_92); +lean_dec(x_66); +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_92); +lean_ctor_set(x_94, 1, x_93); +return x_94; +} +} +} +else +{ +lean_dec(x_31); +lean_dec(x_28); switch (lean_obj_tag(x_21)) { case 0: { -lean_object* x_134; uint8_t x_135; lean_object* x_136; +lean_dec(x_24); lean_dec(x_21); -lean_dec(x_20); -x_134 = lean_ctor_get(x_4, 2); -lean_inc(x_134); -x_135 = lean_unbox(x_23); -lean_dec(x_23); -x_136 = l_Lean_Meta_substCore(x_1, x_2, x_135, x_134, x_7, x_31); -if (lean_obj_tag(x_136) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -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 = lean_ctor_get(x_137, 0); -lean_inc(x_139); -x_140 = lean_ctor_get(x_137, 1); -lean_inc(x_140); -lean_dec(x_137); -x_141 = lean_ctor_get(x_4, 1); -lean_inc(x_141); +lean_object* x_95; uint8_t x_96; lean_object* x_97; +lean_dec(x_22); +x_95 = lean_ctor_get(x_4, 2); +lean_inc(x_95); +x_96 = 1; +x_97 = l_Lean_Meta_substCore(x_1, x_2, x_96, x_95, x_96, x_7, x_32); +if (lean_obj_tag(x_97) == 0) +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_ctor_get(x_97, 1); +lean_inc(x_99); +lean_dec(x_97); +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_ctor_get(x_4, 1); +lean_inc(x_102); lean_dec(x_4); -x_142 = x_141; -x_143 = lean_unsigned_to_nat(0u); -x_144 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__2(x_139, x_143, x_142); -x_145 = x_144; -x_146 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_146, 0, x_140); -lean_ctor_set(x_146, 1, x_145); -lean_ctor_set(x_146, 2, x_139); -x_147 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_147, 0, x_146); -lean_ctor_set(x_147, 1, x_5); -x_148 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_147, x_7, x_138); +x_103 = x_102; +x_104 = lean_unsigned_to_nat(0u); +x_105 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1(x_100, x_104, x_103); +x_106 = x_105; +x_107 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_107, 0, x_101); +lean_ctor_set(x_107, 1, x_106); +lean_ctor_set(x_107, 2, x_100); +x_108 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_108, 0, x_107); +lean_ctor_set(x_108, 1, x_5); +x_109 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_108, x_7, x_99); lean_dec(x_7); -return x_148; +return x_109; } else { -uint8_t x_149; +uint8_t x_110; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_149 = !lean_is_exclusive(x_136); -if (x_149 == 0) +x_110 = !lean_is_exclusive(x_97); +if (x_110 == 0) { -return x_136; +return x_97; } else { -lean_object* x_150; lean_object* x_151; lean_object* x_152; -x_150 = lean_ctor_get(x_136, 0); -x_151 = lean_ctor_get(x_136, 1); -lean_inc(x_151); -lean_inc(x_150); -lean_dec(x_136); -x_152 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_152, 0, x_150); -lean_ctor_set(x_152, 1, x_151); -return x_152; +lean_object* x_111; lean_object* x_112; lean_object* x_113; +x_111 = lean_ctor_get(x_97, 0); +x_112 = lean_ctor_get(x_97, 1); +lean_inc(x_112); +lean_inc(x_111); +lean_dec(x_97); +x_113 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_113, 0, x_111); +lean_ctor_set(x_113, 1, x_112); +return x_113; +} +} +} +else +{ +lean_object* x_114; +lean_dec(x_22); +x_114 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_114) == 0) +{ +lean_object* x_115; +x_115 = lean_ctor_get(x_114, 0); +lean_inc(x_115); +if (lean_obj_tag(x_115) == 0) +{ +uint8_t x_116; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_116 = !lean_is_exclusive(x_114); +if (x_116 == 0) +{ +lean_object* x_117; lean_object* x_118; +x_117 = lean_ctor_get(x_114, 0); +lean_dec(x_117); +x_118 = lean_box(0); +lean_ctor_set(x_114, 0, x_118); +return x_114; +} +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; +x_119 = lean_ctor_get(x_114, 1); +lean_inc(x_119); +lean_dec(x_114); +x_120 = lean_box(0); +x_121 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_121, 0, x_120); +lean_ctor_set(x_121, 1, x_119); +return x_121; +} +} +else +{ +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; +x_122 = lean_ctor_get(x_114, 1); +lean_inc(x_122); +lean_dec(x_114); +x_123 = lean_ctor_get(x_115, 0); +lean_inc(x_123); +x_124 = lean_ctor_get(x_115, 1); +lean_inc(x_124); +lean_dec(x_115); +x_125 = lean_nat_add(x_3, x_124); +lean_dec(x_124); +x_126 = lean_ctor_get(x_4, 1); +lean_inc(x_126); +x_127 = lean_ctor_get(x_4, 2); +lean_inc(x_127); +lean_dec(x_4); +x_128 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_128, 0, x_123); +lean_ctor_set(x_128, 1, x_126); +lean_ctor_set(x_128, 2, x_127); +x_129 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_129, 0, x_128); +lean_ctor_set(x_129, 1, x_5); +x_130 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_125, x_129, x_7, x_122); +lean_dec(x_7); +lean_dec(x_125); +return x_130; +} +} +else +{ +uint8_t x_131; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_131 = !lean_is_exclusive(x_114); +if (x_131 == 0) +{ +return x_114; +} +else +{ +lean_object* x_132; lean_object* x_133; lean_object* x_134; +x_132 = lean_ctor_get(x_114, 0); +x_133 = lean_ctor_get(x_114, 1); +lean_inc(x_133); +lean_inc(x_132); +lean_dec(x_114); +x_134 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_134, 0, x_132); +lean_ctor_set(x_134, 1, x_133); +return x_134; +} } } } case 1: { -lean_object* x_153; lean_object* x_154; lean_object* x_155; -lean_dec(x_23); -x_153 = lean_ctor_get(x_20, 0); -lean_inc(x_153); -lean_dec(x_20); -x_154 = lean_ctor_get(x_21, 0); -lean_inc(x_154); +switch (lean_obj_tag(x_22)) { +case 0: +{ +lean_object* x_135; uint8_t x_136; uint8_t x_137; lean_object* x_138; +lean_dec(x_22); lean_dec(x_21); -lean_inc(x_7); -x_155 = l_Lean_Meta_getLocalDecl(x_153, x_7, x_31); -if (lean_obj_tag(x_155) == 0) +x_135 = lean_ctor_get(x_4, 2); +lean_inc(x_135); +x_136 = 1; +x_137 = lean_unbox(x_24); +lean_dec(x_24); +x_138 = l_Lean_Meta_substCore(x_1, x_2, x_137, x_135, x_136, x_7, x_32); +if (lean_obj_tag(x_138) == 0) { -lean_object* x_156; lean_object* x_157; lean_object* x_158; -x_156 = lean_ctor_get(x_155, 0); +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; +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 = lean_ctor_get(x_139, 0); +lean_inc(x_141); +x_142 = lean_ctor_get(x_139, 1); +lean_inc(x_142); +lean_dec(x_139); +x_143 = lean_ctor_get(x_4, 1); +lean_inc(x_143); +lean_dec(x_4); +x_144 = x_143; +x_145 = lean_unsigned_to_nat(0u); +x_146 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__2(x_141, x_145, x_144); +x_147 = x_146; +x_148 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_148, 0, x_142); +lean_ctor_set(x_148, 1, x_147); +lean_ctor_set(x_148, 2, x_141); +x_149 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_149, 0, x_148); +lean_ctor_set(x_149, 1, x_5); +x_150 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_149, x_7, x_140); +lean_dec(x_7); +return x_150; +} +else +{ +uint8_t x_151; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_151 = !lean_is_exclusive(x_138); +if (x_151 == 0) +{ +return x_138; +} +else +{ +lean_object* x_152; lean_object* x_153; lean_object* x_154; +x_152 = lean_ctor_get(x_138, 0); +x_153 = lean_ctor_get(x_138, 1); +lean_inc(x_153); +lean_inc(x_152); +lean_dec(x_138); +x_154 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_154, 0, x_152); +lean_ctor_set(x_154, 1, x_153); +return x_154; +} +} +} +case 1: +{ +lean_object* x_155; lean_object* x_156; lean_object* x_157; +lean_dec(x_24); +x_155 = lean_ctor_get(x_21, 0); +lean_inc(x_155); +lean_dec(x_21); +x_156 = lean_ctor_get(x_22, 0); lean_inc(x_156); -x_157 = lean_ctor_get(x_155, 1); -lean_inc(x_157); -lean_dec(x_155); +lean_dec(x_22); lean_inc(x_7); -x_158 = l_Lean_Meta_getLocalDecl(x_154, x_7, x_157); -if (lean_obj_tag(x_158) == 0) +x_157 = l_Lean_Meta_getLocalDecl(x_155, x_7, x_32); +if (lean_obj_tag(x_157) == 0) { -lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; uint8_t x_163; lean_object* x_164; lean_object* x_165; -x_159 = lean_ctor_get(x_158, 0); +lean_object* x_158; lean_object* x_159; lean_object* x_160; +x_158 = lean_ctor_get(x_157, 0); +lean_inc(x_158); +x_159 = lean_ctor_get(x_157, 1); lean_inc(x_159); -x_160 = lean_ctor_get(x_158, 1); -lean_inc(x_160); +lean_dec(x_157); +lean_inc(x_7); +x_160 = l_Lean_Meta_getLocalDecl(x_156, x_7, x_159); +if (lean_obj_tag(x_160) == 0) +{ +lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; uint8_t x_165; lean_object* x_166; uint8_t x_167; lean_object* x_168; +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_163 = l_Lean_LocalDecl_index(x_158); lean_dec(x_158); -x_161 = l_Lean_LocalDecl_index(x_156); -lean_dec(x_156); -x_162 = l_Lean_LocalDecl_index(x_159); -lean_dec(x_159); -x_163 = lean_nat_dec_lt(x_161, x_162); -lean_dec(x_162); +x_164 = l_Lean_LocalDecl_index(x_161); lean_dec(x_161); -x_164 = lean_ctor_get(x_4, 2); -lean_inc(x_164); -x_165 = l_Lean_Meta_substCore(x_1, x_2, x_163, x_164, x_7, x_160); -if (lean_obj_tag(x_165) == 0) -{ -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; -x_166 = lean_ctor_get(x_165, 0); +x_165 = lean_nat_dec_lt(x_163, x_164); +lean_dec(x_164); +lean_dec(x_163); +x_166 = lean_ctor_get(x_4, 2); lean_inc(x_166); -x_167 = lean_ctor_get(x_165, 1); -lean_inc(x_167); -lean_dec(x_165); -x_168 = lean_ctor_get(x_166, 0); -lean_inc(x_168); -x_169 = lean_ctor_get(x_166, 1); +x_167 = 1; +x_168 = l_Lean_Meta_substCore(x_1, x_2, x_165, x_166, x_167, x_7, x_162); +if (lean_obj_tag(x_168) == 0) +{ +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; +x_169 = lean_ctor_get(x_168, 0); lean_inc(x_169); -lean_dec(x_166); -x_170 = lean_ctor_get(x_4, 1); +x_170 = lean_ctor_get(x_168, 1); lean_inc(x_170); +lean_dec(x_168); +x_171 = lean_ctor_get(x_169, 0); +lean_inc(x_171); +x_172 = lean_ctor_get(x_169, 1); +lean_inc(x_172); +lean_dec(x_169); +x_173 = lean_ctor_get(x_4, 1); +lean_inc(x_173); lean_dec(x_4); -x_171 = x_170; -x_172 = lean_unsigned_to_nat(0u); -x_173 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3(x_168, x_172, x_171); x_174 = x_173; -x_175 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_175, 0, x_169); -lean_ctor_set(x_175, 1, x_174); -lean_ctor_set(x_175, 2, x_168); -x_176 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_176, 0, x_175); -lean_ctor_set(x_176, 1, x_5); -x_177 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_176, x_7, x_167); +x_175 = lean_unsigned_to_nat(0u); +x_176 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3(x_171, x_175, x_174); +x_177 = x_176; +x_178 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_178, 0, x_172); +lean_ctor_set(x_178, 1, x_177); +lean_ctor_set(x_178, 2, x_171); +x_179 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_179, 0, x_178); +lean_ctor_set(x_179, 1, x_5); +x_180 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_179, x_7, x_170); lean_dec(x_7); -return x_177; +return x_180; } else { -uint8_t x_178; +uint8_t x_181; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_178 = !lean_is_exclusive(x_165); -if (x_178 == 0) +x_181 = !lean_is_exclusive(x_168); +if (x_181 == 0) { -return x_165; +return x_168; } else { -lean_object* x_179; lean_object* x_180; lean_object* x_181; -x_179 = lean_ctor_get(x_165, 0); -x_180 = lean_ctor_get(x_165, 1); -lean_inc(x_180); -lean_inc(x_179); -lean_dec(x_165); -x_181 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_181, 0, x_179); -lean_ctor_set(x_181, 1, x_180); -return x_181; +lean_object* x_182; lean_object* x_183; lean_object* x_184; +x_182 = lean_ctor_get(x_168, 0); +x_183 = lean_ctor_get(x_168, 1); +lean_inc(x_183); +lean_inc(x_182); +lean_dec(x_168); +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; } } } else { -uint8_t x_182; +uint8_t x_185; +lean_dec(x_158); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_185 = !lean_is_exclusive(x_160); +if (x_185 == 0) +{ +return x_160; +} +else +{ +lean_object* x_186; lean_object* x_187; lean_object* x_188; +x_186 = lean_ctor_get(x_160, 0); +x_187 = lean_ctor_get(x_160, 1); +lean_inc(x_187); +lean_inc(x_186); +lean_dec(x_160); +x_188 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_188, 0, x_186); +lean_ctor_set(x_188, 1, x_187); +return x_188; +} +} +} +else +{ +uint8_t x_189; lean_dec(x_156); lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_182 = !lean_is_exclusive(x_158); -if (x_182 == 0) +x_189 = !lean_is_exclusive(x_157); +if (x_189 == 0) { -return x_158; +return x_157; } else { -lean_object* x_183; lean_object* x_184; lean_object* x_185; -x_183 = lean_ctor_get(x_158, 0); -x_184 = lean_ctor_get(x_158, 1); -lean_inc(x_184); -lean_inc(x_183); -lean_dec(x_158); -x_185 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_185, 0, x_183); -lean_ctor_set(x_185, 1, x_184); -return x_185; -} -} -} -else -{ -uint8_t x_186; -lean_dec(x_154); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_186 = !lean_is_exclusive(x_155); -if (x_186 == 0) -{ -return x_155; -} -else -{ -lean_object* x_187; lean_object* x_188; lean_object* x_189; -x_187 = lean_ctor_get(x_155, 0); -x_188 = lean_ctor_get(x_155, 1); -lean_inc(x_188); -lean_inc(x_187); -lean_dec(x_155); -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_187); -lean_ctor_set(x_189, 1, x_188); -return x_189; +lean_object* x_190; lean_object* x_191; lean_object* x_192; +x_190 = lean_ctor_get(x_157, 0); +x_191 = lean_ctor_get(x_157, 1); +lean_inc(x_191); +lean_inc(x_190); +lean_dec(x_157); +x_192 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_192, 0, x_190); +lean_ctor_set(x_192, 1, x_191); +return x_192; } } } case 2: { -lean_object* x_190; uint8_t x_191; lean_object* x_192; +lean_object* x_193; uint8_t x_194; uint8_t x_195; lean_object* x_196; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_190 = lean_ctor_get(x_4, 2); -lean_inc(x_190); -x_191 = lean_unbox(x_23); -lean_dec(x_23); -x_192 = l_Lean_Meta_substCore(x_1, x_2, x_191, x_190, x_7, x_31); -if (lean_obj_tag(x_192) == 0) -{ -lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; -x_193 = lean_ctor_get(x_192, 0); +x_193 = lean_ctor_get(x_4, 2); lean_inc(x_193); -x_194 = lean_ctor_get(x_192, 1); -lean_inc(x_194); -lean_dec(x_192); -x_195 = lean_ctor_get(x_193, 0); -lean_inc(x_195); -x_196 = lean_ctor_get(x_193, 1); -lean_inc(x_196); -lean_dec(x_193); -x_197 = lean_ctor_get(x_4, 1); +x_194 = 1; +x_195 = lean_unbox(x_24); +lean_dec(x_24); +x_196 = l_Lean_Meta_substCore(x_1, x_2, x_195, x_193, x_194, x_7, x_32); +if (lean_obj_tag(x_196) == 0) +{ +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; +x_197 = lean_ctor_get(x_196, 0); lean_inc(x_197); +x_198 = lean_ctor_get(x_196, 1); +lean_inc(x_198); +lean_dec(x_196); +x_199 = lean_ctor_get(x_197, 0); +lean_inc(x_199); +x_200 = lean_ctor_get(x_197, 1); +lean_inc(x_200); +lean_dec(x_197); +x_201 = lean_ctor_get(x_4, 1); +lean_inc(x_201); lean_dec(x_4); -x_198 = x_197; -x_199 = lean_unsigned_to_nat(0u); -x_200 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4(x_195, x_199, x_198); -x_201 = x_200; -x_202 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_202, 0, x_196); -lean_ctor_set(x_202, 1, x_201); -lean_ctor_set(x_202, 2, x_195); -x_203 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_203, 0, x_202); -lean_ctor_set(x_203, 1, x_5); -x_204 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_203, x_7, x_194); +x_202 = x_201; +x_203 = lean_unsigned_to_nat(0u); +x_204 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4(x_199, x_203, x_202); +x_205 = x_204; +x_206 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_206, 0, x_200); +lean_ctor_set(x_206, 1, x_205); +lean_ctor_set(x_206, 2, x_199); +x_207 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_207, 0, x_206); +lean_ctor_set(x_207, 1, x_5); +x_208 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_207, x_7, x_198); lean_dec(x_7); -return x_204; +return x_208; } else { -uint8_t x_205; +uint8_t x_209; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_205 = !lean_is_exclusive(x_192); -if (x_205 == 0) +x_209 = !lean_is_exclusive(x_196); +if (x_209 == 0) { -return x_192; +return x_196; } else { -lean_object* x_206; lean_object* x_207; lean_object* x_208; -x_206 = lean_ctor_get(x_192, 0); -x_207 = lean_ctor_get(x_192, 1); -lean_inc(x_207); -lean_inc(x_206); -lean_dec(x_192); -x_208 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_208, 0, x_206); -lean_ctor_set(x_208, 1, x_207); -return x_208; +lean_object* x_210; lean_object* x_211; lean_object* x_212; +x_210 = lean_ctor_get(x_196, 0); +x_211 = lean_ctor_get(x_196, 1); +lean_inc(x_211); +lean_inc(x_210); +lean_dec(x_196); +x_212 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_212, 0, x_210); +lean_ctor_set(x_212, 1, x_211); +return x_212; } } } case 3: { -lean_object* x_209; uint8_t x_210; lean_object* x_211; +lean_object* x_213; uint8_t x_214; uint8_t x_215; lean_object* x_216; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_209 = lean_ctor_get(x_4, 2); -lean_inc(x_209); -x_210 = lean_unbox(x_23); -lean_dec(x_23); -x_211 = l_Lean_Meta_substCore(x_1, x_2, x_210, x_209, x_7, x_31); -if (lean_obj_tag(x_211) == 0) -{ -lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; -x_212 = lean_ctor_get(x_211, 0); -lean_inc(x_212); -x_213 = lean_ctor_get(x_211, 1); +x_213 = lean_ctor_get(x_4, 2); lean_inc(x_213); -lean_dec(x_211); -x_214 = lean_ctor_get(x_212, 0); -lean_inc(x_214); -x_215 = lean_ctor_get(x_212, 1); -lean_inc(x_215); -lean_dec(x_212); -x_216 = lean_ctor_get(x_4, 1); -lean_inc(x_216); +x_214 = 1; +x_215 = lean_unbox(x_24); +lean_dec(x_24); +x_216 = l_Lean_Meta_substCore(x_1, x_2, x_215, x_213, x_214, x_7, x_32); +if (lean_obj_tag(x_216) == 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_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; +x_217 = lean_ctor_get(x_216, 0); +lean_inc(x_217); +x_218 = lean_ctor_get(x_216, 1); +lean_inc(x_218); +lean_dec(x_216); +x_219 = lean_ctor_get(x_217, 0); +lean_inc(x_219); +x_220 = lean_ctor_get(x_217, 1); +lean_inc(x_220); +lean_dec(x_217); +x_221 = lean_ctor_get(x_4, 1); +lean_inc(x_221); lean_dec(x_4); -x_217 = x_216; -x_218 = lean_unsigned_to_nat(0u); -x_219 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5(x_214, x_218, x_217); -x_220 = x_219; -x_221 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_221, 0, x_215); -lean_ctor_set(x_221, 1, x_220); -lean_ctor_set(x_221, 2, x_214); -x_222 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_222, 0, x_221); -lean_ctor_set(x_222, 1, x_5); -x_223 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_222, x_7, x_213); +x_222 = x_221; +x_223 = lean_unsigned_to_nat(0u); +x_224 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5(x_219, x_223, x_222); +x_225 = x_224; +x_226 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_226, 0, x_220); +lean_ctor_set(x_226, 1, x_225); +lean_ctor_set(x_226, 2, x_219); +x_227 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_227, 0, x_226); +lean_ctor_set(x_227, 1, x_5); +x_228 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_227, x_7, x_218); lean_dec(x_7); -return x_223; +return x_228; } else { -uint8_t x_224; +uint8_t x_229; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_224 = !lean_is_exclusive(x_211); -if (x_224 == 0) +x_229 = !lean_is_exclusive(x_216); +if (x_229 == 0) { -return x_211; +return x_216; } else { -lean_object* x_225; lean_object* x_226; lean_object* x_227; -x_225 = lean_ctor_get(x_211, 0); -x_226 = lean_ctor_get(x_211, 1); -lean_inc(x_226); -lean_inc(x_225); -lean_dec(x_211); -x_227 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_227, 0, x_225); -lean_ctor_set(x_227, 1, x_226); -return x_227; +lean_object* x_230; lean_object* x_231; lean_object* x_232; +x_230 = lean_ctor_get(x_216, 0); +x_231 = lean_ctor_get(x_216, 1); +lean_inc(x_231); +lean_inc(x_230); +lean_dec(x_216); +x_232 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_232, 0, x_230); +lean_ctor_set(x_232, 1, x_231); +return x_232; } } } case 4: { -lean_object* x_228; uint8_t x_229; lean_object* x_230; +lean_object* x_233; uint8_t x_234; uint8_t x_235; lean_object* x_236; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_228 = lean_ctor_get(x_4, 2); -lean_inc(x_228); -x_229 = lean_unbox(x_23); -lean_dec(x_23); -x_230 = l_Lean_Meta_substCore(x_1, x_2, x_229, x_228, x_7, x_31); -if (lean_obj_tag(x_230) == 0) -{ -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; -x_231 = lean_ctor_get(x_230, 0); -lean_inc(x_231); -x_232 = lean_ctor_get(x_230, 1); -lean_inc(x_232); -lean_dec(x_230); -x_233 = lean_ctor_get(x_231, 0); +x_233 = lean_ctor_get(x_4, 2); lean_inc(x_233); -x_234 = lean_ctor_get(x_231, 1); -lean_inc(x_234); -lean_dec(x_231); -x_235 = lean_ctor_get(x_4, 1); -lean_inc(x_235); +x_234 = 1; +x_235 = lean_unbox(x_24); +lean_dec(x_24); +x_236 = l_Lean_Meta_substCore(x_1, x_2, x_235, x_233, x_234, x_7, x_32); +if (lean_obj_tag(x_236) == 0) +{ +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_237 = lean_ctor_get(x_236, 0); +lean_inc(x_237); +x_238 = lean_ctor_get(x_236, 1); +lean_inc(x_238); +lean_dec(x_236); +x_239 = lean_ctor_get(x_237, 0); +lean_inc(x_239); +x_240 = lean_ctor_get(x_237, 1); +lean_inc(x_240); +lean_dec(x_237); +x_241 = lean_ctor_get(x_4, 1); +lean_inc(x_241); lean_dec(x_4); -x_236 = x_235; -x_237 = lean_unsigned_to_nat(0u); -x_238 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6(x_233, x_237, x_236); -x_239 = x_238; -x_240 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_240, 0, x_234); -lean_ctor_set(x_240, 1, x_239); -lean_ctor_set(x_240, 2, x_233); -x_241 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_241, 0, x_240); -lean_ctor_set(x_241, 1, x_5); -x_242 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_241, x_7, x_232); +x_242 = x_241; +x_243 = lean_unsigned_to_nat(0u); +x_244 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6(x_239, x_243, x_242); +x_245 = x_244; +x_246 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_246, 0, x_240); +lean_ctor_set(x_246, 1, x_245); +lean_ctor_set(x_246, 2, x_239); +x_247 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_247, 0, x_246); +lean_ctor_set(x_247, 1, x_5); +x_248 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_247, x_7, x_238); lean_dec(x_7); -return x_242; +return x_248; } else { -uint8_t x_243; +uint8_t x_249; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_243 = !lean_is_exclusive(x_230); -if (x_243 == 0) +x_249 = !lean_is_exclusive(x_236); +if (x_249 == 0) { -return x_230; +return x_236; } else { -lean_object* x_244; lean_object* x_245; lean_object* x_246; -x_244 = lean_ctor_get(x_230, 0); -x_245 = lean_ctor_get(x_230, 1); -lean_inc(x_245); -lean_inc(x_244); -lean_dec(x_230); -x_246 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_246, 0, x_244); -lean_ctor_set(x_246, 1, x_245); -return x_246; +lean_object* x_250; lean_object* x_251; lean_object* x_252; +x_250 = lean_ctor_get(x_236, 0); +x_251 = lean_ctor_get(x_236, 1); +lean_inc(x_251); +lean_inc(x_250); +lean_dec(x_236); +x_252 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_252, 0, x_250); +lean_ctor_set(x_252, 1, x_251); +return x_252; } } } case 5: { -lean_object* x_247; uint8_t x_248; lean_object* x_249; +lean_object* x_253; uint8_t x_254; uint8_t x_255; lean_object* x_256; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_247 = lean_ctor_get(x_4, 2); -lean_inc(x_247); -x_248 = lean_unbox(x_23); -lean_dec(x_23); -x_249 = l_Lean_Meta_substCore(x_1, x_2, x_248, x_247, x_7, x_31); -if (lean_obj_tag(x_249) == 0) -{ -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; -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_ctor_get(x_250, 0); -lean_inc(x_252); -x_253 = lean_ctor_get(x_250, 1); +x_253 = lean_ctor_get(x_4, 2); lean_inc(x_253); -lean_dec(x_250); -x_254 = lean_ctor_get(x_4, 1); -lean_inc(x_254); +x_254 = 1; +x_255 = lean_unbox(x_24); +lean_dec(x_24); +x_256 = l_Lean_Meta_substCore(x_1, x_2, x_255, x_253, x_254, x_7, x_32); +if (lean_obj_tag(x_256) == 0) +{ +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; +x_257 = lean_ctor_get(x_256, 0); +lean_inc(x_257); +x_258 = lean_ctor_get(x_256, 1); +lean_inc(x_258); +lean_dec(x_256); +x_259 = lean_ctor_get(x_257, 0); +lean_inc(x_259); +x_260 = lean_ctor_get(x_257, 1); +lean_inc(x_260); +lean_dec(x_257); +x_261 = lean_ctor_get(x_4, 1); +lean_inc(x_261); lean_dec(x_4); -x_255 = x_254; -x_256 = lean_unsigned_to_nat(0u); -x_257 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7(x_252, x_256, x_255); -x_258 = x_257; -x_259 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_259, 0, x_253); -lean_ctor_set(x_259, 1, x_258); -lean_ctor_set(x_259, 2, x_252); -x_260 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_260, 0, x_259); -lean_ctor_set(x_260, 1, x_5); -x_261 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_260, x_7, x_251); +x_262 = x_261; +x_263 = lean_unsigned_to_nat(0u); +x_264 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7(x_259, x_263, x_262); +x_265 = x_264; +x_266 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_266, 0, x_260); +lean_ctor_set(x_266, 1, x_265); +lean_ctor_set(x_266, 2, x_259); +x_267 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_267, 0, x_266); +lean_ctor_set(x_267, 1, x_5); +x_268 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_267, x_7, x_258); lean_dec(x_7); -return x_261; -} -else -{ -uint8_t x_262; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_262 = !lean_is_exclusive(x_249); -if (x_262 == 0) -{ -return x_249; -} -else -{ -lean_object* x_263; lean_object* x_264; lean_object* x_265; -x_263 = lean_ctor_get(x_249, 0); -x_264 = lean_ctor_get(x_249, 1); -lean_inc(x_264); -lean_inc(x_263); -lean_dec(x_249); -x_265 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_265, 0, x_263); -lean_ctor_set(x_265, 1, x_264); -return x_265; -} -} -} -case 6: -{ -lean_object* x_266; uint8_t x_267; lean_object* x_268; -lean_dec(x_21); -lean_dec(x_20); -x_266 = lean_ctor_get(x_4, 2); -lean_inc(x_266); -x_267 = lean_unbox(x_23); -lean_dec(x_23); -x_268 = l_Lean_Meta_substCore(x_1, x_2, x_267, x_266, x_7, x_31); -if (lean_obj_tag(x_268) == 0) -{ -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; -x_269 = lean_ctor_get(x_268, 0); -lean_inc(x_269); -x_270 = lean_ctor_get(x_268, 1); -lean_inc(x_270); -lean_dec(x_268); -x_271 = lean_ctor_get(x_269, 0); -lean_inc(x_271); -x_272 = lean_ctor_get(x_269, 1); -lean_inc(x_272); -lean_dec(x_269); -x_273 = lean_ctor_get(x_4, 1); -lean_inc(x_273); -lean_dec(x_4); -x_274 = x_273; -x_275 = lean_unsigned_to_nat(0u); -x_276 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8(x_271, x_275, x_274); -x_277 = x_276; -x_278 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_278, 0, x_272); -lean_ctor_set(x_278, 1, x_277); -lean_ctor_set(x_278, 2, x_271); -x_279 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_279, 0, x_278); -lean_ctor_set(x_279, 1, x_5); -x_280 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_279, x_7, x_270); -lean_dec(x_7); -return x_280; -} -else -{ -uint8_t x_281; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_281 = !lean_is_exclusive(x_268); -if (x_281 == 0) -{ return x_268; } else { -lean_object* x_282; lean_object* x_283; lean_object* x_284; -x_282 = lean_ctor_get(x_268, 0); -x_283 = lean_ctor_get(x_268, 1); -lean_inc(x_283); -lean_inc(x_282); -lean_dec(x_268); -x_284 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_284, 0, x_282); -lean_ctor_set(x_284, 1, x_283); -return x_284; +uint8_t x_269; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_269 = !lean_is_exclusive(x_256); +if (x_269 == 0) +{ +return x_256; +} +else +{ +lean_object* x_270; lean_object* x_271; lean_object* x_272; +x_270 = lean_ctor_get(x_256, 0); +x_271 = lean_ctor_get(x_256, 1); +lean_inc(x_271); +lean_inc(x_270); +lean_dec(x_256); +x_272 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_272, 0, x_270); +lean_ctor_set(x_272, 1, x_271); +return x_272; +} +} +} +case 6: +{ +lean_object* x_273; uint8_t x_274; uint8_t x_275; lean_object* x_276; +lean_dec(x_22); +lean_dec(x_21); +x_273 = lean_ctor_get(x_4, 2); +lean_inc(x_273); +x_274 = 1; +x_275 = lean_unbox(x_24); +lean_dec(x_24); +x_276 = l_Lean_Meta_substCore(x_1, x_2, x_275, x_273, x_274, x_7, x_32); +if (lean_obj_tag(x_276) == 0) +{ +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; +x_277 = lean_ctor_get(x_276, 0); +lean_inc(x_277); +x_278 = lean_ctor_get(x_276, 1); +lean_inc(x_278); +lean_dec(x_276); +x_279 = lean_ctor_get(x_277, 0); +lean_inc(x_279); +x_280 = lean_ctor_get(x_277, 1); +lean_inc(x_280); +lean_dec(x_277); +x_281 = lean_ctor_get(x_4, 1); +lean_inc(x_281); +lean_dec(x_4); +x_282 = x_281; +x_283 = lean_unsigned_to_nat(0u); +x_284 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8(x_279, x_283, x_282); +x_285 = x_284; +x_286 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_286, 0, x_280); +lean_ctor_set(x_286, 1, x_285); +lean_ctor_set(x_286, 2, x_279); +x_287 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_287, 0, x_286); +lean_ctor_set(x_287, 1, x_5); +x_288 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_287, x_7, x_278); +lean_dec(x_7); +return x_288; +} +else +{ +uint8_t x_289; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_289 = !lean_is_exclusive(x_276); +if (x_289 == 0) +{ +return x_276; +} +else +{ +lean_object* x_290; lean_object* x_291; lean_object* x_292; +x_290 = lean_ctor_get(x_276, 0); +x_291 = lean_ctor_get(x_276, 1); +lean_inc(x_291); +lean_inc(x_290); +lean_dec(x_276); +x_292 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_292, 0, x_290); +lean_ctor_set(x_292, 1, x_291); +return x_292; } } } case 7: { -lean_object* x_285; uint8_t x_286; lean_object* x_287; +lean_object* x_293; uint8_t x_294; uint8_t x_295; lean_object* x_296; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_285 = lean_ctor_get(x_4, 2); -lean_inc(x_285); -x_286 = lean_unbox(x_23); -lean_dec(x_23); -x_287 = l_Lean_Meta_substCore(x_1, x_2, x_286, x_285, x_7, x_31); -if (lean_obj_tag(x_287) == 0) +x_293 = lean_ctor_get(x_4, 2); +lean_inc(x_293); +x_294 = 1; +x_295 = lean_unbox(x_24); +lean_dec(x_24); +x_296 = l_Lean_Meta_substCore(x_1, x_2, x_295, x_293, x_294, x_7, x_32); +if (lean_obj_tag(x_296) == 0) { -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; -x_288 = lean_ctor_get(x_287, 0); -lean_inc(x_288); -x_289 = lean_ctor_get(x_287, 1); -lean_inc(x_289); -lean_dec(x_287); -x_290 = lean_ctor_get(x_288, 0); -lean_inc(x_290); -x_291 = lean_ctor_get(x_288, 1); -lean_inc(x_291); -lean_dec(x_288); -x_292 = lean_ctor_get(x_4, 1); -lean_inc(x_292); +lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; +x_297 = lean_ctor_get(x_296, 0); +lean_inc(x_297); +x_298 = lean_ctor_get(x_296, 1); +lean_inc(x_298); +lean_dec(x_296); +x_299 = lean_ctor_get(x_297, 0); +lean_inc(x_299); +x_300 = lean_ctor_get(x_297, 1); +lean_inc(x_300); +lean_dec(x_297); +x_301 = lean_ctor_get(x_4, 1); +lean_inc(x_301); lean_dec(x_4); -x_293 = x_292; -x_294 = lean_unsigned_to_nat(0u); -x_295 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9(x_290, x_294, x_293); -x_296 = x_295; -x_297 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_297, 0, x_291); -lean_ctor_set(x_297, 1, x_296); -lean_ctor_set(x_297, 2, x_290); -x_298 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_298, 0, x_297); -lean_ctor_set(x_298, 1, x_5); -x_299 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_298, x_7, x_289); +x_302 = x_301; +x_303 = lean_unsigned_to_nat(0u); +x_304 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9(x_299, x_303, x_302); +x_305 = x_304; +x_306 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_306, 0, x_300); +lean_ctor_set(x_306, 1, x_305); +lean_ctor_set(x_306, 2, x_299); +x_307 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_307, 0, x_306); +lean_ctor_set(x_307, 1, x_5); +x_308 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_307, x_7, x_298); lean_dec(x_7); -return x_299; +return x_308; } else { -uint8_t x_300; +uint8_t x_309; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_300 = !lean_is_exclusive(x_287); -if (x_300 == 0) +x_309 = !lean_is_exclusive(x_296); +if (x_309 == 0) { -return x_287; +return x_296; } else { -lean_object* x_301; lean_object* x_302; lean_object* x_303; -x_301 = lean_ctor_get(x_287, 0); -x_302 = lean_ctor_get(x_287, 1); -lean_inc(x_302); -lean_inc(x_301); -lean_dec(x_287); -x_303 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_303, 0, x_301); -lean_ctor_set(x_303, 1, x_302); -return x_303; +lean_object* x_310; lean_object* x_311; lean_object* x_312; +x_310 = lean_ctor_get(x_296, 0); +x_311 = lean_ctor_get(x_296, 1); +lean_inc(x_311); +lean_inc(x_310); +lean_dec(x_296); +x_312 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_312, 0, x_310); +lean_ctor_set(x_312, 1, x_311); +return x_312; } } } case 8: { -lean_object* x_304; uint8_t x_305; lean_object* x_306; +lean_object* x_313; uint8_t x_314; uint8_t x_315; lean_object* x_316; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_304 = lean_ctor_get(x_4, 2); -lean_inc(x_304); -x_305 = lean_unbox(x_23); -lean_dec(x_23); -x_306 = l_Lean_Meta_substCore(x_1, x_2, x_305, x_304, x_7, x_31); -if (lean_obj_tag(x_306) == 0) +x_313 = lean_ctor_get(x_4, 2); +lean_inc(x_313); +x_314 = 1; +x_315 = lean_unbox(x_24); +lean_dec(x_24); +x_316 = l_Lean_Meta_substCore(x_1, x_2, x_315, x_313, x_314, x_7, x_32); +if (lean_obj_tag(x_316) == 0) { -lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; -x_307 = lean_ctor_get(x_306, 0); -lean_inc(x_307); -x_308 = lean_ctor_get(x_306, 1); -lean_inc(x_308); -lean_dec(x_306); -x_309 = lean_ctor_get(x_307, 0); -lean_inc(x_309); -x_310 = lean_ctor_get(x_307, 1); -lean_inc(x_310); -lean_dec(x_307); -x_311 = lean_ctor_get(x_4, 1); -lean_inc(x_311); +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; +x_317 = lean_ctor_get(x_316, 0); +lean_inc(x_317); +x_318 = lean_ctor_get(x_316, 1); +lean_inc(x_318); +lean_dec(x_316); +x_319 = lean_ctor_get(x_317, 0); +lean_inc(x_319); +x_320 = lean_ctor_get(x_317, 1); +lean_inc(x_320); +lean_dec(x_317); +x_321 = lean_ctor_get(x_4, 1); +lean_inc(x_321); lean_dec(x_4); -x_312 = x_311; -x_313 = lean_unsigned_to_nat(0u); -x_314 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10(x_309, x_313, x_312); -x_315 = x_314; -x_316 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_316, 0, x_310); -lean_ctor_set(x_316, 1, x_315); -lean_ctor_set(x_316, 2, x_309); -x_317 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_317, 0, x_316); -lean_ctor_set(x_317, 1, x_5); -x_318 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_317, x_7, x_308); +x_322 = x_321; +x_323 = lean_unsigned_to_nat(0u); +x_324 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10(x_319, x_323, x_322); +x_325 = x_324; +x_326 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_326, 0, x_320); +lean_ctor_set(x_326, 1, x_325); +lean_ctor_set(x_326, 2, x_319); +x_327 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_327, 0, x_326); +lean_ctor_set(x_327, 1, x_5); +x_328 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_327, x_7, x_318); lean_dec(x_7); -return x_318; +return x_328; } else { -uint8_t x_319; +uint8_t x_329; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_319 = !lean_is_exclusive(x_306); -if (x_319 == 0) +x_329 = !lean_is_exclusive(x_316); +if (x_329 == 0) { -return x_306; +return x_316; } else { -lean_object* x_320; lean_object* x_321; lean_object* x_322; -x_320 = lean_ctor_get(x_306, 0); -x_321 = lean_ctor_get(x_306, 1); -lean_inc(x_321); -lean_inc(x_320); -lean_dec(x_306); -x_322 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_322, 0, x_320); -lean_ctor_set(x_322, 1, x_321); -return x_322; +lean_object* x_330; lean_object* x_331; lean_object* x_332; +x_330 = lean_ctor_get(x_316, 0); +x_331 = lean_ctor_get(x_316, 1); +lean_inc(x_331); +lean_inc(x_330); +lean_dec(x_316); +x_332 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_332, 0, x_330); +lean_ctor_set(x_332, 1, x_331); +return x_332; } } } case 9: { -lean_object* x_323; uint8_t x_324; lean_object* x_325; +lean_object* x_333; uint8_t x_334; uint8_t x_335; lean_object* x_336; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_323 = lean_ctor_get(x_4, 2); -lean_inc(x_323); -x_324 = lean_unbox(x_23); -lean_dec(x_23); -x_325 = l_Lean_Meta_substCore(x_1, x_2, x_324, x_323, x_7, x_31); -if (lean_obj_tag(x_325) == 0) +x_333 = lean_ctor_get(x_4, 2); +lean_inc(x_333); +x_334 = 1; +x_335 = lean_unbox(x_24); +lean_dec(x_24); +x_336 = l_Lean_Meta_substCore(x_1, x_2, x_335, x_333, x_334, x_7, x_32); +if (lean_obj_tag(x_336) == 0) { -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; -x_326 = lean_ctor_get(x_325, 0); -lean_inc(x_326); -x_327 = lean_ctor_get(x_325, 1); -lean_inc(x_327); -lean_dec(x_325); -x_328 = lean_ctor_get(x_326, 0); -lean_inc(x_328); -x_329 = lean_ctor_get(x_326, 1); -lean_inc(x_329); -lean_dec(x_326); -x_330 = lean_ctor_get(x_4, 1); -lean_inc(x_330); +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; +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 = lean_ctor_get(x_337, 0); +lean_inc(x_339); +x_340 = lean_ctor_get(x_337, 1); +lean_inc(x_340); +lean_dec(x_337); +x_341 = lean_ctor_get(x_4, 1); +lean_inc(x_341); lean_dec(x_4); -x_331 = x_330; -x_332 = lean_unsigned_to_nat(0u); -x_333 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11(x_328, x_332, x_331); -x_334 = x_333; -x_335 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_335, 0, x_329); -lean_ctor_set(x_335, 1, x_334); -lean_ctor_set(x_335, 2, x_328); -x_336 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_336, 0, x_335); -lean_ctor_set(x_336, 1, x_5); -x_337 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_336, x_7, x_327); +x_342 = x_341; +x_343 = lean_unsigned_to_nat(0u); +x_344 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11(x_339, x_343, x_342); +x_345 = x_344; +x_346 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_346, 0, x_340); +lean_ctor_set(x_346, 1, x_345); +lean_ctor_set(x_346, 2, x_339); +x_347 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_347, 0, x_346); +lean_ctor_set(x_347, 1, x_5); +x_348 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_347, x_7, x_338); lean_dec(x_7); -return x_337; +return x_348; } else { -uint8_t x_338; +uint8_t x_349; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_338 = !lean_is_exclusive(x_325); -if (x_338 == 0) +x_349 = !lean_is_exclusive(x_336); +if (x_349 == 0) { -return x_325; +return x_336; } else { -lean_object* x_339; lean_object* x_340; lean_object* x_341; -x_339 = lean_ctor_get(x_325, 0); -x_340 = lean_ctor_get(x_325, 1); -lean_inc(x_340); -lean_inc(x_339); -lean_dec(x_325); -x_341 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_341, 0, x_339); -lean_ctor_set(x_341, 1, x_340); -return x_341; +lean_object* x_350; lean_object* x_351; lean_object* x_352; +x_350 = lean_ctor_get(x_336, 0); +x_351 = lean_ctor_get(x_336, 1); +lean_inc(x_351); +lean_inc(x_350); +lean_dec(x_336); +x_352 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_352, 0, x_350); +lean_ctor_set(x_352, 1, x_351); +return x_352; } } } case 10: { -lean_object* x_342; uint8_t x_343; lean_object* x_344; +lean_object* x_353; uint8_t x_354; uint8_t x_355; lean_object* x_356; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_342 = lean_ctor_get(x_4, 2); -lean_inc(x_342); -x_343 = lean_unbox(x_23); -lean_dec(x_23); -x_344 = l_Lean_Meta_substCore(x_1, x_2, x_343, x_342, x_7, x_31); -if (lean_obj_tag(x_344) == 0) +x_353 = lean_ctor_get(x_4, 2); +lean_inc(x_353); +x_354 = 1; +x_355 = lean_unbox(x_24); +lean_dec(x_24); +x_356 = l_Lean_Meta_substCore(x_1, x_2, x_355, x_353, x_354, x_7, x_32); +if (lean_obj_tag(x_356) == 0) { -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; -x_345 = lean_ctor_get(x_344, 0); -lean_inc(x_345); -x_346 = lean_ctor_get(x_344, 1); -lean_inc(x_346); -lean_dec(x_344); -x_347 = lean_ctor_get(x_345, 0); -lean_inc(x_347); -x_348 = lean_ctor_get(x_345, 1); -lean_inc(x_348); -lean_dec(x_345); -x_349 = lean_ctor_get(x_4, 1); -lean_inc(x_349); +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; +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, 0); +lean_inc(x_359); +x_360 = lean_ctor_get(x_357, 1); +lean_inc(x_360); +lean_dec(x_357); +x_361 = lean_ctor_get(x_4, 1); +lean_inc(x_361); lean_dec(x_4); -x_350 = x_349; -x_351 = lean_unsigned_to_nat(0u); -x_352 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12(x_347, x_351, x_350); -x_353 = x_352; -x_354 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_354, 0, x_348); -lean_ctor_set(x_354, 1, x_353); -lean_ctor_set(x_354, 2, x_347); -x_355 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_355, 0, x_354); -lean_ctor_set(x_355, 1, x_5); -x_356 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_355, x_7, x_346); +x_362 = x_361; +x_363 = lean_unsigned_to_nat(0u); +x_364 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12(x_359, x_363, x_362); +x_365 = x_364; +x_366 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_366, 0, x_360); +lean_ctor_set(x_366, 1, x_365); +lean_ctor_set(x_366, 2, x_359); +x_367 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_367, 0, x_366); +lean_ctor_set(x_367, 1, x_5); +x_368 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_367, x_7, x_358); lean_dec(x_7); +return x_368; +} +else +{ +uint8_t x_369; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_369 = !lean_is_exclusive(x_356); +if (x_369 == 0) +{ return x_356; } else { -uint8_t x_357; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_357 = !lean_is_exclusive(x_344); -if (x_357 == 0) -{ -return x_344; -} -else -{ -lean_object* x_358; lean_object* x_359; lean_object* x_360; -x_358 = lean_ctor_get(x_344, 0); -x_359 = lean_ctor_get(x_344, 1); -lean_inc(x_359); -lean_inc(x_358); -lean_dec(x_344); -x_360 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_360, 0, x_358); -lean_ctor_set(x_360, 1, x_359); -return x_360; +lean_object* x_370; lean_object* x_371; lean_object* x_372; +x_370 = lean_ctor_get(x_356, 0); +x_371 = lean_ctor_get(x_356, 1); +lean_inc(x_371); +lean_inc(x_370); +lean_dec(x_356); +x_372 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_372, 0, x_370); +lean_ctor_set(x_372, 1, x_371); +return x_372; } } } case 11: { -lean_object* x_361; uint8_t x_362; lean_object* x_363; +lean_object* x_373; uint8_t x_374; uint8_t x_375; lean_object* x_376; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_361 = lean_ctor_get(x_4, 2); -lean_inc(x_361); -x_362 = lean_unbox(x_23); -lean_dec(x_23); -x_363 = l_Lean_Meta_substCore(x_1, x_2, x_362, x_361, x_7, x_31); -if (lean_obj_tag(x_363) == 0) +x_373 = lean_ctor_get(x_4, 2); +lean_inc(x_373); +x_374 = 1; +x_375 = lean_unbox(x_24); +lean_dec(x_24); +x_376 = l_Lean_Meta_substCore(x_1, x_2, x_375, x_373, x_374, x_7, x_32); +if (lean_obj_tag(x_376) == 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_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; -x_364 = lean_ctor_get(x_363, 0); -lean_inc(x_364); -x_365 = lean_ctor_get(x_363, 1); -lean_inc(x_365); -lean_dec(x_363); -x_366 = lean_ctor_get(x_364, 0); -lean_inc(x_366); -x_367 = lean_ctor_get(x_364, 1); -lean_inc(x_367); -lean_dec(x_364); -x_368 = lean_ctor_get(x_4, 1); -lean_inc(x_368); +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; +x_377 = lean_ctor_get(x_376, 0); +lean_inc(x_377); +x_378 = lean_ctor_get(x_376, 1); +lean_inc(x_378); +lean_dec(x_376); +x_379 = lean_ctor_get(x_377, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_377, 1); +lean_inc(x_380); +lean_dec(x_377); +x_381 = lean_ctor_get(x_4, 1); +lean_inc(x_381); lean_dec(x_4); -x_369 = x_368; -x_370 = lean_unsigned_to_nat(0u); -x_371 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13(x_366, x_370, x_369); -x_372 = x_371; -x_373 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_373, 0, x_367); -lean_ctor_set(x_373, 1, x_372); -lean_ctor_set(x_373, 2, x_366); -x_374 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_374, 0, x_373); -lean_ctor_set(x_374, 1, x_5); -x_375 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_374, x_7, x_365); +x_382 = x_381; +x_383 = lean_unsigned_to_nat(0u); +x_384 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13(x_379, x_383, x_382); +x_385 = x_384; +x_386 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_386, 0, x_380); +lean_ctor_set(x_386, 1, x_385); +lean_ctor_set(x_386, 2, x_379); +x_387 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_387, 0, x_386); +lean_ctor_set(x_387, 1, x_5); +x_388 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_387, x_7, x_378); lean_dec(x_7); -return x_375; +return x_388; } else { -uint8_t x_376; +uint8_t x_389; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_376 = !lean_is_exclusive(x_363); -if (x_376 == 0) +x_389 = !lean_is_exclusive(x_376); +if (x_389 == 0) { -return x_363; +return x_376; } else { -lean_object* x_377; lean_object* x_378; lean_object* x_379; -x_377 = lean_ctor_get(x_363, 0); -x_378 = lean_ctor_get(x_363, 1); -lean_inc(x_378); -lean_inc(x_377); -lean_dec(x_363); -x_379 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_379, 0, x_377); -lean_ctor_set(x_379, 1, x_378); -return x_379; +lean_object* x_390; lean_object* x_391; lean_object* x_392; +x_390 = lean_ctor_get(x_376, 0); +x_391 = lean_ctor_get(x_376, 1); +lean_inc(x_391); +lean_inc(x_390); +lean_dec(x_376); +x_392 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_392, 0, x_390); +lean_ctor_set(x_392, 1, x_391); +return x_392; } } } default: { -lean_object* x_380; uint8_t x_381; lean_object* x_382; +lean_object* x_393; uint8_t x_394; uint8_t x_395; lean_object* x_396; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_380 = lean_ctor_get(x_4, 2); -lean_inc(x_380); -x_381 = lean_unbox(x_23); -lean_dec(x_23); -x_382 = l_Lean_Meta_substCore(x_1, x_2, x_381, x_380, x_7, x_31); -if (lean_obj_tag(x_382) == 0) +x_393 = lean_ctor_get(x_4, 2); +lean_inc(x_393); +x_394 = 1; +x_395 = lean_unbox(x_24); +lean_dec(x_24); +x_396 = l_Lean_Meta_substCore(x_1, x_2, x_395, x_393, x_394, x_7, x_32); +if (lean_obj_tag(x_396) == 0) { -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; -x_383 = lean_ctor_get(x_382, 0); -lean_inc(x_383); -x_384 = lean_ctor_get(x_382, 1); -lean_inc(x_384); -lean_dec(x_382); -x_385 = lean_ctor_get(x_383, 0); -lean_inc(x_385); -x_386 = lean_ctor_get(x_383, 1); -lean_inc(x_386); -lean_dec(x_383); -x_387 = lean_ctor_get(x_4, 1); -lean_inc(x_387); +lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; +x_397 = lean_ctor_get(x_396, 0); +lean_inc(x_397); +x_398 = lean_ctor_get(x_396, 1); +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); +lean_dec(x_397); +x_401 = lean_ctor_get(x_4, 1); +lean_inc(x_401); lean_dec(x_4); -x_388 = x_387; -x_389 = lean_unsigned_to_nat(0u); -x_390 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14(x_385, x_389, x_388); -x_391 = x_390; -x_392 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_392, 0, x_386); -lean_ctor_set(x_392, 1, x_391); -lean_ctor_set(x_392, 2, x_385); -x_393 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_393, 0, x_392); -lean_ctor_set(x_393, 1, x_5); -x_394 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_393, x_7, x_384); +x_402 = x_401; +x_403 = lean_unsigned_to_nat(0u); +x_404 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14(x_399, x_403, x_402); +x_405 = x_404; +x_406 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_406, 0, x_400); +lean_ctor_set(x_406, 1, x_405); +lean_ctor_set(x_406, 2, x_399); +x_407 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_407, 0, x_406); +lean_ctor_set(x_407, 1, x_5); +x_408 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_407, x_7, x_398); lean_dec(x_7); -return x_394; +return x_408; } else { -uint8_t x_395; +uint8_t x_409; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_395 = !lean_is_exclusive(x_382); -if (x_395 == 0) +x_409 = !lean_is_exclusive(x_396); +if (x_409 == 0) { -return x_382; +return x_396; } else { -lean_object* x_396; lean_object* x_397; lean_object* x_398; -x_396 = lean_ctor_get(x_382, 0); -x_397 = lean_ctor_get(x_382, 1); -lean_inc(x_397); -lean_inc(x_396); -lean_dec(x_382); -x_398 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_398, 0, x_396); -lean_ctor_set(x_398, 1, x_397); -return x_398; +lean_object* x_410; lean_object* x_411; lean_object* x_412; +x_410 = lean_ctor_get(x_396, 0); +x_411 = lean_ctor_get(x_396, 1); +lean_inc(x_411); +lean_inc(x_410); +lean_dec(x_396); +x_412 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_412, 0, x_410); +lean_ctor_set(x_412, 1, x_411); +return x_412; } } } @@ -13007,2168 +13026,2168 @@ return x_398; } case 2: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_399; uint8_t x_400; lean_object* x_401; +lean_dec(x_24); lean_dec(x_21); -x_399 = lean_ctor_get(x_4, 2); -lean_inc(x_399); -x_400 = 1; -x_401 = l_Lean_Meta_substCore(x_1, x_2, x_400, x_399, x_7, x_31); -if (lean_obj_tag(x_401) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_402 = lean_ctor_get(x_401, 0); -lean_inc(x_402); -x_403 = lean_ctor_get(x_401, 1); -lean_inc(x_403); -lean_dec(x_401); -x_404 = lean_ctor_get(x_402, 0); -lean_inc(x_404); -x_405 = lean_ctor_get(x_402, 1); -lean_inc(x_405); -lean_dec(x_402); -x_406 = lean_ctor_get(x_4, 1); -lean_inc(x_406); -lean_dec(x_4); -x_407 = x_406; -x_408 = lean_unsigned_to_nat(0u); -x_409 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__15(x_404, x_408, x_407); -x_410 = x_409; -x_411 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_411, 0, x_405); -lean_ctor_set(x_411, 1, x_410); -lean_ctor_set(x_411, 2, x_404); -x_412 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_412, 0, x_411); -lean_ctor_set(x_412, 1, x_5); -x_413 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_412, x_7, x_403); -lean_dec(x_7); -return x_413; -} -else +lean_object* x_413; uint8_t x_414; lean_object* x_415; +lean_dec(x_22); +x_413 = lean_ctor_get(x_4, 2); +lean_inc(x_413); +x_414 = 1; +x_415 = l_Lean_Meta_substCore(x_1, x_2, x_414, x_413, x_414, x_7, x_32); +if (lean_obj_tag(x_415) == 0) { -uint8_t x_414; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_414 = !lean_is_exclusive(x_401); -if (x_414 == 0) -{ -return x_401; -} -else -{ -lean_object* x_415; lean_object* x_416; lean_object* x_417; -x_415 = lean_ctor_get(x_401, 0); -x_416 = lean_ctor_get(x_401, 1); +lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; +x_416 = lean_ctor_get(x_415, 0); lean_inc(x_416); -lean_inc(x_415); -lean_dec(x_401); -x_417 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_417, 0, x_415); -lean_ctor_set(x_417, 1, x_416); -return x_417; -} -} -} -else -{ -lean_object* x_418; -lean_dec(x_21); -x_418 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_418) == 0) -{ -lean_object* x_419; -x_419 = lean_ctor_get(x_418, 0); +x_417 = lean_ctor_get(x_415, 1); +lean_inc(x_417); +lean_dec(x_415); +x_418 = lean_ctor_get(x_416, 0); +lean_inc(x_418); +x_419 = lean_ctor_get(x_416, 1); lean_inc(x_419); -if (lean_obj_tag(x_419) == 0) +lean_dec(x_416); +x_420 = lean_ctor_get(x_4, 1); +lean_inc(x_420); +lean_dec(x_4); +x_421 = x_420; +x_422 = lean_unsigned_to_nat(0u); +x_423 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__15(x_418, x_422, x_421); +x_424 = x_423; +x_425 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_425, 0, x_419); +lean_ctor_set(x_425, 1, x_424); +lean_ctor_set(x_425, 2, x_418); +x_426 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_426, 0, x_425); +lean_ctor_set(x_426, 1, x_5); +x_427 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_426, x_7, x_417); +lean_dec(x_7); +return x_427; +} +else { -uint8_t x_420; +uint8_t x_428; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_420 = !lean_is_exclusive(x_418); -if (x_420 == 0) +x_428 = !lean_is_exclusive(x_415); +if (x_428 == 0) { -lean_object* x_421; lean_object* x_422; -x_421 = lean_ctor_get(x_418, 0); -lean_dec(x_421); -x_422 = lean_box(0); -lean_ctor_set(x_418, 0, x_422); -return x_418; +return x_415; } else { -lean_object* x_423; lean_object* x_424; lean_object* x_425; -x_423 = lean_ctor_get(x_418, 1); -lean_inc(x_423); -lean_dec(x_418); -x_424 = lean_box(0); -x_425 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_425, 0, x_424); -lean_ctor_set(x_425, 1, x_423); -return x_425; -} -} -else -{ -lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; -x_426 = lean_ctor_get(x_418, 1); -lean_inc(x_426); -lean_dec(x_418); -x_427 = lean_ctor_get(x_419, 0); -lean_inc(x_427); -x_428 = lean_ctor_get(x_419, 1); -lean_inc(x_428); -lean_dec(x_419); -x_429 = lean_nat_add(x_3, x_428); -lean_dec(x_428); -x_430 = lean_ctor_get(x_4, 1); +lean_object* x_429; lean_object* x_430; lean_object* x_431; +x_429 = lean_ctor_get(x_415, 0); +x_430 = lean_ctor_get(x_415, 1); lean_inc(x_430); -x_431 = lean_ctor_get(x_4, 2); -lean_inc(x_431); -lean_dec(x_4); -x_432 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_432, 0, x_427); -lean_ctor_set(x_432, 1, x_430); -lean_ctor_set(x_432, 2, x_431); -x_433 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_433, 0, x_432); -lean_ctor_set(x_433, 1, x_5); -x_434 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_429, x_433, x_7, x_426); -lean_dec(x_7); -lean_dec(x_429); -return x_434; +lean_inc(x_429); +lean_dec(x_415); +x_431 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_431, 0, x_429); +lean_ctor_set(x_431, 1, x_430); +return x_431; +} } } else { -uint8_t x_435; +lean_object* x_432; +lean_dec(x_22); +x_432 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_432) == 0) +{ +lean_object* x_433; +x_433 = lean_ctor_get(x_432, 0); +lean_inc(x_433); +if (lean_obj_tag(x_433) == 0) +{ +uint8_t x_434; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_435 = !lean_is_exclusive(x_418); -if (x_435 == 0) +x_434 = !lean_is_exclusive(x_432); +if (x_434 == 0) { -return x_418; +lean_object* x_435; lean_object* x_436; +x_435 = lean_ctor_get(x_432, 0); +lean_dec(x_435); +x_436 = lean_box(0); +lean_ctor_set(x_432, 0, x_436); +return x_432; } else { -lean_object* x_436; lean_object* x_437; lean_object* x_438; -x_436 = lean_ctor_get(x_418, 0); -x_437 = lean_ctor_get(x_418, 1); +lean_object* x_437; lean_object* x_438; lean_object* x_439; +x_437 = lean_ctor_get(x_432, 1); lean_inc(x_437); -lean_inc(x_436); -lean_dec(x_418); -x_438 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_438, 0, x_436); -lean_ctor_set(x_438, 1, x_437); -return x_438; +lean_dec(x_432); +x_438 = lean_box(0); +x_439 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_439, 0, x_438); +lean_ctor_set(x_439, 1, x_437); +return x_439; +} +} +else +{ +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; +x_440 = lean_ctor_get(x_432, 1); +lean_inc(x_440); +lean_dec(x_432); +x_441 = lean_ctor_get(x_433, 0); +lean_inc(x_441); +x_442 = lean_ctor_get(x_433, 1); +lean_inc(x_442); +lean_dec(x_433); +x_443 = lean_nat_add(x_3, x_442); +lean_dec(x_442); +x_444 = lean_ctor_get(x_4, 1); +lean_inc(x_444); +x_445 = lean_ctor_get(x_4, 2); +lean_inc(x_445); +lean_dec(x_4); +x_446 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_446, 0, x_441); +lean_ctor_set(x_446, 1, x_444); +lean_ctor_set(x_446, 2, x_445); +x_447 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_447, 0, x_446); +lean_ctor_set(x_447, 1, x_5); +x_448 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_443, x_447, x_7, x_440); +lean_dec(x_7); +lean_dec(x_443); +return x_448; +} +} +else +{ +uint8_t x_449; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_449 = !lean_is_exclusive(x_432); +if (x_449 == 0) +{ +return x_432; +} +else +{ +lean_object* x_450; lean_object* x_451; lean_object* x_452; +x_450 = lean_ctor_get(x_432, 0); +x_451 = lean_ctor_get(x_432, 1); +lean_inc(x_451); +lean_inc(x_450); +lean_dec(x_432); +x_452 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_452, 0, x_450); +lean_ctor_set(x_452, 1, x_451); +return x_452; } } } } case 3: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_439; uint8_t x_440; lean_object* x_441; +lean_dec(x_24); lean_dec(x_21); -x_439 = lean_ctor_get(x_4, 2); -lean_inc(x_439); -x_440 = 1; -x_441 = l_Lean_Meta_substCore(x_1, x_2, x_440, x_439, x_7, x_31); -if (lean_obj_tag(x_441) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_442 = lean_ctor_get(x_441, 0); -lean_inc(x_442); -x_443 = lean_ctor_get(x_441, 1); -lean_inc(x_443); -lean_dec(x_441); -x_444 = lean_ctor_get(x_442, 0); -lean_inc(x_444); -x_445 = lean_ctor_get(x_442, 1); -lean_inc(x_445); -lean_dec(x_442); -x_446 = lean_ctor_get(x_4, 1); -lean_inc(x_446); -lean_dec(x_4); -x_447 = x_446; -x_448 = lean_unsigned_to_nat(0u); -x_449 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__16(x_444, x_448, x_447); -x_450 = x_449; -x_451 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_451, 0, x_445); -lean_ctor_set(x_451, 1, x_450); -lean_ctor_set(x_451, 2, x_444); -x_452 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_452, 0, x_451); -lean_ctor_set(x_452, 1, x_5); -x_453 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_452, x_7, x_443); -lean_dec(x_7); -return x_453; -} -else +lean_object* x_453; uint8_t x_454; lean_object* x_455; +lean_dec(x_22); +x_453 = lean_ctor_get(x_4, 2); +lean_inc(x_453); +x_454 = 1; +x_455 = l_Lean_Meta_substCore(x_1, x_2, x_454, x_453, x_454, x_7, x_32); +if (lean_obj_tag(x_455) == 0) { -uint8_t x_454; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_454 = !lean_is_exclusive(x_441); -if (x_454 == 0) -{ -return x_441; -} -else -{ -lean_object* x_455; lean_object* x_456; lean_object* x_457; -x_455 = lean_ctor_get(x_441, 0); -x_456 = lean_ctor_get(x_441, 1); +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; +x_456 = lean_ctor_get(x_455, 0); lean_inc(x_456); -lean_inc(x_455); -lean_dec(x_441); -x_457 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_457, 0, x_455); -lean_ctor_set(x_457, 1, x_456); -return x_457; -} -} -} -else -{ -lean_object* x_458; -lean_dec(x_21); -x_458 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_458) == 0) -{ -lean_object* x_459; -x_459 = lean_ctor_get(x_458, 0); +x_457 = lean_ctor_get(x_455, 1); +lean_inc(x_457); +lean_dec(x_455); +x_458 = lean_ctor_get(x_456, 0); +lean_inc(x_458); +x_459 = lean_ctor_get(x_456, 1); lean_inc(x_459); -if (lean_obj_tag(x_459) == 0) +lean_dec(x_456); +x_460 = lean_ctor_get(x_4, 1); +lean_inc(x_460); +lean_dec(x_4); +x_461 = x_460; +x_462 = lean_unsigned_to_nat(0u); +x_463 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__16(x_458, x_462, x_461); +x_464 = x_463; +x_465 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_465, 0, x_459); +lean_ctor_set(x_465, 1, x_464); +lean_ctor_set(x_465, 2, x_458); +x_466 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_466, 0, x_465); +lean_ctor_set(x_466, 1, x_5); +x_467 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_466, x_7, x_457); +lean_dec(x_7); +return x_467; +} +else { -uint8_t x_460; +uint8_t x_468; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_460 = !lean_is_exclusive(x_458); -if (x_460 == 0) +x_468 = !lean_is_exclusive(x_455); +if (x_468 == 0) { -lean_object* x_461; lean_object* x_462; -x_461 = lean_ctor_get(x_458, 0); -lean_dec(x_461); -x_462 = lean_box(0); -lean_ctor_set(x_458, 0, x_462); -return x_458; +return x_455; } else { -lean_object* x_463; lean_object* x_464; lean_object* x_465; -x_463 = lean_ctor_get(x_458, 1); -lean_inc(x_463); -lean_dec(x_458); -x_464 = lean_box(0); -x_465 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_465, 0, x_464); -lean_ctor_set(x_465, 1, x_463); -return x_465; -} -} -else -{ -lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; -x_466 = lean_ctor_get(x_458, 1); -lean_inc(x_466); -lean_dec(x_458); -x_467 = lean_ctor_get(x_459, 0); -lean_inc(x_467); -x_468 = lean_ctor_get(x_459, 1); -lean_inc(x_468); -lean_dec(x_459); -x_469 = lean_nat_add(x_3, x_468); -lean_dec(x_468); -x_470 = lean_ctor_get(x_4, 1); +lean_object* x_469; lean_object* x_470; lean_object* x_471; +x_469 = lean_ctor_get(x_455, 0); +x_470 = lean_ctor_get(x_455, 1); lean_inc(x_470); -x_471 = lean_ctor_get(x_4, 2); -lean_inc(x_471); -lean_dec(x_4); -x_472 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_472, 0, x_467); -lean_ctor_set(x_472, 1, x_470); -lean_ctor_set(x_472, 2, x_471); -x_473 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_473, 0, x_472); -lean_ctor_set(x_473, 1, x_5); -x_474 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_469, x_473, x_7, x_466); -lean_dec(x_7); -lean_dec(x_469); -return x_474; +lean_inc(x_469); +lean_dec(x_455); +x_471 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_471, 0, x_469); +lean_ctor_set(x_471, 1, x_470); +return x_471; +} } } else { -uint8_t x_475; +lean_object* x_472; +lean_dec(x_22); +x_472 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_472) == 0) +{ +lean_object* x_473; +x_473 = lean_ctor_get(x_472, 0); +lean_inc(x_473); +if (lean_obj_tag(x_473) == 0) +{ +uint8_t x_474; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_475 = !lean_is_exclusive(x_458); -if (x_475 == 0) +x_474 = !lean_is_exclusive(x_472); +if (x_474 == 0) { -return x_458; +lean_object* x_475; lean_object* x_476; +x_475 = lean_ctor_get(x_472, 0); +lean_dec(x_475); +x_476 = lean_box(0); +lean_ctor_set(x_472, 0, x_476); +return x_472; } else { -lean_object* x_476; lean_object* x_477; lean_object* x_478; -x_476 = lean_ctor_get(x_458, 0); -x_477 = lean_ctor_get(x_458, 1); +lean_object* x_477; lean_object* x_478; lean_object* x_479; +x_477 = lean_ctor_get(x_472, 1); lean_inc(x_477); -lean_inc(x_476); -lean_dec(x_458); -x_478 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_478, 0, x_476); -lean_ctor_set(x_478, 1, x_477); -return x_478; +lean_dec(x_472); +x_478 = lean_box(0); +x_479 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_479, 0, x_478); +lean_ctor_set(x_479, 1, x_477); +return x_479; +} +} +else +{ +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; +x_480 = lean_ctor_get(x_472, 1); +lean_inc(x_480); +lean_dec(x_472); +x_481 = lean_ctor_get(x_473, 0); +lean_inc(x_481); +x_482 = lean_ctor_get(x_473, 1); +lean_inc(x_482); +lean_dec(x_473); +x_483 = lean_nat_add(x_3, x_482); +lean_dec(x_482); +x_484 = lean_ctor_get(x_4, 1); +lean_inc(x_484); +x_485 = lean_ctor_get(x_4, 2); +lean_inc(x_485); +lean_dec(x_4); +x_486 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_486, 0, x_481); +lean_ctor_set(x_486, 1, x_484); +lean_ctor_set(x_486, 2, x_485); +x_487 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_487, 0, x_486); +lean_ctor_set(x_487, 1, x_5); +x_488 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_483, x_487, x_7, x_480); +lean_dec(x_7); +lean_dec(x_483); +return x_488; +} +} +else +{ +uint8_t x_489; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_489 = !lean_is_exclusive(x_472); +if (x_489 == 0) +{ +return x_472; +} +else +{ +lean_object* x_490; lean_object* x_491; lean_object* x_492; +x_490 = lean_ctor_get(x_472, 0); +x_491 = lean_ctor_get(x_472, 1); +lean_inc(x_491); +lean_inc(x_490); +lean_dec(x_472); +x_492 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_492, 0, x_490); +lean_ctor_set(x_492, 1, x_491); +return x_492; } } } } case 4: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_479; uint8_t x_480; lean_object* x_481; +lean_dec(x_24); lean_dec(x_21); -x_479 = lean_ctor_get(x_4, 2); -lean_inc(x_479); -x_480 = 1; -x_481 = l_Lean_Meta_substCore(x_1, x_2, x_480, x_479, x_7, x_31); -if (lean_obj_tag(x_481) == 0) +if (lean_obj_tag(x_22) == 1) { -lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; lean_object* x_493; -x_482 = lean_ctor_get(x_481, 0); -lean_inc(x_482); -x_483 = lean_ctor_get(x_481, 1); -lean_inc(x_483); -lean_dec(x_481); -x_484 = lean_ctor_get(x_482, 0); -lean_inc(x_484); -x_485 = lean_ctor_get(x_482, 1); -lean_inc(x_485); -lean_dec(x_482); -x_486 = lean_ctor_get(x_4, 1); -lean_inc(x_486); -lean_dec(x_4); -x_487 = x_486; -x_488 = lean_unsigned_to_nat(0u); -x_489 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__17(x_484, x_488, x_487); -x_490 = x_489; -x_491 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_491, 0, x_485); -lean_ctor_set(x_491, 1, x_490); -lean_ctor_set(x_491, 2, x_484); -x_492 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_492, 0, x_491); -lean_ctor_set(x_492, 1, x_5); -x_493 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_492, x_7, x_483); -lean_dec(x_7); -return x_493; -} -else +lean_object* x_493; uint8_t x_494; lean_object* x_495; +lean_dec(x_22); +x_493 = lean_ctor_get(x_4, 2); +lean_inc(x_493); +x_494 = 1; +x_495 = l_Lean_Meta_substCore(x_1, x_2, x_494, x_493, x_494, x_7, x_32); +if (lean_obj_tag(x_495) == 0) { -uint8_t x_494; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_494 = !lean_is_exclusive(x_481); -if (x_494 == 0) -{ -return x_481; -} -else -{ -lean_object* x_495; lean_object* x_496; lean_object* x_497; -x_495 = lean_ctor_get(x_481, 0); -x_496 = lean_ctor_get(x_481, 1); +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; +x_496 = lean_ctor_get(x_495, 0); lean_inc(x_496); -lean_inc(x_495); -lean_dec(x_481); -x_497 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_497, 0, x_495); -lean_ctor_set(x_497, 1, x_496); -return x_497; -} -} -} -else -{ -lean_object* x_498; -lean_dec(x_21); -x_498 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_498) == 0) -{ -lean_object* x_499; -x_499 = lean_ctor_get(x_498, 0); +x_497 = lean_ctor_get(x_495, 1); +lean_inc(x_497); +lean_dec(x_495); +x_498 = lean_ctor_get(x_496, 0); +lean_inc(x_498); +x_499 = lean_ctor_get(x_496, 1); lean_inc(x_499); -if (lean_obj_tag(x_499) == 0) +lean_dec(x_496); +x_500 = lean_ctor_get(x_4, 1); +lean_inc(x_500); +lean_dec(x_4); +x_501 = x_500; +x_502 = lean_unsigned_to_nat(0u); +x_503 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__17(x_498, x_502, x_501); +x_504 = x_503; +x_505 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_505, 0, x_499); +lean_ctor_set(x_505, 1, x_504); +lean_ctor_set(x_505, 2, x_498); +x_506 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_506, 0, x_505); +lean_ctor_set(x_506, 1, x_5); +x_507 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_506, x_7, x_497); +lean_dec(x_7); +return x_507; +} +else { -uint8_t x_500; +uint8_t x_508; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_500 = !lean_is_exclusive(x_498); -if (x_500 == 0) +x_508 = !lean_is_exclusive(x_495); +if (x_508 == 0) { -lean_object* x_501; lean_object* x_502; -x_501 = lean_ctor_get(x_498, 0); -lean_dec(x_501); -x_502 = lean_box(0); -lean_ctor_set(x_498, 0, x_502); -return x_498; +return x_495; } else { -lean_object* x_503; lean_object* x_504; lean_object* x_505; -x_503 = lean_ctor_get(x_498, 1); -lean_inc(x_503); -lean_dec(x_498); -x_504 = lean_box(0); -x_505 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_505, 0, x_504); -lean_ctor_set(x_505, 1, x_503); -return x_505; -} -} -else -{ -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; -x_506 = lean_ctor_get(x_498, 1); -lean_inc(x_506); -lean_dec(x_498); -x_507 = lean_ctor_get(x_499, 0); -lean_inc(x_507); -x_508 = lean_ctor_get(x_499, 1); -lean_inc(x_508); -lean_dec(x_499); -x_509 = lean_nat_add(x_3, x_508); -lean_dec(x_508); -x_510 = lean_ctor_get(x_4, 1); +lean_object* x_509; lean_object* x_510; lean_object* x_511; +x_509 = lean_ctor_get(x_495, 0); +x_510 = lean_ctor_get(x_495, 1); lean_inc(x_510); -x_511 = lean_ctor_get(x_4, 2); -lean_inc(x_511); -lean_dec(x_4); -x_512 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_512, 0, x_507); -lean_ctor_set(x_512, 1, x_510); -lean_ctor_set(x_512, 2, x_511); -x_513 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_513, 0, x_512); -lean_ctor_set(x_513, 1, x_5); -x_514 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_509, x_513, x_7, x_506); -lean_dec(x_7); -lean_dec(x_509); -return x_514; +lean_inc(x_509); +lean_dec(x_495); +x_511 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_511, 0, x_509); +lean_ctor_set(x_511, 1, x_510); +return x_511; +} } } else { -uint8_t x_515; +lean_object* x_512; +lean_dec(x_22); +x_512 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_512) == 0) +{ +lean_object* x_513; +x_513 = lean_ctor_get(x_512, 0); +lean_inc(x_513); +if (lean_obj_tag(x_513) == 0) +{ +uint8_t x_514; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_515 = !lean_is_exclusive(x_498); -if (x_515 == 0) +x_514 = !lean_is_exclusive(x_512); +if (x_514 == 0) { -return x_498; +lean_object* x_515; lean_object* x_516; +x_515 = lean_ctor_get(x_512, 0); +lean_dec(x_515); +x_516 = lean_box(0); +lean_ctor_set(x_512, 0, x_516); +return x_512; } else { -lean_object* x_516; lean_object* x_517; lean_object* x_518; -x_516 = lean_ctor_get(x_498, 0); -x_517 = lean_ctor_get(x_498, 1); +lean_object* x_517; lean_object* x_518; lean_object* x_519; +x_517 = lean_ctor_get(x_512, 1); lean_inc(x_517); -lean_inc(x_516); -lean_dec(x_498); -x_518 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_518, 0, x_516); -lean_ctor_set(x_518, 1, x_517); -return x_518; +lean_dec(x_512); +x_518 = lean_box(0); +x_519 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_519, 0, x_518); +lean_ctor_set(x_519, 1, x_517); +return x_519; +} +} +else +{ +lean_object* x_520; lean_object* x_521; lean_object* x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; lean_object* x_528; +x_520 = lean_ctor_get(x_512, 1); +lean_inc(x_520); +lean_dec(x_512); +x_521 = lean_ctor_get(x_513, 0); +lean_inc(x_521); +x_522 = lean_ctor_get(x_513, 1); +lean_inc(x_522); +lean_dec(x_513); +x_523 = lean_nat_add(x_3, x_522); +lean_dec(x_522); +x_524 = lean_ctor_get(x_4, 1); +lean_inc(x_524); +x_525 = lean_ctor_get(x_4, 2); +lean_inc(x_525); +lean_dec(x_4); +x_526 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_526, 0, x_521); +lean_ctor_set(x_526, 1, x_524); +lean_ctor_set(x_526, 2, x_525); +x_527 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_527, 0, x_526); +lean_ctor_set(x_527, 1, x_5); +x_528 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_523, x_527, x_7, x_520); +lean_dec(x_7); +lean_dec(x_523); +return x_528; +} +} +else +{ +uint8_t x_529; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_529 = !lean_is_exclusive(x_512); +if (x_529 == 0) +{ +return x_512; +} +else +{ +lean_object* x_530; lean_object* x_531; lean_object* x_532; +x_530 = lean_ctor_get(x_512, 0); +x_531 = lean_ctor_get(x_512, 1); +lean_inc(x_531); +lean_inc(x_530); +lean_dec(x_512); +x_532 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_532, 0, x_530); +lean_ctor_set(x_532, 1, x_531); +return x_532; } } } } case 5: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_519; uint8_t x_520; lean_object* x_521; +lean_dec(x_24); lean_dec(x_21); -x_519 = lean_ctor_get(x_4, 2); -lean_inc(x_519); -x_520 = 1; -x_521 = l_Lean_Meta_substCore(x_1, x_2, x_520, x_519, x_7, x_31); -if (lean_obj_tag(x_521) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_522 = lean_ctor_get(x_521, 0); -lean_inc(x_522); -x_523 = lean_ctor_get(x_521, 1); -lean_inc(x_523); -lean_dec(x_521); -x_524 = lean_ctor_get(x_522, 0); -lean_inc(x_524); -x_525 = lean_ctor_get(x_522, 1); -lean_inc(x_525); -lean_dec(x_522); -x_526 = lean_ctor_get(x_4, 1); -lean_inc(x_526); -lean_dec(x_4); -x_527 = x_526; -x_528 = lean_unsigned_to_nat(0u); -x_529 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__18(x_524, x_528, x_527); -x_530 = x_529; -x_531 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_531, 0, x_525); -lean_ctor_set(x_531, 1, x_530); -lean_ctor_set(x_531, 2, x_524); -x_532 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_532, 0, x_531); -lean_ctor_set(x_532, 1, x_5); -x_533 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_532, x_7, x_523); -lean_dec(x_7); -return x_533; -} -else +lean_object* x_533; uint8_t x_534; lean_object* x_535; +lean_dec(x_22); +x_533 = lean_ctor_get(x_4, 2); +lean_inc(x_533); +x_534 = 1; +x_535 = l_Lean_Meta_substCore(x_1, x_2, x_534, x_533, x_534, x_7, x_32); +if (lean_obj_tag(x_535) == 0) { -uint8_t x_534; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_534 = !lean_is_exclusive(x_521); -if (x_534 == 0) -{ -return x_521; -} -else -{ -lean_object* x_535; lean_object* x_536; lean_object* x_537; -x_535 = lean_ctor_get(x_521, 0); -x_536 = lean_ctor_get(x_521, 1); +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; +x_536 = lean_ctor_get(x_535, 0); lean_inc(x_536); -lean_inc(x_535); -lean_dec(x_521); -x_537 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_537, 0, x_535); -lean_ctor_set(x_537, 1, x_536); -return x_537; -} -} -} -else -{ -lean_object* x_538; -lean_dec(x_21); -x_538 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_538) == 0) -{ -lean_object* x_539; -x_539 = lean_ctor_get(x_538, 0); +x_537 = lean_ctor_get(x_535, 1); +lean_inc(x_537); +lean_dec(x_535); +x_538 = lean_ctor_get(x_536, 0); +lean_inc(x_538); +x_539 = lean_ctor_get(x_536, 1); lean_inc(x_539); -if (lean_obj_tag(x_539) == 0) +lean_dec(x_536); +x_540 = lean_ctor_get(x_4, 1); +lean_inc(x_540); +lean_dec(x_4); +x_541 = x_540; +x_542 = lean_unsigned_to_nat(0u); +x_543 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__18(x_538, x_542, x_541); +x_544 = x_543; +x_545 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_545, 0, x_539); +lean_ctor_set(x_545, 1, x_544); +lean_ctor_set(x_545, 2, x_538); +x_546 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_546, 0, x_545); +lean_ctor_set(x_546, 1, x_5); +x_547 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_546, x_7, x_537); +lean_dec(x_7); +return x_547; +} +else { -uint8_t x_540; +uint8_t x_548; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_540 = !lean_is_exclusive(x_538); -if (x_540 == 0) +x_548 = !lean_is_exclusive(x_535); +if (x_548 == 0) { -lean_object* x_541; lean_object* x_542; -x_541 = lean_ctor_get(x_538, 0); -lean_dec(x_541); -x_542 = lean_box(0); -lean_ctor_set(x_538, 0, x_542); -return x_538; +return x_535; } else { -lean_object* x_543; lean_object* x_544; lean_object* x_545; -x_543 = lean_ctor_get(x_538, 1); -lean_inc(x_543); -lean_dec(x_538); -x_544 = lean_box(0); -x_545 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_545, 0, x_544); -lean_ctor_set(x_545, 1, x_543); -return x_545; -} -} -else -{ -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; -x_546 = lean_ctor_get(x_538, 1); -lean_inc(x_546); -lean_dec(x_538); -x_547 = lean_ctor_get(x_539, 0); -lean_inc(x_547); -x_548 = lean_ctor_get(x_539, 1); -lean_inc(x_548); -lean_dec(x_539); -x_549 = lean_nat_add(x_3, x_548); -lean_dec(x_548); -x_550 = lean_ctor_get(x_4, 1); +lean_object* x_549; lean_object* x_550; lean_object* x_551; +x_549 = lean_ctor_get(x_535, 0); +x_550 = lean_ctor_get(x_535, 1); lean_inc(x_550); -x_551 = lean_ctor_get(x_4, 2); -lean_inc(x_551); -lean_dec(x_4); -x_552 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_552, 0, x_547); -lean_ctor_set(x_552, 1, x_550); -lean_ctor_set(x_552, 2, x_551); -x_553 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_553, 0, x_552); -lean_ctor_set(x_553, 1, x_5); -x_554 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_549, x_553, x_7, x_546); -lean_dec(x_7); -lean_dec(x_549); -return x_554; +lean_inc(x_549); +lean_dec(x_535); +x_551 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_551, 0, x_549); +lean_ctor_set(x_551, 1, x_550); +return x_551; +} } } else { -uint8_t x_555; +lean_object* x_552; +lean_dec(x_22); +x_552 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_552) == 0) +{ +lean_object* x_553; +x_553 = lean_ctor_get(x_552, 0); +lean_inc(x_553); +if (lean_obj_tag(x_553) == 0) +{ +uint8_t x_554; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_555 = !lean_is_exclusive(x_538); -if (x_555 == 0) +x_554 = !lean_is_exclusive(x_552); +if (x_554 == 0) { -return x_538; +lean_object* x_555; lean_object* x_556; +x_555 = lean_ctor_get(x_552, 0); +lean_dec(x_555); +x_556 = lean_box(0); +lean_ctor_set(x_552, 0, x_556); +return x_552; } else { -lean_object* x_556; lean_object* x_557; lean_object* x_558; -x_556 = lean_ctor_get(x_538, 0); -x_557 = lean_ctor_get(x_538, 1); +lean_object* x_557; lean_object* x_558; lean_object* x_559; +x_557 = lean_ctor_get(x_552, 1); lean_inc(x_557); -lean_inc(x_556); -lean_dec(x_538); -x_558 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_558, 0, x_556); -lean_ctor_set(x_558, 1, x_557); -return x_558; +lean_dec(x_552); +x_558 = lean_box(0); +x_559 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_559, 0, x_558); +lean_ctor_set(x_559, 1, x_557); +return x_559; +} +} +else +{ +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; +x_560 = lean_ctor_get(x_552, 1); +lean_inc(x_560); +lean_dec(x_552); +x_561 = lean_ctor_get(x_553, 0); +lean_inc(x_561); +x_562 = lean_ctor_get(x_553, 1); +lean_inc(x_562); +lean_dec(x_553); +x_563 = lean_nat_add(x_3, x_562); +lean_dec(x_562); +x_564 = lean_ctor_get(x_4, 1); +lean_inc(x_564); +x_565 = lean_ctor_get(x_4, 2); +lean_inc(x_565); +lean_dec(x_4); +x_566 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_566, 0, x_561); +lean_ctor_set(x_566, 1, x_564); +lean_ctor_set(x_566, 2, x_565); +x_567 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_567, 0, x_566); +lean_ctor_set(x_567, 1, x_5); +x_568 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_563, x_567, x_7, x_560); +lean_dec(x_7); +lean_dec(x_563); +return x_568; +} +} +else +{ +uint8_t x_569; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_569 = !lean_is_exclusive(x_552); +if (x_569 == 0) +{ +return x_552; +} +else +{ +lean_object* x_570; lean_object* x_571; lean_object* x_572; +x_570 = lean_ctor_get(x_552, 0); +x_571 = lean_ctor_get(x_552, 1); +lean_inc(x_571); +lean_inc(x_570); +lean_dec(x_552); +x_572 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_572, 0, x_570); +lean_ctor_set(x_572, 1, x_571); +return x_572; } } } } case 6: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_559; uint8_t x_560; lean_object* x_561; +lean_dec(x_24); lean_dec(x_21); -x_559 = lean_ctor_get(x_4, 2); -lean_inc(x_559); -x_560 = 1; -x_561 = l_Lean_Meta_substCore(x_1, x_2, x_560, x_559, x_7, x_31); -if (lean_obj_tag(x_561) == 0) +if (lean_obj_tag(x_22) == 1) { -lean_object* x_562; lean_object* x_563; lean_object* x_564; lean_object* x_565; lean_object* x_566; lean_object* x_567; lean_object* x_568; lean_object* x_569; lean_object* x_570; lean_object* x_571; lean_object* x_572; lean_object* x_573; -x_562 = lean_ctor_get(x_561, 0); -lean_inc(x_562); -x_563 = lean_ctor_get(x_561, 1); -lean_inc(x_563); -lean_dec(x_561); -x_564 = lean_ctor_get(x_562, 0); -lean_inc(x_564); -x_565 = lean_ctor_get(x_562, 1); -lean_inc(x_565); -lean_dec(x_562); -x_566 = lean_ctor_get(x_4, 1); -lean_inc(x_566); -lean_dec(x_4); -x_567 = x_566; -x_568 = lean_unsigned_to_nat(0u); -x_569 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__19(x_564, x_568, x_567); -x_570 = x_569; -x_571 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_571, 0, x_565); -lean_ctor_set(x_571, 1, x_570); -lean_ctor_set(x_571, 2, x_564); -x_572 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_572, 0, x_571); -lean_ctor_set(x_572, 1, x_5); -x_573 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_572, x_7, x_563); -lean_dec(x_7); -return x_573; -} -else +lean_object* x_573; uint8_t x_574; lean_object* x_575; +lean_dec(x_22); +x_573 = lean_ctor_get(x_4, 2); +lean_inc(x_573); +x_574 = 1; +x_575 = l_Lean_Meta_substCore(x_1, x_2, x_574, x_573, x_574, x_7, x_32); +if (lean_obj_tag(x_575) == 0) { -uint8_t x_574; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_574 = !lean_is_exclusive(x_561); -if (x_574 == 0) -{ -return x_561; -} -else -{ -lean_object* x_575; lean_object* x_576; lean_object* x_577; -x_575 = lean_ctor_get(x_561, 0); -x_576 = lean_ctor_get(x_561, 1); +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; +x_576 = lean_ctor_get(x_575, 0); lean_inc(x_576); -lean_inc(x_575); -lean_dec(x_561); -x_577 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_577, 0, x_575); -lean_ctor_set(x_577, 1, x_576); -return x_577; -} -} -} -else -{ -lean_object* x_578; -lean_dec(x_21); -x_578 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_578) == 0) -{ -lean_object* x_579; -x_579 = lean_ctor_get(x_578, 0); +x_577 = lean_ctor_get(x_575, 1); +lean_inc(x_577); +lean_dec(x_575); +x_578 = lean_ctor_get(x_576, 0); +lean_inc(x_578); +x_579 = lean_ctor_get(x_576, 1); lean_inc(x_579); -if (lean_obj_tag(x_579) == 0) +lean_dec(x_576); +x_580 = lean_ctor_get(x_4, 1); +lean_inc(x_580); +lean_dec(x_4); +x_581 = x_580; +x_582 = lean_unsigned_to_nat(0u); +x_583 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__19(x_578, x_582, x_581); +x_584 = x_583; +x_585 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_585, 0, x_579); +lean_ctor_set(x_585, 1, x_584); +lean_ctor_set(x_585, 2, x_578); +x_586 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_586, 0, x_585); +lean_ctor_set(x_586, 1, x_5); +x_587 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_586, x_7, x_577); +lean_dec(x_7); +return x_587; +} +else { -uint8_t x_580; +uint8_t x_588; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_580 = !lean_is_exclusive(x_578); -if (x_580 == 0) +x_588 = !lean_is_exclusive(x_575); +if (x_588 == 0) { -lean_object* x_581; lean_object* x_582; -x_581 = lean_ctor_get(x_578, 0); -lean_dec(x_581); -x_582 = lean_box(0); -lean_ctor_set(x_578, 0, x_582); -return x_578; +return x_575; } else { -lean_object* x_583; lean_object* x_584; lean_object* x_585; -x_583 = lean_ctor_get(x_578, 1); -lean_inc(x_583); -lean_dec(x_578); -x_584 = lean_box(0); -x_585 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_585, 0, x_584); -lean_ctor_set(x_585, 1, x_583); -return x_585; -} -} -else -{ -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; -x_586 = lean_ctor_get(x_578, 1); -lean_inc(x_586); -lean_dec(x_578); -x_587 = lean_ctor_get(x_579, 0); -lean_inc(x_587); -x_588 = lean_ctor_get(x_579, 1); -lean_inc(x_588); -lean_dec(x_579); -x_589 = lean_nat_add(x_3, x_588); -lean_dec(x_588); -x_590 = lean_ctor_get(x_4, 1); +lean_object* x_589; lean_object* x_590; lean_object* x_591; +x_589 = lean_ctor_get(x_575, 0); +x_590 = lean_ctor_get(x_575, 1); lean_inc(x_590); -x_591 = lean_ctor_get(x_4, 2); -lean_inc(x_591); -lean_dec(x_4); -x_592 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_592, 0, x_587); -lean_ctor_set(x_592, 1, x_590); -lean_ctor_set(x_592, 2, x_591); -x_593 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_593, 0, x_592); -lean_ctor_set(x_593, 1, x_5); -x_594 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_589, x_593, x_7, x_586); -lean_dec(x_7); -lean_dec(x_589); -return x_594; +lean_inc(x_589); +lean_dec(x_575); +x_591 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_591, 0, x_589); +lean_ctor_set(x_591, 1, x_590); +return x_591; +} } } else { -uint8_t x_595; +lean_object* x_592; +lean_dec(x_22); +x_592 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_592) == 0) +{ +lean_object* x_593; +x_593 = lean_ctor_get(x_592, 0); +lean_inc(x_593); +if (lean_obj_tag(x_593) == 0) +{ +uint8_t x_594; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_595 = !lean_is_exclusive(x_578); -if (x_595 == 0) +x_594 = !lean_is_exclusive(x_592); +if (x_594 == 0) { -return x_578; +lean_object* x_595; lean_object* x_596; +x_595 = lean_ctor_get(x_592, 0); +lean_dec(x_595); +x_596 = lean_box(0); +lean_ctor_set(x_592, 0, x_596); +return x_592; } else { -lean_object* x_596; lean_object* x_597; lean_object* x_598; -x_596 = lean_ctor_get(x_578, 0); -x_597 = lean_ctor_get(x_578, 1); +lean_object* x_597; lean_object* x_598; lean_object* x_599; +x_597 = lean_ctor_get(x_592, 1); lean_inc(x_597); -lean_inc(x_596); -lean_dec(x_578); -x_598 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_598, 0, x_596); -lean_ctor_set(x_598, 1, x_597); -return x_598; +lean_dec(x_592); +x_598 = lean_box(0); +x_599 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_599, 0, x_598); +lean_ctor_set(x_599, 1, x_597); +return x_599; +} +} +else +{ +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; +x_600 = lean_ctor_get(x_592, 1); +lean_inc(x_600); +lean_dec(x_592); +x_601 = lean_ctor_get(x_593, 0); +lean_inc(x_601); +x_602 = lean_ctor_get(x_593, 1); +lean_inc(x_602); +lean_dec(x_593); +x_603 = lean_nat_add(x_3, x_602); +lean_dec(x_602); +x_604 = lean_ctor_get(x_4, 1); +lean_inc(x_604); +x_605 = lean_ctor_get(x_4, 2); +lean_inc(x_605); +lean_dec(x_4); +x_606 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_606, 0, x_601); +lean_ctor_set(x_606, 1, x_604); +lean_ctor_set(x_606, 2, x_605); +x_607 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_607, 0, x_606); +lean_ctor_set(x_607, 1, x_5); +x_608 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_603, x_607, x_7, x_600); +lean_dec(x_7); +lean_dec(x_603); +return x_608; +} +} +else +{ +uint8_t x_609; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_609 = !lean_is_exclusive(x_592); +if (x_609 == 0) +{ +return x_592; +} +else +{ +lean_object* x_610; lean_object* x_611; lean_object* x_612; +x_610 = lean_ctor_get(x_592, 0); +x_611 = lean_ctor_get(x_592, 1); +lean_inc(x_611); +lean_inc(x_610); +lean_dec(x_592); +x_612 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_612, 0, x_610); +lean_ctor_set(x_612, 1, x_611); +return x_612; } } } } case 7: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_599; uint8_t x_600; lean_object* x_601; +lean_dec(x_24); lean_dec(x_21); -x_599 = lean_ctor_get(x_4, 2); -lean_inc(x_599); -x_600 = 1; -x_601 = l_Lean_Meta_substCore(x_1, x_2, x_600, x_599, x_7, x_31); -if (lean_obj_tag(x_601) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_602 = lean_ctor_get(x_601, 0); -lean_inc(x_602); -x_603 = lean_ctor_get(x_601, 1); -lean_inc(x_603); -lean_dec(x_601); -x_604 = lean_ctor_get(x_602, 0); -lean_inc(x_604); -x_605 = lean_ctor_get(x_602, 1); -lean_inc(x_605); -lean_dec(x_602); -x_606 = lean_ctor_get(x_4, 1); -lean_inc(x_606); -lean_dec(x_4); -x_607 = x_606; -x_608 = lean_unsigned_to_nat(0u); -x_609 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__20(x_604, x_608, x_607); -x_610 = x_609; -x_611 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_611, 0, x_605); -lean_ctor_set(x_611, 1, x_610); -lean_ctor_set(x_611, 2, x_604); -x_612 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_612, 0, x_611); -lean_ctor_set(x_612, 1, x_5); -x_613 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_612, x_7, x_603); -lean_dec(x_7); -return x_613; -} -else +lean_object* x_613; uint8_t x_614; lean_object* x_615; +lean_dec(x_22); +x_613 = lean_ctor_get(x_4, 2); +lean_inc(x_613); +x_614 = 1; +x_615 = l_Lean_Meta_substCore(x_1, x_2, x_614, x_613, x_614, x_7, x_32); +if (lean_obj_tag(x_615) == 0) { -uint8_t x_614; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_614 = !lean_is_exclusive(x_601); -if (x_614 == 0) -{ -return x_601; -} -else -{ -lean_object* x_615; lean_object* x_616; lean_object* x_617; -x_615 = lean_ctor_get(x_601, 0); -x_616 = lean_ctor_get(x_601, 1); +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; +x_616 = lean_ctor_get(x_615, 0); lean_inc(x_616); -lean_inc(x_615); -lean_dec(x_601); -x_617 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_617, 0, x_615); -lean_ctor_set(x_617, 1, x_616); -return x_617; -} -} -} -else -{ -lean_object* x_618; -lean_dec(x_21); -x_618 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_618) == 0) -{ -lean_object* x_619; -x_619 = lean_ctor_get(x_618, 0); +x_617 = lean_ctor_get(x_615, 1); +lean_inc(x_617); +lean_dec(x_615); +x_618 = lean_ctor_get(x_616, 0); +lean_inc(x_618); +x_619 = lean_ctor_get(x_616, 1); lean_inc(x_619); -if (lean_obj_tag(x_619) == 0) +lean_dec(x_616); +x_620 = lean_ctor_get(x_4, 1); +lean_inc(x_620); +lean_dec(x_4); +x_621 = x_620; +x_622 = lean_unsigned_to_nat(0u); +x_623 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__20(x_618, x_622, x_621); +x_624 = x_623; +x_625 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_625, 0, x_619); +lean_ctor_set(x_625, 1, x_624); +lean_ctor_set(x_625, 2, x_618); +x_626 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_626, 0, x_625); +lean_ctor_set(x_626, 1, x_5); +x_627 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_626, x_7, x_617); +lean_dec(x_7); +return x_627; +} +else { -uint8_t x_620; +uint8_t x_628; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_620 = !lean_is_exclusive(x_618); -if (x_620 == 0) +x_628 = !lean_is_exclusive(x_615); +if (x_628 == 0) { -lean_object* x_621; lean_object* x_622; -x_621 = lean_ctor_get(x_618, 0); -lean_dec(x_621); -x_622 = lean_box(0); -lean_ctor_set(x_618, 0, x_622); -return x_618; +return x_615; } else { -lean_object* x_623; lean_object* x_624; lean_object* x_625; -x_623 = lean_ctor_get(x_618, 1); -lean_inc(x_623); -lean_dec(x_618); -x_624 = lean_box(0); -x_625 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_625, 0, x_624); -lean_ctor_set(x_625, 1, x_623); -return x_625; -} -} -else -{ -lean_object* x_626; lean_object* x_627; lean_object* x_628; lean_object* x_629; lean_object* x_630; lean_object* x_631; lean_object* x_632; lean_object* x_633; lean_object* x_634; -x_626 = lean_ctor_get(x_618, 1); -lean_inc(x_626); -lean_dec(x_618); -x_627 = lean_ctor_get(x_619, 0); -lean_inc(x_627); -x_628 = lean_ctor_get(x_619, 1); -lean_inc(x_628); -lean_dec(x_619); -x_629 = lean_nat_add(x_3, x_628); -lean_dec(x_628); -x_630 = lean_ctor_get(x_4, 1); +lean_object* x_629; lean_object* x_630; lean_object* x_631; +x_629 = lean_ctor_get(x_615, 0); +x_630 = lean_ctor_get(x_615, 1); lean_inc(x_630); -x_631 = lean_ctor_get(x_4, 2); -lean_inc(x_631); -lean_dec(x_4); -x_632 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_632, 0, x_627); -lean_ctor_set(x_632, 1, x_630); -lean_ctor_set(x_632, 2, x_631); -x_633 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_633, 0, x_632); -lean_ctor_set(x_633, 1, x_5); -x_634 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_629, x_633, x_7, x_626); -lean_dec(x_7); -lean_dec(x_629); -return x_634; +lean_inc(x_629); +lean_dec(x_615); +x_631 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_631, 0, x_629); +lean_ctor_set(x_631, 1, x_630); +return x_631; +} } } else { -uint8_t x_635; +lean_object* x_632; +lean_dec(x_22); +x_632 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_632) == 0) +{ +lean_object* x_633; +x_633 = lean_ctor_get(x_632, 0); +lean_inc(x_633); +if (lean_obj_tag(x_633) == 0) +{ +uint8_t x_634; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_635 = !lean_is_exclusive(x_618); -if (x_635 == 0) +x_634 = !lean_is_exclusive(x_632); +if (x_634 == 0) { -return x_618; +lean_object* x_635; lean_object* x_636; +x_635 = lean_ctor_get(x_632, 0); +lean_dec(x_635); +x_636 = lean_box(0); +lean_ctor_set(x_632, 0, x_636); +return x_632; } else { -lean_object* x_636; lean_object* x_637; lean_object* x_638; -x_636 = lean_ctor_get(x_618, 0); -x_637 = lean_ctor_get(x_618, 1); +lean_object* x_637; lean_object* x_638; lean_object* x_639; +x_637 = lean_ctor_get(x_632, 1); lean_inc(x_637); -lean_inc(x_636); -lean_dec(x_618); -x_638 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_638, 0, x_636); -lean_ctor_set(x_638, 1, x_637); -return x_638; +lean_dec(x_632); +x_638 = lean_box(0); +x_639 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_639, 0, x_638); +lean_ctor_set(x_639, 1, x_637); +return x_639; +} +} +else +{ +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; +x_640 = lean_ctor_get(x_632, 1); +lean_inc(x_640); +lean_dec(x_632); +x_641 = lean_ctor_get(x_633, 0); +lean_inc(x_641); +x_642 = lean_ctor_get(x_633, 1); +lean_inc(x_642); +lean_dec(x_633); +x_643 = lean_nat_add(x_3, x_642); +lean_dec(x_642); +x_644 = lean_ctor_get(x_4, 1); +lean_inc(x_644); +x_645 = lean_ctor_get(x_4, 2); +lean_inc(x_645); +lean_dec(x_4); +x_646 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_646, 0, x_641); +lean_ctor_set(x_646, 1, x_644); +lean_ctor_set(x_646, 2, x_645); +x_647 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_647, 0, x_646); +lean_ctor_set(x_647, 1, x_5); +x_648 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_643, x_647, x_7, x_640); +lean_dec(x_7); +lean_dec(x_643); +return x_648; +} +} +else +{ +uint8_t x_649; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_649 = !lean_is_exclusive(x_632); +if (x_649 == 0) +{ +return x_632; +} +else +{ +lean_object* x_650; lean_object* x_651; lean_object* x_652; +x_650 = lean_ctor_get(x_632, 0); +x_651 = lean_ctor_get(x_632, 1); +lean_inc(x_651); +lean_inc(x_650); +lean_dec(x_632); +x_652 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_652, 0, x_650); +lean_ctor_set(x_652, 1, x_651); +return x_652; } } } } case 8: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_639; uint8_t x_640; lean_object* x_641; +lean_dec(x_24); lean_dec(x_21); -x_639 = lean_ctor_get(x_4, 2); -lean_inc(x_639); -x_640 = 1; -x_641 = l_Lean_Meta_substCore(x_1, x_2, x_640, x_639, x_7, x_31); -if (lean_obj_tag(x_641) == 0) +if (lean_obj_tag(x_22) == 1) { -lean_object* x_642; lean_object* x_643; lean_object* x_644; lean_object* x_645; lean_object* x_646; lean_object* x_647; lean_object* x_648; lean_object* x_649; lean_object* x_650; lean_object* x_651; lean_object* x_652; lean_object* x_653; -x_642 = lean_ctor_get(x_641, 0); -lean_inc(x_642); -x_643 = lean_ctor_get(x_641, 1); -lean_inc(x_643); -lean_dec(x_641); -x_644 = lean_ctor_get(x_642, 0); -lean_inc(x_644); -x_645 = lean_ctor_get(x_642, 1); -lean_inc(x_645); -lean_dec(x_642); -x_646 = lean_ctor_get(x_4, 1); -lean_inc(x_646); -lean_dec(x_4); -x_647 = x_646; -x_648 = lean_unsigned_to_nat(0u); -x_649 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__21(x_644, x_648, x_647); -x_650 = x_649; -x_651 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_651, 0, x_645); -lean_ctor_set(x_651, 1, x_650); -lean_ctor_set(x_651, 2, x_644); -x_652 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_652, 0, x_651); -lean_ctor_set(x_652, 1, x_5); -x_653 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_652, x_7, x_643); -lean_dec(x_7); -return x_653; -} -else +lean_object* x_653; uint8_t x_654; lean_object* x_655; +lean_dec(x_22); +x_653 = lean_ctor_get(x_4, 2); +lean_inc(x_653); +x_654 = 1; +x_655 = l_Lean_Meta_substCore(x_1, x_2, x_654, x_653, x_654, x_7, x_32); +if (lean_obj_tag(x_655) == 0) { -uint8_t x_654; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_654 = !lean_is_exclusive(x_641); -if (x_654 == 0) -{ -return x_641; -} -else -{ -lean_object* x_655; lean_object* x_656; lean_object* x_657; -x_655 = lean_ctor_get(x_641, 0); -x_656 = lean_ctor_get(x_641, 1); +lean_object* x_656; lean_object* x_657; lean_object* x_658; lean_object* x_659; lean_object* x_660; lean_object* x_661; lean_object* x_662; lean_object* x_663; lean_object* x_664; lean_object* x_665; lean_object* x_666; lean_object* x_667; +x_656 = lean_ctor_get(x_655, 0); lean_inc(x_656); -lean_inc(x_655); -lean_dec(x_641); -x_657 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_657, 0, x_655); -lean_ctor_set(x_657, 1, x_656); -return x_657; -} -} -} -else -{ -lean_object* x_658; -lean_dec(x_21); -x_658 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_658) == 0) -{ -lean_object* x_659; -x_659 = lean_ctor_get(x_658, 0); +x_657 = lean_ctor_get(x_655, 1); +lean_inc(x_657); +lean_dec(x_655); +x_658 = lean_ctor_get(x_656, 0); +lean_inc(x_658); +x_659 = lean_ctor_get(x_656, 1); lean_inc(x_659); -if (lean_obj_tag(x_659) == 0) +lean_dec(x_656); +x_660 = lean_ctor_get(x_4, 1); +lean_inc(x_660); +lean_dec(x_4); +x_661 = x_660; +x_662 = lean_unsigned_to_nat(0u); +x_663 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__21(x_658, x_662, x_661); +x_664 = x_663; +x_665 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_665, 0, x_659); +lean_ctor_set(x_665, 1, x_664); +lean_ctor_set(x_665, 2, x_658); +x_666 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_666, 0, x_665); +lean_ctor_set(x_666, 1, x_5); +x_667 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_666, x_7, x_657); +lean_dec(x_7); +return x_667; +} +else { -uint8_t x_660; +uint8_t x_668; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_660 = !lean_is_exclusive(x_658); -if (x_660 == 0) +x_668 = !lean_is_exclusive(x_655); +if (x_668 == 0) { -lean_object* x_661; lean_object* x_662; -x_661 = lean_ctor_get(x_658, 0); -lean_dec(x_661); -x_662 = lean_box(0); -lean_ctor_set(x_658, 0, x_662); -return x_658; +return x_655; } else { -lean_object* x_663; lean_object* x_664; lean_object* x_665; -x_663 = lean_ctor_get(x_658, 1); -lean_inc(x_663); -lean_dec(x_658); -x_664 = lean_box(0); -x_665 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_665, 0, x_664); -lean_ctor_set(x_665, 1, x_663); -return x_665; -} -} -else -{ -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; -x_666 = lean_ctor_get(x_658, 1); -lean_inc(x_666); -lean_dec(x_658); -x_667 = lean_ctor_get(x_659, 0); -lean_inc(x_667); -x_668 = lean_ctor_get(x_659, 1); -lean_inc(x_668); -lean_dec(x_659); -x_669 = lean_nat_add(x_3, x_668); -lean_dec(x_668); -x_670 = lean_ctor_get(x_4, 1); +lean_object* x_669; lean_object* x_670; lean_object* x_671; +x_669 = lean_ctor_get(x_655, 0); +x_670 = lean_ctor_get(x_655, 1); lean_inc(x_670); -x_671 = lean_ctor_get(x_4, 2); -lean_inc(x_671); -lean_dec(x_4); -x_672 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_672, 0, x_667); -lean_ctor_set(x_672, 1, x_670); -lean_ctor_set(x_672, 2, x_671); -x_673 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_673, 0, x_672); -lean_ctor_set(x_673, 1, x_5); -x_674 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_669, x_673, x_7, x_666); -lean_dec(x_7); -lean_dec(x_669); -return x_674; +lean_inc(x_669); +lean_dec(x_655); +x_671 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_671, 0, x_669); +lean_ctor_set(x_671, 1, x_670); +return x_671; +} } } else { -uint8_t x_675; +lean_object* x_672; +lean_dec(x_22); +x_672 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_672) == 0) +{ +lean_object* x_673; +x_673 = lean_ctor_get(x_672, 0); +lean_inc(x_673); +if (lean_obj_tag(x_673) == 0) +{ +uint8_t x_674; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_675 = !lean_is_exclusive(x_658); -if (x_675 == 0) +x_674 = !lean_is_exclusive(x_672); +if (x_674 == 0) { -return x_658; +lean_object* x_675; lean_object* x_676; +x_675 = lean_ctor_get(x_672, 0); +lean_dec(x_675); +x_676 = lean_box(0); +lean_ctor_set(x_672, 0, x_676); +return x_672; } else { -lean_object* x_676; lean_object* x_677; lean_object* x_678; -x_676 = lean_ctor_get(x_658, 0); -x_677 = lean_ctor_get(x_658, 1); +lean_object* x_677; lean_object* x_678; lean_object* x_679; +x_677 = lean_ctor_get(x_672, 1); lean_inc(x_677); -lean_inc(x_676); -lean_dec(x_658); -x_678 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_678, 0, x_676); -lean_ctor_set(x_678, 1, x_677); -return x_678; +lean_dec(x_672); +x_678 = lean_box(0); +x_679 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_679, 0, x_678); +lean_ctor_set(x_679, 1, x_677); +return x_679; +} +} +else +{ +lean_object* x_680; lean_object* x_681; lean_object* x_682; lean_object* x_683; lean_object* x_684; lean_object* x_685; lean_object* x_686; lean_object* x_687; lean_object* x_688; +x_680 = lean_ctor_get(x_672, 1); +lean_inc(x_680); +lean_dec(x_672); +x_681 = lean_ctor_get(x_673, 0); +lean_inc(x_681); +x_682 = lean_ctor_get(x_673, 1); +lean_inc(x_682); +lean_dec(x_673); +x_683 = lean_nat_add(x_3, x_682); +lean_dec(x_682); +x_684 = lean_ctor_get(x_4, 1); +lean_inc(x_684); +x_685 = lean_ctor_get(x_4, 2); +lean_inc(x_685); +lean_dec(x_4); +x_686 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_686, 0, x_681); +lean_ctor_set(x_686, 1, x_684); +lean_ctor_set(x_686, 2, x_685); +x_687 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_687, 0, x_686); +lean_ctor_set(x_687, 1, x_5); +x_688 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_683, x_687, x_7, x_680); +lean_dec(x_7); +lean_dec(x_683); +return x_688; +} +} +else +{ +uint8_t x_689; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_689 = !lean_is_exclusive(x_672); +if (x_689 == 0) +{ +return x_672; +} +else +{ +lean_object* x_690; lean_object* x_691; lean_object* x_692; +x_690 = lean_ctor_get(x_672, 0); +x_691 = lean_ctor_get(x_672, 1); +lean_inc(x_691); +lean_inc(x_690); +lean_dec(x_672); +x_692 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_692, 0, x_690); +lean_ctor_set(x_692, 1, x_691); +return x_692; } } } } case 9: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_679; uint8_t x_680; lean_object* x_681; +lean_dec(x_24); lean_dec(x_21); -x_679 = lean_ctor_get(x_4, 2); -lean_inc(x_679); -x_680 = 1; -x_681 = l_Lean_Meta_substCore(x_1, x_2, x_680, x_679, x_7, x_31); -if (lean_obj_tag(x_681) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_682 = lean_ctor_get(x_681, 0); -lean_inc(x_682); -x_683 = lean_ctor_get(x_681, 1); -lean_inc(x_683); -lean_dec(x_681); -x_684 = lean_ctor_get(x_682, 0); -lean_inc(x_684); -x_685 = lean_ctor_get(x_682, 1); -lean_inc(x_685); -lean_dec(x_682); -x_686 = lean_ctor_get(x_4, 1); -lean_inc(x_686); -lean_dec(x_4); -x_687 = x_686; -x_688 = lean_unsigned_to_nat(0u); -x_689 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__22(x_684, x_688, x_687); -x_690 = x_689; -x_691 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_691, 0, x_685); -lean_ctor_set(x_691, 1, x_690); -lean_ctor_set(x_691, 2, x_684); -x_692 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_692, 0, x_691); -lean_ctor_set(x_692, 1, x_5); -x_693 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_692, x_7, x_683); -lean_dec(x_7); -return x_693; -} -else +lean_object* x_693; uint8_t x_694; lean_object* x_695; +lean_dec(x_22); +x_693 = lean_ctor_get(x_4, 2); +lean_inc(x_693); +x_694 = 1; +x_695 = l_Lean_Meta_substCore(x_1, x_2, x_694, x_693, x_694, x_7, x_32); +if (lean_obj_tag(x_695) == 0) { -uint8_t x_694; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_694 = !lean_is_exclusive(x_681); -if (x_694 == 0) -{ -return x_681; -} -else -{ -lean_object* x_695; lean_object* x_696; lean_object* x_697; -x_695 = lean_ctor_get(x_681, 0); -x_696 = lean_ctor_get(x_681, 1); +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; +x_696 = lean_ctor_get(x_695, 0); lean_inc(x_696); -lean_inc(x_695); -lean_dec(x_681); -x_697 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_697, 0, x_695); -lean_ctor_set(x_697, 1, x_696); -return x_697; -} -} -} -else -{ -lean_object* x_698; -lean_dec(x_21); -x_698 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_698) == 0) -{ -lean_object* x_699; -x_699 = lean_ctor_get(x_698, 0); +x_697 = lean_ctor_get(x_695, 1); +lean_inc(x_697); +lean_dec(x_695); +x_698 = lean_ctor_get(x_696, 0); +lean_inc(x_698); +x_699 = lean_ctor_get(x_696, 1); lean_inc(x_699); -if (lean_obj_tag(x_699) == 0) +lean_dec(x_696); +x_700 = lean_ctor_get(x_4, 1); +lean_inc(x_700); +lean_dec(x_4); +x_701 = x_700; +x_702 = lean_unsigned_to_nat(0u); +x_703 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__22(x_698, x_702, x_701); +x_704 = x_703; +x_705 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_705, 0, x_699); +lean_ctor_set(x_705, 1, x_704); +lean_ctor_set(x_705, 2, x_698); +x_706 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_706, 0, x_705); +lean_ctor_set(x_706, 1, x_5); +x_707 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_706, x_7, x_697); +lean_dec(x_7); +return x_707; +} +else { -uint8_t x_700; +uint8_t x_708; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_700 = !lean_is_exclusive(x_698); -if (x_700 == 0) +x_708 = !lean_is_exclusive(x_695); +if (x_708 == 0) { -lean_object* x_701; lean_object* x_702; -x_701 = lean_ctor_get(x_698, 0); -lean_dec(x_701); -x_702 = lean_box(0); -lean_ctor_set(x_698, 0, x_702); -return x_698; +return x_695; } else { -lean_object* x_703; lean_object* x_704; lean_object* x_705; -x_703 = lean_ctor_get(x_698, 1); -lean_inc(x_703); -lean_dec(x_698); -x_704 = lean_box(0); -x_705 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_705, 0, x_704); -lean_ctor_set(x_705, 1, x_703); -return x_705; -} -} -else -{ -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; -x_706 = lean_ctor_get(x_698, 1); -lean_inc(x_706); -lean_dec(x_698); -x_707 = lean_ctor_get(x_699, 0); -lean_inc(x_707); -x_708 = lean_ctor_get(x_699, 1); -lean_inc(x_708); -lean_dec(x_699); -x_709 = lean_nat_add(x_3, x_708); -lean_dec(x_708); -x_710 = lean_ctor_get(x_4, 1); +lean_object* x_709; lean_object* x_710; lean_object* x_711; +x_709 = lean_ctor_get(x_695, 0); +x_710 = lean_ctor_get(x_695, 1); lean_inc(x_710); -x_711 = lean_ctor_get(x_4, 2); -lean_inc(x_711); -lean_dec(x_4); -x_712 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_712, 0, x_707); -lean_ctor_set(x_712, 1, x_710); -lean_ctor_set(x_712, 2, x_711); -x_713 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_713, 0, x_712); -lean_ctor_set(x_713, 1, x_5); -x_714 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_709, x_713, x_7, x_706); -lean_dec(x_7); -lean_dec(x_709); -return x_714; +lean_inc(x_709); +lean_dec(x_695); +x_711 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_711, 0, x_709); +lean_ctor_set(x_711, 1, x_710); +return x_711; +} } } else { -uint8_t x_715; +lean_object* x_712; +lean_dec(x_22); +x_712 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_712) == 0) +{ +lean_object* x_713; +x_713 = lean_ctor_get(x_712, 0); +lean_inc(x_713); +if (lean_obj_tag(x_713) == 0) +{ +uint8_t x_714; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_715 = !lean_is_exclusive(x_698); -if (x_715 == 0) +x_714 = !lean_is_exclusive(x_712); +if (x_714 == 0) { -return x_698; +lean_object* x_715; lean_object* x_716; +x_715 = lean_ctor_get(x_712, 0); +lean_dec(x_715); +x_716 = lean_box(0); +lean_ctor_set(x_712, 0, x_716); +return x_712; } else { -lean_object* x_716; lean_object* x_717; lean_object* x_718; -x_716 = lean_ctor_get(x_698, 0); -x_717 = lean_ctor_get(x_698, 1); +lean_object* x_717; lean_object* x_718; lean_object* x_719; +x_717 = lean_ctor_get(x_712, 1); lean_inc(x_717); -lean_inc(x_716); -lean_dec(x_698); -x_718 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_718, 0, x_716); -lean_ctor_set(x_718, 1, x_717); -return x_718; +lean_dec(x_712); +x_718 = lean_box(0); +x_719 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_719, 0, x_718); +lean_ctor_set(x_719, 1, x_717); +return x_719; +} +} +else +{ +lean_object* x_720; lean_object* x_721; lean_object* x_722; lean_object* x_723; lean_object* x_724; lean_object* x_725; lean_object* x_726; lean_object* x_727; lean_object* x_728; +x_720 = lean_ctor_get(x_712, 1); +lean_inc(x_720); +lean_dec(x_712); +x_721 = lean_ctor_get(x_713, 0); +lean_inc(x_721); +x_722 = lean_ctor_get(x_713, 1); +lean_inc(x_722); +lean_dec(x_713); +x_723 = lean_nat_add(x_3, x_722); +lean_dec(x_722); +x_724 = lean_ctor_get(x_4, 1); +lean_inc(x_724); +x_725 = lean_ctor_get(x_4, 2); +lean_inc(x_725); +lean_dec(x_4); +x_726 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_726, 0, x_721); +lean_ctor_set(x_726, 1, x_724); +lean_ctor_set(x_726, 2, x_725); +x_727 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_727, 0, x_726); +lean_ctor_set(x_727, 1, x_5); +x_728 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_723, x_727, x_7, x_720); +lean_dec(x_7); +lean_dec(x_723); +return x_728; +} +} +else +{ +uint8_t x_729; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_729 = !lean_is_exclusive(x_712); +if (x_729 == 0) +{ +return x_712; +} +else +{ +lean_object* x_730; lean_object* x_731; lean_object* x_732; +x_730 = lean_ctor_get(x_712, 0); +x_731 = lean_ctor_get(x_712, 1); +lean_inc(x_731); +lean_inc(x_730); +lean_dec(x_712); +x_732 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_732, 0, x_730); +lean_ctor_set(x_732, 1, x_731); +return x_732; } } } } case 10: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_719; uint8_t x_720; lean_object* x_721; +lean_dec(x_24); lean_dec(x_21); -x_719 = lean_ctor_get(x_4, 2); -lean_inc(x_719); -x_720 = 1; -x_721 = l_Lean_Meta_substCore(x_1, x_2, x_720, x_719, x_7, x_31); -if (lean_obj_tag(x_721) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_722 = lean_ctor_get(x_721, 0); -lean_inc(x_722); -x_723 = lean_ctor_get(x_721, 1); -lean_inc(x_723); -lean_dec(x_721); -x_724 = lean_ctor_get(x_722, 0); -lean_inc(x_724); -x_725 = lean_ctor_get(x_722, 1); -lean_inc(x_725); -lean_dec(x_722); -x_726 = lean_ctor_get(x_4, 1); -lean_inc(x_726); -lean_dec(x_4); -x_727 = x_726; -x_728 = lean_unsigned_to_nat(0u); -x_729 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__23(x_724, x_728, x_727); -x_730 = x_729; -x_731 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_731, 0, x_725); -lean_ctor_set(x_731, 1, x_730); -lean_ctor_set(x_731, 2, x_724); -x_732 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_732, 0, x_731); -lean_ctor_set(x_732, 1, x_5); -x_733 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_732, x_7, x_723); -lean_dec(x_7); -return x_733; -} -else +lean_object* x_733; uint8_t x_734; lean_object* x_735; +lean_dec(x_22); +x_733 = lean_ctor_get(x_4, 2); +lean_inc(x_733); +x_734 = 1; +x_735 = l_Lean_Meta_substCore(x_1, x_2, x_734, x_733, x_734, x_7, x_32); +if (lean_obj_tag(x_735) == 0) { -uint8_t x_734; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_734 = !lean_is_exclusive(x_721); -if (x_734 == 0) -{ -return x_721; -} -else -{ -lean_object* x_735; lean_object* x_736; lean_object* x_737; -x_735 = lean_ctor_get(x_721, 0); -x_736 = lean_ctor_get(x_721, 1); +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; +x_736 = lean_ctor_get(x_735, 0); lean_inc(x_736); -lean_inc(x_735); -lean_dec(x_721); -x_737 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_737, 0, x_735); -lean_ctor_set(x_737, 1, x_736); -return x_737; -} -} -} -else -{ -lean_object* x_738; -lean_dec(x_21); -x_738 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_738) == 0) -{ -lean_object* x_739; -x_739 = lean_ctor_get(x_738, 0); +x_737 = lean_ctor_get(x_735, 1); +lean_inc(x_737); +lean_dec(x_735); +x_738 = lean_ctor_get(x_736, 0); +lean_inc(x_738); +x_739 = lean_ctor_get(x_736, 1); lean_inc(x_739); -if (lean_obj_tag(x_739) == 0) +lean_dec(x_736); +x_740 = lean_ctor_get(x_4, 1); +lean_inc(x_740); +lean_dec(x_4); +x_741 = x_740; +x_742 = lean_unsigned_to_nat(0u); +x_743 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__23(x_738, x_742, x_741); +x_744 = x_743; +x_745 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_745, 0, x_739); +lean_ctor_set(x_745, 1, x_744); +lean_ctor_set(x_745, 2, x_738); +x_746 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_746, 0, x_745); +lean_ctor_set(x_746, 1, x_5); +x_747 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_746, x_7, x_737); +lean_dec(x_7); +return x_747; +} +else { -uint8_t x_740; +uint8_t x_748; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_740 = !lean_is_exclusive(x_738); -if (x_740 == 0) +x_748 = !lean_is_exclusive(x_735); +if (x_748 == 0) { -lean_object* x_741; lean_object* x_742; -x_741 = lean_ctor_get(x_738, 0); -lean_dec(x_741); -x_742 = lean_box(0); -lean_ctor_set(x_738, 0, x_742); -return x_738; +return x_735; } else { -lean_object* x_743; lean_object* x_744; lean_object* x_745; -x_743 = lean_ctor_get(x_738, 1); -lean_inc(x_743); -lean_dec(x_738); -x_744 = lean_box(0); -x_745 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_745, 0, x_744); -lean_ctor_set(x_745, 1, x_743); -return x_745; -} -} -else -{ -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; -x_746 = lean_ctor_get(x_738, 1); -lean_inc(x_746); -lean_dec(x_738); -x_747 = lean_ctor_get(x_739, 0); -lean_inc(x_747); -x_748 = lean_ctor_get(x_739, 1); -lean_inc(x_748); -lean_dec(x_739); -x_749 = lean_nat_add(x_3, x_748); -lean_dec(x_748); -x_750 = lean_ctor_get(x_4, 1); +lean_object* x_749; lean_object* x_750; lean_object* x_751; +x_749 = lean_ctor_get(x_735, 0); +x_750 = lean_ctor_get(x_735, 1); lean_inc(x_750); -x_751 = lean_ctor_get(x_4, 2); -lean_inc(x_751); -lean_dec(x_4); -x_752 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_752, 0, x_747); -lean_ctor_set(x_752, 1, x_750); -lean_ctor_set(x_752, 2, x_751); -x_753 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_753, 0, x_752); -lean_ctor_set(x_753, 1, x_5); -x_754 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_749, x_753, x_7, x_746); -lean_dec(x_7); -lean_dec(x_749); -return x_754; +lean_inc(x_749); +lean_dec(x_735); +x_751 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_751, 0, x_749); +lean_ctor_set(x_751, 1, x_750); +return x_751; +} } } else { -uint8_t x_755; +lean_object* x_752; +lean_dec(x_22); +x_752 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_752) == 0) +{ +lean_object* x_753; +x_753 = lean_ctor_get(x_752, 0); +lean_inc(x_753); +if (lean_obj_tag(x_753) == 0) +{ +uint8_t x_754; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_755 = !lean_is_exclusive(x_738); -if (x_755 == 0) +x_754 = !lean_is_exclusive(x_752); +if (x_754 == 0) { -return x_738; +lean_object* x_755; lean_object* x_756; +x_755 = lean_ctor_get(x_752, 0); +lean_dec(x_755); +x_756 = lean_box(0); +lean_ctor_set(x_752, 0, x_756); +return x_752; } else { -lean_object* x_756; lean_object* x_757; lean_object* x_758; -x_756 = lean_ctor_get(x_738, 0); -x_757 = lean_ctor_get(x_738, 1); +lean_object* x_757; lean_object* x_758; lean_object* x_759; +x_757 = lean_ctor_get(x_752, 1); lean_inc(x_757); -lean_inc(x_756); -lean_dec(x_738); -x_758 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_758, 0, x_756); -lean_ctor_set(x_758, 1, x_757); -return x_758; +lean_dec(x_752); +x_758 = lean_box(0); +x_759 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_759, 0, x_758); +lean_ctor_set(x_759, 1, x_757); +return x_759; +} +} +else +{ +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; +x_760 = lean_ctor_get(x_752, 1); +lean_inc(x_760); +lean_dec(x_752); +x_761 = lean_ctor_get(x_753, 0); +lean_inc(x_761); +x_762 = lean_ctor_get(x_753, 1); +lean_inc(x_762); +lean_dec(x_753); +x_763 = lean_nat_add(x_3, x_762); +lean_dec(x_762); +x_764 = lean_ctor_get(x_4, 1); +lean_inc(x_764); +x_765 = lean_ctor_get(x_4, 2); +lean_inc(x_765); +lean_dec(x_4); +x_766 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_766, 0, x_761); +lean_ctor_set(x_766, 1, x_764); +lean_ctor_set(x_766, 2, x_765); +x_767 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_767, 0, x_766); +lean_ctor_set(x_767, 1, x_5); +x_768 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_763, x_767, x_7, x_760); +lean_dec(x_7); +lean_dec(x_763); +return x_768; +} +} +else +{ +uint8_t x_769; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_769 = !lean_is_exclusive(x_752); +if (x_769 == 0) +{ +return x_752; +} +else +{ +lean_object* x_770; lean_object* x_771; lean_object* x_772; +x_770 = lean_ctor_get(x_752, 0); +x_771 = lean_ctor_get(x_752, 1); +lean_inc(x_771); +lean_inc(x_770); +lean_dec(x_752); +x_772 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_772, 0, x_770); +lean_ctor_set(x_772, 1, x_771); +return x_772; } } } } case 11: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_759; uint8_t x_760; lean_object* x_761; +lean_dec(x_24); lean_dec(x_21); -x_759 = lean_ctor_get(x_4, 2); -lean_inc(x_759); -x_760 = 1; -x_761 = l_Lean_Meta_substCore(x_1, x_2, x_760, x_759, x_7, x_31); -if (lean_obj_tag(x_761) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_762 = lean_ctor_get(x_761, 0); -lean_inc(x_762); -x_763 = lean_ctor_get(x_761, 1); -lean_inc(x_763); -lean_dec(x_761); -x_764 = lean_ctor_get(x_762, 0); -lean_inc(x_764); -x_765 = lean_ctor_get(x_762, 1); -lean_inc(x_765); -lean_dec(x_762); -x_766 = lean_ctor_get(x_4, 1); -lean_inc(x_766); -lean_dec(x_4); -x_767 = x_766; -x_768 = lean_unsigned_to_nat(0u); -x_769 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__24(x_764, x_768, x_767); -x_770 = x_769; -x_771 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_771, 0, x_765); -lean_ctor_set(x_771, 1, x_770); -lean_ctor_set(x_771, 2, x_764); -x_772 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_772, 0, x_771); -lean_ctor_set(x_772, 1, x_5); -x_773 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_772, x_7, x_763); -lean_dec(x_7); -return x_773; -} -else +lean_object* x_773; uint8_t x_774; lean_object* x_775; +lean_dec(x_22); +x_773 = lean_ctor_get(x_4, 2); +lean_inc(x_773); +x_774 = 1; +x_775 = l_Lean_Meta_substCore(x_1, x_2, x_774, x_773, x_774, x_7, x_32); +if (lean_obj_tag(x_775) == 0) { -uint8_t x_774; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_774 = !lean_is_exclusive(x_761); -if (x_774 == 0) -{ -return x_761; -} -else -{ -lean_object* x_775; lean_object* x_776; lean_object* x_777; -x_775 = lean_ctor_get(x_761, 0); -x_776 = lean_ctor_get(x_761, 1); +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; +x_776 = lean_ctor_get(x_775, 0); lean_inc(x_776); -lean_inc(x_775); -lean_dec(x_761); -x_777 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_777, 0, x_775); -lean_ctor_set(x_777, 1, x_776); -return x_777; -} -} -} -else -{ -lean_object* x_778; -lean_dec(x_21); -x_778 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_778) == 0) -{ -lean_object* x_779; -x_779 = lean_ctor_get(x_778, 0); +x_777 = lean_ctor_get(x_775, 1); +lean_inc(x_777); +lean_dec(x_775); +x_778 = lean_ctor_get(x_776, 0); +lean_inc(x_778); +x_779 = lean_ctor_get(x_776, 1); lean_inc(x_779); -if (lean_obj_tag(x_779) == 0) +lean_dec(x_776); +x_780 = lean_ctor_get(x_4, 1); +lean_inc(x_780); +lean_dec(x_4); +x_781 = x_780; +x_782 = lean_unsigned_to_nat(0u); +x_783 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__24(x_778, x_782, x_781); +x_784 = x_783; +x_785 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_785, 0, x_779); +lean_ctor_set(x_785, 1, x_784); +lean_ctor_set(x_785, 2, x_778); +x_786 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_786, 0, x_785); +lean_ctor_set(x_786, 1, x_5); +x_787 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_786, x_7, x_777); +lean_dec(x_7); +return x_787; +} +else { -uint8_t x_780; +uint8_t x_788; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_780 = !lean_is_exclusive(x_778); -if (x_780 == 0) +x_788 = !lean_is_exclusive(x_775); +if (x_788 == 0) { -lean_object* x_781; lean_object* x_782; -x_781 = lean_ctor_get(x_778, 0); -lean_dec(x_781); -x_782 = lean_box(0); -lean_ctor_set(x_778, 0, x_782); -return x_778; +return x_775; } else { -lean_object* x_783; lean_object* x_784; lean_object* x_785; -x_783 = lean_ctor_get(x_778, 1); -lean_inc(x_783); -lean_dec(x_778); -x_784 = lean_box(0); -x_785 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_785, 0, x_784); -lean_ctor_set(x_785, 1, x_783); -return x_785; -} -} -else -{ -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; -x_786 = lean_ctor_get(x_778, 1); -lean_inc(x_786); -lean_dec(x_778); -x_787 = lean_ctor_get(x_779, 0); -lean_inc(x_787); -x_788 = lean_ctor_get(x_779, 1); -lean_inc(x_788); -lean_dec(x_779); -x_789 = lean_nat_add(x_3, x_788); -lean_dec(x_788); -x_790 = lean_ctor_get(x_4, 1); +lean_object* x_789; lean_object* x_790; lean_object* x_791; +x_789 = lean_ctor_get(x_775, 0); +x_790 = lean_ctor_get(x_775, 1); lean_inc(x_790); -x_791 = lean_ctor_get(x_4, 2); -lean_inc(x_791); -lean_dec(x_4); -x_792 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_792, 0, x_787); -lean_ctor_set(x_792, 1, x_790); -lean_ctor_set(x_792, 2, x_791); -x_793 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_793, 0, x_792); -lean_ctor_set(x_793, 1, x_5); -x_794 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_789, x_793, x_7, x_786); -lean_dec(x_7); -lean_dec(x_789); -return x_794; +lean_inc(x_789); +lean_dec(x_775); +x_791 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_791, 0, x_789); +lean_ctor_set(x_791, 1, x_790); +return x_791; +} } } else { -uint8_t x_795; +lean_object* x_792; +lean_dec(x_22); +x_792 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_792) == 0) +{ +lean_object* x_793; +x_793 = lean_ctor_get(x_792, 0); +lean_inc(x_793); +if (lean_obj_tag(x_793) == 0) +{ +uint8_t x_794; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_795 = !lean_is_exclusive(x_778); -if (x_795 == 0) +x_794 = !lean_is_exclusive(x_792); +if (x_794 == 0) { -return x_778; +lean_object* x_795; lean_object* x_796; +x_795 = lean_ctor_get(x_792, 0); +lean_dec(x_795); +x_796 = lean_box(0); +lean_ctor_set(x_792, 0, x_796); +return x_792; } else { -lean_object* x_796; lean_object* x_797; lean_object* x_798; -x_796 = lean_ctor_get(x_778, 0); -x_797 = lean_ctor_get(x_778, 1); +lean_object* x_797; lean_object* x_798; lean_object* x_799; +x_797 = lean_ctor_get(x_792, 1); lean_inc(x_797); -lean_inc(x_796); -lean_dec(x_778); -x_798 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_798, 0, x_796); -lean_ctor_set(x_798, 1, x_797); -return x_798; +lean_dec(x_792); +x_798 = lean_box(0); +x_799 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_799, 0, x_798); +lean_ctor_set(x_799, 1, x_797); +return x_799; +} +} +else +{ +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; +x_800 = lean_ctor_get(x_792, 1); +lean_inc(x_800); +lean_dec(x_792); +x_801 = lean_ctor_get(x_793, 0); +lean_inc(x_801); +x_802 = lean_ctor_get(x_793, 1); +lean_inc(x_802); +lean_dec(x_793); +x_803 = lean_nat_add(x_3, x_802); +lean_dec(x_802); +x_804 = lean_ctor_get(x_4, 1); +lean_inc(x_804); +x_805 = lean_ctor_get(x_4, 2); +lean_inc(x_805); +lean_dec(x_4); +x_806 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_806, 0, x_801); +lean_ctor_set(x_806, 1, x_804); +lean_ctor_set(x_806, 2, x_805); +x_807 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_807, 0, x_806); +lean_ctor_set(x_807, 1, x_5); +x_808 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_803, x_807, x_7, x_800); +lean_dec(x_7); +lean_dec(x_803); +return x_808; +} +} +else +{ +uint8_t x_809; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_809 = !lean_is_exclusive(x_792); +if (x_809 == 0) +{ +return x_792; +} +else +{ +lean_object* x_810; lean_object* x_811; lean_object* x_812; +x_810 = lean_ctor_get(x_792, 0); +x_811 = lean_ctor_get(x_792, 1); +lean_inc(x_811); +lean_inc(x_810); +lean_dec(x_792); +x_812 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_812, 0, x_810); +lean_ctor_set(x_812, 1, x_811); +return x_812; } } } } default: { -lean_dec(x_23); -lean_dec(x_20); -if (lean_obj_tag(x_21) == 1) -{ -lean_object* x_799; uint8_t x_800; lean_object* x_801; +lean_dec(x_24); lean_dec(x_21); -x_799 = lean_ctor_get(x_4, 2); -lean_inc(x_799); -x_800 = 1; -x_801 = l_Lean_Meta_substCore(x_1, x_2, x_800, x_799, x_7, x_31); -if (lean_obj_tag(x_801) == 0) +if (lean_obj_tag(x_22) == 1) { -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; -x_802 = lean_ctor_get(x_801, 0); -lean_inc(x_802); -x_803 = lean_ctor_get(x_801, 1); -lean_inc(x_803); -lean_dec(x_801); -x_804 = lean_ctor_get(x_802, 0); -lean_inc(x_804); -x_805 = lean_ctor_get(x_802, 1); -lean_inc(x_805); -lean_dec(x_802); -x_806 = lean_ctor_get(x_4, 1); -lean_inc(x_806); -lean_dec(x_4); -x_807 = x_806; -x_808 = lean_unsigned_to_nat(0u); -x_809 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__25(x_804, x_808, x_807); -x_810 = x_809; -x_811 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_811, 0, x_805); -lean_ctor_set(x_811, 1, x_810); -lean_ctor_set(x_811, 2, x_804); -x_812 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_812, 0, x_811); -lean_ctor_set(x_812, 1, x_5); -x_813 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_812, x_7, x_803); -lean_dec(x_7); -return x_813; -} -else -{ -uint8_t x_814; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_814 = !lean_is_exclusive(x_801); -if (x_814 == 0) -{ -return x_801; -} -else -{ -lean_object* x_815; lean_object* x_816; lean_object* x_817; -x_815 = lean_ctor_get(x_801, 0); -x_816 = lean_ctor_get(x_801, 1); -lean_inc(x_816); -lean_inc(x_815); -lean_dec(x_801); -x_817 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_817, 0, x_815); -lean_ctor_set(x_817, 1, x_816); -return x_817; -} -} -} -else -{ -lean_object* x_818; -lean_dec(x_21); -x_818 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_31); -if (lean_obj_tag(x_818) == 0) -{ -lean_object* x_819; -x_819 = lean_ctor_get(x_818, 0); -lean_inc(x_819); -if (lean_obj_tag(x_819) == 0) -{ -uint8_t x_820; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_820 = !lean_is_exclusive(x_818); -if (x_820 == 0) -{ -lean_object* x_821; lean_object* x_822; -x_821 = lean_ctor_get(x_818, 0); -lean_dec(x_821); -x_822 = lean_box(0); -lean_ctor_set(x_818, 0, x_822); -return x_818; -} -else -{ -lean_object* x_823; lean_object* x_824; lean_object* x_825; -x_823 = lean_ctor_get(x_818, 1); -lean_inc(x_823); -lean_dec(x_818); -x_824 = lean_box(0); -x_825 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_825, 0, x_824); -lean_ctor_set(x_825, 1, x_823); -return x_825; -} -} -else -{ -lean_object* x_826; lean_object* x_827; lean_object* x_828; lean_object* x_829; lean_object* x_830; lean_object* x_831; lean_object* x_832; lean_object* x_833; lean_object* x_834; -x_826 = lean_ctor_get(x_818, 1); -lean_inc(x_826); -lean_dec(x_818); -x_827 = lean_ctor_get(x_819, 0); -lean_inc(x_827); -x_828 = lean_ctor_get(x_819, 1); -lean_inc(x_828); -lean_dec(x_819); -x_829 = lean_nat_add(x_3, x_828); -lean_dec(x_828); -x_830 = lean_ctor_get(x_4, 1); -lean_inc(x_830); -x_831 = lean_ctor_get(x_4, 2); -lean_inc(x_831); -lean_dec(x_4); -x_832 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_832, 0, x_827); -lean_ctor_set(x_832, 1, x_830); -lean_ctor_set(x_832, 2, x_831); -x_833 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_833, 0, x_832); -lean_ctor_set(x_833, 1, x_5); -x_834 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_829, x_833, x_7, x_826); -lean_dec(x_7); -lean_dec(x_829); -return x_834; -} -} -else -{ -uint8_t x_835; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_835 = !lean_is_exclusive(x_818); -if (x_835 == 0) -{ -return x_818; -} -else -{ -lean_object* x_836; lean_object* x_837; lean_object* x_838; -x_836 = lean_ctor_get(x_818, 0); -x_837 = lean_ctor_get(x_818, 1); -lean_inc(x_837); -lean_inc(x_836); -lean_dec(x_818); -x_838 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_838, 0, x_836); -lean_ctor_set(x_838, 1, x_837); -return x_838; -} -} -} -} -} -} -} -} -else -{ -uint8_t x_839; -lean_dec(x_27); -lean_dec(x_23); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_839 = !lean_is_exclusive(x_29); -if (x_839 == 0) -{ -return x_29; -} -else -{ -lean_object* x_840; lean_object* x_841; lean_object* x_842; -x_840 = lean_ctor_get(x_29, 0); -x_841 = lean_ctor_get(x_29, 1); -lean_inc(x_841); -lean_inc(x_840); -lean_dec(x_29); -x_842 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_842, 0, x_840); -lean_ctor_set(x_842, 1, x_841); -return x_842; -} -} -} -else -{ -uint8_t x_843; -lean_dec(x_23); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_843 = !lean_is_exclusive(x_26); -if (x_843 == 0) -{ -return x_26; -} -else -{ -lean_object* x_844; lean_object* x_845; lean_object* x_846; -x_844 = lean_ctor_get(x_26, 0); -x_845 = lean_ctor_get(x_26, 1); -lean_inc(x_845); -lean_inc(x_844); -lean_dec(x_26); -x_846 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_846, 0, x_844); -lean_ctor_set(x_846, 1, x_845); -return x_846; -} -} -} -else -{ -lean_object* x_847; lean_object* x_848; -lean_dec(x_23); -lean_dec(x_21); -lean_dec(x_20); -x_847 = lean_ctor_get(x_22, 1); -lean_inc(x_847); +lean_object* x_813; uint8_t x_814; lean_object* x_815; lean_dec(x_22); -x_848 = l_Lean_Meta_clear(x_1, x_2, x_7, x_847); -if (lean_obj_tag(x_848) == 0) +x_813 = lean_ctor_get(x_4, 2); +lean_inc(x_813); +x_814 = 1; +x_815 = l_Lean_Meta_substCore(x_1, x_2, x_814, x_813, x_814, x_7, x_32); +if (lean_obj_tag(x_815) == 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; -x_849 = lean_ctor_get(x_848, 0); -lean_inc(x_849); -x_850 = lean_ctor_get(x_848, 1); -lean_inc(x_850); -lean_dec(x_848); -x_851 = lean_ctor_get(x_4, 1); -lean_inc(x_851); -x_852 = lean_ctor_get(x_4, 2); -lean_inc(x_852); +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; +x_816 = lean_ctor_get(x_815, 0); +lean_inc(x_816); +x_817 = lean_ctor_get(x_815, 1); +lean_inc(x_817); +lean_dec(x_815); +x_818 = lean_ctor_get(x_816, 0); +lean_inc(x_818); +x_819 = lean_ctor_get(x_816, 1); +lean_inc(x_819); +lean_dec(x_816); +x_820 = lean_ctor_get(x_4, 1); +lean_inc(x_820); lean_dec(x_4); -x_853 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_853, 0, x_849); -lean_ctor_set(x_853, 1, x_851); -lean_ctor_set(x_853, 2, x_852); -x_854 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_854, 0, x_853); -lean_ctor_set(x_854, 1, x_5); -x_855 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_854, x_7, x_850); +x_821 = x_820; +x_822 = lean_unsigned_to_nat(0u); +x_823 = l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__25(x_818, x_822, x_821); +x_824 = x_823; +x_825 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_825, 0, x_819); +lean_ctor_set(x_825, 1, x_824); +lean_ctor_set(x_825, 2, x_818); +x_826 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_826, 0, x_825); +lean_ctor_set(x_826, 1, x_5); +x_827 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_826, x_7, x_817); lean_dec(x_7); -return x_855; +return x_827; } else { -uint8_t x_856; +uint8_t x_828; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -x_856 = !lean_is_exclusive(x_848); -if (x_856 == 0) +x_828 = !lean_is_exclusive(x_815); +if (x_828 == 0) { +return x_815; +} +else +{ +lean_object* x_829; lean_object* x_830; lean_object* x_831; +x_829 = lean_ctor_get(x_815, 0); +x_830 = lean_ctor_get(x_815, 1); +lean_inc(x_830); +lean_inc(x_829); +lean_dec(x_815); +x_831 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_831, 0, x_829); +lean_ctor_set(x_831, 1, x_830); +return x_831; +} +} +} +else +{ +lean_object* x_832; +lean_dec(x_22); +x_832 = l_Lean_Meta_injectionCore(x_1, x_2, x_7, x_32); +if (lean_obj_tag(x_832) == 0) +{ +lean_object* x_833; +x_833 = lean_ctor_get(x_832, 0); +lean_inc(x_833); +if (lean_obj_tag(x_833) == 0) +{ +uint8_t x_834; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_834 = !lean_is_exclusive(x_832); +if (x_834 == 0) +{ +lean_object* x_835; lean_object* x_836; +x_835 = lean_ctor_get(x_832, 0); +lean_dec(x_835); +x_836 = lean_box(0); +lean_ctor_set(x_832, 0, x_836); +return x_832; +} +else +{ +lean_object* x_837; lean_object* x_838; lean_object* x_839; +x_837 = lean_ctor_get(x_832, 1); +lean_inc(x_837); +lean_dec(x_832); +x_838 = lean_box(0); +x_839 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_839, 0, x_838); +lean_ctor_set(x_839, 1, x_837); +return x_839; +} +} +else +{ +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; +x_840 = lean_ctor_get(x_832, 1); +lean_inc(x_840); +lean_dec(x_832); +x_841 = lean_ctor_get(x_833, 0); +lean_inc(x_841); +x_842 = lean_ctor_get(x_833, 1); +lean_inc(x_842); +lean_dec(x_833); +x_843 = lean_nat_add(x_3, x_842); +lean_dec(x_842); +x_844 = lean_ctor_get(x_4, 1); +lean_inc(x_844); +x_845 = lean_ctor_get(x_4, 2); +lean_inc(x_845); +lean_dec(x_4); +x_846 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_846, 0, x_841); +lean_ctor_set(x_846, 1, x_844); +lean_ctor_set(x_846, 2, x_845); +x_847 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_847, 0, x_846); +lean_ctor_set(x_847, 1, x_5); +x_848 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_843, x_847, x_7, x_840); +lean_dec(x_7); +lean_dec(x_843); return x_848; } -else -{ -lean_object* x_857; lean_object* x_858; lean_object* x_859; -x_857 = lean_ctor_get(x_848, 0); -x_858 = lean_ctor_get(x_848, 1); -lean_inc(x_858); -lean_inc(x_857); -lean_dec(x_848); -x_859 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_859, 0, x_857); -lean_ctor_set(x_859, 1, x_858); -return x_859; -} -} -} } else { -uint8_t x_860; -lean_dec(x_21); -lean_dec(x_20); +uint8_t x_849; lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_860 = !lean_is_exclusive(x_22); -if (x_860 == 0) +x_849 = !lean_is_exclusive(x_832); +if (x_849 == 0) { -return x_22; +return x_832; } else { -lean_object* x_861; lean_object* x_862; lean_object* x_863; -x_861 = lean_ctor_get(x_22, 0); -x_862 = lean_ctor_get(x_22, 1); -lean_inc(x_862); -lean_inc(x_861); +lean_object* x_850; lean_object* x_851; lean_object* x_852; +x_850 = lean_ctor_get(x_832, 0); +x_851 = lean_ctor_get(x_832, 1); +lean_inc(x_851); +lean_inc(x_850); +lean_dec(x_832); +x_852 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_852, 0, x_850); +lean_ctor_set(x_852, 1, x_851); +return x_852; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_853; +lean_dec(x_28); +lean_dec(x_24); lean_dec(x_22); -x_863 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_863, 0, x_861); -lean_ctor_set(x_863, 1, x_862); -return x_863; -} -} -} -} -else -{ -lean_object* x_864; lean_object* x_865; lean_object* x_866; lean_object* x_867; lean_object* x_868; lean_object* x_869; -x_864 = l_Lean_Expr_appFn_x21(x_9); -x_865 = l_Lean_Expr_appFn_x21(x_864); -lean_dec(x_864); -x_866 = l_Lean_Expr_appArg_x21(x_865); -lean_dec(x_865); -x_867 = l_Lean_Expr_appArg_x21(x_9); -lean_dec(x_9); -lean_inc(x_2); -x_868 = l_Lean_mkFVar(x_2); -lean_inc(x_7); -x_869 = l_Lean_Meta_mkEqOfHEq(x_868, x_7, x_8); -if (lean_obj_tag(x_869) == 0) -{ -lean_object* x_870; lean_object* x_871; lean_object* x_872; -x_870 = lean_ctor_get(x_869, 0); -lean_inc(x_870); -x_871 = lean_ctor_get(x_869, 1); -lean_inc(x_871); -lean_dec(x_869); -lean_inc(x_7); -x_872 = l_Lean_Meta_mkEq(x_866, x_867, x_7, x_871); -if (lean_obj_tag(x_872) == 0) -{ -lean_object* x_873; lean_object* x_874; lean_object* x_875; lean_object* x_876; -x_873 = lean_ctor_get(x_872, 0); -lean_inc(x_873); -x_874 = lean_ctor_get(x_872, 1); -lean_inc(x_874); -lean_dec(x_872); -x_875 = l_Lean_LocalDecl_userName(x_6); -x_876 = l_Lean_Meta_assert(x_1, x_875, x_873, x_870, x_7, x_874); -if (lean_obj_tag(x_876) == 0) -{ -lean_object* x_877; lean_object* x_878; lean_object* x_879; -x_877 = lean_ctor_get(x_876, 0); -lean_inc(x_877); -x_878 = lean_ctor_get(x_876, 1); -lean_inc(x_878); -lean_dec(x_876); -x_879 = l_Lean_Meta_clear(x_877, x_2, x_7, x_878); -if (lean_obj_tag(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; -x_880 = lean_ctor_get(x_879, 0); -lean_inc(x_880); -x_881 = lean_ctor_get(x_879, 1); -lean_inc(x_881); -lean_dec(x_879); -x_882 = lean_unsigned_to_nat(1u); -x_883 = lean_nat_add(x_3, x_882); -x_884 = lean_ctor_get(x_4, 1); -lean_inc(x_884); -x_885 = lean_ctor_get(x_4, 2); -lean_inc(x_885); -lean_dec(x_4); -x_886 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_886, 0, x_880); -lean_ctor_set(x_886, 1, x_884); -lean_ctor_set(x_886, 2, x_885); -x_887 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_887, 0, x_886); -lean_ctor_set(x_887, 1, x_5); -x_888 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_883, x_887, x_7, x_881); -lean_dec(x_7); -lean_dec(x_883); -return x_888; -} -else -{ -uint8_t x_889; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -x_889 = !lean_is_exclusive(x_879); -if (x_889 == 0) -{ -return x_879; -} -else -{ -lean_object* x_890; lean_object* x_891; lean_object* x_892; -x_890 = lean_ctor_get(x_879, 0); -x_891 = lean_ctor_get(x_879, 1); -lean_inc(x_891); -lean_inc(x_890); -lean_dec(x_879); -x_892 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_892, 0, x_890); -lean_ctor_set(x_892, 1, x_891); -return x_892; -} -} -} -else -{ -uint8_t x_893; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -x_893 = !lean_is_exclusive(x_876); -if (x_893 == 0) -{ -return x_876; -} -else -{ -lean_object* x_894; lean_object* x_895; lean_object* x_896; -x_894 = lean_ctor_get(x_876, 0); -x_895 = lean_ctor_get(x_876, 1); -lean_inc(x_895); -lean_inc(x_894); -lean_dec(x_876); -x_896 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_896, 0, x_894); -lean_ctor_set(x_896, 1, x_895); -return x_896; -} -} -} -else -{ -uint8_t x_897; -lean_dec(x_870); +lean_dec(x_21); lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_897 = !lean_is_exclusive(x_872); -if (x_897 == 0) +x_853 = !lean_is_exclusive(x_30); +if (x_853 == 0) { -return x_872; +return x_30; } else { -lean_object* x_898; lean_object* x_899; lean_object* x_900; -x_898 = lean_ctor_get(x_872, 0); -x_899 = lean_ctor_get(x_872, 1); -lean_inc(x_899); -lean_inc(x_898); -lean_dec(x_872); -x_900 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_900, 0, x_898); -lean_ctor_set(x_900, 1, x_899); -return x_900; +lean_object* x_854; lean_object* x_855; lean_object* x_856; +x_854 = lean_ctor_get(x_30, 0); +x_855 = lean_ctor_get(x_30, 1); +lean_inc(x_855); +lean_inc(x_854); +lean_dec(x_30); +x_856 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_856, 0, x_854); +lean_ctor_set(x_856, 1, x_855); +return x_856; } } } else { -uint8_t x_901; -lean_dec(x_867); -lean_dec(x_866); +uint8_t x_857; +lean_dec(x_24); +lean_dec(x_22); +lean_dec(x_21); lean_dec(x_7); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_901 = !lean_is_exclusive(x_869); -if (x_901 == 0) +x_857 = !lean_is_exclusive(x_27); +if (x_857 == 0) { +return x_27; +} +else +{ +lean_object* x_858; lean_object* x_859; lean_object* x_860; +x_858 = lean_ctor_get(x_27, 0); +x_859 = lean_ctor_get(x_27, 1); +lean_inc(x_859); +lean_inc(x_858); +lean_dec(x_27); +x_860 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_860, 0, x_858); +lean_ctor_set(x_860, 1, x_859); +return x_860; +} +} +} +else +{ +lean_object* x_861; lean_object* x_862; +lean_dec(x_24); +lean_dec(x_22); +lean_dec(x_21); +x_861 = lean_ctor_get(x_23, 1); +lean_inc(x_861); +lean_dec(x_23); +x_862 = l_Lean_Meta_clear(x_1, x_2, x_7, x_861); +if (lean_obj_tag(x_862) == 0) +{ +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; +x_863 = lean_ctor_get(x_862, 0); +lean_inc(x_863); +x_864 = lean_ctor_get(x_862, 1); +lean_inc(x_864); +lean_dec(x_862); +x_865 = lean_ctor_get(x_4, 1); +lean_inc(x_865); +x_866 = lean_ctor_get(x_4, 2); +lean_inc(x_866); +lean_dec(x_4); +x_867 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_867, 0, x_863); +lean_ctor_set(x_867, 1, x_865); +lean_ctor_set(x_867, 2, x_866); +x_868 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_868, 0, x_867); +lean_ctor_set(x_868, 1, x_5); +x_869 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_3, x_868, x_7, x_864); +lean_dec(x_7); return x_869; } else { -lean_object* x_902; lean_object* x_903; lean_object* x_904; -x_902 = lean_ctor_get(x_869, 0); -x_903 = lean_ctor_get(x_869, 1); -lean_inc(x_903); -lean_inc(x_902); -lean_dec(x_869); -x_904 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_904, 0, x_902); -lean_ctor_set(x_904, 1, x_903); -return x_904; +uint8_t x_870; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_870 = !lean_is_exclusive(x_862); +if (x_870 == 0) +{ +return x_862; +} +else +{ +lean_object* x_871; lean_object* x_872; lean_object* x_873; +x_871 = lean_ctor_get(x_862, 0); +x_872 = lean_ctor_get(x_862, 1); +lean_inc(x_872); +lean_inc(x_871); +lean_dec(x_862); +x_873 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_873, 0, x_871); +lean_ctor_set(x_873, 1, x_872); +return x_873; +} +} +} +} +else +{ +uint8_t x_874; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_874 = !lean_is_exclusive(x_23); +if (x_874 == 0) +{ +return x_23; +} +else +{ +lean_object* x_875; lean_object* x_876; lean_object* x_877; +x_875 = lean_ctor_get(x_23, 0); +x_876 = lean_ctor_get(x_23, 1); +lean_inc(x_876); +lean_inc(x_875); +lean_dec(x_23); +x_877 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_877, 0, x_875); +lean_ctor_set(x_877, 1, x_876); +return x_877; +} +} +} +} +else +{ +lean_object* x_878; lean_object* x_879; lean_object* x_880; lean_object* x_881; lean_object* x_882; lean_object* x_883; +x_878 = l_Lean_Expr_appFn_x21(x_9); +x_879 = l_Lean_Expr_appFn_x21(x_878); +lean_dec(x_878); +x_880 = l_Lean_Expr_appArg_x21(x_879); +lean_dec(x_879); +x_881 = l_Lean_Expr_appArg_x21(x_9); +lean_dec(x_9); +lean_inc(x_2); +x_882 = l_Lean_mkFVar(x_2); +lean_inc(x_7); +x_883 = l_Lean_Meta_mkEqOfHEq(x_882, x_7, x_8); +if (lean_obj_tag(x_883) == 0) +{ +lean_object* x_884; lean_object* x_885; lean_object* x_886; +x_884 = lean_ctor_get(x_883, 0); +lean_inc(x_884); +x_885 = lean_ctor_get(x_883, 1); +lean_inc(x_885); +lean_dec(x_883); +lean_inc(x_7); +x_886 = l_Lean_Meta_mkEq(x_880, x_881, x_7, x_885); +if (lean_obj_tag(x_886) == 0) +{ +lean_object* x_887; lean_object* x_888; lean_object* x_889; lean_object* x_890; +x_887 = lean_ctor_get(x_886, 0); +lean_inc(x_887); +x_888 = lean_ctor_get(x_886, 1); +lean_inc(x_888); +lean_dec(x_886); +x_889 = l_Lean_LocalDecl_userName(x_6); +x_890 = l_Lean_Meta_assert(x_1, x_889, x_887, x_884, x_7, x_888); +if (lean_obj_tag(x_890) == 0) +{ +lean_object* x_891; lean_object* x_892; lean_object* x_893; +x_891 = lean_ctor_get(x_890, 0); +lean_inc(x_891); +x_892 = lean_ctor_get(x_890, 1); +lean_inc(x_892); +lean_dec(x_890); +x_893 = l_Lean_Meta_clear(x_891, x_2, x_7, x_892); +if (lean_obj_tag(x_893) == 0) +{ +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; +x_894 = lean_ctor_get(x_893, 0); +lean_inc(x_894); +x_895 = lean_ctor_get(x_893, 1); +lean_inc(x_895); +lean_dec(x_893); +x_896 = lean_unsigned_to_nat(1u); +x_897 = lean_nat_add(x_3, x_896); +x_898 = lean_ctor_get(x_4, 1); +lean_inc(x_898); +x_899 = lean_ctor_get(x_4, 2); +lean_inc(x_899); +lean_dec(x_4); +x_900 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_900, 0, x_894); +lean_ctor_set(x_900, 1, x_898); +lean_ctor_set(x_900, 2, x_899); +x_901 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_901, 0, x_900); +lean_ctor_set(x_901, 1, x_5); +x_902 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_897, x_901, x_7, x_895); +lean_dec(x_7); +lean_dec(x_897); +return x_902; +} +else +{ +uint8_t x_903; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +x_903 = !lean_is_exclusive(x_893); +if (x_903 == 0) +{ +return x_893; +} +else +{ +lean_object* x_904; lean_object* x_905; lean_object* x_906; +x_904 = lean_ctor_get(x_893, 0); +x_905 = lean_ctor_get(x_893, 1); +lean_inc(x_905); +lean_inc(x_904); +lean_dec(x_893); +x_906 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_906, 0, x_904); +lean_ctor_set(x_906, 1, x_905); +return x_906; +} +} +} +else +{ +uint8_t x_907; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_907 = !lean_is_exclusive(x_890); +if (x_907 == 0) +{ +return x_890; +} +else +{ +lean_object* x_908; lean_object* x_909; lean_object* x_910; +x_908 = lean_ctor_get(x_890, 0); +x_909 = lean_ctor_get(x_890, 1); +lean_inc(x_909); +lean_inc(x_908); +lean_dec(x_890); +x_910 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_910, 0, x_908); +lean_ctor_set(x_910, 1, x_909); +return x_910; +} +} +} +else +{ +uint8_t x_911; +lean_dec(x_884); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_911 = !lean_is_exclusive(x_886); +if (x_911 == 0) +{ +return x_886; +} +else +{ +lean_object* x_912; lean_object* x_913; lean_object* x_914; +x_912 = lean_ctor_get(x_886, 0); +x_913 = lean_ctor_get(x_886, 1); +lean_inc(x_913); +lean_inc(x_912); +lean_dec(x_886); +x_914 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_914, 0, x_912); +lean_ctor_set(x_914, 1, x_913); +return x_914; +} +} +} +else +{ +uint8_t x_915; +lean_dec(x_881); +lean_dec(x_880); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_915 = !lean_is_exclusive(x_883); +if (x_915 == 0) +{ +return x_883; +} +else +{ +lean_object* x_916; lean_object* x_917; lean_object* x_918; +x_916 = lean_ctor_get(x_883, 0); +x_917 = lean_ctor_get(x_883, 1); +lean_inc(x_917); +lean_inc(x_916); +lean_dec(x_883); +x_918 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_918, 0, x_916); +lean_ctor_set(x_918, 1, x_917); +return x_918; } } } @@ -16012,279 +16031,280 @@ x_11 = lean_ctor_get(x_10, 0); lean_inc(x_11); if (lean_obj_tag(x_11) == 0) { -lean_object* x_12; lean_object* x_13; lean_object* x_14; +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_dec(x_4); lean_dec(x_3); x_12 = lean_ctor_get(x_10, 1); lean_inc(x_12); lean_dec(x_10); x_13 = l_Lean_Meta_Cases_cases___lambda__1___closed__3; -x_14 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_13, x_6, x_12); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_13, x_14, x_6, x_12); lean_dec(x_6); -return x_14; +return x_15; } 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_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; +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; uint8_t x_29; lean_dec(x_2); -x_15 = lean_ctor_get(x_10, 1); -lean_inc(x_15); -lean_dec(x_10); -x_16 = lean_ctor_get(x_11, 0); +x_16 = lean_ctor_get(x_10, 1); lean_inc(x_16); -lean_dec(x_11); -x_17 = lean_ctor_get(x_16, 0); +lean_dec(x_10); +x_17 = lean_ctor_get(x_11, 0); lean_inc(x_17); -x_18 = lean_ctor_get(x_17, 4); +lean_dec(x_11); +x_18 = lean_ctor_get(x_17, 0); lean_inc(x_18); -x_19 = l_List_redLength___main___rarg(x_18); -x_20 = lean_mk_empty_array_with_capacity(x_19); -lean_dec(x_19); -x_21 = l_List_toArrayAux___main___rarg(x_18, x_20); -x_22 = lean_ctor_get(x_17, 0); -lean_inc(x_22); -lean_dec(x_17); -x_23 = lean_ctor_get(x_22, 0); +x_19 = lean_ctor_get(x_18, 4); +lean_inc(x_19); +x_20 = l_List_redLength___main___rarg(x_19); +x_21 = lean_mk_empty_array_with_capacity(x_20); +lean_dec(x_20); +x_22 = l_List_toArrayAux___main___rarg(x_19, x_21); +x_23 = lean_ctor_get(x_18, 0); lean_inc(x_23); -lean_dec(x_22); -x_24 = l_Lean_Meta_casesOnSuffix; -x_25 = lean_name_mk_string(x_23, x_24); -x_26 = l___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices(x_16, x_6, x_15); -lean_dec(x_16); -x_27 = lean_ctor_get(x_26, 0); -lean_inc(x_27); -x_28 = lean_unbox(x_27); +lean_dec(x_18); +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +lean_dec(x_23); +x_25 = l_Lean_Meta_casesOnSuffix; +x_26 = lean_name_mk_string(x_24, x_25); +x_27 = l___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices(x_17, x_6, x_16); +lean_dec(x_17); +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_unbox(x_28); +lean_dec(x_28); +if (x_29 == 0) +{ +lean_object* x_30; lean_object* x_31; +x_30 = lean_ctor_get(x_27, 1); +lean_inc(x_30); lean_dec(x_27); -if (x_28 == 0) +x_31 = l_Lean_Meta_generalizeIndices(x_1, x_3, x_6, x_30); +if (lean_obj_tag(x_31) == 0) { -lean_object* x_29; lean_object* x_30; -x_29 = lean_ctor_get(x_26, 1); -lean_inc(x_29); -lean_dec(x_26); -x_30 = l_Lean_Meta_generalizeIndices(x_1, x_3, x_6, x_29); -if (lean_obj_tag(x_30) == 0) -{ -lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; lean_object* x_36; lean_object* x_78; uint8_t x_79; -x_31 = lean_ctor_get(x_30, 0); -lean_inc(x_31); -x_32 = lean_ctor_get(x_30, 1); +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37; lean_object* x_79; uint8_t x_80; +x_32 = lean_ctor_get(x_31, 0); lean_inc(x_32); -lean_dec(x_30); -x_33 = lean_ctor_get(x_31, 0); +x_33 = lean_ctor_get(x_31, 1); lean_inc(x_33); -x_34 = lean_ctor_get(x_31, 2); +lean_dec(x_31); +x_34 = lean_ctor_get(x_32, 0); lean_inc(x_34); -x_78 = lean_ctor_get(x_32, 4); -lean_inc(x_78); -x_79 = lean_ctor_get_uint8(x_78, sizeof(void*)*1); -lean_dec(x_78); -if (x_79 == 0) +x_35 = lean_ctor_get(x_32, 2); +lean_inc(x_35); +x_79 = lean_ctor_get(x_33, 4); +lean_inc(x_79); +x_80 = lean_ctor_get_uint8(x_79, sizeof(void*)*1); +lean_dec(x_79); +if (x_80 == 0) { -uint8_t x_80; -x_80 = 0; -x_35 = x_80; -x_36 = x_32; -goto block_77; +uint8_t x_81; +x_81 = 0; +x_36 = x_81; +x_37 = x_33; +goto block_78; } else { -lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; uint8_t x_85; -x_81 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; -x_82 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_81, x_6, x_32); -x_83 = lean_ctor_get(x_82, 0); -lean_inc(x_83); -x_84 = lean_ctor_get(x_82, 1); +lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; uint8_t x_86; +x_82 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; +x_83 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_82, x_6, x_33); +x_84 = lean_ctor_get(x_83, 0); lean_inc(x_84); -lean_dec(x_82); -x_85 = lean_unbox(x_83); +x_85 = lean_ctor_get(x_83, 1); +lean_inc(x_85); lean_dec(x_83); -x_35 = x_85; -x_36 = x_84; -goto block_77; +x_86 = lean_unbox(x_84); +lean_dec(x_84); +x_36 = x_86; +x_37 = x_85; +goto block_78; } -block_77: +block_78: { -if (x_35 == 0) +if (x_36 == 0) { -lean_object* x_37; -x_37 = l_Lean_Meta_induction(x_33, x_34, x_25, x_4, x_5, x_6, x_36); -if (lean_obj_tag(x_37) == 0) +lean_object* x_38; +x_38 = l_Lean_Meta_induction(x_34, x_35, x_26, x_4, x_5, x_6, x_37); +if (lean_obj_tag(x_38) == 0) { -lean_object* x_38; lean_object* x_39; lean_object* x_40; -x_38 = lean_ctor_get(x_37, 0); -lean_inc(x_38); -x_39 = lean_ctor_get(x_37, 1); +lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_39 = lean_ctor_get(x_38, 0); lean_inc(x_39); -lean_dec(x_37); +x_40 = lean_ctor_get(x_38, 1); +lean_inc(x_40); +lean_dec(x_38); lean_inc(x_6); -lean_inc(x_31); -x_40 = l___private_Lean_Meta_Tactic_Cases_6__elimAuxIndices(x_31, x_38, x_6, x_39); -if (lean_obj_tag(x_40) == 0) +lean_inc(x_32); +x_41 = l___private_Lean_Meta_Tactic_Cases_6__elimAuxIndices(x_32, x_39, x_6, x_40); +if (lean_obj_tag(x_41) == 0) { -lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_41 = lean_ctor_get(x_40, 0); -lean_inc(x_41); -x_42 = lean_ctor_get(x_40, 1); +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_42 = lean_ctor_get(x_41, 0); lean_inc(x_42); -lean_dec(x_40); -x_43 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_41, x_21); -lean_dec(x_21); -x_44 = lean_ctor_get(x_31, 3); -lean_inc(x_44); -lean_dec(x_31); -x_45 = l___private_Lean_Meta_Tactic_Cases_9__unifyEqs(x_44, x_43, x_6, x_42); +x_43 = lean_ctor_get(x_41, 1); +lean_inc(x_43); +lean_dec(x_41); +x_44 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_42, x_22); +lean_dec(x_22); +x_45 = lean_ctor_get(x_32, 3); +lean_inc(x_45); +lean_dec(x_32); +x_46 = l___private_Lean_Meta_Tactic_Cases_9__unifyEqs(x_45, x_44, x_6, x_43); lean_dec(x_6); -lean_dec(x_43); lean_dec(x_44); -return x_45; +lean_dec(x_45); +return x_46; } else { -uint8_t x_46; -lean_dec(x_31); -lean_dec(x_21); +uint8_t x_47; +lean_dec(x_32); +lean_dec(x_22); lean_dec(x_6); -x_46 = !lean_is_exclusive(x_40); -if (x_46 == 0) +x_47 = !lean_is_exclusive(x_41); +if (x_47 == 0) { -return x_40; +return x_41; } else { -lean_object* x_47; lean_object* x_48; lean_object* x_49; -x_47 = lean_ctor_get(x_40, 0); -x_48 = lean_ctor_get(x_40, 1); +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_41, 0); +x_49 = lean_ctor_get(x_41, 1); +lean_inc(x_49); lean_inc(x_48); -lean_inc(x_47); -lean_dec(x_40); -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; +lean_dec(x_41); +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 { -uint8_t x_50; -lean_dec(x_31); -lean_dec(x_21); +uint8_t x_51; +lean_dec(x_32); +lean_dec(x_22); lean_dec(x_6); -x_50 = !lean_is_exclusive(x_37); -if (x_50 == 0) +x_51 = !lean_is_exclusive(x_38); +if (x_51 == 0) { -return x_37; +return x_38; } else { -lean_object* x_51; lean_object* x_52; lean_object* x_53; -x_51 = lean_ctor_get(x_37, 0); -x_52 = lean_ctor_get(x_37, 1); +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_38, 0); +x_53 = lean_ctor_get(x_38, 1); +lean_inc(x_53); lean_inc(x_52); -lean_inc(x_51); -lean_dec(x_37); -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; +lean_dec(x_38); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; } } } else { -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_inc(x_33); -x_54 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_54, 0, x_33); -x_55 = l_Lean_Meta_Cases_cases___lambda__1___closed__7; -x_56 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; -x_58 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_57, x_56, x_6, x_36); -x_59 = lean_ctor_get(x_58, 1); -lean_inc(x_59); -lean_dec(x_58); -x_60 = l_Lean_Meta_induction(x_33, x_34, x_25, x_4, x_5, x_6, x_59); -if (lean_obj_tag(x_60) == 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; +lean_inc(x_34); +x_55 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_55, 0, x_34); +x_56 = l_Lean_Meta_Cases_cases___lambda__1___closed__7; +x_57 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_55); +x_58 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; +x_59 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_58, x_57, x_6, x_37); +x_60 = lean_ctor_get(x_59, 1); +lean_inc(x_60); +lean_dec(x_59); +x_61 = l_Lean_Meta_induction(x_34, x_35, x_26, x_4, x_5, x_6, x_60); +if (lean_obj_tag(x_61) == 0) { -lean_object* x_61; lean_object* x_62; lean_object* x_63; -x_61 = lean_ctor_get(x_60, 0); -lean_inc(x_61); -x_62 = lean_ctor_get(x_60, 1); +lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_62 = lean_ctor_get(x_61, 0); lean_inc(x_62); -lean_dec(x_60); +x_63 = lean_ctor_get(x_61, 1); +lean_inc(x_63); +lean_dec(x_61); lean_inc(x_6); -lean_inc(x_31); -x_63 = l___private_Lean_Meta_Tactic_Cases_6__elimAuxIndices(x_31, x_61, x_6, x_62); -if (lean_obj_tag(x_63) == 0) +lean_inc(x_32); +x_64 = l___private_Lean_Meta_Tactic_Cases_6__elimAuxIndices(x_32, x_62, x_6, x_63); +if (lean_obj_tag(x_64) == 0) { -lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; -x_64 = lean_ctor_get(x_63, 0); -lean_inc(x_64); -x_65 = lean_ctor_get(x_63, 1); +lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; +x_65 = lean_ctor_get(x_64, 0); lean_inc(x_65); -lean_dec(x_63); -x_66 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_64, x_21); -lean_dec(x_21); -x_67 = lean_ctor_get(x_31, 3); -lean_inc(x_67); -lean_dec(x_31); -x_68 = l___private_Lean_Meta_Tactic_Cases_9__unifyEqs(x_67, x_66, x_6, x_65); +x_66 = lean_ctor_get(x_64, 1); +lean_inc(x_66); +lean_dec(x_64); +x_67 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_65, x_22); +lean_dec(x_22); +x_68 = lean_ctor_get(x_32, 3); +lean_inc(x_68); +lean_dec(x_32); +x_69 = l___private_Lean_Meta_Tactic_Cases_9__unifyEqs(x_68, x_67, x_6, x_66); lean_dec(x_6); -lean_dec(x_66); lean_dec(x_67); -return x_68; +lean_dec(x_68); +return x_69; } else { -uint8_t x_69; -lean_dec(x_31); -lean_dec(x_21); +uint8_t x_70; +lean_dec(x_32); +lean_dec(x_22); lean_dec(x_6); -x_69 = !lean_is_exclusive(x_63); -if (x_69 == 0) +x_70 = !lean_is_exclusive(x_64); +if (x_70 == 0) { -return x_63; +return x_64; } else { -lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_70 = lean_ctor_get(x_63, 0); -x_71 = lean_ctor_get(x_63, 1); +lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_71 = lean_ctor_get(x_64, 0); +x_72 = lean_ctor_get(x_64, 1); +lean_inc(x_72); lean_inc(x_71); -lean_inc(x_70); -lean_dec(x_63); -x_72 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_72, 0, x_70); -lean_ctor_set(x_72, 1, x_71); -return x_72; +lean_dec(x_64); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_71); +lean_ctor_set(x_73, 1, x_72); +return x_73; } } } else { -uint8_t x_73; -lean_dec(x_31); -lean_dec(x_21); +uint8_t x_74; +lean_dec(x_32); +lean_dec(x_22); lean_dec(x_6); -x_73 = !lean_is_exclusive(x_60); -if (x_73 == 0) +x_74 = !lean_is_exclusive(x_61); +if (x_74 == 0) { -return x_60; +return x_61; } else { -lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_74 = lean_ctor_get(x_60, 0); -x_75 = lean_ctor_get(x_60, 1); +lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_75 = lean_ctor_get(x_61, 0); +x_76 = lean_ctor_get(x_61, 1); +lean_inc(x_76); lean_inc(x_75); -lean_inc(x_74); -lean_dec(x_60); -x_76 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_76, 0, x_74); -lean_ctor_set(x_76, 1, x_75); -return x_76; +lean_dec(x_61); +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_75); +lean_ctor_set(x_77, 1, x_76); +return x_77; } } } @@ -16292,89 +16312,89 @@ return x_76; } else { -uint8_t x_86; -lean_dec(x_25); -lean_dec(x_21); +uint8_t x_87; +lean_dec(x_26); +lean_dec(x_22); lean_dec(x_6); lean_dec(x_4); -x_86 = !lean_is_exclusive(x_30); -if (x_86 == 0) +x_87 = !lean_is_exclusive(x_31); +if (x_87 == 0) { -return x_30; +return x_31; } else { -lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_30, 0); -x_88 = lean_ctor_get(x_30, 1); +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_31, 0); +x_89 = lean_ctor_get(x_31, 1); +lean_inc(x_89); lean_inc(x_88); -lean_inc(x_87); -lean_dec(x_30); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_87); -lean_ctor_set(x_89, 1, x_88); -return x_89; +lean_dec(x_31); +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; } } } else { -lean_object* x_90; lean_object* x_91; -x_90 = lean_ctor_get(x_26, 1); -lean_inc(x_90); -lean_dec(x_26); -x_91 = l_Lean_Meta_induction(x_1, x_3, x_25, x_4, x_5, x_6, x_90); +lean_object* x_91; lean_object* x_92; +x_91 = lean_ctor_get(x_27, 1); +lean_inc(x_91); +lean_dec(x_27); +x_92 = l_Lean_Meta_induction(x_1, x_3, x_26, x_4, x_5, x_6, x_91); lean_dec(x_6); -if (lean_obj_tag(x_91) == 0) +if (lean_obj_tag(x_92) == 0) { -uint8_t x_92; -x_92 = !lean_is_exclusive(x_91); -if (x_92 == 0) +uint8_t x_93; +x_93 = !lean_is_exclusive(x_92); +if (x_93 == 0) { -lean_object* x_93; lean_object* x_94; -x_93 = lean_ctor_get(x_91, 0); -x_94 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_93, x_21); -lean_dec(x_21); -lean_ctor_set(x_91, 0, x_94); -return x_91; +lean_object* x_94; lean_object* x_95; +x_94 = lean_ctor_get(x_92, 0); +x_95 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_94, x_22); +lean_dec(x_22); +lean_ctor_set(x_92, 0, x_95); +return x_92; } else { -lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; -x_95 = lean_ctor_get(x_91, 0); -x_96 = lean_ctor_get(x_91, 1); +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; +x_96 = lean_ctor_get(x_92, 0); +x_97 = lean_ctor_get(x_92, 1); +lean_inc(x_97); lean_inc(x_96); -lean_inc(x_95); -lean_dec(x_91); -x_97 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_95, x_21); -lean_dec(x_21); -x_98 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_98, 0, x_97); -lean_ctor_set(x_98, 1, x_96); -return x_98; +lean_dec(x_92); +x_98 = l___private_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_96, x_22); +lean_dec(x_22); +x_99 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_99, 0, x_98); +lean_ctor_set(x_99, 1, x_97); +return x_99; } } else { -uint8_t x_99; -lean_dec(x_21); -x_99 = !lean_is_exclusive(x_91); -if (x_99 == 0) +uint8_t x_100; +lean_dec(x_22); +x_100 = !lean_is_exclusive(x_92); +if (x_100 == 0) { -return x_91; +return x_92; } else { -lean_object* x_100; lean_object* x_101; lean_object* x_102; -x_100 = lean_ctor_get(x_91, 0); -x_101 = lean_ctor_get(x_91, 1); +lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_101 = lean_ctor_get(x_92, 0); +x_102 = lean_ctor_get(x_92, 1); +lean_inc(x_102); lean_inc(x_101); -lean_inc(x_100); -lean_dec(x_91); -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_100); -lean_ctor_set(x_102, 1, x_101); -return x_102; +lean_dec(x_92); +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; } } } @@ -16382,57 +16402,57 @@ return x_102; } else { -uint8_t x_103; +uint8_t x_104; lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_103 = !lean_is_exclusive(x_10); -if (x_103 == 0) +x_104 = !lean_is_exclusive(x_10); +if (x_104 == 0) { return x_10; } else { -lean_object* x_104; lean_object* x_105; lean_object* x_106; -x_104 = lean_ctor_get(x_10, 0); -x_105 = lean_ctor_get(x_10, 1); +lean_object* x_105; lean_object* x_106; lean_object* x_107; +x_105 = lean_ctor_get(x_10, 0); +x_106 = lean_ctor_get(x_10, 1); +lean_inc(x_106); lean_inc(x_105); -lean_inc(x_104); lean_dec(x_10); -x_106 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_106, 0, x_104); -lean_ctor_set(x_106, 1, x_105); -return x_106; +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_105); +lean_ctor_set(x_107, 1, x_106); +return x_107; } } } else { -uint8_t x_107; +uint8_t x_108; lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_107 = !lean_is_exclusive(x_8); -if (x_107 == 0) +x_108 = !lean_is_exclusive(x_8); +if (x_108 == 0) { return x_8; } else { -lean_object* x_108; lean_object* x_109; lean_object* x_110; -x_108 = lean_ctor_get(x_8, 0); -x_109 = lean_ctor_get(x_8, 1); +lean_object* x_109; lean_object* x_110; lean_object* x_111; +x_109 = lean_ctor_get(x_8, 0); +x_110 = lean_ctor_get(x_8, 1); +lean_inc(x_110); lean_inc(x_109); -lean_inc(x_108); lean_dec(x_8); -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_108); -lean_ctor_set(x_110, 1, x_109); -return x_110; +x_111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_111, 0, x_109); +lean_ctor_set(x_111, 1, x_110); +return x_111; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Clear.c b/stage0/stdlib/Lean/Meta/Tactic/Clear.c index db1c8a2646..518a6d0558 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Clear.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Clear.c @@ -52,7 +52,7 @@ lean_object* l_Std_PersistentArray_forMAux___main___at_Lean_Meta_clear___spec__3 lean_object* l_Array_forMAux___main___at_Lean_Meta_clear___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVarAt(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_exprDependsOn(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at_Lean_Meta_clear___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); @@ -281,7 +281,7 @@ goto _start; } 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; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +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; uint8_t x_36; lean_dec(x_15); lean_dec(x_4); x_23 = l_Lean_LocalDecl_toExpr(x_17); @@ -306,24 +306,25 @@ x_32 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; x_33 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_33, 0, x_31); lean_ctor_set(x_33, 1, x_32); -x_34 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_1, x_33, x_7, x_8); -x_35 = !lean_is_exclusive(x_34); -if (x_35 == 0) +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_1, x_33, x_34, x_7, x_8); +x_36 = !lean_is_exclusive(x_35); +if (x_36 == 0) { -return x_34; +return x_35; } else { -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_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_ctor_get(x_35, 1); +lean_inc(x_38); lean_inc(x_37); -lean_inc(x_36); -lean_dec(x_34); -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_36); -lean_ctor_set(x_38, 1, x_37); -return x_38; +lean_dec(x_35); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; } } } @@ -416,7 +417,7 @@ goto _start; } 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; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +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; uint8_t x_36; lean_dec(x_15); lean_dec(x_4); x_23 = l_Lean_LocalDecl_toExpr(x_17); @@ -441,24 +442,25 @@ x_32 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; x_33 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_33, 0, x_31); lean_ctor_set(x_33, 1, x_32); -x_34 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_1, x_33, x_7, x_8); -x_35 = !lean_is_exclusive(x_34); -if (x_35 == 0) +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_1, x_33, x_34, x_7, x_8); +x_36 = !lean_is_exclusive(x_35); +if (x_36 == 0) { -return x_34; +return x_35; } else { -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_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_ctor_get(x_35, 1); +lean_inc(x_38); lean_inc(x_37); -lean_inc(x_36); -lean_dec(x_34); -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_36); -lean_ctor_set(x_38, 1, x_37); -return x_38; +lean_dec(x_35); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; } } } @@ -649,46 +651,47 @@ lean_inc(x_8); x_9 = l_Lean_LocalContext_contains(x_8, x_3); if (x_9 == 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; uint8_t x_90; +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; uint8_t x_92; lean_dec(x_8); -x_83 = l_Lean_mkFVar(x_3); -x_84 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_84, 0, x_83); -x_85 = l_Lean_Meta_clear___lambda__1___closed__6; -x_86 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_86, 0, x_85); -lean_ctor_set(x_86, 1, x_84); -x_87 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_88 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_88, 0, x_86); -lean_ctor_set(x_88, 1, x_87); -x_89 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_88, x_4, x_7); +x_84 = l_Lean_mkFVar(x_3); +x_85 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_85, 0, x_84); +x_86 = l_Lean_Meta_clear___lambda__1___closed__6; +x_87 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_87, 0, x_86); +lean_ctor_set(x_87, 1, x_85); +x_88 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; +x_89 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_89, 0, x_87); +lean_ctor_set(x_89, 1, x_88); +x_90 = lean_box(0); +x_91 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_89, x_90, x_4, x_7); lean_dec(x_4); -x_90 = !lean_is_exclusive(x_89); -if (x_90 == 0) +x_92 = !lean_is_exclusive(x_91); +if (x_92 == 0) { -return x_89; +return x_91; } else { -lean_object* x_91; lean_object* x_92; lean_object* x_93; -x_91 = lean_ctor_get(x_89, 0); -x_92 = lean_ctor_get(x_89, 1); -lean_inc(x_92); -lean_inc(x_91); -lean_dec(x_89); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_91); -lean_ctor_set(x_93, 1, x_92); -return x_93; +lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_93 = lean_ctor_get(x_91, 0); +x_94 = lean_ctor_get(x_91, 1); +lean_inc(x_94); +lean_inc(x_93); +lean_dec(x_91); +x_95 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_95, 0, x_93); +lean_ctor_set(x_95, 1, x_94); +return x_95; } } else { x_10 = x_7; -goto block_82; +goto block_83; } -block_82: +block_83: { lean_object* x_11; lean_inc(x_1); @@ -741,7 +744,7 @@ goto block_58; } else { -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; uint8_t x_66; +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; uint8_t x_67; lean_dec(x_23); lean_dec(x_20); lean_dec(x_12); @@ -756,25 +759,26 @@ x_63 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; x_64 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_64, 0, x_62); lean_ctor_set(x_64, 1, x_63); -x_65 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_64, x_4, x_19); +x_65 = lean_box(0); +x_66 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_64, x_65, x_4, x_19); lean_dec(x_4); -x_66 = !lean_is_exclusive(x_65); -if (x_66 == 0) +x_67 = !lean_is_exclusive(x_66); +if (x_67 == 0) { -return x_65; +return x_66; } else { -lean_object* x_67; lean_object* x_68; lean_object* x_69; -x_67 = lean_ctor_get(x_65, 0); -x_68 = lean_ctor_get(x_65, 1); +lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_68 = lean_ctor_get(x_66, 0); +x_69 = lean_ctor_get(x_66, 1); +lean_inc(x_69); lean_inc(x_68); -lean_inc(x_67); -lean_dec(x_65); -x_69 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_69, 0, x_67); -lean_ctor_set(x_69, 1, x_68); -return x_69; +lean_dec(x_66); +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_68); +lean_ctor_set(x_70, 1, x_69); +return x_70; } } block_58: @@ -916,7 +920,7 @@ return x_57; } else { -uint8_t x_70; +uint8_t x_71; lean_dec(x_14); lean_dec(x_12); lean_dec(x_8); @@ -924,29 +928,29 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_70 = !lean_is_exclusive(x_17); -if (x_70 == 0) +x_71 = !lean_is_exclusive(x_17); +if (x_71 == 0) { return x_17; } else { -lean_object* x_71; lean_object* x_72; lean_object* x_73; -x_71 = lean_ctor_get(x_17, 0); -x_72 = lean_ctor_get(x_17, 1); +lean_object* x_72; lean_object* x_73; lean_object* x_74; +x_72 = lean_ctor_get(x_17, 0); +x_73 = lean_ctor_get(x_17, 1); +lean_inc(x_73); lean_inc(x_72); -lean_inc(x_71); lean_dec(x_17); -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_71); -lean_ctor_set(x_73, 1, x_72); -return x_73; +x_74 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_74, 0, x_72); +lean_ctor_set(x_74, 1, x_73); +return x_74; } } } else { -uint8_t x_74; +uint8_t x_75; lean_dec(x_14); lean_dec(x_12); lean_dec(x_8); @@ -954,79 +958,79 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_74 = !lean_is_exclusive(x_15); -if (x_74 == 0) +x_75 = !lean_is_exclusive(x_15); +if (x_75 == 0) { return x_15; } else { -lean_object* x_75; lean_object* x_76; lean_object* x_77; -x_75 = lean_ctor_get(x_15, 0); -x_76 = lean_ctor_get(x_15, 1); +lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_76 = lean_ctor_get(x_15, 0); +x_77 = lean_ctor_get(x_15, 1); +lean_inc(x_77); lean_inc(x_76); -lean_inc(x_75); lean_dec(x_15); -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_75); -lean_ctor_set(x_77, 1, x_76); -return x_77; +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_78; +uint8_t x_79; lean_dec(x_8); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_78 = !lean_is_exclusive(x_11); -if (x_78 == 0) +x_79 = !lean_is_exclusive(x_11); +if (x_79 == 0) { return x_11; } else { -lean_object* x_79; lean_object* x_80; lean_object* x_81; -x_79 = lean_ctor_get(x_11, 0); -x_80 = lean_ctor_get(x_11, 1); +lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_80 = lean_ctor_get(x_11, 0); +x_81 = lean_ctor_get(x_11, 1); +lean_inc(x_81); lean_inc(x_80); -lean_inc(x_79); lean_dec(x_11); -x_81 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_81, 0, x_79); -lean_ctor_set(x_81, 1, x_80); -return x_81; +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_94; +uint8_t x_96; lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_94 = !lean_is_exclusive(x_6); -if (x_94 == 0) +x_96 = !lean_is_exclusive(x_6); +if (x_96 == 0) { return x_6; } else { -lean_object* x_95; lean_object* x_96; lean_object* x_97; -x_95 = lean_ctor_get(x_6, 0); -x_96 = lean_ctor_get(x_6, 1); -lean_inc(x_96); -lean_inc(x_95); +lean_object* x_97; lean_object* x_98; lean_object* x_99; +x_97 = lean_ctor_get(x_6, 0); +x_98 = lean_ctor_get(x_6, 1); +lean_inc(x_98); +lean_inc(x_97); lean_dec(x_6); -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_99 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_99, 0, x_97); +lean_ctor_set(x_99, 1, x_98); +return x_99; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Generalize.c b/stage0/stdlib/Lean/Meta/Tactic/Generalize.c index 8b42213418..ac3af7ba87 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Generalize.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Generalize.c @@ -23,7 +23,7 @@ lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalize___lambda__1___closed__3; lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Meta_generalize(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalize___closed__2; @@ -152,38 +152,39 @@ lean_dec(x_19); x_22 = l_Lean_Expr_hasLooseBVars(x_20); if (x_22 == 0) { -lean_object* x_60; lean_object* x_61; uint8_t x_62; +lean_object* x_61; lean_object* x_62; lean_object* x_63; uint8_t x_64; lean_dec(x_20); lean_dec(x_10); lean_dec(x_3); -x_60 = l_Lean_Meta_generalize___lambda__1___closed__6; -x_61 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_60, x_5, x_21); +x_61 = l_Lean_Meta_generalize___lambda__1___closed__6; +x_62 = lean_box(0); +x_63 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_61, x_62, x_5, x_21); lean_dec(x_5); -x_62 = !lean_is_exclusive(x_61); -if (x_62 == 0) +x_64 = !lean_is_exclusive(x_63); +if (x_64 == 0) { -return x_61; +return x_63; } else { -lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_63 = lean_ctor_get(x_61, 0); -x_64 = lean_ctor_get(x_61, 1); -lean_inc(x_64); -lean_inc(x_63); -lean_dec(x_61); -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; +lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_65 = lean_ctor_get(x_63, 0); +x_66 = lean_ctor_get(x_63, 1); +lean_inc(x_66); +lean_inc(x_65); +lean_dec(x_63); +x_67 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_67, 0, x_65); +lean_ctor_set(x_67, 1, x_66); +return x_67; } } else { x_23 = x_21; -goto block_59; +goto block_60; } -block_59: +block_60: { lean_object* x_24; lean_inc(x_5); @@ -208,7 +209,7 @@ x_31 = lean_unbox(x_30); lean_dec(x_30); if (x_31 == 0) { -lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_dec(x_28); lean_dec(x_10); lean_dec(x_3); @@ -216,234 +217,235 @@ x_32 = lean_ctor_get(x_29, 1); lean_inc(x_32); lean_dec(x_29); x_33 = l_Lean_Meta_generalize___lambda__1___closed__3; -x_34 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_33, x_5, x_32); +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_33, x_34, x_5, x_32); lean_dec(x_5); -x_35 = !lean_is_exclusive(x_34); -if (x_35 == 0) +x_36 = !lean_is_exclusive(x_35); +if (x_36 == 0) { -return x_34; +return x_35; } else { -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_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_ctor_get(x_35, 1); +lean_inc(x_38); lean_inc(x_37); -lean_inc(x_36); -lean_dec(x_34); -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_36); -lean_ctor_set(x_38, 1, x_37); -return x_38; +lean_dec(x_35); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; } } else { -lean_object* x_39; uint8_t 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_40; uint8_t 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_dec(x_2); -x_39 = lean_ctor_get(x_29, 1); -lean_inc(x_39); +x_40 = lean_ctor_get(x_29, 1); +lean_inc(x_40); lean_dec(x_29); -x_40 = 2; +x_41 = 2; lean_inc(x_5); -x_41 = l_Lean_Meta_mkFreshExprMVar(x_28, x_10, x_40, x_5, x_39); -x_42 = lean_ctor_get(x_41, 0); -lean_inc(x_42); -x_43 = lean_ctor_get(x_41, 1); +x_42 = l_Lean_Meta_mkFreshExprMVar(x_28, x_10, x_41, x_5, x_40); +x_43 = lean_ctor_get(x_42, 0); lean_inc(x_43); -lean_dec(x_41); -lean_inc(x_42); -x_44 = l_Lean_mkApp(x_42, x_3); -x_45 = l_Lean_Expr_mvarId_x21(x_42); +x_44 = lean_ctor_get(x_42, 1); +lean_inc(x_44); lean_dec(x_42); -x_46 = l_Lean_Meta_assignExprMVar(x_1, x_44, x_5, x_43); +lean_inc(x_43); +x_45 = l_Lean_mkApp(x_43, x_3); +x_46 = l_Lean_Expr_mvarId_x21(x_43); +lean_dec(x_43); +x_47 = l_Lean_Meta_assignExprMVar(x_1, x_45, x_5, x_44); lean_dec(x_5); -if (lean_obj_tag(x_46) == 0) +if (lean_obj_tag(x_47) == 0) { -uint8_t x_47; -x_47 = !lean_is_exclusive(x_46); -if (x_47 == 0) +uint8_t x_48; +x_48 = !lean_is_exclusive(x_47); +if (x_48 == 0) { -lean_object* x_48; -x_48 = lean_ctor_get(x_46, 0); -lean_dec(x_48); -lean_ctor_set(x_46, 0, x_45); -return x_46; +lean_object* x_49; +x_49 = lean_ctor_get(x_47, 0); +lean_dec(x_49); +lean_ctor_set(x_47, 0, x_46); +return x_47; } else { -lean_object* x_49; lean_object* x_50; -x_49 = lean_ctor_get(x_46, 1); -lean_inc(x_49); +lean_object* x_50; lean_object* x_51; +x_50 = lean_ctor_get(x_47, 1); +lean_inc(x_50); +lean_dec(x_47); +x_51 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_51, 0, x_46); +lean_ctor_set(x_51, 1, x_50); +return x_51; +} +} +else +{ +uint8_t x_52; lean_dec(x_46); -x_50 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_50, 0, x_45); -lean_ctor_set(x_50, 1, x_49); -return x_50; -} +x_52 = !lean_is_exclusive(x_47); +if (x_52 == 0) +{ +return x_47; } else { -uint8_t x_51; -lean_dec(x_45); -x_51 = !lean_is_exclusive(x_46); -if (x_51 == 0) -{ -return x_46; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_46, 0); -x_53 = lean_ctor_get(x_46, 1); +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_47, 0); +x_54 = lean_ctor_get(x_47, 1); +lean_inc(x_54); lean_inc(x_53); -lean_inc(x_52); -lean_dec(x_46); -x_54 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_54, 0, x_52); -lean_ctor_set(x_54, 1, x_53); -return x_54; +lean_dec(x_47); +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 { -uint8_t x_55; +uint8_t x_56; lean_dec(x_20); lean_dec(x_10); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_55 = !lean_is_exclusive(x_24); -if (x_55 == 0) +x_56 = !lean_is_exclusive(x_24); +if (x_56 == 0) { return x_24; } else { -lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_56 = lean_ctor_get(x_24, 0); -x_57 = lean_ctor_get(x_24, 1); +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_24, 0); +x_58 = lean_ctor_get(x_24, 1); +lean_inc(x_58); lean_inc(x_57); -lean_inc(x_56); lean_dec(x_24); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_56); -lean_ctor_set(x_58, 1, x_57); -return x_58; +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +return x_59; } } } } else { -uint8_t x_66; +uint8_t x_68; lean_dec(x_10); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_66 = !lean_is_exclusive(x_19); -if (x_66 == 0) +x_68 = !lean_is_exclusive(x_19); +if (x_68 == 0) { return x_19; } else { -lean_object* x_67; lean_object* x_68; lean_object* x_69; -x_67 = lean_ctor_get(x_19, 0); -x_68 = lean_ctor_get(x_19, 1); -lean_inc(x_68); -lean_inc(x_67); +lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_69 = lean_ctor_get(x_19, 0); +x_70 = lean_ctor_get(x_19, 1); +lean_inc(x_70); +lean_inc(x_69); lean_dec(x_19); -x_69 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_69, 0, x_67); -lean_ctor_set(x_69, 1, x_68); -return x_69; +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_69); +lean_ctor_set(x_71, 1, x_70); +return x_71; } } } else { -uint8_t x_70; +uint8_t x_72; lean_dec(x_10); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_70 = !lean_is_exclusive(x_12); -if (x_70 == 0) +x_72 = !lean_is_exclusive(x_12); +if (x_72 == 0) { return x_12; } else { -lean_object* x_71; lean_object* x_72; lean_object* x_73; -x_71 = lean_ctor_get(x_12, 0); -x_72 = lean_ctor_get(x_12, 1); -lean_inc(x_72); -lean_inc(x_71); +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_12, 0); +x_74 = lean_ctor_get(x_12, 1); +lean_inc(x_74); +lean_inc(x_73); lean_dec(x_12); -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_71); -lean_ctor_set(x_73, 1, x_72); -return x_73; +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; } } } else { -uint8_t x_74; +uint8_t x_76; lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_74 = !lean_is_exclusive(x_9); -if (x_74 == 0) +x_76 = !lean_is_exclusive(x_9); +if (x_76 == 0) { return x_9; } else { -lean_object* x_75; lean_object* x_76; lean_object* x_77; -x_75 = lean_ctor_get(x_9, 0); -x_76 = lean_ctor_get(x_9, 1); -lean_inc(x_76); -lean_inc(x_75); +lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_77 = lean_ctor_get(x_9, 0); +x_78 = lean_ctor_get(x_9, 1); +lean_inc(x_78); +lean_inc(x_77); lean_dec(x_9); -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_75); -lean_ctor_set(x_77, 1, x_76); -return x_77; +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_77); +lean_ctor_set(x_79, 1, x_78); +return x_79; } } } else { -uint8_t x_78; +uint8_t x_80; lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_78 = !lean_is_exclusive(x_7); -if (x_78 == 0) +x_80 = !lean_is_exclusive(x_7); +if (x_80 == 0) { return x_7; } else { -lean_object* x_79; lean_object* x_80; lean_object* x_81; -x_79 = lean_ctor_get(x_7, 0); -x_80 = lean_ctor_get(x_7, 1); -lean_inc(x_80); -lean_inc(x_79); +lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_7, 0); +x_82 = lean_ctor_get(x_7, 1); +lean_inc(x_82); +lean_inc(x_81); lean_dec(x_7); -x_81 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_81, 0, x_79); -lean_ctor_set(x_81, 1, x_80); -return x_81; +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +return x_83; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Induction.c b/stage0/stdlib/Lean/Meta/Tactic/Induction.c index e2ed69d7c5..39671e49d0 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Induction.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Induction.c @@ -28,6 +28,7 @@ lean_object* l___private_Lean_Meta_Tactic_Induction_7__regTraceClasses(lean_obje lean_object* l_unreachable_x21___rarg(lean_object*); lean_object* l_Lean_Meta_whnfForall(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_ofList___closed__3; lean_object* l_Nat_foldAux___main___at___private_Lean_Meta_Tactic_Induction_4__finalizeAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -124,7 +125,7 @@ lean_object* l_Lean_Meta_mkRecursorInfo(lean_object*, lean_object*, lean_object* lean_object* l_List_foldlM___main___at_Lean_Meta_induction___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalDecl_type(lean_object*); lean_object* l_Lean_MetavarContext_exprDependsOn(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__6; lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__4; @@ -148,7 +149,6 @@ lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___ lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__6; -lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); lean_object* l_List_forM___main___at_Lean_Meta_induction___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__3; @@ -395,127 +395,130 @@ goto _start; } else { -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; uint8_t x_27; lean_dec(x_4); x_22 = lean_ctor_get(x_17, 1); lean_inc(x_22); lean_dec(x_17); x_23 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; x_24 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__8; -x_25 = l_Lean_Meta_throwTacticEx___rarg(x_23, x_1, x_24, x_5, x_22); +x_25 = lean_box(0); +x_26 = l_Lean_Meta_throwTacticEx___rarg(x_23, x_1, x_24, x_25, x_5, x_22); lean_dec(x_5); -x_26 = !lean_is_exclusive(x_25); -if (x_26 == 0) +x_27 = !lean_is_exclusive(x_26); +if (x_27 == 0) { -return x_25; +return x_26; } else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; -x_27 = lean_ctor_get(x_25, 0); -x_28 = lean_ctor_get(x_25, 1); +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_26, 0); +x_29 = lean_ctor_get(x_26, 1); +lean_inc(x_29); lean_inc(x_28); -lean_inc(x_27); -lean_dec(x_25); -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; +lean_dec(x_26); +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; } } } else { -lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_dec(x_14); lean_dec(x_4); -x_30 = lean_ctor_get(x_13, 1); -lean_inc(x_30); +x_31 = lean_ctor_get(x_13, 1); +lean_inc(x_31); lean_dec(x_13); -x_31 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; -x_32 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_33 = l_Lean_Meta_throwTacticEx___rarg(x_31, x_1, x_32, x_5, x_30); +x_32 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; +x_33 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; +x_34 = lean_box(0); +x_35 = l_Lean_Meta_throwTacticEx___rarg(x_32, x_1, x_33, x_34, x_5, x_31); lean_dec(x_5); -return x_33; +return x_35; } } else { -uint8_t x_34; +uint8_t x_36; lean_dec(x_5); lean_dec(x_4); lean_dec(x_1); -x_34 = !lean_is_exclusive(x_13); -if (x_34 == 0) +x_36 = !lean_is_exclusive(x_13); +if (x_36 == 0) { return x_13; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_35 = lean_ctor_get(x_13, 0); -x_36 = lean_ctor_get(x_13, 1); -lean_inc(x_36); -lean_inc(x_35); +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_13, 0); +x_38 = lean_ctor_get(x_13, 1); +lean_inc(x_38); +lean_inc(x_37); lean_dec(x_13); -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; +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; } } } else { -uint8_t x_38; +uint8_t x_40; lean_dec(x_5); lean_dec(x_4); lean_dec(x_1); -x_38 = !lean_is_exclusive(x_10); -if (x_38 == 0) +x_40 = !lean_is_exclusive(x_10); +if (x_40 == 0) { return x_10; } else { -lean_object* x_39; lean_object* x_40; lean_object* x_41; -x_39 = lean_ctor_get(x_10, 0); -x_40 = lean_ctor_get(x_10, 1); -lean_inc(x_40); -lean_inc(x_39); +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_10, 0); +x_42 = lean_ctor_get(x_10, 1); +lean_inc(x_42); +lean_inc(x_41); lean_dec(x_10); -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; +x_43 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_43, 0, x_41); +lean_ctor_set(x_43, 1, x_42); +return x_43; } } } else { -lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; -x_42 = lean_ctor_get(x_3, 1); -x_43 = lean_ctor_get(x_8, 0); -x_44 = lean_array_get_size(x_2); -x_45 = lean_nat_dec_lt(x_43, x_44); -lean_dec(x_44); -if (x_45 == 0) +lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; +x_44 = lean_ctor_get(x_3, 1); +x_45 = lean_ctor_get(x_8, 0); +x_46 = lean_array_get_size(x_2); +x_47 = lean_nat_dec_lt(x_45, x_46); +lean_dec(x_46); +if (x_47 == 0) { -lean_object* x_46; lean_object* x_47; lean_object* x_48; +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_dec(x_4); -x_46 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; -x_47 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_48 = l_Lean_Meta_throwTacticEx___rarg(x_46, x_1, x_47, x_5, x_6); +x_48 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; +x_49 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; +x_50 = lean_box(0); +x_51 = l_Lean_Meta_throwTacticEx___rarg(x_48, x_1, x_49, x_50, x_5, x_6); lean_dec(x_5); -return x_48; +return x_51; } else { -lean_object* x_49; lean_object* x_50; -x_49 = lean_array_fget(x_2, x_43); -x_50 = l_Lean_mkApp(x_4, x_49); -x_3 = x_42; -x_4 = x_50; +lean_object* x_52; lean_object* x_53; +x_52 = lean_array_fget(x_2, x_45); +x_53 = l_Lean_mkApp(x_4, x_52); +x_3 = x_44; +x_4 = x_53; goto _start; } } @@ -621,40 +624,41 @@ return x_15; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_dec(x_7); x_16 = lean_ctor_get(x_6, 1); lean_inc(x_16); lean_dec(x_6); x_17 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; x_18 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_19 = l_Lean_Meta_throwTacticEx___rarg(x_17, x_1, x_18, x_4, x_16); +x_19 = lean_box(0); +x_20 = l_Lean_Meta_throwTacticEx___rarg(x_17, x_1, x_18, x_19, x_4, x_16); lean_dec(x_4); -return x_19; +return x_20; } } else { -uint8_t x_20; +uint8_t x_21; lean_dec(x_4); lean_dec(x_1); -x_20 = !lean_is_exclusive(x_6); -if (x_20 == 0) +x_21 = !lean_is_exclusive(x_6); +if (x_21 == 0) { return x_6; } else { -lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_21 = lean_ctor_get(x_6, 0); -x_22 = lean_ctor_get(x_6, 1); +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_6, 0); +x_23 = lean_ctor_get(x_6, 1); +lean_inc(x_23); lean_inc(x_22); -lean_inc(x_21); lean_dec(x_6); -x_23 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_23, 0, x_21); -lean_ctor_set(x_23, 1, x_22); -return x_23; +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; } } } @@ -880,92 +884,93 @@ lean_dec(x_9); lean_dec(x_5); if (x_14 == 0) { -lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; lean_dec(x_15); lean_dec(x_12); x_22 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; x_23 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_24 = l_Lean_Meta_throwTacticEx___rarg(x_22, x_1, x_23, x_16, x_20); +x_24 = lean_box(0); +x_25 = l_Lean_Meta_throwTacticEx___rarg(x_22, x_1, x_23, x_24, x_16, x_20); lean_dec(x_16); -x_25 = !lean_is_exclusive(x_24); -if (x_25 == 0) +x_26 = !lean_is_exclusive(x_25); +if (x_26 == 0) { -return x_24; +return x_25; } else { -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); +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_25, 0); +x_28 = lean_ctor_get(x_25, 1); +lean_inc(x_28); lean_inc(x_27); -lean_inc(x_26); -lean_dec(x_24); -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_dec(x_25); +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_29; -x_29 = l_Lean_Meta_assignExprMVar(x_1, x_12, x_16, x_20); +lean_object* x_30; +x_30 = l_Lean_Meta_assignExprMVar(x_1, x_12, x_16, x_20); lean_dec(x_16); -if (lean_obj_tag(x_29) == 0) +if (lean_obj_tag(x_30) == 0) { -uint8_t x_30; -x_30 = !lean_is_exclusive(x_29); -if (x_30 == 0) +uint8_t x_31; +x_31 = !lean_is_exclusive(x_30); +if (x_31 == 0) { -lean_object* x_31; -x_31 = lean_ctor_get(x_29, 0); -lean_dec(x_31); -lean_ctor_set(x_29, 0, x_15); -return x_29; +lean_object* x_32; +x_32 = lean_ctor_get(x_30, 0); +lean_dec(x_32); +lean_ctor_set(x_30, 0, x_15); +return x_30; } else { -lean_object* x_32; lean_object* x_33; -x_32 = lean_ctor_get(x_29, 1); -lean_inc(x_32); -lean_dec(x_29); -x_33 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_33, 0, x_15); -lean_ctor_set(x_33, 1, x_32); -return x_33; +lean_object* x_33; lean_object* x_34; +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +lean_dec(x_30); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_15); +lean_ctor_set(x_34, 1, x_33); +return x_34; } } else { -uint8_t x_34; +uint8_t x_35; lean_dec(x_15); -x_34 = !lean_is_exclusive(x_29); -if (x_34 == 0) +x_35 = !lean_is_exclusive(x_30); +if (x_35 == 0) { -return x_29; +return x_30; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_35 = lean_ctor_get(x_29, 0); -x_36 = lean_ctor_get(x_29, 1); +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_30, 0); +x_37 = lean_ctor_get(x_30, 1); +lean_inc(x_37); lean_inc(x_36); -lean_inc(x_35); -lean_dec(x_29); -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_dec(x_30); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +return x_38; } } } } else { -lean_object* x_38; uint8_t x_39; -x_38 = lean_ctor_get(x_3, 3); -x_39 = lean_nat_dec_lt(x_10, x_38); -if (x_39 == 0) +lean_object* x_39; uint8_t x_40; +x_39 = lean_ctor_get(x_3, 3); +x_40 = lean_nat_dec_lt(x_10, x_39); +if (x_40 == 0) { lean_dec(x_19); lean_dec(x_11); @@ -974,428 +979,116 @@ lean_dec(x_9); lean_dec(x_5); if (x_14 == 0) { -lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; lean_dec(x_15); lean_dec(x_12); -x_40 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; -x_41 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_42 = l_Lean_Meta_throwTacticEx___rarg(x_40, x_1, x_41, x_16, x_20); +x_41 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; +x_42 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; +x_43 = lean_box(0); +x_44 = l_Lean_Meta_throwTacticEx___rarg(x_41, x_1, x_42, x_43, x_16, x_20); lean_dec(x_16); -x_43 = !lean_is_exclusive(x_42); -if (x_43 == 0) +x_45 = !lean_is_exclusive(x_44); +if (x_45 == 0) { -return x_42; +return x_44; } else { -lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_44 = lean_ctor_get(x_42, 0); -x_45 = lean_ctor_get(x_42, 1); -lean_inc(x_45); -lean_inc(x_44); -lean_dec(x_42); -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; +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_44, 0); +x_47 = lean_ctor_get(x_44, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_44); +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 { -lean_object* x_47; -x_47 = l_Lean_Meta_assignExprMVar(x_1, x_12, x_16, x_20); -lean_dec(x_16); -if (lean_obj_tag(x_47) == 0) -{ -uint8_t x_48; -x_48 = !lean_is_exclusive(x_47); -if (x_48 == 0) -{ lean_object* x_49; -x_49 = lean_ctor_get(x_47, 0); +x_49 = l_Lean_Meta_assignExprMVar(x_1, x_12, x_16, x_20); +lean_dec(x_16); +if (lean_obj_tag(x_49) == 0) +{ +uint8_t x_50; +x_50 = !lean_is_exclusive(x_49); +if (x_50 == 0) +{ +lean_object* x_51; +x_51 = lean_ctor_get(x_49, 0); +lean_dec(x_51); +lean_ctor_set(x_49, 0, x_15); +return x_49; +} +else +{ +lean_object* x_52; lean_object* x_53; +x_52 = lean_ctor_get(x_49, 1); +lean_inc(x_52); lean_dec(x_49); -lean_ctor_set(x_47, 0, x_15); -return x_47; -} -else -{ -lean_object* x_50; lean_object* x_51; -x_50 = lean_ctor_get(x_47, 1); -lean_inc(x_50); -lean_dec(x_47); -x_51 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_51, 0, x_15); -lean_ctor_set(x_51, 1, x_50); -return x_51; +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_15); +lean_ctor_set(x_53, 1, x_52); +return x_53; } } else { -uint8_t x_52; +uint8_t x_54; lean_dec(x_15); -x_52 = !lean_is_exclusive(x_47); -if (x_52 == 0) +x_54 = !lean_is_exclusive(x_49); +if (x_54 == 0) { -return x_47; +return x_49; } else { -lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_53 = lean_ctor_get(x_47, 0); -x_54 = lean_ctor_get(x_47, 1); -lean_inc(x_54); -lean_inc(x_53); -lean_dec(x_47); -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; +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_49, 0); +x_56 = lean_ctor_get(x_49, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_49); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_55); +lean_ctor_set(x_57, 1, x_56); +return x_57; } } } } else { -lean_object* x_56; uint8_t x_57; -x_56 = l_Lean_Meta_RecursorInfo_firstIndexPos(x_3); -x_57 = lean_nat_dec_eq(x_10, x_56); -lean_dec(x_56); -if (x_57 == 0) -{ -lean_object* x_58; -lean_inc(x_1); -x_58 = l_Lean_Meta_getMVarTag(x_1, x_16, x_20); -if (lean_obj_tag(x_58) == 0) -{ -lean_object* x_59; lean_object* x_60; uint8_t x_61; lean_object* x_62; -x_59 = lean_ctor_get(x_58, 0); -lean_inc(x_59); -x_60 = lean_ctor_get(x_58, 1); -lean_inc(x_60); +lean_object* x_58; uint8_t x_59; +x_58 = l_Lean_Meta_RecursorInfo_firstIndexPos(x_3); +x_59 = lean_nat_dec_eq(x_10, x_58); lean_dec(x_58); -x_61 = lean_nat_dec_le(x_8, x_11); -if (x_61 == 0) +if (x_59 == 0) { -x_62 = x_60; -goto block_196; -} -else -{ -lean_object* x_197; lean_object* x_198; lean_object* x_199; uint8_t x_200; -lean_dec(x_59); -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -x_197 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; -x_198 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_199 = l_Lean_Meta_throwTacticEx___rarg(x_197, x_1, x_198, x_16, x_60); -lean_dec(x_16); -x_200 = !lean_is_exclusive(x_199); -if (x_200 == 0) -{ -return x_199; -} -else -{ -lean_object* x_201; lean_object* x_202; lean_object* x_203; -x_201 = lean_ctor_get(x_199, 0); -x_202 = lean_ctor_get(x_199, 1); -lean_inc(x_202); -lean_inc(x_201); -lean_dec(x_199); -x_203 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_203, 0, x_201); -lean_ctor_set(x_203, 1, x_202); -return x_203; -} -} -block_196: -{ -if (lean_obj_tag(x_19) == 7) -{ -lean_object* x_63; lean_object* x_64; uint64_t x_65; lean_object* x_66; lean_object* x_67; uint8_t x_145; uint8_t x_146; -x_63 = lean_ctor_get(x_19, 0); -lean_inc(x_63); -x_64 = lean_ctor_get(x_19, 1); -lean_inc(x_64); -x_65 = lean_ctor_get_uint64(x_19, sizeof(void*)*3); -x_66 = l_Lean_Expr_headBeta(x_64); -x_145 = (uint8_t)((x_65 << 24) >> 61); -x_146 = l_Lean_BinderInfo_isInstImplicit(x_145); -if (x_146 == 0) -{ -lean_object* x_147; -x_147 = lean_box(0); -x_67 = x_147; -goto block_144; -} -else -{ -uint8_t x_148; -x_148 = l_Array_isEmpty___rarg(x_2); -if (x_148 == 0) -{ -lean_object* x_149; -x_149 = lean_box(0); -x_67 = x_149; -goto block_144; -} -else -{ -lean_object* x_150; -lean_inc(x_16); -lean_inc(x_66); -x_150 = l_Lean_Meta_synthInstance_x3f(x_66, x_16, x_62); -if (lean_obj_tag(x_150) == 0) -{ -lean_object* x_151; -x_151 = lean_ctor_get(x_150, 0); -lean_inc(x_151); -if (lean_obj_tag(x_151) == 0) -{ -lean_object* x_152; lean_object* x_153; uint8_t x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; -x_152 = lean_ctor_get(x_150, 1); -lean_inc(x_152); -lean_dec(x_150); -x_153 = l_Lean_Name_append___main(x_59, x_63); -lean_dec(x_59); -x_154 = 2; -lean_inc(x_16); -x_155 = l_Lean_Meta_mkFreshExprMVar(x_66, x_153, x_154, x_16, x_152); -x_156 = lean_ctor_get(x_155, 0); -lean_inc(x_156); -x_157 = lean_ctor_get(x_155, 1); -lean_inc(x_157); -lean_dec(x_155); -lean_inc(x_156); -x_158 = l_Lean_mkApp(x_12, x_156); -lean_inc(x_16); +lean_object* x_60; lean_inc(x_1); -x_159 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_19, x_156, x_16, x_157); -if (lean_obj_tag(x_159) == 0) +x_60 = l_Lean_Meta_getMVarTag(x_1, x_16, x_20); +if (lean_obj_tag(x_60) == 0) { -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; -x_160 = lean_ctor_get(x_159, 0); -lean_inc(x_160); -x_161 = lean_ctor_get(x_159, 1); -lean_inc(x_161); -lean_dec(x_159); -x_162 = lean_unsigned_to_nat(1u); -x_163 = lean_nat_add(x_10, x_162); -lean_dec(x_10); -x_164 = lean_nat_add(x_11, x_162); -lean_dec(x_11); -x_165 = l_Lean_Expr_mvarId_x21(x_156); -lean_dec(x_156); -x_166 = lean_box(0); -x_167 = l_Array_empty___closed__1; -x_168 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_168, 0, x_165); -lean_ctor_set(x_168, 1, x_167); -lean_ctor_set(x_168, 2, x_166); -x_169 = lean_array_push(x_15, x_168); -x_10 = x_163; -x_11 = x_164; -x_12 = x_158; -x_13 = x_160; -x_15 = x_169; -x_17 = x_161; -goto _start; +lean_object* x_61; lean_object* x_62; uint8_t 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_63 = lean_nat_dec_le(x_8, x_11); +if (x_63 == 0) +{ +x_64 = x_62; +goto block_199; } else { -uint8_t x_171; -lean_dec(x_158); -lean_dec(x_156); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_171 = !lean_is_exclusive(x_159); -if (x_171 == 0) -{ -return x_159; -} -else -{ -lean_object* x_172; lean_object* x_173; lean_object* x_174; -x_172 = lean_ctor_get(x_159, 0); -x_173 = lean_ctor_get(x_159, 1); -lean_inc(x_173); -lean_inc(x_172); -lean_dec(x_159); -x_174 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_174, 0, x_172); -lean_ctor_set(x_174, 1, x_173); -return x_174; -} -} -} -else -{ -lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; -lean_dec(x_66); -lean_dec(x_63); -lean_dec(x_59); -x_175 = lean_ctor_get(x_150, 1); -lean_inc(x_175); -lean_dec(x_150); -x_176 = lean_ctor_get(x_151, 0); -lean_inc(x_176); -lean_dec(x_151); -lean_inc(x_176); -x_177 = l_Lean_mkApp(x_12, x_176); -lean_inc(x_16); -lean_inc(x_1); -x_178 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_19, x_176, x_16, x_175); -lean_dec(x_176); -if (lean_obj_tag(x_178) == 0) -{ -lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; -x_179 = lean_ctor_get(x_178, 0); -lean_inc(x_179); -x_180 = lean_ctor_get(x_178, 1); -lean_inc(x_180); -lean_dec(x_178); -x_181 = lean_unsigned_to_nat(1u); -x_182 = lean_nat_add(x_10, x_181); -lean_dec(x_10); -x_183 = lean_nat_add(x_11, x_181); -lean_dec(x_11); -x_10 = x_182; -x_11 = x_183; -x_12 = x_177; -x_13 = x_179; -x_17 = x_180; -goto _start; -} -else -{ -uint8_t x_185; -lean_dec(x_177); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_185 = !lean_is_exclusive(x_178); -if (x_185 == 0) -{ -return x_178; -} -else -{ -lean_object* x_186; lean_object* x_187; lean_object* x_188; -x_186 = lean_ctor_get(x_178, 0); -x_187 = lean_ctor_get(x_178, 1); -lean_inc(x_187); -lean_inc(x_186); -lean_dec(x_178); -x_188 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_188, 0, x_186); -lean_ctor_set(x_188, 1, x_187); -return x_188; -} -} -} -} -else -{ -uint8_t x_189; -lean_dec(x_66); -lean_dec(x_63); -lean_dec(x_59); -lean_dec(x_19); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_189 = !lean_is_exclusive(x_150); -if (x_189 == 0) -{ -return x_150; -} -else -{ -lean_object* x_190; lean_object* x_191; lean_object* x_192; -x_190 = lean_ctor_get(x_150, 0); -x_191 = lean_ctor_get(x_150, 1); -lean_inc(x_191); -lean_inc(x_190); -lean_dec(x_150); -x_192 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_192, 0, x_190); -lean_ctor_set(x_192, 1, x_191); -return x_192; -} -} -} -} -block_144: -{ -lean_object* x_68; uint8_t 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; uint8_t x_77; lean_object* x_78; lean_object* x_79; -lean_dec(x_67); -lean_inc(x_66); -x_68 = l___private_Lean_Meta_Tactic_Induction_1__getTargetArity___main(x_66); -x_69 = lean_nat_dec_lt(x_68, x_6); -x_70 = lean_nat_sub(x_68, x_6); -lean_dec(x_68); -x_71 = lean_array_get_size(x_4); -x_72 = lean_array_get_size(x_7); -x_73 = lean_nat_sub(x_71, x_72); -x_74 = lean_unsigned_to_nat(1u); -x_75 = lean_nat_sub(x_73, x_74); -lean_dec(x_73); -x_76 = lean_array_get_size(x_2); -x_77 = lean_nat_dec_lt(x_11, x_76); -lean_dec(x_76); -x_78 = l_Lean_Name_append___main(x_59, x_63); -lean_dec(x_59); -if (x_77 == 0) -{ -lean_object* x_142; -x_142 = lean_box(0); -x_79 = x_142; -goto block_141; -} -else -{ -lean_object* x_143; -x_143 = lean_array_fget(x_2, x_11); -x_79 = x_143; -goto block_141; -} -block_141: -{ -lean_object* x_80; -if (x_69 == 0) -{ -x_80 = x_62; -goto block_133; -} -else -{ -lean_object* x_134; lean_object* x_135; lean_object* x_136; uint8_t x_137; -lean_dec(x_79); -lean_dec(x_78); -lean_dec(x_75); -lean_dec(x_72); -lean_dec(x_71); -lean_dec(x_70); -lean_dec(x_66); +lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; uint8_t x_204; +lean_dec(x_61); lean_dec(x_19); lean_dec(x_15); lean_dec(x_12); @@ -1403,376 +1096,128 @@ lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); lean_dec(x_5); -x_134 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; -x_135 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_136 = l_Lean_Meta_throwTacticEx___rarg(x_134, x_1, x_135, x_16, x_62); +x_200 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; +x_201 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; +x_202 = lean_box(0); +x_203 = l_Lean_Meta_throwTacticEx___rarg(x_200, x_1, x_201, x_202, x_16, x_62); lean_dec(x_16); -x_137 = !lean_is_exclusive(x_136); -if (x_137 == 0) -{ -return x_136; -} -else -{ -lean_object* x_138; lean_object* x_139; lean_object* x_140; -x_138 = lean_ctor_get(x_136, 0); -x_139 = lean_ctor_get(x_136, 1); -lean_inc(x_139); -lean_inc(x_138); -lean_dec(x_136); -x_140 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_140, 0, x_138); -lean_ctor_set(x_140, 1, x_139); -return x_140; -} -} -block_133: -{ -uint8_t x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_81 = 2; -lean_inc(x_16); -x_82 = l_Lean_Meta_mkFreshExprMVar(x_66, x_78, x_81, x_16, x_80); -x_83 = lean_ctor_get(x_82, 0); -lean_inc(x_83); -x_84 = lean_ctor_get(x_82, 1); -lean_inc(x_84); -lean_dec(x_82); -lean_inc(x_83); -x_85 = l_Lean_mkApp(x_12, x_83); -lean_inc(x_16); -lean_inc(x_1); -x_86 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_19, x_83, x_16, x_84); -if (lean_obj_tag(x_86) == 0) -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; -x_87 = lean_ctor_get(x_86, 0); -lean_inc(x_87); -x_88 = lean_ctor_get(x_86, 1); -lean_inc(x_88); -lean_dec(x_86); -x_89 = l_Lean_Expr_mvarId_x21(x_83); -lean_dec(x_83); -x_90 = l_Lean_Expr_fvarId_x21(x_5); -x_91 = l_Lean_Meta_tryClear(x_89, x_90, x_16, x_88); -if (lean_obj_tag(x_91) == 0) -{ -lean_object* x_92; lean_object* x_93; uint8_t x_94; lean_object* x_95; -x_92 = lean_ctor_get(x_91, 0); -lean_inc(x_92); -x_93 = lean_ctor_get(x_91, 1); -lean_inc(x_93); -lean_dec(x_91); -x_94 = 1; -x_95 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_94, x_92, x_70, x_79, x_16, x_93); -if (lean_obj_tag(x_95) == 0) -{ -lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; uint8_t x_101; lean_object* x_102; -x_96 = lean_ctor_get(x_95, 0); -lean_inc(x_96); -x_97 = lean_ctor_get(x_95, 1); -lean_inc(x_97); -lean_dec(x_95); -x_98 = lean_ctor_get(x_96, 0); -lean_inc(x_98); -x_99 = lean_ctor_get(x_96, 1); -lean_inc(x_99); -lean_dec(x_96); -x_100 = lean_box(0); -x_101 = 0; -x_102 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_101, x_99, x_75, x_100, x_16, x_97); -if (lean_obj_tag(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; lean_object* x_113; lean_object* x_114; lean_object* x_115; -x_103 = lean_ctor_get(x_102, 0); -lean_inc(x_103); -x_104 = lean_ctor_get(x_102, 1); -lean_inc(x_104); -lean_dec(x_102); -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); -lean_inc(x_9); -lean_inc(x_71); -x_107 = l_Nat_foldAux___main___at___private_Lean_Meta_Tactic_Induction_4__finalizeAux___main___spec__1(x_4, x_7, x_72, x_105, x_71, x_71, x_9); -lean_dec(x_71); -lean_dec(x_105); -lean_dec(x_72); -x_108 = x_98; -x_109 = lean_unsigned_to_nat(0u); -x_110 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_109, x_108); -x_111 = x_110; -x_112 = lean_nat_add(x_10, x_74); -lean_dec(x_10); -x_113 = lean_nat_add(x_11, x_74); -lean_dec(x_11); -x_114 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_114, 0, x_106); -lean_ctor_set(x_114, 1, x_111); -lean_ctor_set(x_114, 2, x_107); -x_115 = lean_array_push(x_15, x_114); -x_10 = x_112; -x_11 = x_113; -x_12 = x_85; -x_13 = x_87; -x_15 = x_115; -x_17 = x_104; -goto _start; -} -else -{ -uint8_t x_117; -lean_dec(x_98); -lean_dec(x_87); -lean_dec(x_85); -lean_dec(x_72); -lean_dec(x_71); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_117 = !lean_is_exclusive(x_102); -if (x_117 == 0) -{ -return x_102; -} -else -{ -lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_118 = lean_ctor_get(x_102, 0); -x_119 = lean_ctor_get(x_102, 1); -lean_inc(x_119); -lean_inc(x_118); -lean_dec(x_102); -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; -} -} -} -else -{ -uint8_t x_121; -lean_dec(x_87); -lean_dec(x_85); -lean_dec(x_75); -lean_dec(x_72); -lean_dec(x_71); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_121 = !lean_is_exclusive(x_95); -if (x_121 == 0) -{ -return x_95; -} -else -{ -lean_object* x_122; lean_object* x_123; lean_object* x_124; -x_122 = lean_ctor_get(x_95, 0); -x_123 = lean_ctor_get(x_95, 1); -lean_inc(x_123); -lean_inc(x_122); -lean_dec(x_95); -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 -{ -uint8_t x_125; -lean_dec(x_87); -lean_dec(x_85); -lean_dec(x_79); -lean_dec(x_75); -lean_dec(x_72); -lean_dec(x_71); -lean_dec(x_70); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_125 = !lean_is_exclusive(x_91); -if (x_125 == 0) -{ -return x_91; -} -else -{ -lean_object* x_126; lean_object* x_127; lean_object* x_128; -x_126 = lean_ctor_get(x_91, 0); -x_127 = lean_ctor_get(x_91, 1); -lean_inc(x_127); -lean_inc(x_126); -lean_dec(x_91); -x_128 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_128, 0, x_126); -lean_ctor_set(x_128, 1, x_127); -return x_128; -} -} -} -else -{ -uint8_t x_129; -lean_dec(x_85); -lean_dec(x_83); -lean_dec(x_79); -lean_dec(x_75); -lean_dec(x_72); -lean_dec(x_71); -lean_dec(x_70); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_129 = !lean_is_exclusive(x_86); -if (x_129 == 0) -{ -return x_86; -} -else -{ -lean_object* x_130; lean_object* x_131; lean_object* x_132; -x_130 = lean_ctor_get(x_86, 0); -x_131 = lean_ctor_get(x_86, 1); -lean_inc(x_131); -lean_inc(x_130); -lean_dec(x_86); -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; -} -} -} -} -} -} -else -{ -lean_object* x_193; lean_object* x_194; lean_object* x_195; -lean_dec(x_59); -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_193 = l_Lean_Meta_isClassQuick___main___closed__1; -x_194 = l_unreachable_x21___rarg(x_193); -x_195 = lean_apply_2(x_194, x_16, x_62); -return x_195; -} -} -} -else -{ -uint8_t x_204; -lean_dec(x_19); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_1); -x_204 = !lean_is_exclusive(x_58); +x_204 = !lean_is_exclusive(x_203); if (x_204 == 0) { -return x_58; +return x_203; } else { lean_object* x_205; lean_object* x_206; lean_object* x_207; -x_205 = lean_ctor_get(x_58, 0); -x_206 = lean_ctor_get(x_58, 1); +x_205 = lean_ctor_get(x_203, 0); +x_206 = lean_ctor_get(x_203, 1); lean_inc(x_206); lean_inc(x_205); -lean_dec(x_58); +lean_dec(x_203); x_207 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_207, 0, x_205); lean_ctor_set(x_207, 1, x_206); return x_207; } } +block_199: +{ +if (lean_obj_tag(x_19) == 7) +{ +lean_object* x_65; lean_object* x_66; uint64_t x_67; lean_object* x_68; lean_object* x_69; uint8_t x_148; uint8_t x_149; +x_65 = lean_ctor_get(x_19, 0); +lean_inc(x_65); +x_66 = lean_ctor_get(x_19, 1); +lean_inc(x_66); +x_67 = lean_ctor_get_uint64(x_19, sizeof(void*)*3); +x_68 = l_Lean_Expr_headBeta(x_66); +x_148 = (uint8_t)((x_67 << 24) >> 61); +x_149 = l_Lean_BinderInfo_isInstImplicit(x_148); +if (x_149 == 0) +{ +lean_object* x_150; +x_150 = lean_box(0); +x_69 = x_150; +goto block_147; } else { -lean_object* x_208; lean_object* x_209; lean_object* x_210; -x_208 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_208, 0, x_12); -lean_ctor_set(x_208, 1, x_19); -x_209 = lean_unsigned_to_nat(0u); +uint8_t x_151; +x_151 = l_Array_isEmpty___rarg(x_2); +if (x_151 == 0) +{ +lean_object* x_152; +x_152 = lean_box(0); +x_69 = x_152; +goto block_147; +} +else +{ +lean_object* x_153; +lean_inc(x_16); +lean_inc(x_68); +x_153 = l_Lean_Meta_synthInstance_x3f(x_68, x_16, x_64); +if (lean_obj_tag(x_153) == 0) +{ +lean_object* x_154; +x_154 = lean_ctor_get(x_153, 0); +lean_inc(x_154); +if (lean_obj_tag(x_154) == 0) +{ +lean_object* x_155; lean_object* x_156; uint8_t x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; +x_155 = lean_ctor_get(x_153, 1); +lean_inc(x_155); +lean_dec(x_153); +x_156 = l_Lean_Name_append___main(x_61, x_65); +lean_dec(x_61); +x_157 = 2; +lean_inc(x_16); +x_158 = l_Lean_Meta_mkFreshExprMVar(x_68, x_156, x_157, x_16, x_155); +x_159 = lean_ctor_get(x_158, 0); +lean_inc(x_159); +x_160 = lean_ctor_get(x_158, 1); +lean_inc(x_160); +lean_dec(x_158); +lean_inc(x_159); +x_161 = l_Lean_mkApp(x_12, x_159); lean_inc(x_16); lean_inc(x_1); -x_210 = l_Array_iterateMAux___main___at___private_Lean_Meta_Tactic_Induction_4__finalizeAux___main___spec__2(x_1, x_7, x_7, x_209, x_208, x_16, x_20); -if (lean_obj_tag(x_210) == 0) +x_162 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_19, x_159, x_16, x_160); +if (lean_obj_tag(x_162) == 0) { -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_211 = lean_ctor_get(x_210, 0); -lean_inc(x_211); -x_212 = lean_ctor_get(x_210, 1); -lean_inc(x_212); -lean_dec(x_210); -x_213 = lean_ctor_get(x_211, 0); -lean_inc(x_213); -x_214 = lean_ctor_get(x_211, 1); -lean_inc(x_214); -lean_dec(x_211); -lean_inc(x_5); -x_215 = l_Lean_mkApp(x_213, x_5); -lean_inc(x_16); -lean_inc(x_1); -x_216 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_214, x_5, x_16, x_212); -if (lean_obj_tag(x_216) == 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; uint8_t x_223; -x_217 = lean_ctor_get(x_216, 0); -lean_inc(x_217); -x_218 = lean_ctor_get(x_216, 1); -lean_inc(x_218); -lean_dec(x_216); -x_219 = lean_unsigned_to_nat(1u); -x_220 = lean_nat_add(x_10, x_219); +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; +x_163 = lean_ctor_get(x_162, 0); +lean_inc(x_163); +x_164 = lean_ctor_get(x_162, 1); +lean_inc(x_164); +lean_dec(x_162); +x_165 = lean_unsigned_to_nat(1u); +x_166 = lean_nat_add(x_10, x_165); lean_dec(x_10); -x_221 = lean_array_get_size(x_7); -x_222 = lean_nat_add(x_220, x_221); -lean_dec(x_221); -lean_dec(x_220); -x_223 = 1; -x_10 = x_222; -x_12 = x_215; -x_13 = x_217; -x_14 = x_223; -x_17 = x_218; +x_167 = lean_nat_add(x_11, x_165); +lean_dec(x_11); +x_168 = l_Lean_Expr_mvarId_x21(x_159); +lean_dec(x_159); +x_169 = lean_box(0); +x_170 = l_Array_empty___closed__1; +x_171 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_171, 0, x_168); +lean_ctor_set(x_171, 1, x_170); +lean_ctor_set(x_171, 2, x_169); +x_172 = lean_array_push(x_15, x_171); +x_10 = x_166; +x_11 = x_167; +x_12 = x_161; +x_13 = x_163; +x_15 = x_172; +x_17 = x_164; goto _start; } else { -uint8_t x_225; -lean_dec(x_215); +uint8_t x_174; +lean_dec(x_161); +lean_dec(x_159); lean_dec(x_16); lean_dec(x_15); lean_dec(x_11); @@ -1780,29 +1225,562 @@ lean_dec(x_10); lean_dec(x_9); lean_dec(x_5); lean_dec(x_1); -x_225 = !lean_is_exclusive(x_216); -if (x_225 == 0) +x_174 = !lean_is_exclusive(x_162); +if (x_174 == 0) { -return x_216; +return x_162; } else { -lean_object* x_226; lean_object* x_227; lean_object* x_228; -x_226 = lean_ctor_get(x_216, 0); -x_227 = lean_ctor_get(x_216, 1); -lean_inc(x_227); -lean_inc(x_226); -lean_dec(x_216); -x_228 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_228, 0, x_226); -lean_ctor_set(x_228, 1, x_227); -return x_228; +lean_object* x_175; lean_object* x_176; lean_object* x_177; +x_175 = lean_ctor_get(x_162, 0); +x_176 = lean_ctor_get(x_162, 1); +lean_inc(x_176); +lean_inc(x_175); +lean_dec(x_162); +x_177 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_177, 0, x_175); +lean_ctor_set(x_177, 1, x_176); +return x_177; } } } else { +lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; +lean_dec(x_68); +lean_dec(x_65); +lean_dec(x_61); +x_178 = lean_ctor_get(x_153, 1); +lean_inc(x_178); +lean_dec(x_153); +x_179 = lean_ctor_get(x_154, 0); +lean_inc(x_179); +lean_dec(x_154); +lean_inc(x_179); +x_180 = l_Lean_mkApp(x_12, x_179); +lean_inc(x_16); +lean_inc(x_1); +x_181 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_19, x_179, x_16, x_178); +lean_dec(x_179); +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; +x_182 = lean_ctor_get(x_181, 0); +lean_inc(x_182); +x_183 = lean_ctor_get(x_181, 1); +lean_inc(x_183); +lean_dec(x_181); +x_184 = lean_unsigned_to_nat(1u); +x_185 = lean_nat_add(x_10, x_184); +lean_dec(x_10); +x_186 = lean_nat_add(x_11, x_184); +lean_dec(x_11); +x_10 = x_185; +x_11 = x_186; +x_12 = x_180; +x_13 = x_182; +x_17 = x_183; +goto _start; +} +else +{ +uint8_t x_188; +lean_dec(x_180); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_188 = !lean_is_exclusive(x_181); +if (x_188 == 0) +{ +return x_181; +} +else +{ +lean_object* x_189; lean_object* x_190; lean_object* x_191; +x_189 = lean_ctor_get(x_181, 0); +x_190 = lean_ctor_get(x_181, 1); +lean_inc(x_190); +lean_inc(x_189); +lean_dec(x_181); +x_191 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_191, 0, x_189); +lean_ctor_set(x_191, 1, x_190); +return x_191; +} +} +} +} +else +{ +uint8_t x_192; +lean_dec(x_68); +lean_dec(x_65); +lean_dec(x_61); +lean_dec(x_19); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_192 = !lean_is_exclusive(x_153); +if (x_192 == 0) +{ +return x_153; +} +else +{ +lean_object* x_193; lean_object* x_194; lean_object* x_195; +x_193 = lean_ctor_get(x_153, 0); +x_194 = lean_ctor_get(x_153, 1); +lean_inc(x_194); +lean_inc(x_193); +lean_dec(x_153); +x_195 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_195, 0, x_193); +lean_ctor_set(x_195, 1, x_194); +return x_195; +} +} +} +} +block_147: +{ +lean_object* x_70; uint8_t 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; lean_object* x_80; lean_object* x_81; +lean_dec(x_69); +lean_inc(x_68); +x_70 = l___private_Lean_Meta_Tactic_Induction_1__getTargetArity___main(x_68); +x_71 = lean_nat_dec_lt(x_70, x_6); +x_72 = lean_nat_sub(x_70, x_6); +lean_dec(x_70); +x_73 = lean_array_get_size(x_4); +x_74 = lean_array_get_size(x_7); +x_75 = lean_nat_sub(x_73, x_74); +x_76 = lean_unsigned_to_nat(1u); +x_77 = lean_nat_sub(x_75, x_76); +lean_dec(x_75); +x_78 = lean_array_get_size(x_2); +x_79 = lean_nat_dec_lt(x_11, x_78); +lean_dec(x_78); +x_80 = l_Lean_Name_append___main(x_61, x_65); +lean_dec(x_61); +if (x_79 == 0) +{ +lean_object* x_145; +x_145 = lean_box(0); +x_81 = x_145; +goto block_144; +} +else +{ +lean_object* x_146; +x_146 = lean_array_fget(x_2, x_11); +x_81 = x_146; +goto block_144; +} +block_144: +{ +lean_object* x_82; +if (x_71 == 0) +{ +x_82 = x_64; +goto block_135; +} +else +{ +lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; uint8_t x_140; +lean_dec(x_81); +lean_dec(x_80); +lean_dec(x_77); +lean_dec(x_74); +lean_dec(x_73); +lean_dec(x_72); +lean_dec(x_68); +lean_dec(x_19); +lean_dec(x_15); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +x_136 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; +x_137 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; +x_138 = lean_box(0); +x_139 = l_Lean_Meta_throwTacticEx___rarg(x_136, x_1, x_137, x_138, x_16, x_64); +lean_dec(x_16); +x_140 = !lean_is_exclusive(x_139); +if (x_140 == 0) +{ +return x_139; +} +else +{ +lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_141 = lean_ctor_get(x_139, 0); +x_142 = lean_ctor_get(x_139, 1); +lean_inc(x_142); +lean_inc(x_141); +lean_dec(x_139); +x_143 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_143, 0, x_141); +lean_ctor_set(x_143, 1, x_142); +return x_143; +} +} +block_135: +{ +uint8_t x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_83 = 2; +lean_inc(x_16); +x_84 = l_Lean_Meta_mkFreshExprMVar(x_68, x_80, x_83, x_16, x_82); +x_85 = lean_ctor_get(x_84, 0); +lean_inc(x_85); +x_86 = lean_ctor_get(x_84, 1); +lean_inc(x_86); +lean_dec(x_84); +lean_inc(x_85); +x_87 = l_Lean_mkApp(x_12, x_85); +lean_inc(x_16); +lean_inc(x_1); +x_88 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_19, x_85, x_16, x_86); +if (lean_obj_tag(x_88) == 0) +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; +x_89 = lean_ctor_get(x_88, 0); +lean_inc(x_89); +x_90 = lean_ctor_get(x_88, 1); +lean_inc(x_90); +lean_dec(x_88); +x_91 = l_Lean_Expr_mvarId_x21(x_85); +lean_dec(x_85); +x_92 = l_Lean_Expr_fvarId_x21(x_5); +x_93 = l_Lean_Meta_tryClear(x_91, x_92, x_16, x_90); +if (lean_obj_tag(x_93) == 0) +{ +lean_object* x_94; lean_object* x_95; uint8_t x_96; lean_object* x_97; +x_94 = lean_ctor_get(x_93, 0); +lean_inc(x_94); +x_95 = lean_ctor_get(x_93, 1); +lean_inc(x_95); +lean_dec(x_93); +x_96 = 1; +x_97 = l_Lean_Meta_introN(x_94, x_72, x_81, x_96, x_16, x_95); +if (lean_obj_tag(x_97) == 0) +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; lean_object* x_104; +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_ctor_get(x_97, 1); +lean_inc(x_99); +lean_dec(x_97); +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_box(0); +x_103 = 0; +x_104 = l_Lean_Meta_introN(x_101, x_77, x_102, x_103, x_16, x_99); +if (lean_obj_tag(x_104) == 0) +{ +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; +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_ctor_get(x_105, 0); +lean_inc(x_107); +x_108 = lean_ctor_get(x_105, 1); +lean_inc(x_108); +lean_dec(x_105); +lean_inc(x_9); +lean_inc(x_73); +x_109 = l_Nat_foldAux___main___at___private_Lean_Meta_Tactic_Induction_4__finalizeAux___main___spec__1(x_4, x_7, x_74, x_107, x_73, x_73, x_9); +lean_dec(x_73); +lean_dec(x_107); +lean_dec(x_74); +x_110 = x_100; +x_111 = lean_unsigned_to_nat(0u); +x_112 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_111, x_110); +x_113 = x_112; +x_114 = lean_nat_add(x_10, x_76); +lean_dec(x_10); +x_115 = lean_nat_add(x_11, x_76); +lean_dec(x_11); +x_116 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_116, 0, x_108); +lean_ctor_set(x_116, 1, x_113); +lean_ctor_set(x_116, 2, x_109); +x_117 = lean_array_push(x_15, x_116); +x_10 = x_114; +x_11 = x_115; +x_12 = x_87; +x_13 = x_89; +x_15 = x_117; +x_17 = x_106; +goto _start; +} +else +{ +uint8_t x_119; +lean_dec(x_100); +lean_dec(x_89); +lean_dec(x_87); +lean_dec(x_74); +lean_dec(x_73); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_119 = !lean_is_exclusive(x_104); +if (x_119 == 0) +{ +return x_104; +} +else +{ +lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_120 = lean_ctor_get(x_104, 0); +x_121 = lean_ctor_get(x_104, 1); +lean_inc(x_121); +lean_inc(x_120); +lean_dec(x_104); +x_122 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_122, 0, x_120); +lean_ctor_set(x_122, 1, x_121); +return x_122; +} +} +} +else +{ +uint8_t x_123; +lean_dec(x_89); +lean_dec(x_87); +lean_dec(x_77); +lean_dec(x_74); +lean_dec(x_73); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_123 = !lean_is_exclusive(x_97); +if (x_123 == 0) +{ +return x_97; +} +else +{ +lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_124 = lean_ctor_get(x_97, 0); +x_125 = lean_ctor_get(x_97, 1); +lean_inc(x_125); +lean_inc(x_124); +lean_dec(x_97); +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_124); +lean_ctor_set(x_126, 1, x_125); +return x_126; +} +} +} +else +{ +uint8_t x_127; +lean_dec(x_89); +lean_dec(x_87); +lean_dec(x_81); +lean_dec(x_77); +lean_dec(x_74); +lean_dec(x_73); +lean_dec(x_72); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_127 = !lean_is_exclusive(x_93); +if (x_127 == 0) +{ +return x_93; +} +else +{ +lean_object* x_128; lean_object* x_129; lean_object* x_130; +x_128 = lean_ctor_get(x_93, 0); +x_129 = lean_ctor_get(x_93, 1); +lean_inc(x_129); +lean_inc(x_128); +lean_dec(x_93); +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_131; +lean_dec(x_87); +lean_dec(x_85); +lean_dec(x_81); +lean_dec(x_77); +lean_dec(x_74); +lean_dec(x_73); +lean_dec(x_72); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_131 = !lean_is_exclusive(x_88); +if (x_131 == 0) +{ +return x_88; +} +else +{ +lean_object* x_132; lean_object* x_133; lean_object* x_134; +x_132 = lean_ctor_get(x_88, 0); +x_133 = lean_ctor_get(x_88, 1); +lean_inc(x_133); +lean_inc(x_132); +lean_dec(x_88); +x_134 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_134, 0, x_132); +lean_ctor_set(x_134, 1, x_133); +return x_134; +} +} +} +} +} +} +else +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; +lean_dec(x_61); +lean_dec(x_19); +lean_dec(x_15); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_196 = l_Lean_Meta_isClassQuick___main___closed__1; +x_197 = l_unreachable_x21___rarg(x_196); +x_198 = lean_apply_2(x_197, x_16, x_64); +return x_198; +} +} +} +else +{ +uint8_t x_208; +lean_dec(x_19); +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_208 = !lean_is_exclusive(x_60); +if (x_208 == 0) +{ +return x_60; +} +else +{ +lean_object* x_209; lean_object* x_210; lean_object* x_211; +x_209 = lean_ctor_get(x_60, 0); +x_210 = lean_ctor_get(x_60, 1); +lean_inc(x_210); +lean_inc(x_209); +lean_dec(x_60); +x_211 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_211, 0, x_209); +lean_ctor_set(x_211, 1, x_210); +return x_211; +} +} +} +else +{ +lean_object* x_212; lean_object* x_213; lean_object* x_214; +x_212 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_212, 0, x_12); +lean_ctor_set(x_212, 1, x_19); +x_213 = lean_unsigned_to_nat(0u); +lean_inc(x_16); +lean_inc(x_1); +x_214 = l_Array_iterateMAux___main___at___private_Lean_Meta_Tactic_Induction_4__finalizeAux___main___spec__2(x_1, x_7, x_7, x_213, x_212, x_16, x_20); +if (lean_obj_tag(x_214) == 0) +{ +lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; +x_215 = lean_ctor_get(x_214, 0); +lean_inc(x_215); +x_216 = lean_ctor_get(x_214, 1); +lean_inc(x_216); +lean_dec(x_214); +x_217 = lean_ctor_get(x_215, 0); +lean_inc(x_217); +x_218 = lean_ctor_get(x_215, 1); +lean_inc(x_218); +lean_dec(x_215); +lean_inc(x_5); +x_219 = l_Lean_mkApp(x_217, x_5); +lean_inc(x_16); +lean_inc(x_1); +x_220 = l___private_Lean_Meta_Tactic_Induction_3__getTypeBody(x_1, x_218, x_5, x_16, x_216); +if (lean_obj_tag(x_220) == 0) +{ +lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; uint8_t x_227; +x_221 = lean_ctor_get(x_220, 0); +lean_inc(x_221); +x_222 = lean_ctor_get(x_220, 1); +lean_inc(x_222); +lean_dec(x_220); +x_223 = lean_unsigned_to_nat(1u); +x_224 = lean_nat_add(x_10, x_223); +lean_dec(x_10); +x_225 = lean_array_get_size(x_7); +x_226 = lean_nat_add(x_224, x_225); +lean_dec(x_225); +lean_dec(x_224); +x_227 = 1; +x_10 = x_226; +x_12 = x_219; +x_13 = x_221; +x_14 = x_227; +x_17 = x_222; +goto _start; +} +else +{ uint8_t x_229; +lean_dec(x_219); lean_dec(x_16); lean_dec(x_15); lean_dec(x_11); @@ -1810,19 +1788,19 @@ lean_dec(x_10); lean_dec(x_9); lean_dec(x_5); lean_dec(x_1); -x_229 = !lean_is_exclusive(x_210); +x_229 = !lean_is_exclusive(x_220); if (x_229 == 0) { -return x_210; +return x_220; } else { lean_object* x_230; lean_object* x_231; lean_object* x_232; -x_230 = lean_ctor_get(x_210, 0); -x_231 = lean_ctor_get(x_210, 1); +x_230 = lean_ctor_get(x_220, 0); +x_231 = lean_ctor_get(x_220, 1); lean_inc(x_231); lean_inc(x_230); -lean_dec(x_210); +lean_dec(x_220); x_232 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_232, 0, x_230); lean_ctor_set(x_232, 1, x_231); @@ -1830,37 +1808,67 @@ return x_232; } } } -} -} -} else { uint8_t x_233; lean_dec(x_16); lean_dec(x_15); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_1); +x_233 = !lean_is_exclusive(x_214); +if (x_233 == 0) +{ +return x_214; +} +else +{ +lean_object* x_234; lean_object* x_235; lean_object* x_236; +x_234 = lean_ctor_get(x_214, 0); +x_235 = lean_ctor_get(x_214, 1); +lean_inc(x_235); +lean_inc(x_234); +lean_dec(x_214); +x_236 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_236, 0, x_234); +lean_ctor_set(x_236, 1, x_235); +return x_236; +} +} +} +} +} +} +else +{ +uint8_t x_237; +lean_dec(x_16); +lean_dec(x_15); lean_dec(x_12); lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); lean_dec(x_5); lean_dec(x_1); -x_233 = !lean_is_exclusive(x_18); -if (x_233 == 0) +x_237 = !lean_is_exclusive(x_18); +if (x_237 == 0) { return x_18; } else { -lean_object* x_234; lean_object* x_235; lean_object* x_236; -x_234 = lean_ctor_get(x_18, 0); -x_235 = lean_ctor_get(x_18, 1); -lean_inc(x_235); -lean_inc(x_234); +lean_object* x_238; lean_object* x_239; lean_object* x_240; +x_238 = lean_ctor_get(x_18, 0); +x_239 = lean_ctor_get(x_18, 1); +lean_inc(x_239); +lean_inc(x_238); lean_dec(x_18); -x_236 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_236, 0, x_234); -lean_ctor_set(x_236, 1, x_235); -return x_236; +x_240 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_240, 0, x_238); +lean_ctor_set(x_240, 1, x_239); +return x_240; } } } @@ -2104,7 +2112,7 @@ return x_2; lean_object* l___private_Lean_Meta_Tactic_Induction_6__throwUnexpectedMajorType___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; x_5 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_5, 0, x_2); x_6 = l_Lean_indentExpr(x_5); @@ -2113,8 +2121,9 @@ x_8 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_8, 0, x_7); lean_ctor_set(x_8, 1, x_6); x_9 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__2; -x_10 = l_Lean_Meta_throwTacticEx___rarg(x_9, x_1, x_8, x_3, x_4); -return x_10; +x_10 = lean_box(0); +x_11 = l_Lean_Meta_throwTacticEx___rarg(x_9, x_1, x_8, x_10, x_3, x_4); +return x_11; } } lean_object* l___private_Lean_Meta_Tactic_Induction_6__throwUnexpectedMajorType(lean_object* x_1) { @@ -2203,7 +2212,7 @@ goto _start; } else { -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_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; x_18 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_18, 0, x_3); x_19 = l_Lean_indentExpr(x_18); @@ -2211,24 +2220,25 @@ x_20 = l_List_forM___main___at_Lean_Meta_induction___spec__1___closed__3; x_21 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_21, 0, x_20); lean_ctor_set(x_21, 1, x_19); -x_22 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_21, x_6, x_7); -x_23 = !lean_is_exclusive(x_22); -if (x_23 == 0) +x_22 = lean_box(0); +x_23 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_21, x_22, x_6, x_7); +x_24 = !lean_is_exclusive(x_23); +if (x_24 == 0) { -return x_22; +return x_23; } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_24 = lean_ctor_get(x_22, 0); -x_25 = lean_ctor_get(x_22, 1); +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_23, 0); +x_26 = lean_ctor_get(x_23, 1); +lean_inc(x_26); lean_inc(x_25); -lean_inc(x_24); -lean_dec(x_22); -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_24); -lean_ctor_set(x_26, 1, x_25); -return x_26; +lean_dec(x_23); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; } } } @@ -2370,221 +2380,223 @@ x_23 = lean_nat_dec_lt(x_19, x_8); x_24 = lean_nat_dec_lt(x_8, x_19); if (x_22 == 0) { +uint8_t x_110; +x_110 = lean_expr_eqv(x_21, x_9); +x_25 = x_110; +goto block_109; +} +else +{ +uint8_t x_111; +x_111 = 0; +x_25 = x_111; +goto block_109; +} +block_109: +{ +uint8_t x_26; +if (x_25 == 0) +{ uint8_t x_107; -x_107 = lean_expr_eqv(x_21, x_9); -x_25 = x_107; +x_107 = 0; +x_26 = x_107; goto block_106; } else { uint8_t x_108; -x_108 = 0; -x_25 = x_108; +x_108 = 1; +x_26 = x_108; goto block_106; } block_106: { -uint8_t x_26; -if (x_25 == 0) -{ -uint8_t x_104; -x_104 = 0; -x_26 = x_104; -goto block_103; -} -else -{ -uint8_t x_105; -x_105 = 1; -x_26 = x_105; -goto block_103; -} -block_103: -{ uint8_t x_27; if (x_23 == 0) { -uint8_t x_99; -x_99 = 0; -x_27 = x_99; -goto block_98; +uint8_t x_102; +x_102 = 0; +x_27 = x_102; +goto block_101; } else { -lean_object* x_100; lean_object* x_101; uint8_t x_102; -x_100 = l_Lean_Expr_fvarId_x21(x_9); +lean_object* x_103; lean_object* x_104; uint8_t x_105; +x_103 = l_Lean_Expr_fvarId_x21(x_9); lean_inc(x_21); lean_inc(x_6); -x_101 = l_Lean_MetavarContext_exprDependsOn(x_6, x_21, x_100); -lean_dec(x_100); -x_102 = lean_unbox(x_101); -lean_dec(x_101); -x_27 = x_102; -goto block_98; +x_104 = l_Lean_MetavarContext_exprDependsOn(x_6, x_21, x_103); +lean_dec(x_103); +x_105 = lean_unbox(x_104); +lean_dec(x_104); +x_27 = x_105; +goto block_101; } -block_98: +block_101: { uint8_t x_28; if (x_27 == 0) { -uint8_t x_96; -x_96 = 0; -x_28 = x_96; -goto block_95; +uint8_t x_99; +x_99 = 0; +x_28 = x_99; +goto block_98; } else { -uint8_t x_97; -x_97 = 1; -x_28 = x_97; -goto block_95; +uint8_t x_100; +x_100 = 1; +x_28 = x_100; +goto block_98; } -block_95: +block_98: { uint8_t x_29; if (x_24 == 0) { +uint8_t x_94; +x_94 = 0; +x_29 = x_94; +goto block_93; +} +else +{ +uint8_t x_95; +x_95 = l_List_elem___main___at_Lean_Meta_induction___spec__2(x_19, x_7); +if (x_95 == 0) +{ +uint8_t x_96; +x_96 = 0; +x_29 = x_96; +goto block_93; +} +else +{ +uint8_t x_97; +x_97 = l_Lean_Expr_isFVar(x_21); +x_29 = x_97; +goto block_93; +} +} +block_93: +{ +uint8_t x_30; +if (x_29 == 0) +{ uint8_t x_91; x_91 = 0; -x_29 = x_91; +x_30 = x_91; goto block_90; } else { uint8_t x_92; -x_92 = l_List_elem___main___at_Lean_Meta_induction___spec__2(x_19, x_7); -if (x_92 == 0) -{ -uint8_t x_93; -x_93 = 0; -x_29 = x_93; +x_92 = 1; +x_30 = x_92; goto block_90; } -else -{ -uint8_t x_94; -x_94 = l_Lean_Expr_isFVar(x_21); -x_29 = x_94; -goto block_90; -} -} block_90: { -uint8_t x_30; -if (x_29 == 0) -{ -uint8_t x_88; -x_88 = 0; -x_30 = x_88; -goto block_87; -} -else -{ -uint8_t x_89; -x_89 = 1; -x_30 = x_89; -goto block_87; -} -block_87: -{ lean_object* x_31; if (x_26 == 0) { if (x_28 == 0) { x_31 = x_13; -goto block_60; +goto block_61; } else { -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; uint8_t x_70; +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; uint8_t x_72; lean_dec(x_21); lean_dec(x_19); lean_dec(x_17); lean_dec(x_6); -x_61 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_61, 0, x_9); -x_62 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_63 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_61); -x_64 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__6; -x_65 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_65, 0, x_63); -lean_ctor_set(x_65, 1, x_64); -x_66 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_66, 0, x_4); -x_67 = l_Lean_indentExpr(x_66); -x_68 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_68, 0, x_65); -lean_ctor_set(x_68, 1, x_67); -x_69 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_68, x_12, x_13); +x_62 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_62, 0, x_9); +x_63 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; +x_64 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__6; +x_66 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_66, 0, x_64); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_67, 0, x_4); +x_68 = l_Lean_indentExpr(x_67); +x_69 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_69, 0, x_66); +lean_ctor_set(x_69, 1, x_68); +x_70 = lean_box(0); +x_71 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_69, x_70, x_12, x_13); lean_dec(x_12); -x_70 = !lean_is_exclusive(x_69); -if (x_70 == 0) +x_72 = !lean_is_exclusive(x_71); +if (x_72 == 0) { -return x_69; +return x_71; } else { -lean_object* x_71; lean_object* x_72; lean_object* x_73; -x_71 = lean_ctor_get(x_69, 0); -x_72 = lean_ctor_get(x_69, 1); -lean_inc(x_72); -lean_inc(x_71); -lean_dec(x_69); -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_71); -lean_ctor_set(x_73, 1, x_72); -return x_73; +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_71, 0); +x_74 = lean_ctor_get(x_71, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_71); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; } } } 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; uint8_t x_83; +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; uint8_t x_86; lean_dec(x_21); lean_dec(x_19); lean_dec(x_17); lean_dec(x_6); -x_74 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_74, 0, x_9); -x_75 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_76 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_76, 0, x_75); -lean_ctor_set(x_76, 1, x_74); -x_77 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__9; +x_76 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_76, 0, x_9); +x_77 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; x_78 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_78, 0, x_76); -lean_ctor_set(x_78, 1, x_77); -x_79 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_79, 0, x_4); -x_80 = l_Lean_indentExpr(x_79); -x_81 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_81, 0, x_78); -lean_ctor_set(x_81, 1, x_80); -x_82 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_81, x_12, x_13); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +x_79 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__9; +x_80 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_80, 0, x_78); +lean_ctor_set(x_80, 1, x_79); +x_81 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_81, 0, x_4); +x_82 = l_Lean_indentExpr(x_81); +x_83 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_83, 0, x_80); +lean_ctor_set(x_83, 1, x_82); +x_84 = lean_box(0); +x_85 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_83, x_84, x_12, x_13); lean_dec(x_12); -x_83 = !lean_is_exclusive(x_82); -if (x_83 == 0) +x_86 = !lean_is_exclusive(x_85); +if (x_86 == 0) { -return x_82; +return x_85; } else { -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_82, 0); -x_85 = lean_ctor_get(x_82, 1); -lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_82); -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; +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_85, 0); +x_88 = lean_ctor_get(x_85, 1); +lean_inc(x_88); +lean_inc(x_87); +lean_dec(x_85); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_87); +lean_ctor_set(x_89, 1, x_88); +return x_89; } } -block_60: +block_61: { if (x_30 == 0) { @@ -2624,7 +2636,7 @@ goto _start; } else { -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; uint8_t x_52; +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; uint8_t x_53; lean_dec(x_17); lean_dec(x_6); lean_dec(x_4); @@ -2648,31 +2660,32 @@ lean_ctor_set(x_49, 0, x_48); x_50 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_50, 0, x_45); lean_ctor_set(x_50, 1, x_49); -x_51 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_50, x_12, x_36); +x_51 = lean_box(0); +x_52 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_50, x_51, x_12, x_36); lean_dec(x_12); -x_52 = !lean_is_exclusive(x_51); -if (x_52 == 0) +x_53 = !lean_is_exclusive(x_52); +if (x_53 == 0) { -return x_51; +return x_52; } else { -lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_53 = lean_ctor_get(x_51, 0); -x_54 = lean_ctor_get(x_51, 1); +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_52, 0); +x_55 = lean_ctor_get(x_52, 1); +lean_inc(x_55); lean_inc(x_54); -lean_inc(x_53); -lean_dec(x_51); -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; +lean_dec(x_52); +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_56; +uint8_t x_57; lean_dec(x_21); lean_dec(x_19); lean_dec(x_17); @@ -2682,23 +2695,23 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_56 = !lean_is_exclusive(x_34); -if (x_56 == 0) +x_57 = !lean_is_exclusive(x_34); +if (x_57 == 0) { return x_34; } else { -lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_57 = lean_ctor_get(x_34, 0); -x_58 = lean_ctor_get(x_34, 1); +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_34, 0); +x_59 = lean_ctor_get(x_34, 1); +lean_inc(x_59); lean_inc(x_58); -lean_inc(x_57); lean_dec(x_34); -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_57); -lean_ctor_set(x_59, 1, x_58); -return x_59; +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; } } } @@ -2712,7 +2725,7 @@ return x_59; } else { -lean_object* x_109; lean_object* x_110; +lean_object* x_112; lean_object* x_113; lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); @@ -2720,11 +2733,11 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_109 = lean_box(0); -x_110 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_13); -return x_110; +x_112 = lean_box(0); +x_113 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_13); +return x_113; } } } @@ -2750,221 +2763,223 @@ x_23 = lean_nat_dec_lt(x_19, x_8); x_24 = lean_nat_dec_lt(x_8, x_19); if (x_22 == 0) { +uint8_t x_110; +x_110 = lean_expr_eqv(x_21, x_9); +x_25 = x_110; +goto block_109; +} +else +{ +uint8_t x_111; +x_111 = 0; +x_25 = x_111; +goto block_109; +} +block_109: +{ +uint8_t x_26; +if (x_25 == 0) +{ uint8_t x_107; -x_107 = lean_expr_eqv(x_21, x_9); -x_25 = x_107; +x_107 = 0; +x_26 = x_107; goto block_106; } else { uint8_t x_108; -x_108 = 0; -x_25 = x_108; +x_108 = 1; +x_26 = x_108; goto block_106; } block_106: { -uint8_t x_26; -if (x_25 == 0) -{ -uint8_t x_104; -x_104 = 0; -x_26 = x_104; -goto block_103; -} -else -{ -uint8_t x_105; -x_105 = 1; -x_26 = x_105; -goto block_103; -} -block_103: -{ uint8_t x_27; if (x_23 == 0) { -uint8_t x_99; -x_99 = 0; -x_27 = x_99; -goto block_98; +uint8_t x_102; +x_102 = 0; +x_27 = x_102; +goto block_101; } else { -lean_object* x_100; lean_object* x_101; uint8_t x_102; -x_100 = l_Lean_Expr_fvarId_x21(x_9); +lean_object* x_103; lean_object* x_104; uint8_t x_105; +x_103 = l_Lean_Expr_fvarId_x21(x_9); lean_inc(x_21); lean_inc(x_6); -x_101 = l_Lean_MetavarContext_exprDependsOn(x_6, x_21, x_100); -lean_dec(x_100); -x_102 = lean_unbox(x_101); -lean_dec(x_101); -x_27 = x_102; -goto block_98; +x_104 = l_Lean_MetavarContext_exprDependsOn(x_6, x_21, x_103); +lean_dec(x_103); +x_105 = lean_unbox(x_104); +lean_dec(x_104); +x_27 = x_105; +goto block_101; } -block_98: +block_101: { uint8_t x_28; if (x_27 == 0) { -uint8_t x_96; -x_96 = 0; -x_28 = x_96; -goto block_95; +uint8_t x_99; +x_99 = 0; +x_28 = x_99; +goto block_98; } else { -uint8_t x_97; -x_97 = 1; -x_28 = x_97; -goto block_95; +uint8_t x_100; +x_100 = 1; +x_28 = x_100; +goto block_98; } -block_95: +block_98: { uint8_t x_29; if (x_24 == 0) { +uint8_t x_94; +x_94 = 0; +x_29 = x_94; +goto block_93; +} +else +{ +uint8_t x_95; +x_95 = l_List_elem___main___at_Lean_Meta_induction___spec__2(x_19, x_7); +if (x_95 == 0) +{ +uint8_t x_96; +x_96 = 0; +x_29 = x_96; +goto block_93; +} +else +{ +uint8_t x_97; +x_97 = l_Lean_Expr_isFVar(x_21); +x_29 = x_97; +goto block_93; +} +} +block_93: +{ +uint8_t x_30; +if (x_29 == 0) +{ uint8_t x_91; x_91 = 0; -x_29 = x_91; +x_30 = x_91; goto block_90; } else { uint8_t x_92; -x_92 = l_List_elem___main___at_Lean_Meta_induction___spec__2(x_19, x_7); -if (x_92 == 0) -{ -uint8_t x_93; -x_93 = 0; -x_29 = x_93; +x_92 = 1; +x_30 = x_92; goto block_90; } -else -{ -uint8_t x_94; -x_94 = l_Lean_Expr_isFVar(x_21); -x_29 = x_94; -goto block_90; -} -} block_90: { -uint8_t x_30; -if (x_29 == 0) -{ -uint8_t x_88; -x_88 = 0; -x_30 = x_88; -goto block_87; -} -else -{ -uint8_t x_89; -x_89 = 1; -x_30 = x_89; -goto block_87; -} -block_87: -{ lean_object* x_31; if (x_26 == 0) { if (x_28 == 0) { x_31 = x_13; -goto block_60; +goto block_61; } else { -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; uint8_t x_70; +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; uint8_t x_72; lean_dec(x_21); lean_dec(x_19); lean_dec(x_17); lean_dec(x_6); -x_61 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_61, 0, x_9); -x_62 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_63 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_61); -x_64 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__6; -x_65 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_65, 0, x_63); -lean_ctor_set(x_65, 1, x_64); -x_66 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_66, 0, x_4); -x_67 = l_Lean_indentExpr(x_66); -x_68 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_68, 0, x_65); -lean_ctor_set(x_68, 1, x_67); -x_69 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_68, x_12, x_13); +x_62 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_62, 0, x_9); +x_63 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; +x_64 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__6; +x_66 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_66, 0, x_64); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_67, 0, x_4); +x_68 = l_Lean_indentExpr(x_67); +x_69 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_69, 0, x_66); +lean_ctor_set(x_69, 1, x_68); +x_70 = lean_box(0); +x_71 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_69, x_70, x_12, x_13); lean_dec(x_12); -x_70 = !lean_is_exclusive(x_69); -if (x_70 == 0) +x_72 = !lean_is_exclusive(x_71); +if (x_72 == 0) { -return x_69; +return x_71; } else { -lean_object* x_71; lean_object* x_72; lean_object* x_73; -x_71 = lean_ctor_get(x_69, 0); -x_72 = lean_ctor_get(x_69, 1); -lean_inc(x_72); -lean_inc(x_71); -lean_dec(x_69); -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_71); -lean_ctor_set(x_73, 1, x_72); -return x_73; +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_71, 0); +x_74 = lean_ctor_get(x_71, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_71); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; } } } 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; uint8_t x_83; +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; uint8_t x_86; lean_dec(x_21); lean_dec(x_19); lean_dec(x_17); lean_dec(x_6); -x_74 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_74, 0, x_9); -x_75 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_76 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_76, 0, x_75); -lean_ctor_set(x_76, 1, x_74); -x_77 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__9; +x_76 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_76, 0, x_9); +x_77 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; x_78 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_78, 0, x_76); -lean_ctor_set(x_78, 1, x_77); -x_79 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_79, 0, x_4); -x_80 = l_Lean_indentExpr(x_79); -x_81 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_81, 0, x_78); -lean_ctor_set(x_81, 1, x_80); -x_82 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_81, x_12, x_13); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +x_79 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__9; +x_80 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_80, 0, x_78); +lean_ctor_set(x_80, 1, x_79); +x_81 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_81, 0, x_4); +x_82 = l_Lean_indentExpr(x_81); +x_83 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_83, 0, x_80); +lean_ctor_set(x_83, 1, x_82); +x_84 = lean_box(0); +x_85 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_83, x_84, x_12, x_13); lean_dec(x_12); -x_83 = !lean_is_exclusive(x_82); -if (x_83 == 0) +x_86 = !lean_is_exclusive(x_85); +if (x_86 == 0) { -return x_82; +return x_85; } else { -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_82, 0); -x_85 = lean_ctor_get(x_82, 1); -lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_82); -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; +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_85, 0); +x_88 = lean_ctor_get(x_85, 1); +lean_inc(x_88); +lean_inc(x_87); +lean_dec(x_85); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_87); +lean_ctor_set(x_89, 1, x_88); +return x_89; } } -block_60: +block_61: { if (x_30 == 0) { @@ -3004,7 +3019,7 @@ goto _start; } else { -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; uint8_t x_52; +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; uint8_t x_53; lean_dec(x_17); lean_dec(x_6); lean_dec(x_4); @@ -3028,31 +3043,32 @@ lean_ctor_set(x_49, 0, x_48); x_50 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_50, 0, x_45); lean_ctor_set(x_50, 1, x_49); -x_51 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_50, x_12, x_36); +x_51 = lean_box(0); +x_52 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_50, x_51, x_12, x_36); lean_dec(x_12); -x_52 = !lean_is_exclusive(x_51); -if (x_52 == 0) +x_53 = !lean_is_exclusive(x_52); +if (x_53 == 0) { -return x_51; +return x_52; } else { -lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_53 = lean_ctor_get(x_51, 0); -x_54 = lean_ctor_get(x_51, 1); +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_52, 0); +x_55 = lean_ctor_get(x_52, 1); +lean_inc(x_55); lean_inc(x_54); -lean_inc(x_53); -lean_dec(x_51); -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; +lean_dec(x_52); +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_56; +uint8_t x_57; lean_dec(x_21); lean_dec(x_19); lean_dec(x_17); @@ -3062,23 +3078,23 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_56 = !lean_is_exclusive(x_34); -if (x_56 == 0) +x_57 = !lean_is_exclusive(x_34); +if (x_57 == 0) { return x_34; } else { -lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_57 = lean_ctor_get(x_34, 0); -x_58 = lean_ctor_get(x_34, 1); +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_34, 0); +x_59 = lean_ctor_get(x_34, 1); +lean_inc(x_59); lean_inc(x_58); -lean_inc(x_57); lean_dec(x_34); -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_57); -lean_ctor_set(x_59, 1, x_58); -return x_59; +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; } } } @@ -3092,7 +3108,7 @@ return x_59; } else { -lean_object* x_109; lean_object* x_110; +lean_object* x_112; lean_object* x_113; lean_dec(x_12); lean_dec(x_11); lean_dec(x_9); @@ -3100,11 +3116,11 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_109 = lean_box(0); -x_110 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_13); -return x_110; +x_112 = lean_box(0); +x_113 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_13); +return x_113; } } } @@ -3200,68 +3216,69 @@ x_23 = lean_array_get(x_22, x_5, x_19); x_24 = l_Lean_Expr_isFVar(x_23); if (x_24 == 0) { -uint8_t x_62; -x_62 = 0; -x_25 = x_62; -goto block_61; +uint8_t x_64; +x_64 = 0; +x_25 = x_64; +goto block_63; } else { -uint8_t x_63; -x_63 = 1; -x_25 = x_63; -goto block_61; +uint8_t x_65; +x_65 = 1; +x_25 = x_65; +goto block_63; } -block_61: +block_63: { lean_object* x_26; if (x_21 == 0) { x_26 = x_11; -goto block_51; +goto block_52; } else { -lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; +lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; uint8_t x_59; lean_dec(x_23); lean_dec(x_20); lean_dec(x_19); lean_dec(x_18); lean_dec(x_8); lean_dec(x_6); -x_52 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_52, 0, x_4); -x_53 = l_Lean_indentExpr(x_52); -x_54 = l_List_forM___main___at_Lean_Meta_induction___spec__1___closed__3; -x_55 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_55, 0, x_54); -lean_ctor_set(x_55, 1, x_53); -x_56 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_55, x_10, x_11); +x_53 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_53, 0, x_4); +x_54 = l_Lean_indentExpr(x_53); +x_55 = l_List_forM___main___at_Lean_Meta_induction___spec__1___closed__3; +x_56 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_54); +x_57 = lean_box(0); +x_58 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_56, x_57, x_10, x_11); lean_dec(x_10); -x_57 = !lean_is_exclusive(x_56); -if (x_57 == 0) +x_59 = !lean_is_exclusive(x_58); +if (x_59 == 0) { -return x_56; +return x_58; } else { -lean_object* x_58; lean_object* x_59; lean_object* x_60; -x_58 = lean_ctor_get(x_56, 0); -x_59 = lean_ctor_get(x_56, 1); -lean_inc(x_59); -lean_inc(x_58); -lean_dec(x_56); -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; +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_58, 0); +x_61 = lean_ctor_get(x_58, 1); +lean_inc(x_61); +lean_inc(x_60); +lean_dec(x_58); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +return x_62; } } -block_51: +block_52: { if (x_25 == 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; uint8_t x_36; +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; uint8_t x_37; lean_dec(x_20); lean_dec(x_19); lean_dec(x_18); @@ -3283,30 +3300,31 @@ x_33 = l_Lean_indentExpr(x_32); x_34 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_34, 0, x_31); lean_ctor_set(x_34, 1, x_33); -x_35 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_34, x_10, x_26); +x_35 = lean_box(0); +x_36 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_34, x_35, x_10, x_26); lean_dec(x_10); -x_36 = !lean_is_exclusive(x_35); -if (x_36 == 0) +x_37 = !lean_is_exclusive(x_36); +if (x_37 == 0) { -return x_35; +return x_36; } else { -lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_37 = lean_ctor_get(x_35, 0); -x_38 = lean_ctor_get(x_35, 1); +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_36, 0); +x_39 = lean_ctor_get(x_36, 1); +lean_inc(x_39); lean_inc(x_38); -lean_inc(x_37); -lean_dec(x_35); -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_37); -lean_ctor_set(x_39, 1, x_38); -return x_39; +lean_dec(x_36); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; } } else { -lean_object* x_40; +lean_object* x_41; lean_inc(x_10); lean_inc(x_20); lean_inc(x_23); @@ -3314,28 +3332,28 @@ lean_inc(x_6); lean_inc(x_4); lean_inc(x_2); lean_inc(x_1); -x_40 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__4(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_19, x_23, x_20, x_20, x_10, x_26); +x_41 = l_Nat_forMAux___main___at_Lean_Meta_induction___spec__4(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_19, x_23, x_20, x_20, x_10, x_26); lean_dec(x_20); lean_dec(x_19); -if (lean_obj_tag(x_40) == 0) +if (lean_obj_tag(x_41) == 0) { -lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_41 = lean_ctor_get(x_40, 1); -lean_inc(x_41); -lean_dec(x_40); -x_42 = lean_unsigned_to_nat(1u); -x_43 = lean_nat_add(x_8, x_42); -x_44 = x_23; -x_45 = lean_array_fset(x_18, x_8, x_44); +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_42 = lean_ctor_get(x_41, 1); +lean_inc(x_42); +lean_dec(x_41); +x_43 = lean_unsigned_to_nat(1u); +x_44 = lean_nat_add(x_8, x_43); +x_45 = x_23; +x_46 = lean_array_fset(x_18, x_8, x_45); lean_dec(x_8); -x_8 = x_43; -x_9 = x_45; -x_11 = x_41; +x_8 = x_44; +x_9 = x_46; +x_11 = x_42; goto _start; } else { -uint8_t x_47; +uint8_t x_48; lean_dec(x_23); lean_dec(x_18); lean_dec(x_10); @@ -3344,23 +3362,23 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_47 = !lean_is_exclusive(x_40); -if (x_47 == 0) +x_48 = !lean_is_exclusive(x_41); +if (x_48 == 0) { -return x_40; +return x_41; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; -x_48 = lean_ctor_get(x_40, 0); -x_49 = lean_ctor_get(x_40, 1); +lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_49 = lean_ctor_get(x_41, 0); +x_50 = lean_ctor_get(x_41, 1); +lean_inc(x_50); lean_inc(x_49); -lean_inc(x_48); -lean_dec(x_40); -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_48); -lean_ctor_set(x_50, 1, x_49); -return x_50; +lean_dec(x_41); +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_49); +lean_ctor_set(x_51, 1, x_50); +return x_51; } } } @@ -3481,83 +3499,85 @@ goto _start; } else { -lean_object* x_36; lean_object* x_37; uint8_t x_38; +lean_object* x_36; lean_object* x_37; lean_object* x_38; uint8_t x_39; lean_dec(x_5); lean_dec(x_3); x_36 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_37 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_36, x_7, x_8); -x_38 = !lean_is_exclusive(x_37); -if (x_38 == 0) +x_37 = lean_box(0); +x_38 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_36, x_37, x_7, x_8); +x_39 = !lean_is_exclusive(x_38); +if (x_39 == 0) { -return x_37; +return x_38; } else { -lean_object* x_39; lean_object* x_40; lean_object* x_41; -x_39 = lean_ctor_get(x_37, 0); -x_40 = lean_ctor_get(x_37, 1); +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_38, 0); +x_41 = lean_ctor_get(x_38, 1); +lean_inc(x_41); lean_inc(x_40); -lean_inc(x_39); -lean_dec(x_37); -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; +lean_dec(x_38); +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 { -lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_42 = lean_ctor_get(x_6, 1); -x_43 = lean_ctor_get(x_5, 0); -x_44 = lean_ctor_get(x_5, 1); +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; uint8_t x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_43 = lean_ctor_get(x_6, 1); +x_44 = lean_ctor_get(x_5, 0); +x_45 = lean_ctor_get(x_5, 1); +lean_inc(x_45); lean_inc(x_44); -lean_inc(x_43); lean_dec(x_5); -x_45 = lean_ctor_get(x_10, 0); -x_46 = lean_array_get_size(x_4); -x_47 = lean_nat_dec_le(x_46, x_45); -lean_dec(x_46); -x_48 = l_Lean_Level_Inhabited; -x_49 = lean_array_get(x_48, x_4, x_45); -x_50 = lean_array_push(x_43, x_49); -x_51 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_44); -if (x_47 == 0) +x_46 = lean_ctor_get(x_10, 0); +x_47 = lean_array_get_size(x_4); +x_48 = lean_nat_dec_le(x_47, x_46); +lean_dec(x_47); +x_49 = l_Lean_Level_Inhabited; +x_50 = lean_array_get(x_49, x_4, x_46); +x_51 = lean_array_push(x_44, x_50); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_45); +if (x_48 == 0) { -x_5 = x_51; -x_6 = x_42; +x_5 = x_52; +x_6 = x_43; goto _start; } else { -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_dec(x_51); +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_dec(x_52); lean_dec(x_3); -x_53 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; -x_54 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_53, x_7, x_8); -x_55 = lean_ctor_get(x_54, 0); -lean_inc(x_55); -x_56 = lean_ctor_get(x_54, 1); -lean_inc(x_56); -if (lean_is_exclusive(x_54)) { - lean_ctor_release(x_54, 0); - lean_ctor_release(x_54, 1); - x_57 = x_54; +x_54 = l___private_Lean_Meta_Tactic_Induction_2__addRecParams___main___closed__5; +x_55 = lean_box(0); +x_56 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_54, x_55, x_7, x_8); +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_56, 1); +lean_inc(x_58); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + lean_ctor_release(x_56, 1); + x_59 = x_56; } else { - lean_dec_ref(x_54); - x_57 = lean_box(0); + lean_dec_ref(x_56); + x_59 = lean_box(0); } -if (lean_is_scalar(x_57)) { - x_58 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_59)) { + x_60 = lean_alloc_ctor(1, 2, 0); } else { - x_58 = x_57; + x_60 = x_59; } -lean_ctor_set(x_58, 0, x_55); -lean_ctor_set(x_58, 1, x_56); -return x_58; +lean_ctor_set(x_60, 0, x_57); +lean_ctor_set(x_60, 1, x_58); +return x_60; } } } @@ -3672,7 +3692,7 @@ x_25 = l_List_foldlM___main___at_Lean_Meta_induction___spec__7(x_3, x_8, x_13, x lean_dec(x_22); if (lean_obj_tag(x_25) == 0) { -lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; uint8_t x_84; +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; uint8_t x_85; x_26 = lean_ctor_get(x_25, 0); lean_inc(x_26); x_27 = lean_ctor_get(x_25, 1); @@ -3687,54 +3707,54 @@ x_30 = l_Array_toList___rarg(x_28); lean_dec(x_28); lean_inc(x_1); x_31 = l_Lean_mkConst(x_1, x_30); -x_84 = lean_unbox(x_29); +x_85 = lean_unbox(x_29); lean_dec(x_29); -if (x_84 == 0) -{ -uint8_t x_85; -x_85 = l_Lean_Level_isZero(x_13); -lean_dec(x_13); if (x_85 == 0) { uint8_t x_86; -x_86 = 1; -x_32 = x_86; -goto block_83; -} -else +x_86 = l_Lean_Level_isZero(x_13); +lean_dec(x_13); +if (x_86 == 0) { uint8_t x_87; -x_87 = 0; +x_87 = 1; x_32 = x_87; -goto block_83; -} +goto block_84; } else { uint8_t x_88; -lean_dec(x_13); x_88 = 0; x_32 = x_88; -goto block_83; +goto block_84; } -block_83: +} +else +{ +uint8_t x_89; +lean_dec(x_13); +x_89 = 0; +x_32 = x_89; +goto block_84; +} +block_84: { uint8_t x_33; if (x_32 == 0) { -uint8_t x_81; -x_81 = 0; -x_33 = x_81; -goto block_80; +uint8_t x_82; +x_82 = 0; +x_33 = x_82; +goto block_81; } else { -uint8_t x_82; -x_82 = 1; -x_33 = x_82; -goto block_80; +uint8_t x_83; +x_83 = 1; +x_33 = x_83; +goto block_81; } -block_80: +block_81: { if (x_33 == 0) { @@ -3927,7 +3947,7 @@ return x_69; } 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; uint8_t x_76; +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; uint8_t x_77; lean_dec(x_31); lean_dec(x_15); lean_dec(x_12); @@ -3944,25 +3964,26 @@ x_73 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed x_74 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_74, 0, x_72); lean_ctor_set(x_74, 1, x_73); -x_75 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_8, x_74, x_17, x_27); +x_75 = lean_box(0); +x_76 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_8, x_74, x_75, x_17, x_27); lean_dec(x_17); -x_76 = !lean_is_exclusive(x_75); -if (x_76 == 0) +x_77 = !lean_is_exclusive(x_76); +if (x_77 == 0) { -return x_75; +return x_76; } else { -lean_object* x_77; lean_object* x_78; lean_object* x_79; -x_77 = lean_ctor_get(x_75, 0); -x_78 = lean_ctor_get(x_75, 1); +lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_78 = lean_ctor_get(x_76, 0); +x_79 = lean_ctor_get(x_76, 1); +lean_inc(x_79); lean_inc(x_78); -lean_inc(x_77); -lean_dec(x_75); -x_79 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_79, 0, x_77); -lean_ctor_set(x_79, 1, x_78); -return x_79; +lean_dec(x_76); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_78); +lean_ctor_set(x_80, 1, x_79); +return x_80; } } } @@ -3970,7 +3991,7 @@ return x_79; } else { -uint8_t x_89; +uint8_t x_90; lean_dec(x_17); lean_dec(x_15); lean_dec(x_13); @@ -3981,46 +4002,46 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_3); lean_dec(x_1); -x_89 = !lean_is_exclusive(x_25); -if (x_89 == 0) +x_90 = !lean_is_exclusive(x_25); +if (x_90 == 0) { return x_25; } else { -lean_object* x_90; lean_object* x_91; lean_object* x_92; -x_90 = lean_ctor_get(x_25, 0); -x_91 = lean_ctor_get(x_25, 1); +lean_object* x_91; lean_object* x_92; lean_object* x_93; +x_91 = lean_ctor_get(x_25, 0); +x_92 = lean_ctor_get(x_25, 1); +lean_inc(x_92); lean_inc(x_91); -lean_inc(x_90); lean_dec(x_25); -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; +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_91); +lean_ctor_set(x_93, 1, x_92); +return x_93; } } } case 5: { -lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; -x_93 = lean_ctor_get(x_14, 0); -lean_inc(x_93); -x_94 = lean_ctor_get(x_14, 1); +lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_94 = lean_ctor_get(x_14, 0); lean_inc(x_94); +x_95 = lean_ctor_get(x_14, 1); +lean_inc(x_95); lean_dec(x_14); -x_95 = lean_array_set(x_15, x_16, x_94); -x_96 = lean_unsigned_to_nat(1u); -x_97 = lean_nat_sub(x_16, x_96); +x_96 = lean_array_set(x_15, x_16, x_95); +x_97 = lean_unsigned_to_nat(1u); +x_98 = lean_nat_sub(x_16, x_97); lean_dec(x_16); -x_14 = x_93; -x_15 = x_95; -x_16 = x_97; +x_14 = x_94; +x_15 = x_96; +x_16 = x_98; goto _start; } default: { -lean_object* x_99; lean_object* x_100; +lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_dec(x_16); lean_dec(x_15); lean_dec(x_14); @@ -4030,10 +4051,11 @@ lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); lean_dec(x_1); -x_99 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__3; -x_100 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_8, x_99, x_17, x_18); +x_100 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__3; +x_101 = lean_box(0); +x_102 = l_Lean_Meta_throwTacticEx___rarg(x_3, x_8, x_100, x_101, x_17, x_18); lean_dec(x_17); -return x_100; +return x_102; } } } @@ -4376,7 +4398,7 @@ goto block_116; } else { -lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; uint8_t x_125; +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; uint8_t x_126; lean_dec(x_37); lean_dec(x_28); lean_dec(x_15); @@ -4393,25 +4415,26 @@ x_122 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___close x_123 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_123, 0, x_121); lean_ctor_set(x_123, 1, x_122); -x_124 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_123, x_13, x_32); +x_124 = lean_box(0); +x_125 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_123, x_124, x_13, x_32); lean_dec(x_13); -x_125 = !lean_is_exclusive(x_124); -if (x_125 == 0) +x_126 = !lean_is_exclusive(x_125); +if (x_126 == 0) { -return x_124; +return x_125; } else { -lean_object* x_126; lean_object* x_127; lean_object* x_128; -x_126 = lean_ctor_get(x_124, 0); -x_127 = lean_ctor_get(x_124, 1); +lean_object* x_127; lean_object* x_128; lean_object* x_129; +x_127 = lean_ctor_get(x_125, 0); +x_128 = lean_ctor_get(x_125, 1); +lean_inc(x_128); lean_inc(x_127); -lean_inc(x_126); -lean_dec(x_124); -x_128 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_128, 0, x_126); -lean_ctor_set(x_128, 1, x_127); -return x_128; +lean_dec(x_125); +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; } } } @@ -4444,7 +4467,7 @@ lean_dec(x_41); x_45 = lean_array_get_size(x_28); x_46 = lean_box(0); x_47 = 0; -x_48 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_47, x_44, x_45, x_46, x_13, x_42); +x_48 = l_Lean_Meta_introN(x_44, x_45, x_46, x_47, x_13, x_42); if (lean_obj_tag(x_48) == 0) { lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; @@ -4735,7 +4758,7 @@ return x_115; } else { -uint8_t x_129; +uint8_t x_130; lean_dec(x_28); lean_dec(x_18); lean_dec(x_15); @@ -4747,29 +4770,29 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_129 = !lean_is_exclusive(x_30); -if (x_129 == 0) +x_130 = !lean_is_exclusive(x_30); +if (x_130 == 0) { return x_30; } else { -lean_object* x_130; lean_object* x_131; lean_object* x_132; -x_130 = lean_ctor_get(x_30, 0); -x_131 = lean_ctor_get(x_30, 1); +lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_131 = lean_ctor_get(x_30, 0); +x_132 = lean_ctor_get(x_30, 1); +lean_inc(x_132); lean_inc(x_131); -lean_inc(x_130); lean_dec(x_30); -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_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_131); +lean_ctor_set(x_133, 1, x_132); +return x_133; } } } else { -uint8_t x_133; +uint8_t x_134; lean_dec(x_18); lean_dec(x_15); lean_dec(x_13); @@ -4780,29 +4803,29 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_133 = !lean_is_exclusive(x_27); -if (x_133 == 0) +x_134 = !lean_is_exclusive(x_27); +if (x_134 == 0) { return x_27; } else { -lean_object* x_134; lean_object* x_135; lean_object* x_136; -x_134 = lean_ctor_get(x_27, 0); -x_135 = lean_ctor_get(x_27, 1); +lean_object* x_135; lean_object* x_136; lean_object* x_137; +x_135 = lean_ctor_get(x_27, 0); +x_136 = lean_ctor_get(x_27, 1); +lean_inc(x_136); lean_inc(x_135); -lean_inc(x_134); lean_dec(x_27); -x_136 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_136, 0, x_134); -lean_ctor_set(x_136, 1, x_135); -return x_136; +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_135); +lean_ctor_set(x_137, 1, x_136); +return x_137; } } } else { -uint8_t x_137; +uint8_t x_138; lean_dec(x_15); lean_dec(x_13); lean_dec(x_11); @@ -4814,365 +4837,366 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_137 = !lean_is_exclusive(x_16); -if (x_137 == 0) +x_138 = !lean_is_exclusive(x_16); +if (x_138 == 0) { return x_16; } else { -lean_object* x_138; lean_object* x_139; lean_object* x_140; -x_138 = lean_ctor_get(x_16, 0); -x_139 = lean_ctor_get(x_16, 1); +lean_object* x_139; lean_object* x_140; lean_object* x_141; +x_139 = lean_ctor_get(x_16, 0); +x_140 = lean_ctor_get(x_16, 1); +lean_inc(x_140); lean_inc(x_139); -lean_inc(x_138); lean_dec(x_16); -x_140 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_140, 0, x_138); -lean_ctor_set(x_140, 1, x_139); -return x_140; +x_141 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_141, 0, x_139); +lean_ctor_set(x_141, 1, x_140); +return x_141; } } } case 1: { -lean_object* x_141; lean_object* x_142; +lean_object* x_142; lean_object* x_143; lean_dec(x_12); lean_dec(x_10); -x_141 = lean_ctor_get(x_7, 5); -lean_inc(x_141); +x_142 = lean_ctor_get(x_7, 5); +lean_inc(x_142); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_142 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_141, x_13, x_14); -if (lean_obj_tag(x_142) == 0) +x_143 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_142, x_13, x_14); +if (lean_obj_tag(x_143) == 0) { -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; -x_143 = lean_ctor_get(x_142, 1); -lean_inc(x_143); -lean_dec(x_142); +lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; x_144 = lean_ctor_get(x_143, 1); lean_inc(x_144); -x_145 = lean_ctor_get(x_7, 6); +lean_dec(x_143); +x_145 = lean_ctor_get(x_144, 1); lean_inc(x_145); -x_146 = l_List_redLength___main___rarg(x_145); -x_147 = lean_mk_empty_array_with_capacity(x_146); -lean_dec(x_146); +x_146 = lean_ctor_get(x_7, 6); +lean_inc(x_146); +x_147 = l_List_redLength___main___rarg(x_146); +x_148 = lean_mk_empty_array_with_capacity(x_147); +lean_dec(x_147); +lean_inc(x_146); +x_149 = l_List_toArrayAux___main___rarg(x_146, x_148); +x_150 = x_149; +x_151 = lean_unsigned_to_nat(0u); lean_inc(x_145); -x_148 = l_List_toArrayAux___main___rarg(x_145, x_147); -x_149 = x_148; -x_150 = lean_unsigned_to_nat(0u); -lean_inc(x_144); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_151 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_151, 0, x_1); -lean_closure_set(x_151, 1, x_6); -lean_closure_set(x_151, 2, x_7); -lean_closure_set(x_151, 3, x_9); -lean_closure_set(x_151, 4, x_11); -lean_closure_set(x_151, 5, x_144); -lean_closure_set(x_151, 6, x_145); -lean_closure_set(x_151, 7, x_150); -lean_closure_set(x_151, 8, x_149); -x_152 = x_151; +x_152 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_152, 0, x_1); +lean_closure_set(x_152, 1, x_6); +lean_closure_set(x_152, 2, x_7); +lean_closure_set(x_152, 3, x_9); +lean_closure_set(x_152, 4, x_11); +lean_closure_set(x_152, 5, x_145); +lean_closure_set(x_152, 6, x_146); +lean_closure_set(x_152, 7, x_151); +lean_closure_set(x_152, 8, x_150); +x_153 = x_152; lean_inc(x_13); -x_153 = lean_apply_2(x_152, x_13, x_143); -if (lean_obj_tag(x_153) == 0) +x_154 = lean_apply_2(x_153, x_13, x_144); +if (lean_obj_tag(x_154) == 0) { -lean_object* x_154; lean_object* x_155; lean_object* x_156; -x_154 = lean_ctor_get(x_153, 0); -lean_inc(x_154); -x_155 = lean_ctor_get(x_153, 1); +lean_object* x_155; lean_object* x_156; lean_object* x_157; +x_155 = lean_ctor_get(x_154, 0); lean_inc(x_155); -lean_dec(x_153); +x_156 = lean_ctor_get(x_154, 1); +lean_inc(x_156); +lean_dec(x_154); lean_inc(x_1); -x_156 = l_Lean_Meta_getMVarType(x_1, x_13, x_155); -if (lean_obj_tag(x_156) == 0) +x_157 = l_Lean_Meta_getMVarType(x_1, x_13, x_156); +if (lean_obj_tag(x_157) == 0) { -lean_object* x_157; lean_object* x_158; uint8_t x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; -x_157 = lean_ctor_get(x_156, 0); -lean_inc(x_157); -x_158 = lean_ctor_get(x_156, 1); +lean_object* x_158; lean_object* x_159; uint8_t x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; +x_158 = lean_ctor_get(x_157, 0); lean_inc(x_158); -lean_dec(x_156); -x_159 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_154); -x_160 = x_154; -x_161 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_150, x_160); -x_162 = x_161; +x_159 = lean_ctor_get(x_157, 1); +lean_inc(x_159); +lean_dec(x_157); +x_160 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_155); +x_161 = x_155; +x_162 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_151, x_161); +x_163 = x_162; lean_inc(x_2); -x_163 = lean_array_push(x_162, x_2); -if (x_159 == 0) +x_164 = lean_array_push(x_163, x_2); +if (x_160 == 0) { -lean_object* x_243; uint8_t x_244; -x_243 = l_Lean_MetavarContext_exprDependsOn(x_144, x_157, x_2); +lean_object* x_244; uint8_t x_245; +x_244 = l_Lean_MetavarContext_exprDependsOn(x_145, x_158, x_2); lean_dec(x_2); -x_244 = lean_unbox(x_243); -lean_dec(x_243); -if (x_244 == 0) +x_245 = lean_unbox(x_244); +lean_dec(x_244); +if (x_245 == 0) { -x_164 = x_158; -goto block_242; +x_165 = x_159; +goto block_243; } else { -lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; uint8_t x_251; -lean_dec(x_163); -lean_dec(x_154); -lean_dec(x_141); +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; uint8_t x_253; +lean_dec(x_164); +lean_dec(x_155); +lean_dec(x_142); lean_dec(x_8); lean_dec(x_7); lean_dec(x_4); -x_245 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_245, 0, x_3); -x_246 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_247 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_247, 0, x_246); -lean_ctor_set(x_247, 1, x_245); -x_248 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_249 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_249, 0, x_247); -lean_ctor_set(x_249, 1, x_248); -x_250 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_249, x_13, x_158); +x_246 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_246, 0, x_3); +x_247 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_248 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_248, 0, x_247); +lean_ctor_set(x_248, 1, x_246); +x_249 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_250 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_250, 0, x_248); +lean_ctor_set(x_250, 1, x_249); +x_251 = lean_box(0); +x_252 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_250, x_251, x_13, x_159); lean_dec(x_13); -x_251 = !lean_is_exclusive(x_250); -if (x_251 == 0) +x_253 = !lean_is_exclusive(x_252); +if (x_253 == 0) { -return x_250; +return x_252; } else { -lean_object* x_252; lean_object* x_253; lean_object* x_254; -x_252 = lean_ctor_get(x_250, 0); -x_253 = lean_ctor_get(x_250, 1); -lean_inc(x_253); -lean_inc(x_252); -lean_dec(x_250); -x_254 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_254, 0, x_252); -lean_ctor_set(x_254, 1, x_253); -return x_254; +lean_object* x_254; lean_object* x_255; lean_object* x_256; +x_254 = lean_ctor_get(x_252, 0); +x_255 = lean_ctor_get(x_252, 1); +lean_inc(x_255); +lean_inc(x_254); +lean_dec(x_252); +x_256 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_256, 0, x_254); +lean_ctor_set(x_256, 1, x_255); +return x_256; } } } else { -lean_dec(x_157); -lean_dec(x_144); +lean_dec(x_158); +lean_dec(x_145); lean_dec(x_2); -x_164 = x_158; -goto block_242; +x_165 = x_159; +goto block_243; } -block_242: +block_243: { -uint8_t x_165; lean_object* x_166; -x_165 = 1; -x_166 = l_Lean_Meta_revert(x_1, x_163, x_165, x_13, x_164); -if (lean_obj_tag(x_166) == 0) +uint8_t x_166; lean_object* x_167; +x_166 = 1; +x_167 = l_Lean_Meta_revert(x_1, x_164, x_166, x_13, x_165); +if (lean_obj_tag(x_167) == 0) { -lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; uint8_t x_173; lean_object* x_174; -x_167 = lean_ctor_get(x_166, 0); -lean_inc(x_167); -x_168 = lean_ctor_get(x_166, 1); +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; uint8_t x_174; lean_object* x_175; +x_168 = lean_ctor_get(x_167, 0); lean_inc(x_168); -lean_dec(x_166); -x_169 = lean_ctor_get(x_167, 0); +x_169 = lean_ctor_get(x_167, 1); lean_inc(x_169); -x_170 = lean_ctor_get(x_167, 1); -lean_inc(x_170); lean_dec(x_167); -x_171 = lean_array_get_size(x_154); -x_172 = lean_box(0); -x_173 = 0; -x_174 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_173, x_170, x_171, x_172, x_13, x_168); -if (lean_obj_tag(x_174) == 0) +x_170 = lean_ctor_get(x_168, 0); +lean_inc(x_170); +x_171 = lean_ctor_get(x_168, 1); +lean_inc(x_171); +lean_dec(x_168); +x_172 = lean_array_get_size(x_155); +x_173 = lean_box(0); +x_174 = 0; +x_175 = l_Lean_Meta_introN(x_171, x_172, x_173, x_174, x_13, x_169); +if (lean_obj_tag(x_175) == 0) { -lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; -x_175 = lean_ctor_get(x_174, 0); -lean_inc(x_175); -x_176 = lean_ctor_get(x_174, 1); +lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; +x_176 = lean_ctor_get(x_175, 0); lean_inc(x_176); -lean_dec(x_174); -x_177 = lean_ctor_get(x_175, 0); +x_177 = lean_ctor_get(x_175, 1); lean_inc(x_177); -x_178 = lean_ctor_get(x_175, 1); -lean_inc(x_178); lean_dec(x_175); -x_179 = l_Lean_Meta_intro1(x_178, x_173, x_13, x_176); -if (lean_obj_tag(x_179) == 0) +x_178 = lean_ctor_get(x_176, 0); +lean_inc(x_178); +x_179 = lean_ctor_get(x_176, 1); +lean_inc(x_179); +lean_dec(x_176); +x_180 = l_Lean_Meta_intro1(x_179, x_174, x_13, x_177); +if (lean_obj_tag(x_180) == 0) { -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; uint8_t x_194; lean_object* x_195; lean_object* x_223; uint8_t x_224; -x_180 = lean_ctor_get(x_179, 0); -lean_inc(x_180); -x_181 = lean_ctor_get(x_179, 1); +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; uint8_t x_195; lean_object* x_196; lean_object* x_224; uint8_t x_225; +x_181 = lean_ctor_get(x_180, 0); lean_inc(x_181); -lean_dec(x_179); -x_182 = lean_ctor_get(x_180, 0); +x_182 = lean_ctor_get(x_180, 1); lean_inc(x_182); -x_183 = lean_ctor_get(x_180, 1); -lean_inc(x_183); lean_dec(x_180); -x_184 = lean_box(0); -x_185 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_154, x_177, x_154, x_150, x_184); -lean_dec(x_154); -x_186 = x_177; -x_187 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_150, x_186); -x_188 = x_187; -lean_inc(x_182); -x_189 = l_Lean_mkFVar(x_182); +x_183 = lean_ctor_get(x_181, 0); lean_inc(x_183); -x_190 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_190, 0, x_183); -x_191 = lean_box(x_159); +x_184 = lean_ctor_get(x_181, 1); +lean_inc(x_184); +lean_dec(x_181); +x_185 = lean_box(0); +x_186 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_155, x_178, x_155, x_151, x_185); +lean_dec(x_155); +x_187 = x_178; +x_188 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_151, x_187); +x_189 = x_188; lean_inc(x_183); -x_192 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_192, 0, x_182); -lean_closure_set(x_192, 1, x_8); -lean_closure_set(x_192, 2, x_183); -lean_closure_set(x_192, 3, x_3); -lean_closure_set(x_192, 4, x_4); -lean_closure_set(x_192, 5, x_6); -lean_closure_set(x_192, 6, x_7); -lean_closure_set(x_192, 7, x_141); -lean_closure_set(x_192, 8, x_191); -lean_closure_set(x_192, 9, x_169); -lean_closure_set(x_192, 10, x_185); -lean_closure_set(x_192, 11, x_188); -lean_closure_set(x_192, 12, x_189); -x_193 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_193, 0, x_190); -lean_closure_set(x_193, 1, x_192); -x_223 = lean_ctor_get(x_181, 4); -lean_inc(x_223); -x_224 = lean_ctor_get_uint8(x_223, sizeof(void*)*1); -lean_dec(x_223); -if (x_224 == 0) +x_190 = l_Lean_mkFVar(x_183); +lean_inc(x_184); +x_191 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_191, 0, x_184); +x_192 = lean_box(x_160); +lean_inc(x_184); +x_193 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_193, 0, x_183); +lean_closure_set(x_193, 1, x_8); +lean_closure_set(x_193, 2, x_184); +lean_closure_set(x_193, 3, x_3); +lean_closure_set(x_193, 4, x_4); +lean_closure_set(x_193, 5, x_6); +lean_closure_set(x_193, 6, x_7); +lean_closure_set(x_193, 7, x_142); +lean_closure_set(x_193, 8, x_192); +lean_closure_set(x_193, 9, x_170); +lean_closure_set(x_193, 10, x_186); +lean_closure_set(x_193, 11, x_189); +lean_closure_set(x_193, 12, x_190); +x_194 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_194, 0, x_191); +lean_closure_set(x_194, 1, x_193); +x_224 = lean_ctor_get(x_182, 4); +lean_inc(x_224); +x_225 = lean_ctor_get_uint8(x_224, sizeof(void*)*1); +lean_dec(x_224); +if (x_225 == 0) { -x_194 = x_173; -x_195 = x_181; -goto block_222; +x_195 = x_174; +x_196 = x_182; +goto block_223; } else { -lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; uint8_t x_229; -x_225 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_226 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_225, x_13, x_181); -x_227 = lean_ctor_get(x_226, 0); -lean_inc(x_227); -x_228 = lean_ctor_get(x_226, 1); +lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; uint8_t x_230; +x_226 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_227 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_226, x_13, x_182); +x_228 = lean_ctor_get(x_227, 0); lean_inc(x_228); -lean_dec(x_226); -x_229 = lean_unbox(x_227); +x_229 = lean_ctor_get(x_227, 1); +lean_inc(x_229); lean_dec(x_227); -x_194 = x_229; -x_195 = x_228; -goto block_222; +x_230 = lean_unbox(x_228); +lean_dec(x_228); +x_195 = x_230; +x_196 = x_229; +goto block_223; } -block_222: +block_223: { -if (x_194 == 0) +if (x_195 == 0) { -lean_object* x_196; -x_196 = l_Lean_Meta_getMVarDecl(x_183, x_13, x_195); -if (lean_obj_tag(x_196) == 0) +lean_object* x_197; +x_197 = l_Lean_Meta_getMVarDecl(x_184, x_13, x_196); +if (lean_obj_tag(x_197) == 0) { -lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; -x_197 = lean_ctor_get(x_196, 0); -lean_inc(x_197); -x_198 = lean_ctor_get(x_196, 1); +lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; +x_198 = lean_ctor_get(x_197, 0); lean_inc(x_198); -lean_dec(x_196); x_199 = lean_ctor_get(x_197, 1); lean_inc(x_199); -x_200 = lean_ctor_get(x_197, 4); -lean_inc(x_200); lean_dec(x_197); -x_201 = l_Lean_Meta_withLocalContext___rarg(x_199, x_200, x_193, x_13, x_198); +x_200 = lean_ctor_get(x_198, 1); +lean_inc(x_200); +x_201 = lean_ctor_get(x_198, 4); +lean_inc(x_201); +lean_dec(x_198); +x_202 = l_Lean_Meta_withLocalContext___rarg(x_200, x_201, x_194, x_13, x_199); lean_dec(x_13); -return x_201; +return x_202; } else { -uint8_t x_202; -lean_dec(x_193); +uint8_t x_203; +lean_dec(x_194); lean_dec(x_13); -x_202 = !lean_is_exclusive(x_196); -if (x_202 == 0) +x_203 = !lean_is_exclusive(x_197); +if (x_203 == 0) { -return x_196; +return x_197; } else { -lean_object* x_203; lean_object* x_204; lean_object* x_205; -x_203 = lean_ctor_get(x_196, 0); -x_204 = lean_ctor_get(x_196, 1); +lean_object* x_204; lean_object* x_205; lean_object* x_206; +x_204 = lean_ctor_get(x_197, 0); +x_205 = lean_ctor_get(x_197, 1); +lean_inc(x_205); lean_inc(x_204); -lean_inc(x_203); -lean_dec(x_196); -x_205 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_205, 0, x_203); -lean_ctor_set(x_205, 1, x_204); -return x_205; +lean_dec(x_197); +x_206 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_206, 0, x_204); +lean_ctor_set(x_206, 1, x_205); +return x_206; } } } else { -lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; -lean_inc(x_183); -x_206 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_206, 0, x_183); -x_207 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_208 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_208, 0, x_207); -lean_ctor_set(x_208, 1, x_206); -x_209 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_210 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_209, x_208, x_13, x_195); -x_211 = lean_ctor_get(x_210, 1); -lean_inc(x_211); -lean_dec(x_210); -x_212 = l_Lean_Meta_getMVarDecl(x_183, x_13, x_211); -if (lean_obj_tag(x_212) == 0) +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_inc(x_184); +x_207 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_207, 0, x_184); +x_208 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_209 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_209, 0, x_208); +lean_ctor_set(x_209, 1, x_207); +x_210 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_211 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_210, x_209, x_13, x_196); +x_212 = lean_ctor_get(x_211, 1); +lean_inc(x_212); +lean_dec(x_211); +x_213 = l_Lean_Meta_getMVarDecl(x_184, x_13, x_212); +if (lean_obj_tag(x_213) == 0) { -lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; -x_213 = lean_ctor_get(x_212, 0); -lean_inc(x_213); -x_214 = lean_ctor_get(x_212, 1); +lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; +x_214 = lean_ctor_get(x_213, 0); lean_inc(x_214); -lean_dec(x_212); x_215 = lean_ctor_get(x_213, 1); lean_inc(x_215); -x_216 = lean_ctor_get(x_213, 4); -lean_inc(x_216); lean_dec(x_213); -x_217 = l_Lean_Meta_withLocalContext___rarg(x_215, x_216, x_193, x_13, x_214); +x_216 = lean_ctor_get(x_214, 1); +lean_inc(x_216); +x_217 = lean_ctor_get(x_214, 4); +lean_inc(x_217); +lean_dec(x_214); +x_218 = l_Lean_Meta_withLocalContext___rarg(x_216, x_217, x_194, x_13, x_215); lean_dec(x_13); -return x_217; +return x_218; } else { -uint8_t x_218; -lean_dec(x_193); +uint8_t x_219; +lean_dec(x_194); lean_dec(x_13); -x_218 = !lean_is_exclusive(x_212); -if (x_218 == 0) +x_219 = !lean_is_exclusive(x_213); +if (x_219 == 0) { -return x_212; +return x_213; } else { -lean_object* x_219; lean_object* x_220; lean_object* x_221; -x_219 = lean_ctor_get(x_212, 0); -x_220 = lean_ctor_get(x_212, 1); +lean_object* x_220; lean_object* x_221; lean_object* x_222; +x_220 = lean_ctor_get(x_213, 0); +x_221 = lean_ctor_get(x_213, 1); +lean_inc(x_221); lean_inc(x_220); -lean_inc(x_219); -lean_dec(x_212); -x_221 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_221, 0, x_219); -lean_ctor_set(x_221, 1, x_220); -return x_221; +lean_dec(x_213); +x_222 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_222, 0, x_220); +lean_ctor_set(x_222, 1, x_221); +return x_222; } } } @@ -5180,172 +5204,172 @@ return x_221; } else { -uint8_t x_230; -lean_dec(x_177); -lean_dec(x_169); -lean_dec(x_154); -lean_dec(x_141); +uint8_t x_231; +lean_dec(x_178); +lean_dec(x_170); +lean_dec(x_155); +lean_dec(x_142); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_230 = !lean_is_exclusive(x_179); -if (x_230 == 0) +x_231 = !lean_is_exclusive(x_180); +if (x_231 == 0) { -return x_179; +return x_180; } else { -lean_object* x_231; lean_object* x_232; lean_object* x_233; -x_231 = lean_ctor_get(x_179, 0); -x_232 = lean_ctor_get(x_179, 1); +lean_object* x_232; lean_object* x_233; lean_object* x_234; +x_232 = lean_ctor_get(x_180, 0); +x_233 = lean_ctor_get(x_180, 1); +lean_inc(x_233); lean_inc(x_232); -lean_inc(x_231); -lean_dec(x_179); -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; +lean_dec(x_180); +x_234 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_234, 0, x_232); +lean_ctor_set(x_234, 1, x_233); +return x_234; } } } else { -uint8_t x_234; -lean_dec(x_169); -lean_dec(x_154); -lean_dec(x_141); +uint8_t x_235; +lean_dec(x_170); +lean_dec(x_155); +lean_dec(x_142); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_234 = !lean_is_exclusive(x_174); -if (x_234 == 0) +x_235 = !lean_is_exclusive(x_175); +if (x_235 == 0) { -return x_174; +return x_175; } else { -lean_object* x_235; lean_object* x_236; lean_object* x_237; -x_235 = lean_ctor_get(x_174, 0); -x_236 = lean_ctor_get(x_174, 1); +lean_object* x_236; lean_object* x_237; lean_object* x_238; +x_236 = lean_ctor_get(x_175, 0); +x_237 = lean_ctor_get(x_175, 1); +lean_inc(x_237); lean_inc(x_236); -lean_inc(x_235); -lean_dec(x_174); -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; +lean_dec(x_175); +x_238 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_238, 0, x_236); +lean_ctor_set(x_238, 1, x_237); +return x_238; } } } else { -uint8_t x_238; -lean_dec(x_154); -lean_dec(x_141); +uint8_t x_239; +lean_dec(x_155); +lean_dec(x_142); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_238 = !lean_is_exclusive(x_166); -if (x_238 == 0) +x_239 = !lean_is_exclusive(x_167); +if (x_239 == 0) { -return x_166; +return x_167; } else { -lean_object* x_239; lean_object* x_240; lean_object* x_241; -x_239 = lean_ctor_get(x_166, 0); -x_240 = lean_ctor_get(x_166, 1); +lean_object* x_240; lean_object* x_241; lean_object* x_242; +x_240 = lean_ctor_get(x_167, 0); +x_241 = lean_ctor_get(x_167, 1); +lean_inc(x_241); lean_inc(x_240); -lean_inc(x_239); -lean_dec(x_166); -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; +lean_dec(x_167); +x_242 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_242, 0, x_240); +lean_ctor_set(x_242, 1, x_241); +return x_242; } } } } else { -uint8_t x_255; +uint8_t x_257; +lean_dec(x_155); +lean_dec(x_145); +lean_dec(x_142); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_257 = !lean_is_exclusive(x_157); +if (x_257 == 0) +{ +return x_157; +} +else +{ +lean_object* x_258; lean_object* x_259; lean_object* x_260; +x_258 = lean_ctor_get(x_157, 0); +x_259 = lean_ctor_get(x_157, 1); +lean_inc(x_259); +lean_inc(x_258); +lean_dec(x_157); +x_260 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_260, 0, x_258); +lean_ctor_set(x_260, 1, x_259); +return x_260; +} +} +} +else +{ +uint8_t x_261; +lean_dec(x_145); +lean_dec(x_142); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_261 = !lean_is_exclusive(x_154); +if (x_261 == 0) +{ +return x_154; +} +else +{ +lean_object* x_262; lean_object* x_263; lean_object* x_264; +x_262 = lean_ctor_get(x_154, 0); +x_263 = lean_ctor_get(x_154, 1); +lean_inc(x_263); +lean_inc(x_262); lean_dec(x_154); -lean_dec(x_144); -lean_dec(x_141); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_255 = !lean_is_exclusive(x_156); -if (x_255 == 0) -{ -return x_156; -} -else -{ -lean_object* x_256; lean_object* x_257; lean_object* x_258; -x_256 = lean_ctor_get(x_156, 0); -x_257 = lean_ctor_get(x_156, 1); -lean_inc(x_257); -lean_inc(x_256); -lean_dec(x_156); -x_258 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_258, 0, x_256); -lean_ctor_set(x_258, 1, x_257); -return x_258; +x_264 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_264, 0, x_262); +lean_ctor_set(x_264, 1, x_263); +return x_264; } } } else { -uint8_t x_259; -lean_dec(x_144); -lean_dec(x_141); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_259 = !lean_is_exclusive(x_153); -if (x_259 == 0) -{ -return x_153; -} -else -{ -lean_object* x_260; lean_object* x_261; lean_object* x_262; -x_260 = lean_ctor_get(x_153, 0); -x_261 = lean_ctor_get(x_153, 1); -lean_inc(x_261); -lean_inc(x_260); -lean_dec(x_153); -x_262 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_262, 0, x_260); -lean_ctor_set(x_262, 1, x_261); -return x_262; -} -} -} -else -{ -uint8_t x_263; -lean_dec(x_141); +uint8_t x_265; +lean_dec(x_142); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -5356,506 +5380,474 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_263 = !lean_is_exclusive(x_142); -if (x_263 == 0) +x_265 = !lean_is_exclusive(x_143); +if (x_265 == 0) { -return x_142; +return x_143; } else { -lean_object* x_264; lean_object* x_265; lean_object* x_266; -x_264 = lean_ctor_get(x_142, 0); -x_265 = lean_ctor_get(x_142, 1); -lean_inc(x_265); -lean_inc(x_264); -lean_dec(x_142); -x_266 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_266, 0, x_264); -lean_ctor_set(x_266, 1, x_265); -return x_266; +lean_object* x_266; lean_object* x_267; lean_object* x_268; +x_266 = lean_ctor_get(x_143, 0); +x_267 = lean_ctor_get(x_143, 1); +lean_inc(x_267); +lean_inc(x_266); +lean_dec(x_143); +x_268 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_268, 0, x_266); +lean_ctor_set(x_268, 1, x_267); +return x_268; } } } case 2: { -lean_object* x_267; lean_object* x_268; +lean_object* x_269; lean_object* x_270; lean_dec(x_12); lean_dec(x_10); -x_267 = lean_ctor_get(x_7, 5); -lean_inc(x_267); +x_269 = lean_ctor_get(x_7, 5); +lean_inc(x_269); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_268 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_267, x_13, x_14); -if (lean_obj_tag(x_268) == 0) +x_270 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_269, x_13, x_14); +if (lean_obj_tag(x_270) == 0) { -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; -x_269 = lean_ctor_get(x_268, 1); -lean_inc(x_269); -lean_dec(x_268); -x_270 = lean_ctor_get(x_269, 1); -lean_inc(x_270); -x_271 = lean_ctor_get(x_7, 6); +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; +x_271 = lean_ctor_get(x_270, 1); lean_inc(x_271); -x_272 = l_List_redLength___main___rarg(x_271); -x_273 = lean_mk_empty_array_with_capacity(x_272); -lean_dec(x_272); -lean_inc(x_271); -x_274 = l_List_toArrayAux___main___rarg(x_271, x_273); -x_275 = x_274; -x_276 = lean_unsigned_to_nat(0u); -lean_inc(x_270); +lean_dec(x_270); +x_272 = lean_ctor_get(x_271, 1); +lean_inc(x_272); +x_273 = lean_ctor_get(x_7, 6); +lean_inc(x_273); +x_274 = l_List_redLength___main___rarg(x_273); +x_275 = lean_mk_empty_array_with_capacity(x_274); +lean_dec(x_274); +lean_inc(x_273); +x_276 = l_List_toArrayAux___main___rarg(x_273, x_275); +x_277 = x_276; +x_278 = lean_unsigned_to_nat(0u); +lean_inc(x_272); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_277 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_277, 0, x_1); -lean_closure_set(x_277, 1, x_6); -lean_closure_set(x_277, 2, x_7); -lean_closure_set(x_277, 3, x_9); -lean_closure_set(x_277, 4, x_11); -lean_closure_set(x_277, 5, x_270); -lean_closure_set(x_277, 6, x_271); -lean_closure_set(x_277, 7, x_276); -lean_closure_set(x_277, 8, x_275); -x_278 = x_277; +x_279 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_279, 0, x_1); +lean_closure_set(x_279, 1, x_6); +lean_closure_set(x_279, 2, x_7); +lean_closure_set(x_279, 3, x_9); +lean_closure_set(x_279, 4, x_11); +lean_closure_set(x_279, 5, x_272); +lean_closure_set(x_279, 6, x_273); +lean_closure_set(x_279, 7, x_278); +lean_closure_set(x_279, 8, x_277); +x_280 = x_279; lean_inc(x_13); -x_279 = lean_apply_2(x_278, x_13, x_269); -if (lean_obj_tag(x_279) == 0) +x_281 = lean_apply_2(x_280, x_13, x_271); +if (lean_obj_tag(x_281) == 0) { -lean_object* x_280; lean_object* x_281; lean_object* x_282; -x_280 = lean_ctor_get(x_279, 0); -lean_inc(x_280); -x_281 = lean_ctor_get(x_279, 1); -lean_inc(x_281); -lean_dec(x_279); -lean_inc(x_1); -x_282 = l_Lean_Meta_getMVarType(x_1, x_13, x_281); -if (lean_obj_tag(x_282) == 0) -{ -lean_object* x_283; lean_object* x_284; uint8_t x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; -x_283 = lean_ctor_get(x_282, 0); +lean_object* x_282; lean_object* x_283; lean_object* x_284; +x_282 = lean_ctor_get(x_281, 0); +lean_inc(x_282); +x_283 = lean_ctor_get(x_281, 1); lean_inc(x_283); -x_284 = lean_ctor_get(x_282, 1); -lean_inc(x_284); -lean_dec(x_282); -x_285 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_280); -x_286 = x_280; -x_287 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_276, x_286); -x_288 = x_287; +lean_dec(x_281); +lean_inc(x_1); +x_284 = l_Lean_Meta_getMVarType(x_1, x_13, x_283); +if (lean_obj_tag(x_284) == 0) +{ +lean_object* x_285; lean_object* x_286; uint8_t x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; +x_285 = lean_ctor_get(x_284, 0); +lean_inc(x_285); +x_286 = lean_ctor_get(x_284, 1); +lean_inc(x_286); +lean_dec(x_284); +x_287 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_282); +x_288 = x_282; +x_289 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_278, x_288); +x_290 = x_289; lean_inc(x_2); -x_289 = lean_array_push(x_288, x_2); -if (x_285 == 0) +x_291 = lean_array_push(x_290, x_2); +if (x_287 == 0) { -lean_object* x_369; uint8_t x_370; -x_369 = l_Lean_MetavarContext_exprDependsOn(x_270, x_283, x_2); +lean_object* x_371; uint8_t x_372; +x_371 = l_Lean_MetavarContext_exprDependsOn(x_272, x_285, x_2); lean_dec(x_2); -x_370 = lean_unbox(x_369); -lean_dec(x_369); -if (x_370 == 0) +x_372 = lean_unbox(x_371); +lean_dec(x_371); +if (x_372 == 0) { -x_290 = x_284; -goto block_368; +x_292 = x_286; +goto block_370; } else { -lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; uint8_t x_377; -lean_dec(x_289); -lean_dec(x_280); -lean_dec(x_267); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -x_371 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_371, 0, x_3); -x_372 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_373 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_373, 0, x_372); -lean_ctor_set(x_373, 1, x_371); -x_374 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_375 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_375, 0, x_373); -lean_ctor_set(x_375, 1, x_374); -x_376 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_375, x_13, x_284); -lean_dec(x_13); -x_377 = !lean_is_exclusive(x_376); -if (x_377 == 0) -{ -return x_376; -} -else -{ -lean_object* x_378; lean_object* x_379; lean_object* x_380; -x_378 = lean_ctor_get(x_376, 0); -x_379 = lean_ctor_get(x_376, 1); -lean_inc(x_379); -lean_inc(x_378); -lean_dec(x_376); -x_380 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_380, 0, x_378); -lean_ctor_set(x_380, 1, x_379); -return x_380; -} -} -} -else -{ -lean_dec(x_283); -lean_dec(x_270); -lean_dec(x_2); -x_290 = x_284; -goto block_368; -} -block_368: -{ -uint8_t x_291; lean_object* x_292; -x_291 = 1; -x_292 = l_Lean_Meta_revert(x_1, x_289, x_291, x_13, x_290); -if (lean_obj_tag(x_292) == 0) -{ -lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; uint8_t x_299; lean_object* x_300; -x_293 = lean_ctor_get(x_292, 0); -lean_inc(x_293); -x_294 = lean_ctor_get(x_292, 1); -lean_inc(x_294); -lean_dec(x_292); -x_295 = lean_ctor_get(x_293, 0); -lean_inc(x_295); -x_296 = lean_ctor_get(x_293, 1); -lean_inc(x_296); -lean_dec(x_293); -x_297 = lean_array_get_size(x_280); -x_298 = lean_box(0); -x_299 = 0; -x_300 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_299, x_296, x_297, x_298, x_13, x_294); -if (lean_obj_tag(x_300) == 0) -{ -lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; -x_301 = lean_ctor_get(x_300, 0); -lean_inc(x_301); -x_302 = lean_ctor_get(x_300, 1); -lean_inc(x_302); -lean_dec(x_300); -x_303 = lean_ctor_get(x_301, 0); -lean_inc(x_303); -x_304 = lean_ctor_get(x_301, 1); -lean_inc(x_304); -lean_dec(x_301); -x_305 = l_Lean_Meta_intro1(x_304, x_299, x_13, x_302); -if (lean_obj_tag(x_305) == 0) -{ -lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; 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; uint8_t x_320; lean_object* x_321; lean_object* x_349; uint8_t x_350; -x_306 = lean_ctor_get(x_305, 0); -lean_inc(x_306); -x_307 = lean_ctor_get(x_305, 1); -lean_inc(x_307); -lean_dec(x_305); -x_308 = lean_ctor_get(x_306, 0); -lean_inc(x_308); -x_309 = lean_ctor_get(x_306, 1); -lean_inc(x_309); -lean_dec(x_306); -x_310 = lean_box(0); -x_311 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_280, x_303, x_280, x_276, x_310); -lean_dec(x_280); -x_312 = x_303; -x_313 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_276, x_312); -x_314 = x_313; -lean_inc(x_308); -x_315 = l_Lean_mkFVar(x_308); -lean_inc(x_309); -x_316 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_316, 0, x_309); -x_317 = lean_box(x_285); -lean_inc(x_309); -x_318 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_318, 0, x_308); -lean_closure_set(x_318, 1, x_8); -lean_closure_set(x_318, 2, x_309); -lean_closure_set(x_318, 3, x_3); -lean_closure_set(x_318, 4, x_4); -lean_closure_set(x_318, 5, x_6); -lean_closure_set(x_318, 6, x_7); -lean_closure_set(x_318, 7, x_267); -lean_closure_set(x_318, 8, x_317); -lean_closure_set(x_318, 9, x_295); -lean_closure_set(x_318, 10, x_311); -lean_closure_set(x_318, 11, x_314); -lean_closure_set(x_318, 12, x_315); -x_319 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_319, 0, x_316); -lean_closure_set(x_319, 1, x_318); -x_349 = lean_ctor_get(x_307, 4); -lean_inc(x_349); -x_350 = lean_ctor_get_uint8(x_349, sizeof(void*)*1); -lean_dec(x_349); -if (x_350 == 0) -{ -x_320 = x_299; -x_321 = x_307; -goto block_348; -} -else -{ -lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; uint8_t x_355; -x_351 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_352 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_351, x_13, x_307); -x_353 = lean_ctor_get(x_352, 0); -lean_inc(x_353); -x_354 = lean_ctor_get(x_352, 1); -lean_inc(x_354); -lean_dec(x_352); -x_355 = lean_unbox(x_353); -lean_dec(x_353); -x_320 = x_355; -x_321 = x_354; -goto block_348; -} -block_348: -{ -if (x_320 == 0) -{ -lean_object* x_322; -x_322 = l_Lean_Meta_getMVarDecl(x_309, x_13, x_321); -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; -x_323 = lean_ctor_get(x_322, 0); -lean_inc(x_323); -x_324 = lean_ctor_get(x_322, 1); -lean_inc(x_324); -lean_dec(x_322); -x_325 = lean_ctor_get(x_323, 1); -lean_inc(x_325); -x_326 = lean_ctor_get(x_323, 4); -lean_inc(x_326); -lean_dec(x_323); -x_327 = l_Lean_Meta_withLocalContext___rarg(x_325, x_326, x_319, x_13, x_324); -lean_dec(x_13); -return x_327; -} -else -{ -uint8_t x_328; -lean_dec(x_319); -lean_dec(x_13); -x_328 = !lean_is_exclusive(x_322); -if (x_328 == 0) -{ -return x_322; -} -else -{ -lean_object* x_329; lean_object* x_330; lean_object* x_331; -x_329 = lean_ctor_get(x_322, 0); -x_330 = lean_ctor_get(x_322, 1); -lean_inc(x_330); -lean_inc(x_329); -lean_dec(x_322); -x_331 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_331, 0, x_329); -lean_ctor_set(x_331, 1, x_330); -return x_331; -} -} -} -else -{ -lean_object* x_332; 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_inc(x_309); -x_332 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_332, 0, x_309); -x_333 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_334 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_334, 0, x_333); -lean_ctor_set(x_334, 1, x_332); -x_335 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_336 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_335, x_334, x_13, x_321); -x_337 = lean_ctor_get(x_336, 1); -lean_inc(x_337); -lean_dec(x_336); -x_338 = l_Lean_Meta_getMVarDecl(x_309, x_13, x_337); -if (lean_obj_tag(x_338) == 0) -{ -lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; -x_339 = lean_ctor_get(x_338, 0); -lean_inc(x_339); -x_340 = lean_ctor_get(x_338, 1); -lean_inc(x_340); -lean_dec(x_338); -x_341 = lean_ctor_get(x_339, 1); -lean_inc(x_341); -x_342 = lean_ctor_get(x_339, 4); -lean_inc(x_342); -lean_dec(x_339); -x_343 = l_Lean_Meta_withLocalContext___rarg(x_341, x_342, x_319, x_13, x_340); -lean_dec(x_13); -return x_343; -} -else -{ -uint8_t x_344; -lean_dec(x_319); -lean_dec(x_13); -x_344 = !lean_is_exclusive(x_338); -if (x_344 == 0) -{ -return x_338; -} -else -{ -lean_object* x_345; lean_object* x_346; lean_object* x_347; -x_345 = lean_ctor_get(x_338, 0); -x_346 = lean_ctor_get(x_338, 1); -lean_inc(x_346); -lean_inc(x_345); -lean_dec(x_338); -x_347 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_347, 0, x_345); -lean_ctor_set(x_347, 1, x_346); -return x_347; -} -} -} -} -} -else -{ -uint8_t x_356; -lean_dec(x_303); -lean_dec(x_295); -lean_dec(x_280); -lean_dec(x_267); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_356 = !lean_is_exclusive(x_305); -if (x_356 == 0) -{ -return x_305; -} -else -{ -lean_object* x_357; lean_object* x_358; lean_object* x_359; -x_357 = lean_ctor_get(x_305, 0); -x_358 = lean_ctor_get(x_305, 1); -lean_inc(x_358); -lean_inc(x_357); -lean_dec(x_305); -x_359 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_359, 0, x_357); -lean_ctor_set(x_359, 1, x_358); -return x_359; -} -} -} -else -{ -uint8_t x_360; -lean_dec(x_295); -lean_dec(x_280); -lean_dec(x_267); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_360 = !lean_is_exclusive(x_300); -if (x_360 == 0) -{ -return x_300; -} -else -{ -lean_object* x_361; lean_object* x_362; lean_object* x_363; -x_361 = lean_ctor_get(x_300, 0); -x_362 = lean_ctor_get(x_300, 1); -lean_inc(x_362); -lean_inc(x_361); -lean_dec(x_300); -x_363 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_363, 0, x_361); -lean_ctor_set(x_363, 1, x_362); -return x_363; -} -} -} -else -{ -uint8_t x_364; -lean_dec(x_280); -lean_dec(x_267); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_364 = !lean_is_exclusive(x_292); -if (x_364 == 0) -{ -return x_292; -} -else -{ -lean_object* x_365; lean_object* x_366; lean_object* x_367; -x_365 = lean_ctor_get(x_292, 0); -x_366 = lean_ctor_get(x_292, 1); -lean_inc(x_366); -lean_inc(x_365); -lean_dec(x_292); -x_367 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_367, 0, x_365); -lean_ctor_set(x_367, 1, x_366); -return x_367; -} -} -} -} -else -{ -uint8_t x_381; -lean_dec(x_280); -lean_dec(x_270); -lean_dec(x_267); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_381 = !lean_is_exclusive(x_282); -if (x_381 == 0) -{ -return x_282; -} -else -{ -lean_object* x_382; lean_object* x_383; lean_object* x_384; -x_382 = lean_ctor_get(x_282, 0); -x_383 = lean_ctor_get(x_282, 1); -lean_inc(x_383); -lean_inc(x_382); +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; uint8_t x_380; +lean_dec(x_291); lean_dec(x_282); -x_384 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_384, 0, x_382); -lean_ctor_set(x_384, 1, x_383); -return x_384; +lean_dec(x_269); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +x_373 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_373, 0, x_3); +x_374 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_375 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_375, 0, x_374); +lean_ctor_set(x_375, 1, x_373); +x_376 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_377 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_377, 0, x_375); +lean_ctor_set(x_377, 1, x_376); +x_378 = lean_box(0); +x_379 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_377, x_378, x_13, x_286); +lean_dec(x_13); +x_380 = !lean_is_exclusive(x_379); +if (x_380 == 0) +{ +return x_379; +} +else +{ +lean_object* x_381; lean_object* x_382; lean_object* x_383; +x_381 = lean_ctor_get(x_379, 0); +x_382 = lean_ctor_get(x_379, 1); +lean_inc(x_382); +lean_inc(x_381); +lean_dec(x_379); +x_383 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_383, 0, x_381); +lean_ctor_set(x_383, 1, x_382); +return x_383; } } } else { -uint8_t x_385; -lean_dec(x_270); -lean_dec(x_267); +lean_dec(x_285); +lean_dec(x_272); +lean_dec(x_2); +x_292 = x_286; +goto block_370; +} +block_370: +{ +uint8_t x_293; lean_object* x_294; +x_293 = 1; +x_294 = l_Lean_Meta_revert(x_1, x_291, x_293, x_13, x_292); +if (lean_obj_tag(x_294) == 0) +{ +lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; uint8_t x_301; lean_object* x_302; +x_295 = lean_ctor_get(x_294, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_294, 1); +lean_inc(x_296); +lean_dec(x_294); +x_297 = lean_ctor_get(x_295, 0); +lean_inc(x_297); +x_298 = lean_ctor_get(x_295, 1); +lean_inc(x_298); +lean_dec(x_295); +x_299 = lean_array_get_size(x_282); +x_300 = lean_box(0); +x_301 = 0; +x_302 = l_Lean_Meta_introN(x_298, x_299, x_300, x_301, x_13, x_296); +if (lean_obj_tag(x_302) == 0) +{ +lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; +x_303 = lean_ctor_get(x_302, 0); +lean_inc(x_303); +x_304 = lean_ctor_get(x_302, 1); +lean_inc(x_304); +lean_dec(x_302); +x_305 = lean_ctor_get(x_303, 0); +lean_inc(x_305); +x_306 = lean_ctor_get(x_303, 1); +lean_inc(x_306); +lean_dec(x_303); +x_307 = l_Lean_Meta_intro1(x_306, x_301, x_13, x_304); +if (lean_obj_tag(x_307) == 0) +{ +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; uint8_t x_322; lean_object* x_323; lean_object* x_351; uint8_t x_352; +x_308 = lean_ctor_get(x_307, 0); +lean_inc(x_308); +x_309 = lean_ctor_get(x_307, 1); +lean_inc(x_309); +lean_dec(x_307); +x_310 = lean_ctor_get(x_308, 0); +lean_inc(x_310); +x_311 = lean_ctor_get(x_308, 1); +lean_inc(x_311); +lean_dec(x_308); +x_312 = lean_box(0); +x_313 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_282, x_305, x_282, x_278, x_312); +lean_dec(x_282); +x_314 = x_305; +x_315 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_278, x_314); +x_316 = x_315; +lean_inc(x_310); +x_317 = l_Lean_mkFVar(x_310); +lean_inc(x_311); +x_318 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_318, 0, x_311); +x_319 = lean_box(x_287); +lean_inc(x_311); +x_320 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_320, 0, x_310); +lean_closure_set(x_320, 1, x_8); +lean_closure_set(x_320, 2, x_311); +lean_closure_set(x_320, 3, x_3); +lean_closure_set(x_320, 4, x_4); +lean_closure_set(x_320, 5, x_6); +lean_closure_set(x_320, 6, x_7); +lean_closure_set(x_320, 7, x_269); +lean_closure_set(x_320, 8, x_319); +lean_closure_set(x_320, 9, x_297); +lean_closure_set(x_320, 10, x_313); +lean_closure_set(x_320, 11, x_316); +lean_closure_set(x_320, 12, x_317); +x_321 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_321, 0, x_318); +lean_closure_set(x_321, 1, x_320); +x_351 = lean_ctor_get(x_309, 4); +lean_inc(x_351); +x_352 = lean_ctor_get_uint8(x_351, sizeof(void*)*1); +lean_dec(x_351); +if (x_352 == 0) +{ +x_322 = x_301; +x_323 = x_309; +goto block_350; +} +else +{ +lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; uint8_t x_357; +x_353 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_354 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_353, x_13, x_309); +x_355 = lean_ctor_get(x_354, 0); +lean_inc(x_355); +x_356 = lean_ctor_get(x_354, 1); +lean_inc(x_356); +lean_dec(x_354); +x_357 = lean_unbox(x_355); +lean_dec(x_355); +x_322 = x_357; +x_323 = x_356; +goto block_350; +} +block_350: +{ +if (x_322 == 0) +{ +lean_object* x_324; +x_324 = l_Lean_Meta_getMVarDecl(x_311, x_13, x_323); +if (lean_obj_tag(x_324) == 0) +{ +lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; +x_325 = lean_ctor_get(x_324, 0); +lean_inc(x_325); +x_326 = lean_ctor_get(x_324, 1); +lean_inc(x_326); +lean_dec(x_324); +x_327 = lean_ctor_get(x_325, 1); +lean_inc(x_327); +x_328 = lean_ctor_get(x_325, 4); +lean_inc(x_328); +lean_dec(x_325); +x_329 = l_Lean_Meta_withLocalContext___rarg(x_327, x_328, x_321, x_13, x_326); +lean_dec(x_13); +return x_329; +} +else +{ +uint8_t x_330; +lean_dec(x_321); +lean_dec(x_13); +x_330 = !lean_is_exclusive(x_324); +if (x_330 == 0) +{ +return x_324; +} +else +{ +lean_object* x_331; lean_object* x_332; lean_object* x_333; +x_331 = lean_ctor_get(x_324, 0); +x_332 = lean_ctor_get(x_324, 1); +lean_inc(x_332); +lean_inc(x_331); +lean_dec(x_324); +x_333 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_333, 0, x_331); +lean_ctor_set(x_333, 1, x_332); +return x_333; +} +} +} +else +{ +lean_object* x_334; 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_inc(x_311); +x_334 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_334, 0, x_311); +x_335 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_336 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_336, 0, x_335); +lean_ctor_set(x_336, 1, x_334); +x_337 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_338 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_337, x_336, x_13, x_323); +x_339 = lean_ctor_get(x_338, 1); +lean_inc(x_339); +lean_dec(x_338); +x_340 = l_Lean_Meta_getMVarDecl(x_311, x_13, x_339); +if (lean_obj_tag(x_340) == 0) +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; +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 = lean_ctor_get(x_341, 1); +lean_inc(x_343); +x_344 = lean_ctor_get(x_341, 4); +lean_inc(x_344); +lean_dec(x_341); +x_345 = l_Lean_Meta_withLocalContext___rarg(x_343, x_344, x_321, x_13, x_342); +lean_dec(x_13); +return x_345; +} +else +{ +uint8_t x_346; +lean_dec(x_321); +lean_dec(x_13); +x_346 = !lean_is_exclusive(x_340); +if (x_346 == 0) +{ +return x_340; +} +else +{ +lean_object* x_347; lean_object* x_348; lean_object* x_349; +x_347 = lean_ctor_get(x_340, 0); +x_348 = lean_ctor_get(x_340, 1); +lean_inc(x_348); +lean_inc(x_347); +lean_dec(x_340); +x_349 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_349, 0, x_347); +lean_ctor_set(x_349, 1, x_348); +return x_349; +} +} +} +} +} +else +{ +uint8_t x_358; +lean_dec(x_305); +lean_dec(x_297); +lean_dec(x_282); +lean_dec(x_269); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_358 = !lean_is_exclusive(x_307); +if (x_358 == 0) +{ +return x_307; +} +else +{ +lean_object* x_359; lean_object* x_360; lean_object* x_361; +x_359 = lean_ctor_get(x_307, 0); +x_360 = lean_ctor_get(x_307, 1); +lean_inc(x_360); +lean_inc(x_359); +lean_dec(x_307); +x_361 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_361, 0, x_359); +lean_ctor_set(x_361, 1, x_360); +return x_361; +} +} +} +else +{ +uint8_t x_362; +lean_dec(x_297); +lean_dec(x_282); +lean_dec(x_269); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_362 = !lean_is_exclusive(x_302); +if (x_362 == 0) +{ +return x_302; +} +else +{ +lean_object* x_363; lean_object* x_364; lean_object* x_365; +x_363 = lean_ctor_get(x_302, 0); +x_364 = lean_ctor_get(x_302, 1); +lean_inc(x_364); +lean_inc(x_363); +lean_dec(x_302); +x_365 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_365, 0, x_363); +lean_ctor_set(x_365, 1, x_364); +return x_365; +} +} +} +else +{ +uint8_t x_366; +lean_dec(x_282); +lean_dec(x_269); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_366 = !lean_is_exclusive(x_294); +if (x_366 == 0) +{ +return x_294; +} +else +{ +lean_object* x_367; lean_object* x_368; lean_object* x_369; +x_367 = lean_ctor_get(x_294, 0); +x_368 = lean_ctor_get(x_294, 1); +lean_inc(x_368); +lean_inc(x_367); +lean_dec(x_294); +x_369 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_369, 0, x_367); +lean_ctor_set(x_369, 1, x_368); +return x_369; +} +} +} +} +else +{ +uint8_t x_384; +lean_dec(x_282); +lean_dec(x_272); +lean_dec(x_269); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -5864,30 +5856,63 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_385 = !lean_is_exclusive(x_279); -if (x_385 == 0) +x_384 = !lean_is_exclusive(x_284); +if (x_384 == 0) { -return x_279; +return x_284; } else { -lean_object* x_386; lean_object* x_387; lean_object* x_388; -x_386 = lean_ctor_get(x_279, 0); -x_387 = lean_ctor_get(x_279, 1); -lean_inc(x_387); +lean_object* x_385; lean_object* x_386; lean_object* x_387; +x_385 = lean_ctor_get(x_284, 0); +x_386 = lean_ctor_get(x_284, 1); lean_inc(x_386); -lean_dec(x_279); -x_388 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_388, 0, x_386); -lean_ctor_set(x_388, 1, x_387); -return x_388; +lean_inc(x_385); +lean_dec(x_284); +x_387 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_387, 0, x_385); +lean_ctor_set(x_387, 1, x_386); +return x_387; } } } else { -uint8_t x_389; -lean_dec(x_267); +uint8_t x_388; +lean_dec(x_272); +lean_dec(x_269); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_388 = !lean_is_exclusive(x_281); +if (x_388 == 0) +{ +return x_281; +} +else +{ +lean_object* x_389; lean_object* x_390; lean_object* x_391; +x_389 = lean_ctor_get(x_281, 0); +x_390 = lean_ctor_get(x_281, 1); +lean_inc(x_390); +lean_inc(x_389); +lean_dec(x_281); +x_391 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_391, 0, x_389); +lean_ctor_set(x_391, 1, x_390); +return x_391; +} +} +} +else +{ +uint8_t x_392; +lean_dec(x_269); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -5898,494 +5923,143 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_389 = !lean_is_exclusive(x_268); -if (x_389 == 0) +x_392 = !lean_is_exclusive(x_270); +if (x_392 == 0) { -return x_268; +return x_270; } else { -lean_object* x_390; lean_object* x_391; lean_object* x_392; -x_390 = lean_ctor_get(x_268, 0); -x_391 = lean_ctor_get(x_268, 1); -lean_inc(x_391); -lean_inc(x_390); -lean_dec(x_268); -x_392 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_392, 0, x_390); -lean_ctor_set(x_392, 1, x_391); -return x_392; +lean_object* x_393; lean_object* x_394; lean_object* x_395; +x_393 = lean_ctor_get(x_270, 0); +x_394 = lean_ctor_get(x_270, 1); +lean_inc(x_394); +lean_inc(x_393); +lean_dec(x_270); +x_395 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_395, 0, x_393); +lean_ctor_set(x_395, 1, x_394); +return x_395; } } } case 3: { -lean_object* x_393; lean_object* x_394; +lean_object* x_396; lean_object* x_397; lean_dec(x_12); lean_dec(x_10); -x_393 = lean_ctor_get(x_7, 5); -lean_inc(x_393); +x_396 = lean_ctor_get(x_7, 5); +lean_inc(x_396); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_394 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_393, x_13, x_14); -if (lean_obj_tag(x_394) == 0) +x_397 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_396, x_13, x_14); +if (lean_obj_tag(x_397) == 0) { -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; -x_395 = lean_ctor_get(x_394, 1); -lean_inc(x_395); -lean_dec(x_394); -x_396 = lean_ctor_get(x_395, 1); -lean_inc(x_396); -x_397 = lean_ctor_get(x_7, 6); -lean_inc(x_397); -x_398 = l_List_redLength___main___rarg(x_397); -x_399 = lean_mk_empty_array_with_capacity(x_398); -lean_dec(x_398); -lean_inc(x_397); -x_400 = l_List_toArrayAux___main___rarg(x_397, x_399); -x_401 = x_400; -x_402 = lean_unsigned_to_nat(0u); -lean_inc(x_396); +lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; +x_398 = lean_ctor_get(x_397, 1); +lean_inc(x_398); +lean_dec(x_397); +x_399 = lean_ctor_get(x_398, 1); +lean_inc(x_399); +x_400 = lean_ctor_get(x_7, 6); +lean_inc(x_400); +x_401 = l_List_redLength___main___rarg(x_400); +x_402 = lean_mk_empty_array_with_capacity(x_401); +lean_dec(x_401); +lean_inc(x_400); +x_403 = l_List_toArrayAux___main___rarg(x_400, x_402); +x_404 = x_403; +x_405 = lean_unsigned_to_nat(0u); +lean_inc(x_399); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_403 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_403, 0, x_1); -lean_closure_set(x_403, 1, x_6); -lean_closure_set(x_403, 2, x_7); -lean_closure_set(x_403, 3, x_9); -lean_closure_set(x_403, 4, x_11); -lean_closure_set(x_403, 5, x_396); -lean_closure_set(x_403, 6, x_397); -lean_closure_set(x_403, 7, x_402); -lean_closure_set(x_403, 8, x_401); -x_404 = x_403; +x_406 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_406, 0, x_1); +lean_closure_set(x_406, 1, x_6); +lean_closure_set(x_406, 2, x_7); +lean_closure_set(x_406, 3, x_9); +lean_closure_set(x_406, 4, x_11); +lean_closure_set(x_406, 5, x_399); +lean_closure_set(x_406, 6, x_400); +lean_closure_set(x_406, 7, x_405); +lean_closure_set(x_406, 8, x_404); +x_407 = x_406; lean_inc(x_13); -x_405 = lean_apply_2(x_404, x_13, x_395); -if (lean_obj_tag(x_405) == 0) -{ -lean_object* x_406; lean_object* x_407; lean_object* x_408; -x_406 = lean_ctor_get(x_405, 0); -lean_inc(x_406); -x_407 = lean_ctor_get(x_405, 1); -lean_inc(x_407); -lean_dec(x_405); -lean_inc(x_1); -x_408 = l_Lean_Meta_getMVarType(x_1, x_13, x_407); +x_408 = lean_apply_2(x_407, x_13, x_398); if (lean_obj_tag(x_408) == 0) { -lean_object* x_409; lean_object* x_410; uint8_t 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_409; lean_object* x_410; lean_object* x_411; x_409 = lean_ctor_get(x_408, 0); lean_inc(x_409); x_410 = lean_ctor_get(x_408, 1); lean_inc(x_410); lean_dec(x_408); -x_411 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_406); -x_412 = x_406; -x_413 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_402, x_412); -x_414 = x_413; +lean_inc(x_1); +x_411 = l_Lean_Meta_getMVarType(x_1, x_13, x_410); +if (lean_obj_tag(x_411) == 0) +{ +lean_object* x_412; lean_object* x_413; uint8_t x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; +x_412 = lean_ctor_get(x_411, 0); +lean_inc(x_412); +x_413 = lean_ctor_get(x_411, 1); +lean_inc(x_413); +lean_dec(x_411); +x_414 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_409); +x_415 = x_409; +x_416 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_405, x_415); +x_417 = x_416; lean_inc(x_2); -x_415 = lean_array_push(x_414, x_2); -if (x_411 == 0) +x_418 = lean_array_push(x_417, x_2); +if (x_414 == 0) { -lean_object* x_495; uint8_t x_496; -x_495 = l_Lean_MetavarContext_exprDependsOn(x_396, x_409, x_2); +lean_object* x_498; uint8_t x_499; +x_498 = l_Lean_MetavarContext_exprDependsOn(x_399, x_412, x_2); lean_dec(x_2); -x_496 = lean_unbox(x_495); -lean_dec(x_495); -if (x_496 == 0) +x_499 = lean_unbox(x_498); +lean_dec(x_498); +if (x_499 == 0) { -x_416 = x_410; -goto block_494; -} -else -{ -lean_object* x_497; lean_object* x_498; lean_object* x_499; lean_object* x_500; lean_object* x_501; lean_object* x_502; uint8_t x_503; -lean_dec(x_415); -lean_dec(x_406); -lean_dec(x_393); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -x_497 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_497, 0, x_3); -x_498 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_499 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_499, 0, x_498); -lean_ctor_set(x_499, 1, x_497); -x_500 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_501 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_501, 0, x_499); -lean_ctor_set(x_501, 1, x_500); -x_502 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_501, x_13, x_410); -lean_dec(x_13); -x_503 = !lean_is_exclusive(x_502); -if (x_503 == 0) -{ -return x_502; -} -else -{ -lean_object* x_504; lean_object* x_505; lean_object* x_506; -x_504 = lean_ctor_get(x_502, 0); -x_505 = lean_ctor_get(x_502, 1); -lean_inc(x_505); -lean_inc(x_504); -lean_dec(x_502); -x_506 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_506, 0, x_504); -lean_ctor_set(x_506, 1, x_505); -return x_506; -} -} +x_419 = x_413; +goto block_497; } else { +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; uint8_t x_507; +lean_dec(x_418); lean_dec(x_409); lean_dec(x_396); -lean_dec(x_2); -x_416 = x_410; -goto block_494; -} -block_494: -{ -uint8_t x_417; lean_object* x_418; -x_417 = 1; -x_418 = l_Lean_Meta_revert(x_1, x_415, x_417, x_13, x_416); -if (lean_obj_tag(x_418) == 0) -{ -lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; uint8_t x_425; lean_object* x_426; -x_419 = lean_ctor_get(x_418, 0); -lean_inc(x_419); -x_420 = lean_ctor_get(x_418, 1); -lean_inc(x_420); -lean_dec(x_418); -x_421 = lean_ctor_get(x_419, 0); -lean_inc(x_421); -x_422 = lean_ctor_get(x_419, 1); -lean_inc(x_422); -lean_dec(x_419); -x_423 = lean_array_get_size(x_406); -x_424 = lean_box(0); -x_425 = 0; -x_426 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_425, x_422, x_423, x_424, x_13, x_420); -if (lean_obj_tag(x_426) == 0) -{ -lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; -x_427 = lean_ctor_get(x_426, 0); -lean_inc(x_427); -x_428 = lean_ctor_get(x_426, 1); -lean_inc(x_428); -lean_dec(x_426); -x_429 = lean_ctor_get(x_427, 0); -lean_inc(x_429); -x_430 = lean_ctor_get(x_427, 1); -lean_inc(x_430); -lean_dec(x_427); -x_431 = l_Lean_Meta_intro1(x_430, x_425, x_13, x_428); -if (lean_obj_tag(x_431) == 0) -{ -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; uint8_t x_446; lean_object* x_447; lean_object* x_475; uint8_t x_476; -x_432 = lean_ctor_get(x_431, 0); -lean_inc(x_432); -x_433 = lean_ctor_get(x_431, 1); -lean_inc(x_433); -lean_dec(x_431); -x_434 = lean_ctor_get(x_432, 0); -lean_inc(x_434); -x_435 = lean_ctor_get(x_432, 1); -lean_inc(x_435); -lean_dec(x_432); -x_436 = lean_box(0); -x_437 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_406, x_429, x_406, x_402, x_436); -lean_dec(x_406); -x_438 = x_429; -x_439 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_402, x_438); -x_440 = x_439; -lean_inc(x_434); -x_441 = l_Lean_mkFVar(x_434); -lean_inc(x_435); -x_442 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_442, 0, x_435); -x_443 = lean_box(x_411); -lean_inc(x_435); -x_444 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_444, 0, x_434); -lean_closure_set(x_444, 1, x_8); -lean_closure_set(x_444, 2, x_435); -lean_closure_set(x_444, 3, x_3); -lean_closure_set(x_444, 4, x_4); -lean_closure_set(x_444, 5, x_6); -lean_closure_set(x_444, 6, x_7); -lean_closure_set(x_444, 7, x_393); -lean_closure_set(x_444, 8, x_443); -lean_closure_set(x_444, 9, x_421); -lean_closure_set(x_444, 10, x_437); -lean_closure_set(x_444, 11, x_440); -lean_closure_set(x_444, 12, x_441); -x_445 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_445, 0, x_442); -lean_closure_set(x_445, 1, x_444); -x_475 = lean_ctor_get(x_433, 4); -lean_inc(x_475); -x_476 = lean_ctor_get_uint8(x_475, sizeof(void*)*1); -lean_dec(x_475); -if (x_476 == 0) -{ -x_446 = x_425; -x_447 = x_433; -goto block_474; -} -else -{ -lean_object* x_477; lean_object* x_478; lean_object* x_479; lean_object* x_480; uint8_t x_481; -x_477 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_478 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_477, x_13, x_433); -x_479 = lean_ctor_get(x_478, 0); -lean_inc(x_479); -x_480 = lean_ctor_get(x_478, 1); -lean_inc(x_480); -lean_dec(x_478); -x_481 = lean_unbox(x_479); -lean_dec(x_479); -x_446 = x_481; -x_447 = x_480; -goto block_474; -} -block_474: -{ -if (x_446 == 0) -{ -lean_object* x_448; -x_448 = l_Lean_Meta_getMVarDecl(x_435, x_13, x_447); -if (lean_obj_tag(x_448) == 0) -{ -lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; -x_449 = lean_ctor_get(x_448, 0); -lean_inc(x_449); -x_450 = lean_ctor_get(x_448, 1); -lean_inc(x_450); -lean_dec(x_448); -x_451 = lean_ctor_get(x_449, 1); -lean_inc(x_451); -x_452 = lean_ctor_get(x_449, 4); -lean_inc(x_452); -lean_dec(x_449); -x_453 = l_Lean_Meta_withLocalContext___rarg(x_451, x_452, x_445, x_13, x_450); -lean_dec(x_13); -return x_453; -} -else -{ -uint8_t x_454; -lean_dec(x_445); -lean_dec(x_13); -x_454 = !lean_is_exclusive(x_448); -if (x_454 == 0) -{ -return x_448; -} -else -{ -lean_object* x_455; lean_object* x_456; lean_object* x_457; -x_455 = lean_ctor_get(x_448, 0); -x_456 = lean_ctor_get(x_448, 1); -lean_inc(x_456); -lean_inc(x_455); -lean_dec(x_448); -x_457 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_457, 0, x_455); -lean_ctor_set(x_457, 1, x_456); -return x_457; -} -} -} -else -{ -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_inc(x_435); -x_458 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_458, 0, x_435); -x_459 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_460 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_460, 0, x_459); -lean_ctor_set(x_460, 1, x_458); -x_461 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_462 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_461, x_460, x_13, x_447); -x_463 = lean_ctor_get(x_462, 1); -lean_inc(x_463); -lean_dec(x_462); -x_464 = l_Lean_Meta_getMVarDecl(x_435, x_13, x_463); -if (lean_obj_tag(x_464) == 0) -{ -lean_object* x_465; lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; -x_465 = lean_ctor_get(x_464, 0); -lean_inc(x_465); -x_466 = lean_ctor_get(x_464, 1); -lean_inc(x_466); -lean_dec(x_464); -x_467 = lean_ctor_get(x_465, 1); -lean_inc(x_467); -x_468 = lean_ctor_get(x_465, 4); -lean_inc(x_468); -lean_dec(x_465); -x_469 = l_Lean_Meta_withLocalContext___rarg(x_467, x_468, x_445, x_13, x_466); -lean_dec(x_13); -return x_469; -} -else -{ -uint8_t x_470; -lean_dec(x_445); -lean_dec(x_13); -x_470 = !lean_is_exclusive(x_464); -if (x_470 == 0) -{ -return x_464; -} -else -{ -lean_object* x_471; lean_object* x_472; lean_object* x_473; -x_471 = lean_ctor_get(x_464, 0); -x_472 = lean_ctor_get(x_464, 1); -lean_inc(x_472); -lean_inc(x_471); -lean_dec(x_464); -x_473 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_473, 0, x_471); -lean_ctor_set(x_473, 1, x_472); -return x_473; -} -} -} -} -} -else -{ -uint8_t x_482; -lean_dec(x_429); -lean_dec(x_421); -lean_dec(x_406); -lean_dec(x_393); -lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); -lean_dec(x_6); lean_dec(x_4); -lean_dec(x_3); -x_482 = !lean_is_exclusive(x_431); -if (x_482 == 0) -{ -return x_431; -} -else -{ -lean_object* x_483; lean_object* x_484; lean_object* x_485; -x_483 = lean_ctor_get(x_431, 0); -x_484 = lean_ctor_get(x_431, 1); -lean_inc(x_484); -lean_inc(x_483); -lean_dec(x_431); -x_485 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_485, 0, x_483); -lean_ctor_set(x_485, 1, x_484); -return x_485; -} -} -} -else -{ -uint8_t x_486; -lean_dec(x_421); -lean_dec(x_406); -lean_dec(x_393); +x_500 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_500, 0, x_3); +x_501 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_502 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_502, 0, x_501); +lean_ctor_set(x_502, 1, x_500); +x_503 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_504 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_504, 0, x_502); +lean_ctor_set(x_504, 1, x_503); +x_505 = lean_box(0); +x_506 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_504, x_505, x_13, x_413); lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_486 = !lean_is_exclusive(x_426); -if (x_486 == 0) -{ -return x_426; -} -else -{ -lean_object* x_487; lean_object* x_488; lean_object* x_489; -x_487 = lean_ctor_get(x_426, 0); -x_488 = lean_ctor_get(x_426, 1); -lean_inc(x_488); -lean_inc(x_487); -lean_dec(x_426); -x_489 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_489, 0, x_487); -lean_ctor_set(x_489, 1, x_488); -return x_489; -} -} -} -else -{ -uint8_t x_490; -lean_dec(x_406); -lean_dec(x_393); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_490 = !lean_is_exclusive(x_418); -if (x_490 == 0) -{ -return x_418; -} -else -{ -lean_object* x_491; lean_object* x_492; lean_object* x_493; -x_491 = lean_ctor_get(x_418, 0); -x_492 = lean_ctor_get(x_418, 1); -lean_inc(x_492); -lean_inc(x_491); -lean_dec(x_418); -x_493 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_493, 0, x_491); -lean_ctor_set(x_493, 1, x_492); -return x_493; -} -} -} -} -else -{ -uint8_t x_507; -lean_dec(x_406); -lean_dec(x_396); -lean_dec(x_393); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_507 = !lean_is_exclusive(x_408); +x_507 = !lean_is_exclusive(x_506); if (x_507 == 0) { -return x_408; +return x_506; } else { lean_object* x_508; lean_object* x_509; lean_object* x_510; -x_508 = lean_ctor_get(x_408, 0); -x_509 = lean_ctor_get(x_408, 1); +x_508 = lean_ctor_get(x_506, 0); +x_509 = lean_ctor_get(x_506, 1); lean_inc(x_509); lean_inc(x_508); -lean_dec(x_408); +lean_dec(x_506); x_510 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_510, 0, x_508); lean_ctor_set(x_510, 1, x_509); @@ -6395,9 +6069,328 @@ return x_510; } else { -uint8_t x_511; +lean_dec(x_412); +lean_dec(x_399); +lean_dec(x_2); +x_419 = x_413; +goto block_497; +} +block_497: +{ +uint8_t x_420; lean_object* x_421; +x_420 = 1; +x_421 = l_Lean_Meta_revert(x_1, x_418, x_420, x_13, x_419); +if (lean_obj_tag(x_421) == 0) +{ +lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; uint8_t x_428; lean_object* x_429; +x_422 = lean_ctor_get(x_421, 0); +lean_inc(x_422); +x_423 = lean_ctor_get(x_421, 1); +lean_inc(x_423); +lean_dec(x_421); +x_424 = lean_ctor_get(x_422, 0); +lean_inc(x_424); +x_425 = lean_ctor_get(x_422, 1); +lean_inc(x_425); +lean_dec(x_422); +x_426 = lean_array_get_size(x_409); +x_427 = lean_box(0); +x_428 = 0; +x_429 = l_Lean_Meta_introN(x_425, x_426, x_427, x_428, x_13, x_423); +if (lean_obj_tag(x_429) == 0) +{ +lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; +x_430 = lean_ctor_get(x_429, 0); +lean_inc(x_430); +x_431 = lean_ctor_get(x_429, 1); +lean_inc(x_431); +lean_dec(x_429); +x_432 = lean_ctor_get(x_430, 0); +lean_inc(x_432); +x_433 = lean_ctor_get(x_430, 1); +lean_inc(x_433); +lean_dec(x_430); +x_434 = l_Lean_Meta_intro1(x_433, x_428, x_13, x_431); +if (lean_obj_tag(x_434) == 0) +{ +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; uint8_t x_449; lean_object* x_450; lean_object* x_478; uint8_t x_479; +x_435 = lean_ctor_get(x_434, 0); +lean_inc(x_435); +x_436 = lean_ctor_get(x_434, 1); +lean_inc(x_436); +lean_dec(x_434); +x_437 = lean_ctor_get(x_435, 0); +lean_inc(x_437); +x_438 = lean_ctor_get(x_435, 1); +lean_inc(x_438); +lean_dec(x_435); +x_439 = lean_box(0); +x_440 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_409, x_432, x_409, x_405, x_439); +lean_dec(x_409); +x_441 = x_432; +x_442 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_405, x_441); +x_443 = x_442; +lean_inc(x_437); +x_444 = l_Lean_mkFVar(x_437); +lean_inc(x_438); +x_445 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_445, 0, x_438); +x_446 = lean_box(x_414); +lean_inc(x_438); +x_447 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_447, 0, x_437); +lean_closure_set(x_447, 1, x_8); +lean_closure_set(x_447, 2, x_438); +lean_closure_set(x_447, 3, x_3); +lean_closure_set(x_447, 4, x_4); +lean_closure_set(x_447, 5, x_6); +lean_closure_set(x_447, 6, x_7); +lean_closure_set(x_447, 7, x_396); +lean_closure_set(x_447, 8, x_446); +lean_closure_set(x_447, 9, x_424); +lean_closure_set(x_447, 10, x_440); +lean_closure_set(x_447, 11, x_443); +lean_closure_set(x_447, 12, x_444); +x_448 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_448, 0, x_445); +lean_closure_set(x_448, 1, x_447); +x_478 = lean_ctor_get(x_436, 4); +lean_inc(x_478); +x_479 = lean_ctor_get_uint8(x_478, sizeof(void*)*1); +lean_dec(x_478); +if (x_479 == 0) +{ +x_449 = x_428; +x_450 = x_436; +goto block_477; +} +else +{ +lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; uint8_t x_484; +x_480 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_481 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_480, x_13, x_436); +x_482 = lean_ctor_get(x_481, 0); +lean_inc(x_482); +x_483 = lean_ctor_get(x_481, 1); +lean_inc(x_483); +lean_dec(x_481); +x_484 = lean_unbox(x_482); +lean_dec(x_482); +x_449 = x_484; +x_450 = x_483; +goto block_477; +} +block_477: +{ +if (x_449 == 0) +{ +lean_object* x_451; +x_451 = l_Lean_Meta_getMVarDecl(x_438, x_13, x_450); +if (lean_obj_tag(x_451) == 0) +{ +lean_object* x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; lean_object* x_456; +x_452 = lean_ctor_get(x_451, 0); +lean_inc(x_452); +x_453 = lean_ctor_get(x_451, 1); +lean_inc(x_453); +lean_dec(x_451); +x_454 = lean_ctor_get(x_452, 1); +lean_inc(x_454); +x_455 = lean_ctor_get(x_452, 4); +lean_inc(x_455); +lean_dec(x_452); +x_456 = l_Lean_Meta_withLocalContext___rarg(x_454, x_455, x_448, x_13, x_453); +lean_dec(x_13); +return x_456; +} +else +{ +uint8_t x_457; +lean_dec(x_448); +lean_dec(x_13); +x_457 = !lean_is_exclusive(x_451); +if (x_457 == 0) +{ +return x_451; +} +else +{ +lean_object* x_458; lean_object* x_459; lean_object* x_460; +x_458 = lean_ctor_get(x_451, 0); +x_459 = lean_ctor_get(x_451, 1); +lean_inc(x_459); +lean_inc(x_458); +lean_dec(x_451); +x_460 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_460, 0, x_458); +lean_ctor_set(x_460, 1, x_459); +return x_460; +} +} +} +else +{ +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_inc(x_438); +x_461 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_461, 0, x_438); +x_462 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_463 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_463, 0, x_462); +lean_ctor_set(x_463, 1, x_461); +x_464 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_465 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_464, x_463, x_13, x_450); +x_466 = lean_ctor_get(x_465, 1); +lean_inc(x_466); +lean_dec(x_465); +x_467 = l_Lean_Meta_getMVarDecl(x_438, x_13, x_466); +if (lean_obj_tag(x_467) == 0) +{ +lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; +x_468 = lean_ctor_get(x_467, 0); +lean_inc(x_468); +x_469 = lean_ctor_get(x_467, 1); +lean_inc(x_469); +lean_dec(x_467); +x_470 = lean_ctor_get(x_468, 1); +lean_inc(x_470); +x_471 = lean_ctor_get(x_468, 4); +lean_inc(x_471); +lean_dec(x_468); +x_472 = l_Lean_Meta_withLocalContext___rarg(x_470, x_471, x_448, x_13, x_469); +lean_dec(x_13); +return x_472; +} +else +{ +uint8_t x_473; +lean_dec(x_448); +lean_dec(x_13); +x_473 = !lean_is_exclusive(x_467); +if (x_473 == 0) +{ +return x_467; +} +else +{ +lean_object* x_474; lean_object* x_475; lean_object* x_476; +x_474 = lean_ctor_get(x_467, 0); +x_475 = lean_ctor_get(x_467, 1); +lean_inc(x_475); +lean_inc(x_474); +lean_dec(x_467); +x_476 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_476, 0, x_474); +lean_ctor_set(x_476, 1, x_475); +return x_476; +} +} +} +} +} +else +{ +uint8_t x_485; +lean_dec(x_432); +lean_dec(x_424); +lean_dec(x_409); +lean_dec(x_396); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_485 = !lean_is_exclusive(x_434); +if (x_485 == 0) +{ +return x_434; +} +else +{ +lean_object* x_486; lean_object* x_487; lean_object* x_488; +x_486 = lean_ctor_get(x_434, 0); +x_487 = lean_ctor_get(x_434, 1); +lean_inc(x_487); +lean_inc(x_486); +lean_dec(x_434); +x_488 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_488, 0, x_486); +lean_ctor_set(x_488, 1, x_487); +return x_488; +} +} +} +else +{ +uint8_t x_489; +lean_dec(x_424); +lean_dec(x_409); +lean_dec(x_396); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_489 = !lean_is_exclusive(x_429); +if (x_489 == 0) +{ +return x_429; +} +else +{ +lean_object* x_490; lean_object* x_491; lean_object* x_492; +x_490 = lean_ctor_get(x_429, 0); +x_491 = lean_ctor_get(x_429, 1); +lean_inc(x_491); +lean_inc(x_490); +lean_dec(x_429); +x_492 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_492, 0, x_490); +lean_ctor_set(x_492, 1, x_491); +return x_492; +} +} +} +else +{ +uint8_t x_493; +lean_dec(x_409); +lean_dec(x_396); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_493 = !lean_is_exclusive(x_421); +if (x_493 == 0) +{ +return x_421; +} +else +{ +lean_object* x_494; lean_object* x_495; lean_object* x_496; +x_494 = lean_ctor_get(x_421, 0); +x_495 = lean_ctor_get(x_421, 1); +lean_inc(x_495); +lean_inc(x_494); +lean_dec(x_421); +x_496 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_496, 0, x_494); +lean_ctor_set(x_496, 1, x_495); +return x_496; +} +} +} +} +else +{ +uint8_t x_511; +lean_dec(x_409); +lean_dec(x_399); lean_dec(x_396); -lean_dec(x_393); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -6406,19 +6399,19 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_511 = !lean_is_exclusive(x_405); +x_511 = !lean_is_exclusive(x_411); if (x_511 == 0) { -return x_405; +return x_411; } else { lean_object* x_512; lean_object* x_513; lean_object* x_514; -x_512 = lean_ctor_get(x_405, 0); -x_513 = lean_ctor_get(x_405, 1); +x_512 = lean_ctor_get(x_411, 0); +x_513 = lean_ctor_get(x_411, 1); lean_inc(x_513); lean_inc(x_512); -lean_dec(x_405); +lean_dec(x_411); x_514 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_514, 0, x_512); lean_ctor_set(x_514, 1, x_513); @@ -6429,7 +6422,40 @@ return x_514; else { uint8_t x_515; -lean_dec(x_393); +lean_dec(x_399); +lean_dec(x_396); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_515 = !lean_is_exclusive(x_408); +if (x_515 == 0) +{ +return x_408; +} +else +{ +lean_object* x_516; lean_object* x_517; lean_object* x_518; +x_516 = lean_ctor_get(x_408, 0); +x_517 = lean_ctor_get(x_408, 1); +lean_inc(x_517); +lean_inc(x_516); +lean_dec(x_408); +x_518 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_518, 0, x_516); +lean_ctor_set(x_518, 1, x_517); +return x_518; +} +} +} +else +{ +uint8_t x_519; +lean_dec(x_396); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -6440,428 +6466,397 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_515 = !lean_is_exclusive(x_394); -if (x_515 == 0) +x_519 = !lean_is_exclusive(x_397); +if (x_519 == 0) { -return x_394; +return x_397; } else { -lean_object* x_516; lean_object* x_517; lean_object* x_518; -x_516 = lean_ctor_get(x_394, 0); -x_517 = lean_ctor_get(x_394, 1); -lean_inc(x_517); -lean_inc(x_516); -lean_dec(x_394); -x_518 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_518, 0, x_516); -lean_ctor_set(x_518, 1, x_517); -return x_518; +lean_object* x_520; lean_object* x_521; lean_object* x_522; +x_520 = lean_ctor_get(x_397, 0); +x_521 = lean_ctor_get(x_397, 1); +lean_inc(x_521); +lean_inc(x_520); +lean_dec(x_397); +x_522 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_522, 0, x_520); +lean_ctor_set(x_522, 1, x_521); +return x_522; } } } case 4: { -lean_object* x_519; lean_object* x_520; +lean_object* x_523; lean_object* x_524; lean_dec(x_12); lean_dec(x_10); -x_519 = lean_ctor_get(x_7, 5); -lean_inc(x_519); +x_523 = lean_ctor_get(x_7, 5); +lean_inc(x_523); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_520 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_519, x_13, x_14); -if (lean_obj_tag(x_520) == 0) +x_524 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_523, x_13, x_14); +if (lean_obj_tag(x_524) == 0) { -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; -x_521 = lean_ctor_get(x_520, 1); -lean_inc(x_521); -lean_dec(x_520); -x_522 = lean_ctor_get(x_521, 1); -lean_inc(x_522); -x_523 = lean_ctor_get(x_7, 6); -lean_inc(x_523); -x_524 = l_List_redLength___main___rarg(x_523); -x_525 = lean_mk_empty_array_with_capacity(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; +x_525 = lean_ctor_get(x_524, 1); +lean_inc(x_525); lean_dec(x_524); -lean_inc(x_523); -x_526 = l_List_toArrayAux___main___rarg(x_523, x_525); -x_527 = x_526; -x_528 = lean_unsigned_to_nat(0u); -lean_inc(x_522); +x_526 = lean_ctor_get(x_525, 1); +lean_inc(x_526); +x_527 = lean_ctor_get(x_7, 6); +lean_inc(x_527); +x_528 = l_List_redLength___main___rarg(x_527); +x_529 = lean_mk_empty_array_with_capacity(x_528); +lean_dec(x_528); +lean_inc(x_527); +x_530 = l_List_toArrayAux___main___rarg(x_527, x_529); +x_531 = x_530; +x_532 = lean_unsigned_to_nat(0u); +lean_inc(x_526); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_529 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_529, 0, x_1); -lean_closure_set(x_529, 1, x_6); -lean_closure_set(x_529, 2, x_7); -lean_closure_set(x_529, 3, x_9); -lean_closure_set(x_529, 4, x_11); -lean_closure_set(x_529, 5, x_522); -lean_closure_set(x_529, 6, x_523); -lean_closure_set(x_529, 7, x_528); -lean_closure_set(x_529, 8, x_527); -x_530 = x_529; +x_533 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_533, 0, x_1); +lean_closure_set(x_533, 1, x_6); +lean_closure_set(x_533, 2, x_7); +lean_closure_set(x_533, 3, x_9); +lean_closure_set(x_533, 4, x_11); +lean_closure_set(x_533, 5, x_526); +lean_closure_set(x_533, 6, x_527); +lean_closure_set(x_533, 7, x_532); +lean_closure_set(x_533, 8, x_531); +x_534 = x_533; lean_inc(x_13); -x_531 = lean_apply_2(x_530, x_13, x_521); -if (lean_obj_tag(x_531) == 0) +x_535 = lean_apply_2(x_534, x_13, x_525); +if (lean_obj_tag(x_535) == 0) { -lean_object* x_532; lean_object* x_533; lean_object* x_534; -x_532 = lean_ctor_get(x_531, 0); -lean_inc(x_532); -x_533 = lean_ctor_get(x_531, 1); -lean_inc(x_533); -lean_dec(x_531); -lean_inc(x_1); -x_534 = l_Lean_Meta_getMVarType(x_1, x_13, x_533); -if (lean_obj_tag(x_534) == 0) -{ -lean_object* x_535; lean_object* x_536; uint8_t x_537; lean_object* x_538; lean_object* x_539; lean_object* x_540; lean_object* x_541; lean_object* x_542; -x_535 = lean_ctor_get(x_534, 0); -lean_inc(x_535); -x_536 = lean_ctor_get(x_534, 1); +lean_object* x_536; lean_object* x_537; lean_object* x_538; +x_536 = lean_ctor_get(x_535, 0); lean_inc(x_536); -lean_dec(x_534); -x_537 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_532); -x_538 = x_532; -x_539 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_528, x_538); -x_540 = x_539; -lean_inc(x_2); -x_541 = lean_array_push(x_540, x_2); -if (x_537 == 0) -{ -lean_object* x_621; uint8_t x_622; -x_621 = l_Lean_MetavarContext_exprDependsOn(x_522, x_535, x_2); -lean_dec(x_2); -x_622 = lean_unbox(x_621); -lean_dec(x_621); -if (x_622 == 0) +x_537 = lean_ctor_get(x_535, 1); +lean_inc(x_537); +lean_dec(x_535); +lean_inc(x_1); +x_538 = l_Lean_Meta_getMVarType(x_1, x_13, x_537); +if (lean_obj_tag(x_538) == 0) { +lean_object* x_539; lean_object* x_540; uint8_t x_541; lean_object* x_542; lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; +x_539 = lean_ctor_get(x_538, 0); +lean_inc(x_539); +x_540 = lean_ctor_get(x_538, 1); +lean_inc(x_540); +lean_dec(x_538); +x_541 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_536); x_542 = x_536; -goto block_620; +x_543 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_532, x_542); +x_544 = x_543; +lean_inc(x_2); +x_545 = lean_array_push(x_544, x_2); +if (x_541 == 0) +{ +lean_object* x_625; uint8_t x_626; +x_625 = l_Lean_MetavarContext_exprDependsOn(x_526, x_539, x_2); +lean_dec(x_2); +x_626 = lean_unbox(x_625); +lean_dec(x_625); +if (x_626 == 0) +{ +x_546 = x_540; +goto block_624; } else { -lean_object* x_623; lean_object* x_624; lean_object* x_625; lean_object* x_626; lean_object* x_627; lean_object* x_628; uint8_t x_629; -lean_dec(x_541); -lean_dec(x_532); -lean_dec(x_519); +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; uint8_t x_634; +lean_dec(x_545); +lean_dec(x_536); +lean_dec(x_523); lean_dec(x_8); lean_dec(x_7); lean_dec(x_4); -x_623 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_623, 0, x_3); -x_624 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_625 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_625, 0, x_624); -lean_ctor_set(x_625, 1, x_623); -x_626 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_627 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_627, 0, x_625); -lean_ctor_set(x_627, 1, x_626); -x_628 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_627, x_13, x_536); +x_627 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_627, 0, x_3); +x_628 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_629 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_629, 0, x_628); +lean_ctor_set(x_629, 1, x_627); +x_630 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_631 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_631, 0, x_629); +lean_ctor_set(x_631, 1, x_630); +x_632 = lean_box(0); +x_633 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_631, x_632, x_13, x_540); lean_dec(x_13); -x_629 = !lean_is_exclusive(x_628); -if (x_629 == 0) +x_634 = !lean_is_exclusive(x_633); +if (x_634 == 0) { -return x_628; +return x_633; } else { -lean_object* x_630; lean_object* x_631; lean_object* x_632; -x_630 = lean_ctor_get(x_628, 0); -x_631 = lean_ctor_get(x_628, 1); -lean_inc(x_631); -lean_inc(x_630); -lean_dec(x_628); -x_632 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_632, 0, x_630); -lean_ctor_set(x_632, 1, x_631); -return x_632; +lean_object* x_635; lean_object* x_636; lean_object* x_637; +x_635 = lean_ctor_get(x_633, 0); +x_636 = lean_ctor_get(x_633, 1); +lean_inc(x_636); +lean_inc(x_635); +lean_dec(x_633); +x_637 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_637, 0, x_635); +lean_ctor_set(x_637, 1, x_636); +return x_637; } } } else { -lean_dec(x_535); -lean_dec(x_522); +lean_dec(x_539); +lean_dec(x_526); lean_dec(x_2); -x_542 = x_536; -goto block_620; +x_546 = x_540; +goto block_624; } -block_620: +block_624: { -uint8_t x_543; lean_object* x_544; -x_543 = 1; -x_544 = l_Lean_Meta_revert(x_1, x_541, x_543, x_13, x_542); -if (lean_obj_tag(x_544) == 0) +uint8_t x_547; lean_object* x_548; +x_547 = 1; +x_548 = l_Lean_Meta_revert(x_1, x_545, x_547, x_13, x_546); +if (lean_obj_tag(x_548) == 0) { -lean_object* x_545; lean_object* x_546; lean_object* x_547; lean_object* x_548; lean_object* x_549; lean_object* x_550; uint8_t x_551; lean_object* x_552; -x_545 = lean_ctor_get(x_544, 0); -lean_inc(x_545); -x_546 = lean_ctor_get(x_544, 1); -lean_inc(x_546); -lean_dec(x_544); -x_547 = lean_ctor_get(x_545, 0); -lean_inc(x_547); -x_548 = lean_ctor_get(x_545, 1); -lean_inc(x_548); -lean_dec(x_545); -x_549 = lean_array_get_size(x_532); -x_550 = lean_box(0); -x_551 = 0; -x_552 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_551, x_548, x_549, x_550, x_13, x_546); -if (lean_obj_tag(x_552) == 0) +lean_object* x_549; lean_object* x_550; lean_object* x_551; lean_object* x_552; lean_object* x_553; lean_object* x_554; uint8_t x_555; lean_object* x_556; +x_549 = lean_ctor_get(x_548, 0); +lean_inc(x_549); +x_550 = lean_ctor_get(x_548, 1); +lean_inc(x_550); +lean_dec(x_548); +x_551 = lean_ctor_get(x_549, 0); +lean_inc(x_551); +x_552 = lean_ctor_get(x_549, 1); +lean_inc(x_552); +lean_dec(x_549); +x_553 = lean_array_get_size(x_536); +x_554 = lean_box(0); +x_555 = 0; +x_556 = l_Lean_Meta_introN(x_552, x_553, x_554, x_555, x_13, x_550); +if (lean_obj_tag(x_556) == 0) { -lean_object* x_553; lean_object* x_554; lean_object* x_555; lean_object* x_556; lean_object* x_557; -x_553 = lean_ctor_get(x_552, 0); -lean_inc(x_553); -x_554 = lean_ctor_get(x_552, 1); -lean_inc(x_554); -lean_dec(x_552); -x_555 = lean_ctor_get(x_553, 0); -lean_inc(x_555); -x_556 = lean_ctor_get(x_553, 1); -lean_inc(x_556); -lean_dec(x_553); -x_557 = l_Lean_Meta_intro1(x_556, x_551, x_13, x_554); -if (lean_obj_tag(x_557) == 0) -{ -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; uint8_t x_572; lean_object* x_573; lean_object* x_601; uint8_t x_602; -x_558 = lean_ctor_get(x_557, 0); +lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; +x_557 = lean_ctor_get(x_556, 0); +lean_inc(x_557); +x_558 = lean_ctor_get(x_556, 1); lean_inc(x_558); -x_559 = lean_ctor_get(x_557, 1); +lean_dec(x_556); +x_559 = lean_ctor_get(x_557, 0); lean_inc(x_559); +x_560 = lean_ctor_get(x_557, 1); +lean_inc(x_560); lean_dec(x_557); -x_560 = lean_ctor_get(x_558, 0); -lean_inc(x_560); -x_561 = lean_ctor_get(x_558, 1); -lean_inc(x_561); -lean_dec(x_558); -x_562 = lean_box(0); -x_563 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_532, x_555, x_532, x_528, x_562); -lean_dec(x_532); -x_564 = x_555; -x_565 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_528, x_564); -x_566 = x_565; -lean_inc(x_560); -x_567 = l_Lean_mkFVar(x_560); -lean_inc(x_561); -x_568 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_568, 0, x_561); -x_569 = lean_box(x_537); -lean_inc(x_561); -x_570 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_570, 0, x_560); -lean_closure_set(x_570, 1, x_8); -lean_closure_set(x_570, 2, x_561); -lean_closure_set(x_570, 3, x_3); -lean_closure_set(x_570, 4, x_4); -lean_closure_set(x_570, 5, x_6); -lean_closure_set(x_570, 6, x_7); -lean_closure_set(x_570, 7, x_519); -lean_closure_set(x_570, 8, x_569); -lean_closure_set(x_570, 9, x_547); -lean_closure_set(x_570, 10, x_563); -lean_closure_set(x_570, 11, x_566); -lean_closure_set(x_570, 12, x_567); -x_571 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_571, 0, x_568); -lean_closure_set(x_571, 1, x_570); -x_601 = lean_ctor_get(x_559, 4); -lean_inc(x_601); -x_602 = lean_ctor_get_uint8(x_601, sizeof(void*)*1); -lean_dec(x_601); -if (x_602 == 0) +x_561 = l_Lean_Meta_intro1(x_560, x_555, x_13, x_558); +if (lean_obj_tag(x_561) == 0) { -x_572 = x_551; -x_573 = x_559; -goto block_600; -} -else -{ -lean_object* x_603; lean_object* x_604; lean_object* x_605; lean_object* x_606; uint8_t x_607; -x_603 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_604 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_603, x_13, x_559); -x_605 = lean_ctor_get(x_604, 0); +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; uint8_t x_576; lean_object* x_577; lean_object* x_605; uint8_t x_606; +x_562 = lean_ctor_get(x_561, 0); +lean_inc(x_562); +x_563 = lean_ctor_get(x_561, 1); +lean_inc(x_563); +lean_dec(x_561); +x_564 = lean_ctor_get(x_562, 0); +lean_inc(x_564); +x_565 = lean_ctor_get(x_562, 1); +lean_inc(x_565); +lean_dec(x_562); +x_566 = lean_box(0); +x_567 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_536, x_559, x_536, x_532, x_566); +lean_dec(x_536); +x_568 = x_559; +x_569 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_532, x_568); +x_570 = x_569; +lean_inc(x_564); +x_571 = l_Lean_mkFVar(x_564); +lean_inc(x_565); +x_572 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_572, 0, x_565); +x_573 = lean_box(x_541); +lean_inc(x_565); +x_574 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_574, 0, x_564); +lean_closure_set(x_574, 1, x_8); +lean_closure_set(x_574, 2, x_565); +lean_closure_set(x_574, 3, x_3); +lean_closure_set(x_574, 4, x_4); +lean_closure_set(x_574, 5, x_6); +lean_closure_set(x_574, 6, x_7); +lean_closure_set(x_574, 7, x_523); +lean_closure_set(x_574, 8, x_573); +lean_closure_set(x_574, 9, x_551); +lean_closure_set(x_574, 10, x_567); +lean_closure_set(x_574, 11, x_570); +lean_closure_set(x_574, 12, x_571); +x_575 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_575, 0, x_572); +lean_closure_set(x_575, 1, x_574); +x_605 = lean_ctor_get(x_563, 4); lean_inc(x_605); -x_606 = lean_ctor_get(x_604, 1); -lean_inc(x_606); -lean_dec(x_604); -x_607 = lean_unbox(x_605); +x_606 = lean_ctor_get_uint8(x_605, sizeof(void*)*1); lean_dec(x_605); -x_572 = x_607; -x_573 = x_606; -goto block_600; -} -block_600: +if (x_606 == 0) { -if (x_572 == 0) -{ -lean_object* x_574; -x_574 = l_Lean_Meta_getMVarDecl(x_561, x_13, x_573); -if (lean_obj_tag(x_574) == 0) -{ -lean_object* x_575; lean_object* x_576; lean_object* x_577; lean_object* x_578; lean_object* x_579; -x_575 = lean_ctor_get(x_574, 0); -lean_inc(x_575); -x_576 = lean_ctor_get(x_574, 1); -lean_inc(x_576); -lean_dec(x_574); -x_577 = lean_ctor_get(x_575, 1); -lean_inc(x_577); -x_578 = lean_ctor_get(x_575, 4); -lean_inc(x_578); -lean_dec(x_575); -x_579 = l_Lean_Meta_withLocalContext___rarg(x_577, x_578, x_571, x_13, x_576); -lean_dec(x_13); -return x_579; +x_576 = x_555; +x_577 = x_563; +goto block_604; } else { -uint8_t x_580; -lean_dec(x_571); -lean_dec(x_13); -x_580 = !lean_is_exclusive(x_574); -if (x_580 == 0) -{ -return x_574; +lean_object* x_607; lean_object* x_608; lean_object* x_609; lean_object* x_610; uint8_t x_611; +x_607 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_608 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_607, x_13, x_563); +x_609 = lean_ctor_get(x_608, 0); +lean_inc(x_609); +x_610 = lean_ctor_get(x_608, 1); +lean_inc(x_610); +lean_dec(x_608); +x_611 = lean_unbox(x_609); +lean_dec(x_609); +x_576 = x_611; +x_577 = x_610; +goto block_604; } -else +block_604: { -lean_object* x_581; lean_object* x_582; lean_object* x_583; -x_581 = lean_ctor_get(x_574, 0); -x_582 = lean_ctor_get(x_574, 1); -lean_inc(x_582); +if (x_576 == 0) +{ +lean_object* x_578; +x_578 = l_Lean_Meta_getMVarDecl(x_565, x_13, x_577); +if (lean_obj_tag(x_578) == 0) +{ +lean_object* x_579; lean_object* x_580; lean_object* x_581; lean_object* x_582; lean_object* x_583; +x_579 = lean_ctor_get(x_578, 0); +lean_inc(x_579); +x_580 = lean_ctor_get(x_578, 1); +lean_inc(x_580); +lean_dec(x_578); +x_581 = lean_ctor_get(x_579, 1); lean_inc(x_581); -lean_dec(x_574); -x_583 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_583, 0, x_581); -lean_ctor_set(x_583, 1, x_582); +x_582 = lean_ctor_get(x_579, 4); +lean_inc(x_582); +lean_dec(x_579); +x_583 = l_Lean_Meta_withLocalContext___rarg(x_581, x_582, x_575, x_13, x_580); +lean_dec(x_13); return x_583; } +else +{ +uint8_t x_584; +lean_dec(x_575); +lean_dec(x_13); +x_584 = !lean_is_exclusive(x_578); +if (x_584 == 0) +{ +return x_578; +} +else +{ +lean_object* x_585; lean_object* x_586; lean_object* x_587; +x_585 = lean_ctor_get(x_578, 0); +x_586 = lean_ctor_get(x_578, 1); +lean_inc(x_586); +lean_inc(x_585); +lean_dec(x_578); +x_587 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_587, 0, x_585); +lean_ctor_set(x_587, 1, x_586); +return x_587; +} } } else { -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_inc(x_561); -x_584 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_584, 0, x_561); -x_585 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_586 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_586, 0, x_585); -lean_ctor_set(x_586, 1, x_584); -x_587 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_588 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_587, x_586, x_13, x_573); -x_589 = lean_ctor_get(x_588, 1); -lean_inc(x_589); -lean_dec(x_588); -x_590 = l_Lean_Meta_getMVarDecl(x_561, x_13, x_589); -if (lean_obj_tag(x_590) == 0) -{ -lean_object* x_591; lean_object* x_592; lean_object* x_593; lean_object* x_594; lean_object* x_595; -x_591 = lean_ctor_get(x_590, 0); -lean_inc(x_591); -x_592 = lean_ctor_get(x_590, 1); -lean_inc(x_592); -lean_dec(x_590); -x_593 = lean_ctor_get(x_591, 1); +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_inc(x_565); +x_588 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_588, 0, x_565); +x_589 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_590 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_590, 0, x_589); +lean_ctor_set(x_590, 1, x_588); +x_591 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_592 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_591, x_590, x_13, x_577); +x_593 = lean_ctor_get(x_592, 1); lean_inc(x_593); -x_594 = lean_ctor_get(x_591, 4); -lean_inc(x_594); -lean_dec(x_591); -x_595 = l_Lean_Meta_withLocalContext___rarg(x_593, x_594, x_571, x_13, x_592); -lean_dec(x_13); -return x_595; -} -else +lean_dec(x_592); +x_594 = l_Lean_Meta_getMVarDecl(x_565, x_13, x_593); +if (lean_obj_tag(x_594) == 0) { -uint8_t x_596; -lean_dec(x_571); -lean_dec(x_13); -x_596 = !lean_is_exclusive(x_590); -if (x_596 == 0) -{ -return x_590; -} -else -{ -lean_object* x_597; lean_object* x_598; lean_object* x_599; -x_597 = lean_ctor_get(x_590, 0); -x_598 = lean_ctor_get(x_590, 1); -lean_inc(x_598); +lean_object* x_595; lean_object* x_596; lean_object* x_597; lean_object* x_598; lean_object* x_599; +x_595 = lean_ctor_get(x_594, 0); +lean_inc(x_595); +x_596 = lean_ctor_get(x_594, 1); +lean_inc(x_596); +lean_dec(x_594); +x_597 = lean_ctor_get(x_595, 1); lean_inc(x_597); -lean_dec(x_590); -x_599 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_599, 0, x_597); -lean_ctor_set(x_599, 1, x_598); +x_598 = lean_ctor_get(x_595, 4); +lean_inc(x_598); +lean_dec(x_595); +x_599 = l_Lean_Meta_withLocalContext___rarg(x_597, x_598, x_575, x_13, x_596); +lean_dec(x_13); return x_599; } -} -} -} -} else { -uint8_t x_608; -lean_dec(x_555); -lean_dec(x_547); -lean_dec(x_532); -lean_dec(x_519); +uint8_t x_600; +lean_dec(x_575); lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_608 = !lean_is_exclusive(x_557); -if (x_608 == 0) +x_600 = !lean_is_exclusive(x_594); +if (x_600 == 0) { -return x_557; +return x_594; } else { -lean_object* x_609; lean_object* x_610; lean_object* x_611; -x_609 = lean_ctor_get(x_557, 0); -x_610 = lean_ctor_get(x_557, 1); -lean_inc(x_610); -lean_inc(x_609); -lean_dec(x_557); -x_611 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_611, 0, x_609); -lean_ctor_set(x_611, 1, x_610); -return x_611; +lean_object* x_601; lean_object* x_602; lean_object* x_603; +x_601 = lean_ctor_get(x_594, 0); +x_602 = lean_ctor_get(x_594, 1); +lean_inc(x_602); +lean_inc(x_601); +lean_dec(x_594); +x_603 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_603, 0, x_601); +lean_ctor_set(x_603, 1, x_602); +return x_603; +} +} } } } else { uint8_t x_612; -lean_dec(x_547); -lean_dec(x_532); -lean_dec(x_519); +lean_dec(x_559); +lean_dec(x_551); +lean_dec(x_536); +lean_dec(x_523); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_612 = !lean_is_exclusive(x_552); +x_612 = !lean_is_exclusive(x_561); if (x_612 == 0) { -return x_552; +return x_561; } else { lean_object* x_613; lean_object* x_614; lean_object* x_615; -x_613 = lean_ctor_get(x_552, 0); -x_614 = lean_ctor_get(x_552, 1); +x_613 = lean_ctor_get(x_561, 0); +x_614 = lean_ctor_get(x_561, 1); lean_inc(x_614); lean_inc(x_613); -lean_dec(x_552); +lean_dec(x_561); x_615 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_615, 0, x_613); lean_ctor_set(x_615, 1, x_614); @@ -6872,27 +6867,28 @@ return x_615; else { uint8_t x_616; -lean_dec(x_532); -lean_dec(x_519); +lean_dec(x_551); +lean_dec(x_536); +lean_dec(x_523); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_616 = !lean_is_exclusive(x_544); +x_616 = !lean_is_exclusive(x_556); if (x_616 == 0) { -return x_544; +return x_556; } else { lean_object* x_617; lean_object* x_618; lean_object* x_619; -x_617 = lean_ctor_get(x_544, 0); -x_618 = lean_ctor_get(x_544, 1); +x_617 = lean_ctor_get(x_556, 0); +x_618 = lean_ctor_get(x_556, 1); lean_inc(x_618); lean_inc(x_617); -lean_dec(x_544); +lean_dec(x_556); x_619 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_619, 0, x_617); lean_ctor_set(x_619, 1, x_618); @@ -6900,13 +6896,44 @@ return x_619; } } } +else +{ +uint8_t x_620; +lean_dec(x_536); +lean_dec(x_523); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_620 = !lean_is_exclusive(x_548); +if (x_620 == 0) +{ +return x_548; } else { -uint8_t x_633; -lean_dec(x_532); -lean_dec(x_522); -lean_dec(x_519); +lean_object* x_621; lean_object* x_622; lean_object* x_623; +x_621 = lean_ctor_get(x_548, 0); +x_622 = lean_ctor_get(x_548, 1); +lean_inc(x_622); +lean_inc(x_621); +lean_dec(x_548); +x_623 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_623, 0, x_621); +lean_ctor_set(x_623, 1, x_622); +return x_623; +} +} +} +} +else +{ +uint8_t x_638; +lean_dec(x_536); +lean_dec(x_526); +lean_dec(x_523); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -6915,63 +6942,63 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_633 = !lean_is_exclusive(x_534); -if (x_633 == 0) +x_638 = !lean_is_exclusive(x_538); +if (x_638 == 0) { -return x_534; +return x_538; } else { -lean_object* x_634; lean_object* x_635; lean_object* x_636; -x_634 = lean_ctor_get(x_534, 0); -x_635 = lean_ctor_get(x_534, 1); -lean_inc(x_635); -lean_inc(x_634); -lean_dec(x_534); -x_636 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_636, 0, x_634); -lean_ctor_set(x_636, 1, x_635); -return x_636; -} -} -} -else -{ -uint8_t x_637; -lean_dec(x_522); -lean_dec(x_519); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_637 = !lean_is_exclusive(x_531); -if (x_637 == 0) -{ -return x_531; -} -else -{ -lean_object* x_638; lean_object* x_639; lean_object* x_640; -x_638 = lean_ctor_get(x_531, 0); -x_639 = lean_ctor_get(x_531, 1); +lean_object* x_639; lean_object* x_640; lean_object* x_641; +x_639 = lean_ctor_get(x_538, 0); +x_640 = lean_ctor_get(x_538, 1); +lean_inc(x_640); lean_inc(x_639); -lean_inc(x_638); -lean_dec(x_531); -x_640 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_640, 0, x_638); -lean_ctor_set(x_640, 1, x_639); -return x_640; +lean_dec(x_538); +x_641 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_641, 0, x_639); +lean_ctor_set(x_641, 1, x_640); +return x_641; } } } else { -uint8_t x_641; -lean_dec(x_519); +uint8_t x_642; +lean_dec(x_526); +lean_dec(x_523); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_642 = !lean_is_exclusive(x_535); +if (x_642 == 0) +{ +return x_535; +} +else +{ +lean_object* x_643; lean_object* x_644; lean_object* x_645; +x_643 = lean_ctor_get(x_535, 0); +x_644 = lean_ctor_get(x_535, 1); +lean_inc(x_644); +lean_inc(x_643); +lean_dec(x_535); +x_645 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_645, 0, x_643); +lean_ctor_set(x_645, 1, x_644); +return x_645; +} +} +} +else +{ +uint8_t x_646; +lean_dec(x_523); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -6982,213 +7009,200 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_641 = !lean_is_exclusive(x_520); -if (x_641 == 0) +x_646 = !lean_is_exclusive(x_524); +if (x_646 == 0) { -return x_520; +return x_524; } else { -lean_object* x_642; lean_object* x_643; lean_object* x_644; -x_642 = lean_ctor_get(x_520, 0); -x_643 = lean_ctor_get(x_520, 1); -lean_inc(x_643); -lean_inc(x_642); -lean_dec(x_520); -x_644 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_644, 0, x_642); -lean_ctor_set(x_644, 1, x_643); -return x_644; +lean_object* x_647; lean_object* x_648; lean_object* x_649; +x_647 = lean_ctor_get(x_524, 0); +x_648 = lean_ctor_get(x_524, 1); +lean_inc(x_648); +lean_inc(x_647); +lean_dec(x_524); +x_649 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_649, 0, x_647); +lean_ctor_set(x_649, 1, x_648); +return x_649; } } } case 5: { -lean_object* x_645; lean_object* x_646; lean_object* x_647; lean_object* x_648; lean_object* x_649; -x_645 = lean_ctor_get(x_10, 0); -lean_inc(x_645); -x_646 = lean_ctor_get(x_10, 1); -lean_inc(x_646); +lean_object* x_650; lean_object* x_651; lean_object* x_652; lean_object* x_653; lean_object* x_654; +x_650 = lean_ctor_get(x_10, 0); +lean_inc(x_650); +x_651 = lean_ctor_get(x_10, 1); +lean_inc(x_651); lean_dec(x_10); -x_647 = lean_array_set(x_11, x_12, x_646); -x_648 = lean_unsigned_to_nat(1u); -x_649 = lean_nat_sub(x_12, x_648); +x_652 = lean_array_set(x_11, x_12, x_651); +x_653 = lean_unsigned_to_nat(1u); +x_654 = lean_nat_sub(x_12, x_653); lean_dec(x_12); -x_10 = x_645; -x_11 = x_647; -x_12 = x_649; +x_10 = x_650; +x_11 = x_652; +x_12 = x_654; goto _start; } case 6: { -lean_object* x_651; lean_object* x_652; +lean_object* x_656; lean_object* x_657; lean_dec(x_12); lean_dec(x_10); -x_651 = lean_ctor_get(x_7, 5); -lean_inc(x_651); +x_656 = lean_ctor_get(x_7, 5); +lean_inc(x_656); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_652 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_651, x_13, x_14); -if (lean_obj_tag(x_652) == 0) +x_657 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_656, x_13, x_14); +if (lean_obj_tag(x_657) == 0) { -lean_object* x_653; lean_object* x_654; lean_object* x_655; lean_object* x_656; lean_object* x_657; lean_object* x_658; lean_object* x_659; lean_object* x_660; lean_object* x_661; lean_object* x_662; lean_object* x_663; -x_653 = lean_ctor_get(x_652, 1); -lean_inc(x_653); -lean_dec(x_652); -x_654 = lean_ctor_get(x_653, 1); -lean_inc(x_654); -x_655 = lean_ctor_get(x_7, 6); -lean_inc(x_655); -x_656 = l_List_redLength___main___rarg(x_655); -x_657 = lean_mk_empty_array_with_capacity(x_656); -lean_dec(x_656); -lean_inc(x_655); -x_658 = l_List_toArrayAux___main___rarg(x_655, x_657); -x_659 = x_658; -x_660 = lean_unsigned_to_nat(0u); -lean_inc(x_654); +lean_object* x_658; lean_object* x_659; lean_object* x_660; lean_object* x_661; lean_object* x_662; lean_object* x_663; lean_object* x_664; lean_object* x_665; lean_object* x_666; lean_object* x_667; lean_object* x_668; +x_658 = lean_ctor_get(x_657, 1); +lean_inc(x_658); +lean_dec(x_657); +x_659 = lean_ctor_get(x_658, 1); +lean_inc(x_659); +x_660 = lean_ctor_get(x_7, 6); +lean_inc(x_660); +x_661 = l_List_redLength___main___rarg(x_660); +x_662 = lean_mk_empty_array_with_capacity(x_661); +lean_dec(x_661); +lean_inc(x_660); +x_663 = l_List_toArrayAux___main___rarg(x_660, x_662); +x_664 = x_663; +x_665 = lean_unsigned_to_nat(0u); +lean_inc(x_659); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_661 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_661, 0, x_1); -lean_closure_set(x_661, 1, x_6); -lean_closure_set(x_661, 2, x_7); -lean_closure_set(x_661, 3, x_9); -lean_closure_set(x_661, 4, x_11); -lean_closure_set(x_661, 5, x_654); -lean_closure_set(x_661, 6, x_655); -lean_closure_set(x_661, 7, x_660); -lean_closure_set(x_661, 8, x_659); -x_662 = x_661; +x_666 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_666, 0, x_1); +lean_closure_set(x_666, 1, x_6); +lean_closure_set(x_666, 2, x_7); +lean_closure_set(x_666, 3, x_9); +lean_closure_set(x_666, 4, x_11); +lean_closure_set(x_666, 5, x_659); +lean_closure_set(x_666, 6, x_660); +lean_closure_set(x_666, 7, x_665); +lean_closure_set(x_666, 8, x_664); +x_667 = x_666; lean_inc(x_13); -x_663 = lean_apply_2(x_662, x_13, x_653); -if (lean_obj_tag(x_663) == 0) +x_668 = lean_apply_2(x_667, x_13, x_658); +if (lean_obj_tag(x_668) == 0) { -lean_object* x_664; lean_object* x_665; lean_object* x_666; -x_664 = lean_ctor_get(x_663, 0); -lean_inc(x_664); -x_665 = lean_ctor_get(x_663, 1); -lean_inc(x_665); -lean_dec(x_663); +lean_object* x_669; lean_object* x_670; lean_object* x_671; +x_669 = lean_ctor_get(x_668, 0); +lean_inc(x_669); +x_670 = lean_ctor_get(x_668, 1); +lean_inc(x_670); +lean_dec(x_668); lean_inc(x_1); -x_666 = l_Lean_Meta_getMVarType(x_1, x_13, x_665); -if (lean_obj_tag(x_666) == 0) +x_671 = l_Lean_Meta_getMVarType(x_1, x_13, x_670); +if (lean_obj_tag(x_671) == 0) { -lean_object* x_667; lean_object* x_668; uint8_t x_669; lean_object* x_670; lean_object* x_671; lean_object* x_672; lean_object* x_673; lean_object* x_674; -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 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_664); -x_670 = x_664; -x_671 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_660, x_670); -x_672 = x_671; +lean_object* x_672; lean_object* x_673; uint8_t x_674; lean_object* x_675; lean_object* x_676; lean_object* x_677; lean_object* x_678; lean_object* x_679; +x_672 = lean_ctor_get(x_671, 0); +lean_inc(x_672); +x_673 = lean_ctor_get(x_671, 1); +lean_inc(x_673); +lean_dec(x_671); +x_674 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_669); +x_675 = x_669; +x_676 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_665, x_675); +x_677 = x_676; lean_inc(x_2); -x_673 = lean_array_push(x_672, x_2); -if (x_669 == 0) +x_678 = lean_array_push(x_677, x_2); +if (x_674 == 0) { -lean_object* x_753; uint8_t x_754; -x_753 = l_Lean_MetavarContext_exprDependsOn(x_654, x_667, x_2); +lean_object* x_758; uint8_t x_759; +x_758 = l_Lean_MetavarContext_exprDependsOn(x_659, x_672, x_2); lean_dec(x_2); -x_754 = lean_unbox(x_753); -lean_dec(x_753); -if (x_754 == 0) +x_759 = lean_unbox(x_758); +lean_dec(x_758); +if (x_759 == 0) { -x_674 = x_668; -goto block_752; +x_679 = x_673; +goto block_757; } else { -lean_object* x_755; lean_object* x_756; lean_object* x_757; lean_object* x_758; lean_object* x_759; lean_object* x_760; uint8_t x_761; -lean_dec(x_673); -lean_dec(x_664); -lean_dec(x_651); +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; uint8_t x_767; +lean_dec(x_678); +lean_dec(x_669); +lean_dec(x_656); lean_dec(x_8); lean_dec(x_7); lean_dec(x_4); -x_755 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_755, 0, x_3); -x_756 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_757 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_757, 0, x_756); -lean_ctor_set(x_757, 1, x_755); -x_758 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_759 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_759, 0, x_757); -lean_ctor_set(x_759, 1, x_758); -x_760 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_759, x_13, x_668); -lean_dec(x_13); -x_761 = !lean_is_exclusive(x_760); -if (x_761 == 0) -{ -return x_760; -} -else -{ -lean_object* x_762; lean_object* x_763; lean_object* x_764; -x_762 = lean_ctor_get(x_760, 0); -x_763 = lean_ctor_get(x_760, 1); -lean_inc(x_763); -lean_inc(x_762); -lean_dec(x_760); -x_764 = lean_alloc_ctor(1, 2, 0); +x_760 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_760, 0, x_3); +x_761 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_762 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_762, 0, x_761); +lean_ctor_set(x_762, 1, x_760); +x_763 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_764 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_764, 0, x_762); lean_ctor_set(x_764, 1, x_763); -return x_764; +x_765 = lean_box(0); +x_766 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_764, x_765, x_13, x_673); +lean_dec(x_13); +x_767 = !lean_is_exclusive(x_766); +if (x_767 == 0) +{ +return x_766; +} +else +{ +lean_object* x_768; lean_object* x_769; lean_object* x_770; +x_768 = lean_ctor_get(x_766, 0); +x_769 = lean_ctor_get(x_766, 1); +lean_inc(x_769); +lean_inc(x_768); +lean_dec(x_766); +x_770 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_770, 0, x_768); +lean_ctor_set(x_770, 1, x_769); +return x_770; } } } else { -lean_dec(x_667); -lean_dec(x_654); +lean_dec(x_672); +lean_dec(x_659); lean_dec(x_2); -x_674 = x_668; -goto block_752; +x_679 = x_673; +goto block_757; } -block_752: +block_757: { -uint8_t x_675; lean_object* x_676; -x_675 = 1; -x_676 = l_Lean_Meta_revert(x_1, x_673, x_675, x_13, x_674); -if (lean_obj_tag(x_676) == 0) +uint8_t x_680; lean_object* x_681; +x_680 = 1; +x_681 = l_Lean_Meta_revert(x_1, x_678, x_680, x_13, x_679); +if (lean_obj_tag(x_681) == 0) { -lean_object* x_677; lean_object* x_678; lean_object* x_679; lean_object* x_680; lean_object* x_681; lean_object* x_682; uint8_t x_683; lean_object* x_684; -x_677 = lean_ctor_get(x_676, 0); -lean_inc(x_677); -x_678 = lean_ctor_get(x_676, 1); -lean_inc(x_678); -lean_dec(x_676); -x_679 = lean_ctor_get(x_677, 0); -lean_inc(x_679); -x_680 = lean_ctor_get(x_677, 1); -lean_inc(x_680); -lean_dec(x_677); -x_681 = lean_array_get_size(x_664); -x_682 = lean_box(0); -x_683 = 0; -x_684 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_683, x_680, x_681, x_682, x_13, x_678); -if (lean_obj_tag(x_684) == 0) -{ -lean_object* x_685; lean_object* x_686; lean_object* x_687; lean_object* x_688; lean_object* x_689; -x_685 = lean_ctor_get(x_684, 0); +lean_object* x_682; lean_object* x_683; lean_object* x_684; lean_object* x_685; lean_object* x_686; lean_object* x_687; uint8_t x_688; lean_object* x_689; +x_682 = lean_ctor_get(x_681, 0); +lean_inc(x_682); +x_683 = lean_ctor_get(x_681, 1); +lean_inc(x_683); +lean_dec(x_681); +x_684 = lean_ctor_get(x_682, 0); +lean_inc(x_684); +x_685 = lean_ctor_get(x_682, 1); lean_inc(x_685); -x_686 = lean_ctor_get(x_684, 1); -lean_inc(x_686); -lean_dec(x_684); -x_687 = lean_ctor_get(x_685, 0); -lean_inc(x_687); -x_688 = lean_ctor_get(x_685, 1); -lean_inc(x_688); -lean_dec(x_685); -x_689 = l_Lean_Meta_intro1(x_688, x_683, x_13, x_686); +lean_dec(x_682); +x_686 = lean_array_get_size(x_669); +x_687 = lean_box(0); +x_688 = 0; +x_689 = l_Lean_Meta_introN(x_685, x_686, x_687, x_688, x_13, x_683); if (lean_obj_tag(x_689) == 0) { -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; uint8_t x_704; lean_object* x_705; lean_object* x_733; uint8_t x_734; +lean_object* x_690; lean_object* x_691; lean_object* x_692; lean_object* x_693; lean_object* x_694; x_690 = lean_ctor_get(x_689, 0); lean_inc(x_690); x_691 = lean_ctor_get(x_689, 1); @@ -7199,165 +7213,179 @@ lean_inc(x_692); x_693 = lean_ctor_get(x_690, 1); lean_inc(x_693); lean_dec(x_690); -x_694 = lean_box(0); -x_695 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_664, x_687, x_664, x_660, x_694); -lean_dec(x_664); -x_696 = x_687; -x_697 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_660, x_696); -x_698 = x_697; -lean_inc(x_692); -x_699 = l_Lean_mkFVar(x_692); -lean_inc(x_693); -x_700 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_700, 0, x_693); -x_701 = lean_box(x_669); -lean_inc(x_693); -x_702 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_702, 0, x_692); -lean_closure_set(x_702, 1, x_8); -lean_closure_set(x_702, 2, x_693); -lean_closure_set(x_702, 3, x_3); -lean_closure_set(x_702, 4, x_4); -lean_closure_set(x_702, 5, x_6); -lean_closure_set(x_702, 6, x_7); -lean_closure_set(x_702, 7, x_651); -lean_closure_set(x_702, 8, x_701); -lean_closure_set(x_702, 9, x_679); -lean_closure_set(x_702, 10, x_695); -lean_closure_set(x_702, 11, x_698); -lean_closure_set(x_702, 12, x_699); -x_703 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_703, 0, x_700); -lean_closure_set(x_703, 1, x_702); -x_733 = lean_ctor_get(x_691, 4); -lean_inc(x_733); -x_734 = lean_ctor_get_uint8(x_733, sizeof(void*)*1); -lean_dec(x_733); -if (x_734 == 0) +x_694 = l_Lean_Meta_intro1(x_693, x_688, x_13, x_691); +if (lean_obj_tag(x_694) == 0) { -x_704 = x_683; -x_705 = x_691; -goto block_732; +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; uint8_t x_709; lean_object* x_710; lean_object* x_738; uint8_t x_739; +x_695 = lean_ctor_get(x_694, 0); +lean_inc(x_695); +x_696 = lean_ctor_get(x_694, 1); +lean_inc(x_696); +lean_dec(x_694); +x_697 = lean_ctor_get(x_695, 0); +lean_inc(x_697); +x_698 = lean_ctor_get(x_695, 1); +lean_inc(x_698); +lean_dec(x_695); +x_699 = lean_box(0); +x_700 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_669, x_692, x_669, x_665, x_699); +lean_dec(x_669); +x_701 = x_692; +x_702 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_665, x_701); +x_703 = x_702; +lean_inc(x_697); +x_704 = l_Lean_mkFVar(x_697); +lean_inc(x_698); +x_705 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_705, 0, x_698); +x_706 = lean_box(x_674); +lean_inc(x_698); +x_707 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_707, 0, x_697); +lean_closure_set(x_707, 1, x_8); +lean_closure_set(x_707, 2, x_698); +lean_closure_set(x_707, 3, x_3); +lean_closure_set(x_707, 4, x_4); +lean_closure_set(x_707, 5, x_6); +lean_closure_set(x_707, 6, x_7); +lean_closure_set(x_707, 7, x_656); +lean_closure_set(x_707, 8, x_706); +lean_closure_set(x_707, 9, x_684); +lean_closure_set(x_707, 10, x_700); +lean_closure_set(x_707, 11, x_703); +lean_closure_set(x_707, 12, x_704); +x_708 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_708, 0, x_705); +lean_closure_set(x_708, 1, x_707); +x_738 = lean_ctor_get(x_696, 4); +lean_inc(x_738); +x_739 = lean_ctor_get_uint8(x_738, sizeof(void*)*1); +lean_dec(x_738); +if (x_739 == 0) +{ +x_709 = x_688; +x_710 = x_696; +goto block_737; } else { -lean_object* x_735; lean_object* x_736; lean_object* x_737; lean_object* x_738; uint8_t x_739; -x_735 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_736 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_735, x_13, x_691); -x_737 = lean_ctor_get(x_736, 0); -lean_inc(x_737); -x_738 = lean_ctor_get(x_736, 1); -lean_inc(x_738); -lean_dec(x_736); -x_739 = lean_unbox(x_737); -lean_dec(x_737); -x_704 = x_739; -x_705 = x_738; -goto block_732; +lean_object* x_740; lean_object* x_741; lean_object* x_742; lean_object* x_743; uint8_t x_744; +x_740 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_741 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_740, x_13, x_696); +x_742 = lean_ctor_get(x_741, 0); +lean_inc(x_742); +x_743 = lean_ctor_get(x_741, 1); +lean_inc(x_743); +lean_dec(x_741); +x_744 = lean_unbox(x_742); +lean_dec(x_742); +x_709 = x_744; +x_710 = x_743; +goto block_737; } -block_732: +block_737: { -if (x_704 == 0) +if (x_709 == 0) { -lean_object* x_706; -x_706 = l_Lean_Meta_getMVarDecl(x_693, x_13, x_705); -if (lean_obj_tag(x_706) == 0) +lean_object* x_711; +x_711 = l_Lean_Meta_getMVarDecl(x_698, x_13, x_710); +if (lean_obj_tag(x_711) == 0) { -lean_object* x_707; lean_object* x_708; lean_object* x_709; lean_object* x_710; lean_object* x_711; -x_707 = lean_ctor_get(x_706, 0); -lean_inc(x_707); -x_708 = lean_ctor_get(x_706, 1); -lean_inc(x_708); -lean_dec(x_706); -x_709 = lean_ctor_get(x_707, 1); -lean_inc(x_709); -x_710 = lean_ctor_get(x_707, 4); -lean_inc(x_710); -lean_dec(x_707); -x_711 = l_Lean_Meta_withLocalContext___rarg(x_709, x_710, x_703, x_13, x_708); +lean_object* x_712; lean_object* x_713; lean_object* x_714; lean_object* x_715; lean_object* x_716; +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 = lean_ctor_get(x_712, 1); +lean_inc(x_714); +x_715 = lean_ctor_get(x_712, 4); +lean_inc(x_715); +lean_dec(x_712); +x_716 = l_Lean_Meta_withLocalContext___rarg(x_714, x_715, x_708, x_13, x_713); lean_dec(x_13); +return x_716; +} +else +{ +uint8_t x_717; +lean_dec(x_708); +lean_dec(x_13); +x_717 = !lean_is_exclusive(x_711); +if (x_717 == 0) +{ return x_711; } else { -uint8_t x_712; -lean_dec(x_703); -lean_dec(x_13); -x_712 = !lean_is_exclusive(x_706); -if (x_712 == 0) -{ -return x_706; -} -else -{ -lean_object* x_713; lean_object* x_714; lean_object* x_715; -x_713 = lean_ctor_get(x_706, 0); -x_714 = lean_ctor_get(x_706, 1); -lean_inc(x_714); -lean_inc(x_713); -lean_dec(x_706); -x_715 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_715, 0, x_713); -lean_ctor_set(x_715, 1, x_714); -return x_715; +lean_object* x_718; lean_object* x_719; lean_object* x_720; +x_718 = lean_ctor_get(x_711, 0); +x_719 = lean_ctor_get(x_711, 1); +lean_inc(x_719); +lean_inc(x_718); +lean_dec(x_711); +x_720 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_720, 0, x_718); +lean_ctor_set(x_720, 1, x_719); +return x_720; } } } else { -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_inc(x_693); -x_716 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_716, 0, x_693); -x_717 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_718 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_718, 0, x_717); -lean_ctor_set(x_718, 1, x_716); -x_719 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_720 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_719, x_718, x_13, x_705); -x_721 = lean_ctor_get(x_720, 1); -lean_inc(x_721); -lean_dec(x_720); -x_722 = l_Lean_Meta_getMVarDecl(x_693, x_13, x_721); -if (lean_obj_tag(x_722) == 0) -{ -lean_object* x_723; lean_object* x_724; lean_object* x_725; lean_object* x_726; lean_object* x_727; -x_723 = lean_ctor_get(x_722, 0); -lean_inc(x_723); -x_724 = lean_ctor_get(x_722, 1); -lean_inc(x_724); -lean_dec(x_722); -x_725 = lean_ctor_get(x_723, 1); -lean_inc(x_725); -x_726 = lean_ctor_get(x_723, 4); +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_inc(x_698); +x_721 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_721, 0, x_698); +x_722 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_723 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_723, 0, x_722); +lean_ctor_set(x_723, 1, x_721); +x_724 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_725 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_724, x_723, x_13, x_710); +x_726 = lean_ctor_get(x_725, 1); lean_inc(x_726); -lean_dec(x_723); -x_727 = l_Lean_Meta_withLocalContext___rarg(x_725, x_726, x_703, x_13, x_724); +lean_dec(x_725); +x_727 = l_Lean_Meta_getMVarDecl(x_698, x_13, x_726); +if (lean_obj_tag(x_727) == 0) +{ +lean_object* x_728; lean_object* x_729; lean_object* x_730; lean_object* x_731; lean_object* x_732; +x_728 = lean_ctor_get(x_727, 0); +lean_inc(x_728); +x_729 = lean_ctor_get(x_727, 1); +lean_inc(x_729); +lean_dec(x_727); +x_730 = lean_ctor_get(x_728, 1); +lean_inc(x_730); +x_731 = lean_ctor_get(x_728, 4); +lean_inc(x_731); +lean_dec(x_728); +x_732 = l_Lean_Meta_withLocalContext___rarg(x_730, x_731, x_708, x_13, x_729); lean_dec(x_13); +return x_732; +} +else +{ +uint8_t x_733; +lean_dec(x_708); +lean_dec(x_13); +x_733 = !lean_is_exclusive(x_727); +if (x_733 == 0) +{ return x_727; } else { -uint8_t x_728; -lean_dec(x_703); -lean_dec(x_13); -x_728 = !lean_is_exclusive(x_722); -if (x_728 == 0) -{ -return x_722; -} -else -{ -lean_object* x_729; lean_object* x_730; lean_object* x_731; -x_729 = lean_ctor_get(x_722, 0); -x_730 = lean_ctor_get(x_722, 1); -lean_inc(x_730); -lean_inc(x_729); -lean_dec(x_722); -x_731 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_731, 0, x_729); -lean_ctor_set(x_731, 1, x_730); -return x_731; +lean_object* x_734; lean_object* x_735; lean_object* x_736; +x_734 = lean_ctor_get(x_727, 0); +x_735 = lean_ctor_get(x_727, 1); +lean_inc(x_735); +lean_inc(x_734); +lean_dec(x_727); +x_736 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_736, 0, x_734); +lean_ctor_set(x_736, 1, x_735); +return x_736; } } } @@ -7365,107 +7393,107 @@ return x_731; } else { -uint8_t x_740; -lean_dec(x_687); -lean_dec(x_679); -lean_dec(x_664); -lean_dec(x_651); +uint8_t x_745; +lean_dec(x_692); +lean_dec(x_684); +lean_dec(x_669); +lean_dec(x_656); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_740 = !lean_is_exclusive(x_689); -if (x_740 == 0) +x_745 = !lean_is_exclusive(x_694); +if (x_745 == 0) +{ +return x_694; +} +else +{ +lean_object* x_746; lean_object* x_747; lean_object* x_748; +x_746 = lean_ctor_get(x_694, 0); +x_747 = lean_ctor_get(x_694, 1); +lean_inc(x_747); +lean_inc(x_746); +lean_dec(x_694); +x_748 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_748, 0, x_746); +lean_ctor_set(x_748, 1, x_747); +return x_748; +} +} +} +else +{ +uint8_t x_749; +lean_dec(x_684); +lean_dec(x_669); +lean_dec(x_656); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_749 = !lean_is_exclusive(x_689); +if (x_749 == 0) { return x_689; } else { -lean_object* x_741; lean_object* x_742; lean_object* x_743; -x_741 = lean_ctor_get(x_689, 0); -x_742 = lean_ctor_get(x_689, 1); -lean_inc(x_742); -lean_inc(x_741); -lean_dec(x_689); -x_743 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_743, 0, x_741); -lean_ctor_set(x_743, 1, x_742); -return x_743; -} -} -} -else -{ -uint8_t x_744; -lean_dec(x_679); -lean_dec(x_664); -lean_dec(x_651); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_744 = !lean_is_exclusive(x_684); -if (x_744 == 0) -{ -return x_684; -} -else -{ -lean_object* x_745; lean_object* x_746; lean_object* x_747; -x_745 = lean_ctor_get(x_684, 0); -x_746 = lean_ctor_get(x_684, 1); -lean_inc(x_746); -lean_inc(x_745); -lean_dec(x_684); -x_747 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_747, 0, x_745); -lean_ctor_set(x_747, 1, x_746); -return x_747; -} -} -} -else -{ -uint8_t x_748; -lean_dec(x_664); -lean_dec(x_651); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_748 = !lean_is_exclusive(x_676); -if (x_748 == 0) -{ -return x_676; -} -else -{ -lean_object* x_749; lean_object* x_750; lean_object* x_751; -x_749 = lean_ctor_get(x_676, 0); -x_750 = lean_ctor_get(x_676, 1); +lean_object* x_750; lean_object* x_751; lean_object* x_752; +x_750 = lean_ctor_get(x_689, 0); +x_751 = lean_ctor_get(x_689, 1); +lean_inc(x_751); lean_inc(x_750); -lean_inc(x_749); -lean_dec(x_676); -x_751 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_751, 0, x_749); -lean_ctor_set(x_751, 1, x_750); -return x_751; +lean_dec(x_689); +x_752 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_752, 0, x_750); +lean_ctor_set(x_752, 1, x_751); +return x_752; +} +} +} +else +{ +uint8_t x_753; +lean_dec(x_669); +lean_dec(x_656); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_753 = !lean_is_exclusive(x_681); +if (x_753 == 0) +{ +return x_681; +} +else +{ +lean_object* x_754; lean_object* x_755; lean_object* x_756; +x_754 = lean_ctor_get(x_681, 0); +x_755 = lean_ctor_get(x_681, 1); +lean_inc(x_755); +lean_inc(x_754); +lean_dec(x_681); +x_756 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_756, 0, x_754); +lean_ctor_set(x_756, 1, x_755); +return x_756; } } } } else { -uint8_t x_765; -lean_dec(x_664); -lean_dec(x_654); -lean_dec(x_651); +uint8_t x_771; +lean_dec(x_669); +lean_dec(x_659); +lean_dec(x_656); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -7474,31 +7502,31 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_765 = !lean_is_exclusive(x_666); -if (x_765 == 0) +x_771 = !lean_is_exclusive(x_671); +if (x_771 == 0) { -return x_666; +return x_671; } else { -lean_object* x_766; lean_object* x_767; lean_object* x_768; -x_766 = lean_ctor_get(x_666, 0); -x_767 = lean_ctor_get(x_666, 1); -lean_inc(x_767); -lean_inc(x_766); -lean_dec(x_666); -x_768 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_768, 0, x_766); -lean_ctor_set(x_768, 1, x_767); -return x_768; +lean_object* x_772; lean_object* x_773; lean_object* x_774; +x_772 = lean_ctor_get(x_671, 0); +x_773 = lean_ctor_get(x_671, 1); +lean_inc(x_773); +lean_inc(x_772); +lean_dec(x_671); +x_774 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_774, 0, x_772); +lean_ctor_set(x_774, 1, x_773); +return x_774; } } } else { -uint8_t x_769; -lean_dec(x_654); -lean_dec(x_651); +uint8_t x_775; +lean_dec(x_659); +lean_dec(x_656); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -7507,30 +7535,30 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_769 = !lean_is_exclusive(x_663); -if (x_769 == 0) +x_775 = !lean_is_exclusive(x_668); +if (x_775 == 0) { -return x_663; +return x_668; } else { -lean_object* x_770; lean_object* x_771; lean_object* x_772; -x_770 = lean_ctor_get(x_663, 0); -x_771 = lean_ctor_get(x_663, 1); -lean_inc(x_771); -lean_inc(x_770); -lean_dec(x_663); -x_772 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_772, 0, x_770); -lean_ctor_set(x_772, 1, x_771); -return x_772; +lean_object* x_776; lean_object* x_777; lean_object* x_778; +x_776 = lean_ctor_get(x_668, 0); +x_777 = lean_ctor_get(x_668, 1); +lean_inc(x_777); +lean_inc(x_776); +lean_dec(x_668); +x_778 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_778, 0, x_776); +lean_ctor_set(x_778, 1, x_777); +return x_778; } } } else { -uint8_t x_773; -lean_dec(x_651); +uint8_t x_779; +lean_dec(x_656); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -7541,473 +7569,474 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_773 = !lean_is_exclusive(x_652); -if (x_773 == 0) +x_779 = !lean_is_exclusive(x_657); +if (x_779 == 0) { -return x_652; +return x_657; } else { -lean_object* x_774; lean_object* x_775; lean_object* x_776; -x_774 = lean_ctor_get(x_652, 0); -x_775 = lean_ctor_get(x_652, 1); -lean_inc(x_775); -lean_inc(x_774); -lean_dec(x_652); -x_776 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_776, 0, x_774); -lean_ctor_set(x_776, 1, x_775); -return x_776; +lean_object* x_780; lean_object* x_781; lean_object* x_782; +x_780 = lean_ctor_get(x_657, 0); +x_781 = lean_ctor_get(x_657, 1); +lean_inc(x_781); +lean_inc(x_780); +lean_dec(x_657); +x_782 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_782, 0, x_780); +lean_ctor_set(x_782, 1, x_781); +return x_782; } } } case 7: { -lean_object* x_777; lean_object* x_778; +lean_object* x_783; lean_object* x_784; lean_dec(x_12); lean_dec(x_10); -x_777 = lean_ctor_get(x_7, 5); -lean_inc(x_777); +x_783 = lean_ctor_get(x_7, 5); +lean_inc(x_783); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_778 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_777, x_13, x_14); -if (lean_obj_tag(x_778) == 0) +x_784 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_783, x_13, x_14); +if (lean_obj_tag(x_784) == 0) { -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; -x_779 = lean_ctor_get(x_778, 1); -lean_inc(x_779); -lean_dec(x_778); -x_780 = lean_ctor_get(x_779, 1); -lean_inc(x_780); -x_781 = lean_ctor_get(x_7, 6); -lean_inc(x_781); -x_782 = l_List_redLength___main___rarg(x_781); -x_783 = lean_mk_empty_array_with_capacity(x_782); -lean_dec(x_782); -lean_inc(x_781); -x_784 = l_List_toArrayAux___main___rarg(x_781, x_783); -x_785 = x_784; -x_786 = lean_unsigned_to_nat(0u); -lean_inc(x_780); +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; +x_785 = lean_ctor_get(x_784, 1); +lean_inc(x_785); +lean_dec(x_784); +x_786 = lean_ctor_get(x_785, 1); +lean_inc(x_786); +x_787 = lean_ctor_get(x_7, 6); +lean_inc(x_787); +x_788 = l_List_redLength___main___rarg(x_787); +x_789 = lean_mk_empty_array_with_capacity(x_788); +lean_dec(x_788); +lean_inc(x_787); +x_790 = l_List_toArrayAux___main___rarg(x_787, x_789); +x_791 = x_790; +x_792 = lean_unsigned_to_nat(0u); +lean_inc(x_786); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_787 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_787, 0, x_1); -lean_closure_set(x_787, 1, x_6); -lean_closure_set(x_787, 2, x_7); -lean_closure_set(x_787, 3, x_9); -lean_closure_set(x_787, 4, x_11); -lean_closure_set(x_787, 5, x_780); -lean_closure_set(x_787, 6, x_781); -lean_closure_set(x_787, 7, x_786); -lean_closure_set(x_787, 8, x_785); -x_788 = x_787; +x_793 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_793, 0, x_1); +lean_closure_set(x_793, 1, x_6); +lean_closure_set(x_793, 2, x_7); +lean_closure_set(x_793, 3, x_9); +lean_closure_set(x_793, 4, x_11); +lean_closure_set(x_793, 5, x_786); +lean_closure_set(x_793, 6, x_787); +lean_closure_set(x_793, 7, x_792); +lean_closure_set(x_793, 8, x_791); +x_794 = x_793; lean_inc(x_13); -x_789 = lean_apply_2(x_788, x_13, x_779); -if (lean_obj_tag(x_789) == 0) +x_795 = lean_apply_2(x_794, x_13, x_785); +if (lean_obj_tag(x_795) == 0) { -lean_object* x_790; lean_object* x_791; lean_object* x_792; -x_790 = lean_ctor_get(x_789, 0); -lean_inc(x_790); -x_791 = lean_ctor_get(x_789, 1); -lean_inc(x_791); -lean_dec(x_789); +lean_object* x_796; lean_object* x_797; lean_object* x_798; +x_796 = lean_ctor_get(x_795, 0); +lean_inc(x_796); +x_797 = lean_ctor_get(x_795, 1); +lean_inc(x_797); +lean_dec(x_795); lean_inc(x_1); -x_792 = l_Lean_Meta_getMVarType(x_1, x_13, x_791); -if (lean_obj_tag(x_792) == 0) +x_798 = l_Lean_Meta_getMVarType(x_1, x_13, x_797); +if (lean_obj_tag(x_798) == 0) { -lean_object* x_793; lean_object* x_794; uint8_t x_795; lean_object* x_796; lean_object* x_797; lean_object* x_798; lean_object* x_799; lean_object* x_800; -x_793 = lean_ctor_get(x_792, 0); -lean_inc(x_793); -x_794 = lean_ctor_get(x_792, 1); -lean_inc(x_794); -lean_dec(x_792); -x_795 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_790); -x_796 = x_790; -x_797 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_786, x_796); -x_798 = x_797; +lean_object* x_799; lean_object* x_800; uint8_t x_801; lean_object* x_802; lean_object* x_803; lean_object* x_804; lean_object* x_805; lean_object* x_806; +x_799 = lean_ctor_get(x_798, 0); +lean_inc(x_799); +x_800 = lean_ctor_get(x_798, 1); +lean_inc(x_800); +lean_dec(x_798); +x_801 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_796); +x_802 = x_796; +x_803 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_792, x_802); +x_804 = x_803; lean_inc(x_2); -x_799 = lean_array_push(x_798, x_2); -if (x_795 == 0) +x_805 = lean_array_push(x_804, x_2); +if (x_801 == 0) { -lean_object* x_879; uint8_t x_880; -x_879 = l_Lean_MetavarContext_exprDependsOn(x_780, x_793, x_2); +lean_object* x_885; uint8_t x_886; +x_885 = l_Lean_MetavarContext_exprDependsOn(x_786, x_799, x_2); lean_dec(x_2); -x_880 = lean_unbox(x_879); -lean_dec(x_879); -if (x_880 == 0) +x_886 = lean_unbox(x_885); +lean_dec(x_885); +if (x_886 == 0) { -x_800 = x_794; -goto block_878; +x_806 = x_800; +goto block_884; } else { -lean_object* x_881; lean_object* x_882; lean_object* x_883; lean_object* x_884; lean_object* x_885; lean_object* x_886; uint8_t x_887; -lean_dec(x_799); -lean_dec(x_790); -lean_dec(x_777); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -x_881 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_881, 0, x_3); -x_882 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_883 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_883, 0, x_882); -lean_ctor_set(x_883, 1, x_881); -x_884 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_885 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_885, 0, x_883); -lean_ctor_set(x_885, 1, x_884); -x_886 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_885, x_13, x_794); -lean_dec(x_13); -x_887 = !lean_is_exclusive(x_886); -if (x_887 == 0) -{ -return x_886; -} -else -{ -lean_object* x_888; lean_object* x_889; lean_object* x_890; -x_888 = lean_ctor_get(x_886, 0); -x_889 = lean_ctor_get(x_886, 1); -lean_inc(x_889); -lean_inc(x_888); -lean_dec(x_886); -x_890 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_890, 0, x_888); -lean_ctor_set(x_890, 1, x_889); -return x_890; -} -} -} -else -{ -lean_dec(x_793); -lean_dec(x_780); -lean_dec(x_2); -x_800 = x_794; -goto block_878; -} -block_878: -{ -uint8_t x_801; lean_object* x_802; -x_801 = 1; -x_802 = l_Lean_Meta_revert(x_1, x_799, x_801, x_13, x_800); -if (lean_obj_tag(x_802) == 0) -{ -lean_object* x_803; lean_object* x_804; lean_object* x_805; lean_object* x_806; lean_object* x_807; lean_object* x_808; uint8_t x_809; lean_object* x_810; -x_803 = lean_ctor_get(x_802, 0); -lean_inc(x_803); -x_804 = lean_ctor_get(x_802, 1); -lean_inc(x_804); -lean_dec(x_802); -x_805 = lean_ctor_get(x_803, 0); -lean_inc(x_805); -x_806 = lean_ctor_get(x_803, 1); -lean_inc(x_806); -lean_dec(x_803); -x_807 = lean_array_get_size(x_790); -x_808 = lean_box(0); -x_809 = 0; -x_810 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_809, x_806, x_807, x_808, x_13, x_804); -if (lean_obj_tag(x_810) == 0) -{ -lean_object* x_811; lean_object* x_812; lean_object* x_813; lean_object* x_814; lean_object* x_815; -x_811 = lean_ctor_get(x_810, 0); -lean_inc(x_811); -x_812 = lean_ctor_get(x_810, 1); -lean_inc(x_812); -lean_dec(x_810); -x_813 = lean_ctor_get(x_811, 0); -lean_inc(x_813); -x_814 = lean_ctor_get(x_811, 1); -lean_inc(x_814); -lean_dec(x_811); -x_815 = l_Lean_Meta_intro1(x_814, x_809, x_13, x_812); -if (lean_obj_tag(x_815) == 0) -{ -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; uint8_t x_830; lean_object* x_831; lean_object* x_859; uint8_t x_860; -x_816 = lean_ctor_get(x_815, 0); -lean_inc(x_816); -x_817 = lean_ctor_get(x_815, 1); -lean_inc(x_817); -lean_dec(x_815); -x_818 = lean_ctor_get(x_816, 0); -lean_inc(x_818); -x_819 = lean_ctor_get(x_816, 1); -lean_inc(x_819); -lean_dec(x_816); -x_820 = lean_box(0); -x_821 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_790, x_813, x_790, x_786, x_820); -lean_dec(x_790); -x_822 = x_813; -x_823 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_786, x_822); -x_824 = x_823; -lean_inc(x_818); -x_825 = l_Lean_mkFVar(x_818); -lean_inc(x_819); -x_826 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_826, 0, x_819); -x_827 = lean_box(x_795); -lean_inc(x_819); -x_828 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_828, 0, x_818); -lean_closure_set(x_828, 1, x_8); -lean_closure_set(x_828, 2, x_819); -lean_closure_set(x_828, 3, x_3); -lean_closure_set(x_828, 4, x_4); -lean_closure_set(x_828, 5, x_6); -lean_closure_set(x_828, 6, x_7); -lean_closure_set(x_828, 7, x_777); -lean_closure_set(x_828, 8, x_827); -lean_closure_set(x_828, 9, x_805); -lean_closure_set(x_828, 10, x_821); -lean_closure_set(x_828, 11, x_824); -lean_closure_set(x_828, 12, x_825); -x_829 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_829, 0, x_826); -lean_closure_set(x_829, 1, x_828); -x_859 = lean_ctor_get(x_817, 4); -lean_inc(x_859); -x_860 = lean_ctor_get_uint8(x_859, sizeof(void*)*1); -lean_dec(x_859); -if (x_860 == 0) -{ -x_830 = x_809; -x_831 = x_817; -goto block_858; -} -else -{ -lean_object* x_861; lean_object* x_862; lean_object* x_863; lean_object* x_864; uint8_t x_865; -x_861 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_862 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_861, x_13, x_817); -x_863 = lean_ctor_get(x_862, 0); -lean_inc(x_863); -x_864 = lean_ctor_get(x_862, 1); -lean_inc(x_864); -lean_dec(x_862); -x_865 = lean_unbox(x_863); -lean_dec(x_863); -x_830 = x_865; -x_831 = x_864; -goto block_858; -} -block_858: -{ -if (x_830 == 0) -{ -lean_object* x_832; -x_832 = l_Lean_Meta_getMVarDecl(x_819, x_13, x_831); -if (lean_obj_tag(x_832) == 0) -{ -lean_object* x_833; lean_object* x_834; lean_object* x_835; lean_object* x_836; lean_object* x_837; -x_833 = lean_ctor_get(x_832, 0); -lean_inc(x_833); -x_834 = lean_ctor_get(x_832, 1); -lean_inc(x_834); -lean_dec(x_832); -x_835 = lean_ctor_get(x_833, 1); -lean_inc(x_835); -x_836 = lean_ctor_get(x_833, 4); -lean_inc(x_836); -lean_dec(x_833); -x_837 = l_Lean_Meta_withLocalContext___rarg(x_835, x_836, x_829, x_13, x_834); -lean_dec(x_13); -return x_837; -} -else -{ -uint8_t x_838; -lean_dec(x_829); -lean_dec(x_13); -x_838 = !lean_is_exclusive(x_832); -if (x_838 == 0) -{ -return x_832; -} -else -{ -lean_object* x_839; lean_object* x_840; lean_object* x_841; -x_839 = lean_ctor_get(x_832, 0); -x_840 = lean_ctor_get(x_832, 1); -lean_inc(x_840); -lean_inc(x_839); -lean_dec(x_832); -x_841 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_841, 0, x_839); -lean_ctor_set(x_841, 1, x_840); -return x_841; -} -} -} -else -{ -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_inc(x_819); -x_842 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_842, 0, x_819); -x_843 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_844 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_844, 0, x_843); -lean_ctor_set(x_844, 1, x_842); -x_845 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_846 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_845, x_844, x_13, x_831); -x_847 = lean_ctor_get(x_846, 1); -lean_inc(x_847); -lean_dec(x_846); -x_848 = l_Lean_Meta_getMVarDecl(x_819, x_13, x_847); -if (lean_obj_tag(x_848) == 0) -{ -lean_object* x_849; lean_object* x_850; lean_object* x_851; lean_object* x_852; lean_object* x_853; -x_849 = lean_ctor_get(x_848, 0); -lean_inc(x_849); -x_850 = lean_ctor_get(x_848, 1); -lean_inc(x_850); -lean_dec(x_848); -x_851 = lean_ctor_get(x_849, 1); -lean_inc(x_851); -x_852 = lean_ctor_get(x_849, 4); -lean_inc(x_852); -lean_dec(x_849); -x_853 = l_Lean_Meta_withLocalContext___rarg(x_851, x_852, x_829, x_13, x_850); -lean_dec(x_13); -return x_853; -} -else -{ -uint8_t x_854; -lean_dec(x_829); -lean_dec(x_13); -x_854 = !lean_is_exclusive(x_848); -if (x_854 == 0) -{ -return x_848; -} -else -{ -lean_object* x_855; lean_object* x_856; lean_object* x_857; -x_855 = lean_ctor_get(x_848, 0); -x_856 = lean_ctor_get(x_848, 1); -lean_inc(x_856); -lean_inc(x_855); -lean_dec(x_848); -x_857 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_857, 0, x_855); -lean_ctor_set(x_857, 1, x_856); -return x_857; -} -} -} -} -} -else -{ -uint8_t x_866; -lean_dec(x_813); +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; uint8_t x_894; lean_dec(x_805); -lean_dec(x_790); -lean_dec(x_777); -lean_dec(x_13); +lean_dec(x_796); +lean_dec(x_783); lean_dec(x_8); lean_dec(x_7); -lean_dec(x_6); lean_dec(x_4); -lean_dec(x_3); -x_866 = !lean_is_exclusive(x_815); +x_887 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_887, 0, x_3); +x_888 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_889 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_889, 0, x_888); +lean_ctor_set(x_889, 1, x_887); +x_890 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_891 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_891, 0, x_889); +lean_ctor_set(x_891, 1, x_890); +x_892 = lean_box(0); +x_893 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_891, x_892, x_13, x_800); +lean_dec(x_13); +x_894 = !lean_is_exclusive(x_893); +if (x_894 == 0) +{ +return x_893; +} +else +{ +lean_object* x_895; lean_object* x_896; lean_object* x_897; +x_895 = lean_ctor_get(x_893, 0); +x_896 = lean_ctor_get(x_893, 1); +lean_inc(x_896); +lean_inc(x_895); +lean_dec(x_893); +x_897 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_897, 0, x_895); +lean_ctor_set(x_897, 1, x_896); +return x_897; +} +} +} +else +{ +lean_dec(x_799); +lean_dec(x_786); +lean_dec(x_2); +x_806 = x_800; +goto block_884; +} +block_884: +{ +uint8_t x_807; lean_object* x_808; +x_807 = 1; +x_808 = l_Lean_Meta_revert(x_1, x_805, x_807, x_13, x_806); +if (lean_obj_tag(x_808) == 0) +{ +lean_object* x_809; lean_object* x_810; lean_object* x_811; lean_object* x_812; lean_object* x_813; lean_object* x_814; uint8_t x_815; lean_object* x_816; +x_809 = lean_ctor_get(x_808, 0); +lean_inc(x_809); +x_810 = lean_ctor_get(x_808, 1); +lean_inc(x_810); +lean_dec(x_808); +x_811 = lean_ctor_get(x_809, 0); +lean_inc(x_811); +x_812 = lean_ctor_get(x_809, 1); +lean_inc(x_812); +lean_dec(x_809); +x_813 = lean_array_get_size(x_796); +x_814 = lean_box(0); +x_815 = 0; +x_816 = l_Lean_Meta_introN(x_812, x_813, x_814, x_815, x_13, x_810); +if (lean_obj_tag(x_816) == 0) +{ +lean_object* x_817; lean_object* x_818; lean_object* x_819; lean_object* x_820; lean_object* x_821; +x_817 = lean_ctor_get(x_816, 0); +lean_inc(x_817); +x_818 = lean_ctor_get(x_816, 1); +lean_inc(x_818); +lean_dec(x_816); +x_819 = lean_ctor_get(x_817, 0); +lean_inc(x_819); +x_820 = lean_ctor_get(x_817, 1); +lean_inc(x_820); +lean_dec(x_817); +x_821 = l_Lean_Meta_intro1(x_820, x_815, x_13, x_818); +if (lean_obj_tag(x_821) == 0) +{ +lean_object* x_822; lean_object* x_823; lean_object* x_824; lean_object* x_825; lean_object* x_826; lean_object* x_827; lean_object* x_828; lean_object* x_829; lean_object* x_830; lean_object* x_831; lean_object* x_832; lean_object* x_833; lean_object* x_834; lean_object* x_835; uint8_t x_836; lean_object* x_837; lean_object* x_865; uint8_t x_866; +x_822 = lean_ctor_get(x_821, 0); +lean_inc(x_822); +x_823 = lean_ctor_get(x_821, 1); +lean_inc(x_823); +lean_dec(x_821); +x_824 = lean_ctor_get(x_822, 0); +lean_inc(x_824); +x_825 = lean_ctor_get(x_822, 1); +lean_inc(x_825); +lean_dec(x_822); +x_826 = lean_box(0); +x_827 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_796, x_819, x_796, x_792, x_826); +lean_dec(x_796); +x_828 = x_819; +x_829 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_792, x_828); +x_830 = x_829; +lean_inc(x_824); +x_831 = l_Lean_mkFVar(x_824); +lean_inc(x_825); +x_832 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_832, 0, x_825); +x_833 = lean_box(x_801); +lean_inc(x_825); +x_834 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_834, 0, x_824); +lean_closure_set(x_834, 1, x_8); +lean_closure_set(x_834, 2, x_825); +lean_closure_set(x_834, 3, x_3); +lean_closure_set(x_834, 4, x_4); +lean_closure_set(x_834, 5, x_6); +lean_closure_set(x_834, 6, x_7); +lean_closure_set(x_834, 7, x_783); +lean_closure_set(x_834, 8, x_833); +lean_closure_set(x_834, 9, x_811); +lean_closure_set(x_834, 10, x_827); +lean_closure_set(x_834, 11, x_830); +lean_closure_set(x_834, 12, x_831); +x_835 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_835, 0, x_832); +lean_closure_set(x_835, 1, x_834); +x_865 = lean_ctor_get(x_823, 4); +lean_inc(x_865); +x_866 = lean_ctor_get_uint8(x_865, sizeof(void*)*1); +lean_dec(x_865); if (x_866 == 0) { -return x_815; +x_836 = x_815; +x_837 = x_823; +goto block_864; } else { -lean_object* x_867; lean_object* x_868; lean_object* x_869; -x_867 = lean_ctor_get(x_815, 0); -x_868 = lean_ctor_get(x_815, 1); -lean_inc(x_868); -lean_inc(x_867); -lean_dec(x_815); -x_869 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_869, 0, x_867); -lean_ctor_set(x_869, 1, x_868); -return x_869; +lean_object* x_867; lean_object* x_868; lean_object* x_869; lean_object* x_870; uint8_t x_871; +x_867 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_868 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_867, x_13, x_823); +x_869 = lean_ctor_get(x_868, 0); +lean_inc(x_869); +x_870 = lean_ctor_get(x_868, 1); +lean_inc(x_870); +lean_dec(x_868); +x_871 = lean_unbox(x_869); +lean_dec(x_869); +x_836 = x_871; +x_837 = x_870; +goto block_864; +} +block_864: +{ +if (x_836 == 0) +{ +lean_object* x_838; +x_838 = l_Lean_Meta_getMVarDecl(x_825, x_13, x_837); +if (lean_obj_tag(x_838) == 0) +{ +lean_object* x_839; lean_object* x_840; lean_object* x_841; lean_object* x_842; lean_object* x_843; +x_839 = lean_ctor_get(x_838, 0); +lean_inc(x_839); +x_840 = lean_ctor_get(x_838, 1); +lean_inc(x_840); +lean_dec(x_838); +x_841 = lean_ctor_get(x_839, 1); +lean_inc(x_841); +x_842 = lean_ctor_get(x_839, 4); +lean_inc(x_842); +lean_dec(x_839); +x_843 = l_Lean_Meta_withLocalContext___rarg(x_841, x_842, x_835, x_13, x_840); +lean_dec(x_13); +return x_843; +} +else +{ +uint8_t x_844; +lean_dec(x_835); +lean_dec(x_13); +x_844 = !lean_is_exclusive(x_838); +if (x_844 == 0) +{ +return x_838; +} +else +{ +lean_object* x_845; lean_object* x_846; lean_object* x_847; +x_845 = lean_ctor_get(x_838, 0); +x_846 = lean_ctor_get(x_838, 1); +lean_inc(x_846); +lean_inc(x_845); +lean_dec(x_838); +x_847 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_847, 0, x_845); +lean_ctor_set(x_847, 1, x_846); +return x_847; } } } else { -uint8_t x_870; -lean_dec(x_805); -lean_dec(x_790); -lean_dec(x_777); +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_inc(x_825); +x_848 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_848, 0, x_825); +x_849 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_850 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_850, 0, x_849); +lean_ctor_set(x_850, 1, x_848); +x_851 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_852 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_851, x_850, x_13, x_837); +x_853 = lean_ctor_get(x_852, 1); +lean_inc(x_853); +lean_dec(x_852); +x_854 = l_Lean_Meta_getMVarDecl(x_825, x_13, x_853); +if (lean_obj_tag(x_854) == 0) +{ +lean_object* x_855; lean_object* x_856; lean_object* x_857; lean_object* x_858; lean_object* x_859; +x_855 = lean_ctor_get(x_854, 0); +lean_inc(x_855); +x_856 = lean_ctor_get(x_854, 1); +lean_inc(x_856); +lean_dec(x_854); +x_857 = lean_ctor_get(x_855, 1); +lean_inc(x_857); +x_858 = lean_ctor_get(x_855, 4); +lean_inc(x_858); +lean_dec(x_855); +x_859 = l_Lean_Meta_withLocalContext___rarg(x_857, x_858, x_835, x_13, x_856); +lean_dec(x_13); +return x_859; +} +else +{ +uint8_t x_860; +lean_dec(x_835); +lean_dec(x_13); +x_860 = !lean_is_exclusive(x_854); +if (x_860 == 0) +{ +return x_854; +} +else +{ +lean_object* x_861; lean_object* x_862; lean_object* x_863; +x_861 = lean_ctor_get(x_854, 0); +x_862 = lean_ctor_get(x_854, 1); +lean_inc(x_862); +lean_inc(x_861); +lean_dec(x_854); +x_863 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_863, 0, x_861); +lean_ctor_set(x_863, 1, x_862); +return x_863; +} +} +} +} +} +else +{ +uint8_t x_872; +lean_dec(x_819); +lean_dec(x_811); +lean_dec(x_796); +lean_dec(x_783); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_870 = !lean_is_exclusive(x_810); -if (x_870 == 0) +x_872 = !lean_is_exclusive(x_821); +if (x_872 == 0) { -return x_810; +return x_821; } else { -lean_object* x_871; lean_object* x_872; lean_object* x_873; -x_871 = lean_ctor_get(x_810, 0); -x_872 = lean_ctor_get(x_810, 1); -lean_inc(x_872); -lean_inc(x_871); -lean_dec(x_810); -x_873 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_873, 0, x_871); -lean_ctor_set(x_873, 1, x_872); -return x_873; +lean_object* x_873; lean_object* x_874; lean_object* x_875; +x_873 = lean_ctor_get(x_821, 0); +x_874 = lean_ctor_get(x_821, 1); +lean_inc(x_874); +lean_inc(x_873); +lean_dec(x_821); +x_875 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_875, 0, x_873); +lean_ctor_set(x_875, 1, x_874); +return x_875; } } } else { -uint8_t x_874; -lean_dec(x_790); -lean_dec(x_777); +uint8_t x_876; +lean_dec(x_811); +lean_dec(x_796); +lean_dec(x_783); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_874 = !lean_is_exclusive(x_802); -if (x_874 == 0) +x_876 = !lean_is_exclusive(x_816); +if (x_876 == 0) { -return x_802; +return x_816; } else { -lean_object* x_875; lean_object* x_876; lean_object* x_877; -x_875 = lean_ctor_get(x_802, 0); -x_876 = lean_ctor_get(x_802, 1); -lean_inc(x_876); -lean_inc(x_875); -lean_dec(x_802); -x_877 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_877, 0, x_875); -lean_ctor_set(x_877, 1, x_876); -return x_877; +lean_object* x_877; lean_object* x_878; lean_object* x_879; +x_877 = lean_ctor_get(x_816, 0); +x_878 = lean_ctor_get(x_816, 1); +lean_inc(x_878); +lean_inc(x_877); +lean_dec(x_816); +x_879 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_879, 0, x_877); +lean_ctor_set(x_879, 1, x_878); +return x_879; +} +} +} +else +{ +uint8_t x_880; +lean_dec(x_796); +lean_dec(x_783); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_880 = !lean_is_exclusive(x_808); +if (x_880 == 0) +{ +return x_808; +} +else +{ +lean_object* x_881; lean_object* x_882; lean_object* x_883; +x_881 = lean_ctor_get(x_808, 0); +x_882 = lean_ctor_get(x_808, 1); +lean_inc(x_882); +lean_inc(x_881); +lean_dec(x_808); +x_883 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_883, 0, x_881); +lean_ctor_set(x_883, 1, x_882); +return x_883; } } } } else { -uint8_t x_891; -lean_dec(x_790); -lean_dec(x_780); -lean_dec(x_777); +uint8_t x_898; +lean_dec(x_796); +lean_dec(x_786); +lean_dec(x_783); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -8016,31 +8045,31 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_891 = !lean_is_exclusive(x_792); -if (x_891 == 0) +x_898 = !lean_is_exclusive(x_798); +if (x_898 == 0) { -return x_792; +return x_798; } else { -lean_object* x_892; lean_object* x_893; lean_object* x_894; -x_892 = lean_ctor_get(x_792, 0); -x_893 = lean_ctor_get(x_792, 1); -lean_inc(x_893); -lean_inc(x_892); -lean_dec(x_792); -x_894 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_894, 0, x_892); -lean_ctor_set(x_894, 1, x_893); -return x_894; +lean_object* x_899; lean_object* x_900; lean_object* x_901; +x_899 = lean_ctor_get(x_798, 0); +x_900 = lean_ctor_get(x_798, 1); +lean_inc(x_900); +lean_inc(x_899); +lean_dec(x_798); +x_901 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_901, 0, x_899); +lean_ctor_set(x_901, 1, x_900); +return x_901; } } } else { -uint8_t x_895; -lean_dec(x_780); -lean_dec(x_777); +uint8_t x_902; +lean_dec(x_786); +lean_dec(x_783); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -8049,30 +8078,30 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_895 = !lean_is_exclusive(x_789); -if (x_895 == 0) +x_902 = !lean_is_exclusive(x_795); +if (x_902 == 0) { -return x_789; +return x_795; } else { -lean_object* x_896; lean_object* x_897; lean_object* x_898; -x_896 = lean_ctor_get(x_789, 0); -x_897 = lean_ctor_get(x_789, 1); -lean_inc(x_897); -lean_inc(x_896); -lean_dec(x_789); -x_898 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_898, 0, x_896); -lean_ctor_set(x_898, 1, x_897); -return x_898; +lean_object* x_903; lean_object* x_904; lean_object* x_905; +x_903 = lean_ctor_get(x_795, 0); +x_904 = lean_ctor_get(x_795, 1); +lean_inc(x_904); +lean_inc(x_903); +lean_dec(x_795); +x_905 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_905, 0, x_903); +lean_ctor_set(x_905, 1, x_904); +return x_905; } } } else { -uint8_t x_899; -lean_dec(x_777); +uint8_t x_906; +lean_dec(x_783); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -8083,527 +8112,143 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_899 = !lean_is_exclusive(x_778); -if (x_899 == 0) +x_906 = !lean_is_exclusive(x_784); +if (x_906 == 0) { -return x_778; +return x_784; } else { -lean_object* x_900; lean_object* x_901; lean_object* x_902; -x_900 = lean_ctor_get(x_778, 0); -x_901 = lean_ctor_get(x_778, 1); -lean_inc(x_901); -lean_inc(x_900); -lean_dec(x_778); -x_902 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_902, 0, x_900); -lean_ctor_set(x_902, 1, x_901); -return x_902; +lean_object* x_907; lean_object* x_908; lean_object* x_909; +x_907 = lean_ctor_get(x_784, 0); +x_908 = lean_ctor_get(x_784, 1); +lean_inc(x_908); +lean_inc(x_907); +lean_dec(x_784); +x_909 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_909, 0, x_907); +lean_ctor_set(x_909, 1, x_908); +return x_909; } } } case 8: { -lean_object* x_903; lean_object* x_904; +lean_object* x_910; lean_object* x_911; lean_dec(x_12); lean_dec(x_10); -x_903 = lean_ctor_get(x_7, 5); -lean_inc(x_903); +x_910 = lean_ctor_get(x_7, 5); +lean_inc(x_910); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_904 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_903, x_13, x_14); -if (lean_obj_tag(x_904) == 0) +x_911 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_910, x_13, x_14); +if (lean_obj_tag(x_911) == 0) { -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; -x_905 = lean_ctor_get(x_904, 1); -lean_inc(x_905); -lean_dec(x_904); -x_906 = lean_ctor_get(x_905, 1); -lean_inc(x_906); -x_907 = lean_ctor_get(x_7, 6); -lean_inc(x_907); -x_908 = l_List_redLength___main___rarg(x_907); -x_909 = lean_mk_empty_array_with_capacity(x_908); -lean_dec(x_908); -lean_inc(x_907); -x_910 = l_List_toArrayAux___main___rarg(x_907, x_909); -x_911 = x_910; -x_912 = lean_unsigned_to_nat(0u); -lean_inc(x_906); +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; +x_912 = lean_ctor_get(x_911, 1); +lean_inc(x_912); +lean_dec(x_911); +x_913 = lean_ctor_get(x_912, 1); +lean_inc(x_913); +x_914 = lean_ctor_get(x_7, 6); +lean_inc(x_914); +x_915 = l_List_redLength___main___rarg(x_914); +x_916 = lean_mk_empty_array_with_capacity(x_915); +lean_dec(x_915); +lean_inc(x_914); +x_917 = l_List_toArrayAux___main___rarg(x_914, x_916); +x_918 = x_917; +x_919 = lean_unsigned_to_nat(0u); +lean_inc(x_913); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_913 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_913, 0, x_1); -lean_closure_set(x_913, 1, x_6); -lean_closure_set(x_913, 2, x_7); -lean_closure_set(x_913, 3, x_9); -lean_closure_set(x_913, 4, x_11); -lean_closure_set(x_913, 5, x_906); -lean_closure_set(x_913, 6, x_907); -lean_closure_set(x_913, 7, x_912); -lean_closure_set(x_913, 8, x_911); -x_914 = x_913; +x_920 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_920, 0, x_1); +lean_closure_set(x_920, 1, x_6); +lean_closure_set(x_920, 2, x_7); +lean_closure_set(x_920, 3, x_9); +lean_closure_set(x_920, 4, x_11); +lean_closure_set(x_920, 5, x_913); +lean_closure_set(x_920, 6, x_914); +lean_closure_set(x_920, 7, x_919); +lean_closure_set(x_920, 8, x_918); +x_921 = x_920; lean_inc(x_13); -x_915 = lean_apply_2(x_914, x_13, x_905); -if (lean_obj_tag(x_915) == 0) +x_922 = lean_apply_2(x_921, x_13, x_912); +if (lean_obj_tag(x_922) == 0) { -lean_object* x_916; lean_object* x_917; lean_object* x_918; -x_916 = lean_ctor_get(x_915, 0); -lean_inc(x_916); -x_917 = lean_ctor_get(x_915, 1); -lean_inc(x_917); -lean_dec(x_915); +lean_object* x_923; lean_object* x_924; lean_object* x_925; +x_923 = lean_ctor_get(x_922, 0); +lean_inc(x_923); +x_924 = lean_ctor_get(x_922, 1); +lean_inc(x_924); +lean_dec(x_922); lean_inc(x_1); -x_918 = l_Lean_Meta_getMVarType(x_1, x_13, x_917); -if (lean_obj_tag(x_918) == 0) +x_925 = l_Lean_Meta_getMVarType(x_1, x_13, x_924); +if (lean_obj_tag(x_925) == 0) { -lean_object* x_919; lean_object* x_920; uint8_t x_921; lean_object* x_922; lean_object* x_923; lean_object* x_924; lean_object* x_925; lean_object* x_926; -x_919 = lean_ctor_get(x_918, 0); -lean_inc(x_919); -x_920 = lean_ctor_get(x_918, 1); -lean_inc(x_920); -lean_dec(x_918); -x_921 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_916); -x_922 = x_916; -x_923 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_912, x_922); -x_924 = x_923; -lean_inc(x_2); -x_925 = lean_array_push(x_924, x_2); -if (x_921 == 0) -{ -lean_object* x_1005; uint8_t x_1006; -x_1005 = l_Lean_MetavarContext_exprDependsOn(x_906, x_919, x_2); -lean_dec(x_2); -x_1006 = lean_unbox(x_1005); -lean_dec(x_1005); -if (x_1006 == 0) -{ -x_926 = x_920; -goto block_1004; -} -else -{ -lean_object* x_1007; lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; lean_object* x_1011; lean_object* x_1012; uint8_t x_1013; +lean_object* x_926; lean_object* x_927; uint8_t x_928; lean_object* x_929; lean_object* x_930; lean_object* x_931; lean_object* x_932; lean_object* x_933; +x_926 = lean_ctor_get(x_925, 0); +lean_inc(x_926); +x_927 = lean_ctor_get(x_925, 1); +lean_inc(x_927); lean_dec(x_925); -lean_dec(x_916); -lean_dec(x_903); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -x_1007 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1007, 0, x_3); -x_1008 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_1009 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1009, 0, x_1008); -lean_ctor_set(x_1009, 1, x_1007); -x_1010 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_1011 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1011, 0, x_1009); -lean_ctor_set(x_1011, 1, x_1010); -x_1012 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1011, x_13, x_920); -lean_dec(x_13); -x_1013 = !lean_is_exclusive(x_1012); +x_928 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_923); +x_929 = x_923; +x_930 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_919, x_929); +x_931 = x_930; +lean_inc(x_2); +x_932 = lean_array_push(x_931, x_2); +if (x_928 == 0) +{ +lean_object* x_1012; uint8_t x_1013; +x_1012 = l_Lean_MetavarContext_exprDependsOn(x_913, x_926, x_2); +lean_dec(x_2); +x_1013 = lean_unbox(x_1012); +lean_dec(x_1012); if (x_1013 == 0) { -return x_1012; +x_933 = x_927; +goto block_1011; } else { -lean_object* x_1014; lean_object* x_1015; lean_object* x_1016; -x_1014 = lean_ctor_get(x_1012, 0); -x_1015 = lean_ctor_get(x_1012, 1); -lean_inc(x_1015); -lean_inc(x_1014); -lean_dec(x_1012); -x_1016 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1016, 0, x_1014); -lean_ctor_set(x_1016, 1, x_1015); -return x_1016; -} -} -} -else -{ -lean_dec(x_919); -lean_dec(x_906); -lean_dec(x_2); -x_926 = x_920; -goto block_1004; -} -block_1004: -{ -uint8_t x_927; lean_object* x_928; -x_927 = 1; -x_928 = l_Lean_Meta_revert(x_1, x_925, x_927, x_13, x_926); -if (lean_obj_tag(x_928) == 0) -{ -lean_object* x_929; lean_object* x_930; lean_object* x_931; lean_object* x_932; lean_object* x_933; lean_object* x_934; uint8_t x_935; lean_object* x_936; -x_929 = lean_ctor_get(x_928, 0); -lean_inc(x_929); -x_930 = lean_ctor_get(x_928, 1); -lean_inc(x_930); -lean_dec(x_928); -x_931 = lean_ctor_get(x_929, 0); -lean_inc(x_931); -x_932 = lean_ctor_get(x_929, 1); -lean_inc(x_932); -lean_dec(x_929); -x_933 = lean_array_get_size(x_916); -x_934 = lean_box(0); -x_935 = 0; -x_936 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_935, x_932, x_933, x_934, x_13, x_930); -if (lean_obj_tag(x_936) == 0) -{ -lean_object* x_937; lean_object* x_938; lean_object* x_939; lean_object* x_940; lean_object* x_941; -x_937 = lean_ctor_get(x_936, 0); -lean_inc(x_937); -x_938 = lean_ctor_get(x_936, 1); -lean_inc(x_938); -lean_dec(x_936); -x_939 = lean_ctor_get(x_937, 0); -lean_inc(x_939); -x_940 = lean_ctor_get(x_937, 1); -lean_inc(x_940); -lean_dec(x_937); -x_941 = l_Lean_Meta_intro1(x_940, x_935, x_13, x_938); -if (lean_obj_tag(x_941) == 0) -{ -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; uint8_t x_956; lean_object* x_957; lean_object* x_985; uint8_t x_986; -x_942 = lean_ctor_get(x_941, 0); -lean_inc(x_942); -x_943 = lean_ctor_get(x_941, 1); -lean_inc(x_943); -lean_dec(x_941); -x_944 = lean_ctor_get(x_942, 0); -lean_inc(x_944); -x_945 = lean_ctor_get(x_942, 1); -lean_inc(x_945); -lean_dec(x_942); -x_946 = lean_box(0); -x_947 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_916, x_939, x_916, x_912, x_946); -lean_dec(x_916); -x_948 = x_939; -x_949 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_912, x_948); -x_950 = x_949; -lean_inc(x_944); -x_951 = l_Lean_mkFVar(x_944); -lean_inc(x_945); -x_952 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_952, 0, x_945); -x_953 = lean_box(x_921); -lean_inc(x_945); -x_954 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_954, 0, x_944); -lean_closure_set(x_954, 1, x_8); -lean_closure_set(x_954, 2, x_945); -lean_closure_set(x_954, 3, x_3); -lean_closure_set(x_954, 4, x_4); -lean_closure_set(x_954, 5, x_6); -lean_closure_set(x_954, 6, x_7); -lean_closure_set(x_954, 7, x_903); -lean_closure_set(x_954, 8, x_953); -lean_closure_set(x_954, 9, x_931); -lean_closure_set(x_954, 10, x_947); -lean_closure_set(x_954, 11, x_950); -lean_closure_set(x_954, 12, x_951); -x_955 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_955, 0, x_952); -lean_closure_set(x_955, 1, x_954); -x_985 = lean_ctor_get(x_943, 4); -lean_inc(x_985); -x_986 = lean_ctor_get_uint8(x_985, sizeof(void*)*1); -lean_dec(x_985); -if (x_986 == 0) -{ -x_956 = x_935; -x_957 = x_943; -goto block_984; -} -else -{ -lean_object* x_987; lean_object* x_988; lean_object* x_989; lean_object* x_990; uint8_t x_991; -x_987 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_988 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_987, x_13, x_943); -x_989 = lean_ctor_get(x_988, 0); -lean_inc(x_989); -x_990 = lean_ctor_get(x_988, 1); -lean_inc(x_990); -lean_dec(x_988); -x_991 = lean_unbox(x_989); -lean_dec(x_989); -x_956 = x_991; -x_957 = x_990; -goto block_984; -} -block_984: -{ -if (x_956 == 0) -{ -lean_object* x_958; -x_958 = l_Lean_Meta_getMVarDecl(x_945, x_13, x_957); -if (lean_obj_tag(x_958) == 0) -{ -lean_object* x_959; lean_object* x_960; lean_object* x_961; lean_object* x_962; lean_object* x_963; -x_959 = lean_ctor_get(x_958, 0); -lean_inc(x_959); -x_960 = lean_ctor_get(x_958, 1); -lean_inc(x_960); -lean_dec(x_958); -x_961 = lean_ctor_get(x_959, 1); -lean_inc(x_961); -x_962 = lean_ctor_get(x_959, 4); -lean_inc(x_962); -lean_dec(x_959); -x_963 = l_Lean_Meta_withLocalContext___rarg(x_961, x_962, x_955, x_13, x_960); -lean_dec(x_13); -return x_963; -} -else -{ -uint8_t x_964; -lean_dec(x_955); -lean_dec(x_13); -x_964 = !lean_is_exclusive(x_958); -if (x_964 == 0) -{ -return x_958; -} -else -{ -lean_object* x_965; lean_object* x_966; lean_object* x_967; -x_965 = lean_ctor_get(x_958, 0); -x_966 = lean_ctor_get(x_958, 1); -lean_inc(x_966); -lean_inc(x_965); -lean_dec(x_958); -x_967 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_967, 0, x_965); -lean_ctor_set(x_967, 1, x_966); -return x_967; -} -} -} -else -{ -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_inc(x_945); -x_968 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_968, 0, x_945); -x_969 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_970 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_970, 0, x_969); -lean_ctor_set(x_970, 1, x_968); -x_971 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_972 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_971, x_970, x_13, x_957); -x_973 = lean_ctor_get(x_972, 1); -lean_inc(x_973); -lean_dec(x_972); -x_974 = l_Lean_Meta_getMVarDecl(x_945, x_13, x_973); -if (lean_obj_tag(x_974) == 0) -{ -lean_object* x_975; lean_object* x_976; lean_object* x_977; lean_object* x_978; lean_object* x_979; -x_975 = lean_ctor_get(x_974, 0); -lean_inc(x_975); -x_976 = lean_ctor_get(x_974, 1); -lean_inc(x_976); -lean_dec(x_974); -x_977 = lean_ctor_get(x_975, 1); -lean_inc(x_977); -x_978 = lean_ctor_get(x_975, 4); -lean_inc(x_978); -lean_dec(x_975); -x_979 = l_Lean_Meta_withLocalContext___rarg(x_977, x_978, x_955, x_13, x_976); -lean_dec(x_13); -return x_979; -} -else -{ -uint8_t x_980; -lean_dec(x_955); -lean_dec(x_13); -x_980 = !lean_is_exclusive(x_974); -if (x_980 == 0) -{ -return x_974; -} -else -{ -lean_object* x_981; lean_object* x_982; lean_object* x_983; -x_981 = lean_ctor_get(x_974, 0); -x_982 = lean_ctor_get(x_974, 1); -lean_inc(x_982); -lean_inc(x_981); -lean_dec(x_974); -x_983 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_983, 0, x_981); -lean_ctor_set(x_983, 1, x_982); -return x_983; -} -} -} -} -} -else -{ -uint8_t x_992; -lean_dec(x_939); -lean_dec(x_931); -lean_dec(x_916); -lean_dec(x_903); -lean_dec(x_13); +lean_object* x_1014; lean_object* x_1015; lean_object* x_1016; lean_object* x_1017; lean_object* x_1018; lean_object* x_1019; lean_object* x_1020; uint8_t x_1021; +lean_dec(x_932); +lean_dec(x_923); +lean_dec(x_910); lean_dec(x_8); lean_dec(x_7); -lean_dec(x_6); lean_dec(x_4); -lean_dec(x_3); -x_992 = !lean_is_exclusive(x_941); -if (x_992 == 0) -{ -return x_941; -} -else -{ -lean_object* x_993; lean_object* x_994; lean_object* x_995; -x_993 = lean_ctor_get(x_941, 0); -x_994 = lean_ctor_get(x_941, 1); -lean_inc(x_994); -lean_inc(x_993); -lean_dec(x_941); -x_995 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_995, 0, x_993); -lean_ctor_set(x_995, 1, x_994); -return x_995; -} -} -} -else -{ -uint8_t x_996; -lean_dec(x_931); -lean_dec(x_916); -lean_dec(x_903); +x_1014 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1014, 0, x_3); +x_1015 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_1016 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1016, 0, x_1015); +lean_ctor_set(x_1016, 1, x_1014); +x_1017 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_1018 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1018, 0, x_1016); +lean_ctor_set(x_1018, 1, x_1017); +x_1019 = lean_box(0); +x_1020 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1018, x_1019, x_13, x_927); lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_996 = !lean_is_exclusive(x_936); -if (x_996 == 0) -{ -return x_936; -} -else -{ -lean_object* x_997; lean_object* x_998; lean_object* x_999; -x_997 = lean_ctor_get(x_936, 0); -x_998 = lean_ctor_get(x_936, 1); -lean_inc(x_998); -lean_inc(x_997); -lean_dec(x_936); -x_999 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_999, 0, x_997); -lean_ctor_set(x_999, 1, x_998); -return x_999; -} -} -} -else -{ -uint8_t x_1000; -lean_dec(x_916); -lean_dec(x_903); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1000 = !lean_is_exclusive(x_928); -if (x_1000 == 0) -{ -return x_928; -} -else -{ -lean_object* x_1001; lean_object* x_1002; lean_object* x_1003; -x_1001 = lean_ctor_get(x_928, 0); -x_1002 = lean_ctor_get(x_928, 1); -lean_inc(x_1002); -lean_inc(x_1001); -lean_dec(x_928); -x_1003 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1003, 0, x_1001); -lean_ctor_set(x_1003, 1, x_1002); -return x_1003; -} -} -} -} -else -{ -uint8_t x_1017; -lean_dec(x_916); -lean_dec(x_906); -lean_dec(x_903); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_1017 = !lean_is_exclusive(x_918); -if (x_1017 == 0) -{ -return x_918; -} -else -{ -lean_object* x_1018; lean_object* x_1019; lean_object* x_1020; -x_1018 = lean_ctor_get(x_918, 0); -x_1019 = lean_ctor_get(x_918, 1); -lean_inc(x_1019); -lean_inc(x_1018); -lean_dec(x_918); -x_1020 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1020, 0, x_1018); -lean_ctor_set(x_1020, 1, x_1019); -return x_1020; -} -} -} -else -{ -uint8_t x_1021; -lean_dec(x_906); -lean_dec(x_903); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_1021 = !lean_is_exclusive(x_915); +x_1021 = !lean_is_exclusive(x_1020); if (x_1021 == 0) { -return x_915; +return x_1020; } else { lean_object* x_1022; lean_object* x_1023; lean_object* x_1024; -x_1022 = lean_ctor_get(x_915, 0); -x_1023 = lean_ctor_get(x_915, 1); +x_1022 = lean_ctor_get(x_1020, 0); +x_1023 = lean_ctor_get(x_1020, 1); lean_inc(x_1023); lean_inc(x_1022); -lean_dec(x_915); +lean_dec(x_1020); x_1024 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1024, 0, x_1022); lean_ctor_set(x_1024, 1, x_1023); @@ -8613,8 +8258,393 @@ return x_1024; } else { +lean_dec(x_926); +lean_dec(x_913); +lean_dec(x_2); +x_933 = x_927; +goto block_1011; +} +block_1011: +{ +uint8_t x_934; lean_object* x_935; +x_934 = 1; +x_935 = l_Lean_Meta_revert(x_1, x_932, x_934, x_13, x_933); +if (lean_obj_tag(x_935) == 0) +{ +lean_object* x_936; lean_object* x_937; lean_object* x_938; lean_object* x_939; lean_object* x_940; lean_object* x_941; uint8_t x_942; lean_object* x_943; +x_936 = lean_ctor_get(x_935, 0); +lean_inc(x_936); +x_937 = lean_ctor_get(x_935, 1); +lean_inc(x_937); +lean_dec(x_935); +x_938 = lean_ctor_get(x_936, 0); +lean_inc(x_938); +x_939 = lean_ctor_get(x_936, 1); +lean_inc(x_939); +lean_dec(x_936); +x_940 = lean_array_get_size(x_923); +x_941 = lean_box(0); +x_942 = 0; +x_943 = l_Lean_Meta_introN(x_939, x_940, x_941, x_942, x_13, x_937); +if (lean_obj_tag(x_943) == 0) +{ +lean_object* x_944; lean_object* x_945; lean_object* x_946; lean_object* x_947; lean_object* x_948; +x_944 = lean_ctor_get(x_943, 0); +lean_inc(x_944); +x_945 = lean_ctor_get(x_943, 1); +lean_inc(x_945); +lean_dec(x_943); +x_946 = lean_ctor_get(x_944, 0); +lean_inc(x_946); +x_947 = lean_ctor_get(x_944, 1); +lean_inc(x_947); +lean_dec(x_944); +x_948 = l_Lean_Meta_intro1(x_947, x_942, x_13, x_945); +if (lean_obj_tag(x_948) == 0) +{ +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; uint8_t x_963; lean_object* x_964; lean_object* x_992; uint8_t x_993; +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_ctor_get(x_949, 0); +lean_inc(x_951); +x_952 = lean_ctor_get(x_949, 1); +lean_inc(x_952); +lean_dec(x_949); +x_953 = lean_box(0); +x_954 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_923, x_946, x_923, x_919, x_953); +lean_dec(x_923); +x_955 = x_946; +x_956 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_919, x_955); +x_957 = x_956; +lean_inc(x_951); +x_958 = l_Lean_mkFVar(x_951); +lean_inc(x_952); +x_959 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_959, 0, x_952); +x_960 = lean_box(x_928); +lean_inc(x_952); +x_961 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_961, 0, x_951); +lean_closure_set(x_961, 1, x_8); +lean_closure_set(x_961, 2, x_952); +lean_closure_set(x_961, 3, x_3); +lean_closure_set(x_961, 4, x_4); +lean_closure_set(x_961, 5, x_6); +lean_closure_set(x_961, 6, x_7); +lean_closure_set(x_961, 7, x_910); +lean_closure_set(x_961, 8, x_960); +lean_closure_set(x_961, 9, x_938); +lean_closure_set(x_961, 10, x_954); +lean_closure_set(x_961, 11, x_957); +lean_closure_set(x_961, 12, x_958); +x_962 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_962, 0, x_959); +lean_closure_set(x_962, 1, x_961); +x_992 = lean_ctor_get(x_950, 4); +lean_inc(x_992); +x_993 = lean_ctor_get_uint8(x_992, sizeof(void*)*1); +lean_dec(x_992); +if (x_993 == 0) +{ +x_963 = x_942; +x_964 = x_950; +goto block_991; +} +else +{ +lean_object* x_994; lean_object* x_995; lean_object* x_996; lean_object* x_997; uint8_t x_998; +x_994 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_995 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_994, x_13, x_950); +x_996 = lean_ctor_get(x_995, 0); +lean_inc(x_996); +x_997 = lean_ctor_get(x_995, 1); +lean_inc(x_997); +lean_dec(x_995); +x_998 = lean_unbox(x_996); +lean_dec(x_996); +x_963 = x_998; +x_964 = x_997; +goto block_991; +} +block_991: +{ +if (x_963 == 0) +{ +lean_object* x_965; +x_965 = l_Lean_Meta_getMVarDecl(x_952, x_13, x_964); +if (lean_obj_tag(x_965) == 0) +{ +lean_object* x_966; lean_object* x_967; lean_object* x_968; lean_object* x_969; lean_object* x_970; +x_966 = lean_ctor_get(x_965, 0); +lean_inc(x_966); +x_967 = lean_ctor_get(x_965, 1); +lean_inc(x_967); +lean_dec(x_965); +x_968 = lean_ctor_get(x_966, 1); +lean_inc(x_968); +x_969 = lean_ctor_get(x_966, 4); +lean_inc(x_969); +lean_dec(x_966); +x_970 = l_Lean_Meta_withLocalContext___rarg(x_968, x_969, x_962, x_13, x_967); +lean_dec(x_13); +return x_970; +} +else +{ +uint8_t x_971; +lean_dec(x_962); +lean_dec(x_13); +x_971 = !lean_is_exclusive(x_965); +if (x_971 == 0) +{ +return x_965; +} +else +{ +lean_object* x_972; lean_object* x_973; lean_object* x_974; +x_972 = lean_ctor_get(x_965, 0); +x_973 = lean_ctor_get(x_965, 1); +lean_inc(x_973); +lean_inc(x_972); +lean_dec(x_965); +x_974 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_974, 0, x_972); +lean_ctor_set(x_974, 1, x_973); +return x_974; +} +} +} +else +{ +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_inc(x_952); +x_975 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_975, 0, x_952); +x_976 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_977 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_977, 0, x_976); +lean_ctor_set(x_977, 1, x_975); +x_978 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_979 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_978, x_977, x_13, x_964); +x_980 = lean_ctor_get(x_979, 1); +lean_inc(x_980); +lean_dec(x_979); +x_981 = l_Lean_Meta_getMVarDecl(x_952, x_13, x_980); +if (lean_obj_tag(x_981) == 0) +{ +lean_object* x_982; lean_object* x_983; lean_object* x_984; lean_object* x_985; lean_object* x_986; +x_982 = lean_ctor_get(x_981, 0); +lean_inc(x_982); +x_983 = lean_ctor_get(x_981, 1); +lean_inc(x_983); +lean_dec(x_981); +x_984 = lean_ctor_get(x_982, 1); +lean_inc(x_984); +x_985 = lean_ctor_get(x_982, 4); +lean_inc(x_985); +lean_dec(x_982); +x_986 = l_Lean_Meta_withLocalContext___rarg(x_984, x_985, x_962, x_13, x_983); +lean_dec(x_13); +return x_986; +} +else +{ +uint8_t x_987; +lean_dec(x_962); +lean_dec(x_13); +x_987 = !lean_is_exclusive(x_981); +if (x_987 == 0) +{ +return x_981; +} +else +{ +lean_object* x_988; lean_object* x_989; lean_object* x_990; +x_988 = lean_ctor_get(x_981, 0); +x_989 = lean_ctor_get(x_981, 1); +lean_inc(x_989); +lean_inc(x_988); +lean_dec(x_981); +x_990 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_990, 0, x_988); +lean_ctor_set(x_990, 1, x_989); +return x_990; +} +} +} +} +} +else +{ +uint8_t x_999; +lean_dec(x_946); +lean_dec(x_938); +lean_dec(x_923); +lean_dec(x_910); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_999 = !lean_is_exclusive(x_948); +if (x_999 == 0) +{ +return x_948; +} +else +{ +lean_object* x_1000; lean_object* x_1001; lean_object* x_1002; +x_1000 = lean_ctor_get(x_948, 0); +x_1001 = lean_ctor_get(x_948, 1); +lean_inc(x_1001); +lean_inc(x_1000); +lean_dec(x_948); +x_1002 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1002, 0, x_1000); +lean_ctor_set(x_1002, 1, x_1001); +return x_1002; +} +} +} +else +{ +uint8_t x_1003; +lean_dec(x_938); +lean_dec(x_923); +lean_dec(x_910); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1003 = !lean_is_exclusive(x_943); +if (x_1003 == 0) +{ +return x_943; +} +else +{ +lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; +x_1004 = lean_ctor_get(x_943, 0); +x_1005 = lean_ctor_get(x_943, 1); +lean_inc(x_1005); +lean_inc(x_1004); +lean_dec(x_943); +x_1006 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1006, 0, x_1004); +lean_ctor_set(x_1006, 1, x_1005); +return x_1006; +} +} +} +else +{ +uint8_t x_1007; +lean_dec(x_923); +lean_dec(x_910); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1007 = !lean_is_exclusive(x_935); +if (x_1007 == 0) +{ +return x_935; +} +else +{ +lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; +x_1008 = lean_ctor_get(x_935, 0); +x_1009 = lean_ctor_get(x_935, 1); +lean_inc(x_1009); +lean_inc(x_1008); +lean_dec(x_935); +x_1010 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1010, 0, x_1008); +lean_ctor_set(x_1010, 1, x_1009); +return x_1010; +} +} +} +} +else +{ uint8_t x_1025; -lean_dec(x_903); +lean_dec(x_923); +lean_dec(x_913); +lean_dec(x_910); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_1025 = !lean_is_exclusive(x_925); +if (x_1025 == 0) +{ +return x_925; +} +else +{ +lean_object* x_1026; lean_object* x_1027; lean_object* x_1028; +x_1026 = lean_ctor_get(x_925, 0); +x_1027 = lean_ctor_get(x_925, 1); +lean_inc(x_1027); +lean_inc(x_1026); +lean_dec(x_925); +x_1028 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1028, 0, x_1026); +lean_ctor_set(x_1028, 1, x_1027); +return x_1028; +} +} +} +else +{ +uint8_t x_1029; +lean_dec(x_913); +lean_dec(x_910); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_1029 = !lean_is_exclusive(x_922); +if (x_1029 == 0) +{ +return x_922; +} +else +{ +lean_object* x_1030; lean_object* x_1031; lean_object* x_1032; +x_1030 = lean_ctor_get(x_922, 0); +x_1031 = lean_ctor_get(x_922, 1); +lean_inc(x_1031); +lean_inc(x_1030); +lean_dec(x_922); +x_1032 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1032, 0, x_1030); +lean_ctor_set(x_1032, 1, x_1031); +return x_1032; +} +} +} +else +{ +uint8_t x_1033; +lean_dec(x_910); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -8625,182 +8655,166 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1025 = !lean_is_exclusive(x_904); -if (x_1025 == 0) +x_1033 = !lean_is_exclusive(x_911); +if (x_1033 == 0) { -return x_904; +return x_911; } else { -lean_object* x_1026; lean_object* x_1027; lean_object* x_1028; -x_1026 = lean_ctor_get(x_904, 0); -x_1027 = lean_ctor_get(x_904, 1); -lean_inc(x_1027); -lean_inc(x_1026); -lean_dec(x_904); -x_1028 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1028, 0, x_1026); -lean_ctor_set(x_1028, 1, x_1027); -return x_1028; +lean_object* x_1034; lean_object* x_1035; lean_object* x_1036; +x_1034 = lean_ctor_get(x_911, 0); +x_1035 = lean_ctor_get(x_911, 1); +lean_inc(x_1035); +lean_inc(x_1034); +lean_dec(x_911); +x_1036 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1036, 0, x_1034); +lean_ctor_set(x_1036, 1, x_1035); +return x_1036; } } } case 9: { -lean_object* x_1029; lean_object* x_1030; +lean_object* x_1037; lean_object* x_1038; lean_dec(x_12); lean_dec(x_10); -x_1029 = lean_ctor_get(x_7, 5); -lean_inc(x_1029); +x_1037 = lean_ctor_get(x_7, 5); +lean_inc(x_1037); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_1030 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1029, x_13, x_14); -if (lean_obj_tag(x_1030) == 0) +x_1038 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1037, x_13, x_14); +if (lean_obj_tag(x_1038) == 0) { -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; -x_1031 = lean_ctor_get(x_1030, 1); -lean_inc(x_1031); -lean_dec(x_1030); -x_1032 = lean_ctor_get(x_1031, 1); -lean_inc(x_1032); -x_1033 = lean_ctor_get(x_7, 6); -lean_inc(x_1033); -x_1034 = l_List_redLength___main___rarg(x_1033); -x_1035 = lean_mk_empty_array_with_capacity(x_1034); -lean_dec(x_1034); -lean_inc(x_1033); -x_1036 = l_List_toArrayAux___main___rarg(x_1033, x_1035); -x_1037 = x_1036; -x_1038 = lean_unsigned_to_nat(0u); -lean_inc(x_1032); +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; +x_1039 = lean_ctor_get(x_1038, 1); +lean_inc(x_1039); +lean_dec(x_1038); +x_1040 = lean_ctor_get(x_1039, 1); +lean_inc(x_1040); +x_1041 = lean_ctor_get(x_7, 6); +lean_inc(x_1041); +x_1042 = l_List_redLength___main___rarg(x_1041); +x_1043 = lean_mk_empty_array_with_capacity(x_1042); +lean_dec(x_1042); +lean_inc(x_1041); +x_1044 = l_List_toArrayAux___main___rarg(x_1041, x_1043); +x_1045 = x_1044; +x_1046 = lean_unsigned_to_nat(0u); +lean_inc(x_1040); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_1039 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_1039, 0, x_1); -lean_closure_set(x_1039, 1, x_6); -lean_closure_set(x_1039, 2, x_7); -lean_closure_set(x_1039, 3, x_9); -lean_closure_set(x_1039, 4, x_11); -lean_closure_set(x_1039, 5, x_1032); -lean_closure_set(x_1039, 6, x_1033); -lean_closure_set(x_1039, 7, x_1038); -lean_closure_set(x_1039, 8, x_1037); -x_1040 = x_1039; +x_1047 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_1047, 0, x_1); +lean_closure_set(x_1047, 1, x_6); +lean_closure_set(x_1047, 2, x_7); +lean_closure_set(x_1047, 3, x_9); +lean_closure_set(x_1047, 4, x_11); +lean_closure_set(x_1047, 5, x_1040); +lean_closure_set(x_1047, 6, x_1041); +lean_closure_set(x_1047, 7, x_1046); +lean_closure_set(x_1047, 8, x_1045); +x_1048 = x_1047; lean_inc(x_13); -x_1041 = lean_apply_2(x_1040, x_13, x_1031); -if (lean_obj_tag(x_1041) == 0) +x_1049 = lean_apply_2(x_1048, x_13, x_1039); +if (lean_obj_tag(x_1049) == 0) { -lean_object* x_1042; lean_object* x_1043; lean_object* x_1044; -x_1042 = lean_ctor_get(x_1041, 0); -lean_inc(x_1042); -x_1043 = lean_ctor_get(x_1041, 1); -lean_inc(x_1043); -lean_dec(x_1041); +lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; +x_1050 = lean_ctor_get(x_1049, 0); +lean_inc(x_1050); +x_1051 = lean_ctor_get(x_1049, 1); +lean_inc(x_1051); +lean_dec(x_1049); lean_inc(x_1); -x_1044 = l_Lean_Meta_getMVarType(x_1, x_13, x_1043); -if (lean_obj_tag(x_1044) == 0) +x_1052 = l_Lean_Meta_getMVarType(x_1, x_13, x_1051); +if (lean_obj_tag(x_1052) == 0) { -lean_object* x_1045; lean_object* x_1046; uint8_t x_1047; lean_object* x_1048; lean_object* x_1049; lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; -x_1045 = lean_ctor_get(x_1044, 0); -lean_inc(x_1045); -x_1046 = lean_ctor_get(x_1044, 1); -lean_inc(x_1046); -lean_dec(x_1044); -x_1047 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_1042); -x_1048 = x_1042; -x_1049 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1038, x_1048); -x_1050 = x_1049; +lean_object* x_1053; lean_object* x_1054; uint8_t x_1055; lean_object* x_1056; lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; lean_object* x_1060; +x_1053 = lean_ctor_get(x_1052, 0); +lean_inc(x_1053); +x_1054 = lean_ctor_get(x_1052, 1); +lean_inc(x_1054); +lean_dec(x_1052); +x_1055 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_1050); +x_1056 = x_1050; +x_1057 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1046, x_1056); +x_1058 = x_1057; lean_inc(x_2); -x_1051 = lean_array_push(x_1050, x_2); -if (x_1047 == 0) +x_1059 = lean_array_push(x_1058, x_2); +if (x_1055 == 0) { -lean_object* x_1131; uint8_t x_1132; -x_1131 = l_Lean_MetavarContext_exprDependsOn(x_1032, x_1045, x_2); +lean_object* x_1139; uint8_t x_1140; +x_1139 = l_Lean_MetavarContext_exprDependsOn(x_1040, x_1053, x_2); lean_dec(x_2); -x_1132 = lean_unbox(x_1131); -lean_dec(x_1131); -if (x_1132 == 0) +x_1140 = lean_unbox(x_1139); +lean_dec(x_1139); +if (x_1140 == 0) { -x_1052 = x_1046; -goto block_1130; +x_1060 = x_1054; +goto block_1138; } else { -lean_object* x_1133; lean_object* x_1134; lean_object* x_1135; lean_object* x_1136; lean_object* x_1137; lean_object* x_1138; uint8_t x_1139; -lean_dec(x_1051); -lean_dec(x_1042); -lean_dec(x_1029); +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; uint8_t x_1148; +lean_dec(x_1059); +lean_dec(x_1050); +lean_dec(x_1037); lean_dec(x_8); lean_dec(x_7); lean_dec(x_4); -x_1133 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1133, 0, x_3); -x_1134 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_1135 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1135, 0, x_1134); -lean_ctor_set(x_1135, 1, x_1133); -x_1136 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_1137 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1137, 0, x_1135); -lean_ctor_set(x_1137, 1, x_1136); -x_1138 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1137, x_13, x_1046); +x_1141 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1141, 0, x_3); +x_1142 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_1143 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1143, 0, x_1142); +lean_ctor_set(x_1143, 1, x_1141); +x_1144 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_1145 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1145, 0, x_1143); +lean_ctor_set(x_1145, 1, x_1144); +x_1146 = lean_box(0); +x_1147 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1145, x_1146, x_13, x_1054); lean_dec(x_13); -x_1139 = !lean_is_exclusive(x_1138); -if (x_1139 == 0) +x_1148 = !lean_is_exclusive(x_1147); +if (x_1148 == 0) { -return x_1138; +return x_1147; } else { -lean_object* x_1140; lean_object* x_1141; lean_object* x_1142; -x_1140 = lean_ctor_get(x_1138, 0); -x_1141 = lean_ctor_get(x_1138, 1); -lean_inc(x_1141); -lean_inc(x_1140); -lean_dec(x_1138); -x_1142 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1142, 0, x_1140); -lean_ctor_set(x_1142, 1, x_1141); -return x_1142; +lean_object* x_1149; lean_object* x_1150; lean_object* x_1151; +x_1149 = lean_ctor_get(x_1147, 0); +x_1150 = lean_ctor_get(x_1147, 1); +lean_inc(x_1150); +lean_inc(x_1149); +lean_dec(x_1147); +x_1151 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1151, 0, x_1149); +lean_ctor_set(x_1151, 1, x_1150); +return x_1151; } } } else { -lean_dec(x_1045); -lean_dec(x_1032); +lean_dec(x_1053); +lean_dec(x_1040); lean_dec(x_2); -x_1052 = x_1046; -goto block_1130; +x_1060 = x_1054; +goto block_1138; } -block_1130: +block_1138: { -uint8_t x_1053; lean_object* x_1054; -x_1053 = 1; -x_1054 = l_Lean_Meta_revert(x_1, x_1051, x_1053, x_13, x_1052); -if (lean_obj_tag(x_1054) == 0) -{ -lean_object* x_1055; lean_object* x_1056; lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; lean_object* x_1060; uint8_t x_1061; lean_object* x_1062; -x_1055 = lean_ctor_get(x_1054, 0); -lean_inc(x_1055); -x_1056 = lean_ctor_get(x_1054, 1); -lean_inc(x_1056); -lean_dec(x_1054); -x_1057 = lean_ctor_get(x_1055, 0); -lean_inc(x_1057); -x_1058 = lean_ctor_get(x_1055, 1); -lean_inc(x_1058); -lean_dec(x_1055); -x_1059 = lean_array_get_size(x_1042); -x_1060 = lean_box(0); -x_1061 = 0; -x_1062 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_1061, x_1058, x_1059, x_1060, x_13, x_1056); +uint8_t x_1061; lean_object* x_1062; +x_1061 = 1; +x_1062 = l_Lean_Meta_revert(x_1, x_1059, x_1061, x_13, x_1060); if (lean_obj_tag(x_1062) == 0) { -lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; +lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; lean_object* x_1068; uint8_t x_1069; lean_object* x_1070; x_1063 = lean_ctor_get(x_1062, 0); lean_inc(x_1063); x_1064 = lean_ctor_get(x_1062, 1); @@ -8811,273 +8825,227 @@ lean_inc(x_1065); x_1066 = lean_ctor_get(x_1063, 1); lean_inc(x_1066); lean_dec(x_1063); -x_1067 = l_Lean_Meta_intro1(x_1066, x_1061, x_13, x_1064); -if (lean_obj_tag(x_1067) == 0) +x_1067 = lean_array_get_size(x_1050); +x_1068 = lean_box(0); +x_1069 = 0; +x_1070 = l_Lean_Meta_introN(x_1066, x_1067, x_1068, x_1069, x_13, x_1064); +if (lean_obj_tag(x_1070) == 0) { -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; uint8_t x_1082; lean_object* x_1083; lean_object* x_1111; uint8_t x_1112; -x_1068 = lean_ctor_get(x_1067, 0); -lean_inc(x_1068); -x_1069 = lean_ctor_get(x_1067, 1); -lean_inc(x_1069); -lean_dec(x_1067); -x_1070 = lean_ctor_get(x_1068, 0); -lean_inc(x_1070); -x_1071 = lean_ctor_get(x_1068, 1); +lean_object* x_1071; lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; lean_object* x_1075; +x_1071 = lean_ctor_get(x_1070, 0); lean_inc(x_1071); -lean_dec(x_1068); -x_1072 = lean_box(0); -x_1073 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1042, x_1065, x_1042, x_1038, x_1072); -lean_dec(x_1042); -x_1074 = x_1065; -x_1075 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1038, x_1074); -x_1076 = x_1075; -lean_inc(x_1070); -x_1077 = l_Lean_mkFVar(x_1070); -lean_inc(x_1071); -x_1078 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_1078, 0, x_1071); -x_1079 = lean_box(x_1047); -lean_inc(x_1071); -x_1080 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_1080, 0, x_1070); -lean_closure_set(x_1080, 1, x_8); -lean_closure_set(x_1080, 2, x_1071); -lean_closure_set(x_1080, 3, x_3); -lean_closure_set(x_1080, 4, x_4); -lean_closure_set(x_1080, 5, x_6); -lean_closure_set(x_1080, 6, x_7); -lean_closure_set(x_1080, 7, x_1029); -lean_closure_set(x_1080, 8, x_1079); -lean_closure_set(x_1080, 9, x_1057); -lean_closure_set(x_1080, 10, x_1073); -lean_closure_set(x_1080, 11, x_1076); -lean_closure_set(x_1080, 12, x_1077); -x_1081 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_1081, 0, x_1078); -lean_closure_set(x_1081, 1, x_1080); -x_1111 = lean_ctor_get(x_1069, 4); -lean_inc(x_1111); -x_1112 = lean_ctor_get_uint8(x_1111, sizeof(void*)*1); -lean_dec(x_1111); -if (x_1112 == 0) +x_1072 = lean_ctor_get(x_1070, 1); +lean_inc(x_1072); +lean_dec(x_1070); +x_1073 = lean_ctor_get(x_1071, 0); +lean_inc(x_1073); +x_1074 = lean_ctor_get(x_1071, 1); +lean_inc(x_1074); +lean_dec(x_1071); +x_1075 = l_Lean_Meta_intro1(x_1074, x_1069, x_13, x_1072); +if (lean_obj_tag(x_1075) == 0) { -x_1082 = x_1061; -x_1083 = x_1069; -goto block_1110; +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; uint8_t x_1090; lean_object* x_1091; lean_object* x_1119; uint8_t x_1120; +x_1076 = lean_ctor_get(x_1075, 0); +lean_inc(x_1076); +x_1077 = lean_ctor_get(x_1075, 1); +lean_inc(x_1077); +lean_dec(x_1075); +x_1078 = lean_ctor_get(x_1076, 0); +lean_inc(x_1078); +x_1079 = lean_ctor_get(x_1076, 1); +lean_inc(x_1079); +lean_dec(x_1076); +x_1080 = lean_box(0); +x_1081 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1050, x_1073, x_1050, x_1046, x_1080); +lean_dec(x_1050); +x_1082 = x_1073; +x_1083 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1046, x_1082); +x_1084 = x_1083; +lean_inc(x_1078); +x_1085 = l_Lean_mkFVar(x_1078); +lean_inc(x_1079); +x_1086 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_1086, 0, x_1079); +x_1087 = lean_box(x_1055); +lean_inc(x_1079); +x_1088 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_1088, 0, x_1078); +lean_closure_set(x_1088, 1, x_8); +lean_closure_set(x_1088, 2, x_1079); +lean_closure_set(x_1088, 3, x_3); +lean_closure_set(x_1088, 4, x_4); +lean_closure_set(x_1088, 5, x_6); +lean_closure_set(x_1088, 6, x_7); +lean_closure_set(x_1088, 7, x_1037); +lean_closure_set(x_1088, 8, x_1087); +lean_closure_set(x_1088, 9, x_1065); +lean_closure_set(x_1088, 10, x_1081); +lean_closure_set(x_1088, 11, x_1084); +lean_closure_set(x_1088, 12, x_1085); +x_1089 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_1089, 0, x_1086); +lean_closure_set(x_1089, 1, x_1088); +x_1119 = lean_ctor_get(x_1077, 4); +lean_inc(x_1119); +x_1120 = lean_ctor_get_uint8(x_1119, sizeof(void*)*1); +lean_dec(x_1119); +if (x_1120 == 0) +{ +x_1090 = x_1069; +x_1091 = x_1077; +goto block_1118; } else { -lean_object* x_1113; lean_object* x_1114; lean_object* x_1115; lean_object* x_1116; uint8_t x_1117; -x_1113 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1114 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1113, x_13, x_1069); -x_1115 = lean_ctor_get(x_1114, 0); -lean_inc(x_1115); -x_1116 = lean_ctor_get(x_1114, 1); -lean_inc(x_1116); -lean_dec(x_1114); -x_1117 = lean_unbox(x_1115); -lean_dec(x_1115); -x_1082 = x_1117; -x_1083 = x_1116; -goto block_1110; +lean_object* x_1121; lean_object* x_1122; lean_object* x_1123; lean_object* x_1124; uint8_t x_1125; +x_1121 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1122 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1121, x_13, x_1077); +x_1123 = lean_ctor_get(x_1122, 0); +lean_inc(x_1123); +x_1124 = lean_ctor_get(x_1122, 1); +lean_inc(x_1124); +lean_dec(x_1122); +x_1125 = lean_unbox(x_1123); +lean_dec(x_1123); +x_1090 = x_1125; +x_1091 = x_1124; +goto block_1118; } -block_1110: +block_1118: { -if (x_1082 == 0) -{ -lean_object* x_1084; -x_1084 = l_Lean_Meta_getMVarDecl(x_1071, x_13, x_1083); -if (lean_obj_tag(x_1084) == 0) -{ -lean_object* x_1085; lean_object* x_1086; lean_object* x_1087; lean_object* x_1088; lean_object* x_1089; -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_ctor_get(x_1085, 1); -lean_inc(x_1087); -x_1088 = lean_ctor_get(x_1085, 4); -lean_inc(x_1088); -lean_dec(x_1085); -x_1089 = l_Lean_Meta_withLocalContext___rarg(x_1087, x_1088, x_1081, x_13, x_1086); -lean_dec(x_13); -return x_1089; -} -else -{ -uint8_t x_1090; -lean_dec(x_1081); -lean_dec(x_13); -x_1090 = !lean_is_exclusive(x_1084); if (x_1090 == 0) { -return x_1084; +lean_object* x_1092; +x_1092 = l_Lean_Meta_getMVarDecl(x_1079, x_13, x_1091); +if (lean_obj_tag(x_1092) == 0) +{ +lean_object* x_1093; lean_object* x_1094; lean_object* x_1095; lean_object* x_1096; lean_object* x_1097; +x_1093 = lean_ctor_get(x_1092, 0); +lean_inc(x_1093); +x_1094 = lean_ctor_get(x_1092, 1); +lean_inc(x_1094); +lean_dec(x_1092); +x_1095 = lean_ctor_get(x_1093, 1); +lean_inc(x_1095); +x_1096 = lean_ctor_get(x_1093, 4); +lean_inc(x_1096); +lean_dec(x_1093); +x_1097 = l_Lean_Meta_withLocalContext___rarg(x_1095, x_1096, x_1089, x_13, x_1094); +lean_dec(x_13); +return x_1097; } else { -lean_object* x_1091; lean_object* x_1092; lean_object* x_1093; -x_1091 = lean_ctor_get(x_1084, 0); -x_1092 = lean_ctor_get(x_1084, 1); -lean_inc(x_1092); -lean_inc(x_1091); -lean_dec(x_1084); -x_1093 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1093, 0, x_1091); -lean_ctor_set(x_1093, 1, x_1092); -return x_1093; -} -} +uint8_t x_1098; +lean_dec(x_1089); +lean_dec(x_13); +x_1098 = !lean_is_exclusive(x_1092); +if (x_1098 == 0) +{ +return x_1092; } else { -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_inc(x_1071); -x_1094 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_1094, 0, x_1071); -x_1095 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_1096 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1096, 0, x_1095); -lean_ctor_set(x_1096, 1, x_1094); -x_1097 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1098 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1097, x_1096, x_13, x_1083); -x_1099 = lean_ctor_get(x_1098, 1); +lean_object* x_1099; lean_object* x_1100; lean_object* x_1101; +x_1099 = lean_ctor_get(x_1092, 0); +x_1100 = lean_ctor_get(x_1092, 1); +lean_inc(x_1100); lean_inc(x_1099); -lean_dec(x_1098); -x_1100 = l_Lean_Meta_getMVarDecl(x_1071, x_13, x_1099); -if (lean_obj_tag(x_1100) == 0) -{ -lean_object* x_1101; lean_object* x_1102; lean_object* x_1103; lean_object* x_1104; lean_object* x_1105; -x_1101 = lean_ctor_get(x_1100, 0); -lean_inc(x_1101); -x_1102 = lean_ctor_get(x_1100, 1); -lean_inc(x_1102); -lean_dec(x_1100); -x_1103 = lean_ctor_get(x_1101, 1); -lean_inc(x_1103); -x_1104 = lean_ctor_get(x_1101, 4); -lean_inc(x_1104); -lean_dec(x_1101); -x_1105 = l_Lean_Meta_withLocalContext___rarg(x_1103, x_1104, x_1081, x_13, x_1102); -lean_dec(x_13); -return x_1105; +lean_dec(x_1092); +x_1101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1101, 0, x_1099); +lean_ctor_set(x_1101, 1, x_1100); +return x_1101; +} +} } else { -uint8_t x_1106; -lean_dec(x_1081); -lean_dec(x_13); -x_1106 = !lean_is_exclusive(x_1100); -if (x_1106 == 0) -{ -return x_1100; -} -else -{ -lean_object* x_1107; lean_object* x_1108; lean_object* x_1109; -x_1107 = lean_ctor_get(x_1100, 0); -x_1108 = lean_ctor_get(x_1100, 1); -lean_inc(x_1108); +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_inc(x_1079); +x_1102 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_1102, 0, x_1079); +x_1103 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_1104 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1104, 0, x_1103); +lean_ctor_set(x_1104, 1, x_1102); +x_1105 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1106 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1105, x_1104, x_13, x_1091); +x_1107 = lean_ctor_get(x_1106, 1); lean_inc(x_1107); -lean_dec(x_1100); -x_1109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1109, 0, x_1107); -lean_ctor_set(x_1109, 1, x_1108); -return x_1109; -} -} -} -} -} -else +lean_dec(x_1106); +x_1108 = l_Lean_Meta_getMVarDecl(x_1079, x_13, x_1107); +if (lean_obj_tag(x_1108) == 0) { -uint8_t x_1118; -lean_dec(x_1065); -lean_dec(x_1057); -lean_dec(x_1042); -lean_dec(x_1029); +lean_object* x_1109; lean_object* x_1110; lean_object* x_1111; lean_object* x_1112; lean_object* x_1113; +x_1109 = lean_ctor_get(x_1108, 0); +lean_inc(x_1109); +x_1110 = lean_ctor_get(x_1108, 1); +lean_inc(x_1110); +lean_dec(x_1108); +x_1111 = lean_ctor_get(x_1109, 1); +lean_inc(x_1111); +x_1112 = lean_ctor_get(x_1109, 4); +lean_inc(x_1112); +lean_dec(x_1109); +x_1113 = l_Lean_Meta_withLocalContext___rarg(x_1111, x_1112, x_1089, x_13, x_1110); lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1118 = !lean_is_exclusive(x_1067); -if (x_1118 == 0) -{ -return x_1067; +return x_1113; } else { -lean_object* x_1119; lean_object* x_1120; lean_object* x_1121; -x_1119 = lean_ctor_get(x_1067, 0); -x_1120 = lean_ctor_get(x_1067, 1); -lean_inc(x_1120); -lean_inc(x_1119); -lean_dec(x_1067); -x_1121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1121, 0, x_1119); -lean_ctor_set(x_1121, 1, x_1120); -return x_1121; -} -} -} -else -{ -uint8_t x_1122; -lean_dec(x_1057); -lean_dec(x_1042); -lean_dec(x_1029); +uint8_t x_1114; +lean_dec(x_1089); lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1122 = !lean_is_exclusive(x_1062); -if (x_1122 == 0) +x_1114 = !lean_is_exclusive(x_1108); +if (x_1114 == 0) { -return x_1062; +return x_1108; } else { -lean_object* x_1123; lean_object* x_1124; lean_object* x_1125; -x_1123 = lean_ctor_get(x_1062, 0); -x_1124 = lean_ctor_get(x_1062, 1); -lean_inc(x_1124); -lean_inc(x_1123); -lean_dec(x_1062); -x_1125 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1125, 0, x_1123); -lean_ctor_set(x_1125, 1, x_1124); -return x_1125; +lean_object* x_1115; lean_object* x_1116; lean_object* x_1117; +x_1115 = lean_ctor_get(x_1108, 0); +x_1116 = lean_ctor_get(x_1108, 1); +lean_inc(x_1116); +lean_inc(x_1115); +lean_dec(x_1108); +x_1117 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1117, 0, x_1115); +lean_ctor_set(x_1117, 1, x_1116); +return x_1117; +} +} } } } else { uint8_t x_1126; -lean_dec(x_1042); -lean_dec(x_1029); +lean_dec(x_1073); +lean_dec(x_1065); +lean_dec(x_1050); +lean_dec(x_1037); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_1126 = !lean_is_exclusive(x_1054); +x_1126 = !lean_is_exclusive(x_1075); if (x_1126 == 0) { -return x_1054; +return x_1075; } else { lean_object* x_1127; lean_object* x_1128; lean_object* x_1129; -x_1127 = lean_ctor_get(x_1054, 0); -x_1128 = lean_ctor_get(x_1054, 1); +x_1127 = lean_ctor_get(x_1075, 0); +x_1128 = lean_ctor_get(x_1075, 1); lean_inc(x_1128); lean_inc(x_1127); -lean_dec(x_1054); +lean_dec(x_1075); x_1129 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1129, 0, x_1127); lean_ctor_set(x_1129, 1, x_1128); @@ -9085,13 +9053,76 @@ return x_1129; } } } +else +{ +uint8_t x_1130; +lean_dec(x_1065); +lean_dec(x_1050); +lean_dec(x_1037); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1130 = !lean_is_exclusive(x_1070); +if (x_1130 == 0) +{ +return x_1070; } else { -uint8_t x_1143; -lean_dec(x_1042); -lean_dec(x_1032); -lean_dec(x_1029); +lean_object* x_1131; lean_object* x_1132; lean_object* x_1133; +x_1131 = lean_ctor_get(x_1070, 0); +x_1132 = lean_ctor_get(x_1070, 1); +lean_inc(x_1132); +lean_inc(x_1131); +lean_dec(x_1070); +x_1133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1133, 0, x_1131); +lean_ctor_set(x_1133, 1, x_1132); +return x_1133; +} +} +} +else +{ +uint8_t x_1134; +lean_dec(x_1050); +lean_dec(x_1037); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1134 = !lean_is_exclusive(x_1062); +if (x_1134 == 0) +{ +return x_1062; +} +else +{ +lean_object* x_1135; lean_object* x_1136; lean_object* x_1137; +x_1135 = lean_ctor_get(x_1062, 0); +x_1136 = lean_ctor_get(x_1062, 1); +lean_inc(x_1136); +lean_inc(x_1135); +lean_dec(x_1062); +x_1137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1137, 0, x_1135); +lean_ctor_set(x_1137, 1, x_1136); +return x_1137; +} +} +} +} +else +{ +uint8_t x_1152; +lean_dec(x_1050); +lean_dec(x_1040); +lean_dec(x_1037); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -9100,31 +9131,31 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1143 = !lean_is_exclusive(x_1044); -if (x_1143 == 0) +x_1152 = !lean_is_exclusive(x_1052); +if (x_1152 == 0) { -return x_1044; +return x_1052; } else { -lean_object* x_1144; lean_object* x_1145; lean_object* x_1146; -x_1144 = lean_ctor_get(x_1044, 0); -x_1145 = lean_ctor_get(x_1044, 1); -lean_inc(x_1145); -lean_inc(x_1144); -lean_dec(x_1044); -x_1146 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1146, 0, x_1144); -lean_ctor_set(x_1146, 1, x_1145); -return x_1146; +lean_object* x_1153; lean_object* x_1154; lean_object* x_1155; +x_1153 = lean_ctor_get(x_1052, 0); +x_1154 = lean_ctor_get(x_1052, 1); +lean_inc(x_1154); +lean_inc(x_1153); +lean_dec(x_1052); +x_1155 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1155, 0, x_1153); +lean_ctor_set(x_1155, 1, x_1154); +return x_1155; } } } else { -uint8_t x_1147; -lean_dec(x_1032); -lean_dec(x_1029); +uint8_t x_1156; +lean_dec(x_1040); +lean_dec(x_1037); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -9133,30 +9164,30 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1147 = !lean_is_exclusive(x_1041); -if (x_1147 == 0) +x_1156 = !lean_is_exclusive(x_1049); +if (x_1156 == 0) { -return x_1041; +return x_1049; } else { -lean_object* x_1148; lean_object* x_1149; lean_object* x_1150; -x_1148 = lean_ctor_get(x_1041, 0); -x_1149 = lean_ctor_get(x_1041, 1); -lean_inc(x_1149); -lean_inc(x_1148); -lean_dec(x_1041); -x_1150 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1150, 0, x_1148); -lean_ctor_set(x_1150, 1, x_1149); -return x_1150; +lean_object* x_1157; lean_object* x_1158; lean_object* x_1159; +x_1157 = lean_ctor_get(x_1049, 0); +x_1158 = lean_ctor_get(x_1049, 1); +lean_inc(x_1158); +lean_inc(x_1157); +lean_dec(x_1049); +x_1159 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1159, 0, x_1157); +lean_ctor_set(x_1159, 1, x_1158); +return x_1159; } } } else { -uint8_t x_1151; -lean_dec(x_1029); +uint8_t x_1160; +lean_dec(x_1037); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -9167,506 +9198,474 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1151 = !lean_is_exclusive(x_1030); -if (x_1151 == 0) +x_1160 = !lean_is_exclusive(x_1038); +if (x_1160 == 0) { -return x_1030; +return x_1038; } else { -lean_object* x_1152; lean_object* x_1153; lean_object* x_1154; -x_1152 = lean_ctor_get(x_1030, 0); -x_1153 = lean_ctor_get(x_1030, 1); -lean_inc(x_1153); -lean_inc(x_1152); -lean_dec(x_1030); -x_1154 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1154, 0, x_1152); -lean_ctor_set(x_1154, 1, x_1153); -return x_1154; +lean_object* x_1161; lean_object* x_1162; lean_object* x_1163; +x_1161 = lean_ctor_get(x_1038, 0); +x_1162 = lean_ctor_get(x_1038, 1); +lean_inc(x_1162); +lean_inc(x_1161); +lean_dec(x_1038); +x_1163 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1163, 0, x_1161); +lean_ctor_set(x_1163, 1, x_1162); +return x_1163; } } } case 10: { -lean_object* x_1155; lean_object* x_1156; +lean_object* x_1164; lean_object* x_1165; lean_dec(x_12); lean_dec(x_10); -x_1155 = lean_ctor_get(x_7, 5); -lean_inc(x_1155); +x_1164 = lean_ctor_get(x_7, 5); +lean_inc(x_1164); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_1156 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1155, x_13, x_14); -if (lean_obj_tag(x_1156) == 0) +x_1165 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1164, x_13, x_14); +if (lean_obj_tag(x_1165) == 0) { -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; -x_1157 = lean_ctor_get(x_1156, 1); -lean_inc(x_1157); -lean_dec(x_1156); -x_1158 = lean_ctor_get(x_1157, 1); -lean_inc(x_1158); -x_1159 = lean_ctor_get(x_7, 6); -lean_inc(x_1159); -x_1160 = l_List_redLength___main___rarg(x_1159); -x_1161 = lean_mk_empty_array_with_capacity(x_1160); -lean_dec(x_1160); -lean_inc(x_1159); -x_1162 = l_List_toArrayAux___main___rarg(x_1159, x_1161); -x_1163 = x_1162; -x_1164 = lean_unsigned_to_nat(0u); -lean_inc(x_1158); +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; +x_1166 = lean_ctor_get(x_1165, 1); +lean_inc(x_1166); +lean_dec(x_1165); +x_1167 = lean_ctor_get(x_1166, 1); +lean_inc(x_1167); +x_1168 = lean_ctor_get(x_7, 6); +lean_inc(x_1168); +x_1169 = l_List_redLength___main___rarg(x_1168); +x_1170 = lean_mk_empty_array_with_capacity(x_1169); +lean_dec(x_1169); +lean_inc(x_1168); +x_1171 = l_List_toArrayAux___main___rarg(x_1168, x_1170); +x_1172 = x_1171; +x_1173 = lean_unsigned_to_nat(0u); +lean_inc(x_1167); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_1165 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_1165, 0, x_1); -lean_closure_set(x_1165, 1, x_6); -lean_closure_set(x_1165, 2, x_7); -lean_closure_set(x_1165, 3, x_9); -lean_closure_set(x_1165, 4, x_11); -lean_closure_set(x_1165, 5, x_1158); -lean_closure_set(x_1165, 6, x_1159); -lean_closure_set(x_1165, 7, x_1164); -lean_closure_set(x_1165, 8, x_1163); -x_1166 = x_1165; +x_1174 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_1174, 0, x_1); +lean_closure_set(x_1174, 1, x_6); +lean_closure_set(x_1174, 2, x_7); +lean_closure_set(x_1174, 3, x_9); +lean_closure_set(x_1174, 4, x_11); +lean_closure_set(x_1174, 5, x_1167); +lean_closure_set(x_1174, 6, x_1168); +lean_closure_set(x_1174, 7, x_1173); +lean_closure_set(x_1174, 8, x_1172); +x_1175 = x_1174; lean_inc(x_13); -x_1167 = lean_apply_2(x_1166, x_13, x_1157); -if (lean_obj_tag(x_1167) == 0) +x_1176 = lean_apply_2(x_1175, x_13, x_1166); +if (lean_obj_tag(x_1176) == 0) { -lean_object* x_1168; lean_object* x_1169; lean_object* x_1170; -x_1168 = lean_ctor_get(x_1167, 0); -lean_inc(x_1168); -x_1169 = lean_ctor_get(x_1167, 1); -lean_inc(x_1169); -lean_dec(x_1167); +lean_object* x_1177; lean_object* x_1178; lean_object* x_1179; +x_1177 = lean_ctor_get(x_1176, 0); +lean_inc(x_1177); +x_1178 = lean_ctor_get(x_1176, 1); +lean_inc(x_1178); +lean_dec(x_1176); lean_inc(x_1); -x_1170 = l_Lean_Meta_getMVarType(x_1, x_13, x_1169); -if (lean_obj_tag(x_1170) == 0) +x_1179 = l_Lean_Meta_getMVarType(x_1, x_13, x_1178); +if (lean_obj_tag(x_1179) == 0) { -lean_object* x_1171; lean_object* x_1172; uint8_t x_1173; lean_object* x_1174; lean_object* x_1175; lean_object* x_1176; lean_object* x_1177; lean_object* x_1178; -x_1171 = lean_ctor_get(x_1170, 0); -lean_inc(x_1171); -x_1172 = lean_ctor_get(x_1170, 1); -lean_inc(x_1172); -lean_dec(x_1170); -x_1173 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_1168); -x_1174 = x_1168; -x_1175 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1164, x_1174); -x_1176 = x_1175; -lean_inc(x_2); -x_1177 = lean_array_push(x_1176, x_2); -if (x_1173 == 0) -{ -lean_object* x_1257; uint8_t x_1258; -x_1257 = l_Lean_MetavarContext_exprDependsOn(x_1158, x_1171, x_2); -lean_dec(x_2); -x_1258 = lean_unbox(x_1257); -lean_dec(x_1257); -if (x_1258 == 0) -{ -x_1178 = x_1172; -goto block_1256; -} -else -{ -lean_object* x_1259; lean_object* x_1260; lean_object* x_1261; lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; uint8_t x_1265; -lean_dec(x_1177); -lean_dec(x_1168); -lean_dec(x_1155); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -x_1259 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1259, 0, x_3); -x_1260 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_1261 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1261, 0, x_1260); -lean_ctor_set(x_1261, 1, x_1259); -x_1262 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_1263 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1263, 0, x_1261); -lean_ctor_set(x_1263, 1, x_1262); -x_1264 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1263, x_13, x_1172); -lean_dec(x_13); -x_1265 = !lean_is_exclusive(x_1264); -if (x_1265 == 0) -{ -return x_1264; -} -else -{ -lean_object* x_1266; lean_object* x_1267; lean_object* x_1268; -x_1266 = lean_ctor_get(x_1264, 0); -x_1267 = lean_ctor_get(x_1264, 1); -lean_inc(x_1267); -lean_inc(x_1266); -lean_dec(x_1264); -x_1268 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1268, 0, x_1266); -lean_ctor_set(x_1268, 1, x_1267); -return x_1268; -} -} -} -else -{ -lean_dec(x_1171); -lean_dec(x_1158); -lean_dec(x_2); -x_1178 = x_1172; -goto block_1256; -} -block_1256: -{ -uint8_t x_1179; lean_object* x_1180; -x_1179 = 1; -x_1180 = l_Lean_Meta_revert(x_1, x_1177, x_1179, x_13, x_1178); -if (lean_obj_tag(x_1180) == 0) -{ -lean_object* x_1181; lean_object* x_1182; lean_object* x_1183; lean_object* x_1184; lean_object* x_1185; lean_object* x_1186; uint8_t x_1187; lean_object* x_1188; -x_1181 = lean_ctor_get(x_1180, 0); +lean_object* x_1180; lean_object* x_1181; uint8_t x_1182; lean_object* x_1183; lean_object* x_1184; lean_object* x_1185; lean_object* x_1186; lean_object* x_1187; +x_1180 = lean_ctor_get(x_1179, 0); +lean_inc(x_1180); +x_1181 = lean_ctor_get(x_1179, 1); lean_inc(x_1181); -x_1182 = lean_ctor_get(x_1180, 1); -lean_inc(x_1182); -lean_dec(x_1180); -x_1183 = lean_ctor_get(x_1181, 0); -lean_inc(x_1183); -x_1184 = lean_ctor_get(x_1181, 1); -lean_inc(x_1184); -lean_dec(x_1181); -x_1185 = lean_array_get_size(x_1168); -x_1186 = lean_box(0); -x_1187 = 0; -x_1188 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_1187, x_1184, x_1185, x_1186, x_13, x_1182); -if (lean_obj_tag(x_1188) == 0) +lean_dec(x_1179); +x_1182 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_1177); +x_1183 = x_1177; +x_1184 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1173, x_1183); +x_1185 = x_1184; +lean_inc(x_2); +x_1186 = lean_array_push(x_1185, x_2); +if (x_1182 == 0) { -lean_object* x_1189; lean_object* x_1190; lean_object* x_1191; lean_object* x_1192; lean_object* x_1193; -x_1189 = lean_ctor_get(x_1188, 0); -lean_inc(x_1189); -x_1190 = lean_ctor_get(x_1188, 1); -lean_inc(x_1190); -lean_dec(x_1188); -x_1191 = lean_ctor_get(x_1189, 0); -lean_inc(x_1191); -x_1192 = lean_ctor_get(x_1189, 1); -lean_inc(x_1192); -lean_dec(x_1189); -x_1193 = l_Lean_Meta_intro1(x_1192, x_1187, x_13, x_1190); -if (lean_obj_tag(x_1193) == 0) -{ -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; uint8_t x_1208; lean_object* x_1209; lean_object* x_1237; uint8_t x_1238; -x_1194 = lean_ctor_get(x_1193, 0); -lean_inc(x_1194); -x_1195 = lean_ctor_get(x_1193, 1); -lean_inc(x_1195); -lean_dec(x_1193); -x_1196 = lean_ctor_get(x_1194, 0); -lean_inc(x_1196); -x_1197 = lean_ctor_get(x_1194, 1); -lean_inc(x_1197); -lean_dec(x_1194); -x_1198 = lean_box(0); -x_1199 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1168, x_1191, x_1168, x_1164, x_1198); -lean_dec(x_1168); -x_1200 = x_1191; -x_1201 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1164, x_1200); -x_1202 = x_1201; -lean_inc(x_1196); -x_1203 = l_Lean_mkFVar(x_1196); -lean_inc(x_1197); -x_1204 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_1204, 0, x_1197); -x_1205 = lean_box(x_1173); -lean_inc(x_1197); -x_1206 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_1206, 0, x_1196); -lean_closure_set(x_1206, 1, x_8); -lean_closure_set(x_1206, 2, x_1197); -lean_closure_set(x_1206, 3, x_3); -lean_closure_set(x_1206, 4, x_4); -lean_closure_set(x_1206, 5, x_6); -lean_closure_set(x_1206, 6, x_7); -lean_closure_set(x_1206, 7, x_1155); -lean_closure_set(x_1206, 8, x_1205); -lean_closure_set(x_1206, 9, x_1183); -lean_closure_set(x_1206, 10, x_1199); -lean_closure_set(x_1206, 11, x_1202); -lean_closure_set(x_1206, 12, x_1203); -x_1207 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_1207, 0, x_1204); -lean_closure_set(x_1207, 1, x_1206); -x_1237 = lean_ctor_get(x_1195, 4); -lean_inc(x_1237); -x_1238 = lean_ctor_get_uint8(x_1237, sizeof(void*)*1); -lean_dec(x_1237); -if (x_1238 == 0) -{ -x_1208 = x_1187; -x_1209 = x_1195; -goto block_1236; -} -else -{ -lean_object* x_1239; lean_object* x_1240; lean_object* x_1241; lean_object* x_1242; uint8_t x_1243; -x_1239 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1240 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1239, x_13, x_1195); -x_1241 = lean_ctor_get(x_1240, 0); -lean_inc(x_1241); -x_1242 = lean_ctor_get(x_1240, 1); -lean_inc(x_1242); -lean_dec(x_1240); -x_1243 = lean_unbox(x_1241); -lean_dec(x_1241); -x_1208 = x_1243; -x_1209 = x_1242; -goto block_1236; -} -block_1236: -{ -if (x_1208 == 0) -{ -lean_object* x_1210; -x_1210 = l_Lean_Meta_getMVarDecl(x_1197, x_13, x_1209); -if (lean_obj_tag(x_1210) == 0) -{ -lean_object* x_1211; lean_object* x_1212; lean_object* x_1213; lean_object* x_1214; lean_object* x_1215; -x_1211 = lean_ctor_get(x_1210, 0); -lean_inc(x_1211); -x_1212 = lean_ctor_get(x_1210, 1); -lean_inc(x_1212); -lean_dec(x_1210); -x_1213 = lean_ctor_get(x_1211, 1); -lean_inc(x_1213); -x_1214 = lean_ctor_get(x_1211, 4); -lean_inc(x_1214); -lean_dec(x_1211); -x_1215 = l_Lean_Meta_withLocalContext___rarg(x_1213, x_1214, x_1207, x_13, x_1212); -lean_dec(x_13); -return x_1215; -} -else -{ -uint8_t x_1216; -lean_dec(x_1207); -lean_dec(x_13); -x_1216 = !lean_is_exclusive(x_1210); -if (x_1216 == 0) -{ -return x_1210; -} -else -{ -lean_object* x_1217; lean_object* x_1218; lean_object* x_1219; -x_1217 = lean_ctor_get(x_1210, 0); -x_1218 = lean_ctor_get(x_1210, 1); -lean_inc(x_1218); -lean_inc(x_1217); -lean_dec(x_1210); -x_1219 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1219, 0, x_1217); -lean_ctor_set(x_1219, 1, x_1218); -return x_1219; -} -} -} -else -{ -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_inc(x_1197); -x_1220 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_1220, 0, x_1197); -x_1221 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_1222 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1222, 0, x_1221); -lean_ctor_set(x_1222, 1, x_1220); -x_1223 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1224 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1223, x_1222, x_13, x_1209); -x_1225 = lean_ctor_get(x_1224, 1); -lean_inc(x_1225); -lean_dec(x_1224); -x_1226 = l_Lean_Meta_getMVarDecl(x_1197, x_13, x_1225); -if (lean_obj_tag(x_1226) == 0) -{ -lean_object* x_1227; lean_object* x_1228; lean_object* x_1229; lean_object* x_1230; lean_object* x_1231; -x_1227 = lean_ctor_get(x_1226, 0); -lean_inc(x_1227); -x_1228 = lean_ctor_get(x_1226, 1); -lean_inc(x_1228); -lean_dec(x_1226); -x_1229 = lean_ctor_get(x_1227, 1); -lean_inc(x_1229); -x_1230 = lean_ctor_get(x_1227, 4); -lean_inc(x_1230); -lean_dec(x_1227); -x_1231 = l_Lean_Meta_withLocalContext___rarg(x_1229, x_1230, x_1207, x_13, x_1228); -lean_dec(x_13); -return x_1231; -} -else -{ -uint8_t x_1232; -lean_dec(x_1207); -lean_dec(x_13); -x_1232 = !lean_is_exclusive(x_1226); -if (x_1232 == 0) -{ -return x_1226; -} -else -{ -lean_object* x_1233; lean_object* x_1234; lean_object* x_1235; -x_1233 = lean_ctor_get(x_1226, 0); -x_1234 = lean_ctor_get(x_1226, 1); -lean_inc(x_1234); -lean_inc(x_1233); -lean_dec(x_1226); -x_1235 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1235, 0, x_1233); -lean_ctor_set(x_1235, 1, x_1234); -return x_1235; -} -} -} -} -} -else -{ -uint8_t x_1244; -lean_dec(x_1191); -lean_dec(x_1183); -lean_dec(x_1168); -lean_dec(x_1155); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1244 = !lean_is_exclusive(x_1193); -if (x_1244 == 0) -{ -return x_1193; -} -else -{ -lean_object* x_1245; lean_object* x_1246; lean_object* x_1247; -x_1245 = lean_ctor_get(x_1193, 0); -x_1246 = lean_ctor_get(x_1193, 1); -lean_inc(x_1246); -lean_inc(x_1245); -lean_dec(x_1193); -x_1247 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1247, 0, x_1245); -lean_ctor_set(x_1247, 1, x_1246); -return x_1247; -} -} -} -else -{ -uint8_t x_1248; -lean_dec(x_1183); -lean_dec(x_1168); -lean_dec(x_1155); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1248 = !lean_is_exclusive(x_1188); -if (x_1248 == 0) -{ -return x_1188; -} -else -{ -lean_object* x_1249; lean_object* x_1250; lean_object* x_1251; -x_1249 = lean_ctor_get(x_1188, 0); -x_1250 = lean_ctor_get(x_1188, 1); -lean_inc(x_1250); -lean_inc(x_1249); -lean_dec(x_1188); -x_1251 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1251, 0, x_1249); -lean_ctor_set(x_1251, 1, x_1250); -return x_1251; -} -} -} -else -{ -uint8_t x_1252; -lean_dec(x_1168); -lean_dec(x_1155); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1252 = !lean_is_exclusive(x_1180); -if (x_1252 == 0) -{ -return x_1180; -} -else -{ -lean_object* x_1253; lean_object* x_1254; lean_object* x_1255; -x_1253 = lean_ctor_get(x_1180, 0); -x_1254 = lean_ctor_get(x_1180, 1); -lean_inc(x_1254); -lean_inc(x_1253); -lean_dec(x_1180); -x_1255 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1255, 0, x_1253); -lean_ctor_set(x_1255, 1, x_1254); -return x_1255; -} -} -} -} -else -{ -uint8_t x_1269; -lean_dec(x_1168); -lean_dec(x_1158); -lean_dec(x_1155); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); +lean_object* x_1266; uint8_t x_1267; +x_1266 = l_Lean_MetavarContext_exprDependsOn(x_1167, x_1180, x_2); lean_dec(x_2); -lean_dec(x_1); -x_1269 = !lean_is_exclusive(x_1170); -if (x_1269 == 0) +x_1267 = lean_unbox(x_1266); +lean_dec(x_1266); +if (x_1267 == 0) { -return x_1170; +x_1187 = x_1181; +goto block_1265; } else { -lean_object* x_1270; lean_object* x_1271; lean_object* x_1272; -x_1270 = lean_ctor_get(x_1170, 0); -x_1271 = lean_ctor_get(x_1170, 1); -lean_inc(x_1271); -lean_inc(x_1270); -lean_dec(x_1170); -x_1272 = lean_alloc_ctor(1, 2, 0); +lean_object* x_1268; lean_object* x_1269; lean_object* x_1270; lean_object* x_1271; lean_object* x_1272; lean_object* x_1273; lean_object* x_1274; uint8_t x_1275; +lean_dec(x_1186); +lean_dec(x_1177); +lean_dec(x_1164); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +x_1268 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1268, 0, x_3); +x_1269 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_1270 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1270, 0, x_1269); +lean_ctor_set(x_1270, 1, x_1268); +x_1271 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_1272 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_1272, 0, x_1270); lean_ctor_set(x_1272, 1, x_1271); -return x_1272; +x_1273 = lean_box(0); +x_1274 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1272, x_1273, x_13, x_1181); +lean_dec(x_13); +x_1275 = !lean_is_exclusive(x_1274); +if (x_1275 == 0) +{ +return x_1274; +} +else +{ +lean_object* x_1276; lean_object* x_1277; lean_object* x_1278; +x_1276 = lean_ctor_get(x_1274, 0); +x_1277 = lean_ctor_get(x_1274, 1); +lean_inc(x_1277); +lean_inc(x_1276); +lean_dec(x_1274); +x_1278 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1278, 0, x_1276); +lean_ctor_set(x_1278, 1, x_1277); +return x_1278; } } } else { -uint8_t x_1273; -lean_dec(x_1158); -lean_dec(x_1155); +lean_dec(x_1180); +lean_dec(x_1167); +lean_dec(x_2); +x_1187 = x_1181; +goto block_1265; +} +block_1265: +{ +uint8_t x_1188; lean_object* x_1189; +x_1188 = 1; +x_1189 = l_Lean_Meta_revert(x_1, x_1186, x_1188, x_13, x_1187); +if (lean_obj_tag(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; uint8_t x_1196; lean_object* x_1197; +x_1190 = lean_ctor_get(x_1189, 0); +lean_inc(x_1190); +x_1191 = lean_ctor_get(x_1189, 1); +lean_inc(x_1191); +lean_dec(x_1189); +x_1192 = lean_ctor_get(x_1190, 0); +lean_inc(x_1192); +x_1193 = lean_ctor_get(x_1190, 1); +lean_inc(x_1193); +lean_dec(x_1190); +x_1194 = lean_array_get_size(x_1177); +x_1195 = lean_box(0); +x_1196 = 0; +x_1197 = l_Lean_Meta_introN(x_1193, x_1194, x_1195, x_1196, x_13, x_1191); +if (lean_obj_tag(x_1197) == 0) +{ +lean_object* x_1198; lean_object* x_1199; lean_object* x_1200; lean_object* x_1201; lean_object* x_1202; +x_1198 = lean_ctor_get(x_1197, 0); +lean_inc(x_1198); +x_1199 = lean_ctor_get(x_1197, 1); +lean_inc(x_1199); +lean_dec(x_1197); +x_1200 = lean_ctor_get(x_1198, 0); +lean_inc(x_1200); +x_1201 = lean_ctor_get(x_1198, 1); +lean_inc(x_1201); +lean_dec(x_1198); +x_1202 = l_Lean_Meta_intro1(x_1201, x_1196, x_13, x_1199); +if (lean_obj_tag(x_1202) == 0) +{ +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; lean_object* x_1211; lean_object* x_1212; lean_object* x_1213; lean_object* x_1214; lean_object* x_1215; lean_object* x_1216; uint8_t x_1217; lean_object* x_1218; lean_object* x_1246; uint8_t x_1247; +x_1203 = lean_ctor_get(x_1202, 0); +lean_inc(x_1203); +x_1204 = lean_ctor_get(x_1202, 1); +lean_inc(x_1204); +lean_dec(x_1202); +x_1205 = lean_ctor_get(x_1203, 0); +lean_inc(x_1205); +x_1206 = lean_ctor_get(x_1203, 1); +lean_inc(x_1206); +lean_dec(x_1203); +x_1207 = lean_box(0); +x_1208 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1177, x_1200, x_1177, x_1173, x_1207); +lean_dec(x_1177); +x_1209 = x_1200; +x_1210 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1173, x_1209); +x_1211 = x_1210; +lean_inc(x_1205); +x_1212 = l_Lean_mkFVar(x_1205); +lean_inc(x_1206); +x_1213 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_1213, 0, x_1206); +x_1214 = lean_box(x_1182); +lean_inc(x_1206); +x_1215 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_1215, 0, x_1205); +lean_closure_set(x_1215, 1, x_8); +lean_closure_set(x_1215, 2, x_1206); +lean_closure_set(x_1215, 3, x_3); +lean_closure_set(x_1215, 4, x_4); +lean_closure_set(x_1215, 5, x_6); +lean_closure_set(x_1215, 6, x_7); +lean_closure_set(x_1215, 7, x_1164); +lean_closure_set(x_1215, 8, x_1214); +lean_closure_set(x_1215, 9, x_1192); +lean_closure_set(x_1215, 10, x_1208); +lean_closure_set(x_1215, 11, x_1211); +lean_closure_set(x_1215, 12, x_1212); +x_1216 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_1216, 0, x_1213); +lean_closure_set(x_1216, 1, x_1215); +x_1246 = lean_ctor_get(x_1204, 4); +lean_inc(x_1246); +x_1247 = lean_ctor_get_uint8(x_1246, sizeof(void*)*1); +lean_dec(x_1246); +if (x_1247 == 0) +{ +x_1217 = x_1196; +x_1218 = x_1204; +goto block_1245; +} +else +{ +lean_object* x_1248; lean_object* x_1249; lean_object* x_1250; lean_object* x_1251; uint8_t x_1252; +x_1248 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1249 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1248, x_13, x_1204); +x_1250 = lean_ctor_get(x_1249, 0); +lean_inc(x_1250); +x_1251 = lean_ctor_get(x_1249, 1); +lean_inc(x_1251); +lean_dec(x_1249); +x_1252 = lean_unbox(x_1250); +lean_dec(x_1250); +x_1217 = x_1252; +x_1218 = x_1251; +goto block_1245; +} +block_1245: +{ +if (x_1217 == 0) +{ +lean_object* x_1219; +x_1219 = l_Lean_Meta_getMVarDecl(x_1206, x_13, x_1218); +if (lean_obj_tag(x_1219) == 0) +{ +lean_object* x_1220; lean_object* x_1221; lean_object* x_1222; lean_object* x_1223; lean_object* x_1224; +x_1220 = lean_ctor_get(x_1219, 0); +lean_inc(x_1220); +x_1221 = lean_ctor_get(x_1219, 1); +lean_inc(x_1221); +lean_dec(x_1219); +x_1222 = lean_ctor_get(x_1220, 1); +lean_inc(x_1222); +x_1223 = lean_ctor_get(x_1220, 4); +lean_inc(x_1223); +lean_dec(x_1220); +x_1224 = l_Lean_Meta_withLocalContext___rarg(x_1222, x_1223, x_1216, x_13, x_1221); +lean_dec(x_13); +return x_1224; +} +else +{ +uint8_t x_1225; +lean_dec(x_1216); +lean_dec(x_13); +x_1225 = !lean_is_exclusive(x_1219); +if (x_1225 == 0) +{ +return x_1219; +} +else +{ +lean_object* x_1226; lean_object* x_1227; lean_object* x_1228; +x_1226 = lean_ctor_get(x_1219, 0); +x_1227 = lean_ctor_get(x_1219, 1); +lean_inc(x_1227); +lean_inc(x_1226); +lean_dec(x_1219); +x_1228 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1228, 0, x_1226); +lean_ctor_set(x_1228, 1, x_1227); +return x_1228; +} +} +} +else +{ +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_inc(x_1206); +x_1229 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_1229, 0, x_1206); +x_1230 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_1231 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1231, 0, x_1230); +lean_ctor_set(x_1231, 1, x_1229); +x_1232 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1233 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1232, x_1231, x_13, x_1218); +x_1234 = lean_ctor_get(x_1233, 1); +lean_inc(x_1234); +lean_dec(x_1233); +x_1235 = l_Lean_Meta_getMVarDecl(x_1206, x_13, x_1234); +if (lean_obj_tag(x_1235) == 0) +{ +lean_object* x_1236; lean_object* x_1237; lean_object* x_1238; lean_object* x_1239; lean_object* x_1240; +x_1236 = lean_ctor_get(x_1235, 0); +lean_inc(x_1236); +x_1237 = lean_ctor_get(x_1235, 1); +lean_inc(x_1237); +lean_dec(x_1235); +x_1238 = lean_ctor_get(x_1236, 1); +lean_inc(x_1238); +x_1239 = lean_ctor_get(x_1236, 4); +lean_inc(x_1239); +lean_dec(x_1236); +x_1240 = l_Lean_Meta_withLocalContext___rarg(x_1238, x_1239, x_1216, x_13, x_1237); +lean_dec(x_13); +return x_1240; +} +else +{ +uint8_t x_1241; +lean_dec(x_1216); +lean_dec(x_13); +x_1241 = !lean_is_exclusive(x_1235); +if (x_1241 == 0) +{ +return x_1235; +} +else +{ +lean_object* x_1242; lean_object* x_1243; lean_object* x_1244; +x_1242 = lean_ctor_get(x_1235, 0); +x_1243 = lean_ctor_get(x_1235, 1); +lean_inc(x_1243); +lean_inc(x_1242); +lean_dec(x_1235); +x_1244 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1244, 0, x_1242); +lean_ctor_set(x_1244, 1, x_1243); +return x_1244; +} +} +} +} +} +else +{ +uint8_t x_1253; +lean_dec(x_1200); +lean_dec(x_1192); +lean_dec(x_1177); +lean_dec(x_1164); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1253 = !lean_is_exclusive(x_1202); +if (x_1253 == 0) +{ +return x_1202; +} +else +{ +lean_object* x_1254; lean_object* x_1255; lean_object* x_1256; +x_1254 = lean_ctor_get(x_1202, 0); +x_1255 = lean_ctor_get(x_1202, 1); +lean_inc(x_1255); +lean_inc(x_1254); +lean_dec(x_1202); +x_1256 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1256, 0, x_1254); +lean_ctor_set(x_1256, 1, x_1255); +return x_1256; +} +} +} +else +{ +uint8_t x_1257; +lean_dec(x_1192); +lean_dec(x_1177); +lean_dec(x_1164); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1257 = !lean_is_exclusive(x_1197); +if (x_1257 == 0) +{ +return x_1197; +} +else +{ +lean_object* x_1258; lean_object* x_1259; lean_object* x_1260; +x_1258 = lean_ctor_get(x_1197, 0); +x_1259 = lean_ctor_get(x_1197, 1); +lean_inc(x_1259); +lean_inc(x_1258); +lean_dec(x_1197); +x_1260 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1260, 0, x_1258); +lean_ctor_set(x_1260, 1, x_1259); +return x_1260; +} +} +} +else +{ +uint8_t x_1261; +lean_dec(x_1177); +lean_dec(x_1164); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1261 = !lean_is_exclusive(x_1189); +if (x_1261 == 0) +{ +return x_1189; +} +else +{ +lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; +x_1262 = lean_ctor_get(x_1189, 0); +x_1263 = lean_ctor_get(x_1189, 1); +lean_inc(x_1263); +lean_inc(x_1262); +lean_dec(x_1189); +x_1264 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1264, 0, x_1262); +lean_ctor_set(x_1264, 1, x_1263); +return x_1264; +} +} +} +} +else +{ +uint8_t x_1279; +lean_dec(x_1177); +lean_dec(x_1167); +lean_dec(x_1164); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -9675,30 +9674,63 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1273 = !lean_is_exclusive(x_1167); -if (x_1273 == 0) +x_1279 = !lean_is_exclusive(x_1179); +if (x_1279 == 0) { -return x_1167; +return x_1179; } else { -lean_object* x_1274; lean_object* x_1275; lean_object* x_1276; -x_1274 = lean_ctor_get(x_1167, 0); -x_1275 = lean_ctor_get(x_1167, 1); -lean_inc(x_1275); -lean_inc(x_1274); +lean_object* x_1280; lean_object* x_1281; lean_object* x_1282; +x_1280 = lean_ctor_get(x_1179, 0); +x_1281 = lean_ctor_get(x_1179, 1); +lean_inc(x_1281); +lean_inc(x_1280); +lean_dec(x_1179); +x_1282 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1282, 0, x_1280); +lean_ctor_set(x_1282, 1, x_1281); +return x_1282; +} +} +} +else +{ +uint8_t x_1283; lean_dec(x_1167); -x_1276 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1276, 0, x_1274); -lean_ctor_set(x_1276, 1, x_1275); -return x_1276; +lean_dec(x_1164); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_1283 = !lean_is_exclusive(x_1176); +if (x_1283 == 0) +{ +return x_1176; +} +else +{ +lean_object* x_1284; lean_object* x_1285; lean_object* x_1286; +x_1284 = lean_ctor_get(x_1176, 0); +x_1285 = lean_ctor_get(x_1176, 1); +lean_inc(x_1285); +lean_inc(x_1284); +lean_dec(x_1176); +x_1286 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1286, 0, x_1284); +lean_ctor_set(x_1286, 1, x_1285); +return x_1286; } } } else { -uint8_t x_1277; -lean_dec(x_1155); +uint8_t x_1287; +lean_dec(x_1164); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -9709,473 +9741,507 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1277 = !lean_is_exclusive(x_1156); -if (x_1277 == 0) +x_1287 = !lean_is_exclusive(x_1165); +if (x_1287 == 0) { -return x_1156; +return x_1165; } else { -lean_object* x_1278; lean_object* x_1279; lean_object* x_1280; -x_1278 = lean_ctor_get(x_1156, 0); -x_1279 = lean_ctor_get(x_1156, 1); -lean_inc(x_1279); -lean_inc(x_1278); -lean_dec(x_1156); -x_1280 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1280, 0, x_1278); -lean_ctor_set(x_1280, 1, x_1279); -return x_1280; +lean_object* x_1288; lean_object* x_1289; lean_object* x_1290; +x_1288 = lean_ctor_get(x_1165, 0); +x_1289 = lean_ctor_get(x_1165, 1); +lean_inc(x_1289); +lean_inc(x_1288); +lean_dec(x_1165); +x_1290 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1290, 0, x_1288); +lean_ctor_set(x_1290, 1, x_1289); +return x_1290; } } } case 11: { -lean_object* x_1281; lean_object* x_1282; +lean_object* x_1291; lean_object* x_1292; lean_dec(x_12); lean_dec(x_10); -x_1281 = lean_ctor_get(x_7, 5); -lean_inc(x_1281); +x_1291 = lean_ctor_get(x_7, 5); +lean_inc(x_1291); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_1282 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1281, x_13, x_14); -if (lean_obj_tag(x_1282) == 0) +x_1292 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1291, x_13, x_14); +if (lean_obj_tag(x_1292) == 0) { -lean_object* x_1283; lean_object* x_1284; lean_object* x_1285; lean_object* x_1286; lean_object* x_1287; lean_object* x_1288; lean_object* x_1289; lean_object* x_1290; lean_object* x_1291; lean_object* x_1292; lean_object* x_1293; -x_1283 = lean_ctor_get(x_1282, 1); -lean_inc(x_1283); -lean_dec(x_1282); -x_1284 = lean_ctor_get(x_1283, 1); -lean_inc(x_1284); -x_1285 = lean_ctor_get(x_7, 6); -lean_inc(x_1285); -x_1286 = l_List_redLength___main___rarg(x_1285); -x_1287 = lean_mk_empty_array_with_capacity(x_1286); -lean_dec(x_1286); -lean_inc(x_1285); -x_1288 = l_List_toArrayAux___main___rarg(x_1285, x_1287); -x_1289 = x_1288; -x_1290 = lean_unsigned_to_nat(0u); -lean_inc(x_1284); +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; lean_object* x_1303; +x_1293 = lean_ctor_get(x_1292, 1); +lean_inc(x_1293); +lean_dec(x_1292); +x_1294 = lean_ctor_get(x_1293, 1); +lean_inc(x_1294); +x_1295 = lean_ctor_get(x_7, 6); +lean_inc(x_1295); +x_1296 = l_List_redLength___main___rarg(x_1295); +x_1297 = lean_mk_empty_array_with_capacity(x_1296); +lean_dec(x_1296); +lean_inc(x_1295); +x_1298 = l_List_toArrayAux___main___rarg(x_1295, x_1297); +x_1299 = x_1298; +x_1300 = lean_unsigned_to_nat(0u); +lean_inc(x_1294); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_1291 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_1291, 0, x_1); -lean_closure_set(x_1291, 1, x_6); -lean_closure_set(x_1291, 2, x_7); -lean_closure_set(x_1291, 3, x_9); -lean_closure_set(x_1291, 4, x_11); -lean_closure_set(x_1291, 5, x_1284); -lean_closure_set(x_1291, 6, x_1285); -lean_closure_set(x_1291, 7, x_1290); -lean_closure_set(x_1291, 8, x_1289); -x_1292 = x_1291; -lean_inc(x_13); -x_1293 = lean_apply_2(x_1292, x_13, x_1283); -if (lean_obj_tag(x_1293) == 0) -{ -lean_object* x_1294; lean_object* x_1295; lean_object* x_1296; -x_1294 = lean_ctor_get(x_1293, 0); -lean_inc(x_1294); -x_1295 = lean_ctor_get(x_1293, 1); -lean_inc(x_1295); -lean_dec(x_1293); -lean_inc(x_1); -x_1296 = l_Lean_Meta_getMVarType(x_1, x_13, x_1295); -if (lean_obj_tag(x_1296) == 0) -{ -lean_object* x_1297; lean_object* x_1298; uint8_t x_1299; lean_object* x_1300; lean_object* x_1301; lean_object* x_1302; lean_object* x_1303; lean_object* x_1304; -x_1297 = lean_ctor_get(x_1296, 0); -lean_inc(x_1297); -x_1298 = lean_ctor_get(x_1296, 1); -lean_inc(x_1298); -lean_dec(x_1296); -x_1299 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_1294); -x_1300 = x_1294; -x_1301 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1290, x_1300); +x_1301 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_1301, 0, x_1); +lean_closure_set(x_1301, 1, x_6); +lean_closure_set(x_1301, 2, x_7); +lean_closure_set(x_1301, 3, x_9); +lean_closure_set(x_1301, 4, x_11); +lean_closure_set(x_1301, 5, x_1294); +lean_closure_set(x_1301, 6, x_1295); +lean_closure_set(x_1301, 7, x_1300); +lean_closure_set(x_1301, 8, x_1299); x_1302 = x_1301; -lean_inc(x_2); -x_1303 = lean_array_push(x_1302, x_2); -if (x_1299 == 0) +lean_inc(x_13); +x_1303 = lean_apply_2(x_1302, x_13, x_1293); +if (lean_obj_tag(x_1303) == 0) { -lean_object* x_1383; uint8_t x_1384; -x_1383 = l_Lean_MetavarContext_exprDependsOn(x_1284, x_1297, x_2); -lean_dec(x_2); -x_1384 = lean_unbox(x_1383); -lean_dec(x_1383); -if (x_1384 == 0) -{ -x_1304 = x_1298; -goto block_1382; -} -else -{ -lean_object* x_1385; lean_object* x_1386; lean_object* x_1387; lean_object* x_1388; lean_object* x_1389; lean_object* x_1390; uint8_t x_1391; +lean_object* x_1304; lean_object* x_1305; lean_object* x_1306; +x_1304 = lean_ctor_get(x_1303, 0); +lean_inc(x_1304); +x_1305 = lean_ctor_get(x_1303, 1); +lean_inc(x_1305); lean_dec(x_1303); -lean_dec(x_1294); -lean_dec(x_1281); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -x_1385 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1385, 0, x_3); -x_1386 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_1387 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1387, 0, x_1386); -lean_ctor_set(x_1387, 1, x_1385); -x_1388 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_1389 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1389, 0, x_1387); -lean_ctor_set(x_1389, 1, x_1388); -x_1390 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1389, x_13, x_1298); -lean_dec(x_13); -x_1391 = !lean_is_exclusive(x_1390); -if (x_1391 == 0) -{ -return x_1390; -} -else -{ -lean_object* x_1392; lean_object* x_1393; lean_object* x_1394; -x_1392 = lean_ctor_get(x_1390, 0); -x_1393 = lean_ctor_get(x_1390, 1); -lean_inc(x_1393); -lean_inc(x_1392); -lean_dec(x_1390); -x_1394 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1394, 0, x_1392); -lean_ctor_set(x_1394, 1, x_1393); -return x_1394; -} -} -} -else -{ -lean_dec(x_1297); -lean_dec(x_1284); -lean_dec(x_2); -x_1304 = x_1298; -goto block_1382; -} -block_1382: -{ -uint8_t x_1305; lean_object* x_1306; -x_1305 = 1; -x_1306 = l_Lean_Meta_revert(x_1, x_1303, x_1305, x_13, x_1304); +lean_inc(x_1); +x_1306 = l_Lean_Meta_getMVarType(x_1, x_13, x_1305); if (lean_obj_tag(x_1306) == 0) { -lean_object* x_1307; lean_object* x_1308; lean_object* x_1309; lean_object* x_1310; lean_object* x_1311; lean_object* x_1312; uint8_t x_1313; lean_object* x_1314; +lean_object* x_1307; lean_object* x_1308; uint8_t x_1309; lean_object* x_1310; lean_object* x_1311; lean_object* x_1312; lean_object* x_1313; lean_object* x_1314; x_1307 = lean_ctor_get(x_1306, 0); lean_inc(x_1307); x_1308 = lean_ctor_get(x_1306, 1); lean_inc(x_1308); lean_dec(x_1306); -x_1309 = lean_ctor_get(x_1307, 0); -lean_inc(x_1309); -x_1310 = lean_ctor_get(x_1307, 1); -lean_inc(x_1310); +x_1309 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_1304); +x_1310 = x_1304; +x_1311 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1300, x_1310); +x_1312 = x_1311; +lean_inc(x_2); +x_1313 = lean_array_push(x_1312, x_2); +if (x_1309 == 0) +{ +lean_object* x_1393; uint8_t x_1394; +x_1393 = l_Lean_MetavarContext_exprDependsOn(x_1294, x_1307, x_2); +lean_dec(x_2); +x_1394 = lean_unbox(x_1393); +lean_dec(x_1393); +if (x_1394 == 0) +{ +x_1314 = x_1308; +goto block_1392; +} +else +{ +lean_object* x_1395; lean_object* x_1396; lean_object* x_1397; lean_object* x_1398; lean_object* x_1399; lean_object* x_1400; lean_object* x_1401; uint8_t x_1402; +lean_dec(x_1313); +lean_dec(x_1304); +lean_dec(x_1291); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +x_1395 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1395, 0, x_3); +x_1396 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_1397 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1397, 0, x_1396); +lean_ctor_set(x_1397, 1, x_1395); +x_1398 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_1399 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1399, 0, x_1397); +lean_ctor_set(x_1399, 1, x_1398); +x_1400 = lean_box(0); +x_1401 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1399, x_1400, x_13, x_1308); +lean_dec(x_13); +x_1402 = !lean_is_exclusive(x_1401); +if (x_1402 == 0) +{ +return x_1401; +} +else +{ +lean_object* x_1403; lean_object* x_1404; lean_object* x_1405; +x_1403 = lean_ctor_get(x_1401, 0); +x_1404 = lean_ctor_get(x_1401, 1); +lean_inc(x_1404); +lean_inc(x_1403); +lean_dec(x_1401); +x_1405 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1405, 0, x_1403); +lean_ctor_set(x_1405, 1, x_1404); +return x_1405; +} +} +} +else +{ lean_dec(x_1307); -x_1311 = lean_array_get_size(x_1294); -x_1312 = lean_box(0); -x_1313 = 0; -x_1314 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_1313, x_1310, x_1311, x_1312, x_13, x_1308); -if (lean_obj_tag(x_1314) == 0) +lean_dec(x_1294); +lean_dec(x_2); +x_1314 = x_1308; +goto block_1392; +} +block_1392: { -lean_object* x_1315; lean_object* x_1316; lean_object* x_1317; lean_object* x_1318; lean_object* x_1319; -x_1315 = lean_ctor_get(x_1314, 0); -lean_inc(x_1315); -x_1316 = lean_ctor_get(x_1314, 1); -lean_inc(x_1316); -lean_dec(x_1314); -x_1317 = lean_ctor_get(x_1315, 0); +uint8_t x_1315; lean_object* x_1316; +x_1315 = 1; +x_1316 = l_Lean_Meta_revert(x_1, x_1313, x_1315, x_13, x_1314); +if (lean_obj_tag(x_1316) == 0) +{ +lean_object* x_1317; lean_object* x_1318; lean_object* x_1319; lean_object* x_1320; lean_object* x_1321; lean_object* x_1322; uint8_t x_1323; lean_object* x_1324; +x_1317 = lean_ctor_get(x_1316, 0); lean_inc(x_1317); -x_1318 = lean_ctor_get(x_1315, 1); +x_1318 = lean_ctor_get(x_1316, 1); lean_inc(x_1318); -lean_dec(x_1315); -x_1319 = l_Lean_Meta_intro1(x_1318, x_1313, x_13, x_1316); -if (lean_obj_tag(x_1319) == 0) -{ -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; uint8_t x_1334; lean_object* x_1335; lean_object* x_1363; uint8_t x_1364; -x_1320 = lean_ctor_get(x_1319, 0); +lean_dec(x_1316); +x_1319 = lean_ctor_get(x_1317, 0); +lean_inc(x_1319); +x_1320 = lean_ctor_get(x_1317, 1); lean_inc(x_1320); -x_1321 = lean_ctor_get(x_1319, 1); -lean_inc(x_1321); -lean_dec(x_1319); -x_1322 = lean_ctor_get(x_1320, 0); -lean_inc(x_1322); -x_1323 = lean_ctor_get(x_1320, 1); -lean_inc(x_1323); -lean_dec(x_1320); -x_1324 = lean_box(0); -x_1325 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1294, x_1317, x_1294, x_1290, x_1324); -lean_dec(x_1294); -x_1326 = x_1317; -x_1327 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1290, x_1326); -x_1328 = x_1327; -lean_inc(x_1322); -x_1329 = l_Lean_mkFVar(x_1322); -lean_inc(x_1323); -x_1330 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_1330, 0, x_1323); -x_1331 = lean_box(x_1299); -lean_inc(x_1323); -x_1332 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_1332, 0, x_1322); -lean_closure_set(x_1332, 1, x_8); -lean_closure_set(x_1332, 2, x_1323); -lean_closure_set(x_1332, 3, x_3); -lean_closure_set(x_1332, 4, x_4); -lean_closure_set(x_1332, 5, x_6); -lean_closure_set(x_1332, 6, x_7); -lean_closure_set(x_1332, 7, x_1281); -lean_closure_set(x_1332, 8, x_1331); -lean_closure_set(x_1332, 9, x_1309); -lean_closure_set(x_1332, 10, x_1325); -lean_closure_set(x_1332, 11, x_1328); -lean_closure_set(x_1332, 12, x_1329); -x_1333 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_1333, 0, x_1330); -lean_closure_set(x_1333, 1, x_1332); -x_1363 = lean_ctor_get(x_1321, 4); -lean_inc(x_1363); -x_1364 = lean_ctor_get_uint8(x_1363, sizeof(void*)*1); -lean_dec(x_1363); -if (x_1364 == 0) -{ -x_1334 = x_1313; -x_1335 = x_1321; -goto block_1362; -} -else -{ -lean_object* x_1365; lean_object* x_1366; lean_object* x_1367; lean_object* x_1368; uint8_t x_1369; -x_1365 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1366 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1365, x_13, x_1321); -x_1367 = lean_ctor_get(x_1366, 0); -lean_inc(x_1367); -x_1368 = lean_ctor_get(x_1366, 1); -lean_inc(x_1368); -lean_dec(x_1366); -x_1369 = lean_unbox(x_1367); -lean_dec(x_1367); -x_1334 = x_1369; -x_1335 = x_1368; -goto block_1362; -} -block_1362: -{ -if (x_1334 == 0) -{ -lean_object* x_1336; -x_1336 = l_Lean_Meta_getMVarDecl(x_1323, x_13, x_1335); -if (lean_obj_tag(x_1336) == 0) -{ -lean_object* x_1337; lean_object* x_1338; lean_object* x_1339; lean_object* x_1340; lean_object* x_1341; -x_1337 = lean_ctor_get(x_1336, 0); -lean_inc(x_1337); -x_1338 = lean_ctor_get(x_1336, 1); -lean_inc(x_1338); -lean_dec(x_1336); -x_1339 = lean_ctor_get(x_1337, 1); -lean_inc(x_1339); -x_1340 = lean_ctor_get(x_1337, 4); -lean_inc(x_1340); -lean_dec(x_1337); -x_1341 = l_Lean_Meta_withLocalContext___rarg(x_1339, x_1340, x_1333, x_13, x_1338); -lean_dec(x_13); -return x_1341; -} -else -{ -uint8_t x_1342; -lean_dec(x_1333); -lean_dec(x_13); -x_1342 = !lean_is_exclusive(x_1336); -if (x_1342 == 0) -{ -return x_1336; -} -else -{ -lean_object* x_1343; lean_object* x_1344; lean_object* x_1345; -x_1343 = lean_ctor_get(x_1336, 0); -x_1344 = lean_ctor_get(x_1336, 1); -lean_inc(x_1344); -lean_inc(x_1343); -lean_dec(x_1336); -x_1345 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1345, 0, x_1343); -lean_ctor_set(x_1345, 1, x_1344); -return x_1345; -} -} -} -else -{ -lean_object* x_1346; lean_object* x_1347; lean_object* x_1348; lean_object* x_1349; lean_object* x_1350; lean_object* x_1351; lean_object* x_1352; -lean_inc(x_1323); -x_1346 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_1346, 0, x_1323); -x_1347 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_1348 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1348, 0, x_1347); -lean_ctor_set(x_1348, 1, x_1346); -x_1349 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1350 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1349, x_1348, x_13, x_1335); -x_1351 = lean_ctor_get(x_1350, 1); -lean_inc(x_1351); -lean_dec(x_1350); -x_1352 = l_Lean_Meta_getMVarDecl(x_1323, x_13, x_1351); -if (lean_obj_tag(x_1352) == 0) -{ -lean_object* x_1353; lean_object* x_1354; lean_object* x_1355; lean_object* x_1356; lean_object* x_1357; -x_1353 = lean_ctor_get(x_1352, 0); -lean_inc(x_1353); -x_1354 = lean_ctor_get(x_1352, 1); -lean_inc(x_1354); -lean_dec(x_1352); -x_1355 = lean_ctor_get(x_1353, 1); -lean_inc(x_1355); -x_1356 = lean_ctor_get(x_1353, 4); -lean_inc(x_1356); -lean_dec(x_1353); -x_1357 = l_Lean_Meta_withLocalContext___rarg(x_1355, x_1356, x_1333, x_13, x_1354); -lean_dec(x_13); -return x_1357; -} -else -{ -uint8_t x_1358; -lean_dec(x_1333); -lean_dec(x_13); -x_1358 = !lean_is_exclusive(x_1352); -if (x_1358 == 0) -{ -return x_1352; -} -else -{ -lean_object* x_1359; lean_object* x_1360; lean_object* x_1361; -x_1359 = lean_ctor_get(x_1352, 0); -x_1360 = lean_ctor_get(x_1352, 1); -lean_inc(x_1360); -lean_inc(x_1359); -lean_dec(x_1352); -x_1361 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1361, 0, x_1359); -lean_ctor_set(x_1361, 1, x_1360); -return x_1361; -} -} -} -} -} -else -{ -uint8_t x_1370; lean_dec(x_1317); -lean_dec(x_1309); -lean_dec(x_1294); -lean_dec(x_1281); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1370 = !lean_is_exclusive(x_1319); -if (x_1370 == 0) +x_1321 = lean_array_get_size(x_1304); +x_1322 = lean_box(0); +x_1323 = 0; +x_1324 = l_Lean_Meta_introN(x_1320, x_1321, x_1322, x_1323, x_13, x_1318); +if (lean_obj_tag(x_1324) == 0) { -return x_1319; -} -else +lean_object* x_1325; lean_object* x_1326; lean_object* x_1327; lean_object* x_1328; lean_object* x_1329; +x_1325 = lean_ctor_get(x_1324, 0); +lean_inc(x_1325); +x_1326 = lean_ctor_get(x_1324, 1); +lean_inc(x_1326); +lean_dec(x_1324); +x_1327 = lean_ctor_get(x_1325, 0); +lean_inc(x_1327); +x_1328 = lean_ctor_get(x_1325, 1); +lean_inc(x_1328); +lean_dec(x_1325); +x_1329 = l_Lean_Meta_intro1(x_1328, x_1323, x_13, x_1326); +if (lean_obj_tag(x_1329) == 0) { -lean_object* x_1371; lean_object* x_1372; lean_object* x_1373; -x_1371 = lean_ctor_get(x_1319, 0); -x_1372 = lean_ctor_get(x_1319, 1); -lean_inc(x_1372); -lean_inc(x_1371); -lean_dec(x_1319); -x_1373 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1373, 0, x_1371); -lean_ctor_set(x_1373, 1, x_1372); -return x_1373; -} -} -} -else -{ -uint8_t x_1374; -lean_dec(x_1309); -lean_dec(x_1294); -lean_dec(x_1281); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1374 = !lean_is_exclusive(x_1314); +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; uint8_t x_1344; lean_object* x_1345; lean_object* x_1373; uint8_t x_1374; +x_1330 = lean_ctor_get(x_1329, 0); +lean_inc(x_1330); +x_1331 = lean_ctor_get(x_1329, 1); +lean_inc(x_1331); +lean_dec(x_1329); +x_1332 = lean_ctor_get(x_1330, 0); +lean_inc(x_1332); +x_1333 = lean_ctor_get(x_1330, 1); +lean_inc(x_1333); +lean_dec(x_1330); +x_1334 = lean_box(0); +x_1335 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1304, x_1327, x_1304, x_1300, x_1334); +lean_dec(x_1304); +x_1336 = x_1327; +x_1337 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1300, x_1336); +x_1338 = x_1337; +lean_inc(x_1332); +x_1339 = l_Lean_mkFVar(x_1332); +lean_inc(x_1333); +x_1340 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_1340, 0, x_1333); +x_1341 = lean_box(x_1309); +lean_inc(x_1333); +x_1342 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_1342, 0, x_1332); +lean_closure_set(x_1342, 1, x_8); +lean_closure_set(x_1342, 2, x_1333); +lean_closure_set(x_1342, 3, x_3); +lean_closure_set(x_1342, 4, x_4); +lean_closure_set(x_1342, 5, x_6); +lean_closure_set(x_1342, 6, x_7); +lean_closure_set(x_1342, 7, x_1291); +lean_closure_set(x_1342, 8, x_1341); +lean_closure_set(x_1342, 9, x_1319); +lean_closure_set(x_1342, 10, x_1335); +lean_closure_set(x_1342, 11, x_1338); +lean_closure_set(x_1342, 12, x_1339); +x_1343 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_1343, 0, x_1340); +lean_closure_set(x_1343, 1, x_1342); +x_1373 = lean_ctor_get(x_1331, 4); +lean_inc(x_1373); +x_1374 = lean_ctor_get_uint8(x_1373, sizeof(void*)*1); +lean_dec(x_1373); if (x_1374 == 0) { -return x_1314; +x_1344 = x_1323; +x_1345 = x_1331; +goto block_1372; } else { -lean_object* x_1375; lean_object* x_1376; lean_object* x_1377; -x_1375 = lean_ctor_get(x_1314, 0); -x_1376 = lean_ctor_get(x_1314, 1); -lean_inc(x_1376); -lean_inc(x_1375); -lean_dec(x_1314); -x_1377 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1377, 0, x_1375); -lean_ctor_set(x_1377, 1, x_1376); -return x_1377; +lean_object* x_1375; lean_object* x_1376; lean_object* x_1377; lean_object* x_1378; uint8_t x_1379; +x_1375 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1376 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1375, x_13, x_1331); +x_1377 = lean_ctor_get(x_1376, 0); +lean_inc(x_1377); +x_1378 = lean_ctor_get(x_1376, 1); +lean_inc(x_1378); +lean_dec(x_1376); +x_1379 = lean_unbox(x_1377); +lean_dec(x_1377); +x_1344 = x_1379; +x_1345 = x_1378; +goto block_1372; +} +block_1372: +{ +if (x_1344 == 0) +{ +lean_object* x_1346; +x_1346 = l_Lean_Meta_getMVarDecl(x_1333, x_13, x_1345); +if (lean_obj_tag(x_1346) == 0) +{ +lean_object* x_1347; lean_object* x_1348; lean_object* x_1349; lean_object* x_1350; lean_object* x_1351; +x_1347 = lean_ctor_get(x_1346, 0); +lean_inc(x_1347); +x_1348 = lean_ctor_get(x_1346, 1); +lean_inc(x_1348); +lean_dec(x_1346); +x_1349 = lean_ctor_get(x_1347, 1); +lean_inc(x_1349); +x_1350 = lean_ctor_get(x_1347, 4); +lean_inc(x_1350); +lean_dec(x_1347); +x_1351 = l_Lean_Meta_withLocalContext___rarg(x_1349, x_1350, x_1343, x_13, x_1348); +lean_dec(x_13); +return x_1351; +} +else +{ +uint8_t x_1352; +lean_dec(x_1343); +lean_dec(x_13); +x_1352 = !lean_is_exclusive(x_1346); +if (x_1352 == 0) +{ +return x_1346; +} +else +{ +lean_object* x_1353; lean_object* x_1354; lean_object* x_1355; +x_1353 = lean_ctor_get(x_1346, 0); +x_1354 = lean_ctor_get(x_1346, 1); +lean_inc(x_1354); +lean_inc(x_1353); +lean_dec(x_1346); +x_1355 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1355, 0, x_1353); +lean_ctor_set(x_1355, 1, x_1354); +return x_1355; } } } else { -uint8_t x_1378; -lean_dec(x_1294); -lean_dec(x_1281); +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_inc(x_1333); +x_1356 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_1356, 0, x_1333); +x_1357 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_1358 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1358, 0, x_1357); +lean_ctor_set(x_1358, 1, x_1356); +x_1359 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1360 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1359, x_1358, x_13, x_1345); +x_1361 = lean_ctor_get(x_1360, 1); +lean_inc(x_1361); +lean_dec(x_1360); +x_1362 = l_Lean_Meta_getMVarDecl(x_1333, x_13, x_1361); +if (lean_obj_tag(x_1362) == 0) +{ +lean_object* x_1363; lean_object* x_1364; lean_object* x_1365; lean_object* x_1366; lean_object* x_1367; +x_1363 = lean_ctor_get(x_1362, 0); +lean_inc(x_1363); +x_1364 = lean_ctor_get(x_1362, 1); +lean_inc(x_1364); +lean_dec(x_1362); +x_1365 = lean_ctor_get(x_1363, 1); +lean_inc(x_1365); +x_1366 = lean_ctor_get(x_1363, 4); +lean_inc(x_1366); +lean_dec(x_1363); +x_1367 = l_Lean_Meta_withLocalContext___rarg(x_1365, x_1366, x_1343, x_13, x_1364); +lean_dec(x_13); +return x_1367; +} +else +{ +uint8_t x_1368; +lean_dec(x_1343); +lean_dec(x_13); +x_1368 = !lean_is_exclusive(x_1362); +if (x_1368 == 0) +{ +return x_1362; +} +else +{ +lean_object* x_1369; lean_object* x_1370; lean_object* x_1371; +x_1369 = lean_ctor_get(x_1362, 0); +x_1370 = lean_ctor_get(x_1362, 1); +lean_inc(x_1370); +lean_inc(x_1369); +lean_dec(x_1362); +x_1371 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1371, 0, x_1369); +lean_ctor_set(x_1371, 1, x_1370); +return x_1371; +} +} +} +} +} +else +{ +uint8_t x_1380; +lean_dec(x_1327); +lean_dec(x_1319); +lean_dec(x_1304); +lean_dec(x_1291); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_1378 = !lean_is_exclusive(x_1306); -if (x_1378 == 0) +x_1380 = !lean_is_exclusive(x_1329); +if (x_1380 == 0) +{ +return x_1329; +} +else +{ +lean_object* x_1381; lean_object* x_1382; lean_object* x_1383; +x_1381 = lean_ctor_get(x_1329, 0); +x_1382 = lean_ctor_get(x_1329, 1); +lean_inc(x_1382); +lean_inc(x_1381); +lean_dec(x_1329); +x_1383 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1383, 0, x_1381); +lean_ctor_set(x_1383, 1, x_1382); +return x_1383; +} +} +} +else +{ +uint8_t x_1384; +lean_dec(x_1319); +lean_dec(x_1304); +lean_dec(x_1291); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1384 = !lean_is_exclusive(x_1324); +if (x_1384 == 0) +{ +return x_1324; +} +else +{ +lean_object* x_1385; lean_object* x_1386; lean_object* x_1387; +x_1385 = lean_ctor_get(x_1324, 0); +x_1386 = lean_ctor_get(x_1324, 1); +lean_inc(x_1386); +lean_inc(x_1385); +lean_dec(x_1324); +x_1387 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1387, 0, x_1385); +lean_ctor_set(x_1387, 1, x_1386); +return x_1387; +} +} +} +else +{ +uint8_t x_1388; +lean_dec(x_1304); +lean_dec(x_1291); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1388 = !lean_is_exclusive(x_1316); +if (x_1388 == 0) +{ +return x_1316; +} +else +{ +lean_object* x_1389; lean_object* x_1390; lean_object* x_1391; +x_1389 = lean_ctor_get(x_1316, 0); +x_1390 = lean_ctor_get(x_1316, 1); +lean_inc(x_1390); +lean_inc(x_1389); +lean_dec(x_1316); +x_1391 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1391, 0, x_1389); +lean_ctor_set(x_1391, 1, x_1390); +return x_1391; +} +} +} +} +else +{ +uint8_t x_1406; +lean_dec(x_1304); +lean_dec(x_1294); +lean_dec(x_1291); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_1406 = !lean_is_exclusive(x_1306); +if (x_1406 == 0) { return x_1306; } else { -lean_object* x_1379; lean_object* x_1380; lean_object* x_1381; -x_1379 = lean_ctor_get(x_1306, 0); -x_1380 = lean_ctor_get(x_1306, 1); -lean_inc(x_1380); -lean_inc(x_1379); +lean_object* x_1407; lean_object* x_1408; lean_object* x_1409; +x_1407 = lean_ctor_get(x_1306, 0); +x_1408 = lean_ctor_get(x_1306, 1); +lean_inc(x_1408); +lean_inc(x_1407); lean_dec(x_1306); -x_1381 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1381, 0, x_1379); -lean_ctor_set(x_1381, 1, x_1380); -return x_1381; -} +x_1409 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1409, 0, x_1407); +lean_ctor_set(x_1409, 1, x_1408); +return x_1409; } } } else { -uint8_t x_1395; +uint8_t x_1410; lean_dec(x_1294); -lean_dec(x_1284); -lean_dec(x_1281); +lean_dec(x_1291); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -10184,63 +10250,30 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1395 = !lean_is_exclusive(x_1296); -if (x_1395 == 0) +x_1410 = !lean_is_exclusive(x_1303); +if (x_1410 == 0) { -return x_1296; +return x_1303; } else { -lean_object* x_1396; lean_object* x_1397; lean_object* x_1398; -x_1396 = lean_ctor_get(x_1296, 0); -x_1397 = lean_ctor_get(x_1296, 1); -lean_inc(x_1397); -lean_inc(x_1396); -lean_dec(x_1296); -x_1398 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1398, 0, x_1396); -lean_ctor_set(x_1398, 1, x_1397); -return x_1398; +lean_object* x_1411; lean_object* x_1412; lean_object* x_1413; +x_1411 = lean_ctor_get(x_1303, 0); +x_1412 = lean_ctor_get(x_1303, 1); +lean_inc(x_1412); +lean_inc(x_1411); +lean_dec(x_1303); +x_1413 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1413, 0, x_1411); +lean_ctor_set(x_1413, 1, x_1412); +return x_1413; } } } else { -uint8_t x_1399; -lean_dec(x_1284); -lean_dec(x_1281); -lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_1399 = !lean_is_exclusive(x_1293); -if (x_1399 == 0) -{ -return x_1293; -} -else -{ -lean_object* x_1400; lean_object* x_1401; lean_object* x_1402; -x_1400 = lean_ctor_get(x_1293, 0); -x_1401 = lean_ctor_get(x_1293, 1); -lean_inc(x_1401); -lean_inc(x_1400); -lean_dec(x_1293); -x_1402 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1402, 0, x_1400); -lean_ctor_set(x_1402, 1, x_1401); -return x_1402; -} -} -} -else -{ -uint8_t x_1403; -lean_dec(x_1281); +uint8_t x_1414; +lean_dec(x_1291); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -10251,473 +10284,474 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1403 = !lean_is_exclusive(x_1282); -if (x_1403 == 0) +x_1414 = !lean_is_exclusive(x_1292); +if (x_1414 == 0) { -return x_1282; +return x_1292; } else { -lean_object* x_1404; lean_object* x_1405; lean_object* x_1406; -x_1404 = lean_ctor_get(x_1282, 0); -x_1405 = lean_ctor_get(x_1282, 1); -lean_inc(x_1405); -lean_inc(x_1404); -lean_dec(x_1282); -x_1406 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1406, 0, x_1404); -lean_ctor_set(x_1406, 1, x_1405); -return x_1406; +lean_object* x_1415; lean_object* x_1416; lean_object* x_1417; +x_1415 = lean_ctor_get(x_1292, 0); +x_1416 = lean_ctor_get(x_1292, 1); +lean_inc(x_1416); +lean_inc(x_1415); +lean_dec(x_1292); +x_1417 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1417, 0, x_1415); +lean_ctor_set(x_1417, 1, x_1416); +return x_1417; } } } default: { -lean_object* x_1407; lean_object* x_1408; +lean_object* x_1418; lean_object* x_1419; lean_dec(x_12); lean_dec(x_10); -x_1407 = lean_ctor_get(x_7, 5); -lean_inc(x_1407); +x_1418 = lean_ctor_get(x_7, 5); +lean_inc(x_1418); lean_inc(x_9); lean_inc(x_6); lean_inc(x_1); -x_1408 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1407, x_13, x_14); -if (lean_obj_tag(x_1408) == 0) +x_1419 = l_List_forM___main___at_Lean_Meta_induction___spec__1(x_1, x_6, x_9, x_11, x_1418, x_13, x_14); +if (lean_obj_tag(x_1419) == 0) { -lean_object* x_1409; lean_object* x_1410; lean_object* x_1411; lean_object* x_1412; lean_object* x_1413; lean_object* x_1414; lean_object* x_1415; lean_object* x_1416; lean_object* x_1417; lean_object* x_1418; lean_object* x_1419; -x_1409 = lean_ctor_get(x_1408, 1); -lean_inc(x_1409); -lean_dec(x_1408); -x_1410 = lean_ctor_get(x_1409, 1); -lean_inc(x_1410); -x_1411 = lean_ctor_get(x_7, 6); -lean_inc(x_1411); -x_1412 = l_List_redLength___main___rarg(x_1411); -x_1413 = lean_mk_empty_array_with_capacity(x_1412); -lean_dec(x_1412); -lean_inc(x_1411); -x_1414 = l_List_toArrayAux___main___rarg(x_1411, x_1413); -x_1415 = x_1414; -x_1416 = lean_unsigned_to_nat(0u); -lean_inc(x_1410); +lean_object* x_1420; lean_object* x_1421; lean_object* x_1422; lean_object* x_1423; lean_object* x_1424; lean_object* x_1425; lean_object* x_1426; lean_object* x_1427; lean_object* x_1428; lean_object* x_1429; lean_object* x_1430; +x_1420 = lean_ctor_get(x_1419, 1); +lean_inc(x_1420); +lean_dec(x_1419); +x_1421 = lean_ctor_get(x_1420, 1); +lean_inc(x_1421); +x_1422 = lean_ctor_get(x_7, 6); +lean_inc(x_1422); +x_1423 = l_List_redLength___main___rarg(x_1422); +x_1424 = lean_mk_empty_array_with_capacity(x_1423); +lean_dec(x_1423); +lean_inc(x_1422); +x_1425 = l_List_toArrayAux___main___rarg(x_1422, x_1424); +x_1426 = x_1425; +x_1427 = lean_unsigned_to_nat(0u); +lean_inc(x_1421); lean_inc(x_7); lean_inc(x_6); lean_inc(x_1); -x_1417 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); -lean_closure_set(x_1417, 0, x_1); -lean_closure_set(x_1417, 1, x_6); -lean_closure_set(x_1417, 2, x_7); -lean_closure_set(x_1417, 3, x_9); -lean_closure_set(x_1417, 4, x_11); -lean_closure_set(x_1417, 5, x_1410); -lean_closure_set(x_1417, 6, x_1411); -lean_closure_set(x_1417, 7, x_1416); -lean_closure_set(x_1417, 8, x_1415); -x_1418 = x_1417; +x_1428 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Meta_induction___spec__5___boxed), 11, 9); +lean_closure_set(x_1428, 0, x_1); +lean_closure_set(x_1428, 1, x_6); +lean_closure_set(x_1428, 2, x_7); +lean_closure_set(x_1428, 3, x_9); +lean_closure_set(x_1428, 4, x_11); +lean_closure_set(x_1428, 5, x_1421); +lean_closure_set(x_1428, 6, x_1422); +lean_closure_set(x_1428, 7, x_1427); +lean_closure_set(x_1428, 8, x_1426); +x_1429 = x_1428; lean_inc(x_13); -x_1419 = lean_apply_2(x_1418, x_13, x_1409); -if (lean_obj_tag(x_1419) == 0) +x_1430 = lean_apply_2(x_1429, x_13, x_1420); +if (lean_obj_tag(x_1430) == 0) { -lean_object* x_1420; lean_object* x_1421; lean_object* x_1422; -x_1420 = lean_ctor_get(x_1419, 0); -lean_inc(x_1420); -x_1421 = lean_ctor_get(x_1419, 1); -lean_inc(x_1421); -lean_dec(x_1419); +lean_object* x_1431; lean_object* x_1432; lean_object* x_1433; +x_1431 = lean_ctor_get(x_1430, 0); +lean_inc(x_1431); +x_1432 = lean_ctor_get(x_1430, 1); +lean_inc(x_1432); +lean_dec(x_1430); lean_inc(x_1); -x_1422 = l_Lean_Meta_getMVarType(x_1, x_13, x_1421); -if (lean_obj_tag(x_1422) == 0) +x_1433 = l_Lean_Meta_getMVarType(x_1, x_13, x_1432); +if (lean_obj_tag(x_1433) == 0) { -lean_object* x_1423; lean_object* x_1424; uint8_t x_1425; lean_object* x_1426; lean_object* x_1427; lean_object* x_1428; lean_object* x_1429; lean_object* x_1430; -x_1423 = lean_ctor_get(x_1422, 0); -lean_inc(x_1423); -x_1424 = lean_ctor_get(x_1422, 1); -lean_inc(x_1424); -lean_dec(x_1422); -x_1425 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); -lean_inc(x_1420); -x_1426 = x_1420; -x_1427 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1416, x_1426); -x_1428 = x_1427; +lean_object* x_1434; lean_object* x_1435; uint8_t x_1436; lean_object* x_1437; lean_object* x_1438; lean_object* x_1439; lean_object* x_1440; lean_object* x_1441; +x_1434 = lean_ctor_get(x_1433, 0); +lean_inc(x_1434); +x_1435 = lean_ctor_get(x_1433, 1); +lean_inc(x_1435); +lean_dec(x_1433); +x_1436 = lean_ctor_get_uint8(x_7, sizeof(void*)*8); +lean_inc(x_1431); +x_1437 = x_1431; +x_1438 = l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(x_1427, x_1437); +x_1439 = x_1438; lean_inc(x_2); -x_1429 = lean_array_push(x_1428, x_2); -if (x_1425 == 0) +x_1440 = lean_array_push(x_1439, x_2); +if (x_1436 == 0) { -lean_object* x_1509; uint8_t x_1510; -x_1509 = l_Lean_MetavarContext_exprDependsOn(x_1410, x_1423, x_2); +lean_object* x_1520; uint8_t x_1521; +x_1520 = l_Lean_MetavarContext_exprDependsOn(x_1421, x_1434, x_2); lean_dec(x_2); -x_1510 = lean_unbox(x_1509); -lean_dec(x_1509); -if (x_1510 == 0) +x_1521 = lean_unbox(x_1520); +lean_dec(x_1520); +if (x_1521 == 0) { -x_1430 = x_1424; -goto block_1508; +x_1441 = x_1435; +goto block_1519; } else { -lean_object* x_1511; lean_object* x_1512; lean_object* x_1513; lean_object* x_1514; lean_object* x_1515; lean_object* x_1516; uint8_t x_1517; -lean_dec(x_1429); -lean_dec(x_1420); -lean_dec(x_1407); +lean_object* x_1522; lean_object* x_1523; lean_object* x_1524; lean_object* x_1525; lean_object* x_1526; lean_object* x_1527; lean_object* x_1528; uint8_t x_1529; +lean_dec(x_1440); +lean_dec(x_1431); +lean_dec(x_1418); lean_dec(x_8); lean_dec(x_7); lean_dec(x_4); -x_1511 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1511, 0, x_3); -x_1512 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; -x_1513 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1513, 0, x_1512); -lean_ctor_set(x_1513, 1, x_1511); -x_1514 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; -x_1515 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1515, 0, x_1513); -lean_ctor_set(x_1515, 1, x_1514); -x_1516 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1515, x_13, x_1424); +x_1522 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1522, 0, x_3); +x_1523 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__8___closed__6; +x_1524 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1524, 0, x_1523); +lean_ctor_set(x_1524, 1, x_1522); +x_1525 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__8; +x_1526 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1526, 0, x_1524); +lean_ctor_set(x_1526, 1, x_1525); +x_1527 = lean_box(0); +x_1528 = l_Lean_Meta_throwTacticEx___rarg(x_6, x_1, x_1526, x_1527, x_13, x_1435); lean_dec(x_13); -x_1517 = !lean_is_exclusive(x_1516); -if (x_1517 == 0) +x_1529 = !lean_is_exclusive(x_1528); +if (x_1529 == 0) { -return x_1516; +return x_1528; } else { -lean_object* x_1518; lean_object* x_1519; lean_object* x_1520; -x_1518 = lean_ctor_get(x_1516, 0); -x_1519 = lean_ctor_get(x_1516, 1); -lean_inc(x_1519); -lean_inc(x_1518); -lean_dec(x_1516); -x_1520 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1520, 0, x_1518); -lean_ctor_set(x_1520, 1, x_1519); -return x_1520; +lean_object* x_1530; lean_object* x_1531; lean_object* x_1532; +x_1530 = lean_ctor_get(x_1528, 0); +x_1531 = lean_ctor_get(x_1528, 1); +lean_inc(x_1531); +lean_inc(x_1530); +lean_dec(x_1528); +x_1532 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1532, 0, x_1530); +lean_ctor_set(x_1532, 1, x_1531); +return x_1532; } } } else { -lean_dec(x_1423); -lean_dec(x_1410); +lean_dec(x_1434); +lean_dec(x_1421); lean_dec(x_2); -x_1430 = x_1424; -goto block_1508; +x_1441 = x_1435; +goto block_1519; } -block_1508: +block_1519: { -uint8_t x_1431; lean_object* x_1432; -x_1431 = 1; -x_1432 = l_Lean_Meta_revert(x_1, x_1429, x_1431, x_13, x_1430); -if (lean_obj_tag(x_1432) == 0) +uint8_t x_1442; lean_object* x_1443; +x_1442 = 1; +x_1443 = l_Lean_Meta_revert(x_1, x_1440, x_1442, x_13, x_1441); +if (lean_obj_tag(x_1443) == 0) { -lean_object* x_1433; lean_object* x_1434; lean_object* x_1435; lean_object* x_1436; lean_object* x_1437; lean_object* x_1438; uint8_t x_1439; lean_object* x_1440; -x_1433 = lean_ctor_get(x_1432, 0); -lean_inc(x_1433); -x_1434 = lean_ctor_get(x_1432, 1); -lean_inc(x_1434); -lean_dec(x_1432); -x_1435 = lean_ctor_get(x_1433, 0); -lean_inc(x_1435); -x_1436 = lean_ctor_get(x_1433, 1); -lean_inc(x_1436); -lean_dec(x_1433); -x_1437 = lean_array_get_size(x_1420); -x_1438 = lean_box(0); -x_1439 = 0; -x_1440 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_1439, x_1436, x_1437, x_1438, x_13, x_1434); -if (lean_obj_tag(x_1440) == 0) -{ -lean_object* x_1441; lean_object* x_1442; lean_object* x_1443; lean_object* x_1444; lean_object* x_1445; -x_1441 = lean_ctor_get(x_1440, 0); -lean_inc(x_1441); -x_1442 = lean_ctor_get(x_1440, 1); -lean_inc(x_1442); -lean_dec(x_1440); -x_1443 = lean_ctor_get(x_1441, 0); -lean_inc(x_1443); -x_1444 = lean_ctor_get(x_1441, 1); +lean_object* x_1444; lean_object* x_1445; lean_object* x_1446; lean_object* x_1447; lean_object* x_1448; lean_object* x_1449; uint8_t x_1450; lean_object* x_1451; +x_1444 = lean_ctor_get(x_1443, 0); lean_inc(x_1444); -lean_dec(x_1441); -x_1445 = l_Lean_Meta_intro1(x_1444, x_1439, x_13, x_1442); -if (lean_obj_tag(x_1445) == 0) -{ -lean_object* x_1446; lean_object* x_1447; lean_object* x_1448; lean_object* x_1449; lean_object* x_1450; lean_object* x_1451; lean_object* x_1452; lean_object* x_1453; lean_object* x_1454; lean_object* x_1455; lean_object* x_1456; lean_object* x_1457; lean_object* x_1458; lean_object* x_1459; uint8_t x_1460; lean_object* x_1461; lean_object* x_1489; uint8_t x_1490; -x_1446 = lean_ctor_get(x_1445, 0); +x_1445 = lean_ctor_get(x_1443, 1); +lean_inc(x_1445); +lean_dec(x_1443); +x_1446 = lean_ctor_get(x_1444, 0); lean_inc(x_1446); -x_1447 = lean_ctor_get(x_1445, 1); +x_1447 = lean_ctor_get(x_1444, 1); lean_inc(x_1447); -lean_dec(x_1445); -x_1448 = lean_ctor_get(x_1446, 0); -lean_inc(x_1448); -x_1449 = lean_ctor_get(x_1446, 1); -lean_inc(x_1449); -lean_dec(x_1446); -x_1450 = lean_box(0); -x_1451 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1420, x_1443, x_1420, x_1416, x_1450); -lean_dec(x_1420); -x_1452 = x_1443; -x_1453 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1416, x_1452); -x_1454 = x_1453; -lean_inc(x_1448); -x_1455 = l_Lean_mkFVar(x_1448); -lean_inc(x_1449); -x_1456 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); -lean_closure_set(x_1456, 0, x_1449); -x_1457 = lean_box(x_1425); -lean_inc(x_1449); -x_1458 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); -lean_closure_set(x_1458, 0, x_1448); -lean_closure_set(x_1458, 1, x_8); -lean_closure_set(x_1458, 2, x_1449); -lean_closure_set(x_1458, 3, x_3); -lean_closure_set(x_1458, 4, x_4); -lean_closure_set(x_1458, 5, x_6); -lean_closure_set(x_1458, 6, x_7); -lean_closure_set(x_1458, 7, x_1407); -lean_closure_set(x_1458, 8, x_1457); -lean_closure_set(x_1458, 9, x_1435); -lean_closure_set(x_1458, 10, x_1451); -lean_closure_set(x_1458, 11, x_1454); -lean_closure_set(x_1458, 12, x_1455); -x_1459 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_1459, 0, x_1456); -lean_closure_set(x_1459, 1, x_1458); -x_1489 = lean_ctor_get(x_1447, 4); -lean_inc(x_1489); -x_1490 = lean_ctor_get_uint8(x_1489, sizeof(void*)*1); -lean_dec(x_1489); -if (x_1490 == 0) +lean_dec(x_1444); +x_1448 = lean_array_get_size(x_1431); +x_1449 = lean_box(0); +x_1450 = 0; +x_1451 = l_Lean_Meta_introN(x_1447, x_1448, x_1449, x_1450, x_13, x_1445); +if (lean_obj_tag(x_1451) == 0) { -x_1460 = x_1439; -x_1461 = x_1447; -goto block_1488; +lean_object* x_1452; lean_object* x_1453; lean_object* x_1454; lean_object* x_1455; lean_object* x_1456; +x_1452 = lean_ctor_get(x_1451, 0); +lean_inc(x_1452); +x_1453 = lean_ctor_get(x_1451, 1); +lean_inc(x_1453); +lean_dec(x_1451); +x_1454 = lean_ctor_get(x_1452, 0); +lean_inc(x_1454); +x_1455 = lean_ctor_get(x_1452, 1); +lean_inc(x_1455); +lean_dec(x_1452); +x_1456 = l_Lean_Meta_intro1(x_1455, x_1450, x_13, x_1453); +if (lean_obj_tag(x_1456) == 0) +{ +lean_object* x_1457; lean_object* x_1458; lean_object* x_1459; lean_object* x_1460; lean_object* x_1461; lean_object* x_1462; lean_object* x_1463; lean_object* x_1464; lean_object* x_1465; lean_object* x_1466; lean_object* x_1467; lean_object* x_1468; lean_object* x_1469; lean_object* x_1470; uint8_t x_1471; lean_object* x_1472; lean_object* x_1500; uint8_t x_1501; +x_1457 = lean_ctor_get(x_1456, 0); +lean_inc(x_1457); +x_1458 = lean_ctor_get(x_1456, 1); +lean_inc(x_1458); +lean_dec(x_1456); +x_1459 = lean_ctor_get(x_1457, 0); +lean_inc(x_1459); +x_1460 = lean_ctor_get(x_1457, 1); +lean_inc(x_1460); +lean_dec(x_1457); +x_1461 = lean_box(0); +x_1462 = l_Array_iterateMAux___main___at_Lean_Meta_induction___spec__6(x_1431, x_1454, x_1431, x_1427, x_1461); +lean_dec(x_1431); +x_1463 = x_1454; +x_1464 = l_Array_umapMAux___main___at_Lean_LocalContext_getFVars___spec__1(x_1427, x_1463); +x_1465 = x_1464; +lean_inc(x_1459); +x_1466 = l_Lean_mkFVar(x_1459); +lean_inc(x_1460); +x_1467 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarType___boxed), 3, 1); +lean_closure_set(x_1467, 0, x_1460); +x_1468 = lean_box(x_1436); +lean_inc(x_1460); +x_1469 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___lambda__1___boxed), 16, 13); +lean_closure_set(x_1469, 0, x_1459); +lean_closure_set(x_1469, 1, x_8); +lean_closure_set(x_1469, 2, x_1460); +lean_closure_set(x_1469, 3, x_3); +lean_closure_set(x_1469, 4, x_4); +lean_closure_set(x_1469, 5, x_6); +lean_closure_set(x_1469, 6, x_7); +lean_closure_set(x_1469, 7, x_1418); +lean_closure_set(x_1469, 8, x_1468); +lean_closure_set(x_1469, 9, x_1446); +lean_closure_set(x_1469, 10, x_1462); +lean_closure_set(x_1469, 11, x_1465); +lean_closure_set(x_1469, 12, x_1466); +x_1470 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_1470, 0, x_1467); +lean_closure_set(x_1470, 1, x_1469); +x_1500 = lean_ctor_get(x_1458, 4); +lean_inc(x_1500); +x_1501 = lean_ctor_get_uint8(x_1500, sizeof(void*)*1); +lean_dec(x_1500); +if (x_1501 == 0) +{ +x_1471 = x_1450; +x_1472 = x_1458; +goto block_1499; } else { -lean_object* x_1491; lean_object* x_1492; lean_object* x_1493; lean_object* x_1494; uint8_t x_1495; -x_1491 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1492 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1491, x_13, x_1447); -x_1493 = lean_ctor_get(x_1492, 0); -lean_inc(x_1493); -x_1494 = lean_ctor_get(x_1492, 1); -lean_inc(x_1494); -lean_dec(x_1492); -x_1495 = lean_unbox(x_1493); -lean_dec(x_1493); -x_1460 = x_1495; -x_1461 = x_1494; -goto block_1488; +lean_object* x_1502; lean_object* x_1503; lean_object* x_1504; lean_object* x_1505; uint8_t x_1506; +x_1502 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1503 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_1502, x_13, x_1458); +x_1504 = lean_ctor_get(x_1503, 0); +lean_inc(x_1504); +x_1505 = lean_ctor_get(x_1503, 1); +lean_inc(x_1505); +lean_dec(x_1503); +x_1506 = lean_unbox(x_1504); +lean_dec(x_1504); +x_1471 = x_1506; +x_1472 = x_1505; +goto block_1499; } -block_1488: +block_1499: { -if (x_1460 == 0) +if (x_1471 == 0) { -lean_object* x_1462; -x_1462 = l_Lean_Meta_getMVarDecl(x_1449, x_13, x_1461); -if (lean_obj_tag(x_1462) == 0) +lean_object* x_1473; +x_1473 = l_Lean_Meta_getMVarDecl(x_1460, x_13, x_1472); +if (lean_obj_tag(x_1473) == 0) { -lean_object* x_1463; lean_object* x_1464; lean_object* x_1465; lean_object* x_1466; lean_object* x_1467; -x_1463 = lean_ctor_get(x_1462, 0); -lean_inc(x_1463); -x_1464 = lean_ctor_get(x_1462, 1); -lean_inc(x_1464); -lean_dec(x_1462); -x_1465 = lean_ctor_get(x_1463, 1); -lean_inc(x_1465); -x_1466 = lean_ctor_get(x_1463, 4); -lean_inc(x_1466); -lean_dec(x_1463); -x_1467 = l_Lean_Meta_withLocalContext___rarg(x_1465, x_1466, x_1459, x_13, x_1464); -lean_dec(x_13); -return x_1467; -} -else -{ -uint8_t x_1468; -lean_dec(x_1459); -lean_dec(x_13); -x_1468 = !lean_is_exclusive(x_1462); -if (x_1468 == 0) -{ -return x_1462; -} -else -{ -lean_object* x_1469; lean_object* x_1470; lean_object* x_1471; -x_1469 = lean_ctor_get(x_1462, 0); -x_1470 = lean_ctor_get(x_1462, 1); -lean_inc(x_1470); -lean_inc(x_1469); -lean_dec(x_1462); -x_1471 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1471, 0, x_1469); -lean_ctor_set(x_1471, 1, x_1470); -return x_1471; -} -} -} -else -{ -lean_object* x_1472; lean_object* x_1473; lean_object* x_1474; lean_object* x_1475; lean_object* x_1476; lean_object* x_1477; lean_object* x_1478; -lean_inc(x_1449); -x_1472 = lean_alloc_ctor(5, 1, 0); -lean_ctor_set(x_1472, 0, x_1449); -x_1473 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; -x_1474 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1474, 0, x_1473); -lean_ctor_set(x_1474, 1, x_1472); -x_1475 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; -x_1476 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1475, x_1474, x_13, x_1461); -x_1477 = lean_ctor_get(x_1476, 1); +lean_object* x_1474; lean_object* x_1475; lean_object* x_1476; lean_object* x_1477; lean_object* x_1478; +x_1474 = lean_ctor_get(x_1473, 0); +lean_inc(x_1474); +x_1475 = lean_ctor_get(x_1473, 1); +lean_inc(x_1475); +lean_dec(x_1473); +x_1476 = lean_ctor_get(x_1474, 1); +lean_inc(x_1476); +x_1477 = lean_ctor_get(x_1474, 4); lean_inc(x_1477); -lean_dec(x_1476); -x_1478 = l_Lean_Meta_getMVarDecl(x_1449, x_13, x_1477); -if (lean_obj_tag(x_1478) == 0) -{ -lean_object* x_1479; lean_object* x_1480; lean_object* x_1481; lean_object* x_1482; lean_object* x_1483; -x_1479 = lean_ctor_get(x_1478, 0); -lean_inc(x_1479); -x_1480 = lean_ctor_get(x_1478, 1); -lean_inc(x_1480); -lean_dec(x_1478); -x_1481 = lean_ctor_get(x_1479, 1); -lean_inc(x_1481); -x_1482 = lean_ctor_get(x_1479, 4); -lean_inc(x_1482); -lean_dec(x_1479); -x_1483 = l_Lean_Meta_withLocalContext___rarg(x_1481, x_1482, x_1459, x_13, x_1480); +lean_dec(x_1474); +x_1478 = l_Lean_Meta_withLocalContext___rarg(x_1476, x_1477, x_1470, x_13, x_1475); lean_dec(x_13); -return x_1483; -} -else -{ -uint8_t x_1484; -lean_dec(x_1459); -lean_dec(x_13); -x_1484 = !lean_is_exclusive(x_1478); -if (x_1484 == 0) -{ return x_1478; } else { -lean_object* x_1485; lean_object* x_1486; lean_object* x_1487; -x_1485 = lean_ctor_get(x_1478, 0); -x_1486 = lean_ctor_get(x_1478, 1); -lean_inc(x_1486); -lean_inc(x_1485); -lean_dec(x_1478); -x_1487 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1487, 0, x_1485); -lean_ctor_set(x_1487, 1, x_1486); -return x_1487; -} -} -} -} -} -else -{ -uint8_t x_1496; -lean_dec(x_1443); -lean_dec(x_1435); -lean_dec(x_1420); -lean_dec(x_1407); +uint8_t x_1479; +lean_dec(x_1470); lean_dec(x_13); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_1496 = !lean_is_exclusive(x_1445); -if (x_1496 == 0) +x_1479 = !lean_is_exclusive(x_1473); +if (x_1479 == 0) { -return x_1445; +return x_1473; } else { -lean_object* x_1497; lean_object* x_1498; lean_object* x_1499; -x_1497 = lean_ctor_get(x_1445, 0); -x_1498 = lean_ctor_get(x_1445, 1); -lean_inc(x_1498); +lean_object* x_1480; lean_object* x_1481; lean_object* x_1482; +x_1480 = lean_ctor_get(x_1473, 0); +x_1481 = lean_ctor_get(x_1473, 1); +lean_inc(x_1481); +lean_inc(x_1480); +lean_dec(x_1473); +x_1482 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1482, 0, x_1480); +lean_ctor_set(x_1482, 1, x_1481); +return x_1482; +} +} +} +else +{ +lean_object* x_1483; lean_object* x_1484; lean_object* x_1485; lean_object* x_1486; lean_object* x_1487; lean_object* x_1488; lean_object* x_1489; +lean_inc(x_1460); +x_1483 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_1483, 0, x_1460); +x_1484 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__5; +x_1485 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1485, 0, x_1484); +lean_ctor_set(x_1485, 1, x_1483); +x_1486 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__9___closed__1; +x_1487 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_1486, x_1485, x_13, x_1472); +x_1488 = lean_ctor_get(x_1487, 1); +lean_inc(x_1488); +lean_dec(x_1487); +x_1489 = l_Lean_Meta_getMVarDecl(x_1460, x_13, x_1488); +if (lean_obj_tag(x_1489) == 0) +{ +lean_object* x_1490; lean_object* x_1491; lean_object* x_1492; lean_object* x_1493; lean_object* x_1494; +x_1490 = lean_ctor_get(x_1489, 0); +lean_inc(x_1490); +x_1491 = lean_ctor_get(x_1489, 1); +lean_inc(x_1491); +lean_dec(x_1489); +x_1492 = lean_ctor_get(x_1490, 1); +lean_inc(x_1492); +x_1493 = lean_ctor_get(x_1490, 4); +lean_inc(x_1493); +lean_dec(x_1490); +x_1494 = l_Lean_Meta_withLocalContext___rarg(x_1492, x_1493, x_1470, x_13, x_1491); +lean_dec(x_13); +return x_1494; +} +else +{ +uint8_t x_1495; +lean_dec(x_1470); +lean_dec(x_13); +x_1495 = !lean_is_exclusive(x_1489); +if (x_1495 == 0) +{ +return x_1489; +} +else +{ +lean_object* x_1496; lean_object* x_1497; lean_object* x_1498; +x_1496 = lean_ctor_get(x_1489, 0); +x_1497 = lean_ctor_get(x_1489, 1); lean_inc(x_1497); -lean_dec(x_1445); -x_1499 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1499, 0, x_1497); -lean_ctor_set(x_1499, 1, x_1498); -return x_1499; +lean_inc(x_1496); +lean_dec(x_1489); +x_1498 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1498, 0, x_1496); +lean_ctor_set(x_1498, 1, x_1497); +return x_1498; +} +} } } } else { -uint8_t x_1500; -lean_dec(x_1435); -lean_dec(x_1420); -lean_dec(x_1407); +uint8_t x_1507; +lean_dec(x_1454); +lean_dec(x_1446); +lean_dec(x_1431); +lean_dec(x_1418); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_1500 = !lean_is_exclusive(x_1440); -if (x_1500 == 0) +x_1507 = !lean_is_exclusive(x_1456); +if (x_1507 == 0) { -return x_1440; +return x_1456; } else { -lean_object* x_1501; lean_object* x_1502; lean_object* x_1503; -x_1501 = lean_ctor_get(x_1440, 0); -x_1502 = lean_ctor_get(x_1440, 1); -lean_inc(x_1502); -lean_inc(x_1501); -lean_dec(x_1440); -x_1503 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1503, 0, x_1501); -lean_ctor_set(x_1503, 1, x_1502); -return x_1503; +lean_object* x_1508; lean_object* x_1509; lean_object* x_1510; +x_1508 = lean_ctor_get(x_1456, 0); +x_1509 = lean_ctor_get(x_1456, 1); +lean_inc(x_1509); +lean_inc(x_1508); +lean_dec(x_1456); +x_1510 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1510, 0, x_1508); +lean_ctor_set(x_1510, 1, x_1509); +return x_1510; } } } else { -uint8_t x_1504; -lean_dec(x_1420); -lean_dec(x_1407); +uint8_t x_1511; +lean_dec(x_1446); +lean_dec(x_1431); +lean_dec(x_1418); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_1504 = !lean_is_exclusive(x_1432); -if (x_1504 == 0) +x_1511 = !lean_is_exclusive(x_1451); +if (x_1511 == 0) { -return x_1432; +return x_1451; } else { -lean_object* x_1505; lean_object* x_1506; lean_object* x_1507; -x_1505 = lean_ctor_get(x_1432, 0); -x_1506 = lean_ctor_get(x_1432, 1); -lean_inc(x_1506); -lean_inc(x_1505); -lean_dec(x_1432); -x_1507 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1507, 0, x_1505); -lean_ctor_set(x_1507, 1, x_1506); -return x_1507; +lean_object* x_1512; lean_object* x_1513; lean_object* x_1514; +x_1512 = lean_ctor_get(x_1451, 0); +x_1513 = lean_ctor_get(x_1451, 1); +lean_inc(x_1513); +lean_inc(x_1512); +lean_dec(x_1451); +x_1514 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1514, 0, x_1512); +lean_ctor_set(x_1514, 1, x_1513); +return x_1514; +} +} +} +else +{ +uint8_t x_1515; +lean_dec(x_1431); +lean_dec(x_1418); +lean_dec(x_13); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_1515 = !lean_is_exclusive(x_1443); +if (x_1515 == 0) +{ +return x_1443; +} +else +{ +lean_object* x_1516; lean_object* x_1517; lean_object* x_1518; +x_1516 = lean_ctor_get(x_1443, 0); +x_1517 = lean_ctor_get(x_1443, 1); +lean_inc(x_1517); +lean_inc(x_1516); +lean_dec(x_1443); +x_1518 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1518, 0, x_1516); +lean_ctor_set(x_1518, 1, x_1517); +return x_1518; } } } } else { -uint8_t x_1521; -lean_dec(x_1420); -lean_dec(x_1410); -lean_dec(x_1407); +uint8_t x_1533; +lean_dec(x_1431); +lean_dec(x_1421); +lean_dec(x_1418); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -10726,31 +10760,31 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1521 = !lean_is_exclusive(x_1422); -if (x_1521 == 0) +x_1533 = !lean_is_exclusive(x_1433); +if (x_1533 == 0) { -return x_1422; +return x_1433; } else { -lean_object* x_1522; lean_object* x_1523; lean_object* x_1524; -x_1522 = lean_ctor_get(x_1422, 0); -x_1523 = lean_ctor_get(x_1422, 1); -lean_inc(x_1523); -lean_inc(x_1522); -lean_dec(x_1422); -x_1524 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1524, 0, x_1522); -lean_ctor_set(x_1524, 1, x_1523); -return x_1524; +lean_object* x_1534; lean_object* x_1535; lean_object* x_1536; +x_1534 = lean_ctor_get(x_1433, 0); +x_1535 = lean_ctor_get(x_1433, 1); +lean_inc(x_1535); +lean_inc(x_1534); +lean_dec(x_1433); +x_1536 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1536, 0, x_1534); +lean_ctor_set(x_1536, 1, x_1535); +return x_1536; } } } else { -uint8_t x_1525; -lean_dec(x_1410); -lean_dec(x_1407); +uint8_t x_1537; +lean_dec(x_1421); +lean_dec(x_1418); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -10759,30 +10793,30 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1525 = !lean_is_exclusive(x_1419); -if (x_1525 == 0) +x_1537 = !lean_is_exclusive(x_1430); +if (x_1537 == 0) { -return x_1419; +return x_1430; } else { -lean_object* x_1526; lean_object* x_1527; lean_object* x_1528; -x_1526 = lean_ctor_get(x_1419, 0); -x_1527 = lean_ctor_get(x_1419, 1); -lean_inc(x_1527); -lean_inc(x_1526); -lean_dec(x_1419); -x_1528 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1528, 0, x_1526); -lean_ctor_set(x_1528, 1, x_1527); -return x_1528; +lean_object* x_1538; lean_object* x_1539; lean_object* x_1540; +x_1538 = lean_ctor_get(x_1430, 0); +x_1539 = lean_ctor_get(x_1430, 1); +lean_inc(x_1539); +lean_inc(x_1538); +lean_dec(x_1430); +x_1540 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1540, 0, x_1538); +lean_ctor_set(x_1540, 1, x_1539); +return x_1540; } } } else { -uint8_t x_1529; -lean_dec(x_1407); +uint8_t x_1541; +lean_dec(x_1418); lean_dec(x_13); lean_dec(x_11); lean_dec(x_9); @@ -10793,23 +10827,23 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1529 = !lean_is_exclusive(x_1408); -if (x_1529 == 0) +x_1541 = !lean_is_exclusive(x_1419); +if (x_1541 == 0) { -return x_1408; +return x_1419; } else { -lean_object* x_1530; lean_object* x_1531; lean_object* x_1532; -x_1530 = lean_ctor_get(x_1408, 0); -x_1531 = lean_ctor_get(x_1408, 1); -lean_inc(x_1531); -lean_inc(x_1530); -lean_dec(x_1408); -x_1532 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1532, 0, x_1530); -lean_ctor_set(x_1532, 1, x_1531); -return x_1532; +lean_object* x_1542; lean_object* x_1543; lean_object* x_1544; +x_1542 = lean_ctor_get(x_1419, 0); +x_1543 = lean_ctor_get(x_1419, 1); +lean_inc(x_1543); +lean_inc(x_1542); +lean_dec(x_1419); +x_1544 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1544, 0, x_1542); +lean_ctor_set(x_1544, 1, x_1543); +return x_1544; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Injection.c b/stage0/stdlib/Lean/Meta/Tactic/Injection.c index 47f76668b7..2d6584e164 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Injection.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Injection.c @@ -55,7 +55,7 @@ lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkFVar(lean_object*); uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalDecl_type(lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_injectionCore___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_mkNoConfusion___closed__5; @@ -413,435 +413,410 @@ x_16 = lean_unsigned_to_nat(3u); x_17 = l_Lean_Expr_isAppOfArity___main(x_13, x_15, x_16); if (x_17 == 0) { -lean_object* x_18; lean_object* x_19; +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_dec(x_13); lean_dec(x_3); x_18 = l_Lean_Meta_mkNoConfusion___closed__5; -x_19 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_18, x_4, x_14); +x_19 = lean_box(0); +x_20 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_18, x_19, x_4, x_14); lean_dec(x_4); -return x_19; +return x_20; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_20 = l_Lean_Expr_appFn_x21(x_13); -x_21 = l_Lean_Expr_appArg_x21(x_20); -lean_dec(x_20); -x_22 = l_Lean_Expr_appArg_x21(x_13); +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_21 = l_Lean_Expr_appFn_x21(x_13); +x_22 = l_Lean_Expr_appArg_x21(x_21); +lean_dec(x_21); +x_23 = l_Lean_Expr_appArg_x21(x_13); lean_dec(x_13); lean_inc(x_4); -x_23 = l_Lean_Meta_whnf(x_21, x_4, x_14); -if (lean_obj_tag(x_23) == 0) +x_24 = l_Lean_Meta_whnf(x_22, x_4, x_14); +if (lean_obj_tag(x_24) == 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_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_24, 0); lean_inc(x_25); -lean_dec(x_23); -lean_inc(x_4); -x_26 = l_Lean_Meta_whnf(x_22, x_4, x_25); -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); -lean_inc(x_1); -x_29 = l_Lean_Meta_getMVarType(x_1, x_4, x_28); -if (lean_obj_tag(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; -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -x_31 = lean_ctor_get(x_29, 1); -lean_inc(x_31); -lean_dec(x_29); -x_32 = l___private_Lean_Meta_Tactic_Injection_2__constructorApp_x3f(x_24, x_4, x_31); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); lean_dec(x_24); -x_33 = lean_ctor_get(x_32, 0); -lean_inc(x_33); -x_34 = lean_ctor_get(x_32, 1); -lean_inc(x_34); -lean_dec(x_32); -x_35 = l___private_Lean_Meta_Tactic_Injection_2__constructorApp_x3f(x_27, x_4, x_34); -lean_dec(x_27); -if (lean_obj_tag(x_33) == 0) -{ -lean_object* x_36; lean_object* x_37; lean_object* x_38; -lean_dec(x_30); -lean_dec(x_3); -x_36 = lean_ctor_get(x_35, 1); -lean_inc(x_36); -lean_dec(x_35); -x_37 = l_Lean_Meta_injectionCore___lambda__1___closed__3; -x_38 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_37, x_4, x_36); -lean_dec(x_4); -return x_38; -} -else -{ -lean_object* x_39; -x_39 = lean_ctor_get(x_35, 0); -lean_inc(x_39); -if (lean_obj_tag(x_39) == 0) -{ -lean_object* x_40; lean_object* x_41; lean_object* x_42; -lean_dec(x_33); -lean_dec(x_30); -lean_dec(x_3); -x_40 = lean_ctor_get(x_35, 1); -lean_inc(x_40); -lean_dec(x_35); -x_41 = l_Lean_Meta_injectionCore___lambda__1___closed__3; -x_42 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_41, x_4, x_40); -lean_dec(x_4); -return x_42; -} -else -{ -lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_43 = lean_ctor_get(x_35, 1); -lean_inc(x_43); -lean_dec(x_35); -x_44 = lean_ctor_get(x_33, 0); -lean_inc(x_44); -lean_dec(x_33); -x_45 = lean_ctor_get(x_39, 0); -lean_inc(x_45); -lean_dec(x_39); -lean_inc(x_3); -x_46 = l_Lean_mkFVar(x_3); lean_inc(x_4); -x_47 = l_Lean_Meta_mkNoConfusion(x_30, x_46, x_4, x_43); -if (lean_obj_tag(x_47) == 0) +x_27 = l_Lean_Meta_whnf(x_23, x_4, x_26); +if (lean_obj_tag(x_27) == 0) { -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; -x_48 = lean_ctor_get(x_47, 0); +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +lean_inc(x_1); +x_30 = l_Lean_Meta_getMVarType(x_1, x_4, x_29); +if (lean_obj_tag(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; +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +x_33 = l___private_Lean_Meta_Tactic_Injection_2__constructorApp_x3f(x_25, x_4, x_32); +lean_dec(x_25); +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +x_35 = lean_ctor_get(x_33, 1); +lean_inc(x_35); +lean_dec(x_33); +x_36 = l___private_Lean_Meta_Tactic_Injection_2__constructorApp_x3f(x_28, x_4, x_35); +lean_dec(x_28); +if (lean_obj_tag(x_34) == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +lean_dec(x_31); +lean_dec(x_3); +x_37 = lean_ctor_get(x_36, 1); +lean_inc(x_37); +lean_dec(x_36); +x_38 = l_Lean_Meta_injectionCore___lambda__1___closed__3; +x_39 = lean_box(0); +x_40 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_38, x_39, x_4, x_37); +lean_dec(x_4); +return x_40; +} +else +{ +lean_object* x_41; +x_41 = lean_ctor_get(x_36, 0); +lean_inc(x_41); +if (lean_obj_tag(x_41) == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_34); +lean_dec(x_31); +lean_dec(x_3); +x_42 = lean_ctor_get(x_36, 1); +lean_inc(x_42); +lean_dec(x_36); +x_43 = l_Lean_Meta_injectionCore___lambda__1___closed__3; +x_44 = lean_box(0); +x_45 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_43, x_44, x_4, x_42); +lean_dec(x_4); +return x_45; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_46 = lean_ctor_get(x_36, 1); +lean_inc(x_46); +lean_dec(x_36); +x_47 = lean_ctor_get(x_34, 0); +lean_inc(x_47); +lean_dec(x_34); +x_48 = lean_ctor_get(x_41, 0); lean_inc(x_48); -x_49 = lean_ctor_get(x_47, 1); -lean_inc(x_49); -lean_dec(x_47); -x_50 = lean_ctor_get(x_44, 0); -lean_inc(x_50); +lean_dec(x_41); +lean_inc(x_3); +x_49 = l_Lean_mkFVar(x_3); +lean_inc(x_4); +x_50 = l_Lean_Meta_mkNoConfusion(x_31, x_49, x_4, x_46); +if (lean_obj_tag(x_50) == 0) +{ +lean_object* x_51; 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_51 = lean_ctor_get(x_50, 0); lean_inc(x_51); -lean_dec(x_50); -x_52 = lean_ctor_get(x_45, 0); +x_52 = lean_ctor_get(x_50, 1); lean_inc(x_52); -lean_dec(x_45); -x_53 = lean_ctor_get(x_52, 0); +lean_dec(x_50); +x_53 = lean_ctor_get(x_47, 0); lean_inc(x_53); -lean_dec(x_52); -x_54 = lean_name_eq(x_51, x_53); +x_54 = lean_ctor_get(x_53, 0); +lean_inc(x_54); lean_dec(x_53); -lean_dec(x_51); -if (x_54 == 0) +x_55 = lean_ctor_get(x_48, 0); +lean_inc(x_55); +lean_dec(x_48); +x_56 = lean_ctor_get(x_55, 0); +lean_inc(x_56); +lean_dec(x_55); +x_57 = lean_name_eq(x_54, x_56); +lean_dec(x_56); +lean_dec(x_54); +if (x_57 == 0) { -lean_object* x_55; -lean_dec(x_44); +lean_object* x_58; +lean_dec(x_47); lean_dec(x_3); lean_dec(x_2); -x_55 = l_Lean_Meta_assignExprMVar(x_1, x_48, x_4, x_49); +x_58 = l_Lean_Meta_assignExprMVar(x_1, x_51, x_4, x_52); lean_dec(x_4); -if (lean_obj_tag(x_55) == 0) +if (lean_obj_tag(x_58) == 0) { -uint8_t x_56; -x_56 = !lean_is_exclusive(x_55); -if (x_56 == 0) +uint8_t x_59; +x_59 = !lean_is_exclusive(x_58); +if (x_59 == 0) { -lean_object* x_57; lean_object* x_58; -x_57 = lean_ctor_get(x_55, 0); -lean_dec(x_57); -x_58 = lean_box(0); -lean_ctor_set(x_55, 0, x_58); -return x_55; +lean_object* x_60; lean_object* x_61; +x_60 = lean_ctor_get(x_58, 0); +lean_dec(x_60); +x_61 = lean_box(0); +lean_ctor_set(x_58, 0, x_61); +return x_58; } else { -lean_object* x_59; lean_object* x_60; lean_object* x_61; -x_59 = lean_ctor_get(x_55, 1); -lean_inc(x_59); -lean_dec(x_55); -x_60 = lean_box(0); -x_61 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_61, 0, x_60); -lean_ctor_set(x_61, 1, x_59); -return x_61; +lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_62 = lean_ctor_get(x_58, 1); +lean_inc(x_62); +lean_dec(x_58); +x_63 = lean_box(0); +x_64 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +return x_64; } } else { -uint8_t x_62; -x_62 = !lean_is_exclusive(x_55); -if (x_62 == 0) +uint8_t x_65; +x_65 = !lean_is_exclusive(x_58); +if (x_65 == 0) { -return x_55; +return x_58; } else { -lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_63 = lean_ctor_get(x_55, 0); -x_64 = lean_ctor_get(x_55, 1); -lean_inc(x_64); -lean_inc(x_63); -lean_dec(x_55); -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; -} -} -} -else -{ -lean_object* x_66; -lean_inc(x_4); -lean_inc(x_48); -x_66 = l_Lean_Meta_inferType(x_48, x_4, x_49); -if (lean_obj_tag(x_66) == 0) -{ -lean_object* x_67; lean_object* x_68; lean_object* x_69; -x_67 = lean_ctor_get(x_66, 0); +lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_66 = lean_ctor_get(x_58, 0); +x_67 = lean_ctor_get(x_58, 1); lean_inc(x_67); -x_68 = lean_ctor_get(x_66, 1); -lean_inc(x_68); -lean_dec(x_66); +lean_inc(x_66); +lean_dec(x_58); +x_68 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_67); +return x_68; +} +} +} +else +{ +lean_object* x_69; lean_inc(x_4); -x_69 = l_Lean_Meta_whnf(x_67, x_4, x_68); +lean_inc(x_51); +x_69 = l_Lean_Meta_inferType(x_51, x_4, x_52); if (lean_obj_tag(x_69) == 0) { -lean_object* x_70; +lean_object* x_70; lean_object* x_71; lean_object* x_72; x_70 = lean_ctor_get(x_69, 0); lean_inc(x_70); -if (lean_obj_tag(x_70) == 7) -{ -lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; -lean_dec(x_2); x_71 = lean_ctor_get(x_69, 1); lean_inc(x_71); lean_dec(x_69); -x_72 = lean_ctor_get(x_70, 1); -lean_inc(x_72); -lean_dec(x_70); -x_73 = l_Lean_Expr_headBeta(x_72); -lean_inc(x_1); -x_74 = l_Lean_Meta_getMVarTag(x_1, x_4, x_71); -if (lean_obj_tag(x_74) == 0) -{ -lean_object* x_75; lean_object* x_76; uint8_t 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_75 = lean_ctor_get(x_74, 0); -lean_inc(x_75); -x_76 = lean_ctor_get(x_74, 1); -lean_inc(x_76); -lean_dec(x_74); -x_77 = 2; lean_inc(x_4); -x_78 = l_Lean_Meta_mkFreshExprMVar(x_73, x_75, x_77, x_4, x_76); -x_79 = lean_ctor_get(x_78, 0); +x_72 = l_Lean_Meta_whnf(x_70, x_4, x_71); +if (lean_obj_tag(x_72) == 0) +{ +lean_object* x_73; +x_73 = lean_ctor_get(x_72, 0); +lean_inc(x_73); +if (lean_obj_tag(x_73) == 7) +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +lean_dec(x_2); +x_74 = lean_ctor_get(x_72, 1); +lean_inc(x_74); +lean_dec(x_72); +x_75 = lean_ctor_get(x_73, 1); +lean_inc(x_75); +lean_dec(x_73); +x_76 = l_Lean_Expr_headBeta(x_75); +lean_inc(x_1); +x_77 = l_Lean_Meta_getMVarTag(x_1, x_4, x_74); +if (lean_obj_tag(x_77) == 0) +{ +lean_object* x_78; lean_object* x_79; uint8_t 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; +x_78 = lean_ctor_get(x_77, 0); +lean_inc(x_78); +x_79 = lean_ctor_get(x_77, 1); lean_inc(x_79); -x_80 = lean_ctor_get(x_78, 1); -lean_inc(x_80); -lean_dec(x_78); -lean_inc(x_79); -x_81 = l_Lean_mkApp(x_48, x_79); -x_82 = l_Lean_Expr_mvarId_x21(x_79); -lean_dec(x_79); -x_83 = l_Lean_Meta_assignExprMVar(x_1, x_81, x_4, x_80); -if (lean_obj_tag(x_83) == 0) -{ -lean_object* x_84; lean_object* x_85; -x_84 = lean_ctor_get(x_83, 1); -lean_inc(x_84); -lean_dec(x_83); -x_85 = l_Lean_Meta_tryClear(x_82, x_3, x_4, x_84); -lean_dec(x_4); -if (lean_obj_tag(x_85) == 0) -{ -uint8_t x_86; -x_86 = !lean_is_exclusive(x_85); -if (x_86 == 0) -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_85, 0); -x_88 = lean_ctor_get(x_44, 4); -lean_inc(x_88); -lean_dec(x_44); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_87); -lean_ctor_set(x_89, 1, x_88); -lean_ctor_set(x_85, 0, x_89); -return x_85; -} -else -{ -lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; -x_90 = lean_ctor_get(x_85, 0); -x_91 = lean_ctor_get(x_85, 1); -lean_inc(x_91); -lean_inc(x_90); -lean_dec(x_85); -x_92 = lean_ctor_get(x_44, 4); -lean_inc(x_92); -lean_dec(x_44); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_90); -lean_ctor_set(x_93, 1, x_92); -x_94 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_94, 0, x_93); -lean_ctor_set(x_94, 1, x_91); -return x_94; -} -} -else -{ -uint8_t x_95; -lean_dec(x_44); -x_95 = !lean_is_exclusive(x_85); -if (x_95 == 0) -{ -return x_85; -} -else -{ -lean_object* x_96; lean_object* x_97; lean_object* x_98; -x_96 = lean_ctor_get(x_85, 0); -x_97 = lean_ctor_get(x_85, 1); -lean_inc(x_97); -lean_inc(x_96); -lean_dec(x_85); -x_98 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_98, 0, x_96); -lean_ctor_set(x_98, 1, x_97); -return x_98; -} -} -} -else -{ -uint8_t x_99; +lean_dec(x_77); +x_80 = 2; +lean_inc(x_4); +x_81 = l_Lean_Meta_mkFreshExprMVar(x_76, x_78, x_80, x_4, x_79); +x_82 = lean_ctor_get(x_81, 0); +lean_inc(x_82); +x_83 = lean_ctor_get(x_81, 1); +lean_inc(x_83); +lean_dec(x_81); +lean_inc(x_82); +x_84 = l_Lean_mkApp(x_51, x_82); +x_85 = l_Lean_Expr_mvarId_x21(x_82); lean_dec(x_82); -lean_dec(x_44); +x_86 = l_Lean_Meta_assignExprMVar(x_1, x_84, x_4, x_83); +if (lean_obj_tag(x_86) == 0) +{ +lean_object* x_87; lean_object* x_88; +x_87 = lean_ctor_get(x_86, 1); +lean_inc(x_87); +lean_dec(x_86); +x_88 = l_Lean_Meta_tryClear(x_85, x_3, x_4, x_87); +lean_dec(x_4); +if (lean_obj_tag(x_88) == 0) +{ +uint8_t x_89; +x_89 = !lean_is_exclusive(x_88); +if (x_89 == 0) +{ +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_47, 4); +lean_inc(x_91); +lean_dec(x_47); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_90); +lean_ctor_set(x_92, 1, x_91); +lean_ctor_set(x_88, 0, x_92); +return x_88; +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; +x_93 = lean_ctor_get(x_88, 0); +x_94 = lean_ctor_get(x_88, 1); +lean_inc(x_94); +lean_inc(x_93); +lean_dec(x_88); +x_95 = lean_ctor_get(x_47, 4); +lean_inc(x_95); +lean_dec(x_47); +x_96 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_96, 0, x_93); +lean_ctor_set(x_96, 1, x_95); +x_97 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_97, 0, x_96); +lean_ctor_set(x_97, 1, x_94); +return x_97; +} +} +else +{ +uint8_t x_98; +lean_dec(x_47); +x_98 = !lean_is_exclusive(x_88); +if (x_98 == 0) +{ +return x_88; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_99 = lean_ctor_get(x_88, 0); +x_100 = lean_ctor_get(x_88, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_88); +x_101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_101, 0, x_99); +lean_ctor_set(x_101, 1, x_100); +return x_101; +} +} +} +else +{ +uint8_t x_102; +lean_dec(x_85); +lean_dec(x_47); lean_dec(x_4); lean_dec(x_3); -x_99 = !lean_is_exclusive(x_83); -if (x_99 == 0) +x_102 = !lean_is_exclusive(x_86); +if (x_102 == 0) { -return x_83; +return x_86; } else { -lean_object* x_100; lean_object* x_101; lean_object* x_102; -x_100 = lean_ctor_get(x_83, 0); -x_101 = lean_ctor_get(x_83, 1); -lean_inc(x_101); -lean_inc(x_100); -lean_dec(x_83); -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_100); -lean_ctor_set(x_102, 1, x_101); -return x_102; +lean_object* x_103; lean_object* x_104; lean_object* x_105; +x_103 = lean_ctor_get(x_86, 0); +x_104 = lean_ctor_get(x_86, 1); +lean_inc(x_104); +lean_inc(x_103); +lean_dec(x_86); +x_105 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_105, 0, x_103); +lean_ctor_set(x_105, 1, x_104); +return x_105; } } } else { -uint8_t x_103; -lean_dec(x_73); -lean_dec(x_48); -lean_dec(x_44); +uint8_t x_106; +lean_dec(x_76); +lean_dec(x_51); +lean_dec(x_47); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_103 = !lean_is_exclusive(x_74); -if (x_103 == 0) +x_106 = !lean_is_exclusive(x_77); +if (x_106 == 0) { -return x_74; -} -else -{ -lean_object* x_104; lean_object* x_105; lean_object* x_106; -x_104 = lean_ctor_get(x_74, 0); -x_105 = lean_ctor_get(x_74, 1); -lean_inc(x_105); -lean_inc(x_104); -lean_dec(x_74); -x_106 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_106, 0, x_104); -lean_ctor_set(x_106, 1, x_105); -return x_106; -} -} +return x_77; } else { lean_object* x_107; lean_object* x_108; lean_object* x_109; -lean_dec(x_70); -lean_dec(x_48); -lean_dec(x_44); -lean_dec(x_3); -x_107 = lean_ctor_get(x_69, 1); +x_107 = lean_ctor_get(x_77, 0); +x_108 = lean_ctor_get(x_77, 1); +lean_inc(x_108); lean_inc(x_107); -lean_dec(x_69); -x_108 = l_Lean_Meta_injectionCore___lambda__1___closed__6; -x_109 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_108, x_4, x_107); -lean_dec(x_4); +lean_dec(x_77); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_107); +lean_ctor_set(x_109, 1, x_108); return x_109; } } +} else { -uint8_t x_110; -lean_dec(x_48); -lean_dec(x_44); -lean_dec(x_4); +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +lean_dec(x_73); +lean_dec(x_51); +lean_dec(x_47); lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_110 = !lean_is_exclusive(x_69); -if (x_110 == 0) -{ -return x_69; -} -else -{ -lean_object* x_111; lean_object* x_112; lean_object* x_113; -x_111 = lean_ctor_get(x_69, 0); -x_112 = lean_ctor_get(x_69, 1); -lean_inc(x_112); -lean_inc(x_111); -lean_dec(x_69); -x_113 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_113, 0, x_111); -lean_ctor_set(x_113, 1, x_112); +x_110 = lean_ctor_get(x_72, 1); +lean_inc(x_110); +lean_dec(x_72); +x_111 = l_Lean_Meta_injectionCore___lambda__1___closed__6; +x_112 = lean_box(0); +x_113 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_111, x_112, x_4, x_110); +lean_dec(x_4); return x_113; } } -} else { uint8_t x_114; -lean_dec(x_48); -lean_dec(x_44); +lean_dec(x_51); +lean_dec(x_47); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_114 = !lean_is_exclusive(x_66); +x_114 = !lean_is_exclusive(x_72); if (x_114 == 0) { -return x_66; +return x_72; } else { lean_object* x_115; lean_object* x_116; lean_object* x_117; -x_115 = lean_ctor_get(x_66, 0); -x_116 = lean_ctor_get(x_66, 1); +x_115 = lean_ctor_get(x_72, 0); +x_116 = lean_ctor_get(x_72, 1); lean_inc(x_116); lean_inc(x_115); -lean_dec(x_66); +lean_dec(x_72); x_117 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_117, 0, x_115); lean_ctor_set(x_117, 1, x_116); @@ -849,29 +824,28 @@ return x_117; } } } -} else { uint8_t x_118; -lean_dec(x_45); -lean_dec(x_44); +lean_dec(x_51); +lean_dec(x_47); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_118 = !lean_is_exclusive(x_47); +x_118 = !lean_is_exclusive(x_69); if (x_118 == 0) { -return x_47; +return x_69; } else { lean_object* x_119; lean_object* x_120; lean_object* x_121; -x_119 = lean_ctor_get(x_47, 0); -x_120 = lean_ctor_get(x_47, 1); +x_119 = lean_ctor_get(x_69, 0); +x_120 = lean_ctor_get(x_69, 1); lean_inc(x_120); lean_inc(x_119); -lean_dec(x_47); +lean_dec(x_69); x_121 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_121, 0, x_119); lean_ctor_set(x_121, 1, x_120); @@ -880,29 +854,28 @@ return x_121; } } } -} else { uint8_t x_122; -lean_dec(x_27); -lean_dec(x_24); +lean_dec(x_48); +lean_dec(x_47); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_122 = !lean_is_exclusive(x_29); +x_122 = !lean_is_exclusive(x_50); if (x_122 == 0) { -return x_29; +return x_50; } else { lean_object* x_123; lean_object* x_124; lean_object* x_125; -x_123 = lean_ctor_get(x_29, 0); -x_124 = lean_ctor_get(x_29, 1); +x_123 = lean_ctor_get(x_50, 0); +x_124 = lean_ctor_get(x_50, 1); lean_inc(x_124); lean_inc(x_123); -lean_dec(x_29); +lean_dec(x_50); x_125 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_125, 0, x_123); lean_ctor_set(x_125, 1, x_124); @@ -910,27 +883,30 @@ return x_125; } } } +} +} else { uint8_t x_126; -lean_dec(x_24); +lean_dec(x_28); +lean_dec(x_25); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_126 = !lean_is_exclusive(x_26); +x_126 = !lean_is_exclusive(x_30); if (x_126 == 0) { -return x_26; +return x_30; } else { lean_object* x_127; lean_object* x_128; lean_object* x_129; -x_127 = lean_ctor_get(x_26, 0); -x_128 = lean_ctor_get(x_26, 1); +x_127 = lean_ctor_get(x_30, 0); +x_128 = lean_ctor_get(x_30, 1); lean_inc(x_128); lean_inc(x_127); -lean_dec(x_26); +lean_dec(x_30); x_129 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_129, 0, x_127); lean_ctor_set(x_129, 1, x_128); @@ -941,24 +917,24 @@ return x_129; else { uint8_t x_130; -lean_dec(x_22); +lean_dec(x_25); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_130 = !lean_is_exclusive(x_23); +x_130 = !lean_is_exclusive(x_27); if (x_130 == 0) { -return x_23; +return x_27; } else { lean_object* x_131; lean_object* x_132; lean_object* x_133; -x_131 = lean_ctor_get(x_23, 0); -x_132 = lean_ctor_get(x_23, 1); +x_131 = lean_ctor_get(x_27, 0); +x_132 = lean_ctor_get(x_27, 1); lean_inc(x_132); lean_inc(x_131); -lean_dec(x_23); +lean_dec(x_27); x_133 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_133, 0, x_131); lean_ctor_set(x_133, 1, x_132); @@ -966,27 +942,27 @@ return x_133; } } } -} else { uint8_t x_134; +lean_dec(x_23); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_134 = !lean_is_exclusive(x_12); +x_134 = !lean_is_exclusive(x_24); if (x_134 == 0) { -return x_12; +return x_24; } else { lean_object* x_135; lean_object* x_136; lean_object* x_137; -x_135 = lean_ctor_get(x_12, 0); -x_136 = lean_ctor_get(x_12, 1); +x_135 = lean_ctor_get(x_24, 0); +x_136 = lean_ctor_get(x_24, 1); lean_inc(x_136); lean_inc(x_135); -lean_dec(x_12); +lean_dec(x_24); x_137 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_137, 0, x_135); lean_ctor_set(x_137, 1, x_136); @@ -994,6 +970,7 @@ return x_137; } } } +} else { uint8_t x_138; @@ -1001,19 +978,19 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_138 = !lean_is_exclusive(x_8); +x_138 = !lean_is_exclusive(x_12); if (x_138 == 0) { -return x_8; +return x_12; } else { lean_object* x_139; lean_object* x_140; lean_object* x_141; -x_139 = lean_ctor_get(x_8, 0); -x_140 = lean_ctor_get(x_8, 1); +x_139 = lean_ctor_get(x_12, 0); +x_140 = lean_ctor_get(x_12, 1); lean_inc(x_140); lean_inc(x_139); -lean_dec(x_8); +lean_dec(x_12); x_141 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_141, 0, x_139); lean_ctor_set(x_141, 1, x_140); @@ -1028,23 +1005,50 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_142 = !lean_is_exclusive(x_6); +x_142 = !lean_is_exclusive(x_8); if (x_142 == 0) { +return x_8; +} +else +{ +lean_object* x_143; lean_object* x_144; lean_object* x_145; +x_143 = lean_ctor_get(x_8, 0); +x_144 = lean_ctor_get(x_8, 1); +lean_inc(x_144); +lean_inc(x_143); +lean_dec(x_8); +x_145 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_145, 0, x_143); +lean_ctor_set(x_145, 1, x_144); +return x_145; +} +} +} +else +{ +uint8_t x_146; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_146 = !lean_is_exclusive(x_6); +if (x_146 == 0) +{ return x_6; } else { -lean_object* x_143; lean_object* x_144; lean_object* x_145; -x_143 = lean_ctor_get(x_6, 0); -x_144 = lean_ctor_get(x_6, 1); -lean_inc(x_144); -lean_inc(x_143); +lean_object* x_147; lean_object* x_148; lean_object* x_149; +x_147 = lean_ctor_get(x_6, 0); +x_148 = lean_ctor_get(x_6, 1); +lean_inc(x_148); +lean_inc(x_147); lean_dec(x_6); -x_145 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_145, 0, x_143); -lean_ctor_set(x_145, 1, x_144); -return x_145; +x_149 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_149, 0, x_147); +lean_ctor_set(x_149, 1, x_148); +return x_149; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Intro.c b/stage0/stdlib/Lean/Meta/Tactic/Intro.c index a409cb1007..7edf6ec8d5 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Intro.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Intro.c @@ -73,7 +73,7 @@ lean_object* l_Lean_Meta_mkAuxName___closed__1; lean_object* l_Lean_LocalDecl_type(lean_object*); lean_object* lean_local_ctx_mk_local_decl(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Array_umapMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_introNCore___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); @@ -155,7 +155,7 @@ uint8_t x_11; x_11 = l_Lean_Expr_isForall(x_8); if (x_11 == 0) { -lean_object* x_12; lean_object* x_13; lean_object* x_14; +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); @@ -165,15 +165,16 @@ lean_dec(x_3); lean_dec(x_2); x_12 = l_Lean_Meta_introNCoreAux___main___rarg___lambda__1___closed__2; x_13 = l_Lean_Meta_introNCoreAux___main___rarg___lambda__1___closed__5; -x_14 = l_Lean_Meta_throwTacticEx___rarg(x_12, x_1, x_13, x_9, x_10); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwTacticEx___rarg(x_12, x_1, x_13, x_14, x_9, x_10); lean_dec(x_9); -return x_14; +return x_15; } else { -lean_object* x_15; -x_15 = l_Lean_Meta_introNCoreAux___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); -return x_15; +lean_object* x_16; +x_16 = l_Lean_Meta_introNCoreAux___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +return x_16; } } } @@ -2927,7 +2928,7 @@ uint8_t x_11; x_11 = l_Lean_Expr_isForall(x_8); if (x_11 == 0) { -lean_object* x_12; lean_object* x_13; lean_object* x_14; +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); @@ -2936,15 +2937,16 @@ lean_dec(x_4); lean_dec(x_3); x_12 = l_Lean_Meta_introNCoreAux___main___rarg___lambda__1___closed__2; x_13 = l_Lean_Meta_introNCoreAux___main___rarg___lambda__1___closed__5; -x_14 = l_Lean_Meta_throwTacticEx___rarg(x_12, x_1, x_13, x_9, x_10); +x_14 = lean_box(0); +x_15 = l_Lean_Meta_throwTacticEx___rarg(x_12, x_1, x_13, x_14, x_9, x_10); lean_dec(x_9); -return x_14; +return x_15; } else { -lean_object* x_15; -x_15 = l_Lean_Meta_introNCoreAux___main___at_Lean_Meta_introN___spec__2(x_2, x_1, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); -return x_15; +lean_object* x_16; +x_16 = l_Lean_Meta_introNCoreAux___main___at_Lean_Meta_introN___spec__2(x_2, x_1, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +return x_16; } } } @@ -5438,9 +5440,29 @@ return x_19; lean_object* l_Lean_Meta_introN(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { _start: { -lean_object* x_7; -x_7 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_4, x_1, x_2, x_3, x_5, x_6); -return x_7; +lean_object* x_7; uint8_t x_8; +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_nat_dec_eq(x_2, x_7); +if (x_8 == 0) +{ +lean_object* x_9; +x_9 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_4, x_1, x_2, x_3, x_5, x_6); +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +lean_dec(x_3); +lean_dec(x_2); +x_10 = l_Array_empty___closed__1; +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_1); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_6); +return x_12; +} } } lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_introN___spec__3___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) { @@ -5520,14 +5542,14 @@ return x_8; lean_object* l_Lean_Meta_intro(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; lean_object* x_9; +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; x_5 = lean_box(0); x_6 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_6, 0, x_2); lean_ctor_set(x_6, 1, x_5); -x_7 = 1; -x_8 = lean_unsigned_to_nat(1u); -x_9 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_7, x_1, x_8, x_6, x_3, x_4); +x_7 = lean_unsigned_to_nat(1u); +x_8 = 1; +x_9 = l_Lean_Meta_introN(x_1, x_7, x_6, x_8, x_3, x_4); if (lean_obj_tag(x_9) == 0) { uint8_t x_10; @@ -5643,7 +5665,7 @@ _start: lean_object* x_5; lean_object* x_6; lean_object* x_7; x_5 = lean_box(0); x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_2, x_1, x_6, x_5, x_3, x_4); +x_7 = l_Lean_Meta_introN(x_1, x_6, x_5, x_2, x_3, x_4); if (lean_obj_tag(x_7) == 0) { uint8_t x_8; diff --git a/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c b/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c index c4acae8d6e..184ed710f7 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c @@ -48,7 +48,7 @@ uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object* lean_object* l_Lean_Meta_rewriteCore___closed__2; lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__13; lean_object* l_Lean_Meta_forallMetaTelescopeReducing(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_rewriteCore___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__3; lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); @@ -330,445 +330,449 @@ x_29 = lean_unsigned_to_nat(3u); x_30 = l_Lean_Expr_isAppOfArity___main(x_22, x_28, x_29); if (x_30 == 0) { -lean_object* x_31; lean_object* x_32; +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_dec(x_24); lean_dec(x_22); lean_dec(x_21); lean_dec(x_20); lean_dec(x_5); x_31 = l_Lean_Meta_rewriteCore___lambda__1___closed__3; -x_32 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_31, x_7, x_19); +x_32 = lean_box(0); +x_33 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_31, x_32, x_7, x_19); lean_dec(x_7); -return x_32; +return x_33; } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_33 = l_Lean_Expr_appFn_x21(x_22); -x_34 = l_Lean_Expr_appFn_x21(x_33); -x_35 = l_Lean_Expr_appArg_x21(x_34); +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_34 = l_Lean_Expr_appFn_x21(x_22); +x_35 = l_Lean_Expr_appFn_x21(x_34); +x_36 = l_Lean_Expr_appArg_x21(x_35); +lean_dec(x_35); +x_37 = l_Lean_Expr_appArg_x21(x_34); lean_dec(x_34); -x_36 = l_Lean_Expr_appArg_x21(x_33); -lean_dec(x_33); -x_37 = l_Lean_Expr_appArg_x21(x_22); +x_38 = l_Lean_Expr_appArg_x21(x_22); lean_dec(x_22); if (x_4 == 0) { -lean_object* x_38; uint8_t x_39; uint8_t x_40; -x_38 = l_Lean_Expr_getAppFn___main(x_36); -x_39 = l_Lean_Expr_isMVar(x_38); -lean_dec(x_38); -if (x_39 == 0) -{ -uint8_t x_130; -x_130 = 0; -x_40 = x_130; -goto block_129; -} -else -{ -uint8_t x_131; -x_131 = 1; -x_40 = x_131; -goto block_129; -} -block_129: -{ -lean_object* x_41; +lean_object* x_39; uint8_t x_40; uint8_t x_41; +x_39 = l_Lean_Expr_getAppFn___main(x_37); +x_40 = l_Lean_Expr_isMVar(x_39); +lean_dec(x_39); if (x_40 == 0) { -x_41 = x_19; -goto block_122; +uint8_t x_134; +x_134 = 0; +x_41 = x_134; +goto block_133; } else { -lean_object* x_123; lean_object* x_124; uint8_t x_125; +uint8_t x_135; +x_135 = 1; +x_41 = x_135; +goto block_133; +} +block_133: +{ +lean_object* x_42; +if (x_41 == 0) +{ +x_42 = x_19; +goto block_125; +} +else +{ +lean_object* x_126; lean_object* x_127; lean_object* x_128; uint8_t x_129; +lean_dec(x_38); lean_dec(x_37); lean_dec(x_36); -lean_dec(x_35); lean_dec(x_24); lean_dec(x_21); lean_dec(x_20); lean_dec(x_5); -x_123 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; -x_124 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_123, x_7, x_19); +x_126 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_127 = lean_box(0); +x_128 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_126, x_127, x_7, x_19); lean_dec(x_7); -x_125 = !lean_is_exclusive(x_124); -if (x_125 == 0) +x_129 = !lean_is_exclusive(x_128); +if (x_129 == 0) { -return x_124; -} -else -{ -lean_object* x_126; lean_object* x_127; lean_object* x_128; -x_126 = lean_ctor_get(x_124, 0); -x_127 = lean_ctor_get(x_124, 1); -lean_inc(x_127); -lean_inc(x_126); -lean_dec(x_124); -x_128 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_128, 0, x_126); -lean_ctor_set(x_128, 1, x_127); return x_128; } -} -block_122: +else { -lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_42 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_41); -x_43 = lean_ctor_get(x_42, 0); -lean_inc(x_43); -x_44 = lean_ctor_get(x_42, 1); +lean_object* x_130; lean_object* x_131; lean_object* x_132; +x_130 = lean_ctor_get(x_128, 0); +x_131 = lean_ctor_get(x_128, 1); +lean_inc(x_131); +lean_inc(x_130); +lean_dec(x_128); +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; +} +} +block_125: +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_43 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_42); +x_44 = lean_ctor_get(x_43, 0); lean_inc(x_44); -lean_dec(x_42); +x_45 = lean_ctor_get(x_43, 1); +lean_inc(x_45); +lean_dec(x_43); lean_inc(x_7); -lean_inc(x_43); -x_45 = l_Lean_Meta_kabstract(x_43, x_36, x_6, x_7, x_44); -if (lean_obj_tag(x_45) == 0) +lean_inc(x_44); +x_46 = l_Lean_Meta_kabstract(x_44, x_37, x_6, x_7, x_45); +if (lean_obj_tag(x_46) == 0) { -lean_object* x_46; lean_object* x_47; uint8_t x_48; lean_object* x_49; lean_object* x_50; -x_46 = lean_ctor_get(x_45, 0); -lean_inc(x_46); -x_47 = lean_ctor_get(x_45, 1); +lean_object* x_47; lean_object* x_48; uint8_t x_49; lean_object* x_50; lean_object* x_51; +x_47 = lean_ctor_get(x_46, 0); lean_inc(x_47); -lean_dec(x_45); -x_48 = l_Lean_Expr_hasLooseBVars(x_46); -x_49 = lean_expr_instantiate1(x_46, x_37); -lean_dec(x_37); -if (x_48 == 0) -{ -lean_object* x_112; lean_object* x_113; uint8_t x_114; -lean_dec(x_49); +x_48 = lean_ctor_get(x_46, 1); +lean_inc(x_48); lean_dec(x_46); -lean_dec(x_43); -lean_dec(x_35); +x_49 = l_Lean_Expr_hasLooseBVars(x_47); +x_50 = lean_expr_instantiate1(x_47, x_38); +lean_dec(x_38); +if (x_49 == 0) +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; uint8_t x_117; +lean_dec(x_50); +lean_dec(x_47); +lean_dec(x_44); +lean_dec(x_36); lean_dec(x_24); lean_dec(x_21); lean_dec(x_20); -x_112 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; -x_113 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_112, x_7, x_47); +x_114 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_115 = lean_box(0); +x_116 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_114, x_115, x_7, x_48); lean_dec(x_7); -x_114 = !lean_is_exclusive(x_113); -if (x_114 == 0) +x_117 = !lean_is_exclusive(x_116); +if (x_117 == 0) { -return x_113; +return x_116; } else { -lean_object* x_115; lean_object* x_116; lean_object* x_117; -x_115 = lean_ctor_get(x_113, 0); -x_116 = lean_ctor_get(x_113, 1); -lean_inc(x_116); -lean_inc(x_115); -lean_dec(x_113); -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_115); -lean_ctor_set(x_117, 1, x_116); -return x_117; -} -} -else -{ -x_50 = x_47; -goto block_111; -} -block_111: -{ -lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_51 = l_Lean_Meta_instantiateMVars(x_49, x_7, x_50); -x_52 = lean_ctor_get(x_51, 0); -lean_inc(x_52); -x_53 = lean_ctor_get(x_51, 1); -lean_inc(x_53); -lean_dec(x_51); -lean_inc(x_7); -lean_inc_n(x_43, 2); -x_54 = l_Lean_Meta_mkEq(x_43, x_43, x_7, x_53); -if (lean_obj_tag(x_54) == 0) -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; lean_object* x_61; lean_object* x_62; lean_object* x_96; lean_object* x_97; uint8_t x_98; -x_55 = lean_ctor_get(x_54, 0); -lean_inc(x_55); -x_56 = lean_ctor_get(x_54, 1); -lean_inc(x_56); -lean_dec(x_54); -x_57 = l_Lean_Expr_appFn_x21(x_55); -lean_dec(x_55); -x_58 = l_Lean_mkApp(x_57, x_46); -x_59 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; -x_60 = 0; -x_61 = l_Lean_mkLambda(x_59, x_60, x_35, x_58); -lean_inc(x_7); -lean_inc(x_61); -x_96 = l_Lean_Meta_isTypeCorrect(x_61, x_7, x_56); -x_97 = lean_ctor_get(x_96, 0); -lean_inc(x_97); -x_98 = lean_unbox(x_97); -lean_dec(x_97); -if (x_98 == 0) -{ -lean_object* x_99; lean_object* x_100; lean_object* x_101; uint8_t x_102; -lean_dec(x_61); -lean_dec(x_52); -lean_dec(x_43); -lean_dec(x_24); -lean_dec(x_21); -lean_dec(x_20); -x_99 = lean_ctor_get(x_96, 1); -lean_inc(x_99); -lean_dec(x_96); -x_100 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; -x_101 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_100, x_7, x_99); -lean_dec(x_7); -x_102 = !lean_is_exclusive(x_101); -if (x_102 == 0) -{ -return x_101; -} -else -{ -lean_object* x_103; lean_object* x_104; lean_object* x_105; -x_103 = lean_ctor_get(x_101, 0); -x_104 = lean_ctor_get(x_101, 1); -lean_inc(x_104); -lean_inc(x_103); -lean_dec(x_101); -x_105 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_105, 0, x_103); -lean_ctor_set(x_105, 1, x_104); -return x_105; -} -} -else -{ -lean_object* x_106; -x_106 = lean_ctor_get(x_96, 1); -lean_inc(x_106); -lean_dec(x_96); -x_62 = x_106; -goto block_95; -} -block_95: -{ -lean_object* x_63; -lean_inc(x_7); -x_63 = l_Lean_Meta_mkEqRefl(x_43, x_7, x_62); -if (lean_obj_tag(x_63) == 0) -{ -lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_64 = lean_ctor_get(x_63, 0); -lean_inc(x_64); -x_65 = lean_ctor_get(x_63, 1); -lean_inc(x_65); -lean_dec(x_63); -lean_inc(x_7); -x_66 = l_Lean_Meta_mkEqNDRec(x_61, x_64, x_24, x_7, x_65); -if (lean_obj_tag(x_66) == 0) -{ -lean_object* x_67; lean_object* x_68; lean_object* x_69; -x_67 = lean_ctor_get(x_66, 0); -lean_inc(x_67); -x_68 = lean_ctor_get(x_66, 1); -lean_inc(x_68); -lean_dec(x_66); -lean_inc(x_7); -x_69 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_68); -lean_dec(x_21); -if (lean_obj_tag(x_69) == 0) -{ -lean_object* x_70; lean_object* x_71; uint8_t x_72; -x_70 = lean_ctor_get(x_69, 1); -lean_inc(x_70); -lean_dec(x_69); -x_71 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_70); -lean_dec(x_7); -x_72 = !lean_is_exclusive(x_71); -if (x_72 == 0) -{ -lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_73 = lean_ctor_get(x_71, 0); -x_74 = l_Array_toList___rarg(x_73); -lean_dec(x_73); -x_75 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_74); -x_76 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_76, 0, x_52); -lean_ctor_set(x_76, 1, x_67); -lean_ctor_set(x_76, 2, x_75); -lean_ctor_set(x_71, 0, x_76); -return x_71; -} -else -{ -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_71, 0); -x_78 = lean_ctor_get(x_71, 1); -lean_inc(x_78); -lean_inc(x_77); -lean_dec(x_71); -x_79 = l_Array_toList___rarg(x_77); -lean_dec(x_77); -x_80 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_79); -x_81 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_81, 0, x_52); -lean_ctor_set(x_81, 1, x_67); -lean_ctor_set(x_81, 2, x_80); -x_82 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_82, 0, x_81); -lean_ctor_set(x_82, 1, x_78); -return x_82; -} -} -else -{ -uint8_t x_83; -lean_dec(x_67); -lean_dec(x_52); -lean_dec(x_20); -lean_dec(x_7); -x_83 = !lean_is_exclusive(x_69); -if (x_83 == 0) -{ -return x_69; -} -else -{ -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_69, 0); -x_85 = lean_ctor_get(x_69, 1); -lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_69); -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 -{ -uint8_t x_87; -lean_dec(x_52); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_87 = !lean_is_exclusive(x_66); -if (x_87 == 0) -{ -return x_66; -} -else -{ -lean_object* x_88; lean_object* x_89; lean_object* x_90; -x_88 = lean_ctor_get(x_66, 0); -x_89 = lean_ctor_get(x_66, 1); -lean_inc(x_89); -lean_inc(x_88); -lean_dec(x_66); -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; -} -} -} -else -{ -uint8_t x_91; -lean_dec(x_61); -lean_dec(x_52); -lean_dec(x_24); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_91 = !lean_is_exclusive(x_63); -if (x_91 == 0) -{ -return x_63; -} -else -{ -lean_object* x_92; lean_object* x_93; lean_object* x_94; -x_92 = lean_ctor_get(x_63, 0); -x_93 = lean_ctor_get(x_63, 1); -lean_inc(x_93); -lean_inc(x_92); -lean_dec(x_63); -x_94 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_94, 0, x_92); -lean_ctor_set(x_94, 1, x_93); -return x_94; -} -} -} -} -else -{ -uint8_t x_107; -lean_dec(x_52); -lean_dec(x_46); -lean_dec(x_43); -lean_dec(x_35); -lean_dec(x_24); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_107 = !lean_is_exclusive(x_54); -if (x_107 == 0) -{ -return x_54; -} -else -{ -lean_object* x_108; lean_object* x_109; lean_object* x_110; -x_108 = lean_ctor_get(x_54, 0); -x_109 = lean_ctor_get(x_54, 1); -lean_inc(x_109); -lean_inc(x_108); -lean_dec(x_54); -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_108); -lean_ctor_set(x_110, 1, x_109); -return x_110; -} -} -} -} -else -{ -uint8_t x_118; -lean_dec(x_43); -lean_dec(x_37); -lean_dec(x_35); -lean_dec(x_24); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_118 = !lean_is_exclusive(x_45); -if (x_118 == 0) -{ -return x_45; -} -else -{ -lean_object* x_119; lean_object* x_120; lean_object* x_121; -x_119 = lean_ctor_get(x_45, 0); -x_120 = lean_ctor_get(x_45, 1); -lean_inc(x_120); +lean_object* x_118; lean_object* x_119; lean_object* x_120; +x_118 = lean_ctor_get(x_116, 0); +x_119 = lean_ctor_get(x_116, 1); lean_inc(x_119); -lean_dec(x_45); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_119); -lean_ctor_set(x_121, 1, x_120); -return x_121; +lean_inc(x_118); +lean_dec(x_116); +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; +} +} +else +{ +x_51 = x_48; +goto block_113; +} +block_113: +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_52 = l_Lean_Meta_instantiateMVars(x_50, x_7, x_51); +x_53 = lean_ctor_get(x_52, 0); +lean_inc(x_53); +x_54 = lean_ctor_get(x_52, 1); +lean_inc(x_54); +lean_dec(x_52); +lean_inc(x_7); +lean_inc_n(x_44, 2); +x_55 = l_Lean_Meta_mkEq(x_44, x_44, x_7, x_54); +if (lean_obj_tag(x_55) == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; uint8_t x_61; lean_object* x_62; lean_object* x_63; lean_object* x_97; lean_object* x_98; uint8_t x_99; +x_56 = lean_ctor_get(x_55, 0); +lean_inc(x_56); +x_57 = lean_ctor_get(x_55, 1); +lean_inc(x_57); +lean_dec(x_55); +x_58 = l_Lean_Expr_appFn_x21(x_56); +lean_dec(x_56); +x_59 = l_Lean_mkApp(x_58, x_47); +x_60 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_61 = 0; +x_62 = l_Lean_mkLambda(x_60, x_61, x_36, x_59); +lean_inc(x_7); +lean_inc(x_62); +x_97 = l_Lean_Meta_isTypeCorrect(x_62, x_7, x_57); +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_unbox(x_98); +lean_dec(x_98); +if (x_99 == 0) +{ +lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; uint8_t x_104; +lean_dec(x_62); +lean_dec(x_53); +lean_dec(x_44); +lean_dec(x_24); +lean_dec(x_21); +lean_dec(x_20); +x_100 = lean_ctor_get(x_97, 1); +lean_inc(x_100); +lean_dec(x_97); +x_101 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_102 = lean_box(0); +x_103 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_101, x_102, x_7, x_100); +lean_dec(x_7); +x_104 = !lean_is_exclusive(x_103); +if (x_104 == 0) +{ +return x_103; +} +else +{ +lean_object* x_105; lean_object* x_106; lean_object* x_107; +x_105 = lean_ctor_get(x_103, 0); +x_106 = lean_ctor_get(x_103, 1); +lean_inc(x_106); +lean_inc(x_105); +lean_dec(x_103); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_105); +lean_ctor_set(x_107, 1, x_106); +return x_107; +} +} +else +{ +lean_object* x_108; +x_108 = lean_ctor_get(x_97, 1); +lean_inc(x_108); +lean_dec(x_97); +x_63 = x_108; +goto block_96; +} +block_96: +{ +lean_object* x_64; +lean_inc(x_7); +x_64 = l_Lean_Meta_mkEqRefl(x_44, x_7, x_63); +if (lean_obj_tag(x_64) == 0) +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; +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); +lean_inc(x_7); +x_67 = l_Lean_Meta_mkEqNDRec(x_62, x_65, x_24, x_7, x_66); +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_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_69); +lean_dec(x_21); +if (lean_obj_tag(x_70) == 0) +{ +lean_object* x_71; lean_object* x_72; uint8_t x_73; +x_71 = lean_ctor_get(x_70, 1); +lean_inc(x_71); +lean_dec(x_70); +x_72 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_71); +lean_dec(x_7); +x_73 = !lean_is_exclusive(x_72); +if (x_73 == 0) +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_74 = lean_ctor_get(x_72, 0); +x_75 = l_Array_toList___rarg(x_74); +lean_dec(x_74); +x_76 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_75); +x_77 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_77, 0, x_53); +lean_ctor_set(x_77, 1, x_68); +lean_ctor_set(x_77, 2, x_76); +lean_ctor_set(x_72, 0, x_77); +return x_72; +} +else +{ +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_78 = lean_ctor_get(x_72, 0); +x_79 = lean_ctor_get(x_72, 1); +lean_inc(x_79); +lean_inc(x_78); +lean_dec(x_72); +x_80 = l_Array_toList___rarg(x_78); +lean_dec(x_78); +x_81 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_80); +x_82 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_82, 0, x_53); +lean_ctor_set(x_82, 1, x_68); +lean_ctor_set(x_82, 2, x_81); +x_83 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_83, 0, x_82); +lean_ctor_set(x_83, 1, x_79); +return x_83; +} +} +else +{ +uint8_t x_84; +lean_dec(x_68); +lean_dec(x_53); +lean_dec(x_20); +lean_dec(x_7); +x_84 = !lean_is_exclusive(x_70); +if (x_84 == 0) +{ +return x_70; +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_85 = lean_ctor_get(x_70, 0); +x_86 = lean_ctor_get(x_70, 1); +lean_inc(x_86); +lean_inc(x_85); +lean_dec(x_70); +x_87 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_87, 0, x_85); +lean_ctor_set(x_87, 1, x_86); +return x_87; +} +} +} +else +{ +uint8_t x_88; +lean_dec(x_53); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_88 = !lean_is_exclusive(x_67); +if (x_88 == 0) +{ +return x_67; +} +else +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; +x_89 = lean_ctor_get(x_67, 0); +x_90 = lean_ctor_get(x_67, 1); +lean_inc(x_90); +lean_inc(x_89); +lean_dec(x_67); +x_91 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_91, 0, x_89); +lean_ctor_set(x_91, 1, x_90); +return x_91; +} +} +} +else +{ +uint8_t x_92; +lean_dec(x_62); +lean_dec(x_53); +lean_dec(x_24); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_92 = !lean_is_exclusive(x_64); +if (x_92 == 0) +{ +return x_64; +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_93 = lean_ctor_get(x_64, 0); +x_94 = lean_ctor_get(x_64, 1); +lean_inc(x_94); +lean_inc(x_93); +lean_dec(x_64); +x_95 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_95, 0, x_93); +lean_ctor_set(x_95, 1, x_94); +return x_95; +} +} +} +} +else +{ +uint8_t x_109; +lean_dec(x_53); +lean_dec(x_47); +lean_dec(x_44); +lean_dec(x_36); +lean_dec(x_24); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_109 = !lean_is_exclusive(x_55); +if (x_109 == 0) +{ +return x_55; +} +else +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; +x_110 = lean_ctor_get(x_55, 0); +x_111 = lean_ctor_get(x_55, 1); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_55); +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_110); +lean_ctor_set(x_112, 1, x_111); +return x_112; +} +} +} +} +else +{ +uint8_t x_121; +lean_dec(x_44); +lean_dec(x_38); +lean_dec(x_36); +lean_dec(x_24); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_121 = !lean_is_exclusive(x_46); +if (x_121 == 0) +{ +return x_46; +} +else +{ +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_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; } } } @@ -776,322 +780,296 @@ return x_121; } else { -lean_object* x_132; +lean_object* x_136; lean_inc(x_7); -x_132 = l_Lean_Meta_mkEqSymm(x_24, x_7, x_19); -if (lean_obj_tag(x_132) == 0) +x_136 = l_Lean_Meta_mkEqSymm(x_24, x_7, x_19); +if (lean_obj_tag(x_136) == 0) { -lean_object* x_133; lean_object* x_134; lean_object* x_135; -x_133 = lean_ctor_get(x_132, 0); -lean_inc(x_133); -x_134 = lean_ctor_get(x_132, 1); -lean_inc(x_134); -lean_dec(x_132); +lean_object* x_137; lean_object* x_138; lean_object* x_139; +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); lean_inc(x_7); -lean_inc(x_36); lean_inc(x_37); -x_135 = l_Lean_Meta_mkEq(x_37, x_36, x_7, x_134); -if (lean_obj_tag(x_135) == 0) +lean_inc(x_38); +x_139 = l_Lean_Meta_mkEq(x_38, x_37, x_7, x_138); +if (lean_obj_tag(x_139) == 0) { -lean_object* x_136; lean_object* x_137; uint8_t x_138; lean_object* x_139; -x_136 = lean_ctor_get(x_135, 1); -lean_inc(x_136); -lean_dec(x_135); -x_137 = l_Lean_Expr_getAppFn___main(x_37); -x_138 = l_Lean_Expr_isMVar(x_137); -lean_dec(x_137); -if (x_138 == 0) +lean_object* x_140; lean_object* x_141; uint8_t x_142; lean_object* x_143; +x_140 = lean_ctor_get(x_139, 1); +lean_inc(x_140); +lean_dec(x_139); +x_141 = l_Lean_Expr_getAppFn___main(x_38); +x_142 = l_Lean_Expr_isMVar(x_141); +lean_dec(x_141); +if (x_142 == 0) { -x_139 = x_136; -goto block_220; +x_143 = x_140; +goto block_226; } else { -lean_object* x_221; lean_object* x_222; uint8_t x_223; -lean_dec(x_133); +lean_object* x_227; lean_object* x_228; lean_object* x_229; uint8_t x_230; +lean_dec(x_137); +lean_dec(x_38); lean_dec(x_37); lean_dec(x_36); -lean_dec(x_35); lean_dec(x_21); lean_dec(x_20); lean_dec(x_5); -x_221 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; -x_222 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_221, x_7, x_136); +x_227 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_228 = lean_box(0); +x_229 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_227, x_228, x_7, x_140); lean_dec(x_7); -x_223 = !lean_is_exclusive(x_222); -if (x_223 == 0) +x_230 = !lean_is_exclusive(x_229); +if (x_230 == 0) { -return x_222; +return x_229; } else { -lean_object* x_224; lean_object* x_225; lean_object* x_226; -x_224 = lean_ctor_get(x_222, 0); -x_225 = lean_ctor_get(x_222, 1); -lean_inc(x_225); -lean_inc(x_224); -lean_dec(x_222); -x_226 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_226, 0, x_224); -lean_ctor_set(x_226, 1, x_225); -return x_226; +lean_object* x_231; lean_object* x_232; lean_object* x_233; +x_231 = lean_ctor_get(x_229, 0); +x_232 = lean_ctor_get(x_229, 1); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_229); +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; } } -block_220: +block_226: { -lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; -x_140 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_139); -x_141 = lean_ctor_get(x_140, 0); -lean_inc(x_141); -x_142 = lean_ctor_get(x_140, 1); -lean_inc(x_142); -lean_dec(x_140); -lean_inc(x_7); -lean_inc(x_141); -x_143 = l_Lean_Meta_kabstract(x_141, x_37, x_6, x_7, x_142); -if (lean_obj_tag(x_143) == 0) -{ -lean_object* x_144; lean_object* x_145; uint8_t x_146; lean_object* x_147; lean_object* x_148; -x_144 = lean_ctor_get(x_143, 0); -lean_inc(x_144); -x_145 = lean_ctor_get(x_143, 1); +lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; +x_144 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_143); +x_145 = lean_ctor_get(x_144, 0); lean_inc(x_145); -lean_dec(x_143); -x_146 = l_Lean_Expr_hasLooseBVars(x_144); -x_147 = lean_expr_instantiate1(x_144, x_36); -lean_dec(x_36); -if (x_146 == 0) -{ -lean_object* x_210; lean_object* x_211; uint8_t x_212; -lean_dec(x_147); +x_146 = lean_ctor_get(x_144, 1); +lean_inc(x_146); lean_dec(x_144); -lean_dec(x_141); -lean_dec(x_133); -lean_dec(x_35); +lean_inc(x_7); +lean_inc(x_145); +x_147 = l_Lean_Meta_kabstract(x_145, x_38, x_6, x_7, x_146); +if (lean_obj_tag(x_147) == 0) +{ +lean_object* x_148; lean_object* x_149; uint8_t x_150; lean_object* x_151; lean_object* x_152; +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 = l_Lean_Expr_hasLooseBVars(x_148); +x_151 = lean_expr_instantiate1(x_148, x_37); +lean_dec(x_37); +if (x_150 == 0) +{ +lean_object* x_215; lean_object* x_216; lean_object* x_217; uint8_t x_218; +lean_dec(x_151); +lean_dec(x_148); +lean_dec(x_145); +lean_dec(x_137); +lean_dec(x_36); lean_dec(x_21); lean_dec(x_20); -x_210 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; -x_211 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_210, x_7, x_145); +x_215 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_216 = lean_box(0); +x_217 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_215, x_216, x_7, x_149); lean_dec(x_7); -x_212 = !lean_is_exclusive(x_211); -if (x_212 == 0) +x_218 = !lean_is_exclusive(x_217); +if (x_218 == 0) { -return x_211; +return x_217; } else { -lean_object* x_213; lean_object* x_214; lean_object* x_215; -x_213 = lean_ctor_get(x_211, 0); -x_214 = lean_ctor_get(x_211, 1); -lean_inc(x_214); -lean_inc(x_213); -lean_dec(x_211); -x_215 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_215, 0, x_213); -lean_ctor_set(x_215, 1, x_214); -return x_215; +lean_object* x_219; lean_object* x_220; lean_object* x_221; +x_219 = lean_ctor_get(x_217, 0); +x_220 = lean_ctor_get(x_217, 1); +lean_inc(x_220); +lean_inc(x_219); +lean_dec(x_217); +x_221 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_221, 0, x_219); +lean_ctor_set(x_221, 1, x_220); +return x_221; } } else { -x_148 = x_145; -goto block_209; +x_152 = x_149; +goto block_214; } -block_209: +block_214: { -lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; -x_149 = l_Lean_Meta_instantiateMVars(x_147, x_7, x_148); -x_150 = lean_ctor_get(x_149, 0); -lean_inc(x_150); -x_151 = lean_ctor_get(x_149, 1); -lean_inc(x_151); -lean_dec(x_149); -lean_inc(x_7); -lean_inc_n(x_141, 2); -x_152 = l_Lean_Meta_mkEq(x_141, x_141, x_7, x_151); -if (lean_obj_tag(x_152) == 0) -{ -lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; uint8_t x_158; lean_object* x_159; lean_object* x_160; lean_object* x_194; lean_object* x_195; uint8_t x_196; -x_153 = lean_ctor_get(x_152, 0); -lean_inc(x_153); -x_154 = lean_ctor_get(x_152, 1); +lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; +x_153 = l_Lean_Meta_instantiateMVars(x_151, x_7, x_152); +x_154 = lean_ctor_get(x_153, 0); lean_inc(x_154); -lean_dec(x_152); -x_155 = l_Lean_Expr_appFn_x21(x_153); +x_155 = lean_ctor_get(x_153, 1); +lean_inc(x_155); lean_dec(x_153); -x_156 = l_Lean_mkApp(x_155, x_144); -x_157 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; -x_158 = 0; -x_159 = l_Lean_mkLambda(x_157, x_158, x_35, x_156); lean_inc(x_7); -lean_inc(x_159); -x_194 = l_Lean_Meta_isTypeCorrect(x_159, x_7, x_154); -x_195 = lean_ctor_get(x_194, 0); -lean_inc(x_195); -x_196 = lean_unbox(x_195); -lean_dec(x_195); -if (x_196 == 0) +lean_inc_n(x_145, 2); +x_156 = l_Lean_Meta_mkEq(x_145, x_145, x_7, x_155); +if (lean_obj_tag(x_156) == 0) { -lean_object* x_197; lean_object* x_198; lean_object* x_199; uint8_t x_200; -lean_dec(x_159); -lean_dec(x_150); -lean_dec(x_141); -lean_dec(x_133); -lean_dec(x_21); -lean_dec(x_20); -x_197 = lean_ctor_get(x_194, 1); -lean_inc(x_197); -lean_dec(x_194); -x_198 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; -x_199 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_198, x_7, x_197); -lean_dec(x_7); -x_200 = !lean_is_exclusive(x_199); +lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; uint8_t x_162; lean_object* x_163; lean_object* x_164; lean_object* x_198; lean_object* x_199; uint8_t x_200; +x_157 = lean_ctor_get(x_156, 0); +lean_inc(x_157); +x_158 = lean_ctor_get(x_156, 1); +lean_inc(x_158); +lean_dec(x_156); +x_159 = l_Lean_Expr_appFn_x21(x_157); +lean_dec(x_157); +x_160 = l_Lean_mkApp(x_159, x_148); +x_161 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_162 = 0; +x_163 = l_Lean_mkLambda(x_161, x_162, x_36, x_160); +lean_inc(x_7); +lean_inc(x_163); +x_198 = l_Lean_Meta_isTypeCorrect(x_163, x_7, x_158); +x_199 = lean_ctor_get(x_198, 0); +lean_inc(x_199); +x_200 = lean_unbox(x_199); +lean_dec(x_199); if (x_200 == 0) { -return x_199; -} -else -{ -lean_object* x_201; lean_object* x_202; lean_object* x_203; -x_201 = lean_ctor_get(x_199, 0); -x_202 = lean_ctor_get(x_199, 1); -lean_inc(x_202); -lean_inc(x_201); -lean_dec(x_199); -x_203 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_203, 0, x_201); -lean_ctor_set(x_203, 1, x_202); -return x_203; -} -} -else -{ -lean_object* x_204; -x_204 = lean_ctor_get(x_194, 1); -lean_inc(x_204); -lean_dec(x_194); -x_160 = x_204; -goto block_193; -} -block_193: -{ -lean_object* x_161; -lean_inc(x_7); -x_161 = l_Lean_Meta_mkEqRefl(x_141, x_7, x_160); -if (lean_obj_tag(x_161) == 0) -{ -lean_object* x_162; lean_object* x_163; lean_object* x_164; -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); -lean_inc(x_7); -x_164 = l_Lean_Meta_mkEqNDRec(x_159, x_162, x_133, x_7, x_163); -if (lean_obj_tag(x_164) == 0) -{ -lean_object* x_165; lean_object* x_166; lean_object* x_167; -x_165 = lean_ctor_get(x_164, 0); -lean_inc(x_165); -x_166 = lean_ctor_get(x_164, 1); -lean_inc(x_166); -lean_dec(x_164); -lean_inc(x_7); -x_167 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_166); +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; +lean_dec(x_163); +lean_dec(x_154); +lean_dec(x_145); +lean_dec(x_137); lean_dec(x_21); -if (lean_obj_tag(x_167) == 0) -{ -lean_object* x_168; lean_object* x_169; uint8_t x_170; -x_168 = lean_ctor_get(x_167, 1); -lean_inc(x_168); -lean_dec(x_167); -x_169 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_168); -lean_dec(x_7); -x_170 = !lean_is_exclusive(x_169); -if (x_170 == 0) -{ -lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; -x_171 = lean_ctor_get(x_169, 0); -x_172 = l_Array_toList___rarg(x_171); -lean_dec(x_171); -x_173 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_172); -x_174 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_174, 0, x_150); -lean_ctor_set(x_174, 1, x_165); -lean_ctor_set(x_174, 2, x_173); -lean_ctor_set(x_169, 0, x_174); -return x_169; -} -else -{ -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_175 = lean_ctor_get(x_169, 0); -x_176 = lean_ctor_get(x_169, 1); -lean_inc(x_176); -lean_inc(x_175); -lean_dec(x_169); -x_177 = l_Array_toList___rarg(x_175); -lean_dec(x_175); -x_178 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_177); -x_179 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_179, 0, x_150); -lean_ctor_set(x_179, 1, x_165); -lean_ctor_set(x_179, 2, x_178); -x_180 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_180, 0, x_179); -lean_ctor_set(x_180, 1, x_176); -return x_180; -} -} -else -{ -uint8_t x_181; -lean_dec(x_165); -lean_dec(x_150); lean_dec(x_20); +x_201 = lean_ctor_get(x_198, 1); +lean_inc(x_201); +lean_dec(x_198); +x_202 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_203 = lean_box(0); +x_204 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_202, x_203, x_7, x_201); lean_dec(x_7); -x_181 = !lean_is_exclusive(x_167); -if (x_181 == 0) +x_205 = !lean_is_exclusive(x_204); +if (x_205 == 0) { -return x_167; +return x_204; } else { -lean_object* x_182; lean_object* x_183; lean_object* x_184; -x_182 = lean_ctor_get(x_167, 0); -x_183 = lean_ctor_get(x_167, 1); -lean_inc(x_183); -lean_inc(x_182); -lean_dec(x_167); -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_206; lean_object* x_207; lean_object* x_208; +x_206 = lean_ctor_get(x_204, 0); +x_207 = lean_ctor_get(x_204, 1); +lean_inc(x_207); +lean_inc(x_206); +lean_dec(x_204); +x_208 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_208, 0, x_206); +lean_ctor_set(x_208, 1, x_207); +return x_208; } } +else +{ +lean_object* x_209; +x_209 = lean_ctor_get(x_198, 1); +lean_inc(x_209); +lean_dec(x_198); +x_164 = x_209; +goto block_197; +} +block_197: +{ +lean_object* x_165; +lean_inc(x_7); +x_165 = l_Lean_Meta_mkEqRefl(x_145, x_7, x_164); +if (lean_obj_tag(x_165) == 0) +{ +lean_object* x_166; lean_object* x_167; lean_object* x_168; +x_166 = lean_ctor_get(x_165, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_165, 1); +lean_inc(x_167); +lean_dec(x_165); +lean_inc(x_7); +x_168 = l_Lean_Meta_mkEqNDRec(x_163, x_166, x_137, x_7, x_167); +if (lean_obj_tag(x_168) == 0) +{ +lean_object* x_169; lean_object* x_170; lean_object* x_171; +x_169 = lean_ctor_get(x_168, 0); +lean_inc(x_169); +x_170 = lean_ctor_get(x_168, 1); +lean_inc(x_170); +lean_dec(x_168); +lean_inc(x_7); +x_171 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_170); +lean_dec(x_21); +if (lean_obj_tag(x_171) == 0) +{ +lean_object* x_172; lean_object* x_173; uint8_t x_174; +x_172 = lean_ctor_get(x_171, 1); +lean_inc(x_172); +lean_dec(x_171); +x_173 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_172); +lean_dec(x_7); +x_174 = !lean_is_exclusive(x_173); +if (x_174 == 0) +{ +lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; +x_175 = lean_ctor_get(x_173, 0); +x_176 = l_Array_toList___rarg(x_175); +lean_dec(x_175); +x_177 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_176); +x_178 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_178, 0, x_154); +lean_ctor_set(x_178, 1, x_169); +lean_ctor_set(x_178, 2, x_177); +lean_ctor_set(x_173, 0, x_178); +return x_173; +} +else +{ +lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; +x_179 = lean_ctor_get(x_173, 0); +x_180 = lean_ctor_get(x_173, 1); +lean_inc(x_180); +lean_inc(x_179); +lean_dec(x_173); +x_181 = l_Array_toList___rarg(x_179); +lean_dec(x_179); +x_182 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_181); +x_183 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_183, 0, x_154); +lean_ctor_set(x_183, 1, x_169); +lean_ctor_set(x_183, 2, x_182); +x_184 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_184, 0, x_183); +lean_ctor_set(x_184, 1, x_180); +return x_184; +} } else { uint8_t x_185; -lean_dec(x_150); -lean_dec(x_21); +lean_dec(x_169); +lean_dec(x_154); lean_dec(x_20); lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_185 = !lean_is_exclusive(x_164); +x_185 = !lean_is_exclusive(x_171); if (x_185 == 0) { -return x_164; +return x_171; } else { lean_object* x_186; lean_object* x_187; lean_object* x_188; -x_186 = lean_ctor_get(x_164, 0); -x_187 = lean_ctor_get(x_164, 1); +x_186 = lean_ctor_get(x_171, 0); +x_187 = lean_ctor_get(x_171, 1); lean_inc(x_187); lean_inc(x_186); -lean_dec(x_164); +lean_dec(x_171); x_188 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_188, 0, x_186); lean_ctor_set(x_188, 1, x_187); @@ -1102,27 +1080,25 @@ return x_188; else { uint8_t x_189; -lean_dec(x_159); -lean_dec(x_150); -lean_dec(x_133); +lean_dec(x_154); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_189 = !lean_is_exclusive(x_161); +x_189 = !lean_is_exclusive(x_168); if (x_189 == 0) { -return x_161; +return x_168; } else { lean_object* x_190; lean_object* x_191; lean_object* x_192; -x_190 = lean_ctor_get(x_161, 0); -x_191 = lean_ctor_get(x_161, 1); +x_190 = lean_ctor_get(x_168, 0); +x_191 = lean_ctor_get(x_168, 1); lean_inc(x_191); lean_inc(x_190); -lean_dec(x_161); +lean_dec(x_168); x_192 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_192, 0, x_190); lean_ctor_set(x_192, 1, x_191); @@ -1130,136 +1106,167 @@ return x_192; } } } -} else { -uint8_t x_205; -lean_dec(x_150); -lean_dec(x_144); -lean_dec(x_141); -lean_dec(x_133); -lean_dec(x_35); +uint8_t x_193; +lean_dec(x_163); +lean_dec(x_154); +lean_dec(x_137); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_205 = !lean_is_exclusive(x_152); -if (x_205 == 0) +x_193 = !lean_is_exclusive(x_165); +if (x_193 == 0) { -return x_152; +return x_165; } else { -lean_object* x_206; lean_object* x_207; lean_object* x_208; -x_206 = lean_ctor_get(x_152, 0); -x_207 = lean_ctor_get(x_152, 1); -lean_inc(x_207); -lean_inc(x_206); -lean_dec(x_152); -x_208 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_208, 0, x_206); -lean_ctor_set(x_208, 1, x_207); -return x_208; +lean_object* x_194; lean_object* x_195; lean_object* x_196; +x_194 = lean_ctor_get(x_165, 0); +x_195 = lean_ctor_get(x_165, 1); +lean_inc(x_195); +lean_inc(x_194); +lean_dec(x_165); +x_196 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_196, 0, x_194); +lean_ctor_set(x_196, 1, x_195); +return x_196; } } } } else { -uint8_t x_216; -lean_dec(x_141); -lean_dec(x_133); +uint8_t x_210; +lean_dec(x_154); +lean_dec(x_148); +lean_dec(x_145); +lean_dec(x_137); lean_dec(x_36); -lean_dec(x_35); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_216 = !lean_is_exclusive(x_143); -if (x_216 == 0) +x_210 = !lean_is_exclusive(x_156); +if (x_210 == 0) { -return x_143; +return x_156; } else { -lean_object* x_217; lean_object* x_218; lean_object* x_219; -x_217 = lean_ctor_get(x_143, 0); -x_218 = lean_ctor_get(x_143, 1); -lean_inc(x_218); -lean_inc(x_217); -lean_dec(x_143); -x_219 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_219, 0, x_217); -lean_ctor_set(x_219, 1, x_218); -return x_219; +lean_object* x_211; lean_object* x_212; lean_object* x_213; +x_211 = lean_ctor_get(x_156, 0); +x_212 = lean_ctor_get(x_156, 1); +lean_inc(x_212); +lean_inc(x_211); +lean_dec(x_156); +x_213 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_213, 0, x_211); +lean_ctor_set(x_213, 1, x_212); +return x_213; } } } } else { -uint8_t x_227; -lean_dec(x_133); +uint8_t x_222; +lean_dec(x_145); +lean_dec(x_137); +lean_dec(x_37); +lean_dec(x_36); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_222 = !lean_is_exclusive(x_147); +if (x_222 == 0) +{ +return x_147; +} +else +{ +lean_object* x_223; lean_object* x_224; lean_object* x_225; +x_223 = lean_ctor_get(x_147, 0); +x_224 = lean_ctor_get(x_147, 1); +lean_inc(x_224); +lean_inc(x_223); +lean_dec(x_147); +x_225 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_225, 0, x_223); +lean_ctor_set(x_225, 1, x_224); +return x_225; +} +} +} +} +else +{ +uint8_t x_234; +lean_dec(x_137); +lean_dec(x_38); lean_dec(x_37); lean_dec(x_36); -lean_dec(x_35); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_227 = !lean_is_exclusive(x_135); -if (x_227 == 0) +x_234 = !lean_is_exclusive(x_139); +if (x_234 == 0) { -return x_135; +return x_139; } else { -lean_object* x_228; lean_object* x_229; lean_object* x_230; -x_228 = lean_ctor_get(x_135, 0); -x_229 = lean_ctor_get(x_135, 1); -lean_inc(x_229); -lean_inc(x_228); -lean_dec(x_135); -x_230 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_230, 0, x_228); -lean_ctor_set(x_230, 1, x_229); -return x_230; +lean_object* x_235; lean_object* x_236; lean_object* x_237; +x_235 = lean_ctor_get(x_139, 0); +x_236 = lean_ctor_get(x_139, 1); +lean_inc(x_236); +lean_inc(x_235); +lean_dec(x_139); +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 { -uint8_t x_231; +uint8_t x_238; +lean_dec(x_38); lean_dec(x_37); lean_dec(x_36); -lean_dec(x_35); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_231 = !lean_is_exclusive(x_132); -if (x_231 == 0) +x_238 = !lean_is_exclusive(x_136); +if (x_238 == 0) { -return x_132; +return x_136; } else { -lean_object* x_232; lean_object* x_233; lean_object* x_234; -x_232 = lean_ctor_get(x_132, 0); -x_233 = lean_ctor_get(x_132, 1); -lean_inc(x_233); -lean_inc(x_232); -lean_dec(x_132); -x_234 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_234, 0, x_232); -lean_ctor_set(x_234, 1, x_233); -return x_234; +lean_object* x_239; lean_object* x_240; lean_object* x_241; +x_239 = lean_ctor_get(x_136, 0); +x_240 = lean_ctor_get(x_136, 1); +lean_inc(x_240); +lean_inc(x_239); +lean_dec(x_136); +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; } } } @@ -1267,399 +1274,343 @@ return x_234; } else { -lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; -x_235 = l_Lean_Expr_appFn_x21(x_22); -x_236 = l_Lean_Expr_appArg_x21(x_235); -lean_dec(x_235); -x_237 = l_Lean_Expr_appArg_x21(x_22); +lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; +x_242 = l_Lean_Expr_appFn_x21(x_22); +x_243 = l_Lean_Expr_appArg_x21(x_242); +lean_dec(x_242); +x_244 = l_Lean_Expr_appArg_x21(x_22); lean_dec(x_22); lean_inc(x_7); -lean_inc(x_237); -lean_inc(x_236); -x_238 = l_Lean_Meta_mkEq(x_236, x_237, x_7, x_19); -if (lean_obj_tag(x_238) == 0) +lean_inc(x_244); +lean_inc(x_243); +x_245 = l_Lean_Meta_mkEq(x_243, x_244, x_7, x_19); +if (lean_obj_tag(x_245) == 0) { -lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; uint8_t x_245; -x_239 = lean_ctor_get(x_238, 0); -lean_inc(x_239); -x_240 = lean_ctor_get(x_238, 1); -lean_inc(x_240); -lean_dec(x_238); -x_241 = l_Lean_Meta_rewriteCore___lambda__1___closed__17; -x_242 = l_Lean_mkApp3(x_241, x_236, x_237, x_24); -x_243 = l_Lean_Expr_eq_x3f___closed__2; -x_244 = lean_unsigned_to_nat(3u); -x_245 = l_Lean_Expr_isAppOfArity___main(x_239, x_243, x_244); -if (x_245 == 0) +lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; uint8_t x_252; +x_246 = lean_ctor_get(x_245, 0); +lean_inc(x_246); +x_247 = lean_ctor_get(x_245, 1); +lean_inc(x_247); +lean_dec(x_245); +x_248 = l_Lean_Meta_rewriteCore___lambda__1___closed__17; +x_249 = l_Lean_mkApp3(x_248, x_243, x_244, x_24); +x_250 = l_Lean_Expr_eq_x3f___closed__2; +x_251 = lean_unsigned_to_nat(3u); +x_252 = l_Lean_Expr_isAppOfArity___main(x_246, x_250, x_251); +if (x_252 == 0) { -lean_object* x_246; lean_object* x_247; -lean_dec(x_242); -lean_dec(x_239); +lean_object* x_253; lean_object* x_254; lean_object* x_255; +lean_dec(x_249); +lean_dec(x_246); lean_dec(x_21); lean_dec(x_20); lean_dec(x_5); -x_246 = l_Lean_Meta_rewriteCore___lambda__1___closed__3; -x_247 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_246, x_7, x_240); +x_253 = l_Lean_Meta_rewriteCore___lambda__1___closed__3; +x_254 = lean_box(0); +x_255 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_253, x_254, x_7, x_247); lean_dec(x_7); -return x_247; +return x_255; } else { -lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; -x_248 = l_Lean_Expr_appFn_x21(x_239); -x_249 = l_Lean_Expr_appFn_x21(x_248); -x_250 = l_Lean_Expr_appArg_x21(x_249); -lean_dec(x_249); -x_251 = l_Lean_Expr_appArg_x21(x_248); -lean_dec(x_248); -x_252 = l_Lean_Expr_appArg_x21(x_239); -lean_dec(x_239); +lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; +x_256 = l_Lean_Expr_appFn_x21(x_246); +x_257 = l_Lean_Expr_appFn_x21(x_256); +x_258 = l_Lean_Expr_appArg_x21(x_257); +lean_dec(x_257); +x_259 = l_Lean_Expr_appArg_x21(x_256); +lean_dec(x_256); +x_260 = l_Lean_Expr_appArg_x21(x_246); +lean_dec(x_246); if (x_4 == 0) { -lean_object* x_253; uint8_t x_254; uint8_t x_255; -x_253 = l_Lean_Expr_getAppFn___main(x_251); -x_254 = l_Lean_Expr_isMVar(x_253); -lean_dec(x_253); -if (x_254 == 0) +lean_object* x_261; uint8_t x_262; uint8_t x_263; +x_261 = l_Lean_Expr_getAppFn___main(x_259); +x_262 = l_Lean_Expr_isMVar(x_261); +lean_dec(x_261); +if (x_262 == 0) { -uint8_t x_345; -x_345 = 0; -x_255 = x_345; -goto block_344; +uint8_t x_356; +x_356 = 0; +x_263 = x_356; +goto block_355; } else { -uint8_t x_346; -x_346 = 1; -x_255 = x_346; -goto block_344; +uint8_t x_357; +x_357 = 1; +x_263 = x_357; +goto block_355; } -block_344: +block_355: { -lean_object* x_256; -if (x_255 == 0) +lean_object* x_264; +if (x_263 == 0) { -x_256 = x_240; -goto block_337; +x_264 = x_247; +goto block_347; } else { -lean_object* x_338; lean_object* x_339; uint8_t x_340; -lean_dec(x_252); -lean_dec(x_251); -lean_dec(x_250); -lean_dec(x_242); +lean_object* x_348; lean_object* x_349; lean_object* x_350; uint8_t x_351; +lean_dec(x_260); +lean_dec(x_259); +lean_dec(x_258); +lean_dec(x_249); lean_dec(x_21); lean_dec(x_20); lean_dec(x_5); -x_338 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; -x_339 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_338, x_7, x_240); +x_348 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_349 = lean_box(0); +x_350 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_348, x_349, x_7, x_247); lean_dec(x_7); -x_340 = !lean_is_exclusive(x_339); -if (x_340 == 0) +x_351 = !lean_is_exclusive(x_350); +if (x_351 == 0) { -return x_339; +return x_350; } else { -lean_object* x_341; lean_object* x_342; lean_object* x_343; -x_341 = lean_ctor_get(x_339, 0); -x_342 = lean_ctor_get(x_339, 1); -lean_inc(x_342); -lean_inc(x_341); -lean_dec(x_339); -x_343 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_343, 0, x_341); -lean_ctor_set(x_343, 1, x_342); -return x_343; +lean_object* x_352; lean_object* x_353; lean_object* x_354; +x_352 = lean_ctor_get(x_350, 0); +x_353 = lean_ctor_get(x_350, 1); +lean_inc(x_353); +lean_inc(x_352); +lean_dec(x_350); +x_354 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_354, 0, x_352); +lean_ctor_set(x_354, 1, x_353); +return x_354; } } -block_337: +block_347: { -lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; -x_257 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_256); -x_258 = lean_ctor_get(x_257, 0); -lean_inc(x_258); -x_259 = lean_ctor_get(x_257, 1); -lean_inc(x_259); -lean_dec(x_257); -lean_inc(x_7); -lean_inc(x_258); -x_260 = l_Lean_Meta_kabstract(x_258, x_251, x_6, x_7, x_259); -if (lean_obj_tag(x_260) == 0) -{ -lean_object* x_261; lean_object* x_262; uint8_t x_263; lean_object* x_264; lean_object* x_265; -x_261 = lean_ctor_get(x_260, 0); -lean_inc(x_261); -x_262 = lean_ctor_get(x_260, 1); -lean_inc(x_262); -lean_dec(x_260); -x_263 = l_Lean_Expr_hasLooseBVars(x_261); -x_264 = lean_expr_instantiate1(x_261, x_252); -lean_dec(x_252); -if (x_263 == 0) -{ -lean_object* x_327; lean_object* x_328; uint8_t x_329; -lean_dec(x_264); -lean_dec(x_261); -lean_dec(x_258); -lean_dec(x_250); -lean_dec(x_242); -lean_dec(x_21); -lean_dec(x_20); -x_327 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; -x_328 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_327, x_7, x_262); -lean_dec(x_7); -x_329 = !lean_is_exclusive(x_328); -if (x_329 == 0) -{ -return x_328; -} -else -{ -lean_object* x_330; lean_object* x_331; lean_object* x_332; -x_330 = lean_ctor_get(x_328, 0); -x_331 = lean_ctor_get(x_328, 1); -lean_inc(x_331); -lean_inc(x_330); -lean_dec(x_328); -x_332 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_332, 0, x_330); -lean_ctor_set(x_332, 1, x_331); -return x_332; -} -} -else -{ -x_265 = x_262; -goto block_326; -} -block_326: -{ -lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; -x_266 = l_Lean_Meta_instantiateMVars(x_264, x_7, x_265); -x_267 = lean_ctor_get(x_266, 0); +lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; +x_265 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_264); +x_266 = lean_ctor_get(x_265, 0); +lean_inc(x_266); +x_267 = lean_ctor_get(x_265, 1); lean_inc(x_267); -x_268 = lean_ctor_get(x_266, 1); -lean_inc(x_268); -lean_dec(x_266); +lean_dec(x_265); lean_inc(x_7); -lean_inc_n(x_258, 2); -x_269 = l_Lean_Meta_mkEq(x_258, x_258, x_7, x_268); -if (lean_obj_tag(x_269) == 0) +lean_inc(x_266); +x_268 = l_Lean_Meta_kabstract(x_266, x_259, x_6, x_7, x_267); +if (lean_obj_tag(x_268) == 0) { -lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; uint8_t x_275; lean_object* x_276; lean_object* x_277; lean_object* x_311; lean_object* x_312; uint8_t x_313; -x_270 = lean_ctor_get(x_269, 0); +lean_object* x_269; lean_object* x_270; uint8_t x_271; lean_object* x_272; lean_object* x_273; +x_269 = lean_ctor_get(x_268, 0); +lean_inc(x_269); +x_270 = lean_ctor_get(x_268, 1); lean_inc(x_270); -x_271 = lean_ctor_get(x_269, 1); -lean_inc(x_271); +lean_dec(x_268); +x_271 = l_Lean_Expr_hasLooseBVars(x_269); +x_272 = lean_expr_instantiate1(x_269, x_260); +lean_dec(x_260); +if (x_271 == 0) +{ +lean_object* x_336; lean_object* x_337; lean_object* x_338; uint8_t x_339; +lean_dec(x_272); lean_dec(x_269); -x_272 = l_Lean_Expr_appFn_x21(x_270); -lean_dec(x_270); -x_273 = l_Lean_mkApp(x_272, x_261); -x_274 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; -x_275 = 0; -x_276 = l_Lean_mkLambda(x_274, x_275, x_250, x_273); -lean_inc(x_7); -lean_inc(x_276); -x_311 = l_Lean_Meta_isTypeCorrect(x_276, x_7, x_271); -x_312 = lean_ctor_get(x_311, 0); -lean_inc(x_312); -x_313 = lean_unbox(x_312); -lean_dec(x_312); -if (x_313 == 0) -{ -lean_object* x_314; lean_object* x_315; lean_object* x_316; uint8_t x_317; -lean_dec(x_276); -lean_dec(x_267); +lean_dec(x_266); lean_dec(x_258); -lean_dec(x_242); +lean_dec(x_249); lean_dec(x_21); lean_dec(x_20); -x_314 = lean_ctor_get(x_311, 1); -lean_inc(x_314); -lean_dec(x_311); -x_315 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; -x_316 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_315, x_7, x_314); +x_336 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_337 = lean_box(0); +x_338 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_336, x_337, x_7, x_270); lean_dec(x_7); -x_317 = !lean_is_exclusive(x_316); -if (x_317 == 0) +x_339 = !lean_is_exclusive(x_338); +if (x_339 == 0) { -return x_316; +return x_338; } else { -lean_object* x_318; lean_object* x_319; lean_object* x_320; -x_318 = lean_ctor_get(x_316, 0); -x_319 = lean_ctor_get(x_316, 1); -lean_inc(x_319); -lean_inc(x_318); -lean_dec(x_316); -x_320 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_320, 0, x_318); -lean_ctor_set(x_320, 1, x_319); -return x_320; +lean_object* x_340; lean_object* x_341; lean_object* x_342; +x_340 = lean_ctor_get(x_338, 0); +x_341 = lean_ctor_get(x_338, 1); +lean_inc(x_341); +lean_inc(x_340); +lean_dec(x_338); +x_342 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_342, 0, x_340); +lean_ctor_set(x_342, 1, x_341); +return x_342; } } else { -lean_object* x_321; -x_321 = lean_ctor_get(x_311, 1); -lean_inc(x_321); -lean_dec(x_311); -x_277 = x_321; -goto block_310; +x_273 = x_270; +goto block_335; } -block_310: +block_335: { -lean_object* x_278; +lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; +x_274 = l_Lean_Meta_instantiateMVars(x_272, x_7, x_273); +x_275 = lean_ctor_get(x_274, 0); +lean_inc(x_275); +x_276 = lean_ctor_get(x_274, 1); +lean_inc(x_276); +lean_dec(x_274); lean_inc(x_7); -x_278 = l_Lean_Meta_mkEqRefl(x_258, x_7, x_277); -if (lean_obj_tag(x_278) == 0) +lean_inc_n(x_266, 2); +x_277 = l_Lean_Meta_mkEq(x_266, x_266, x_7, x_276); +if (lean_obj_tag(x_277) == 0) { -lean_object* x_279; lean_object* x_280; lean_object* x_281; -x_279 = lean_ctor_get(x_278, 0); +lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; uint8_t x_283; lean_object* x_284; lean_object* x_285; lean_object* x_319; lean_object* x_320; uint8_t x_321; +x_278 = lean_ctor_get(x_277, 0); +lean_inc(x_278); +x_279 = lean_ctor_get(x_277, 1); lean_inc(x_279); -x_280 = lean_ctor_get(x_278, 1); -lean_inc(x_280); +lean_dec(x_277); +x_280 = l_Lean_Expr_appFn_x21(x_278); lean_dec(x_278); +x_281 = l_Lean_mkApp(x_280, x_269); +x_282 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_283 = 0; +x_284 = l_Lean_mkLambda(x_282, x_283, x_258, x_281); lean_inc(x_7); -x_281 = l_Lean_Meta_mkEqNDRec(x_276, x_279, x_242, x_7, x_280); -if (lean_obj_tag(x_281) == 0) +lean_inc(x_284); +x_319 = l_Lean_Meta_isTypeCorrect(x_284, x_7, x_279); +x_320 = lean_ctor_get(x_319, 0); +lean_inc(x_320); +x_321 = lean_unbox(x_320); +lean_dec(x_320); +if (x_321 == 0) { -lean_object* x_282; lean_object* x_283; lean_object* x_284; -x_282 = lean_ctor_get(x_281, 0); -lean_inc(x_282); -x_283 = lean_ctor_get(x_281, 1); -lean_inc(x_283); -lean_dec(x_281); -lean_inc(x_7); -x_284 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_283); -lean_dec(x_21); -if (lean_obj_tag(x_284) == 0) -{ -lean_object* x_285; lean_object* x_286; uint8_t x_287; -x_285 = lean_ctor_get(x_284, 1); -lean_inc(x_285); +lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; uint8_t x_326; lean_dec(x_284); -x_286 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_285); +lean_dec(x_275); +lean_dec(x_266); +lean_dec(x_249); +lean_dec(x_21); +lean_dec(x_20); +x_322 = lean_ctor_get(x_319, 1); +lean_inc(x_322); +lean_dec(x_319); +x_323 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_324 = lean_box(0); +x_325 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_323, x_324, x_7, x_322); lean_dec(x_7); -x_287 = !lean_is_exclusive(x_286); -if (x_287 == 0) +x_326 = !lean_is_exclusive(x_325); +if (x_326 == 0) { -lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; -x_288 = lean_ctor_get(x_286, 0); -x_289 = l_Array_toList___rarg(x_288); -lean_dec(x_288); -x_290 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_289); -x_291 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_291, 0, x_267); -lean_ctor_set(x_291, 1, x_282); -lean_ctor_set(x_291, 2, x_290); -lean_ctor_set(x_286, 0, x_291); -return x_286; +return x_325; } else { -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_286, 0); -x_293 = lean_ctor_get(x_286, 1); -lean_inc(x_293); -lean_inc(x_292); +lean_object* x_327; lean_object* x_328; lean_object* x_329; +x_327 = lean_ctor_get(x_325, 0); +x_328 = lean_ctor_get(x_325, 1); +lean_inc(x_328); +lean_inc(x_327); +lean_dec(x_325); +x_329 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_329, 0, x_327); +lean_ctor_set(x_329, 1, x_328); +return x_329; +} +} +else +{ +lean_object* x_330; +x_330 = lean_ctor_get(x_319, 1); +lean_inc(x_330); +lean_dec(x_319); +x_285 = x_330; +goto block_318; +} +block_318: +{ +lean_object* x_286; +lean_inc(x_7); +x_286 = l_Lean_Meta_mkEqRefl(x_266, x_7, x_285); +if (lean_obj_tag(x_286) == 0) +{ +lean_object* x_287; lean_object* x_288; lean_object* x_289; +x_287 = lean_ctor_get(x_286, 0); +lean_inc(x_287); +x_288 = lean_ctor_get(x_286, 1); +lean_inc(x_288); lean_dec(x_286); -x_294 = l_Array_toList___rarg(x_292); -lean_dec(x_292); -x_295 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_294); -x_296 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_296, 0, x_267); -lean_ctor_set(x_296, 1, x_282); -lean_ctor_set(x_296, 2, x_295); -x_297 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_297, 0, x_296); -lean_ctor_set(x_297, 1, x_293); -return x_297; -} -} -else +lean_inc(x_7); +x_289 = l_Lean_Meta_mkEqNDRec(x_284, x_287, x_249, x_7, x_288); +if (lean_obj_tag(x_289) == 0) { -uint8_t x_298; -lean_dec(x_282); -lean_dec(x_267); -lean_dec(x_20); -lean_dec(x_7); -x_298 = !lean_is_exclusive(x_284); -if (x_298 == 0) -{ -return x_284; -} -else -{ -lean_object* x_299; lean_object* x_300; lean_object* x_301; -x_299 = lean_ctor_get(x_284, 0); -x_300 = lean_ctor_get(x_284, 1); -lean_inc(x_300); -lean_inc(x_299); -lean_dec(x_284); -x_301 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_301, 0, x_299); -lean_ctor_set(x_301, 1, x_300); -return x_301; -} -} -} -else -{ -uint8_t x_302; -lean_dec(x_267); +lean_object* x_290; lean_object* x_291; lean_object* x_292; +x_290 = lean_ctor_get(x_289, 0); +lean_inc(x_290); +x_291 = lean_ctor_get(x_289, 1); +lean_inc(x_291); +lean_dec(x_289); +lean_inc(x_7); +x_292 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_291); lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_302 = !lean_is_exclusive(x_281); -if (x_302 == 0) +if (lean_obj_tag(x_292) == 0) { -return x_281; +lean_object* x_293; lean_object* x_294; uint8_t x_295; +x_293 = lean_ctor_get(x_292, 1); +lean_inc(x_293); +lean_dec(x_292); +x_294 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_293); +lean_dec(x_7); +x_295 = !lean_is_exclusive(x_294); +if (x_295 == 0) +{ +lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; +x_296 = lean_ctor_get(x_294, 0); +x_297 = l_Array_toList___rarg(x_296); +lean_dec(x_296); +x_298 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_297); +x_299 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_299, 0, x_275); +lean_ctor_set(x_299, 1, x_290); +lean_ctor_set(x_299, 2, x_298); +lean_ctor_set(x_294, 0, x_299); +return x_294; } else { -lean_object* x_303; lean_object* x_304; lean_object* x_305; -x_303 = lean_ctor_get(x_281, 0); -x_304 = lean_ctor_get(x_281, 1); -lean_inc(x_304); -lean_inc(x_303); -lean_dec(x_281); -x_305 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_305, 0, x_303); -lean_ctor_set(x_305, 1, x_304); +lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; +x_300 = lean_ctor_get(x_294, 0); +x_301 = lean_ctor_get(x_294, 1); +lean_inc(x_301); +lean_inc(x_300); +lean_dec(x_294); +x_302 = l_Array_toList___rarg(x_300); +lean_dec(x_300); +x_303 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_302); +x_304 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_304, 0, x_275); +lean_ctor_set(x_304, 1, x_290); +lean_ctor_set(x_304, 2, x_303); +x_305 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_305, 0, x_304); +lean_ctor_set(x_305, 1, x_301); return x_305; } } -} else { uint8_t x_306; -lean_dec(x_276); -lean_dec(x_267); -lean_dec(x_242); -lean_dec(x_21); +lean_dec(x_290); +lean_dec(x_275); lean_dec(x_20); lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_306 = !lean_is_exclusive(x_278); +x_306 = !lean_is_exclusive(x_292); if (x_306 == 0) { -return x_278; +return x_292; } else { lean_object* x_307; lean_object* x_308; lean_object* x_309; -x_307 = lean_ctor_get(x_278, 0); -x_308 = lean_ctor_get(x_278, 1); +x_307 = lean_ctor_get(x_292, 0); +x_308 = lean_ctor_get(x_292, 1); lean_inc(x_308); lean_inc(x_307); -lean_dec(x_278); +lean_dec(x_292); x_309 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_309, 0, x_307); lean_ctor_set(x_309, 1, x_308); @@ -1667,173 +1618,308 @@ return x_309; } } } -} else { -uint8_t x_322; -lean_dec(x_267); -lean_dec(x_261); -lean_dec(x_258); -lean_dec(x_250); -lean_dec(x_242); +uint8_t x_310; +lean_dec(x_275); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_322 = !lean_is_exclusive(x_269); -if (x_322 == 0) +x_310 = !lean_is_exclusive(x_289); +if (x_310 == 0) { -return x_269; +return x_289; } else { -lean_object* x_323; lean_object* x_324; lean_object* x_325; -x_323 = lean_ctor_get(x_269, 0); -x_324 = lean_ctor_get(x_269, 1); -lean_inc(x_324); -lean_inc(x_323); +lean_object* x_311; lean_object* x_312; lean_object* x_313; +x_311 = lean_ctor_get(x_289, 0); +x_312 = lean_ctor_get(x_289, 1); +lean_inc(x_312); +lean_inc(x_311); +lean_dec(x_289); +x_313 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_313, 0, x_311); +lean_ctor_set(x_313, 1, x_312); +return x_313; +} +} +} +else +{ +uint8_t x_314; +lean_dec(x_284); +lean_dec(x_275); +lean_dec(x_249); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_314 = !lean_is_exclusive(x_286); +if (x_314 == 0) +{ +return x_286; +} +else +{ +lean_object* x_315; lean_object* x_316; lean_object* x_317; +x_315 = lean_ctor_get(x_286, 0); +x_316 = lean_ctor_get(x_286, 1); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_286); +x_317 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_317, 0, x_315); +lean_ctor_set(x_317, 1, x_316); +return x_317; +} +} +} +} +else +{ +uint8_t x_331; +lean_dec(x_275); lean_dec(x_269); -x_325 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_325, 0, x_323); -lean_ctor_set(x_325, 1, x_324); -return x_325; -} -} -} -} -else -{ -uint8_t x_333; +lean_dec(x_266); lean_dec(x_258); -lean_dec(x_252); -lean_dec(x_250); -lean_dec(x_242); +lean_dec(x_249); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_333 = !lean_is_exclusive(x_260); -if (x_333 == 0) +x_331 = !lean_is_exclusive(x_277); +if (x_331 == 0) { -return x_260; +return x_277; } else { -lean_object* x_334; lean_object* x_335; lean_object* x_336; -x_334 = lean_ctor_get(x_260, 0); -x_335 = lean_ctor_get(x_260, 1); -lean_inc(x_335); -lean_inc(x_334); +lean_object* x_332; lean_object* x_333; lean_object* x_334; +x_332 = lean_ctor_get(x_277, 0); +x_333 = lean_ctor_get(x_277, 1); +lean_inc(x_333); +lean_inc(x_332); +lean_dec(x_277); +x_334 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_334, 0, x_332); +lean_ctor_set(x_334, 1, x_333); +return x_334; +} +} +} +} +else +{ +uint8_t x_343; +lean_dec(x_266); lean_dec(x_260); -x_336 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_336, 0, x_334); -lean_ctor_set(x_336, 1, x_335); -return x_336; -} -} -} -} -} -else -{ -lean_object* x_347; -lean_inc(x_7); -x_347 = l_Lean_Meta_mkEqSymm(x_242, x_7, x_240); -if (lean_obj_tag(x_347) == 0) -{ -lean_object* x_348; lean_object* x_349; lean_object* x_350; -x_348 = lean_ctor_get(x_347, 0); -lean_inc(x_348); -x_349 = lean_ctor_get(x_347, 1); -lean_inc(x_349); -lean_dec(x_347); -lean_inc(x_7); -lean_inc(x_251); -lean_inc(x_252); -x_350 = l_Lean_Meta_mkEq(x_252, x_251, x_7, x_349); -if (lean_obj_tag(x_350) == 0) -{ -lean_object* x_351; lean_object* x_352; uint8_t x_353; lean_object* x_354; -x_351 = lean_ctor_get(x_350, 1); -lean_inc(x_351); -lean_dec(x_350); -x_352 = l_Lean_Expr_getAppFn___main(x_252); -x_353 = l_Lean_Expr_isMVar(x_352); -lean_dec(x_352); -if (x_353 == 0) -{ -x_354 = x_351; -goto block_435; -} -else -{ -lean_object* x_436; lean_object* x_437; uint8_t x_438; -lean_dec(x_348); -lean_dec(x_252); -lean_dec(x_251); -lean_dec(x_250); +lean_dec(x_258); +lean_dec(x_249); lean_dec(x_21); lean_dec(x_20); -lean_dec(x_5); -x_436 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; -x_437 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_436, x_7, x_351); lean_dec(x_7); -x_438 = !lean_is_exclusive(x_437); -if (x_438 == 0) +lean_dec(x_2); +lean_dec(x_1); +x_343 = !lean_is_exclusive(x_268); +if (x_343 == 0) { -return x_437; +return x_268; } else { -lean_object* x_439; lean_object* x_440; lean_object* x_441; -x_439 = lean_ctor_get(x_437, 0); -x_440 = lean_ctor_get(x_437, 1); -lean_inc(x_440); -lean_inc(x_439); -lean_dec(x_437); -x_441 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_441, 0, x_439); -lean_ctor_set(x_441, 1, x_440); -return x_441; +lean_object* x_344; lean_object* x_345; lean_object* x_346; +x_344 = lean_ctor_get(x_268, 0); +x_345 = lean_ctor_get(x_268, 1); +lean_inc(x_345); +lean_inc(x_344); +lean_dec(x_268); +x_346 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_346, 0, x_344); +lean_ctor_set(x_346, 1, x_345); +return x_346; } } -block_435: +} +} +} +else { -lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; -x_355 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_354); -x_356 = lean_ctor_get(x_355, 0); -lean_inc(x_356); -x_357 = lean_ctor_get(x_355, 1); -lean_inc(x_357); -lean_dec(x_355); +lean_object* x_358; lean_inc(x_7); -lean_inc(x_356); -x_358 = l_Lean_Meta_kabstract(x_356, x_252, x_6, x_7, x_357); +x_358 = l_Lean_Meta_mkEqSymm(x_249, x_7, x_247); if (lean_obj_tag(x_358) == 0) { -lean_object* x_359; lean_object* x_360; uint8_t x_361; lean_object* x_362; lean_object* x_363; +lean_object* x_359; lean_object* x_360; lean_object* x_361; 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_Expr_hasLooseBVars(x_359); -x_362 = lean_expr_instantiate1(x_359, x_251); -lean_dec(x_251); -if (x_361 == 0) +lean_inc(x_7); +lean_inc(x_259); +lean_inc(x_260); +x_361 = l_Lean_Meta_mkEq(x_260, x_259, x_7, x_360); +if (lean_obj_tag(x_361) == 0) { -lean_object* x_425; lean_object* x_426; uint8_t x_427; -lean_dec(x_362); +lean_object* x_362; lean_object* x_363; uint8_t x_364; lean_object* x_365; +x_362 = lean_ctor_get(x_361, 1); +lean_inc(x_362); +lean_dec(x_361); +x_363 = l_Lean_Expr_getAppFn___main(x_260); +x_364 = l_Lean_Expr_isMVar(x_363); +lean_dec(x_363); +if (x_364 == 0) +{ +x_365 = x_362; +goto block_448; +} +else +{ +lean_object* x_449; lean_object* x_450; lean_object* x_451; uint8_t x_452; lean_dec(x_359); -lean_dec(x_356); -lean_dec(x_348); -lean_dec(x_250); +lean_dec(x_260); +lean_dec(x_259); +lean_dec(x_258); lean_dec(x_21); lean_dec(x_20); -x_425 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; -x_426 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_425, x_7, x_360); +lean_dec(x_5); +x_449 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_450 = lean_box(0); +x_451 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_449, x_450, x_7, x_362); +lean_dec(x_7); +x_452 = !lean_is_exclusive(x_451); +if (x_452 == 0) +{ +return x_451; +} +else +{ +lean_object* x_453; lean_object* x_454; lean_object* x_455; +x_453 = lean_ctor_get(x_451, 0); +x_454 = lean_ctor_get(x_451, 1); +lean_inc(x_454); +lean_inc(x_453); +lean_dec(x_451); +x_455 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_455, 0, x_453); +lean_ctor_set(x_455, 1, x_454); +return x_455; +} +} +block_448: +{ +lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; +x_366 = l_Lean_Meta_instantiateMVars(x_5, x_7, x_365); +x_367 = lean_ctor_get(x_366, 0); +lean_inc(x_367); +x_368 = lean_ctor_get(x_366, 1); +lean_inc(x_368); +lean_dec(x_366); +lean_inc(x_7); +lean_inc(x_367); +x_369 = l_Lean_Meta_kabstract(x_367, x_260, x_6, x_7, x_368); +if (lean_obj_tag(x_369) == 0) +{ +lean_object* x_370; lean_object* x_371; uint8_t x_372; lean_object* x_373; lean_object* x_374; +x_370 = lean_ctor_get(x_369, 0); +lean_inc(x_370); +x_371 = lean_ctor_get(x_369, 1); +lean_inc(x_371); +lean_dec(x_369); +x_372 = l_Lean_Expr_hasLooseBVars(x_370); +x_373 = lean_expr_instantiate1(x_370, x_259); +lean_dec(x_259); +if (x_372 == 0) +{ +lean_object* x_437; lean_object* x_438; lean_object* x_439; uint8_t x_440; +lean_dec(x_373); +lean_dec(x_370); +lean_dec(x_367); +lean_dec(x_359); +lean_dec(x_258); +lean_dec(x_21); +lean_dec(x_20); +x_437 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_438 = lean_box(0); +x_439 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_437, x_438, x_7, x_371); +lean_dec(x_7); +x_440 = !lean_is_exclusive(x_439); +if (x_440 == 0) +{ +return x_439; +} +else +{ +lean_object* x_441; lean_object* x_442; lean_object* x_443; +x_441 = lean_ctor_get(x_439, 0); +x_442 = lean_ctor_get(x_439, 1); +lean_inc(x_442); +lean_inc(x_441); +lean_dec(x_439); +x_443 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_443, 0, x_441); +lean_ctor_set(x_443, 1, x_442); +return x_443; +} +} +else +{ +x_374 = x_371; +goto block_436; +} +block_436: +{ +lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; +x_375 = l_Lean_Meta_instantiateMVars(x_373, x_7, x_374); +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); +lean_inc(x_7); +lean_inc_n(x_367, 2); +x_378 = l_Lean_Meta_mkEq(x_367, x_367, x_7, x_377); +if (lean_obj_tag(x_378) == 0) +{ +lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; uint8_t x_384; lean_object* x_385; lean_object* x_386; lean_object* x_420; lean_object* x_421; uint8_t x_422; +x_379 = lean_ctor_get(x_378, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_378, 1); +lean_inc(x_380); +lean_dec(x_378); +x_381 = l_Lean_Expr_appFn_x21(x_379); +lean_dec(x_379); +x_382 = l_Lean_mkApp(x_381, x_370); +x_383 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_384 = 0; +x_385 = l_Lean_mkLambda(x_383, x_384, x_258, x_382); +lean_inc(x_7); +lean_inc(x_385); +x_420 = l_Lean_Meta_isTypeCorrect(x_385, x_7, x_380); +x_421 = lean_ctor_get(x_420, 0); +lean_inc(x_421); +x_422 = lean_unbox(x_421); +lean_dec(x_421); +if (x_422 == 0) +{ +lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; uint8_t x_427; +lean_dec(x_385); +lean_dec(x_376); +lean_dec(x_367); +lean_dec(x_359); +lean_dec(x_21); +lean_dec(x_20); +x_423 = lean_ctor_get(x_420, 1); +lean_inc(x_423); +lean_dec(x_420); +x_424 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_425 = lean_box(0); +x_426 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_424, x_425, x_7, x_423); lean_dec(x_7); x_427 = !lean_is_exclusive(x_426); if (x_427 == 0) @@ -1856,372 +1942,300 @@ return x_430; } else { -x_363 = x_360; -goto block_424; +lean_object* x_431; +x_431 = lean_ctor_get(x_420, 1); +lean_inc(x_431); +lean_dec(x_420); +x_386 = x_431; +goto block_419; } -block_424: +block_419: { -lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; -x_364 = l_Lean_Meta_instantiateMVars(x_362, x_7, x_363); -x_365 = lean_ctor_get(x_364, 0); -lean_inc(x_365); -x_366 = lean_ctor_get(x_364, 1); -lean_inc(x_366); -lean_dec(x_364); +lean_object* x_387; lean_inc(x_7); -lean_inc_n(x_356, 2); -x_367 = l_Lean_Meta_mkEq(x_356, x_356, x_7, x_366); -if (lean_obj_tag(x_367) == 0) +x_387 = l_Lean_Meta_mkEqRefl(x_367, x_7, x_386); +if (lean_obj_tag(x_387) == 0) { -lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; uint8_t x_373; lean_object* x_374; lean_object* x_375; lean_object* x_409; lean_object* x_410; uint8_t x_411; -x_368 = lean_ctor_get(x_367, 0); -lean_inc(x_368); -x_369 = lean_ctor_get(x_367, 1); -lean_inc(x_369); -lean_dec(x_367); -x_370 = l_Lean_Expr_appFn_x21(x_368); -lean_dec(x_368); -x_371 = l_Lean_mkApp(x_370, x_359); -x_372 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; -x_373 = 0; -x_374 = l_Lean_mkLambda(x_372, x_373, x_250, x_371); +lean_object* x_388; lean_object* x_389; lean_object* x_390; +x_388 = lean_ctor_get(x_387, 0); +lean_inc(x_388); +x_389 = lean_ctor_get(x_387, 1); +lean_inc(x_389); +lean_dec(x_387); lean_inc(x_7); -lean_inc(x_374); -x_409 = l_Lean_Meta_isTypeCorrect(x_374, x_7, x_369); -x_410 = lean_ctor_get(x_409, 0); -lean_inc(x_410); -x_411 = lean_unbox(x_410); -lean_dec(x_410); -if (x_411 == 0) +x_390 = l_Lean_Meta_mkEqNDRec(x_385, x_388, x_359, x_7, x_389); +if (lean_obj_tag(x_390) == 0) { -lean_object* x_412; lean_object* x_413; lean_object* x_414; uint8_t x_415; -lean_dec(x_374); -lean_dec(x_365); -lean_dec(x_356); -lean_dec(x_348); +lean_object* x_391; lean_object* x_392; lean_object* x_393; +x_391 = lean_ctor_get(x_390, 0); +lean_inc(x_391); +x_392 = lean_ctor_get(x_390, 1); +lean_inc(x_392); +lean_dec(x_390); +lean_inc(x_7); +x_393 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_392); +lean_dec(x_21); +if (lean_obj_tag(x_393) == 0) +{ +lean_object* x_394; lean_object* x_395; uint8_t x_396; +x_394 = lean_ctor_get(x_393, 1); +lean_inc(x_394); +lean_dec(x_393); +x_395 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_394); +lean_dec(x_7); +x_396 = !lean_is_exclusive(x_395); +if (x_396 == 0) +{ +lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; +x_397 = lean_ctor_get(x_395, 0); +x_398 = l_Array_toList___rarg(x_397); +lean_dec(x_397); +x_399 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_398); +x_400 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_400, 0, x_376); +lean_ctor_set(x_400, 1, x_391); +lean_ctor_set(x_400, 2, x_399); +lean_ctor_set(x_395, 0, x_400); +return x_395; +} +else +{ +lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; +x_401 = lean_ctor_get(x_395, 0); +x_402 = lean_ctor_get(x_395, 1); +lean_inc(x_402); +lean_inc(x_401); +lean_dec(x_395); +x_403 = l_Array_toList___rarg(x_401); +lean_dec(x_401); +x_404 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_403); +x_405 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_405, 0, x_376); +lean_ctor_set(x_405, 1, x_391); +lean_ctor_set(x_405, 2, x_404); +x_406 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_406, 0, x_405); +lean_ctor_set(x_406, 1, x_402); +return x_406; +} +} +else +{ +uint8_t x_407; +lean_dec(x_391); +lean_dec(x_376); +lean_dec(x_20); +lean_dec(x_7); +x_407 = !lean_is_exclusive(x_393); +if (x_407 == 0) +{ +return x_393; +} +else +{ +lean_object* x_408; lean_object* x_409; lean_object* x_410; +x_408 = lean_ctor_get(x_393, 0); +x_409 = lean_ctor_get(x_393, 1); +lean_inc(x_409); +lean_inc(x_408); +lean_dec(x_393); +x_410 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_410, 0, x_408); +lean_ctor_set(x_410, 1, x_409); +return x_410; +} +} +} +else +{ +uint8_t x_411; +lean_dec(x_376); lean_dec(x_21); lean_dec(x_20); -x_412 = lean_ctor_get(x_409, 1); -lean_inc(x_412); -lean_dec(x_409); -x_413 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; -x_414 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_413, x_7, x_412); lean_dec(x_7); -x_415 = !lean_is_exclusive(x_414); +lean_dec(x_2); +lean_dec(x_1); +x_411 = !lean_is_exclusive(x_390); +if (x_411 == 0) +{ +return x_390; +} +else +{ +lean_object* x_412; lean_object* x_413; lean_object* x_414; +x_412 = lean_ctor_get(x_390, 0); +x_413 = lean_ctor_get(x_390, 1); +lean_inc(x_413); +lean_inc(x_412); +lean_dec(x_390); +x_414 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_414, 0, x_412); +lean_ctor_set(x_414, 1, x_413); +return x_414; +} +} +} +else +{ +uint8_t x_415; +lean_dec(x_385); +lean_dec(x_376); +lean_dec(x_359); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_415 = !lean_is_exclusive(x_387); if (x_415 == 0) { -return x_414; +return x_387; } else { lean_object* x_416; lean_object* x_417; lean_object* x_418; -x_416 = lean_ctor_get(x_414, 0); -x_417 = lean_ctor_get(x_414, 1); +x_416 = lean_ctor_get(x_387, 0); +x_417 = lean_ctor_get(x_387, 1); lean_inc(x_417); lean_inc(x_416); -lean_dec(x_414); +lean_dec(x_387); x_418 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_418, 0, x_416); lean_ctor_set(x_418, 1, x_417); return x_418; } } +} +} else { -lean_object* x_419; -x_419 = lean_ctor_get(x_409, 1); -lean_inc(x_419); -lean_dec(x_409); -x_375 = x_419; -goto block_408; -} -block_408: -{ -lean_object* x_376; -lean_inc(x_7); -x_376 = l_Lean_Meta_mkEqRefl(x_356, x_7, x_375); -if (lean_obj_tag(x_376) == 0) -{ -lean_object* x_377; lean_object* x_378; lean_object* x_379; -x_377 = lean_ctor_get(x_376, 0); -lean_inc(x_377); -x_378 = lean_ctor_get(x_376, 1); -lean_inc(x_378); +uint8_t x_432; lean_dec(x_376); -lean_inc(x_7); -x_379 = l_Lean_Meta_mkEqNDRec(x_374, x_377, x_348, x_7, x_378); -if (lean_obj_tag(x_379) == 0) -{ -lean_object* x_380; lean_object* x_381; lean_object* x_382; -x_380 = lean_ctor_get(x_379, 0); -lean_inc(x_380); -x_381 = lean_ctor_get(x_379, 1); -lean_inc(x_381); -lean_dec(x_379); -lean_inc(x_7); -x_382 = l_Lean_Meta_postprocessAppMVars(x_2, x_1, x_20, x_21, x_7, x_381); -lean_dec(x_21); -if (lean_obj_tag(x_382) == 0) -{ -lean_object* x_383; lean_object* x_384; uint8_t x_385; -x_383 = lean_ctor_get(x_382, 1); -lean_inc(x_383); -lean_dec(x_382); -x_384 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_20, x_23, x_23, x_7, x_383); -lean_dec(x_7); -x_385 = !lean_is_exclusive(x_384); -if (x_385 == 0) -{ -lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; -x_386 = lean_ctor_get(x_384, 0); -x_387 = l_Array_toList___rarg(x_386); -lean_dec(x_386); -x_388 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_387); -x_389 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_389, 0, x_365); -lean_ctor_set(x_389, 1, x_380); -lean_ctor_set(x_389, 2, x_388); -lean_ctor_set(x_384, 0, x_389); -return x_384; -} -else -{ -lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; -x_390 = lean_ctor_get(x_384, 0); -x_391 = lean_ctor_get(x_384, 1); -lean_inc(x_391); -lean_inc(x_390); -lean_dec(x_384); -x_392 = l_Array_toList___rarg(x_390); -lean_dec(x_390); -x_393 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_392); -x_394 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_394, 0, x_365); -lean_ctor_set(x_394, 1, x_380); -lean_ctor_set(x_394, 2, x_393); -x_395 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_395, 0, x_394); -lean_ctor_set(x_395, 1, x_391); -return x_395; -} -} -else -{ -uint8_t x_396; -lean_dec(x_380); -lean_dec(x_365); -lean_dec(x_20); -lean_dec(x_7); -x_396 = !lean_is_exclusive(x_382); -if (x_396 == 0) -{ -return x_382; -} -else -{ -lean_object* x_397; lean_object* x_398; lean_object* x_399; -x_397 = lean_ctor_get(x_382, 0); -x_398 = lean_ctor_get(x_382, 1); -lean_inc(x_398); -lean_inc(x_397); -lean_dec(x_382); -x_399 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_399, 0, x_397); -lean_ctor_set(x_399, 1, x_398); -return x_399; -} -} -} -else -{ -uint8_t x_400; -lean_dec(x_365); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_400 = !lean_is_exclusive(x_379); -if (x_400 == 0) -{ -return x_379; -} -else -{ -lean_object* x_401; lean_object* x_402; lean_object* x_403; -x_401 = lean_ctor_get(x_379, 0); -x_402 = lean_ctor_get(x_379, 1); -lean_inc(x_402); -lean_inc(x_401); -lean_dec(x_379); -x_403 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_403, 0, x_401); -lean_ctor_set(x_403, 1, x_402); -return x_403; -} -} -} -else -{ -uint8_t x_404; -lean_dec(x_374); -lean_dec(x_365); -lean_dec(x_348); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_404 = !lean_is_exclusive(x_376); -if (x_404 == 0) -{ -return x_376; -} -else -{ -lean_object* x_405; lean_object* x_406; lean_object* x_407; -x_405 = lean_ctor_get(x_376, 0); -x_406 = lean_ctor_get(x_376, 1); -lean_inc(x_406); -lean_inc(x_405); -lean_dec(x_376); -x_407 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_407, 0, x_405); -lean_ctor_set(x_407, 1, x_406); -return x_407; -} -} -} -} -else -{ -uint8_t x_420; -lean_dec(x_365); -lean_dec(x_359); -lean_dec(x_356); -lean_dec(x_348); -lean_dec(x_250); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -x_420 = !lean_is_exclusive(x_367); -if (x_420 == 0) -{ -return x_367; -} -else -{ -lean_object* x_421; lean_object* x_422; lean_object* x_423; -x_421 = lean_ctor_get(x_367, 0); -x_422 = lean_ctor_get(x_367, 1); -lean_inc(x_422); -lean_inc(x_421); +lean_dec(x_370); lean_dec(x_367); -x_423 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_423, 0, x_421); -lean_ctor_set(x_423, 1, x_422); -return x_423; +lean_dec(x_359); +lean_dec(x_258); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_432 = !lean_is_exclusive(x_378); +if (x_432 == 0) +{ +return x_378; +} +else +{ +lean_object* x_433; lean_object* x_434; lean_object* x_435; +x_433 = lean_ctor_get(x_378, 0); +x_434 = lean_ctor_get(x_378, 1); +lean_inc(x_434); +lean_inc(x_433); +lean_dec(x_378); +x_435 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_435, 0, x_433); +lean_ctor_set(x_435, 1, x_434); +return x_435; } } } } else { -uint8_t x_431; -lean_dec(x_356); -lean_dec(x_348); -lean_dec(x_251); -lean_dec(x_250); +uint8_t x_444; +lean_dec(x_367); +lean_dec(x_359); +lean_dec(x_259); +lean_dec(x_258); lean_dec(x_21); lean_dec(x_20); lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -x_431 = !lean_is_exclusive(x_358); -if (x_431 == 0) +x_444 = !lean_is_exclusive(x_369); +if (x_444 == 0) +{ +return x_369; +} +else +{ +lean_object* x_445; lean_object* x_446; lean_object* x_447; +x_445 = lean_ctor_get(x_369, 0); +x_446 = lean_ctor_get(x_369, 1); +lean_inc(x_446); +lean_inc(x_445); +lean_dec(x_369); +x_447 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_447, 0, x_445); +lean_ctor_set(x_447, 1, x_446); +return x_447; +} +} +} +} +else +{ +uint8_t x_456; +lean_dec(x_359); +lean_dec(x_260); +lean_dec(x_259); +lean_dec(x_258); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_456 = !lean_is_exclusive(x_361); +if (x_456 == 0) +{ +return x_361; +} +else +{ +lean_object* x_457; lean_object* x_458; lean_object* x_459; +x_457 = lean_ctor_get(x_361, 0); +x_458 = lean_ctor_get(x_361, 1); +lean_inc(x_458); +lean_inc(x_457); +lean_dec(x_361); +x_459 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_459, 0, x_457); +lean_ctor_set(x_459, 1, x_458); +return x_459; +} +} +} +else +{ +uint8_t x_460; +lean_dec(x_260); +lean_dec(x_259); +lean_dec(x_258); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_460 = !lean_is_exclusive(x_358); +if (x_460 == 0) { return x_358; } else { -lean_object* x_432; lean_object* x_433; lean_object* x_434; -x_432 = lean_ctor_get(x_358, 0); -x_433 = lean_ctor_get(x_358, 1); -lean_inc(x_433); -lean_inc(x_432); +lean_object* x_461; lean_object* x_462; lean_object* x_463; +x_461 = lean_ctor_get(x_358, 0); +x_462 = lean_ctor_get(x_358, 1); +lean_inc(x_462); +lean_inc(x_461); lean_dec(x_358); -x_434 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_434, 0, x_432); -lean_ctor_set(x_434, 1, x_433); -return x_434; -} -} -} -} -else -{ -uint8_t x_442; -lean_dec(x_348); -lean_dec(x_252); -lean_dec(x_251); -lean_dec(x_250); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_2); -lean_dec(x_1); -x_442 = !lean_is_exclusive(x_350); -if (x_442 == 0) -{ -return x_350; -} -else -{ -lean_object* x_443; lean_object* x_444; lean_object* x_445; -x_443 = lean_ctor_get(x_350, 0); -x_444 = lean_ctor_get(x_350, 1); -lean_inc(x_444); -lean_inc(x_443); -lean_dec(x_350); -x_445 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_445, 0, x_443); -lean_ctor_set(x_445, 1, x_444); -return x_445; -} -} -} -else -{ -uint8_t x_446; -lean_dec(x_252); -lean_dec(x_251); -lean_dec(x_250); -lean_dec(x_21); -lean_dec(x_20); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_2); -lean_dec(x_1); -x_446 = !lean_is_exclusive(x_347); -if (x_446 == 0) -{ -return x_347; -} -else -{ -lean_object* x_447; lean_object* x_448; lean_object* x_449; -x_447 = lean_ctor_get(x_347, 0); -x_448 = lean_ctor_get(x_347, 1); -lean_inc(x_448); -lean_inc(x_447); -lean_dec(x_347); -x_449 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_449, 0, x_447); -lean_ctor_set(x_449, 1, x_448); -return x_449; +x_463 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_463, 0, x_461); +lean_ctor_set(x_463, 1, x_462); +return x_463; } } } @@ -2229,9 +2243,9 @@ return x_449; } else { -uint8_t x_450; -lean_dec(x_237); -lean_dec(x_236); +uint8_t x_464; +lean_dec(x_244); +lean_dec(x_243); lean_dec(x_24); lean_dec(x_21); lean_dec(x_20); @@ -2239,108 +2253,108 @@ lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_450 = !lean_is_exclusive(x_238); -if (x_450 == 0) +x_464 = !lean_is_exclusive(x_245); +if (x_464 == 0) { -return x_238; +return x_245; } else { -lean_object* x_451; lean_object* x_452; lean_object* x_453; -x_451 = lean_ctor_get(x_238, 0); -x_452 = lean_ctor_get(x_238, 1); -lean_inc(x_452); -lean_inc(x_451); -lean_dec(x_238); -x_453 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_453, 0, x_451); -lean_ctor_set(x_453, 1, x_452); -return x_453; +lean_object* x_465; lean_object* x_466; lean_object* x_467; +x_465 = lean_ctor_get(x_245, 0); +x_466 = lean_ctor_get(x_245, 1); +lean_inc(x_466); +lean_inc(x_465); +lean_dec(x_245); +x_467 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_467, 0, x_465); +lean_ctor_set(x_467, 1, x_466); +return x_467; } } } } else { -uint8_t x_454; +uint8_t x_468; lean_dec(x_7); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_454 = !lean_is_exclusive(x_16); -if (x_454 == 0) +x_468 = !lean_is_exclusive(x_16); +if (x_468 == 0) { return x_16; } else { -lean_object* x_455; lean_object* x_456; lean_object* x_457; -x_455 = lean_ctor_get(x_16, 0); -x_456 = lean_ctor_get(x_16, 1); -lean_inc(x_456); -lean_inc(x_455); +lean_object* x_469; lean_object* x_470; lean_object* x_471; +x_469 = lean_ctor_get(x_16, 0); +x_470 = lean_ctor_get(x_16, 1); +lean_inc(x_470); +lean_inc(x_469); lean_dec(x_16); -x_457 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_457, 0, x_455); -lean_ctor_set(x_457, 1, x_456); -return x_457; +x_471 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_471, 0, x_469); +lean_ctor_set(x_471, 1, x_470); +return x_471; } } } else { -uint8_t x_458; +uint8_t x_472; lean_dec(x_7); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_458 = !lean_is_exclusive(x_11); -if (x_458 == 0) +x_472 = !lean_is_exclusive(x_11); +if (x_472 == 0) { return x_11; } else { -lean_object* x_459; lean_object* x_460; lean_object* x_461; -x_459 = lean_ctor_get(x_11, 0); -x_460 = lean_ctor_get(x_11, 1); -lean_inc(x_460); -lean_inc(x_459); +lean_object* x_473; lean_object* x_474; lean_object* x_475; +x_473 = lean_ctor_get(x_11, 0); +x_474 = lean_ctor_get(x_11, 1); +lean_inc(x_474); +lean_inc(x_473); lean_dec(x_11); -x_461 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_461, 0, x_459); -lean_ctor_set(x_461, 1, x_460); -return x_461; +x_475 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_475, 0, x_473); +lean_ctor_set(x_475, 1, x_474); +return x_475; } } } else { -uint8_t x_462; +uint8_t x_476; lean_dec(x_7); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_462 = !lean_is_exclusive(x_9); -if (x_462 == 0) +x_476 = !lean_is_exclusive(x_9); +if (x_476 == 0) { return x_9; } else { -lean_object* x_463; lean_object* x_464; lean_object* x_465; -x_463 = lean_ctor_get(x_9, 0); -x_464 = lean_ctor_get(x_9, 1); -lean_inc(x_464); -lean_inc(x_463); +lean_object* x_477; lean_object* x_478; lean_object* x_479; +x_477 = lean_ctor_get(x_9, 0); +x_478 = lean_ctor_get(x_9, 1); +lean_inc(x_478); +lean_inc(x_477); lean_dec(x_9); -x_465 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_465, 0, x_463); -lean_ctor_set(x_465, 1, x_464); -return x_465; +x_479 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_479, 0, x_477); +lean_ctor_set(x_479, 1, x_478); +return x_479; } } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Subst.c b/stage0/stdlib/Lean/Meta/Tactic/Subst.c index 9c0ef8eaa2..ab68e464d2 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Subst.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Subst.c @@ -16,13 +16,15 @@ extern "C" { lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_Meta_substCore___lambda__3___closed__2; -lean_object* l_Lean_Meta_substCore___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_unreachable_x21___rarg(lean_object*); +lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +extern lean_object* l_Lean_MessageData_ofList___closed__3; lean_object* l_Lean_Meta_substCore___lambda__3___closed__17; lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__1; @@ -36,7 +38,7 @@ lean_object* l_Std_PersistentArray_findSomeM_x3f___at_Lean_Meta_subst___spec__2_ lean_object* l_Lean_Meta_substCore___lambda__3___closed__8; lean_object* l_Lean_Meta_subst___lambda__1___closed__2; lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_substCore___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore___lambda__2___boxed(lean_object**); lean_object* l_Lean_Meta_mkEqRec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_appFn_x21(lean_object*); @@ -53,6 +55,7 @@ extern lean_object* l_List_repr___rarg___closed__3; lean_object* l_Lean_Expr_appArg_x21(lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__21; lean_object* l_Lean_LocalContext_findDeclM_x3f___at_Lean_Meta_subst___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore___lambda__3___closed__34; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__31; lean_object* l_Lean_Meta_mkEqRefl(lean_object*, lean_object*, lean_object*); @@ -61,7 +64,7 @@ extern lean_object* l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___clos lean_object* l_Lean_Meta_substCore___lambda__3___closed__11; extern lean_object* l_Array_HasRepr___rarg___closed__1; lean_object* lean_array_fget(lean_object*, lean_object*); -lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__12; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -81,6 +84,7 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__2; lean_object* l_Lean_Meta_revert(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); extern lean_object* l_List_reprAux___main___rarg___closed__1; +lean_object* l_Lean_Meta_substCore___lambda__3___closed__35; lean_object* l_Lean_Meta_mkEqNDRec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__10; lean_object* l_Lean_Meta_substCore___lambda__3___closed__32; @@ -100,30 +104,30 @@ lean_object* l_Lean_LocalDecl_fvarId(lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__16; lean_object* l_Lean_LocalDecl_type(lean_object*); lean_object* l_Lean_MetavarContext_exprDependsOn(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_substCore___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1___closed__3; lean_object* l_Lean_Meta_substCore___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLocalDecl(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_substCore___lambda__3(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore___lambda__3(lean_object*, lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__26; lean_object* l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_FVarSubst_insert(lean_object*, lean_object*, lean_object*); lean_object* l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_substCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1___closed__5; lean_object* l_List_toString___at_Lean_Meta_substCore___spec__4(lean_object*); -lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__22; uint8_t l_Lean_Expr_isFVar(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__9; +lean_object* l_Lean_Meta_substCore___lambda__3___closed__33; lean_object* l_Lean_Meta_substCore___lambda__3___closed__5; lean_object* l_Lean_Meta_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); @@ -418,1336 +422,1748 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l_Lean_Meta_substCore___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, lean_object* x_8, lean_object* x_9, uint8_t x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13, lean_object* x_14, lean_object* x_15, lean_object* x_16) { +lean_object* l_Lean_Meta_substCore___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, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, uint8_t x_12, uint8_t x_13, lean_object* x_14, lean_object* x_15, lean_object* x_16, lean_object* x_17, lean_object* x_18) { _start: { -lean_object* x_17; lean_object* x_18; -x_17 = lean_ctor_get(x_14, 2); -lean_inc(x_17); -lean_dec(x_14); -lean_inc(x_15); -lean_inc(x_1); -x_18 = l_Lean_Meta_getLocalDecl(x_1, x_15, x_16); -if (lean_obj_tag(x_18) == 0) -{ -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_280; lean_object* x_281; uint8_t x_282; -x_19 = lean_ctor_get(x_18, 0); +lean_object* x_19; lean_object* x_20; +x_19 = lean_ctor_get(x_16, 2); lean_inc(x_19); -x_20 = lean_ctor_get(x_18, 1); -lean_inc(x_20); -lean_dec(x_18); -x_280 = l_Lean_LocalDecl_type(x_19); -lean_dec(x_19); -x_281 = lean_unsigned_to_nat(3u); -x_282 = l_Lean_Expr_isAppOfArity___main(x_280, x_13, x_281); -if (x_282 == 0) +lean_dec(x_16); +lean_inc(x_17); +lean_inc(x_1); +x_20 = l_Lean_Meta_getLocalDecl(x_1, x_17, x_18); +if (lean_obj_tag(x_20) == 0) { -lean_object* x_283; lean_object* x_284; lean_object* x_285; -lean_dec(x_280); -lean_dec(x_17); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_283 = l_Lean_Meta_isClassQuick___main___closed__1; -x_284 = l_unreachable_x21___rarg(x_283); -x_285 = lean_apply_2(x_284, x_15, x_20); -return x_285; -} -else -{ -if (x_10 == 0) -{ -lean_object* x_286; -x_286 = l_Lean_Expr_appArg_x21(x_280); -lean_dec(x_280); -x_21 = x_286; -goto block_279; -} -else -{ -lean_object* x_287; lean_object* x_288; -x_287 = l_Lean_Expr_appFn_x21(x_280); -lean_dec(x_280); -x_288 = l_Lean_Expr_appArg_x21(x_287); -lean_dec(x_287); -x_21 = x_288; -goto block_279; -} -} -block_279: -{ -lean_object* x_22; lean_object* x_23; uint8_t x_24; +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_363; lean_object* x_364; uint8_t x_365; +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_inc(x_17); -x_23 = l_Lean_MetavarContext_exprDependsOn(x_22, x_17, x_1); -x_24 = lean_unbox(x_23); -lean_dec(x_23); -if (x_24 == 0) -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -lean_dec(x_12); -x_25 = l_Lean_mkOptionalNode___closed__2; -lean_inc(x_2); -x_26 = lean_array_push(x_25, x_2); -lean_inc(x_15); -lean_inc(x_17); -x_27 = l_Lean_Meta_mkLambda(x_26, x_17, x_15, x_20); -if (lean_obj_tag(x_27) == 0) -{ -lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_28 = lean_ctor_get(x_27, 0); -lean_inc(x_28); -x_29 = lean_ctor_get(x_27, 1); -lean_inc(x_29); -lean_dec(x_27); -x_30 = l_Lean_Expr_replaceFVar(x_17, x_2, x_21); -lean_dec(x_17); -if (x_10 == 0) -{ -lean_object* x_98; -lean_inc(x_15); -x_98 = l_Lean_Meta_mkEqSymm(x_11, x_15, x_29); -if (lean_obj_tag(x_98) == 0) -{ -lean_object* x_99; lean_object* x_100; -x_99 = lean_ctor_get(x_98, 0); -lean_inc(x_99); -x_100 = lean_ctor_get(x_98, 1); -lean_inc(x_100); -lean_dec(x_98); -x_31 = x_99; -x_32 = x_100; -goto block_97; -} -else -{ -uint8_t x_101; -lean_dec(x_30); -lean_dec(x_28); +lean_dec(x_20); +x_363 = l_Lean_LocalDecl_type(x_21); lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_1); -x_101 = !lean_is_exclusive(x_98); -if (x_101 == 0) +x_364 = lean_unsigned_to_nat(3u); +x_365 = l_Lean_Expr_isAppOfArity___main(x_363, x_15, x_364); +if (x_365 == 0) { -return x_98; -} -else -{ -lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_102 = lean_ctor_get(x_98, 0); -x_103 = lean_ctor_get(x_98, 1); -lean_inc(x_103); -lean_inc(x_102); -lean_dec(x_98); -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_102); -lean_ctor_set(x_104, 1, x_103); -return x_104; -} -} -} -else -{ -x_31 = x_11; -x_32 = x_29; -goto block_97; -} -block_97: -{ -uint8_t x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_33 = 2; -lean_inc(x_15); -x_34 = l_Lean_Meta_mkFreshExprMVar(x_30, x_3, x_33, x_15, x_32); -x_35 = lean_ctor_get(x_34, 0); -lean_inc(x_35); -x_36 = lean_ctor_get(x_34, 1); -lean_inc(x_36); -lean_dec(x_34); -lean_inc(x_15); -lean_inc(x_35); -x_37 = l_Lean_Meta_mkEqNDRec(x_28, x_35, x_31, x_15, 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; -x_38 = lean_ctor_get(x_37, 0); -lean_inc(x_38); -x_39 = lean_ctor_get(x_37, 1); -lean_inc(x_39); -lean_dec(x_37); -x_40 = l_Lean_Expr_mvarId_x21(x_35); -lean_dec(x_35); -x_41 = l_Lean_Meta_assignExprMVar(x_4, x_38, x_15, x_39); -if (lean_obj_tag(x_41) == 0) -{ -lean_object* x_42; lean_object* x_43; -x_42 = lean_ctor_get(x_41, 1); -lean_inc(x_42); -lean_dec(x_41); -x_43 = l_Lean_Meta_clear(x_40, x_1, x_15, x_42); -if (lean_obj_tag(x_43) == 0) -{ -lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_44 = lean_ctor_get(x_43, 0); -lean_inc(x_44); -x_45 = lean_ctor_get(x_43, 1); -lean_inc(x_45); -lean_dec(x_43); -x_46 = l_Lean_Meta_clear(x_44, x_5, x_15, x_45); -if (lean_obj_tag(x_46) == 0) -{ -lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; lean_object* x_53; -x_47 = lean_ctor_get(x_46, 0); -lean_inc(x_47); -x_48 = lean_ctor_get(x_46, 1); -lean_inc(x_48); -lean_dec(x_46); -x_49 = lean_array_get_size(x_6); -x_50 = lean_unsigned_to_nat(2u); -x_51 = lean_nat_sub(x_49, x_50); -lean_dec(x_49); -x_52 = 0; -x_53 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_52, x_47, x_51, x_7, x_15, x_48); -if (lean_obj_tag(x_53) == 0) -{ -lean_object* x_54; lean_object* x_55; uint8_t x_56; -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 = !lean_is_exclusive(x_54); -if (x_56 == 0) -{ -lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; -x_57 = lean_ctor_get(x_54, 0); -x_58 = lean_array_get_size(x_57); -lean_inc(x_58); -x_59 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__1(x_6, x_57, x_58, x_58, x_8, x_15, x_55); -lean_dec(x_15); -lean_dec(x_58); -lean_dec(x_57); -x_60 = !lean_is_exclusive(x_59); -if (x_60 == 0) -{ -lean_object* x_61; lean_object* x_62; -x_61 = lean_ctor_get(x_59, 0); -x_62 = l_Lean_Meta_FVarSubst_insert(x_61, x_9, x_21); -lean_ctor_set(x_54, 0, x_62); -lean_ctor_set(x_59, 0, x_54); -return x_59; -} -else -{ -lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_63 = lean_ctor_get(x_59, 0); -x_64 = lean_ctor_get(x_59, 1); -lean_inc(x_64); -lean_inc(x_63); -lean_dec(x_59); -x_65 = l_Lean_Meta_FVarSubst_insert(x_63, x_9, x_21); -lean_ctor_set(x_54, 0, x_65); -x_66 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_66, 0, x_54); -lean_ctor_set(x_66, 1, x_64); -return x_66; -} -} -else -{ -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; -x_67 = lean_ctor_get(x_54, 0); -x_68 = lean_ctor_get(x_54, 1); -lean_inc(x_68); -lean_inc(x_67); -lean_dec(x_54); -x_69 = lean_array_get_size(x_67); -lean_inc(x_69); -x_70 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__1(x_6, x_67, x_69, x_69, x_8, x_15, x_55); -lean_dec(x_15); -lean_dec(x_69); -lean_dec(x_67); -x_71 = lean_ctor_get(x_70, 0); -lean_inc(x_71); -x_72 = lean_ctor_get(x_70, 1); -lean_inc(x_72); -if (lean_is_exclusive(x_70)) { - lean_ctor_release(x_70, 0); - lean_ctor_release(x_70, 1); - x_73 = x_70; -} else { - lean_dec_ref(x_70); - x_73 = lean_box(0); -} -x_74 = l_Lean_Meta_FVarSubst_insert(x_71, x_9, x_21); -x_75 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_75, 0, x_74); -lean_ctor_set(x_75, 1, x_68); -if (lean_is_scalar(x_73)) { - x_76 = lean_alloc_ctor(0, 2, 0); -} else { - x_76 = x_73; -} -lean_ctor_set(x_76, 0, x_75); -lean_ctor_set(x_76, 1, x_72); -return x_76; -} -} -else -{ -uint8_t x_77; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -x_77 = !lean_is_exclusive(x_53); -if (x_77 == 0) -{ -return x_53; -} -else -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; -x_78 = lean_ctor_get(x_53, 0); -x_79 = lean_ctor_get(x_53, 1); -lean_inc(x_79); -lean_inc(x_78); -lean_dec(x_53); -x_80 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_80, 0, x_78); -lean_ctor_set(x_80, 1, x_79); -return x_80; -} -} -} -else -{ -uint8_t x_81; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -x_81 = !lean_is_exclusive(x_46); -if (x_81 == 0) -{ -return x_46; -} -else -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; -x_82 = lean_ctor_get(x_46, 0); -x_83 = lean_ctor_get(x_46, 1); -lean_inc(x_83); -lean_inc(x_82); -lean_dec(x_46); -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_82); -lean_ctor_set(x_84, 1, x_83); -return x_84; -} -} -} -else -{ -uint8_t x_85; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -x_85 = !lean_is_exclusive(x_43); -if (x_85 == 0) -{ -return x_43; -} -else -{ -lean_object* x_86; lean_object* x_87; lean_object* x_88; -x_86 = lean_ctor_get(x_43, 0); -x_87 = lean_ctor_get(x_43, 1); -lean_inc(x_87); -lean_inc(x_86); -lean_dec(x_43); -x_88 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_88, 0, x_86); -lean_ctor_set(x_88, 1, x_87); -return x_88; -} -} -} -else -{ -uint8_t x_89; -lean_dec(x_40); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_1); -x_89 = !lean_is_exclusive(x_41); -if (x_89 == 0) -{ -return x_41; -} -else -{ -lean_object* x_90; lean_object* x_91; lean_object* x_92; -x_90 = lean_ctor_get(x_41, 0); -x_91 = lean_ctor_get(x_41, 1); -lean_inc(x_91); -lean_inc(x_90); -lean_dec(x_41); -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; -} -} -} -else -{ -uint8_t x_93; -lean_dec(x_35); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_93 = !lean_is_exclusive(x_37); -if (x_93 == 0) -{ -return x_37; -} -else -{ -lean_object* x_94; lean_object* x_95; lean_object* x_96; -x_94 = lean_ctor_get(x_37, 0); -x_95 = lean_ctor_get(x_37, 1); -lean_inc(x_95); -lean_inc(x_94); -lean_dec(x_37); -x_96 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_96, 0, x_94); -lean_ctor_set(x_96, 1, x_95); -return x_96; -} -} -} -} -else -{ -uint8_t x_105; -lean_dec(x_21); -lean_dec(x_17); -lean_dec(x_15); +lean_object* x_366; lean_object* x_367; lean_object* x_368; +lean_dec(x_363); +lean_dec(x_19); +lean_dec(x_14); lean_dec(x_11); +lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -lean_dec(x_5); +lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_105 = !lean_is_exclusive(x_27); -if (x_105 == 0) -{ -return x_27; +x_366 = l_Lean_Meta_isClassQuick___main___closed__1; +x_367 = l_unreachable_x21___rarg(x_366); +x_368 = lean_apply_2(x_367, x_17, x_22); +return x_368; } else { -lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_106 = lean_ctor_get(x_27, 0); -x_107 = lean_ctor_get(x_27, 1); -lean_inc(x_107); -lean_inc(x_106); -lean_dec(x_27); -x_108 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_108, 0, x_106); -lean_ctor_set(x_108, 1, x_107); -return x_108; -} -} +if (x_13 == 0) +{ +lean_object* x_369; +x_369 = l_Lean_Expr_appArg_x21(x_363); +lean_dec(x_363); +x_23 = x_369; +goto block_362; } else { -lean_object* x_109; lean_object* x_110; +lean_object* x_370; lean_object* x_371; +x_370 = l_Lean_Expr_appFn_x21(x_363); +lean_dec(x_363); +x_371 = l_Lean_Expr_appArg_x21(x_370); +lean_dec(x_370); +x_23 = x_371; +goto block_362; +} +} +block_362: +{ +lean_object* x_24; lean_object* x_25; uint8_t x_26; +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_inc(x_19); +x_25 = l_Lean_MetavarContext_exprDependsOn(x_24, x_19, x_1); +x_26 = lean_unbox(x_25); +lean_dec(x_25); +if (x_26 == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +lean_dec(x_14); +x_27 = l_Lean_mkOptionalNode___closed__2; lean_inc(x_2); -x_109 = l_Lean_Expr_replaceFVar(x_17, x_2, x_21); -lean_inc(x_15); -lean_inc(x_21); -x_110 = l_Lean_Meta_mkEqRefl(x_21, x_15, x_20); -if (lean_obj_tag(x_110) == 0) +x_28 = lean_array_push(x_27, x_2); +lean_inc(x_17); +lean_inc(x_19); +x_29 = l_Lean_Meta_mkLambda(x_28, x_19, x_17, x_22); +if (lean_obj_tag(x_29) == 0) { -lean_object* x_111; lean_object* x_112; lean_object* x_113; -x_111 = lean_ctor_get(x_110, 0); -lean_inc(x_111); -x_112 = lean_ctor_get(x_110, 1); -lean_inc(x_112); -lean_dec(x_110); -lean_inc(x_11); -x_113 = l_Lean_Expr_replaceFVar(x_109, x_11, x_111); -lean_dec(x_111); -lean_dec(x_109); -if (x_10 == 0) -{ -lean_object* x_114; -lean_inc(x_15); +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_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); lean_inc(x_2); -lean_inc(x_21); -x_114 = l_Lean_Meta_mkEq(x_21, x_2, x_15, x_112); -if (lean_obj_tag(x_114) == 0) +x_32 = l_Lean_Expr_replaceFVar(x_19, x_2, x_23); +lean_dec(x_19); +if (x_13 == 0) { -lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; uint8_t x_119; lean_object* x_120; -x_115 = lean_ctor_get(x_114, 0); -lean_inc(x_115); -x_116 = lean_ctor_get(x_114, 1); -lean_inc(x_116); -lean_dec(x_114); -lean_inc(x_11); -x_117 = lean_alloc_closure((void*)(l_Lean_Meta_substCore___lambda__1___boxed), 7, 4); -lean_closure_set(x_117, 0, x_17); -lean_closure_set(x_117, 1, x_11); -lean_closure_set(x_117, 2, x_12); -lean_closure_set(x_117, 3, x_2); -x_118 = l_Lean_Meta_substCore___lambda__2___closed__2; -x_119 = 0; -lean_inc(x_15); -x_120 = l_Lean_Meta_withLocalDecl___rarg(x_118, x_115, x_119, x_117, x_15, x_116); -if (lean_obj_tag(x_120) == 0) +lean_object* x_127; +lean_inc(x_17); +lean_inc(x_10); +x_127 = l_Lean_Meta_mkEqSymm(x_10, x_17, x_31); +if (lean_obj_tag(x_127) == 0) { -lean_object* x_121; lean_object* x_122; lean_object* x_123; -x_121 = lean_ctor_get(x_120, 0); -lean_inc(x_121); -x_122 = lean_ctor_get(x_120, 1); -lean_inc(x_122); -lean_dec(x_120); -lean_inc(x_15); -x_123 = l_Lean_Meta_mkEqSymm(x_11, x_15, x_122); -if (lean_obj_tag(x_123) == 0) -{ -lean_object* x_124; lean_object* x_125; uint8_t x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; -x_124 = lean_ctor_get(x_123, 0); -lean_inc(x_124); -x_125 = lean_ctor_get(x_123, 1); -lean_inc(x_125); -lean_dec(x_123); -x_126 = 2; -lean_inc(x_15); -x_127 = l_Lean_Meta_mkFreshExprMVar(x_113, x_3, x_126, x_15, x_125); +lean_object* x_128; lean_object* x_129; x_128 = lean_ctor_get(x_127, 0); lean_inc(x_128); x_129 = lean_ctor_get(x_127, 1); lean_inc(x_129); lean_dec(x_127); -lean_inc(x_15); -lean_inc(x_128); -x_130 = l_Lean_Meta_mkEqRec(x_121, x_128, x_124, x_15, x_129); -if (lean_obj_tag(x_130) == 0) +x_33 = x_128; +x_34 = x_129; +goto block_126; +} +else { -lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; -x_131 = lean_ctor_get(x_130, 0); -lean_inc(x_131); -x_132 = lean_ctor_get(x_130, 1); +uint8_t x_130; +lean_dec(x_32); +lean_dec(x_30); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_130 = !lean_is_exclusive(x_127); +if (x_130 == 0) +{ +return x_127; +} +else +{ +lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_131 = lean_ctor_get(x_127, 0); +x_132 = lean_ctor_get(x_127, 1); lean_inc(x_132); -lean_dec(x_130); -x_133 = l_Lean_Expr_mvarId_x21(x_128); -lean_dec(x_128); -x_134 = l_Lean_Meta_assignExprMVar(x_4, x_131, x_15, x_132); -if (lean_obj_tag(x_134) == 0) +lean_inc(x_131); +lean_dec(x_127); +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_131); +lean_ctor_set(x_133, 1, x_132); +return x_133; +} +} +} +else { -lean_object* x_135; lean_object* x_136; -x_135 = lean_ctor_get(x_134, 1); +lean_inc(x_10); +x_33 = x_10; +x_34 = x_31; +goto block_126; +} +block_126: +{ +uint8_t x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_35 = 2; +lean_inc(x_17); +x_36 = l_Lean_Meta_mkFreshExprMVar(x_32, x_3, x_35, x_17, x_34); +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_17); +lean_inc(x_37); +x_39 = l_Lean_Meta_mkEqNDRec(x_30, x_37, x_33, x_17, x_38); +if (lean_obj_tag(x_39) == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; +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_Lean_Expr_mvarId_x21(x_37); +lean_dec(x_37); +x_43 = l_Lean_Meta_assignExprMVar(x_4, x_40, x_17, x_41); +if (x_12 == 0) +{ +uint8_t x_120; +x_120 = 0; +x_44 = x_120; +goto block_119; +} +else +{ +uint8_t x_121; +x_121 = 1; +x_44 = x_121; +goto block_119; +} +block_119: +{ +lean_object* x_45; lean_object* x_46; +if (lean_obj_tag(x_43) == 0) +{ +if (x_44 == 0) +{ +lean_object* x_99; +lean_dec(x_11); +lean_dec(x_1); +x_99 = lean_ctor_get(x_43, 1); +lean_inc(x_99); +lean_dec(x_43); +x_45 = x_42; +x_46 = x_99; +goto block_98; +} +else +{ +lean_object* x_100; lean_object* x_101; +x_100 = lean_ctor_get(x_43, 1); +lean_inc(x_100); +lean_dec(x_43); +x_101 = l_Lean_Meta_clear(x_42, x_1, x_17, x_100); +if (lean_obj_tag(x_101) == 0) +{ +lean_object* x_102; lean_object* x_103; lean_object* x_104; +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_Meta_clear(x_102, x_11, x_17, x_103); +if (lean_obj_tag(x_104) == 0) +{ +lean_object* x_105; lean_object* x_106; +x_105 = lean_ctor_get(x_104, 0); +lean_inc(x_105); +x_106 = lean_ctor_get(x_104, 1); +lean_inc(x_106); +lean_dec(x_104); +x_45 = x_105; +x_46 = x_106; +goto block_98; +} +else +{ +uint8_t x_107; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_107 = !lean_is_exclusive(x_104); +if (x_107 == 0) +{ +return x_104; +} +else +{ +lean_object* x_108; lean_object* x_109; lean_object* x_110; +x_108 = lean_ctor_get(x_104, 0); +x_109 = lean_ctor_get(x_104, 1); +lean_inc(x_109); +lean_inc(x_108); +lean_dec(x_104); +x_110 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_110, 0, x_108); +lean_ctor_set(x_110, 1, x_109); +return x_110; +} +} +} +else +{ +uint8_t x_111; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_111 = !lean_is_exclusive(x_101); +if (x_111 == 0) +{ +return x_101; +} +else +{ +lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_112 = lean_ctor_get(x_101, 0); +x_113 = lean_ctor_get(x_101, 1); +lean_inc(x_113); +lean_inc(x_112); +lean_dec(x_101); +x_114 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_114, 0, x_112); +lean_ctor_set(x_114, 1, x_113); +return x_114; +} +} +} +} +else +{ +uint8_t x_115; +lean_dec(x_42); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +lean_dec(x_1); +x_115 = !lean_is_exclusive(x_43); +if (x_115 == 0) +{ +return x_43; +} +else +{ +lean_object* x_116; lean_object* x_117; lean_object* x_118; +x_116 = lean_ctor_get(x_43, 0); +x_117 = lean_ctor_get(x_43, 1); +lean_inc(x_117); +lean_inc(x_116); +lean_dec(x_43); +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_116); +lean_ctor_set(x_118, 1, x_117); +return x_118; +} +} +block_98: +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; lean_object* x_51; +x_47 = lean_array_get_size(x_5); +x_48 = lean_unsigned_to_nat(2u); +x_49 = lean_nat_sub(x_47, x_48); +lean_dec(x_47); +x_50 = 0; +x_51 = l_Lean_Meta_introN(x_45, x_49, x_6, x_50, x_17, x_46); +if (lean_obj_tag(x_51) == 0) +{ +lean_object* x_52; lean_object* x_53; uint8_t x_54; +x_52 = lean_ctor_get(x_51, 0); +lean_inc(x_52); +x_53 = lean_ctor_get(x_51, 1); +lean_inc(x_53); +lean_dec(x_51); +x_54 = !lean_is_exclusive(x_52); +if (x_54 == 0) +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_52, 0); +x_56 = lean_array_get_size(x_55); +lean_inc(x_56); +x_57 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__1(x_5, x_55, x_56, x_56, x_7, x_17, x_53); +lean_dec(x_17); +lean_dec(x_56); +lean_dec(x_55); +if (x_44 == 0) +{ +uint8_t x_58; +lean_dec(x_23); +x_58 = !lean_is_exclusive(x_57); +if (x_58 == 0) +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_59 = lean_ctor_get(x_57, 0); +x_60 = l_Lean_Meta_FVarSubst_insert(x_59, x_8, x_2); +x_61 = l_Lean_Meta_FVarSubst_insert(x_60, x_9, x_10); +lean_ctor_set(x_52, 0, x_61); +lean_ctor_set(x_57, 0, x_52); +return x_57; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_62 = lean_ctor_get(x_57, 0); +x_63 = lean_ctor_get(x_57, 1); +lean_inc(x_63); +lean_inc(x_62); +lean_dec(x_57); +x_64 = l_Lean_Meta_FVarSubst_insert(x_62, x_8, x_2); +x_65 = l_Lean_Meta_FVarSubst_insert(x_64, x_9, x_10); +lean_ctor_set(x_52, 0, x_65); +x_66 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_66, 0, x_52); +lean_ctor_set(x_66, 1, x_63); +return x_66; +} +} +else +{ +uint8_t x_67; +lean_dec(x_2); +x_67 = !lean_is_exclusive(x_57); +if (x_67 == 0) +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_68 = lean_ctor_get(x_57, 0); +x_69 = l_Lean_Meta_FVarSubst_insert(x_68, x_8, x_23); +x_70 = l_Lean_Meta_FVarSubst_insert(x_69, x_9, x_10); +lean_ctor_set(x_52, 0, x_70); +lean_ctor_set(x_57, 0, x_52); +return x_57; +} +else +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_71 = lean_ctor_get(x_57, 0); +x_72 = lean_ctor_get(x_57, 1); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_57); +x_73 = l_Lean_Meta_FVarSubst_insert(x_71, x_8, x_23); +x_74 = l_Lean_Meta_FVarSubst_insert(x_73, x_9, x_10); +lean_ctor_set(x_52, 0, x_74); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_52); +lean_ctor_set(x_75, 1, x_72); +return x_75; +} +} +} +else +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_76 = lean_ctor_get(x_52, 0); +x_77 = lean_ctor_get(x_52, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_52); +x_78 = lean_array_get_size(x_76); +lean_inc(x_78); +x_79 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__1(x_5, x_76, x_78, x_78, x_7, x_17, x_53); +lean_dec(x_17); +lean_dec(x_78); +lean_dec(x_76); +if (x_44 == 0) +{ +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_dec(x_23); +x_80 = lean_ctor_get(x_79, 0); +lean_inc(x_80); +x_81 = lean_ctor_get(x_79, 1); +lean_inc(x_81); +if (lean_is_exclusive(x_79)) { + lean_ctor_release(x_79, 0); + lean_ctor_release(x_79, 1); + x_82 = x_79; +} else { + lean_dec_ref(x_79); + x_82 = lean_box(0); +} +x_83 = l_Lean_Meta_FVarSubst_insert(x_80, x_8, x_2); +x_84 = l_Lean_Meta_FVarSubst_insert(x_83, x_9, x_10); +x_85 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_77); +if (lean_is_scalar(x_82)) { + x_86 = lean_alloc_ctor(0, 2, 0); +} else { + x_86 = x_82; +} +lean_ctor_set(x_86, 0, x_85); +lean_ctor_set(x_86, 1, x_81); +return x_86; +} +else +{ +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_dec(x_2); +x_87 = lean_ctor_get(x_79, 0); +lean_inc(x_87); +x_88 = lean_ctor_get(x_79, 1); +lean_inc(x_88); +if (lean_is_exclusive(x_79)) { + lean_ctor_release(x_79, 0); + lean_ctor_release(x_79, 1); + x_89 = x_79; +} else { + lean_dec_ref(x_79); + x_89 = lean_box(0); +} +x_90 = l_Lean_Meta_FVarSubst_insert(x_87, x_8, x_23); +x_91 = l_Lean_Meta_FVarSubst_insert(x_90, x_9, x_10); +x_92 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_77); +if (lean_is_scalar(x_89)) { + x_93 = lean_alloc_ctor(0, 2, 0); +} else { + x_93 = x_89; +} +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_88); +return x_93; +} +} +} +else +{ +uint8_t x_94; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_2); +x_94 = !lean_is_exclusive(x_51); +if (x_94 == 0) +{ +return x_51; +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; +x_95 = lean_ctor_get(x_51, 0); +x_96 = lean_ctor_get(x_51, 1); +lean_inc(x_96); +lean_inc(x_95); +lean_dec(x_51); +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; +} +} +} +} +} +else +{ +uint8_t x_122; +lean_dec(x_37); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_122 = !lean_is_exclusive(x_39); +if (x_122 == 0) +{ +return x_39; +} +else +{ +lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_123 = lean_ctor_get(x_39, 0); +x_124 = lean_ctor_get(x_39, 1); +lean_inc(x_124); +lean_inc(x_123); +lean_dec(x_39); +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_134; +lean_dec(x_23); +lean_dec(x_19); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_134 = !lean_is_exclusive(x_29); +if (x_134 == 0) +{ +return x_29; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; +x_135 = lean_ctor_get(x_29, 0); +x_136 = lean_ctor_get(x_29, 1); +lean_inc(x_136); lean_inc(x_135); -lean_dec(x_134); -x_136 = l_Lean_Meta_clear(x_133, x_1, x_15, x_135); -if (lean_obj_tag(x_136) == 0) +lean_dec(x_29); +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_135); +lean_ctor_set(x_137, 1, x_136); +return x_137; +} +} +} +else { -lean_object* x_137; lean_object* x_138; lean_object* x_139; -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_Meta_clear(x_137, x_5, x_15, x_138); +lean_object* x_138; lean_object* x_139; +lean_inc(x_2); +x_138 = l_Lean_Expr_replaceFVar(x_19, x_2, x_23); +lean_inc(x_17); +lean_inc(x_23); +x_139 = l_Lean_Meta_mkEqRefl(x_23, x_17, x_22); if (lean_obj_tag(x_139) == 0) { -lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; uint8_t x_145; lean_object* x_146; +lean_object* x_140; lean_object* x_141; lean_object* x_142; x_140 = lean_ctor_get(x_139, 0); lean_inc(x_140); x_141 = lean_ctor_get(x_139, 1); lean_inc(x_141); lean_dec(x_139); -x_142 = lean_array_get_size(x_6); -x_143 = lean_unsigned_to_nat(2u); -x_144 = lean_nat_sub(x_142, x_143); -lean_dec(x_142); -x_145 = 0; -x_146 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_145, x_140, x_144, x_7, x_15, x_141); -if (lean_obj_tag(x_146) == 0) +lean_inc(x_10); +x_142 = l_Lean_Expr_replaceFVar(x_138, x_10, x_140); +lean_dec(x_140); +lean_dec(x_138); +if (x_13 == 0) { -lean_object* x_147; lean_object* x_148; uint8_t x_149; -x_147 = lean_ctor_get(x_146, 0); -lean_inc(x_147); -x_148 = lean_ctor_get(x_146, 1); -lean_inc(x_148); -lean_dec(x_146); -x_149 = !lean_is_exclusive(x_147); -if (x_149 == 0) +lean_object* x_143; +lean_inc(x_17); +lean_inc(x_2); +lean_inc(x_23); +x_143 = l_Lean_Meta_mkEq(x_23, x_2, x_17, x_141); +if (lean_obj_tag(x_143) == 0) { -lean_object* x_150; lean_object* x_151; lean_object* x_152; uint8_t x_153; -x_150 = lean_ctor_get(x_147, 0); -x_151 = lean_array_get_size(x_150); +lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; uint8_t x_148; lean_object* x_149; +x_144 = lean_ctor_get(x_143, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_143, 1); +lean_inc(x_145); +lean_dec(x_143); +lean_inc(x_2); +lean_inc(x_10); +x_146 = lean_alloc_closure((void*)(l_Lean_Meta_substCore___lambda__1___boxed), 7, 4); +lean_closure_set(x_146, 0, x_19); +lean_closure_set(x_146, 1, x_10); +lean_closure_set(x_146, 2, x_14); +lean_closure_set(x_146, 3, x_2); +x_147 = l_Lean_Meta_substCore___lambda__2___closed__2; +x_148 = 0; +lean_inc(x_17); +x_149 = l_Lean_Meta_withLocalDecl___rarg(x_147, x_144, x_148, x_146, x_17, x_145); +if (lean_obj_tag(x_149) == 0) +{ +lean_object* x_150; lean_object* x_151; lean_object* x_152; +x_150 = lean_ctor_get(x_149, 0); +lean_inc(x_150); +x_151 = lean_ctor_get(x_149, 1); lean_inc(x_151); -x_152 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__2(x_6, x_150, x_151, x_151, x_8, x_15, x_148); -lean_dec(x_15); -lean_dec(x_151); -lean_dec(x_150); -x_153 = !lean_is_exclusive(x_152); -if (x_153 == 0) +lean_dec(x_149); +lean_inc(x_17); +lean_inc(x_10); +x_152 = l_Lean_Meta_mkEqSymm(x_10, x_17, x_151); +if (lean_obj_tag(x_152) == 0) +{ +lean_object* x_153; lean_object* x_154; uint8_t x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; +x_153 = lean_ctor_get(x_152, 0); +lean_inc(x_153); +x_154 = lean_ctor_get(x_152, 1); +lean_inc(x_154); +lean_dec(x_152); +x_155 = 2; +lean_inc(x_17); +x_156 = l_Lean_Meta_mkFreshExprMVar(x_142, x_3, x_155, x_17, x_154); +x_157 = lean_ctor_get(x_156, 0); +lean_inc(x_157); +x_158 = lean_ctor_get(x_156, 1); +lean_inc(x_158); +lean_dec(x_156); +lean_inc(x_17); +lean_inc(x_157); +x_159 = l_Lean_Meta_mkEqRec(x_150, x_157, x_153, x_17, x_158); +if (lean_obj_tag(x_159) == 0) +{ +lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; uint8_t x_164; +x_160 = lean_ctor_get(x_159, 0); +lean_inc(x_160); +x_161 = lean_ctor_get(x_159, 1); +lean_inc(x_161); +lean_dec(x_159); +x_162 = l_Lean_Expr_mvarId_x21(x_157); +lean_dec(x_157); +x_163 = l_Lean_Meta_assignExprMVar(x_4, x_160, x_17, x_161); +if (x_12 == 0) +{ +uint8_t x_240; +x_240 = 0; +x_164 = x_240; +goto block_239; +} +else +{ +uint8_t x_241; +x_241 = 1; +x_164 = x_241; +goto block_239; +} +block_239: +{ +lean_object* x_165; lean_object* x_166; +if (lean_obj_tag(x_163) == 0) +{ +if (x_164 == 0) +{ +lean_object* x_219; +lean_dec(x_11); +lean_dec(x_1); +x_219 = lean_ctor_get(x_163, 1); +lean_inc(x_219); +lean_dec(x_163); +x_165 = x_162; +x_166 = x_219; +goto block_218; +} +else +{ +lean_object* x_220; lean_object* x_221; +x_220 = lean_ctor_get(x_163, 1); +lean_inc(x_220); +lean_dec(x_163); +x_221 = l_Lean_Meta_clear(x_162, x_1, x_17, x_220); +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); +x_224 = l_Lean_Meta_clear(x_222, x_11, x_17, x_223); +if (lean_obj_tag(x_224) == 0) +{ +lean_object* x_225; lean_object* x_226; +x_225 = lean_ctor_get(x_224, 0); +lean_inc(x_225); +x_226 = lean_ctor_get(x_224, 1); +lean_inc(x_226); +lean_dec(x_224); +x_165 = x_225; +x_166 = x_226; +goto block_218; +} +else +{ +uint8_t x_227; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_227 = !lean_is_exclusive(x_224); +if (x_227 == 0) +{ +return x_224; +} +else +{ +lean_object* x_228; lean_object* x_229; lean_object* x_230; +x_228 = lean_ctor_get(x_224, 0); +x_229 = lean_ctor_get(x_224, 1); +lean_inc(x_229); +lean_inc(x_228); +lean_dec(x_224); +x_230 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_230, 0, x_228); +lean_ctor_set(x_230, 1, x_229); +return x_230; +} +} +} +else +{ +uint8_t x_231; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_231 = !lean_is_exclusive(x_221); +if (x_231 == 0) +{ +return x_221; +} +else +{ +lean_object* x_232; lean_object* x_233; lean_object* x_234; +x_232 = lean_ctor_get(x_221, 0); +x_233 = lean_ctor_get(x_221, 1); +lean_inc(x_233); +lean_inc(x_232); +lean_dec(x_221); +x_234 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_234, 0, x_232); +lean_ctor_set(x_234, 1, x_233); +return x_234; +} +} +} +} +else +{ +uint8_t x_235; +lean_dec(x_162); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +lean_dec(x_1); +x_235 = !lean_is_exclusive(x_163); +if (x_235 == 0) +{ +return x_163; +} +else +{ +lean_object* x_236; lean_object* x_237; lean_object* x_238; +x_236 = lean_ctor_get(x_163, 0); +x_237 = lean_ctor_get(x_163, 1); +lean_inc(x_237); +lean_inc(x_236); +lean_dec(x_163); +x_238 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_238, 0, x_236); +lean_ctor_set(x_238, 1, x_237); +return x_238; +} +} +block_218: +{ +lean_object* x_167; lean_object* x_168; lean_object* x_169; uint8_t x_170; lean_object* x_171; +x_167 = lean_array_get_size(x_5); +x_168 = lean_unsigned_to_nat(2u); +x_169 = lean_nat_sub(x_167, x_168); +lean_dec(x_167); +x_170 = 0; +x_171 = l_Lean_Meta_introN(x_165, x_169, x_6, x_170, x_17, x_166); +if (lean_obj_tag(x_171) == 0) +{ +lean_object* x_172; lean_object* x_173; uint8_t x_174; +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 = !lean_is_exclusive(x_172); +if (x_174 == 0) +{ +lean_object* x_175; lean_object* x_176; lean_object* x_177; +x_175 = lean_ctor_get(x_172, 0); +x_176 = lean_array_get_size(x_175); +lean_inc(x_176); +x_177 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__2(x_5, x_175, x_176, x_176, x_7, x_17, x_173); +lean_dec(x_17); +lean_dec(x_176); +lean_dec(x_175); +if (x_164 == 0) +{ +uint8_t x_178; +lean_dec(x_23); +x_178 = !lean_is_exclusive(x_177); +if (x_178 == 0) +{ +lean_object* x_179; lean_object* x_180; lean_object* x_181; +x_179 = lean_ctor_get(x_177, 0); +x_180 = l_Lean_Meta_FVarSubst_insert(x_179, x_8, x_2); +x_181 = l_Lean_Meta_FVarSubst_insert(x_180, x_9, x_10); +lean_ctor_set(x_172, 0, x_181); +lean_ctor_set(x_177, 0, x_172); +return x_177; +} +else +{ +lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_182 = lean_ctor_get(x_177, 0); +x_183 = lean_ctor_get(x_177, 1); +lean_inc(x_183); +lean_inc(x_182); +lean_dec(x_177); +x_184 = l_Lean_Meta_FVarSubst_insert(x_182, x_8, x_2); +x_185 = l_Lean_Meta_FVarSubst_insert(x_184, x_9, x_10); +lean_ctor_set(x_172, 0, x_185); +x_186 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_186, 0, x_172); +lean_ctor_set(x_186, 1, x_183); +return x_186; +} +} +else +{ +uint8_t x_187; +lean_dec(x_2); +x_187 = !lean_is_exclusive(x_177); +if (x_187 == 0) +{ +lean_object* x_188; lean_object* x_189; lean_object* x_190; +x_188 = lean_ctor_get(x_177, 0); +x_189 = l_Lean_Meta_FVarSubst_insert(x_188, x_8, x_23); +x_190 = l_Lean_Meta_FVarSubst_insert(x_189, x_9, x_10); +lean_ctor_set(x_172, 0, x_190); +lean_ctor_set(x_177, 0, x_172); +return x_177; +} +else +{ +lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; +x_191 = lean_ctor_get(x_177, 0); +x_192 = lean_ctor_get(x_177, 1); +lean_inc(x_192); +lean_inc(x_191); +lean_dec(x_177); +x_193 = l_Lean_Meta_FVarSubst_insert(x_191, x_8, x_23); +x_194 = l_Lean_Meta_FVarSubst_insert(x_193, x_9, x_10); +lean_ctor_set(x_172, 0, x_194); +x_195 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_195, 0, x_172); +lean_ctor_set(x_195, 1, x_192); +return x_195; +} +} +} +else +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; +x_196 = lean_ctor_get(x_172, 0); +x_197 = lean_ctor_get(x_172, 1); +lean_inc(x_197); +lean_inc(x_196); +lean_dec(x_172); +x_198 = lean_array_get_size(x_196); +lean_inc(x_198); +x_199 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__2(x_5, x_196, x_198, x_198, x_7, x_17, x_173); +lean_dec(x_17); +lean_dec(x_198); +lean_dec(x_196); +if (x_164 == 0) +{ +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_dec(x_23); +x_200 = lean_ctor_get(x_199, 0); +lean_inc(x_200); +x_201 = lean_ctor_get(x_199, 1); +lean_inc(x_201); +if (lean_is_exclusive(x_199)) { + lean_ctor_release(x_199, 0); + lean_ctor_release(x_199, 1); + x_202 = x_199; +} else { + lean_dec_ref(x_199); + x_202 = lean_box(0); +} +x_203 = l_Lean_Meta_FVarSubst_insert(x_200, x_8, x_2); +x_204 = l_Lean_Meta_FVarSubst_insert(x_203, x_9, x_10); +x_205 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_205, 0, x_204); +lean_ctor_set(x_205, 1, x_197); +if (lean_is_scalar(x_202)) { + x_206 = lean_alloc_ctor(0, 2, 0); +} else { + x_206 = x_202; +} +lean_ctor_set(x_206, 0, x_205); +lean_ctor_set(x_206, 1, x_201); +return x_206; +} +else +{ +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_dec(x_2); +x_207 = lean_ctor_get(x_199, 0); +lean_inc(x_207); +x_208 = lean_ctor_get(x_199, 1); +lean_inc(x_208); +if (lean_is_exclusive(x_199)) { + lean_ctor_release(x_199, 0); + lean_ctor_release(x_199, 1); + x_209 = x_199; +} else { + lean_dec_ref(x_199); + x_209 = lean_box(0); +} +x_210 = l_Lean_Meta_FVarSubst_insert(x_207, x_8, x_23); +x_211 = l_Lean_Meta_FVarSubst_insert(x_210, x_9, x_10); +x_212 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_212, 0, x_211); +lean_ctor_set(x_212, 1, x_197); +if (lean_is_scalar(x_209)) { + x_213 = lean_alloc_ctor(0, 2, 0); +} else { + x_213 = x_209; +} +lean_ctor_set(x_213, 0, x_212); +lean_ctor_set(x_213, 1, x_208); +return x_213; +} +} +} +else +{ +uint8_t x_214; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_2); +x_214 = !lean_is_exclusive(x_171); +if (x_214 == 0) +{ +return x_171; +} +else +{ +lean_object* x_215; lean_object* x_216; lean_object* x_217; +x_215 = lean_ctor_get(x_171, 0); +x_216 = lean_ctor_get(x_171, 1); +lean_inc(x_216); +lean_inc(x_215); +lean_dec(x_171); +x_217 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_217, 0, x_215); +lean_ctor_set(x_217, 1, x_216); +return x_217; +} +} +} +} +} +else +{ +uint8_t x_242; +lean_dec(x_157); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_242 = !lean_is_exclusive(x_159); +if (x_242 == 0) +{ +return x_159; +} +else +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; +x_243 = lean_ctor_get(x_159, 0); +x_244 = lean_ctor_get(x_159, 1); +lean_inc(x_244); +lean_inc(x_243); +lean_dec(x_159); +x_245 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_245, 0, x_243); +lean_ctor_set(x_245, 1, x_244); +return x_245; +} +} +} +else +{ +uint8_t x_246; +lean_dec(x_150); +lean_dec(x_142); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_246 = !lean_is_exclusive(x_152); +if (x_246 == 0) { -lean_object* x_154; lean_object* x_155; -x_154 = lean_ctor_get(x_152, 0); -x_155 = l_Lean_Meta_FVarSubst_insert(x_154, x_9, x_21); -lean_ctor_set(x_147, 0, x_155); -lean_ctor_set(x_152, 0, x_147); return x_152; } else { -lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; -x_156 = lean_ctor_get(x_152, 0); -x_157 = lean_ctor_get(x_152, 1); -lean_inc(x_157); -lean_inc(x_156); +lean_object* x_247; lean_object* x_248; lean_object* x_249; +x_247 = lean_ctor_get(x_152, 0); +x_248 = lean_ctor_get(x_152, 1); +lean_inc(x_248); +lean_inc(x_247); lean_dec(x_152); -x_158 = l_Lean_Meta_FVarSubst_insert(x_156, x_9, x_21); -lean_ctor_set(x_147, 0, x_158); -x_159 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_159, 0, x_147); -lean_ctor_set(x_159, 1, x_157); -return x_159; -} -} -else -{ -lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; -x_160 = lean_ctor_get(x_147, 0); -x_161 = lean_ctor_get(x_147, 1); -lean_inc(x_161); -lean_inc(x_160); -lean_dec(x_147); -x_162 = lean_array_get_size(x_160); -lean_inc(x_162); -x_163 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__2(x_6, x_160, x_162, x_162, x_8, x_15, x_148); -lean_dec(x_15); -lean_dec(x_162); -lean_dec(x_160); -x_164 = lean_ctor_get(x_163, 0); -lean_inc(x_164); -x_165 = lean_ctor_get(x_163, 1); -lean_inc(x_165); -if (lean_is_exclusive(x_163)) { - lean_ctor_release(x_163, 0); - lean_ctor_release(x_163, 1); - x_166 = x_163; -} else { - lean_dec_ref(x_163); - x_166 = lean_box(0); -} -x_167 = l_Lean_Meta_FVarSubst_insert(x_164, x_9, x_21); -x_168 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_168, 0, x_167); -lean_ctor_set(x_168, 1, x_161); -if (lean_is_scalar(x_166)) { - x_169 = lean_alloc_ctor(0, 2, 0); -} else { - x_169 = x_166; -} -lean_ctor_set(x_169, 0, x_168); -lean_ctor_set(x_169, 1, x_165); -return x_169; -} -} -else -{ -uint8_t x_170; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -x_170 = !lean_is_exclusive(x_146); -if (x_170 == 0) -{ -return x_146; -} -else -{ -lean_object* x_171; lean_object* x_172; lean_object* x_173; -x_171 = lean_ctor_get(x_146, 0); -x_172 = lean_ctor_get(x_146, 1); -lean_inc(x_172); -lean_inc(x_171); -lean_dec(x_146); -x_173 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_173, 0, x_171); -lean_ctor_set(x_173, 1, x_172); -return x_173; +x_249 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_249, 0, x_247); +lean_ctor_set(x_249, 1, x_248); +return x_249; } } } else { -uint8_t x_174; -lean_dec(x_21); -lean_dec(x_15); +uint8_t x_250; +lean_dec(x_142); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -x_174 = !lean_is_exclusive(x_139); -if (x_174 == 0) +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_250 = !lean_is_exclusive(x_149); +if (x_250 == 0) +{ +return x_149; +} +else +{ +lean_object* x_251; lean_object* x_252; lean_object* x_253; +x_251 = lean_ctor_get(x_149, 0); +x_252 = lean_ctor_get(x_149, 1); +lean_inc(x_252); +lean_inc(x_251); +lean_dec(x_149); +x_253 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_253, 0, x_251); +lean_ctor_set(x_253, 1, x_252); +return x_253; +} +} +} +else +{ +uint8_t x_254; +lean_dec(x_142); +lean_dec(x_23); +lean_dec(x_19); +lean_dec(x_17); +lean_dec(x_14); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_254 = !lean_is_exclusive(x_143); +if (x_254 == 0) +{ +return x_143; +} +else +{ +lean_object* x_255; lean_object* x_256; lean_object* x_257; +x_255 = lean_ctor_get(x_143, 0); +x_256 = lean_ctor_get(x_143, 1); +lean_inc(x_256); +lean_inc(x_255); +lean_dec(x_143); +x_257 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_257, 0, x_255); +lean_ctor_set(x_257, 1, x_256); +return x_257; +} +} +} +else +{ +lean_object* x_258; lean_object* x_259; lean_object* x_260; +lean_inc(x_2); +x_258 = lean_array_push(x_14, x_2); +lean_inc(x_10); +x_259 = lean_array_push(x_258, x_10); +lean_inc(x_17); +x_260 = l_Lean_Meta_mkLambda(x_259, x_19, x_17, x_141); +if (lean_obj_tag(x_260) == 0) +{ +lean_object* x_261; lean_object* x_262; uint8_t x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; +x_261 = lean_ctor_get(x_260, 0); +lean_inc(x_261); +x_262 = lean_ctor_get(x_260, 1); +lean_inc(x_262); +lean_dec(x_260); +x_263 = 2; +lean_inc(x_17); +x_264 = l_Lean_Meta_mkFreshExprMVar(x_142, x_3, x_263, x_17, x_262); +x_265 = lean_ctor_get(x_264, 0); +lean_inc(x_265); +x_266 = lean_ctor_get(x_264, 1); +lean_inc(x_266); +lean_dec(x_264); +lean_inc(x_17); +lean_inc(x_10); +lean_inc(x_265); +x_267 = l_Lean_Meta_mkEqRec(x_261, x_265, x_10, x_17, x_266); +if (lean_obj_tag(x_267) == 0) +{ +lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; uint8_t x_272; +x_268 = lean_ctor_get(x_267, 0); +lean_inc(x_268); +x_269 = lean_ctor_get(x_267, 1); +lean_inc(x_269); +lean_dec(x_267); +x_270 = l_Lean_Expr_mvarId_x21(x_265); +lean_dec(x_265); +x_271 = l_Lean_Meta_assignExprMVar(x_4, x_268, x_17, x_269); +if (x_12 == 0) +{ +uint8_t x_348; +x_348 = 0; +x_272 = x_348; +goto block_347; +} +else +{ +uint8_t x_349; +x_349 = 1; +x_272 = x_349; +goto block_347; +} +block_347: +{ +lean_object* x_273; lean_object* x_274; +if (lean_obj_tag(x_271) == 0) +{ +if (x_272 == 0) +{ +lean_object* x_327; +lean_dec(x_11); +lean_dec(x_1); +x_327 = lean_ctor_get(x_271, 1); +lean_inc(x_327); +lean_dec(x_271); +x_273 = x_270; +x_274 = x_327; +goto block_326; +} +else +{ +lean_object* x_328; lean_object* x_329; +x_328 = lean_ctor_get(x_271, 1); +lean_inc(x_328); +lean_dec(x_271); +x_329 = l_Lean_Meta_clear(x_270, x_1, x_17, x_328); +if (lean_obj_tag(x_329) == 0) +{ +lean_object* x_330; lean_object* x_331; lean_object* x_332; +x_330 = lean_ctor_get(x_329, 0); +lean_inc(x_330); +x_331 = lean_ctor_get(x_329, 1); +lean_inc(x_331); +lean_dec(x_329); +x_332 = l_Lean_Meta_clear(x_330, x_11, x_17, x_331); +if (lean_obj_tag(x_332) == 0) +{ +lean_object* x_333; lean_object* x_334; +x_333 = lean_ctor_get(x_332, 0); +lean_inc(x_333); +x_334 = lean_ctor_get(x_332, 1); +lean_inc(x_334); +lean_dec(x_332); +x_273 = x_333; +x_274 = x_334; +goto block_326; +} +else +{ +uint8_t x_335; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_335 = !lean_is_exclusive(x_332); +if (x_335 == 0) +{ +return x_332; +} +else +{ +lean_object* x_336; lean_object* x_337; lean_object* x_338; +x_336 = lean_ctor_get(x_332, 0); +x_337 = lean_ctor_get(x_332, 1); +lean_inc(x_337); +lean_inc(x_336); +lean_dec(x_332); +x_338 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_338, 0, x_336); +lean_ctor_set(x_338, 1, x_337); +return x_338; +} +} +} +else +{ +uint8_t x_339; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_339 = !lean_is_exclusive(x_329); +if (x_339 == 0) +{ +return x_329; +} +else +{ +lean_object* x_340; lean_object* x_341; lean_object* x_342; +x_340 = lean_ctor_get(x_329, 0); +x_341 = lean_ctor_get(x_329, 1); +lean_inc(x_341); +lean_inc(x_340); +lean_dec(x_329); +x_342 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_342, 0, x_340); +lean_ctor_set(x_342, 1, x_341); +return x_342; +} +} +} +} +else +{ +uint8_t x_343; +lean_dec(x_270); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +lean_dec(x_1); +x_343 = !lean_is_exclusive(x_271); +if (x_343 == 0) +{ +return x_271; +} +else +{ +lean_object* x_344; lean_object* x_345; lean_object* x_346; +x_344 = lean_ctor_get(x_271, 0); +x_345 = lean_ctor_get(x_271, 1); +lean_inc(x_345); +lean_inc(x_344); +lean_dec(x_271); +x_346 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_346, 0, x_344); +lean_ctor_set(x_346, 1, x_345); +return x_346; +} +} +block_326: +{ +lean_object* x_275; lean_object* x_276; lean_object* x_277; uint8_t x_278; lean_object* x_279; +x_275 = lean_array_get_size(x_5); +x_276 = lean_unsigned_to_nat(2u); +x_277 = lean_nat_sub(x_275, x_276); +lean_dec(x_275); +x_278 = 0; +x_279 = l_Lean_Meta_introN(x_273, x_277, x_6, x_278, x_17, x_274); +if (lean_obj_tag(x_279) == 0) +{ +lean_object* x_280; lean_object* x_281; uint8_t x_282; +x_280 = lean_ctor_get(x_279, 0); +lean_inc(x_280); +x_281 = lean_ctor_get(x_279, 1); +lean_inc(x_281); +lean_dec(x_279); +x_282 = !lean_is_exclusive(x_280); +if (x_282 == 0) +{ +lean_object* x_283; lean_object* x_284; lean_object* x_285; +x_283 = lean_ctor_get(x_280, 0); +x_284 = lean_array_get_size(x_283); +lean_inc(x_284); +x_285 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__3(x_5, x_283, x_284, x_284, x_7, x_17, x_281); +lean_dec(x_17); +lean_dec(x_284); +lean_dec(x_283); +if (x_272 == 0) +{ +uint8_t x_286; +lean_dec(x_23); +x_286 = !lean_is_exclusive(x_285); +if (x_286 == 0) +{ +lean_object* x_287; lean_object* x_288; lean_object* x_289; +x_287 = lean_ctor_get(x_285, 0); +x_288 = l_Lean_Meta_FVarSubst_insert(x_287, x_8, x_2); +x_289 = l_Lean_Meta_FVarSubst_insert(x_288, x_9, x_10); +lean_ctor_set(x_280, 0, x_289); +lean_ctor_set(x_285, 0, x_280); +return x_285; +} +else +{ +lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; +x_290 = lean_ctor_get(x_285, 0); +x_291 = lean_ctor_get(x_285, 1); +lean_inc(x_291); +lean_inc(x_290); +lean_dec(x_285); +x_292 = l_Lean_Meta_FVarSubst_insert(x_290, x_8, x_2); +x_293 = l_Lean_Meta_FVarSubst_insert(x_292, x_9, x_10); +lean_ctor_set(x_280, 0, x_293); +x_294 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_294, 0, x_280); +lean_ctor_set(x_294, 1, x_291); +return x_294; +} +} +else +{ +uint8_t x_295; +lean_dec(x_2); +x_295 = !lean_is_exclusive(x_285); +if (x_295 == 0) +{ +lean_object* x_296; lean_object* x_297; lean_object* x_298; +x_296 = lean_ctor_get(x_285, 0); +x_297 = l_Lean_Meta_FVarSubst_insert(x_296, x_8, x_23); +x_298 = l_Lean_Meta_FVarSubst_insert(x_297, x_9, x_10); +lean_ctor_set(x_280, 0, x_298); +lean_ctor_set(x_285, 0, x_280); +return x_285; +} +else +{ +lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; +x_299 = lean_ctor_get(x_285, 0); +x_300 = lean_ctor_get(x_285, 1); +lean_inc(x_300); +lean_inc(x_299); +lean_dec(x_285); +x_301 = l_Lean_Meta_FVarSubst_insert(x_299, x_8, x_23); +x_302 = l_Lean_Meta_FVarSubst_insert(x_301, x_9, x_10); +lean_ctor_set(x_280, 0, x_302); +x_303 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_303, 0, x_280); +lean_ctor_set(x_303, 1, x_300); +return x_303; +} +} +} +else +{ +lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; +x_304 = lean_ctor_get(x_280, 0); +x_305 = lean_ctor_get(x_280, 1); +lean_inc(x_305); +lean_inc(x_304); +lean_dec(x_280); +x_306 = lean_array_get_size(x_304); +lean_inc(x_306); +x_307 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__3(x_5, x_304, x_306, x_306, x_7, x_17, x_281); +lean_dec(x_17); +lean_dec(x_306); +lean_dec(x_304); +if (x_272 == 0) +{ +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_dec(x_23); +x_308 = lean_ctor_get(x_307, 0); +lean_inc(x_308); +x_309 = lean_ctor_get(x_307, 1); +lean_inc(x_309); +if (lean_is_exclusive(x_307)) { + lean_ctor_release(x_307, 0); + lean_ctor_release(x_307, 1); + x_310 = x_307; +} else { + lean_dec_ref(x_307); + x_310 = lean_box(0); +} +x_311 = l_Lean_Meta_FVarSubst_insert(x_308, x_8, x_2); +x_312 = l_Lean_Meta_FVarSubst_insert(x_311, x_9, x_10); +x_313 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_313, 0, x_312); +lean_ctor_set(x_313, 1, x_305); +if (lean_is_scalar(x_310)) { + x_314 = lean_alloc_ctor(0, 2, 0); +} else { + x_314 = x_310; +} +lean_ctor_set(x_314, 0, x_313); +lean_ctor_set(x_314, 1, x_309); +return x_314; +} +else +{ +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_dec(x_2); +x_315 = lean_ctor_get(x_307, 0); +lean_inc(x_315); +x_316 = lean_ctor_get(x_307, 1); +lean_inc(x_316); +if (lean_is_exclusive(x_307)) { + lean_ctor_release(x_307, 0); + lean_ctor_release(x_307, 1); + x_317 = x_307; +} else { + lean_dec_ref(x_307); + x_317 = lean_box(0); +} +x_318 = l_Lean_Meta_FVarSubst_insert(x_315, x_8, x_23); +x_319 = l_Lean_Meta_FVarSubst_insert(x_318, x_9, x_10); +x_320 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_320, 0, x_319); +lean_ctor_set(x_320, 1, x_305); +if (lean_is_scalar(x_317)) { + x_321 = lean_alloc_ctor(0, 2, 0); +} else { + x_321 = x_317; +} +lean_ctor_set(x_321, 0, x_320); +lean_ctor_set(x_321, 1, x_316); +return x_321; +} +} +} +else +{ +uint8_t x_322; +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_2); +x_322 = !lean_is_exclusive(x_279); +if (x_322 == 0) +{ +return x_279; +} +else +{ +lean_object* x_323; lean_object* x_324; lean_object* x_325; +x_323 = lean_ctor_get(x_279, 0); +x_324 = lean_ctor_get(x_279, 1); +lean_inc(x_324); +lean_inc(x_323); +lean_dec(x_279); +x_325 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_325, 0, x_323); +lean_ctor_set(x_325, 1, x_324); +return x_325; +} +} +} +} +} +else +{ +uint8_t x_350; +lean_dec(x_265); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_350 = !lean_is_exclusive(x_267); +if (x_350 == 0) +{ +return x_267; +} +else +{ +lean_object* x_351; lean_object* x_352; lean_object* x_353; +x_351 = lean_ctor_get(x_267, 0); +x_352 = lean_ctor_get(x_267, 1); +lean_inc(x_352); +lean_inc(x_351); +lean_dec(x_267); +x_353 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_353, 0, x_351); +lean_ctor_set(x_353, 1, x_352); +return x_353; +} +} +} +else +{ +uint8_t x_354; +lean_dec(x_142); +lean_dec(x_23); +lean_dec(x_17); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_354 = !lean_is_exclusive(x_260); +if (x_354 == 0) +{ +return x_260; +} +else +{ +lean_object* x_355; lean_object* x_356; lean_object* x_357; +x_355 = lean_ctor_get(x_260, 0); +x_356 = lean_ctor_get(x_260, 1); +lean_inc(x_356); +lean_inc(x_355); +lean_dec(x_260); +x_357 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_357, 0, x_355); +lean_ctor_set(x_357, 1, x_356); +return x_357; +} +} +} +} +else +{ +uint8_t x_358; +lean_dec(x_138); +lean_dec(x_23); +lean_dec(x_19); +lean_dec(x_17); +lean_dec(x_14); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_358 = !lean_is_exclusive(x_139); +if (x_358 == 0) { return x_139; } else { -lean_object* x_175; lean_object* x_176; lean_object* x_177; -x_175 = lean_ctor_get(x_139, 0); -x_176 = lean_ctor_get(x_139, 1); -lean_inc(x_176); -lean_inc(x_175); +lean_object* x_359; lean_object* x_360; lean_object* x_361; +x_359 = lean_ctor_get(x_139, 0); +x_360 = lean_ctor_get(x_139, 1); +lean_inc(x_360); +lean_inc(x_359); lean_dec(x_139); -x_177 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_177, 0, x_175); -lean_ctor_set(x_177, 1, x_176); -return x_177; +x_361 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_361, 0, x_359); +lean_ctor_set(x_361, 1, x_360); +return x_361; +} +} } } } else { -uint8_t x_178; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -x_178 = !lean_is_exclusive(x_136); -if (x_178 == 0) -{ -return x_136; -} -else -{ -lean_object* x_179; lean_object* x_180; lean_object* x_181; -x_179 = lean_ctor_get(x_136, 0); -x_180 = lean_ctor_get(x_136, 1); -lean_inc(x_180); -lean_inc(x_179); -lean_dec(x_136); -x_181 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_181, 0, x_179); -lean_ctor_set(x_181, 1, x_180); -return x_181; -} -} -} -else -{ -uint8_t x_182; -lean_dec(x_133); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_1); -x_182 = !lean_is_exclusive(x_134); -if (x_182 == 0) -{ -return x_134; -} -else -{ -lean_object* x_183; lean_object* x_184; lean_object* x_185; -x_183 = lean_ctor_get(x_134, 0); -x_184 = lean_ctor_get(x_134, 1); -lean_inc(x_184); -lean_inc(x_183); -lean_dec(x_134); -x_185 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_185, 0, x_183); -lean_ctor_set(x_185, 1, x_184); -return x_185; -} -} -} -else -{ -uint8_t x_186; -lean_dec(x_128); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_186 = !lean_is_exclusive(x_130); -if (x_186 == 0) -{ -return x_130; -} -else -{ -lean_object* x_187; lean_object* x_188; lean_object* x_189; -x_187 = lean_ctor_get(x_130, 0); -x_188 = lean_ctor_get(x_130, 1); -lean_inc(x_188); -lean_inc(x_187); -lean_dec(x_130); -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_187); -lean_ctor_set(x_189, 1, x_188); -return x_189; -} -} -} -else -{ -uint8_t x_190; -lean_dec(x_121); -lean_dec(x_113); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_1); -x_190 = !lean_is_exclusive(x_123); -if (x_190 == 0) -{ -return x_123; -} -else -{ -lean_object* x_191; lean_object* x_192; lean_object* x_193; -x_191 = lean_ctor_get(x_123, 0); -x_192 = lean_ctor_get(x_123, 1); -lean_inc(x_192); -lean_inc(x_191); -lean_dec(x_123); -x_193 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_193, 0, x_191); -lean_ctor_set(x_193, 1, x_192); -return x_193; -} -} -} -else -{ -uint8_t x_194; -lean_dec(x_113); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_1); -x_194 = !lean_is_exclusive(x_120); -if (x_194 == 0) -{ -return x_120; -} -else -{ -lean_object* x_195; lean_object* x_196; lean_object* x_197; -x_195 = lean_ctor_get(x_120, 0); -x_196 = lean_ctor_get(x_120, 1); -lean_inc(x_196); -lean_inc(x_195); -lean_dec(x_120); -x_197 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_197, 0, x_195); -lean_ctor_set(x_197, 1, x_196); -return x_197; -} -} -} -else -{ -uint8_t x_198; -lean_dec(x_113); -lean_dec(x_21); +uint8_t x_372; +lean_dec(x_19); lean_dec(x_17); -lean_dec(x_15); -lean_dec(x_12); +lean_dec(x_14); lean_dec(x_11); +lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); -lean_dec(x_5); +lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_198 = !lean_is_exclusive(x_114); -if (x_198 == 0) +x_372 = !lean_is_exclusive(x_20); +if (x_372 == 0) { -return x_114; +return x_20; } else { -lean_object* x_199; lean_object* x_200; lean_object* x_201; -x_199 = lean_ctor_get(x_114, 0); -x_200 = lean_ctor_get(x_114, 1); -lean_inc(x_200); -lean_inc(x_199); -lean_dec(x_114); -x_201 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_201, 0, x_199); -lean_ctor_set(x_201, 1, x_200); -return x_201; -} -} -} -else -{ -lean_object* x_202; lean_object* x_203; lean_object* x_204; -x_202 = lean_array_push(x_12, x_2); -lean_inc(x_11); -x_203 = lean_array_push(x_202, x_11); -lean_inc(x_15); -x_204 = l_Lean_Meta_mkLambda(x_203, x_17, x_15, x_112); -if (lean_obj_tag(x_204) == 0) -{ -lean_object* x_205; lean_object* x_206; uint8_t x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; -x_205 = lean_ctor_get(x_204, 0); -lean_inc(x_205); -x_206 = lean_ctor_get(x_204, 1); -lean_inc(x_206); -lean_dec(x_204); -x_207 = 2; -lean_inc(x_15); -x_208 = l_Lean_Meta_mkFreshExprMVar(x_113, x_3, x_207, x_15, x_206); -x_209 = lean_ctor_get(x_208, 0); -lean_inc(x_209); -x_210 = lean_ctor_get(x_208, 1); -lean_inc(x_210); -lean_dec(x_208); -lean_inc(x_15); -lean_inc(x_209); -x_211 = l_Lean_Meta_mkEqRec(x_205, x_209, x_11, x_15, x_210); -if (lean_obj_tag(x_211) == 0) -{ -lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; -x_212 = lean_ctor_get(x_211, 0); -lean_inc(x_212); -x_213 = lean_ctor_get(x_211, 1); -lean_inc(x_213); -lean_dec(x_211); -x_214 = l_Lean_Expr_mvarId_x21(x_209); -lean_dec(x_209); -x_215 = l_Lean_Meta_assignExprMVar(x_4, x_212, x_15, x_213); -if (lean_obj_tag(x_215) == 0) -{ -lean_object* x_216; lean_object* x_217; -x_216 = lean_ctor_get(x_215, 1); -lean_inc(x_216); -lean_dec(x_215); -x_217 = l_Lean_Meta_clear(x_214, x_1, x_15, x_216); -if (lean_obj_tag(x_217) == 0) -{ -lean_object* x_218; lean_object* x_219; lean_object* x_220; -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_Meta_clear(x_218, x_5, x_15, x_219); -if (lean_obj_tag(x_220) == 0) -{ -lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; uint8_t x_226; lean_object* x_227; -x_221 = lean_ctor_get(x_220, 0); -lean_inc(x_221); -x_222 = lean_ctor_get(x_220, 1); -lean_inc(x_222); -lean_dec(x_220); -x_223 = lean_array_get_size(x_6); -x_224 = lean_unsigned_to_nat(2u); -x_225 = lean_nat_sub(x_223, x_224); -lean_dec(x_223); -x_226 = 0; -x_227 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_226, x_221, x_225, x_7, x_15, x_222); -if (lean_obj_tag(x_227) == 0) -{ -lean_object* x_228; lean_object* x_229; uint8_t x_230; -x_228 = lean_ctor_get(x_227, 0); -lean_inc(x_228); -x_229 = lean_ctor_get(x_227, 1); -lean_inc(x_229); -lean_dec(x_227); -x_230 = !lean_is_exclusive(x_228); -if (x_230 == 0) -{ -lean_object* x_231; lean_object* x_232; lean_object* x_233; uint8_t x_234; -x_231 = lean_ctor_get(x_228, 0); -x_232 = lean_array_get_size(x_231); -lean_inc(x_232); -x_233 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__3(x_6, x_231, x_232, x_232, x_8, x_15, x_229); -lean_dec(x_15); -lean_dec(x_232); -lean_dec(x_231); -x_234 = !lean_is_exclusive(x_233); -if (x_234 == 0) -{ -lean_object* x_235; lean_object* x_236; -x_235 = lean_ctor_get(x_233, 0); -x_236 = l_Lean_Meta_FVarSubst_insert(x_235, x_9, x_21); -lean_ctor_set(x_228, 0, x_236); -lean_ctor_set(x_233, 0, x_228); -return x_233; -} -else -{ -lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; -x_237 = lean_ctor_get(x_233, 0); -x_238 = lean_ctor_get(x_233, 1); -lean_inc(x_238); -lean_inc(x_237); -lean_dec(x_233); -x_239 = l_Lean_Meta_FVarSubst_insert(x_237, x_9, x_21); -lean_ctor_set(x_228, 0, x_239); -x_240 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_240, 0, x_228); -lean_ctor_set(x_240, 1, x_238); -return x_240; -} -} -else -{ -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; -x_241 = lean_ctor_get(x_228, 0); -x_242 = lean_ctor_get(x_228, 1); -lean_inc(x_242); -lean_inc(x_241); -lean_dec(x_228); -x_243 = lean_array_get_size(x_241); -lean_inc(x_243); -x_244 = l_Nat_foldMAux___main___at_Lean_Meta_substCore___spec__3(x_6, x_241, x_243, x_243, x_8, x_15, x_229); -lean_dec(x_15); -lean_dec(x_243); -lean_dec(x_241); -x_245 = lean_ctor_get(x_244, 0); -lean_inc(x_245); -x_246 = lean_ctor_get(x_244, 1); -lean_inc(x_246); -if (lean_is_exclusive(x_244)) { - lean_ctor_release(x_244, 0); - lean_ctor_release(x_244, 1); - x_247 = x_244; -} else { - lean_dec_ref(x_244); - x_247 = lean_box(0); -} -x_248 = l_Lean_Meta_FVarSubst_insert(x_245, x_9, x_21); -x_249 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_249, 0, x_248); -lean_ctor_set(x_249, 1, x_242); -if (lean_is_scalar(x_247)) { - x_250 = lean_alloc_ctor(0, 2, 0); -} else { - x_250 = x_247; -} -lean_ctor_set(x_250, 0, x_249); -lean_ctor_set(x_250, 1, x_246); -return x_250; -} -} -else -{ -uint8_t x_251; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -x_251 = !lean_is_exclusive(x_227); -if (x_251 == 0) -{ -return x_227; -} -else -{ -lean_object* x_252; lean_object* x_253; lean_object* x_254; -x_252 = lean_ctor_get(x_227, 0); -x_253 = lean_ctor_get(x_227, 1); -lean_inc(x_253); -lean_inc(x_252); -lean_dec(x_227); -x_254 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_254, 0, x_252); -lean_ctor_set(x_254, 1, x_253); -return x_254; -} -} -} -else -{ -uint8_t x_255; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -x_255 = !lean_is_exclusive(x_220); -if (x_255 == 0) -{ -return x_220; -} -else -{ -lean_object* x_256; lean_object* x_257; lean_object* x_258; -x_256 = lean_ctor_get(x_220, 0); -x_257 = lean_ctor_get(x_220, 1); -lean_inc(x_257); -lean_inc(x_256); -lean_dec(x_220); -x_258 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_258, 0, x_256); -lean_ctor_set(x_258, 1, x_257); -return x_258; -} -} -} -else -{ -uint8_t x_259; -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -x_259 = !lean_is_exclusive(x_217); -if (x_259 == 0) -{ -return x_217; -} -else -{ -lean_object* x_260; lean_object* x_261; lean_object* x_262; -x_260 = lean_ctor_get(x_217, 0); -x_261 = lean_ctor_get(x_217, 1); -lean_inc(x_261); -lean_inc(x_260); -lean_dec(x_217); -x_262 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_262, 0, x_260); -lean_ctor_set(x_262, 1, x_261); -return x_262; -} -} -} -else -{ -uint8_t x_263; -lean_dec(x_214); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_1); -x_263 = !lean_is_exclusive(x_215); -if (x_263 == 0) -{ -return x_215; -} -else -{ -lean_object* x_264; lean_object* x_265; lean_object* x_266; -x_264 = lean_ctor_get(x_215, 0); -x_265 = lean_ctor_get(x_215, 1); -lean_inc(x_265); -lean_inc(x_264); -lean_dec(x_215); -x_266 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_266, 0, x_264); -lean_ctor_set(x_266, 1, x_265); -return x_266; -} -} -} -else -{ -uint8_t x_267; -lean_dec(x_209); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_1); -x_267 = !lean_is_exclusive(x_211); -if (x_267 == 0) -{ -return x_211; -} -else -{ -lean_object* x_268; lean_object* x_269; lean_object* x_270; -x_268 = lean_ctor_get(x_211, 0); -x_269 = lean_ctor_get(x_211, 1); -lean_inc(x_269); -lean_inc(x_268); -lean_dec(x_211); -x_270 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_270, 0, x_268); -lean_ctor_set(x_270, 1, x_269); -return x_270; -} -} -} -else -{ -uint8_t x_271; -lean_dec(x_113); -lean_dec(x_21); -lean_dec(x_15); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_1); -x_271 = !lean_is_exclusive(x_204); -if (x_271 == 0) -{ -return x_204; -} -else -{ -lean_object* x_272; lean_object* x_273; lean_object* x_274; -x_272 = lean_ctor_get(x_204, 0); -x_273 = lean_ctor_get(x_204, 1); -lean_inc(x_273); -lean_inc(x_272); -lean_dec(x_204); -x_274 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_274, 0, x_272); -lean_ctor_set(x_274, 1, x_273); -return x_274; -} -} -} -} -else -{ -uint8_t x_275; -lean_dec(x_109); -lean_dec(x_21); -lean_dec(x_17); -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_275 = !lean_is_exclusive(x_110); -if (x_275 == 0) -{ -return x_110; -} -else -{ -lean_object* x_276; lean_object* x_277; lean_object* x_278; -x_276 = lean_ctor_get(x_110, 0); -x_277 = lean_ctor_get(x_110, 1); -lean_inc(x_277); -lean_inc(x_276); -lean_dec(x_110); -x_278 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_278, 0, x_276); -lean_ctor_set(x_278, 1, x_277); -return x_278; -} -} -} -} -} -else -{ -uint8_t x_289; -lean_dec(x_17); -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_289 = !lean_is_exclusive(x_18); -if (x_289 == 0) -{ -return x_18; -} -else -{ -lean_object* x_290; lean_object* x_291; lean_object* x_292; -x_290 = lean_ctor_get(x_18, 0); -x_291 = lean_ctor_get(x_18, 1); -lean_inc(x_291); -lean_inc(x_290); -lean_dec(x_18); -x_292 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_292, 0, x_290); -lean_ctor_set(x_292, 1, x_291); -return x_292; +lean_object* x_373; lean_object* x_374; lean_object* x_375; +x_373 = lean_ctor_get(x_20, 0); +x_374 = lean_ctor_get(x_20, 1); +lean_inc(x_374); +lean_inc(x_373); +lean_dec(x_20); +x_375 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_375, 0, x_373); +lean_ctor_set(x_375, 1, x_374); +return x_375; } } } @@ -1830,7 +2246,7 @@ lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__9() { _start: { lean_object* x_1; -x_1 = lean_mk_string("(x = t)"); +x_1 = lean_mk_string("after WHNF, variable expected, but obtained"); return x_1; } } @@ -1857,21 +2273,19 @@ return x_2; lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__12() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Meta_substCore___lambda__3___closed__8; -x_2 = l_Lean_Meta_substCore___lambda__3___closed__11; -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* x_1; +x_1 = lean_mk_string("(x = t)"); +return x_1; } } lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__13() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("(t = x)"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_substCore___lambda__3___closed__12; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; } } lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__14() { @@ -1879,7 +2293,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Meta_substCore___lambda__3___closed__13; -x_2 = lean_alloc_ctor(2, 1, 0); +x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -1887,28 +2301,58 @@ return x_2; lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__15() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_substCore___lambda__3___closed__14; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__16() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Meta_substCore___lambda__3___closed__8; -x_2 = l_Lean_Meta_substCore___lambda__3___closed__15; +x_2 = l_Lean_Meta_substCore___lambda__3___closed__14; 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_Lean_Meta_substCore___lambda__3___closed__16() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("(t = x)"); +return x_1; +} +} lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__17() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_substCore___lambda__3___closed__16; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__18() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_substCore___lambda__3___closed__17; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__19() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_substCore___lambda__3___closed__8; +x_2 = l_Lean_Meta_substCore___lambda__3___closed__18; +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_Lean_Meta_substCore___lambda__3___closed__20() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l___private_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__2; x_2 = l_Lean_Meta_substCore___lambda__3___closed__1; @@ -1916,39 +2360,11 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__18() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("reverted variables "); -return x_1; -} -} -lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__19() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_substCore___lambda__3___closed__18; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__20() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_substCore___lambda__3___closed__19; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__21() { _start: { lean_object* x_1; -x_1 = lean_mk_string("' occurs at"); +x_1 = lean_mk_string("reverted variables "); return x_1; } } @@ -1976,7 +2392,7 @@ lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__24() { _start: { lean_object* x_1; -x_1 = lean_mk_string("substituting "); +x_1 = lean_mk_string("' occurs at"); return x_1; } } @@ -2004,7 +2420,7 @@ lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__27() { _start: { lean_object* x_1; -x_1 = lean_mk_string(" (id: "); +x_1 = lean_mk_string("substituting "); return x_1; } } @@ -2032,7 +2448,7 @@ lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__30() { _start: { lean_object* x_1; -x_1 = lean_mk_string(") with "); +x_1 = lean_mk_string(" (id: "); return x_1; } } @@ -2056,743 +2472,807 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l_Lean_Meta_substCore___lambda__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__33() { _start: { -lean_object* x_8; lean_object* x_9; -x_8 = l_Lean_Meta_substCore___lambda__3___closed__2; -lean_inc(x_1); -x_9 = l_Lean_Meta_checkNotAssigned(x_1, x_8, x_6, x_7); -if (lean_obj_tag(x_9) == 0) +lean_object* x_1; +x_1 = lean_mk_string(") with "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__34() { +_start: { -lean_object* x_10; lean_object* x_11; -x_10 = lean_ctor_get(x_9, 1); -lean_inc(x_10); -lean_dec(x_9); -lean_inc(x_6); +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_substCore___lambda__3___closed__33; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_substCore___lambda__3___closed__35() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_substCore___lambda__3___closed__34; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_substCore___lambda__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, uint8_t x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +_start: +{ +lean_object* x_9; lean_object* x_10; +x_9 = l_Lean_Meta_substCore___lambda__3___closed__2; +lean_inc(x_1); +x_10 = l_Lean_Meta_checkNotAssigned(x_1, x_9, x_7, x_8); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); +lean_dec(x_10); +lean_inc(x_7); lean_inc(x_2); -x_11 = l_Lean_Meta_getLocalDecl(x_2, x_6, x_10); -if (lean_obj_tag(x_11) == 0) +x_12 = l_Lean_Meta_getLocalDecl(x_2, x_7, x_11); +if (lean_obj_tag(x_12) == 0) { -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; -x_12 = lean_ctor_get(x_11, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_11, 1); +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; +x_13 = lean_ctor_get(x_12, 0); lean_inc(x_13); -lean_dec(x_11); -x_14 = l_Lean_LocalDecl_type(x_12); -lean_dec(x_12); -x_15 = l_Lean_Expr_eq_x3f___closed__2; -x_16 = lean_unsigned_to_nat(3u); -x_17 = l_Lean_Expr_isAppOfArity___main(x_14, x_15, x_16); -if (x_17 == 0) -{ -lean_object* x_18; lean_object* x_19; -lean_dec(x_14); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -x_18 = l_Lean_Meta_substCore___lambda__3___closed__5; -x_19 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_18, x_6, x_13); -lean_dec(x_6); -return x_19; -} -else -{ -lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; -x_20 = l_Lean_Expr_appFn_x21(x_14); -x_21 = l_Lean_Expr_appArg_x21(x_20); -lean_dec(x_20); -x_22 = l_Lean_Expr_appArg_x21(x_14); -if (x_4 == 0) -{ -uint8_t x_172; -x_172 = 0; -x_23 = x_172; -goto block_171; -} -else -{ -uint8_t x_173; -x_173 = 1; -x_23 = x_173; -goto block_171; -} -block_171: -{ -lean_object* x_24; -if (x_23 == 0) -{ -lean_inc(x_21); -x_24 = x_21; -goto block_170; -} -else -{ -lean_inc(x_22); -x_24 = x_22; -goto block_170; -} -block_170: -{ -lean_object* x_25; -if (x_23 == 0) -{ -lean_dec(x_21); -x_25 = x_22; -goto block_169; -} -else -{ -lean_dec(x_22); -x_25 = x_21; -goto block_169; -} -block_169: -{ -lean_object* x_26; -lean_inc(x_6); -x_26 = l_Lean_Meta_whnf(x_24, x_6, x_13); -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); -if (lean_obj_tag(x_27) == 1) -{ -lean_object* x_39; lean_object* x_40; lean_object* x_143; uint8_t x_144; -lean_dec(x_14); -x_39 = lean_ctor_get(x_27, 0); -lean_inc(x_39); -x_143 = lean_ctor_get(x_28, 4); -lean_inc(x_143); -x_144 = lean_ctor_get_uint8(x_143, sizeof(void*)*1); -lean_dec(x_143); -if (x_144 == 0) -{ -x_40 = x_28; -goto block_142; -} -else -{ -lean_object* x_145; lean_object* x_146; lean_object* x_147; uint8_t x_148; -x_145 = l_Lean_Meta_substCore___lambda__3___closed__17; -x_146 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_145, x_6, x_28); -x_147 = lean_ctor_get(x_146, 0); -lean_inc(x_147); -x_148 = lean_unbox(x_147); -lean_dec(x_147); -if (x_148 == 0) -{ -lean_object* x_149; -x_149 = lean_ctor_get(x_146, 1); -lean_inc(x_149); -lean_dec(x_146); -x_40 = x_149; -goto block_142; -} -else -{ -lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; -x_150 = lean_ctor_get(x_146, 1); -lean_inc(x_150); -lean_dec(x_146); -lean_inc(x_27); -x_151 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_151, 0, x_27); -x_152 = l_Lean_Meta_substCore___lambda__3___closed__26; -x_153 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_153, 0, x_152); -lean_ctor_set(x_153, 1, x_151); -x_154 = l_Lean_Meta_substCore___lambda__3___closed__29; -x_155 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_155, 0, x_153); -lean_ctor_set(x_155, 1, x_154); -lean_inc(x_39); -x_156 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_156, 0, x_39); -x_157 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_157, 0, x_155); -lean_ctor_set(x_157, 1, x_156); -x_158 = l_Lean_Meta_substCore___lambda__3___closed__32; -x_159 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_159, 0, x_157); -lean_ctor_set(x_159, 1, x_158); -lean_inc(x_25); -x_160 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_160, 0, x_25); -x_161 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_161, 0, x_159); -lean_ctor_set(x_161, 1, x_160); -x_162 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_145, x_161, x_6, x_150); -x_163 = lean_ctor_get(x_162, 1); -lean_inc(x_163); -lean_dec(x_162); -x_40 = x_163; -goto block_142; -} -} -block_142: -{ -lean_object* x_41; lean_object* x_42; uint8_t x_43; lean_object* x_44; -x_41 = lean_ctor_get(x_40, 1); -lean_inc(x_41); -lean_inc(x_25); -x_42 = l_Lean_MetavarContext_exprDependsOn(x_41, x_25, x_39); -x_43 = lean_unbox(x_42); -lean_dec(x_42); -if (x_43 == 0) -{ -lean_dec(x_27); -lean_dec(x_25); -x_44 = x_40; -goto block_128; -} -else -{ -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; uint8_t x_138; -lean_dec(x_39); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -x_129 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_129, 0, x_27); -x_130 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_131 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_131, 0, x_130); -lean_ctor_set(x_131, 1, x_129); -x_132 = l_Lean_Meta_substCore___lambda__3___closed__23; -x_133 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_133, 0, x_131); -lean_ctor_set(x_133, 1, x_132); -x_134 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_134, 0, x_25); -x_135 = l_Lean_indentExpr(x_134); -x_136 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_136, 0, x_133); -lean_ctor_set(x_136, 1, x_135); -x_137 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_136, x_6, x_40); -lean_dec(x_6); -x_138 = !lean_is_exclusive(x_137); -if (x_138 == 0) -{ -return x_137; -} -else -{ -lean_object* x_139; lean_object* x_140; lean_object* x_141; -x_139 = lean_ctor_get(x_137, 0); -x_140 = lean_ctor_get(x_137, 1); -lean_inc(x_140); -lean_inc(x_139); -lean_dec(x_137); -x_141 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_141, 0, x_139); -lean_ctor_set(x_141, 1, x_140); -return x_141; -} -} -block_128: -{ -lean_object* x_45; -lean_inc(x_6); -lean_inc(x_39); -x_45 = l_Lean_Meta_getLocalDecl(x_39, x_6, x_44); -if (lean_obj_tag(x_45) == 0) -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; lean_object* x_51; -x_46 = lean_ctor_get(x_45, 1); -lean_inc(x_46); -lean_dec(x_45); -x_47 = l_Lean_mkAppStx___closed__9; -lean_inc(x_39); -x_48 = lean_array_push(x_47, x_39); -x_49 = lean_array_push(x_48, x_2); -x_50 = 1; -x_51 = l_Lean_Meta_revert(x_1, x_49, x_50, x_6, x_46); -if (lean_obj_tag(x_51) == 0) -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; lean_object* x_58; lean_object* x_59; -x_52 = lean_ctor_get(x_51, 0); -lean_inc(x_52); -x_53 = lean_ctor_get(x_51, 1); -lean_inc(x_53); -lean_dec(x_51); -x_54 = lean_ctor_get(x_52, 0); -lean_inc(x_54); -x_55 = lean_ctor_get(x_52, 1); -lean_inc(x_55); -lean_dec(x_52); -x_56 = lean_box(0); -x_57 = 0; -x_58 = lean_unsigned_to_nat(2u); -x_59 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_57, x_55, x_58, x_56, x_6, x_53); -if (lean_obj_tag(x_59) == 0) -{ -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; uint8_t x_75; lean_object* x_76; lean_object* x_109; uint8_t x_110; -x_60 = lean_ctor_get(x_59, 0); -lean_inc(x_60); -x_61 = lean_ctor_get(x_59, 1); -lean_inc(x_61); -lean_dec(x_59); -x_62 = lean_ctor_get(x_60, 0); -lean_inc(x_62); -x_63 = lean_ctor_get(x_60, 1); -lean_inc(x_63); -lean_dec(x_60); -x_64 = l_Lean_Name_inhabited; -x_65 = lean_unsigned_to_nat(0u); -x_66 = lean_array_get(x_64, x_62, x_65); -lean_inc(x_66); -x_67 = l_Lean_mkFVar(x_66); -x_68 = lean_unsigned_to_nat(1u); -x_69 = lean_array_get(x_64, x_62, x_68); -lean_dec(x_62); -lean_inc(x_69); -x_70 = l_Lean_mkFVar(x_69); -lean_inc(x_63); -x_71 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarDecl___boxed), 3, 1); -lean_closure_set(x_71, 0, x_63); -x_72 = lean_box(x_23); -lean_inc(x_54); -lean_inc(x_63); -x_73 = lean_alloc_closure((void*)(l_Lean_Meta_substCore___lambda__2___boxed), 16, 13); -lean_closure_set(x_73, 0, x_69); -lean_closure_set(x_73, 1, x_67); -lean_closure_set(x_73, 2, x_5); -lean_closure_set(x_73, 3, x_63); -lean_closure_set(x_73, 4, x_66); -lean_closure_set(x_73, 5, x_54); -lean_closure_set(x_73, 6, x_56); -lean_closure_set(x_73, 7, x_3); -lean_closure_set(x_73, 8, x_39); -lean_closure_set(x_73, 9, x_72); -lean_closure_set(x_73, 10, x_70); -lean_closure_set(x_73, 11, x_47); -lean_closure_set(x_73, 12, x_15); -x_74 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_74, 0, x_71); -lean_closure_set(x_74, 1, x_73); -x_109 = lean_ctor_get(x_61, 4); -lean_inc(x_109); -x_110 = lean_ctor_get_uint8(x_109, sizeof(void*)*1); -lean_dec(x_109); -if (x_110 == 0) -{ -x_75 = x_57; -x_76 = x_61; -goto block_108; -} -else -{ -lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; uint8_t x_115; -x_111 = l_Lean_Meta_substCore___lambda__3___closed__17; -x_112 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_111, x_6, x_61); -x_113 = lean_ctor_get(x_112, 0); -lean_inc(x_113); -x_114 = lean_ctor_get(x_112, 1); -lean_inc(x_114); -lean_dec(x_112); -x_115 = lean_unbox(x_113); -lean_dec(x_113); -x_75 = x_115; -x_76 = x_114; -goto block_108; -} -block_108: -{ -if (x_75 == 0) -{ -lean_object* x_77; -lean_dec(x_54); -x_77 = l_Lean_Meta_getMVarDecl(x_63, x_6, 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; -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_ctor_get(x_78, 1); -lean_inc(x_80); -x_81 = lean_ctor_get(x_78, 4); -lean_inc(x_81); -lean_dec(x_78); -x_82 = l_Lean_Meta_withLocalContext___rarg(x_80, x_81, x_74, x_6, x_79); -lean_dec(x_6); -return x_82; -} -else -{ -uint8_t x_83; -lean_dec(x_74); -lean_dec(x_6); -x_83 = !lean_is_exclusive(x_77); -if (x_83 == 0) -{ -return x_77; -} -else -{ -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_77, 0); -x_85 = lean_ctor_get(x_77, 1); -lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_77); -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; 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; -x_87 = l_Array_toList___rarg(x_54); -lean_dec(x_54); -x_88 = l_List_toString___at_Lean_Meta_substCore___spec__4(x_87); -x_89 = l_Array_HasRepr___rarg___closed__1; -x_90 = lean_string_append(x_89, x_88); -lean_dec(x_88); -x_91 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_91, 0, x_90); -x_92 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_92, 0, x_91); -x_93 = l_Lean_Meta_substCore___lambda__3___closed__20; -x_94 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_94, 0, x_93); -lean_ctor_set(x_94, 1, x_92); -x_95 = l_Lean_Meta_substCore___lambda__3___closed__17; -x_96 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_95, x_94, x_6, x_76); -x_97 = lean_ctor_get(x_96, 1); -lean_inc(x_97); -lean_dec(x_96); -x_98 = l_Lean_Meta_getMVarDecl(x_63, x_6, x_97); -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; -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_101 = lean_ctor_get(x_99, 1); -lean_inc(x_101); -x_102 = lean_ctor_get(x_99, 4); -lean_inc(x_102); -lean_dec(x_99); -x_103 = l_Lean_Meta_withLocalContext___rarg(x_101, x_102, x_74, x_6, x_100); -lean_dec(x_6); -return x_103; -} -else -{ -uint8_t x_104; -lean_dec(x_74); -lean_dec(x_6); -x_104 = !lean_is_exclusive(x_98); -if (x_104 == 0) -{ -return x_98; -} -else -{ -lean_object* x_105; lean_object* x_106; lean_object* x_107; -x_105 = lean_ctor_get(x_98, 0); -x_106 = lean_ctor_get(x_98, 1); -lean_inc(x_106); -lean_inc(x_105); -lean_dec(x_98); -x_107 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_107, 0, x_105); -lean_ctor_set(x_107, 1, x_106); -return x_107; -} -} -} -} -} -else -{ -uint8_t x_116; -lean_dec(x_54); -lean_dec(x_39); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); -x_116 = !lean_is_exclusive(x_59); -if (x_116 == 0) -{ -return x_59; -} -else -{ -lean_object* x_117; lean_object* x_118; lean_object* x_119; -x_117 = lean_ctor_get(x_59, 0); -x_118 = lean_ctor_get(x_59, 1); -lean_inc(x_118); -lean_inc(x_117); -lean_dec(x_59); -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_117); -lean_ctor_set(x_119, 1, x_118); -return x_119; -} -} -} -else -{ -uint8_t x_120; -lean_dec(x_39); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); -x_120 = !lean_is_exclusive(x_51); -if (x_120 == 0) -{ -return x_51; -} -else -{ -lean_object* x_121; lean_object* x_122; lean_object* x_123; -x_121 = lean_ctor_get(x_51, 0); -x_122 = lean_ctor_get(x_51, 1); -lean_inc(x_122); -lean_inc(x_121); -lean_dec(x_51); -x_123 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_123, 0, x_121); -lean_ctor_set(x_123, 1, x_122); -return x_123; -} -} -} -else -{ -uint8_t x_124; -lean_dec(x_39); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_124 = !lean_is_exclusive(x_45); -if (x_124 == 0) -{ -return x_45; -} -else -{ -lean_object* x_125; lean_object* x_126; lean_object* x_127; -x_125 = lean_ctor_get(x_45, 0); -x_126 = lean_ctor_get(x_45, 1); -lean_inc(x_126); -lean_inc(x_125); -lean_dec(x_45); -x_127 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_127, 0, x_125); -lean_ctor_set(x_127, 1, x_126); -return x_127; -} -} -} -} -} -else -{ -lean_object* x_164; -lean_dec(x_27); -lean_dec(x_25); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -x_164 = lean_box(0); -x_29 = x_164; -goto block_38; -} -block_38: -{ -lean_object* x_30; lean_object* x_31; -lean_dec(x_29); -x_30 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_30, 0, x_14); -x_31 = l_Lean_indentExpr(x_30); -if (x_23 == 0) -{ -lean_object* x_32; lean_object* x_33; lean_object* x_34; -x_32 = l_Lean_Meta_substCore___lambda__3___closed__12; -x_33 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set(x_33, 1, x_31); -x_34 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_33, x_6, x_28); -lean_dec(x_6); -return x_34; -} -else -{ -lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_35 = l_Lean_Meta_substCore___lambda__3___closed__16; -x_36 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_31); -x_37 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_36, x_6, x_28); -lean_dec(x_6); -return x_37; -} -} -} -else -{ -uint8_t x_165; -lean_dec(x_25); -lean_dec(x_14); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_165 = !lean_is_exclusive(x_26); -if (x_165 == 0) -{ -return x_26; -} -else -{ -lean_object* x_166; lean_object* x_167; lean_object* x_168; -x_166 = lean_ctor_get(x_26, 0); -x_167 = lean_ctor_get(x_26, 1); -lean_inc(x_167); -lean_inc(x_166); -lean_dec(x_26); -x_168 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_168, 0, x_166); -lean_ctor_set(x_168, 1, x_167); -return x_168; -} -} -} -} -} -} -} -else -{ -uint8_t x_174; -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_174 = !lean_is_exclusive(x_11); -if (x_174 == 0) -{ -return x_11; -} -else -{ -lean_object* x_175; lean_object* x_176; lean_object* x_177; -x_175 = lean_ctor_get(x_11, 0); -x_176 = lean_ctor_get(x_11, 1); -lean_inc(x_176); -lean_inc(x_175); -lean_dec(x_11); -x_177 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_177, 0, x_175); -lean_ctor_set(x_177, 1, x_176); -return x_177; -} -} -} -else -{ -uint8_t x_178; -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_178 = !lean_is_exclusive(x_9); -if (x_178 == 0) -{ -return x_9; -} -else -{ -lean_object* x_179; lean_object* x_180; lean_object* x_181; -x_179 = lean_ctor_get(x_9, 0); -x_180 = lean_ctor_get(x_9, 1); -lean_inc(x_180); -lean_inc(x_179); -lean_dec(x_9); -x_181 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_181, 0, x_179); -lean_ctor_set(x_181, 1, x_180); -return x_181; -} -} -} -} -lean_object* l_Lean_Meta_substCore(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { -_start: -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; -lean_inc(x_1); -x_7 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarTag___boxed), 3, 1); -lean_closure_set(x_7, 0, x_1); -x_8 = lean_box(x_3); -lean_inc(x_1); -x_9 = lean_alloc_closure((void*)(l_Lean_Meta_substCore___lambda__3___boxed), 7, 4); -lean_closure_set(x_9, 0, x_1); -lean_closure_set(x_9, 1, x_2); -lean_closure_set(x_9, 2, x_4); -lean_closure_set(x_9, 3, x_8); -x_10 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); -lean_closure_set(x_10, 0, x_7); -lean_closure_set(x_10, 1, x_9); -x_11 = l_Lean_Meta_getMVarDecl(x_1, x_5, x_6); -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_12 = 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); x_14 = lean_ctor_get(x_12, 1); lean_inc(x_14); -x_15 = lean_ctor_get(x_12, 4); -lean_inc(x_15); lean_dec(x_12); -x_16 = l_Lean_Meta_withLocalContext___rarg(x_14, x_15, x_10, x_5, x_13); -return x_16; +x_15 = l_Lean_LocalDecl_type(x_13); +lean_dec(x_13); +x_16 = l_Lean_Expr_eq_x3f___closed__2; +x_17 = lean_unsigned_to_nat(3u); +x_18 = l_Lean_Expr_isAppOfArity___main(x_15, x_16, x_17); +if (x_18 == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; +lean_dec(x_15); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_19 = l_Lean_Meta_substCore___lambda__3___closed__5; +x_20 = lean_box(0); +x_21 = l_Lean_Meta_throwTacticEx___rarg(x_9, x_1, x_19, x_20, x_7, x_14); +lean_dec(x_7); +return x_21; } else { -uint8_t x_17; +lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; +x_22 = l_Lean_Expr_appFn_x21(x_15); +x_23 = l_Lean_Expr_appArg_x21(x_22); +lean_dec(x_22); +x_24 = l_Lean_Expr_appArg_x21(x_15); +if (x_5 == 0) +{ +uint8_t x_190; +x_190 = 0; +x_25 = x_190; +goto block_189; +} +else +{ +uint8_t x_191; +x_191 = 1; +x_25 = x_191; +goto block_189; +} +block_189: +{ +lean_object* x_26; +if (x_25 == 0) +{ +lean_inc(x_23); +x_26 = x_23; +goto block_188; +} +else +{ +lean_inc(x_24); +x_26 = x_24; +goto block_188; +} +block_188: +{ +lean_object* x_27; +if (x_25 == 0) +{ +lean_dec(x_23); +x_27 = x_24; +goto block_187; +} +else +{ +lean_dec(x_24); +x_27 = x_23; +goto block_187; +} +block_187: +{ +lean_object* x_28; +lean_inc(x_7); +x_28 = l_Lean_Meta_whnf(x_26, x_7, x_14); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +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); +if (lean_obj_tag(x_29) == 1) +{ +lean_object* x_55; lean_object* x_56; lean_object* x_161; uint8_t x_162; +lean_dec(x_15); +x_55 = lean_ctor_get(x_29, 0); +lean_inc(x_55); +x_161 = lean_ctor_get(x_30, 4); +lean_inc(x_161); +x_162 = lean_ctor_get_uint8(x_161, sizeof(void*)*1); +lean_dec(x_161); +if (x_162 == 0) +{ +x_56 = x_30; +goto block_160; +} +else +{ +lean_object* x_163; lean_object* x_164; lean_object* x_165; uint8_t x_166; +x_163 = l_Lean_Meta_substCore___lambda__3___closed__20; +x_164 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_163, x_7, x_30); +x_165 = lean_ctor_get(x_164, 0); +lean_inc(x_165); +x_166 = lean_unbox(x_165); +lean_dec(x_165); +if (x_166 == 0) +{ +lean_object* x_167; +x_167 = lean_ctor_get(x_164, 1); +lean_inc(x_167); +lean_dec(x_164); +x_56 = x_167; +goto block_160; +} +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_object* x_181; +x_168 = lean_ctor_get(x_164, 1); +lean_inc(x_168); +lean_dec(x_164); +lean_inc(x_29); +x_169 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_169, 0, x_29); +x_170 = l_Lean_Meta_substCore___lambda__3___closed__29; +x_171 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_171, 0, x_170); +lean_ctor_set(x_171, 1, x_169); +x_172 = l_Lean_Meta_substCore___lambda__3___closed__32; +x_173 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_173, 0, x_171); +lean_ctor_set(x_173, 1, x_172); +lean_inc(x_55); +x_174 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_174, 0, x_55); +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_Meta_substCore___lambda__3___closed__35; +x_177 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_177, 0, x_175); +lean_ctor_set(x_177, 1, x_176); +lean_inc(x_27); +x_178 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_178, 0, x_27); +x_179 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_179, 0, x_177); +lean_ctor_set(x_179, 1, x_178); +x_180 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_163, x_179, x_7, x_168); +x_181 = lean_ctor_get(x_180, 1); +lean_inc(x_181); +lean_dec(x_180); +x_56 = x_181; +goto block_160; +} +} +block_160: +{ +lean_object* x_57; lean_object* x_58; uint8_t x_59; lean_object* x_60; +x_57 = lean_ctor_get(x_56, 1); +lean_inc(x_57); +lean_inc(x_27); +x_58 = l_Lean_MetavarContext_exprDependsOn(x_57, x_27, x_55); +x_59 = lean_unbox(x_58); +lean_dec(x_58); +if (x_59 == 0) +{ +lean_dec(x_29); +lean_dec(x_27); +x_60 = x_56; +goto block_145; +} +else +{ +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; uint8_t x_156; +lean_dec(x_55); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_146 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_146, 0, x_29); +x_147 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; +x_148 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_148, 0, x_147); +lean_ctor_set(x_148, 1, x_146); +x_149 = l_Lean_Meta_substCore___lambda__3___closed__26; +x_150 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_150, 0, x_148); +lean_ctor_set(x_150, 1, x_149); +x_151 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_151, 0, x_27); +x_152 = l_Lean_indentExpr(x_151); +x_153 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_153, 0, x_150); +lean_ctor_set(x_153, 1, x_152); +x_154 = lean_box(0); +x_155 = l_Lean_Meta_throwTacticEx___rarg(x_9, x_1, x_153, x_154, x_7, x_56); +lean_dec(x_7); +x_156 = !lean_is_exclusive(x_155); +if (x_156 == 0) +{ +return x_155; +} +else +{ +lean_object* x_157; lean_object* x_158; lean_object* x_159; +x_157 = lean_ctor_get(x_155, 0); +x_158 = lean_ctor_get(x_155, 1); +lean_inc(x_158); +lean_inc(x_157); +lean_dec(x_155); +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; +} +} +block_145: +{ +lean_object* x_61; +lean_inc(x_7); +lean_inc(x_55); +x_61 = l_Lean_Meta_getLocalDecl(x_55, x_7, x_60); +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, 1); +lean_inc(x_62); +lean_dec(x_61); +x_63 = l_Lean_mkAppStx___closed__9; +lean_inc(x_55); +x_64 = lean_array_push(x_63, x_55); +lean_inc(x_2); +x_65 = lean_array_push(x_64, x_2); +x_66 = 1; +x_67 = l_Lean_Meta_revert(x_1, x_65, x_66, x_7, x_62); +if (lean_obj_tag(x_67) == 0) +{ +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_object* x_75; +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); +x_70 = lean_ctor_get(x_68, 0); +lean_inc(x_70); +x_71 = lean_ctor_get(x_68, 1); +lean_inc(x_71); +lean_dec(x_68); +x_72 = lean_box(0); +x_73 = lean_unsigned_to_nat(2u); +x_74 = 0; +x_75 = l_Lean_Meta_introN(x_71, x_73, x_72, x_74, x_7, x_69); +if (lean_obj_tag(x_75) == 0) +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; 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; uint8_t x_92; lean_object* x_93; lean_object* x_126; uint8_t x_127; +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_ctor_get(x_76, 0); +lean_inc(x_78); +x_79 = lean_ctor_get(x_76, 1); +lean_inc(x_79); +lean_dec(x_76); +x_80 = l_Lean_Name_inhabited; +x_81 = lean_unsigned_to_nat(0u); +x_82 = lean_array_get(x_80, x_78, x_81); +lean_inc(x_82); +x_83 = l_Lean_mkFVar(x_82); +x_84 = lean_unsigned_to_nat(1u); +x_85 = lean_array_get(x_80, x_78, x_84); +lean_dec(x_78); +lean_inc(x_85); +x_86 = l_Lean_mkFVar(x_85); +lean_inc(x_79); +x_87 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarDecl___boxed), 3, 1); +lean_closure_set(x_87, 0, x_79); +x_88 = lean_box(x_4); +x_89 = lean_box(x_25); +lean_inc(x_70); +lean_inc(x_79); +x_90 = lean_alloc_closure((void*)(l_Lean_Meta_substCore___lambda__2___boxed), 18, 15); +lean_closure_set(x_90, 0, x_85); +lean_closure_set(x_90, 1, x_83); +lean_closure_set(x_90, 2, x_6); +lean_closure_set(x_90, 3, x_79); +lean_closure_set(x_90, 4, x_70); +lean_closure_set(x_90, 5, x_72); +lean_closure_set(x_90, 6, x_3); +lean_closure_set(x_90, 7, x_55); +lean_closure_set(x_90, 8, x_2); +lean_closure_set(x_90, 9, x_86); +lean_closure_set(x_90, 10, x_82); +lean_closure_set(x_90, 11, x_88); +lean_closure_set(x_90, 12, x_89); +lean_closure_set(x_90, 13, x_63); +lean_closure_set(x_90, 14, x_16); +x_91 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_91, 0, x_87); +lean_closure_set(x_91, 1, x_90); +x_126 = lean_ctor_get(x_77, 4); +lean_inc(x_126); +x_127 = lean_ctor_get_uint8(x_126, sizeof(void*)*1); +lean_dec(x_126); +if (x_127 == 0) +{ +x_92 = x_74; +x_93 = x_77; +goto block_125; +} +else +{ +lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; uint8_t x_132; +x_128 = l_Lean_Meta_substCore___lambda__3___closed__20; +x_129 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_128, x_7, x_77); +x_130 = lean_ctor_get(x_129, 0); +lean_inc(x_130); +x_131 = lean_ctor_get(x_129, 1); +lean_inc(x_131); +lean_dec(x_129); +x_132 = lean_unbox(x_130); +lean_dec(x_130); +x_92 = x_132; +x_93 = x_131; +goto block_125; +} +block_125: +{ +if (x_92 == 0) +{ +lean_object* x_94; +lean_dec(x_70); +x_94 = l_Lean_Meta_getMVarDecl(x_79, x_7, x_93); +if (lean_obj_tag(x_94) == 0) +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; +x_95 = lean_ctor_get(x_94, 0); +lean_inc(x_95); +x_96 = lean_ctor_get(x_94, 1); +lean_inc(x_96); +lean_dec(x_94); +x_97 = lean_ctor_get(x_95, 1); +lean_inc(x_97); +x_98 = lean_ctor_get(x_95, 4); +lean_inc(x_98); +lean_dec(x_95); +x_99 = l_Lean_Meta_withLocalContext___rarg(x_97, x_98, x_91, x_7, x_96); +lean_dec(x_7); +return x_99; +} +else +{ +uint8_t x_100; +lean_dec(x_91); +lean_dec(x_7); +x_100 = !lean_is_exclusive(x_94); +if (x_100 == 0) +{ +return x_94; +} +else +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_101 = lean_ctor_get(x_94, 0); +x_102 = lean_ctor_get(x_94, 1); +lean_inc(x_102); +lean_inc(x_101); +lean_dec(x_94); +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; +} +} +} +else +{ +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; +x_104 = l_Array_toList___rarg(x_70); +lean_dec(x_70); +x_105 = l_List_toString___at_Lean_Meta_substCore___spec__4(x_104); +x_106 = l_Array_HasRepr___rarg___closed__1; +x_107 = lean_string_append(x_106, x_105); +lean_dec(x_105); +x_108 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_108, 0, x_107); +x_109 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_109, 0, x_108); +x_110 = l_Lean_Meta_substCore___lambda__3___closed__23; +x_111 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_111, 0, x_110); +lean_ctor_set(x_111, 1, x_109); +x_112 = l_Lean_Meta_substCore___lambda__3___closed__20; +x_113 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_112, x_111, x_7, x_93); +x_114 = lean_ctor_get(x_113, 1); +lean_inc(x_114); +lean_dec(x_113); +x_115 = l_Lean_Meta_getMVarDecl(x_79, x_7, x_114); +if (lean_obj_tag(x_115) == 0) +{ +lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; +x_116 = lean_ctor_get(x_115, 0); +lean_inc(x_116); +x_117 = lean_ctor_get(x_115, 1); +lean_inc(x_117); +lean_dec(x_115); +x_118 = lean_ctor_get(x_116, 1); +lean_inc(x_118); +x_119 = lean_ctor_get(x_116, 4); +lean_inc(x_119); +lean_dec(x_116); +x_120 = l_Lean_Meta_withLocalContext___rarg(x_118, x_119, x_91, x_7, x_117); +lean_dec(x_7); +return x_120; +} +else +{ +uint8_t x_121; +lean_dec(x_91); +lean_dec(x_7); +x_121 = !lean_is_exclusive(x_115); +if (x_121 == 0) +{ +return x_115; +} +else +{ +lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_122 = lean_ctor_get(x_115, 0); +x_123 = lean_ctor_get(x_115, 1); +lean_inc(x_123); +lean_inc(x_122); +lean_dec(x_115); +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 +{ +uint8_t x_133; +lean_dec(x_70); +lean_dec(x_55); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_133 = !lean_is_exclusive(x_75); +if (x_133 == 0) +{ +return x_75; +} +else +{ +lean_object* x_134; lean_object* x_135; lean_object* x_136; +x_134 = lean_ctor_get(x_75, 0); +x_135 = lean_ctor_get(x_75, 1); +lean_inc(x_135); +lean_inc(x_134); +lean_dec(x_75); +x_136 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_136, 0, x_134); +lean_ctor_set(x_136, 1, x_135); +return x_136; +} +} +} +else +{ +uint8_t x_137; +lean_dec(x_55); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_137 = !lean_is_exclusive(x_67); +if (x_137 == 0) +{ +return x_67; +} +else +{ +lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_138 = lean_ctor_get(x_67, 0); +x_139 = lean_ctor_get(x_67, 1); +lean_inc(x_139); +lean_inc(x_138); +lean_dec(x_67); +x_140 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_140, 0, x_138); +lean_ctor_set(x_140, 1, x_139); +return x_140; +} +} +} +else +{ +uint8_t x_141; +lean_dec(x_55); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_141 = !lean_is_exclusive(x_61); +if (x_141 == 0) +{ +return x_61; +} +else +{ +lean_object* x_142; lean_object* x_143; lean_object* x_144; +x_142 = lean_ctor_get(x_61, 0); +x_143 = lean_ctor_get(x_61, 1); +lean_inc(x_143); +lean_inc(x_142); +lean_dec(x_61); +x_144 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_144, 0, x_142); +lean_ctor_set(x_144, 1, x_143); +return x_144; +} +} +} +} +} +else +{ +lean_object* x_182; +lean_dec(x_27); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +x_182 = lean_box(0); +x_31 = x_182; +goto block_54; +} +block_54: +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +lean_dec(x_31); +x_32 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_32, 0, x_15); +x_33 = l_Lean_indentExpr(x_32); +x_34 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_34, 0, x_29); +x_35 = l_Lean_indentExpr(x_34); +if (x_25 == 0) +{ +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; +x_36 = l_Lean_Meta_substCore___lambda__3___closed__15; +x_37 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_33); +x_38 = l_Lean_MessageData_ofList___closed__3; +x_39 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +x_40 = l_Lean_Meta_substCore___lambda__3___closed__11; +x_41 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_41, 0, x_39); +lean_ctor_set(x_41, 1, x_40); +x_42 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_35); +x_43 = lean_box(0); +x_44 = l_Lean_Meta_throwTacticEx___rarg(x_9, x_1, x_42, x_43, x_7, x_30); +lean_dec(x_7); +return x_44; +} +else +{ +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; +x_45 = l_Lean_Meta_substCore___lambda__3___closed__19; +x_46 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_33); +x_47 = l_Lean_MessageData_ofList___closed__3; +x_48 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_48, 0, x_46); +lean_ctor_set(x_48, 1, x_47); +x_49 = l_Lean_Meta_substCore___lambda__3___closed__11; +x_50 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_50, 0, x_48); +lean_ctor_set(x_50, 1, x_49); +x_51 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_35); +x_52 = lean_box(0); +x_53 = l_Lean_Meta_throwTacticEx___rarg(x_9, x_1, x_51, x_52, x_7, x_30); +lean_dec(x_7); +return x_53; +} +} +} +else +{ +uint8_t x_183; +lean_dec(x_27); +lean_dec(x_15); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_183 = !lean_is_exclusive(x_28); +if (x_183 == 0) +{ +return x_28; +} +else +{ +lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_184 = lean_ctor_get(x_28, 0); +x_185 = lean_ctor_get(x_28, 1); +lean_inc(x_185); +lean_inc(x_184); +lean_dec(x_28); +x_186 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_186, 0, x_184); +lean_ctor_set(x_186, 1, x_185); +return x_186; +} +} +} +} +} +} +} +else +{ +uint8_t x_192; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_192 = !lean_is_exclusive(x_12); +if (x_192 == 0) +{ +return x_12; +} +else +{ +lean_object* x_193; lean_object* x_194; lean_object* x_195; +x_193 = lean_ctor_get(x_12, 0); +x_194 = lean_ctor_get(x_12, 1); +lean_inc(x_194); +lean_inc(x_193); +lean_dec(x_12); +x_195 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_195, 0, x_193); +lean_ctor_set(x_195, 1, x_194); +return x_195; +} +} +} +else +{ +uint8_t x_196; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_196 = !lean_is_exclusive(x_10); +if (x_196 == 0) +{ +return x_10; +} +else +{ +lean_object* x_197; lean_object* x_198; lean_object* x_199; +x_197 = lean_ctor_get(x_10, 0); +x_198 = lean_ctor_get(x_10, 1); +lean_inc(x_198); +lean_inc(x_197); lean_dec(x_10); -x_17 = !lean_is_exclusive(x_11); -if (x_17 == 0) +x_199 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_199, 0, x_197); +lean_ctor_set(x_199, 1, x_198); +return x_199; +} +} +} +} +lean_object* l_Lean_Meta_substCore(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, uint8_t x_5, lean_object* x_6, lean_object* x_7) { +_start: { -return x_11; +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_inc(x_1); +x_8 = lean_alloc_closure((void*)(l_Lean_Meta_getMVarTag___boxed), 3, 1); +lean_closure_set(x_8, 0, x_1); +x_9 = lean_box(x_5); +x_10 = lean_box(x_3); +lean_inc(x_1); +x_11 = lean_alloc_closure((void*)(l_Lean_Meta_substCore___lambda__3___boxed), 8, 5); +lean_closure_set(x_11, 0, x_1); +lean_closure_set(x_11, 1, x_2); +lean_closure_set(x_11, 2, x_4); +lean_closure_set(x_11, 3, x_9); +lean_closure_set(x_11, 4, x_10); +x_12 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_12, 0, x_8); +lean_closure_set(x_12, 1, x_11); +x_13 = l_Lean_Meta_getMVarDecl(x_1, x_6, x_7); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +x_17 = lean_ctor_get(x_14, 4); +lean_inc(x_17); +lean_dec(x_14); +x_18 = l_Lean_Meta_withLocalContext___rarg(x_16, x_17, x_12, x_6, x_15); +return x_18; } else { -lean_object* x_18; lean_object* x_19; lean_object* x_20; -x_18 = lean_ctor_get(x_11, 0); -x_19 = lean_ctor_get(x_11, 1); -lean_inc(x_19); -lean_inc(x_18); -lean_dec(x_11); -x_20 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_20, 0, x_18); -lean_ctor_set(x_20, 1, x_19); -return x_20; +uint8_t x_19; +lean_dec(x_12); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; } } } @@ -2852,37 +3332,61 @@ lean_dec(x_1); return x_8; } } -lean_object* l_Lean_Meta_substCore___lambda__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, 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* l_Lean_Meta_substCore___lambda__2___boxed(lean_object** _args) { +lean_object* x_1 = _args[0]; +lean_object* x_2 = _args[1]; +lean_object* x_3 = _args[2]; +lean_object* x_4 = _args[3]; +lean_object* x_5 = _args[4]; +lean_object* x_6 = _args[5]; +lean_object* x_7 = _args[6]; +lean_object* x_8 = _args[7]; +lean_object* x_9 = _args[8]; +lean_object* x_10 = _args[9]; +lean_object* x_11 = _args[10]; +lean_object* x_12 = _args[11]; +lean_object* x_13 = _args[12]; +lean_object* x_14 = _args[13]; +lean_object* x_15 = _args[14]; +lean_object* x_16 = _args[15]; +lean_object* x_17 = _args[16]; +lean_object* x_18 = _args[17]; _start: { -uint8_t x_17; lean_object* x_18; -x_17 = lean_unbox(x_10); -lean_dec(x_10); -x_18 = l_Lean_Meta_substCore___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_17, x_11, x_12, x_13, x_14, x_15, x_16); +uint8_t x_19; uint8_t x_20; lean_object* x_21; +x_19 = lean_unbox(x_12); +lean_dec(x_12); +x_20 = lean_unbox(x_13); lean_dec(x_13); -lean_dec(x_6); -return x_18; -} -} -lean_object* l_Lean_Meta_substCore___lambda__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { -_start: -{ -uint8_t x_8; lean_object* x_9; -x_8 = lean_unbox(x_4); -lean_dec(x_4); -x_9 = l_Lean_Meta_substCore___lambda__3(x_1, x_2, x_3, x_8, x_5, x_6, x_7); -return x_9; -} -} -lean_object* l_Lean_Meta_substCore___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { -_start: -{ -uint8_t x_7; lean_object* x_8; -x_7 = lean_unbox(x_3); -lean_dec(x_3); -x_8 = l_Lean_Meta_substCore(x_1, x_2, x_7, x_4, x_5, x_6); +x_21 = l_Lean_Meta_substCore___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_19, x_20, x_14, x_15, x_16, x_17, x_18); +lean_dec(x_15); lean_dec(x_5); -return x_8; +return x_21; +} +} +lean_object* l_Lean_Meta_substCore___lambda__3___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) { +_start: +{ +uint8_t x_9; uint8_t x_10; lean_object* x_11; +x_9 = lean_unbox(x_4); +lean_dec(x_4); +x_10 = lean_unbox(x_5); +lean_dec(x_5); +x_11 = l_Lean_Meta_substCore___lambda__3(x_1, x_2, x_3, x_9, x_10, x_6, x_7, x_8); +return x_11; +} +} +lean_object* l_Lean_Meta_substCore___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +uint8_t x_8; uint8_t x_9; lean_object* x_10; +x_8 = lean_unbox(x_3); +lean_dec(x_3); +x_9 = lean_unbox(x_5); +lean_dec(x_5); +x_10 = l_Lean_Meta_substCore(x_1, x_2, x_8, x_4, x_9, x_6, x_7); +lean_dec(x_6); +return x_10; } } lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__4(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) { @@ -3529,7 +4033,7 @@ x_13 = lean_ctor_get(x_12, 0); lean_inc(x_13); if (lean_obj_tag(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_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; x_14 = lean_ctor_get(x_12, 1); lean_inc(x_14); lean_dec(x_12); @@ -3545,235 +4049,239 @@ x_20 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_20, 0, x_18); lean_ctor_set(x_20, 1, x_19); x_21 = l_Lean_Meta_substCore___lambda__3___closed__2; -x_22 = l_Lean_Meta_throwTacticEx___rarg(x_21, x_2, x_20, x_4, x_14); -return x_22; +x_22 = lean_box(0); +x_23 = l_Lean_Meta_throwTacticEx___rarg(x_21, x_2, x_20, x_22, x_4, x_14); +return x_23; } else { -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; lean_object* x_29; +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; uint8_t x_30; lean_object* x_31; lean_dec(x_1); -x_23 = lean_ctor_get(x_13, 0); -lean_inc(x_23); -lean_dec(x_13); -x_24 = lean_ctor_get(x_12, 1); +x_24 = lean_ctor_get(x_13, 0); lean_inc(x_24); -lean_dec(x_12); -x_25 = lean_ctor_get(x_23, 0); +lean_dec(x_13); +x_25 = lean_ctor_get(x_12, 1); lean_inc(x_25); -x_26 = lean_ctor_get(x_23, 1); +lean_dec(x_12); +x_26 = lean_ctor_get(x_24, 0); lean_inc(x_26); -lean_dec(x_23); -x_27 = lean_box(0); -x_28 = lean_unbox(x_26); -lean_dec(x_26); -x_29 = l_Lean_Meta_substCore(x_2, x_25, x_28, x_27, x_4, x_24); -if (lean_obj_tag(x_29) == 0) +x_27 = lean_ctor_get(x_24, 1); +lean_inc(x_27); +lean_dec(x_24); +x_28 = lean_box(0); +x_29 = 1; +x_30 = lean_unbox(x_27); +lean_dec(x_27); +x_31 = l_Lean_Meta_substCore(x_2, x_26, x_30, x_28, x_29, x_4, x_25); +if (lean_obj_tag(x_31) == 0) { -uint8_t x_30; -x_30 = !lean_is_exclusive(x_29); -if (x_30 == 0) +uint8_t x_32; +x_32 = !lean_is_exclusive(x_31); +if (x_32 == 0) { -lean_object* x_31; lean_object* x_32; -x_31 = lean_ctor_get(x_29, 0); -x_32 = lean_ctor_get(x_31, 1); -lean_inc(x_32); -lean_dec(x_31); -lean_ctor_set(x_29, 0, x_32); -return x_29; -} -else -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_33 = lean_ctor_get(x_29, 0); -x_34 = lean_ctor_get(x_29, 1); +lean_object* x_33; lean_object* x_34; +x_33 = lean_ctor_get(x_31, 0); +x_34 = lean_ctor_get(x_33, 1); lean_inc(x_34); -lean_inc(x_33); -lean_dec(x_29); -x_35 = lean_ctor_get(x_33, 1); -lean_inc(x_35); lean_dec(x_33); -x_36 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -return x_36; +lean_ctor_set(x_31, 0, x_34); +return x_31; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_35 = lean_ctor_get(x_31, 0); +x_36 = lean_ctor_get(x_31, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_31); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +x_38 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +return x_38; } } else { -uint8_t x_37; -x_37 = !lean_is_exclusive(x_29); -if (x_37 == 0) +uint8_t x_39; +x_39 = !lean_is_exclusive(x_31); +if (x_39 == 0) { -return x_29; +return x_31; } else { -lean_object* x_38; lean_object* x_39; lean_object* x_40; -x_38 = lean_ctor_get(x_29, 0); -x_39 = lean_ctor_get(x_29, 1); -lean_inc(x_39); -lean_inc(x_38); -lean_dec(x_29); -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; +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_31, 0); +x_41 = lean_ctor_get(x_31, 1); +lean_inc(x_41); +lean_inc(x_40); +lean_dec(x_31); +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 { -lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; -x_41 = l_Lean_Expr_appFn_x21(x_6); -x_42 = l_Lean_Expr_appArg_x21(x_41); -lean_dec(x_41); -x_43 = l_Lean_Expr_appArg_x21(x_6); -x_44 = l_Lean_Expr_isFVar(x_43); +lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; +x_43 = l_Lean_Expr_appFn_x21(x_6); +x_44 = l_Lean_Expr_appArg_x21(x_43); lean_dec(x_43); -if (x_44 == 0) +x_45 = l_Lean_Expr_appArg_x21(x_6); +x_46 = l_Lean_Expr_isFVar(x_45); +lean_dec(x_45); +if (x_46 == 0) { -uint8_t x_45; -x_45 = l_Lean_Expr_isFVar(x_42); -lean_dec(x_42); -if (x_45 == 0) +uint8_t x_47; +x_47 = l_Lean_Expr_isFVar(x_44); +lean_dec(x_44); +if (x_47 == 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_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_dec(x_1); -x_46 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_46, 0, x_6); -x_47 = l_Lean_indentExpr(x_46); -x_48 = l_Lean_Meta_subst___lambda__1___closed__6; -x_49 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_47); -x_50 = l_Lean_Meta_substCore___lambda__3___closed__2; -x_51 = l_Lean_Meta_throwTacticEx___rarg(x_50, x_2, x_49, x_4, x_5); -return x_51; +x_48 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_48, 0, x_6); +x_49 = l_Lean_indentExpr(x_48); +x_50 = l_Lean_Meta_subst___lambda__1___closed__6; +x_51 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_49); +x_52 = l_Lean_Meta_substCore___lambda__3___closed__2; +x_53 = lean_box(0); +x_54 = l_Lean_Meta_throwTacticEx___rarg(x_52, x_2, x_51, x_53, x_4, x_5); +return x_54; } else { -lean_object* x_52; uint8_t x_53; lean_object* x_54; +lean_object* x_55; uint8_t x_56; uint8_t x_57; lean_object* x_58; lean_dec(x_6); -x_52 = lean_box(0); -x_53 = 0; -x_54 = l_Lean_Meta_substCore(x_2, x_1, x_53, x_52, x_4, x_5); -if (lean_obj_tag(x_54) == 0) +x_55 = lean_box(0); +x_56 = 0; +x_57 = 1; +x_58 = l_Lean_Meta_substCore(x_2, x_1, x_56, x_55, x_57, x_4, x_5); +if (lean_obj_tag(x_58) == 0) { -uint8_t x_55; -x_55 = !lean_is_exclusive(x_54); -if (x_55 == 0) +uint8_t x_59; +x_59 = !lean_is_exclusive(x_58); +if (x_59 == 0) { -lean_object* x_56; lean_object* x_57; -x_56 = lean_ctor_get(x_54, 0); -x_57 = lean_ctor_get(x_56, 1); -lean_inc(x_57); -lean_dec(x_56); -lean_ctor_set(x_54, 0, x_57); -return x_54; +lean_object* x_60; lean_object* x_61; +x_60 = lean_ctor_get(x_58, 0); +x_61 = lean_ctor_get(x_60, 1); +lean_inc(x_61); +lean_dec(x_60); +lean_ctor_set(x_58, 0, x_61); +return x_58; } else { -lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; -x_58 = lean_ctor_get(x_54, 0); -x_59 = lean_ctor_get(x_54, 1); -lean_inc(x_59); -lean_inc(x_58); -lean_dec(x_54); -x_60 = lean_ctor_get(x_58, 1); -lean_inc(x_60); -lean_dec(x_58); -x_61 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_61, 0, x_60); -lean_ctor_set(x_61, 1, x_59); -return x_61; -} -} -else -{ -uint8_t x_62; -x_62 = !lean_is_exclusive(x_54); -if (x_62 == 0) -{ -return x_54; -} -else -{ -lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_63 = lean_ctor_get(x_54, 0); -x_64 = lean_ctor_get(x_54, 1); -lean_inc(x_64); +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +x_62 = lean_ctor_get(x_58, 0); +x_63 = lean_ctor_get(x_58, 1); lean_inc(x_63); -lean_dec(x_54); -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_63); -lean_ctor_set(x_65, 1, x_64); +lean_inc(x_62); +lean_dec(x_58); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +lean_dec(x_62); +x_65 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_65, 0, x_64); +lean_ctor_set(x_65, 1, x_63); return x_65; } } +else +{ +uint8_t x_66; +x_66 = !lean_is_exclusive(x_58); +if (x_66 == 0) +{ +return x_58; +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; +x_67 = lean_ctor_get(x_58, 0); +x_68 = lean_ctor_get(x_58, 1); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_58); +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_67); +lean_ctor_set(x_69, 1, x_68); +return x_69; +} +} } } else { -lean_object* x_66; uint8_t x_67; lean_object* x_68; -lean_dec(x_42); +lean_object* x_70; uint8_t x_71; lean_object* x_72; +lean_dec(x_44); lean_dec(x_6); -x_66 = lean_box(0); -x_67 = 1; -x_68 = l_Lean_Meta_substCore(x_2, x_1, x_67, x_66, x_4, x_5); -if (lean_obj_tag(x_68) == 0) +x_70 = lean_box(0); +x_71 = 1; +x_72 = l_Lean_Meta_substCore(x_2, x_1, x_71, x_70, x_71, x_4, x_5); +if (lean_obj_tag(x_72) == 0) { -uint8_t x_69; -x_69 = !lean_is_exclusive(x_68); -if (x_69 == 0) +uint8_t x_73; +x_73 = !lean_is_exclusive(x_72); +if (x_73 == 0) { -lean_object* x_70; lean_object* x_71; -x_70 = lean_ctor_get(x_68, 0); -x_71 = lean_ctor_get(x_70, 1); -lean_inc(x_71); -lean_dec(x_70); -lean_ctor_set(x_68, 0, x_71); -return x_68; +lean_object* x_74; lean_object* x_75; +x_74 = lean_ctor_get(x_72, 0); +x_75 = lean_ctor_get(x_74, 1); +lean_inc(x_75); +lean_dec(x_74); +lean_ctor_set(x_72, 0, x_75); +return x_72; } else { -lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; -x_72 = lean_ctor_get(x_68, 0); -x_73 = lean_ctor_get(x_68, 1); -lean_inc(x_73); -lean_inc(x_72); -lean_dec(x_68); -x_74 = lean_ctor_get(x_72, 1); -lean_inc(x_74); -lean_dec(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_73); -return x_75; -} -} -else -{ -uint8_t x_76; -x_76 = !lean_is_exclusive(x_68); -if (x_76 == 0) -{ -return x_68; -} -else -{ -lean_object* x_77; lean_object* x_78; lean_object* x_79; -x_77 = lean_ctor_get(x_68, 0); -x_78 = lean_ctor_get(x_68, 1); -lean_inc(x_78); +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_76 = lean_ctor_get(x_72, 0); +x_77 = lean_ctor_get(x_72, 1); lean_inc(x_77); -lean_dec(x_68); -x_79 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_79, 0, x_77); -lean_ctor_set(x_79, 1, x_78); +lean_inc(x_76); +lean_dec(x_72); +x_78 = lean_ctor_get(x_76, 1); +lean_inc(x_78); +lean_dec(x_76); +x_79 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_77); return x_79; } } +else +{ +uint8_t x_80; +x_80 = !lean_is_exclusive(x_72); +if (x_80 == 0) +{ +return x_72; +} +else +{ +lean_object* x_81; lean_object* x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_72, 0); +x_82 = lean_ctor_get(x_72, 1); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_72); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +return x_83; +} +} } } } @@ -3929,7 +4437,7 @@ lean_object* l___private_Lean_Meta_Tactic_Subst_1__regTraceClasses(lean_object* _start: { lean_object* x_2; lean_object* x_3; -x_2 = l_Lean_Meta_substCore___lambda__3___closed__17; +x_2 = l_Lean_Meta_substCore___lambda__3___closed__20; x_3 = l_Lean_registerTraceClass(x_2, x_1); return x_3; } @@ -4039,6 +4547,12 @@ l_Lean_Meta_substCore___lambda__3___closed__31 = _init_l_Lean_Meta_substCore___l lean_mark_persistent(l_Lean_Meta_substCore___lambda__3___closed__31); l_Lean_Meta_substCore___lambda__3___closed__32 = _init_l_Lean_Meta_substCore___lambda__3___closed__32(); lean_mark_persistent(l_Lean_Meta_substCore___lambda__3___closed__32); +l_Lean_Meta_substCore___lambda__3___closed__33 = _init_l_Lean_Meta_substCore___lambda__3___closed__33(); +lean_mark_persistent(l_Lean_Meta_substCore___lambda__3___closed__33); +l_Lean_Meta_substCore___lambda__3___closed__34 = _init_l_Lean_Meta_substCore___lambda__3___closed__34(); +lean_mark_persistent(l_Lean_Meta_substCore___lambda__3___closed__34); +l_Lean_Meta_substCore___lambda__3___closed__35 = _init_l_Lean_Meta_substCore___lambda__3___closed__35(); +lean_mark_persistent(l_Lean_Meta_substCore___lambda__3___closed__35); l_Lean_Meta_subst___lambda__1___closed__1 = _init_l_Lean_Meta_subst___lambda__1___closed__1(); lean_mark_persistent(l_Lean_Meta_subst___lambda__1___closed__1); l_Lean_Meta_subst___lambda__1___closed__2 = _init_l_Lean_Meta_subst___lambda__1___closed__2(); diff --git a/stage0/stdlib/Lean/Meta/Tactic/Util.c b/stage0/stdlib/Lean/Meta/Tactic/Util.c index a9bf453c22..23a89d1103 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Util.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Util.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.Meta.Tactic.Util -// Imports: Init Lean.Meta.Basic Lean.Meta.LevelDefEq +// Imports: Init Lean.Meta.Basic Lean.Meta.AppBuilder Lean.Meta.LevelDefEq #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -16,8 +16,10 @@ extern "C" { lean_object* l_Lean_Meta_restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_setMVarTag___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); +lean_object* l_Lean_Meta_appendTagSuffix(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_throwTacticEx(lean_object*); lean_object* l_Lean_Meta_orelse___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned___closed__3; lean_object* l_Lean_Meta_checkNotAssigned___closed__1; lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); @@ -26,19 +28,29 @@ lean_object* l_Lean_Meta_Meta_hasOrelse___closed__1; lean_object* l_Lean_Meta_orelse(lean_object*); extern lean_object* l___private_Lean_Meta_Basic_11__regTraceClasses___closed__2; lean_object* l_Lean_MetavarContext_setMVarUserName(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_admit___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_ppGoal(lean_object*, lean_object*, lean_object*); uint8_t lean_metavar_ctx_is_expr_assigned(lean_object*, lean_object*); lean_object* l_Lean_ppGoal(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkSorry(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Util_1__regTraceClasses(lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarType___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_admit___closed__1; +lean_object* l_Lean_Meta_admit___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_appendTagSuffix___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_admit___closed__2; +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_Meta_hasOrelse(lean_object*); +lean_object* l_Lean_Meta_admit(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_admit___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__2; lean_object* l_Lean_Meta_mkFreshExprSyntheticOpaqueMVar(lean_object*, lean_object*, lean_object*, lean_object*); @@ -172,6 +184,60 @@ lean_dec(x_3); return x_5; } } +lean_object* l_Lean_Meta_appendTagSuffix(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_1); +x_5 = l_Lean_Meta_getMVarTag(x_1, 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; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_Name_append___main(x_6, x_2); +lean_dec(x_6); +x_9 = l_Lean_Meta_setMVarTag(x_1, x_8, x_3, x_7); +return x_9; +} +else +{ +uint8_t x_10; +lean_dec(x_2); +lean_dec(x_1); +x_10 = !lean_is_exclusive(x_5); +if (x_10 == 0) +{ +return x_5; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_5, 0); +x_12 = lean_ctor_get(x_5, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_5); +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* l_Lean_Meta_appendTagSuffix___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_Meta_appendTagSuffix(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} lean_object* l_Lean_Meta_mkFreshExprSyntheticOpaqueMVar(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -181,54 +247,55 @@ x_6 = l_Lean_Meta_mkFreshExprMVar(x_1, x_2, x_5, x_3, x_4); return x_6; } } -lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_throwTacticEx___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_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_6 = lean_ctor_get(x_5, 0); -lean_inc(x_6); -x_7 = lean_ctor_get(x_5, 1); +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); -x_8 = lean_ctor_get(x_4, 1); -x_9 = lean_ctor_get(x_4, 0); -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); +x_8 = lean_ctor_get(x_6, 1); lean_inc(x_8); -x_11 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_11, 0, x_6); -lean_ctor_set(x_11, 1, x_7); -lean_ctor_set(x_11, 2, x_8); -lean_ctor_set(x_11, 3, x_10); +x_9 = lean_ctor_get(x_5, 1); +x_10 = lean_ctor_get(x_5, 0); +x_11 = lean_ctor_get(x_10, 0); lean_inc(x_11); -x_12 = lean_alloc_ctor(6, 2, 0); -lean_ctor_set(x_12, 0, x_11); -lean_ctor_set(x_12, 1, x_3); -x_13 = lean_alloc_ctor(18, 4, 0); -lean_ctor_set(x_13, 0, x_1); -lean_ctor_set(x_13, 1, x_2); -lean_ctor_set(x_13, 2, x_12); -lean_ctor_set(x_13, 3, x_11); -x_14 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_14, 0, x_13); -lean_ctor_set(x_14, 1, x_5); -return x_14; +lean_inc(x_9); +x_12 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_12, 0, x_7); +lean_ctor_set(x_12, 1, x_8); +lean_ctor_set(x_12, 2, x_9); +lean_ctor_set(x_12, 3, x_11); +lean_inc(x_12); +x_13 = lean_alloc_ctor(6, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_3); +x_14 = lean_alloc_ctor(18, 5, 0); +lean_ctor_set(x_14, 0, x_4); +lean_ctor_set(x_14, 1, x_1); +lean_ctor_set(x_14, 2, x_2); +lean_ctor_set(x_14, 3, x_13); +lean_ctor_set(x_14, 4, x_12); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_6); +return x_15; } } lean_object* l_Lean_Meta_throwTacticEx(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Meta_throwTacticEx___rarg___boxed), 5, 0); +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_throwTacticEx___rarg___boxed), 6, 0); return x_2; } } -lean_object* l_Lean_Meta_throwTacticEx___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_throwTacticEx___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_6; -x_6 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_4); -return x_6; +lean_object* x_7; +x_7 = l_Lean_Meta_throwTacticEx___rarg(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +return x_7; } } lean_object* _init_l_Lean_Meta_checkNotAssigned___closed__1() { @@ -280,10 +347,11 @@ return x_8; } else { -lean_object* x_9; lean_object* x_10; +lean_object* x_9; lean_object* x_10; lean_object* x_11; x_9 = l_Lean_Meta_checkNotAssigned___closed__3; -x_10 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_9, x_3, x_4); -return x_10; +x_10 = lean_box(0); +x_11 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_9, x_10, x_3, x_4); +return x_11; } } } @@ -473,8 +541,260 @@ x_3 = l_Lean_registerTraceClass(x_2, x_1); return x_3; } } +lean_object* l_Lean_Meta_admit___lambda__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +lean_inc(x_1); +x_6 = l_Lean_Meta_checkNotAssigned(x_1, x_2, x_4, x_5); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +lean_dec(x_6); +lean_inc(x_1); +x_8 = l_Lean_Meta_getMVarType(x_1, x_4, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +lean_inc(x_4); +x_11 = l_Lean_Meta_mkSorry(x_9, x_3, x_4, x_10); +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); +x_14 = l_Lean_Meta_assignExprMVar(x_1, x_12, x_4, x_13); +lean_dec(x_4); +if (lean_obj_tag(x_14) == 0) +{ +uint8_t x_15; +x_15 = !lean_is_exclusive(x_14); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_ctor_get(x_14, 0); +lean_dec(x_16); +x_17 = lean_box(0); +lean_ctor_set(x_14, 0, x_17); +return x_14; +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_14, 1); +lean_inc(x_18); +lean_dec(x_14); +x_19 = lean_box(0); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_18); +return x_20; +} +} +else +{ +uint8_t x_21; +x_21 = !lean_is_exclusive(x_14); +if (x_21 == 0) +{ +return x_14; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_14, 0); +x_23 = lean_ctor_get(x_14, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_14); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +else +{ +uint8_t x_25; +lean_dec(x_4); +lean_dec(x_1); +x_25 = !lean_is_exclusive(x_11); +if (x_25 == 0) +{ +return x_11; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_11, 0); +x_27 = lean_ctor_get(x_11, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_11); +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; +} +} +} +else +{ +uint8_t x_29; +lean_dec(x_4); +lean_dec(x_1); +x_29 = !lean_is_exclusive(x_8); +if (x_29 == 0) +{ +return x_8; +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_8, 0); +x_31 = lean_ctor_get(x_8, 1); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_8); +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_30); +lean_ctor_set(x_32, 1, x_31); +return x_32; +} +} +} +else +{ +uint8_t x_33; +lean_dec(x_4); +lean_dec(x_1); +x_33 = !lean_is_exclusive(x_6); +if (x_33 == 0) +{ +return x_6; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_6, 0); +x_35 = lean_ctor_get(x_6, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_6); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; +} +} +} +} +lean_object* _init_l_Lean_Meta_admit___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("admit"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_admit___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_admit___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_admit(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = l_Lean_Meta_admit___closed__2; +x_6 = lean_box(x_2); +lean_inc(x_1); +x_7 = lean_alloc_closure((void*)(l_Lean_Meta_admit___lambda__1___boxed), 5, 3); +lean_closure_set(x_7, 0, x_1); +lean_closure_set(x_7, 1, x_5); +lean_closure_set(x_7, 2, x_6); +x_8 = l_Lean_Meta_getMVarDecl(x_1, x_3, x_4); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_9, 4); +lean_inc(x_12); +lean_dec(x_9); +x_13 = l_Lean_Meta_withLocalContext___rarg(x_11, x_12, x_7, x_3, x_10); +return x_13; +} +else +{ +uint8_t x_14; +lean_dec(x_7); +x_14 = !lean_is_exclusive(x_8); +if (x_14 == 0) +{ +return x_8; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +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_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} +} +lean_object* l_Lean_Meta_admit___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; lean_object* x_7; +x_6 = lean_unbox(x_3); +lean_dec(x_3); +x_7 = l_Lean_Meta_admit___lambda__1(x_1, x_2, x_6, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_Meta_admit___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_2); +lean_dec(x_2); +x_6 = l_Lean_Meta_admit(x_1, x_5, x_3, x_4); +lean_dec(x_3); +return x_6; +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Meta_Basic(lean_object*); +lean_object* initialize_Lean_Meta_AppBuilder(lean_object*); lean_object* initialize_Lean_Meta_LevelDefEq(lean_object*); static bool _G_initialized = false; lean_object* initialize_Lean_Meta_Tactic_Util(lean_object* w) { @@ -487,6 +807,9 @@ lean_dec_ref(res); res = initialize_Lean_Meta_Basic(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Meta_AppBuilder(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Lean_Meta_LevelDefEq(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -505,6 +828,10 @@ lean_mark_persistent(l___private_Lean_Meta_Tactic_Util_1__regTraceClasses___clos res = l___private_Lean_Meta_Tactic_Util_1__regTraceClasses(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_Meta_admit___closed__1 = _init_l_Lean_Meta_admit___closed__1(); +lean_mark_persistent(l_Lean_Meta_admit___closed__1); +l_Lean_Meta_admit___closed__2 = _init_l_Lean_Meta_admit___closed__2(); +lean_mark_persistent(l_Lean_Meta_admit___closed__2); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Meta/WHNF.c b/stage0/stdlib/Lean/Meta/WHNF.c index 159b996f8a..f6fad85dd6 100644 --- a/stage0/stdlib/Lean/Meta/WHNF.c +++ b/stage0/stdlib/Lean/Meta/WHNF.c @@ -108,7 +108,7 @@ lean_object* l_Lean_Meta_setWHNFRef(lean_object*); lean_object* l___private_Lean_Util_WHNF_7__deltaDefinition___at_Lean_Meta_unfoldDefinition_x3f___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_WHNF_1__useWHNFCache___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); -lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwOther___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Std_PersistentHashMap_insertAux___main___rarg___closed__3; lean_object* l_Array_shrink___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_Meta_getConstNoEx___boxed(lean_object*, lean_object*, lean_object*); @@ -11074,7 +11074,7 @@ lean_inc(x_5); x_6 = l_Lean_Environment_evalConstCheck___rarg(x_5, x_1, x_2); if (lean_obj_tag(x_6) == 0) { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); lean_dec(x_6); @@ -11082,19 +11082,20 @@ x_8 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_8, 0, x_7); x_9 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_9, 0, x_8); -x_10 = l_Lean_Meta_throwOther___rarg(x_9, x_3, x_4); -return x_10; +x_10 = lean_box(0); +x_11 = l_Lean_Meta_throwOther___rarg(x_9, x_10, x_3, x_4); +return x_11; } else { -lean_object* x_11; lean_object* x_12; -x_11 = lean_ctor_get(x_6, 0); -lean_inc(x_11); +lean_object* x_12; lean_object* x_13; +x_12 = lean_ctor_get(x_6, 0); +lean_inc(x_12); lean_dec(x_6); -x_12 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_12, 0, x_11); -lean_ctor_set(x_12, 1, x_4); -return x_12; +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; } } } diff --git a/stage0/stdlib/Lean/Parser/Command.c b/stage0/stdlib/Lean/Parser/Command.c index b9b6b59103..6d47b7ea42 100644 --- a/stage0/stdlib/Lean/Parser/Command.c +++ b/stage0/stdlib/Lean/Parser/Command.c @@ -78,7 +78,6 @@ lean_object* l_Lean_Parser_Term_stxQuot___closed__8; extern lean_object* l_Lean_Parser_Term_matchAlt___closed__3; lean_object* l_Lean_Parser_Command_structImplicitBinder___closed__2; lean_object* l_Lean_Parser_Command_extends___elambda__1___closed__7; -extern lean_object* l_Lean_Parser_Term_structInst___closed__1; lean_object* l_Lean_Parser_Command_end___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_openRenamingItem___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_extends___closed__1; @@ -179,6 +178,7 @@ lean_object* l_Lean_Parser_Command_synth___closed__2; lean_object* l_Lean_Parser_Command_check___elambda__1___closed__6; lean_object* l_Lean_Parser_Command_attrInstance___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_inferMod___closed__1; +extern lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_abbrev___elambda__1___closed__9; lean_object* l_Lean_Parser_Command_declaration___closed__3; lean_object* l_Lean_Parser_Command_theorem___elambda__1___closed__9; @@ -417,7 +417,6 @@ lean_object* l_Lean_Parser_Command_declValEqns___elambda__1(lean_object*, lean_o lean_object* l_Lean_Parser_Command_structExplicitBinder___closed__9; lean_object* l_Lean_Parser_Command_attribute___closed__6; lean_object* l_Lean_Parser_Command_variables___elambda__1___closed__9; -extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_openHiding___closed__8; lean_object* l_Lean_Parser_Command_attrArg___closed__4; lean_object* l_Lean_Parser_Command_declaration___elambda__1(lean_object*, lean_object*); @@ -1033,10 +1032,12 @@ lean_object* l_Lean_Parser_Command_attribute___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_axiom___closed__1; lean_object* l_Lean_Parser_Command_exit___closed__3; lean_object* l_Lean_Parser_Command_unsafe___elambda__1(lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Term_implicitBinder___closed__1; lean_object* l_Lean_Parser_Command_mutualElement___closed__2; lean_object* l_Lean_Parser_Command_variable___closed__7; lean_object* l_Lean_Parser_Command_private___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_noncomputable___elambda__1___closed__6; +extern lean_object* l_Lean_Parser_Term_implicitBinder___closed__2; lean_object* l_Lean_Parser_Command_structure___closed__13; lean_object* l_Lean_Parser_Command_check___closed__2; lean_object* l_Lean_Parser_Command_constant___elambda__1___closed__7; @@ -1083,7 +1084,6 @@ lean_object* l_Lean_Parser_Command_end___elambda__1___closed__3; lean_object* l___regBuiltinParser_Lean_Parser_Command_open(lean_object*); lean_object* l_Lean_Parser_Command_variable___closed__5; lean_object* l_Lean_Parser_Command_variable___elambda__1___closed__5; -extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_object* l_Lean_Parser_Command_def___closed__2; lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Parser_Command_init__quot___elambda__1___closed__3; @@ -13425,13 +13425,13 @@ lean_object* x_59; lean_object* x_60; uint8_t x_61; x_59 = lean_ctor_get(x_58, 1); lean_inc(x_59); lean_dec(x_58); -x_60 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_60 = l_Lean_Parser_Term_implicitBinder___closed__1; x_61 = lean_string_dec_eq(x_59, x_60); lean_dec(x_59); if (x_61 == 0) { lean_object* x_62; lean_object* x_63; -x_62 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_62 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_inc(x_10); x_63 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_62, x_10); x_23 = x_63; @@ -13447,7 +13447,7 @@ else { lean_object* x_64; lean_object* x_65; lean_dec(x_58); -x_64 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_64 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_inc(x_10); x_65 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_64, x_10); x_23 = x_65; @@ -13458,7 +13458,7 @@ else { lean_object* x_66; lean_object* x_67; lean_dec(x_56); -x_66 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_66 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_inc(x_10); x_67 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_66, x_10); x_23 = x_67; @@ -13692,13 +13692,13 @@ lean_object* x_132; lean_object* x_133; uint8_t x_134; x_132 = lean_ctor_get(x_131, 1); lean_inc(x_132); lean_dec(x_131); -x_133 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_133 = l_Lean_Parser_Term_implicitBinder___closed__1; x_134 = lean_string_dec_eq(x_132, x_133); lean_dec(x_132); if (x_134 == 0) { lean_object* x_135; lean_object* x_136; -x_135 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_135 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_inc(x_81); x_136 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_135, x_81); x_96 = x_136; @@ -13714,7 +13714,7 @@ else { lean_object* x_137; lean_object* x_138; lean_dec(x_131); -x_137 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_137 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_inc(x_81); x_138 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_137, x_81); x_96 = x_138; @@ -13725,7 +13725,7 @@ else { lean_object* x_139; lean_object* x_140; lean_dec(x_129); -x_139 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_139 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_inc(x_81); x_140 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_139, x_81); x_96 = x_140; @@ -13900,7 +13900,7 @@ lean_object* _init_l_Lean_Parser_Command_inferMod___closed__1() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__1; +x_1 = l_Lean_Parser_Term_implicitBinder___closed__2; x_2 = l_Lean_Parser_Term_explicitUniv___closed__4; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -17457,13 +17457,13 @@ lean_object* x_99; lean_object* x_100; uint8_t x_101; x_99 = lean_ctor_get(x_98, 1); lean_inc(x_99); lean_dec(x_98); -x_100 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_100 = l_Lean_Parser_Term_implicitBinder___closed__1; x_101 = lean_string_dec_eq(x_99, x_100); lean_dec(x_99); if (x_101 == 0) { lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; -x_102 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_102 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_103 = l_Lean_Parser_ParserState_mkErrorsAt(x_95, x_102, x_94); x_104 = lean_ctor_get(x_103, 0); lean_inc(x_104); @@ -17498,7 +17498,7 @@ else { lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_dec(x_98); -x_110 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_110 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_111 = l_Lean_Parser_ParserState_mkErrorsAt(x_95, x_110, x_94); x_112 = lean_ctor_get(x_111, 0); lean_inc(x_112); @@ -17517,7 +17517,7 @@ else { lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_dec(x_96); -x_115 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_115 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_116 = l_Lean_Parser_ParserState_mkErrorsAt(x_95, x_115, x_94); x_117 = lean_ctor_get(x_116, 0); lean_inc(x_117); @@ -17917,13 +17917,13 @@ lean_object* x_234; lean_object* x_235; uint8_t x_236; x_234 = lean_ctor_get(x_233, 1); lean_inc(x_234); lean_dec(x_233); -x_235 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_235 = l_Lean_Parser_Term_implicitBinder___closed__1; x_236 = lean_string_dec_eq(x_234, x_235); lean_dec(x_234); if (x_236 == 0) { lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; -x_237 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_237 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_238 = l_Lean_Parser_ParserState_mkErrorsAt(x_230, x_237, x_229); x_239 = lean_ctor_get(x_238, 0); lean_inc(x_239); @@ -17958,7 +17958,7 @@ else { lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_dec(x_233); -x_245 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_245 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_246 = l_Lean_Parser_ParserState_mkErrorsAt(x_230, x_245, x_229); x_247 = lean_ctor_get(x_246, 0); lean_inc(x_247); @@ -17977,7 +17977,7 @@ else { lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_dec(x_231); -x_250 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_250 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_251 = l_Lean_Parser_ParserState_mkErrorsAt(x_230, x_250, x_229); x_252 = lean_ctor_get(x_251, 0); lean_inc(x_252); @@ -18326,7 +18326,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Command_declModifiers; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_structInst___closed__1; +x_3 = l_Lean_Parser_Term_implicitBinder___closed__2; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } diff --git a/stage0/stdlib/Lean/Parser/Parser.c b/stage0/stdlib/Lean/Parser/Parser.c index 4d9f4f0c8c..ad7d08a2e9 100644 --- a/stage0/stdlib/Lean/Parser/Parser.c +++ b/stage0/stdlib/Lean/Parser/Parser.c @@ -27,8 +27,6 @@ lean_object* lean_string_push(lean_object*, uint32_t); extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_Parser_charLit___closed__1; lean_object* l_Lean_Parser_andthenInfo___elambda__1(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__6(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_hashOrelse; size_t l_USize_add(size_t, size_t); lean_object* l_Lean_Parser_manyAux___main___closed__1; @@ -44,8 +42,8 @@ lean_object* l_Lean_Parser_try(lean_object*); lean_object* l_Lean_Parser_nodeWithAntiquot___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolInfo___elambda__1___boxed(lean_object*); lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_Parser_addLeadingParser___spec__2(lean_object*, size_t, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__6(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_prattParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_23__catNameToString(lean_object*); lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_leadingIdentAsSymbol___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldSepRevArgs___rarg(lean_object*, lean_object*, lean_object*); @@ -61,17 +59,18 @@ lean_object* l_Lean_Parser_sepByInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_shrinkStack___boxed(lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkCategoryParserFnExtension___spec__1___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_div(lean_object*, lean_object*); +lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg(lean_object*); lean_object* l_Lean_Parser_decimalNumberFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldSepRevArgsM(lean_object*, lean_object*); lean_object* l_unreachable_x21___rarg(lean_object*); extern lean_object* l_Lean_nullKind; lean_object* l_Lean_Parser_mkParserExtension___closed__2; lean_object* l_Lean_Parser_strLitNoAntiquot; -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_octalNumberFn___closed__1; lean_object* l_Lean_Parser_many1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_many(lean_object*); -lean_object* l_List_eraseRepsAux___main___at_Lean_Parser_Error_toString___spec__5(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_identKind___closed__1; lean_object* l_Lean_Parser_FirstTokens_toStr(lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepBy___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -88,7 +87,6 @@ lean_object* l_Lean_Parser_hexNumberFn___closed__1; lean_object* l_Lean_Syntax_foldSepRevArgs(lean_object*); lean_object* l_Lean_Parser_binNumberFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_List_foldlM___main___at_Lean_Parser_addParserTokens___spec__1(lean_object*, lean_object*); -lean_object* l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numberFnAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_identEqFn___closed__1; lean_object* l_Lean_Parser_lookahead(lean_object*); @@ -105,9 +103,9 @@ lean_object* l_Array_foldSepBy___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numLit___elambda__1___closed__1; lean_object* l_Lean_Parser_longestMatchFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__6; +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__1; lean_object* l_Lean_Parser_registerBuiltinParserAttribute___closed__1; lean_object* l_Lean_Parser_nameLitNoAntiquot; -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon; lean_object* l_Lean_Parser_parserExtension___elambda__1___boxed(lean_object*); lean_object* l_Lean_Syntax_foldSepArgs___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_nameLitNoAntiquot___closed__2; @@ -123,10 +121,8 @@ lean_object* l_Lean_Parser_hexNumberFn(lean_object*, lean_object*, lean_object*) lean_object* l_Array_foldSepBy___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strLitFnAux(lean_object*, lean_object*, lean_object*); uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_next(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_setExpected___elambda__1___boxed(lean_object*); @@ -135,6 +131,7 @@ lean_object* l_Lean_Parser_addParser(lean_object*, lean_object*, lean_object*, u lean_object* l_Lean_Parser_PrattParsingTables_inhabited; lean_object* l_Lean_Parser_categoryParserFnRef; lean_object* l_Lean_Parser_pushNone; +lean_object* l_Lean_Parser_checkNoImmediateColon___closed__1; lean_object* l_Std_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef___spec__1; lean_object* l___private_Lean_Parser_Parser_7__tokenFnAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_InputContext_inhabited; @@ -144,7 +141,6 @@ lean_object* l_Lean_Parser_ParserExtensionState_inhabited___closed__1; size_t l_USize_sub(size_t, size_t); extern lean_object* l_Array_empty___closed__1; lean_object* l_Lean_Parser_regTermParserAttribute(lean_object*); -lean_object* l_List_eraseReps___at_Lean_Parser_Error_toString___spec__4(lean_object*); lean_object* l_Lean_Parser_ParserState_pushSyntax(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__17; lean_object* l_Lean_Syntax_foldSepArgsM(lean_object*, lean_object*); @@ -152,31 +148,24 @@ lean_object* l_Lean_Parser_builtinParserCategoriesRef; lean_object* lean_environment_find(lean_object*, lean_object*); lean_object* l_Lean_Parser_parserExtension; lean_object* l_Lean_Parser_unquotedSymbolFn___closed__1; -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3; lean_object* l_Lean_Parser_group(lean_object*); -lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__2; lean_object* l_Lean_Parser_dollarSymbol___closed__1; lean_object* l_Lean_Parser_ident; lean_object* l_Lean_Parser_parserExtension___closed__2; uint8_t l_Lean_Parser_isLitKind(lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_whitespace___main___spec__1(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_22__ParserExtension_addImported___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_binNumberFn___spec__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_fieldIdxKind___closed__1; lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__1; -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg(lean_object*); lean_object* l_Lean_Parser_withAntiquotFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserOfStackFn___closed__2; lean_object* lean_io_mk_ref(lean_object*, lean_object*); lean_object* l_Lean_Parser_checkColGe(lean_object*, lean_object*); uint8_t l___private_Lean_Parser_Parser_4__isToken(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_25__ParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolFn(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_18__addTokenConfig(lean_object*, lean_object*); uint8_t l_Char_isDigit(uint32_t); -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkNode(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserState(lean_object*); lean_object* l_List_append___rarg(lean_object*, lean_object*); @@ -192,6 +181,7 @@ lean_object* l_Lean_Parser_satisfyFn___boxed(lean_object*, lean_object*, lean_ob lean_object* l_Lean_Parser_declareBuiltinParser___closed__5; extern uint32_t l_Lean_idEndEscape; lean_object* l_Lean_Parser_mkAntiquot___closed__9; +lean_object* l___private_Lean_Parser_Parser_16__addTokenConfig(lean_object*, lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__8; lean_object* l_Lean_Parser_pushNone___elambda__1___boxed(lean_object*); lean_object* l_List_map___main___at_Lean_Parser_addLeadingParser___spec__4(lean_object*); @@ -203,12 +193,11 @@ lean_object* l_Lean_Parser_registerBuiltinDynamicParserAttribute(lean_object*, l extern lean_object* l_Lean_Position_Inhabited___closed__1; lean_object* l_Std_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsFn___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_17__addTrailingParserAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkTrailingNode(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_finishCommentBlock___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbol___closed__2; -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__4; -lean_object* l___private_Lean_Parser_Parser_19__addTrailingParserAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkInputContext(lean_object*, lean_object*); lean_object* l_Lean_Parser_addBuiltinParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_addBuiltinParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); @@ -216,6 +205,7 @@ lean_object* lean_array_push(lean_object*, lean_object*); lean_object* l_Lean_Parser_rawCh___elambda__1(uint32_t, uint8_t, lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l_Std_PersistentHashMap_getCollisionNodeSize___rarg(lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_charLitKind___closed__1; lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_insertAux___main___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__2(lean_object*, size_t, size_t, lean_object*, lean_object*); @@ -263,11 +253,13 @@ lean_object* l_Lean_Syntax_forSepArgsM(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__4; lean_object* l_Lean_Parser_ParserState_mkErrorsAt(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkCategoryParserFnExtension___spec__1___closed__1; +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkStackTopFn___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__2; lean_object* l_Lean_Syntax_foldSepRevArgs___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1; lean_object* l_Lean_Parser_leadingParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsInfo___elambda__2(lean_object*, lean_object*); -lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_parserExtension___closed__1; lean_object* l_Lean_Parser_checkColGeFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_declareBuiltinParser___closed__4; @@ -275,11 +267,13 @@ lean_object* l_Lean_Parser_nameLitFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_setExpected___elambda__1___rarg(lean_object*, lean_object*, lean_object*); extern lean_object* l_Nat_HasOfNat___closed__1; +lean_object* l_List_foldl___main___at___private_Lean_Parser_Parser_17__addTrailingParserAux___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension___elambda__1___rarg(lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strLitFnAux___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_nameLitKind; lean_object* l_Lean_Parser_categoryParserFnExtension___closed__1; +lean_object* l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__1; lean_object* l_Std_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_strLit___closed__1; lean_object* l_Lean_Parser_unquotedSymbol___closed__2; @@ -287,9 +281,8 @@ extern lean_object* l_Lean_LocalContext_Inhabited___closed__1; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_binNumberFn___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Std_RBNode_find___main___at_Lean_Parser_indexed___spec__2(lean_object*); lean_object* l___private_Lean_Parser_Parser_3__rawAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Parser_mkParserExtension___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_mkCategoryAntiquotParser(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_mkCategoryAntiquotParser(lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__4; lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_forSepArgsM___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkPrecFn(lean_object*, lean_object*, lean_object*); @@ -321,7 +314,6 @@ lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3; lean_object* l_Lean_Parser_declareTrailingBuiltinParser___closed__1; lean_object* l_Lean_Parser_mkParserExtension___lambda__1(lean_object*); lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__2; -lean_object* l_List_foldl___main___at___private_Lean_Parser_Parser_19__addTrailingParserAux___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_parserExtension___closed__5; lean_object* l_Array_iterateMAux___main___at_Lean_Parser_getSyntaxNodeKinds___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numLit___closed__1; @@ -350,10 +342,8 @@ lean_object* l_Lean_Parser_mkAntiquot___closed__15; lean_object* l_Lean_Parser_decimalNumberFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_PrattParsingTables_inhabited___closed__1; lean_object* l_Lean_Parser_compileParserDescr___main___closed__3; -lean_object* l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1; -lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(lean_object*, size_t, size_t, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_quotedSymbolFn___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numLit___closed__2; @@ -366,6 +356,7 @@ lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4; lean_object* l_Lean_Parser_mkAntiquot___closed__18; lean_object* l_Lean_Parser_addSyntaxNodeKind(lean_object*, lean_object*); lean_object* l_Lean_Parser_termParser___closed__1; +lean_object* l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Trie_HasEmptyc___closed__1; lean_object* l_Lean_Parser_mkIdResult___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__1; @@ -375,7 +366,6 @@ lean_object* l_Lean_Parser_setExpected___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbol(lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchFn___closed__1; lean_object* l_Lean_Parser_checkStackTopFn(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_RBNode_setBlack___rarg(lean_object*); lean_object* l_Lean_Parser_takeWhileFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolInfo___elambda__1(lean_object*); @@ -401,6 +391,7 @@ lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_rawCh___elambda__1___spec_ lean_object* l_Lean_Parser_ident___closed__2; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_HasBeq___closed__1; +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4(lean_object*); lean_object* l_Lean_Syntax_foldSepArgsM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -423,7 +414,9 @@ lean_object* l_Lean_Parser_dollarSymbol; lean_object* l_Lean_Parser_symbolFn___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_numLitKind; lean_object* l_EStateM_bind___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_11__mkTrailingResult(lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsInfo___elambda__1___boxed(lean_object*); +lean_object* l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__2; lean_object* l_Lean_Parser_quotedSymbol; lean_object* l_Lean_Parser_numLitNoAntiquot___closed__1; lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -441,12 +434,13 @@ lean_object* l_Lean_Parser_checkNoWsBefore(lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr___closed__2; lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*); lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__1; +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*); extern lean_object* l_Std_PersistentHashMap_insertAux___main___rarg___closed__3; extern lean_object* l_Lean_strLitKind; lean_object* l_Lean_Parser_nonReservedSymbolInfo(lean_object*, uint8_t); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_forArgsM___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_22__ParserExtension_addImported(lean_object*, lean_object*, lean_object*); +lean_object* l_List_eraseRepsAux___main___at_Lean_Parser_Error_toString___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_finishCommentBlock___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_parserExtension___closed__6; lean_object* l_Lean_Parser_checkNoWsBefore___elambda__1___boxed(lean_object*, lean_object*, lean_object*); @@ -464,12 +458,11 @@ lean_object* l_Array_findRevMAux___main___at___private_Lean_Parser_Parser_9__pic lean_object* l_Lean_Syntax_foldArgsM(lean_object*, lean_object*); lean_object* l_Array_shrink___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_numLitNoAntiquot___closed__2; -lean_object* l___private_Lean_Parser_Parser_16__ParserExtension_mkInitial(lean_object*); -lean_object* l___private_Lean_Parser_Parser_11__mkResult(lean_object*, lean_object*); lean_object* l_Lean_Parser_withAntiquot(lean_object*, lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr___closed__8; +lean_object* l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__1; lean_object* l_Lean_Parser_fieldIdx___closed__3; -uint8_t l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__2(lean_object*, size_t, lean_object*); uint8_t l_Lean_Parser_Error_beq(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__26; lean_object* l_Lean_Parser_ParserState_keepNewError(lean_object*, lean_object*); @@ -477,10 +470,8 @@ lean_object* l_Lean_Parser_antiquotExpr; lean_object* l_Std_RBNode_find___main___at_Lean_Parser_indexed___spec__2___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_regTermParserAttribute___closed__1; lean_object* l_Lean_Parser_symbol(lean_object*); -lean_object* l___private_Lean_Parser_Parser_21__ParserExtension_addEntry(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserExtension___closed__8; lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_octalNumberFn___spec__2(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__2; lean_object* l_Lean_Parser_symbolInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_whitespace___main(lean_object*, lean_object*); lean_object* l_Lean_Parser_nameLit___closed__3; @@ -493,7 +484,6 @@ uint8_t l_Lean_Parser_tryAnti(lean_object*, lean_object*); extern lean_object* l_Lean_numLitKind___closed__1; lean_object* l_Lean_Parser_optionaInfo(lean_object*); lean_object* l_Lean_Parser_FirstTokens_seq(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__1; lean_object* l_Lean_Parser_peekToken(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_toString___closed__4; lean_object* l_Std_PersistentHashMap_foldlMAux___main___at_Lean_Parser_getSyntaxNodeKinds___spec__2(lean_object*, lean_object*); @@ -507,10 +497,10 @@ lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_nameLit; lean_object* l_Lean_Parser_binNumberFn(lean_object*, lean_object*, lean_object*); lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_14__addBuiltinParserCategory(lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_charLitNoAntiquot___closed__3; lean_object* l_Lean_Parser_peekTokenAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_HasBeq; -lean_object* l___private_Lean_Parser_Parser_15__addBuiltinParserCategory(lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__3; lean_object* l_Lean_Parser_parserExtension___elambda__4(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_Inhabited___closed__1; @@ -520,16 +510,16 @@ uint8_t l_Lean_Parser_checkTailNoWs(lean_object*); lean_object* l_Lean_Parser_checkTailWs___boxed(lean_object*); lean_object* l_Lean_Parser_charLitFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_trailingLoopStep(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1(lean_object*); lean_object* l_Lean_Parser_charLitNoAntiquot___closed__2; lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgsM___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchStep(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_addLeadingParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_12__mkTrailingResult(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_20__ParserExtension_addImported(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_setExpectedFn(lean_object*); lean_object* l_Lean_Parser_strLitFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserExtension___lambda__2___boxed(lean_object*); +lean_object* l___private_Lean_Parser_Parser_19__ParserExtension_addEntry(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__12; lean_object* l_Lean_Parser_charLit___closed__3; lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__4; @@ -538,7 +528,6 @@ lean_object* l_Lean_Parser_addToken(lean_object*, lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr___closed__7; lean_object* l_Lean_Parser_nameLit___closed__1; lean_object* l_Lean_Parser_antiquotExpr___closed__1; -lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Lean_Compiler_InitAttr_2__isUnitType___closed__1; lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__5; lean_object* l_Nat_repr(lean_object*); @@ -565,27 +554,30 @@ lean_object* l_Lean_Parser_nameLit___closed__2; lean_object* l_Lean_Parser_strLitNoAntiquot___closed__1; lean_object* l_Lean_Parser_sepByFn(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__2; -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_chFn___spec__1(uint32_t, lean_object*, lean_object*, lean_object*); -lean_object* l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1; +lean_object* l___private_Lean_Parser_Parser_15__ParserExtension_mkInitial(lean_object*); +lean_object* l___private_Lean_Parser_Parser_23__ParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_rawCh___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_getNext___boxed(lean_object*, lean_object*); lean_object* l_IO_ofExcept___at_Lean_Parser_declareBuiltinParser___spec__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_21__catNameToString(lean_object*); lean_object* l_Lean_Parser_mkParserAttributeImpl___closed__1; lean_object* l_Lean_Parser_termParser___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_Lean_choiceKind; extern lean_object* l_List_repr___rarg___closed__2; extern lean_object* l_Lean_charLitKind; +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2; extern lean_object* l_List_reprAux___main___rarg___closed__1; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_hexNumberFn___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_maxPrec; lean_object* l_Lean_Parser_TokenMap_Inhabited(lean_object*); +lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension___elambda__1___rarg___boxed(lean_object*); lean_object* l_Lean_Parser_regTermParserAttribute___closed__2; lean_object* l_Lean_Parser_rawIdent; lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepByM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +lean_object* l___private_Lean_Parser_Parser_10__mkResult(lean_object*, lean_object*); lean_object* l_Std_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1(lean_object*); lean_object* l___private_Lean_Parser_Parser_9__pickNonNone___boxed(lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10; @@ -593,23 +585,23 @@ lean_object* l_Lean_Parser_FirstTokens_merge(lean_object*, lean_object*); extern size_t l_Std_PersistentHashMap_insertAux___main___rarg___closed__2; lean_object* l_Lean_Parser_strLit___elambda__1___closed__1; lean_object* l_Lean_Parser_pushNone___elambda__1___rarg(lean_object*); +lean_object* l___private_Lean_Parser_Parser_13__addParserCategoryCore(lean_object*, lean_object*, lean_object*); lean_object* lean_eval_const(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserAttributeImpl(lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__5; -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; lean_object* l_Lean_Parser_symbolInfo___elambda__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_hexNumberFn___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_charLit___closed__2; +lean_object* l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1___closed__1; lean_object* l_Lean_Parser_ParserFn_inhabited(lean_object*); lean_object* l_Lean_Parser_ParserExtensionState_inhabited; -lean_object* l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkEOIError___closed__1; uint8_t l_Lean_Parser_isIdCont(lean_object*, lean_object*); lean_object* l_Lean_Parser_mergeOrElseErrors___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1; lean_object* l_Lean_Parser_compileParserDescr(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_checkNoImmediateColon___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_quotedSymbolFn___spec__2___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_14__addParserCategoryCore(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_declareTrailingBuiltinParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_setCategoryParserFnRef___closed__1; @@ -638,15 +630,14 @@ lean_object* l_Lean_Parser_strLitNoAntiquot___closed__3; lean_object* l_Lean_Parser_addParserCategory___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerBuiltinParserAttribute(lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_charLitNoAntiquot___closed__1; -lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension___closed__3; +lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Parser_inhabited___lambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_checkTailNoWs___boxed(lean_object*); lean_object* l_Lean_Parser_takeUntilFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserOfConstantAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsInfo(lean_object*); lean_object* l_Lean_Parser_epsilonInfo___elambda__1___boxed(lean_object*); -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*); lean_object* l_Lean_FileMap_toPosition(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAtomicInfo___elambda__1(lean_object*); @@ -660,7 +651,7 @@ lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgs___spec__1 lean_object* l_IO_Prim_Ref_get___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchMkResult(lean_object*, lean_object*); size_t l_USize_mul(size_t, size_t); -lean_object* l___private_Lean_Parser_Parser_18__addTokenConfig___closed__1; +lean_object* l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__1; lean_object* l_Lean_FileMap_ofString(lean_object*); lean_object* l_Lean_Parser_whitespace(lean_object*, lean_object*); lean_object* l_List_redLength___main___rarg(lean_object*); @@ -678,16 +669,16 @@ lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_Parser_addLeadingP lean_object* l___private_Lean_Data_Trie_2__insertAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strLit___closed__3; lean_object* l_Lean_Parser_mkParserExtension(lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_popSyntax(lean_object*); lean_object* l_Lean_Parser_termParser(lean_object*); lean_object* l_Lean_Parser_sepByFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkBuiltinTokenTable(lean_object*); lean_object* l_Lean_Parser_FirstTokens_toStr___closed__3; lean_object* l_Lean_Parser_manyAux(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_15__addBuiltinParserCategory___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_20__updateBuiltinTokens(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_addTrailingParser(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__7; +uint8_t l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_pushNone___closed__1; lean_object* l_Lean_Parser_chFn(uint32_t, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr; @@ -700,7 +691,9 @@ lean_object* l_Lean_Parser_trailingNodeFn(lean_object*, lean_object*, lean_objec lean_object* l_Lean_Parser_rawIdent___closed__2; lean_object* l_Lean_Parser_addBuiltinLeadingParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldSepArgsM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_checkNoImmediateColon; lean_object* l_Lean_Parser_mkParserExtension___closed__7; +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1(lean_object*); lean_object* l_Std_RBNode_insert___at_Lean_Parser_TokenMap_insert___spec__2___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_regBuiltinTermParserAttr___closed__1; lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7; @@ -721,6 +714,7 @@ lean_object* l_Lean_Parser_mkParserAttributeImpl___elambda__1___boxed(lean_objec lean_object* l_Lean_Parser_sepBy1Info(lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedCharFn___closed__1; lean_object* l_Lean_Parser_charLitFnAux___closed__1; +lean_object* l___private_Lean_Parser_Parser_18__updateBuiltinTokens(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWs(lean_object*); lean_object* l_Lean_Parser_hexDigitFn___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mergeErrors___boxed(lean_object*, lean_object*, lean_object*); @@ -739,8 +733,8 @@ extern lean_object* l___private_Lean_Compiler_InitAttr_1__getIOTypeArg___closed_ lean_object* l_Lean_Parser_dollarSymbol___elambda__1___closed__5; extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3; lean_object* l_Lean_Parser_noFirstTokenInfo___elambda__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder(lean_object*); lean_object* l_Lean_Parser_ident___elambda__1___closed__1; -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder(lean_object*); lean_object* l_Lean_Parser_declareLeadingBuiltinParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkColGeFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); @@ -767,21 +761,21 @@ lean_object* l_Lean_Parser_unquotedSymbolFn(lean_object*, lean_object*); lean_object* l_String_intercalate(lean_object*, lean_object*); extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1; lean_object* l_Lean_Parser_numLit; -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences___closed__3; lean_object* l_Lean_Parser_leadingParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_hexDigitFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkCategoryParserFnRef___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__16; +lean_object* l_Lean_Parser_checkNoImmediateColon___elambda__1___boxed(lean_object*, lean_object*); lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1; lean_object* l_Lean_Parser_compileParserDescr___main___closed__2; lean_object* l_Lean_Parser_FirstTokens_HasToString___closed__1; lean_object* l_Lean_Parser_FirstTokens_HasToString; -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numLit___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_toString(lean_object*); lean_object* l_Lean_Parser_categoryParserOfStackFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_checkNoImmediateColon___elambda__1___closed__1; lean_object* l_Lean_Parser_runLongestMatchParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__6___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkTrailingNode___boxed(lean_object*, lean_object*, lean_object*); @@ -810,14 +804,18 @@ lean_object* l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_P lean_object* l_Lean_Parser_numLitNoAntiquot___closed__3; lean_object* l_Lean_mkApp(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_Inhabited; +lean_object* l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_containsAtAux___main___at_Lean_Parser_isValidSyntaxNodeKind___spec__3___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParser(lean_object*, lean_object*); -lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(lean_object*, lean_object*); +uint8_t l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__2(lean_object*, size_t, lean_object*); +lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3___boxed(lean_object*, lean_object*); uint8_t l_Std_RBNode_isRed___rarg(lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___closed__2; +lean_object* l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_antiquotNestedExpr___closed__6; lean_object* l_Lean_Parser_mkAntiquot___closed__22; lean_object* l_Lean_Syntax_getArgs(lean_object*); +lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Environment_addAndCompile(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_many1Indent___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getKind(lean_object*); @@ -839,7 +837,6 @@ lean_object* l_Lean_Parser_setExpectedFn___boxed(lean_object*); lean_object* l_Array_findRevMAux___main___at___private_Lean_Parser_Parser_9__pickNonNone___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___boxed(lean_object*, lean_object*); lean_object* l_Lean_Name_toExprAux___main(lean_object*); -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___closed__2; lean_object* l_Lean_Parser_mkParserExtension___closed__5; lean_object* l_Lean_Parser_dollarSymbol___closed__3; lean_object* l_Lean_Parser_satisfySymbolFn(lean_object*, lean_object*, lean_object*, lean_object*); @@ -862,21 +859,20 @@ lean_object* l_Lean_Parser_nonReservedSymbolInfo___elambda__2___boxed(lean_objec lean_object* l_Lean_Parser_many1Indent(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_whitespace___main___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_builtinSyntaxNodeKindSetRef; +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserState___boxed(lean_object*); lean_object* l_Lean_Parser_categoryParser___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsInfo___closed__1; lean_object* l_Lean_Parser_pushNone___elambda__1(lean_object*); lean_object* lean_io_ref_reset(lean_object*, lean_object*); lean_object* l_Lean_Parser_FirstTokens_toStr___closed__2; -lean_object* l___private_Lean_Parser_Parser_25__ParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1; lean_object* lean_io_ref_swap(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawIdentNoAntiquot; lean_object* l_Lean_Parser_ParserState_replaceLongest(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_16__addTokenConfig___closed__1; extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Lean_Parser_ident___elambda__1___closed__2; lean_object* l_Lean_Parser_fieldIdxFn___boxed(lean_object*, lean_object*); -lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserCategory_inhabited; lean_object* l_Lean_Parser_mkAntiquot___closed__19; lean_object* l_Lean_Parser_dollarSymbol___elambda__1(lean_object*, lean_object*); @@ -890,6 +886,7 @@ lean_object* l_Lean_Parser_noFirstTokenInfo___elambda__2(lean_object*, lean_obje lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkCategoryParserFnExtension___spec__1(lean_object*, lean_object*); lean_object* l_Std_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkCategoryParserFnRef___lambda__1(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_16__addTokenConfig___closed__2; lean_object* l_Lean_Parser_epsilonInfo___closed__2; lean_object* l_Lean_Parser_Parser_inhabited___closed__2; lean_object* l_Lean_Parser_mkCategoryParserFnExtension(lean_object*); @@ -901,6 +898,7 @@ lean_object* l_Lean_Parser_categoryParserFnExtension___elambda__1___boxed(lean_o lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__1; lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgsM___spec__1(lean_object*, lean_object*); +lean_object* l_List_eraseReps___at_Lean_Parser_Error_toString___spec__3(lean_object*); lean_object* l_Lean_Parser_ParserCategory_inhabited___closed__1; lean_object* l_Lean_Parser_isIdCont___boxed(lean_object*, lean_object*); uint8_t l_Lean_Syntax_isNone(lean_object*); @@ -911,13 +909,14 @@ lean_object* l_Lean_Parser_epsilonInfo___closed__1; lean_object* l_Std_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__7(lean_object*); lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkPrec(lean_object*); +lean_object* l_Lean_Parser_checkNoImmediateColon___closed__2; extern lean_object* l_Lean_FileMap_Inhabited___closed__1; extern lean_object* l_Lean_mkOptionalNode___closed__1; lean_object* l_Lean_Parser_rawIdentFn___boxed(lean_object*, lean_object*); -uint8_t l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1(lean_object*, lean_object*); lean_object* l_Std_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg___boxed(lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepBy___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_String_trim(lean_object*); +lean_object* l___private_Lean_Parser_Parser_14__addBuiltinParserCategory___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_leadingParserAux(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Syntax_forSepArgsM___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawFn(lean_object*, uint8_t, lean_object*, lean_object*); @@ -936,17 +935,18 @@ lean_object* l_Lean_Parser_TokenMap_insert___rarg(lean_object*, lean_object*, le uint8_t l_Lean_isIdFirst(uint32_t); uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserOfConstant(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhile1Fn(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_io_initializing(lean_object*); lean_object* l___private_Lean_Parser_Parser_8__updateCache(lean_object*, lean_object*); extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Lean_Parser_sepByInfo___elambda__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolInfo___closed__1; +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__3; lean_object* l_Lean_Syntax_forSepArgsM___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_EnvExtension_getStateUnsafe___rarg(lean_object*, lean_object*); +uint8_t l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_nameLit___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__6; lean_object* l_Lean_Parser_rawIdent___closed__1; @@ -957,17 +957,14 @@ lean_object* l_Lean_Parser_addBuiltinTrailingParser(lean_object*, lean_object*, lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkCategoryParserFnExtension___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__7; lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t); -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___closed__1; lean_object* l_Lean_Parser_optionaInfo___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_addParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_leadingNode(lean_object*, lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_containsAux___main___at_Lean_Parser_isValidSyntaxNodeKind___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Parser_Parser_1__expectedToString___main___closed__1; -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_toErrorMsg(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__4(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkStxLit(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAtomicInfo___closed__1; lean_object* l_Lean_Parser_Error_toString___closed__3; lean_object* l_Std_RBNode_find___main___at_Lean_Parser_indexed___spec__1(lean_object*); @@ -984,18 +981,19 @@ lean_object* l_Lean_Parser_ParserState_next___boxed(lean_object*, lean_object*, extern lean_object* l_Lean_mkOptionalNode___closed__2; lean_object* l_Lean_Parser_Parser_inhabited___lambda__1___boxed(lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgsM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined(lean_object*); lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Syntax_foldSepRevArgsM___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_sepBy1Info___elambda__2(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_epsilonInfo___elambda__2(lean_object*); +lean_object* l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined(lean_object*); +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_orelse(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgs___spec__1(lean_object*); -uint8_t l_List_beq___main___at_Lean_Parser_Error_toString___spec__1(lean_object*, lean_object*); +lean_object* l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_epsilonInfo___elambda__1(lean_object*); lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_hexNumberFn___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Parser_Parser_9__pickNonNone(lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension; lean_object* l_Array_iterateMAux___main___at_Lean_Parser_getSyntaxNodeKinds___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -1005,8 +1003,8 @@ lean_object* l_List_toStringAux___main___at_Lean_Parser_FirstTokens_toStr___spec lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_dollarSymbol___elambda__1___closed__3; lean_object* l_Lean_Parser_andthen(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2; lean_object* l_Lean_Parser_node(lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_forArgsM___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_stringToParserCoe___boxed(lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*); @@ -1016,11 +1014,11 @@ lean_object* l_Lean_Parser_unicodeSymbolInfo(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_identNoAntiquot; lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); +lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkCategoryParserFnRef(lean_object*); lean_object* l_Lean_Parser_ParserState_keepPrevError___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_many1Fn___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_List_beq___main___at_Lean_Parser_Error_toString___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkCategoryParserFnRef___closed__1; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_identFnAux___main___spec__2(lean_object*, lean_object*); lean_object* lean_usize_to_nat(size_t); @@ -1034,7 +1032,6 @@ lean_object* l_Lean_Parser_ParserState_mkUnexpectedError(lean_object*, lean_obje uint8_t l_UInt32_decLe(uint32_t, uint32_t); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_identFnAux___main___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_getSyntaxNodeKinds___boxed(lean_object*); -lean_object* l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__2___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Parser_ParserState_hasError(lean_object*); lean_object* l_Lean_Parser_symbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_hexDigitFn___closed__1; @@ -1062,12 +1059,13 @@ lean_object* l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(lean_o lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__3; lean_object* l_List_toStringAux___main___at_Lean_Parser_FirstTokens_toStr___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_setExpected___elambda__1(lean_object*); +lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolInfo___closed__1; lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__5; lean_object* l_Lean_Parser_quotedSymbolFn___closed__3; lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_identFnAux___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldArgs___rarg___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_18__addTokenConfig___closed__2; uint8_t lean_string_utf8_at_end(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_replaceLongest___boxed(lean_object*, lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); @@ -1076,7 +1074,6 @@ lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___boxed(lean_object*, lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepRevArgsM___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_toString___closed__1; lean_object* l_Lean_Parser_regBuiltinTermParserAttr___closed__2; -lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(lean_object*, lean_object*); lean_object* l_Std_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__7___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__2; lean_object* l_Lean_Parser_compileParserDescr___main___closed__4; @@ -1085,11 +1082,11 @@ lean_object* l_Lean_Syntax_getTailInfo___main(lean_object*); lean_object* l_Lean_Parser_categoryParserOfStack___elambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Data_Trie_3__findAux_x3f___main___rarg(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__1; -lean_object* l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_initAttr; lean_object* l_Lean_Parser_identFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_decimalNumberFn___spec__2___boxed(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; +lean_object* l___private_Lean_Parser_Parser_20__ParserExtension_addImported___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Syntax_foldSepRevArgs___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_antiquotExpr___closed__3; lean_object* l_Lean_Parser_charLitNoAntiquot; @@ -1099,41 +1096,38 @@ extern lean_object* l_Lean_mkAppStx___closed__1; lean_object* l_Lean_Parser_unicodeSymbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_nameLit___elambda__1___closed__2; lean_object* l___private_Lean_Parser_Parser_5__isIdFirstOrBeginEscape___boxed(lean_object*); +lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_sepBy1Info___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawIdent___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_strLit; lean_object* l_Lean_Parser_many1(lean_object*, uint8_t); +lean_object* l___private_Lean_Parser_Parser_23__ParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_RBNode_insert___at_Lean_Parser_TokenMap_insert___spec__2(lean_object*); lean_object* l_Lean_Parser_mkAtomicInfo___closed__2; lean_object* l_Lean_Parser_sepBy___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_identNoAntiquot___closed__2; uint8_t l___private_Lean_Parser_Parser_5__isIdFirstOrBeginEscape(uint32_t); -lean_object* l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences___closed__2; lean_object* l_Lean_Parser_strLit___closed__2; lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__2; -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1; lean_object* l_Lean_Parser_nonReservedSymbolInfo___boxed(lean_object*, lean_object*); -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences___closed__1; lean_object* l_Lean_Parser_ParserState_mergeErrors(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_isIdRest(uint32_t); lean_object* l_Lean_Parser_numberFnAux___boxed(lean_object*, lean_object*); uint8_t lean_string_dec_lt(lean_object*, lean_object*); lean_object* l_Lean_Parser_parserExtension___elambda__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdxFn(lean_object*, lean_object*); +lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_mkCollisionNode___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_compileParserDescr___main___closed__5; lean_object* l_Lean_Parser_mkIdent(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_nameLitKind___closed__1; uint8_t lean_string_dec_eq(lean_object*, lean_object*); -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_contains___at_Lean_Parser_isValidSyntaxNodeKind___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_isLitKind___boxed(lean_object*); lean_object* l_IO_ofExcept___at_Lean_Parser_declareBuiltinParser___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_registerParserCategory___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); -lean_object* l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchFnAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Syntax_isIdent(lean_object*); @@ -1930,57 +1924,7 @@ x_2 = l___private_Lean_Parser_Parser_1__expectedToString___main(x_1); return x_2; } } -uint8_t l_List_beq___main___at_Lean_Parser_Error_toString___spec__1(lean_object* x_1, lean_object* x_2) { -_start: -{ -if (lean_obj_tag(x_1) == 0) -{ -if (lean_obj_tag(x_2) == 0) -{ -uint8_t x_3; -x_3 = 1; -return x_3; -} -else -{ -uint8_t x_4; -x_4 = 0; -return x_4; -} -} -else -{ -if (lean_obj_tag(x_2) == 0) -{ -uint8_t x_5; -x_5 = 0; -return x_5; -} -else -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; -x_6 = lean_ctor_get(x_1, 0); -x_7 = lean_ctor_get(x_1, 1); -x_8 = lean_ctor_get(x_2, 0); -x_9 = lean_ctor_get(x_2, 1); -x_10 = lean_string_dec_eq(x_6, x_8); -if (x_10 == 0) -{ -uint8_t x_11; -x_11 = 0; -return x_11; -} -else -{ -x_1 = x_7; -x_2 = x_9; -goto _start; -} -} -} -} -} -lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(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; @@ -2028,7 +1972,7 @@ goto _start; } } } -lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_13; @@ -2082,7 +2026,7 @@ if (x_23 == 0) lean_object* x_24; lean_dec(x_16); lean_inc_n(x_2, 2); -x_24 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(x_3, x_19, x_17, x_2, x_2); +x_24 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(x_3, x_19, x_17, x_2, x_2); lean_dec(x_19); x_4 = x_24; goto block_12; @@ -2095,7 +2039,7 @@ x_25 = lean_array_swap(x_17, x_16, x_3); lean_dec(x_16); x_26 = lean_array_get(x_18, x_25, x_3); lean_inc_n(x_2, 2); -x_27 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(x_3, x_26, x_25, x_2, x_2); +x_27 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(x_3, x_26, x_25, x_2, x_2); lean_dec(x_26); x_4 = x_27; goto block_12; @@ -2115,7 +2059,7 @@ if (x_31 == 0) lean_object* x_32; lean_dec(x_16); lean_inc_n(x_2, 2); -x_32 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(x_3, x_30, x_28, x_2, x_2); +x_32 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(x_3, x_30, x_28, x_2, x_2); lean_dec(x_30); x_4 = x_32; goto block_12; @@ -2128,7 +2072,7 @@ x_33 = lean_array_swap(x_28, x_16, x_3); lean_dec(x_16); x_34 = lean_array_get(x_18, x_33, x_3); lean_inc_n(x_2, 2); -x_35 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(x_3, x_34, x_33, x_2, x_2); +x_35 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(x_3, x_34, x_33, x_2, x_2); lean_dec(x_34); x_4 = x_35; goto block_12; @@ -2148,7 +2092,7 @@ x_7 = lean_nat_dec_le(x_3, x_5); if (x_7 == 0) { lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_8 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2(x_6, x_2, x_5); +x_8 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1(x_6, x_2, x_5); x_9 = lean_unsigned_to_nat(1u); x_10 = lean_nat_add(x_5, x_9); lean_dec(x_5); @@ -2165,7 +2109,7 @@ return x_6; } } } -lean_object* l_List_eraseRepsAux___main___at_Lean_Parser_Error_toString___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_List_eraseRepsAux___main___at_Lean_Parser_Error_toString___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { if (lean_obj_tag(x_2) == 0) @@ -2239,7 +2183,7 @@ goto _start; } } } -lean_object* l_List_eraseReps___at_Lean_Parser_Error_toString___spec__4(lean_object* x_1) { +lean_object* l_List_eraseReps___at_Lean_Parser_Error_toString___spec__3(lean_object* x_1) { _start: { if (lean_obj_tag(x_1) == 0) @@ -2255,7 +2199,7 @@ x_3 = lean_ctor_get(x_1, 1); lean_inc(x_3); lean_dec(x_1); x_4 = lean_box(0); -x_5 = l_List_eraseRepsAux___main___at_Lean_Parser_Error_toString___spec__5(x_2, x_3, x_4); +x_5 = l_List_eraseRepsAux___main___at_Lean_Parser_Error_toString___spec__4(x_2, x_3, x_4); return x_5; } } @@ -2307,7 +2251,7 @@ lean_dec(x_1); x_4 = l_String_splitAux___main___closed__1; x_5 = lean_string_dec_eq(x_2, x_4); x_6 = lean_box(0); -x_7 = l_List_beq___main___at_Lean_Parser_Error_toString___spec__1(x_3, x_6); +x_7 = l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(x_3, x_6); if (x_5 == 0) { lean_object* x_8; @@ -2326,11 +2270,11 @@ x_13 = lean_unsigned_to_nat(1u); x_14 = lean_nat_sub(x_12, x_13); lean_dec(x_12); x_15 = lean_unsigned_to_nat(0u); -x_16 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2(x_11, x_15, x_14); +x_16 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1(x_11, x_15, x_14); lean_dec(x_14); x_17 = l_Array_toList___rarg(x_16); lean_dec(x_16); -x_18 = l_List_eraseReps___at_Lean_Parser_Error_toString___spec__4(x_17); +x_18 = l_List_eraseReps___at_Lean_Parser_Error_toString___spec__3(x_17); x_19 = l___private_Lean_Parser_Parser_1__expectedToString___main(x_18); x_20 = l_Lean_Parser_Error_toString___closed__1; x_21 = lean_string_append(x_20, x_19); @@ -2368,11 +2312,11 @@ x_33 = lean_unsigned_to_nat(1u); x_34 = lean_nat_sub(x_32, x_33); lean_dec(x_32); x_35 = lean_unsigned_to_nat(0u); -x_36 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2(x_31, x_35, x_34); +x_36 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1(x_31, x_35, x_34); lean_dec(x_34); x_37 = l_Array_toList___rarg(x_36); lean_dec(x_36); -x_38 = l_List_eraseReps___at_Lean_Parser_Error_toString___spec__4(x_37); +x_38 = l_List_eraseReps___at_Lean_Parser_Error_toString___spec__3(x_37); x_39 = l___private_Lean_Parser_Parser_1__expectedToString___main(x_38); x_40 = l_Lean_Parser_Error_toString___closed__1; x_41 = lean_string_append(x_40, x_39); @@ -2395,32 +2339,21 @@ return x_46; } } } -lean_object* l_List_beq___main___at_Lean_Parser_Error_toString___spec__1___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; lean_object* x_4; -x_3 = l_List_beq___main___at_Lean_Parser_Error_toString___spec__1(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -x_4 = lean_box(x_3); -return x_4; -} -} -lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { lean_object* x_6; -x_6 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__3(x_1, x_2, x_3, x_4, x_5); +x_6 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Parser_Error_toString___spec__2(x_1, x_2, x_3, x_4, x_5); lean_dec(x_2); lean_dec(x_1); return x_6; } } -lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__2(x_1, x_2, x_3); +x_4 = l_Array_qsortAux___main___at_Lean_Parser_Error_toString___spec__1(x_1, x_2, x_3); lean_dec(x_3); return x_4; } @@ -2459,7 +2392,7 @@ else lean_object* x_7; lean_object* x_8; uint8_t x_9; x_7 = lean_ctor_get(x_1, 1); x_8 = lean_ctor_get(x_2, 1); -x_9 = l_List_beq___main___at_Lean_Parser_Error_toString___spec__1(x_7, x_8); +x_9 = l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(x_7, x_8); return x_9; } } @@ -24100,7 +24033,7 @@ x_1 = l_Lean_Parser_dollarSymbol___closed__3; return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___closed__1() { +lean_object* _init_l_Lean_Parser_checkNoImmediateColon___elambda__1___closed__1() { _start: { lean_object* x_1; @@ -24108,7 +24041,7 @@ x_1 = lean_mk_string("unexpected ':'"); return x_1; } } -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Parser_checkNoImmediateColon___elambda__1(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; lean_object* x_4; uint8_t x_5; @@ -24144,7 +24077,7 @@ return x_2; else { lean_object* x_13; lean_object* x_14; -x_13 = l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___closed__1; +x_13 = l_Lean_Parser_checkNoImmediateColon___elambda__1___closed__1; x_14 = l_Lean_Parser_ParserState_mkUnexpectedError(x_2, x_13); return x_14; } @@ -24157,39 +24090,39 @@ return x_2; } } } -lean_object* _init_l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1() { +lean_object* _init_l_Lean_Parser_checkNoImmediateColon___closed__1() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___boxed), 2, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_checkNoImmediateColon___elambda__1___boxed), 2, 0); return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_10__noImmediateColon___closed__2() { +lean_object* _init_l_Lean_Parser_checkNoImmediateColon___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Parser_inhabited___closed__1; -x_2 = l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1; +x_2 = l_Lean_Parser_checkNoImmediateColon___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); return x_3; } } -lean_object* _init_l___private_Lean_Parser_Parser_10__noImmediateColon() { +lean_object* _init_l_Lean_Parser_checkNoImmediateColon() { _start: { lean_object* x_1; -x_1 = l___private_Lean_Parser_Parser_10__noImmediateColon___closed__2; +x_1 = l_Lean_Parser_checkNoImmediateColon___closed__2; return x_1; } } -lean_object* l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Lean_Parser_checkNoImmediateColon___elambda__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1(x_1, x_2); +x_3 = l_Lean_Parser_checkNoImmediateColon___elambda__1(x_1, x_2); lean_dec(x_1); return x_3; } @@ -24966,39 +24899,57 @@ lean_object* _init_l_Lean_Parser_mkAntiquot___closed__3() { _start: { lean_object* x_1; -x_1 = lean_mk_string("no space before ':"); +x_1 = lean_mk_string("antiquotName"); return x_1; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__4() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_mkAntiquot___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("no space before ':"); +return x_1; +} +} +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__6() { +_start: +{ lean_object* x_1; lean_object* x_2; x_1 = l___private_Init_Util_1__mkPanicMessage___closed__2; x_2 = l_String_trim(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__5() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__7() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__4; +x_1 = l_Lean_Parser_mkAntiquot___closed__6; x_2 = l_Lean_Parser_symbolInfo(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__6() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__8() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__4; +x_1 = l_Lean_Parser_mkAntiquot___closed__6; x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); lean_closure_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__7() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -25008,7 +24959,7 @@ x_3 = l_Lean_Parser_setExpected(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__8() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__10() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; @@ -25020,7 +24971,7 @@ x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__9() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__11() { _start: { lean_object* x_1; lean_object* x_2; @@ -25030,11 +24981,11 @@ lean_closure_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__10() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__12() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_mkAntiquot___closed__9; +x_1 = l_Lean_Parser_mkAntiquot___closed__11; x_2 = l_Lean_Parser_dollarSymbol___closed__2; x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_3, 0, x_1); @@ -25042,26 +24993,26 @@ lean_closure_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__11() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__8; -x_2 = l_Lean_Parser_noFirstTokenInfo(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__12() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__13() { _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_mkAntiquot___closed__10; +x_2 = l_Lean_Parser_noFirstTokenInfo(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__14() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_mkAntiquot___closed__12; x_2 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn), 3, 1); lean_closure_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__13() { +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__15() { _start: { lean_object* x_1; @@ -25069,89 +25020,71 @@ x_1 = lean_mk_string("*"); return x_1; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__14() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__13; -x_2 = l_String_trim(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__15() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__14; -x_2 = l_Lean_Parser_symbolInfo(x_1); -return x_2; -} -} lean_object* _init_l_Lean_Parser_mkAntiquot___closed__16() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__14; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); -lean_closure_set(x_2, 0, x_1); +x_1 = l_Lean_Parser_mkAntiquot___closed__15; +x_2 = l_String_trim(x_1); return x_2; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__17() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_epsilonInfo; -x_2 = l_Lean_Parser_mkAntiquot___closed__15; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_mkAntiquot___closed__16; +x_2 = l_Lean_Parser_symbolInfo(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__18() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_mkAntiquot___closed__16; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__19() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_mkAntiquot___closed__9; -x_2 = l_Lean_Parser_mkAntiquot___closed__16; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_mkAntiquot___closed__17; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_mkAntiquot___closed__20() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_mkAntiquot___closed__11; +x_2 = l_Lean_Parser_mkAntiquot___closed__18; x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__19() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__17; -x_2 = l_Lean_Parser_optionaInfo(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_mkAntiquot___closed__20() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__18; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn), 3, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} lean_object* _init_l_Lean_Parser_mkAntiquot___closed__21() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("no space before spliced term"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_mkAntiquot___closed__19; +x_2 = l_Lean_Parser_optionaInfo(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__22() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_mkAntiquot___closed__21; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_checkNoWsBefore___elambda__1___boxed), 3, 1); +x_1 = l_Lean_Parser_mkAntiquot___closed__20; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn), 3, 1); lean_closure_set(x_2, 0, x_1); return x_2; } @@ -25159,44 +25092,41 @@ return x_2; lean_object* _init_l_Lean_Parser_mkAntiquot___closed__23() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_pushNone; -x_2 = lean_ctor_get(x_1, 0); -lean_inc(x_2); -lean_inc(x_2); -x_3 = l_Lean_Parser_andthenInfo(x_2, x_2); -return x_3; +lean_object* x_1; +x_1 = lean_mk_string("no space before spliced term"); +return x_1; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__24() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_pushNone___closed__1; -x_2 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +x_1 = l_Lean_Parser_mkAntiquot___closed__23; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_checkNoWsBefore___elambda__1___boxed), 3, 1); lean_closure_set(x_2, 0, x_1); -lean_closure_set(x_2, 1, x_1); return x_2; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__25() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l___private_Lean_Parser_Parser_10__noImmediateColon; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_checkNoImmediateColon; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_mkAntiquot___closed__23; -x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); -return x_4; +x_3 = l_Lean_Parser_pushNone; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = l_Lean_Parser_andthenInfo(x_2, x_4); +return x_5; } } lean_object* _init_l_Lean_Parser_mkAntiquot___closed__26() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1; -x_2 = l_Lean_Parser_mkAntiquot___closed__24; +x_1 = l_Lean_Parser_checkNoImmediateColon___closed__1; +x_2 = l_Lean_Parser_pushNone___closed__1; x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); @@ -25206,8 +25136,8 @@ return x_3; lean_object* l_Lean_Parser_mkAntiquot(lean_object* x_1, lean_object* x_2, uint8_t x_3) { _start: { -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t 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; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_4 = l_Lean_Parser_mkAntiquot___closed__3; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t 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; 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_4 = l_Lean_Parser_mkAntiquot___closed__5; x_5 = lean_string_append(x_4, x_1); x_6 = l_Char_HasRepr___closed__1; x_7 = lean_string_append(x_5, x_6); @@ -25217,9 +25147,9 @@ lean_inc(x_8); x_10 = l_Lean_Parser_nonReservedSymbolInfo(x_8, x_9); x_11 = lean_alloc_closure((void*)(l_Lean_Parser_nonReservedSymbolFn), 3, 1); lean_closure_set(x_11, 0, x_8); -x_12 = l_Lean_Parser_mkAntiquot___closed__5; +x_12 = l_Lean_Parser_mkAntiquot___closed__7; x_13 = l_Lean_Parser_andthenInfo(x_12, x_10); -x_14 = l_Lean_Parser_mkAntiquot___closed__6; +x_14 = l_Lean_Parser_mkAntiquot___closed__8; x_15 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_15, 0, x_14); lean_closure_set(x_15, 1, x_11); @@ -25230,124 +25160,129 @@ lean_closure_set(x_18, 0, x_7); x_19 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_19, 0, x_18); lean_closure_set(x_19, 1, x_15); -x_20 = l_Lean_Parser_dollarSymbol; -x_21 = lean_ctor_get(x_20, 0); -lean_inc(x_21); -x_22 = l_Lean_Parser_antiquotExpr; -x_23 = lean_ctor_get(x_22, 0); -lean_inc(x_23); -x_24 = l_Lean_Parser_mkAntiquot___closed__7; -x_25 = lean_ctor_get(x_24, 1); -lean_inc(x_25); +x_20 = l_Lean_Parser_mkAntiquot___closed__4; +x_21 = l_Lean_Parser_nodeInfo(x_20, x_17); +x_22 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); +lean_closure_set(x_22, 0, x_20); +lean_closure_set(x_22, 1, x_19); +x_23 = l_Lean_Parser_dollarSymbol; +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = l_Lean_Parser_antiquotExpr; +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +x_27 = l_Lean_Parser_mkAntiquot___closed__9; +x_28 = lean_ctor_get(x_27, 1); +lean_inc(x_28); if (lean_obj_tag(x_2) == 0) { -lean_object* x_74; -x_74 = lean_box(0); -x_26 = x_74; -goto block_73; +lean_object* x_77; +x_77 = lean_box(0); +x_29 = x_77; +goto block_76; } else { -lean_object* x_75; -x_75 = lean_ctor_get(x_2, 0); -lean_inc(x_75); +lean_object* x_78; +x_78 = lean_ctor_get(x_2, 0); +lean_inc(x_78); lean_dec(x_2); -x_26 = x_75; -goto block_73; +x_29 = x_78; +goto block_76; } -block_73: +block_76: { -lean_object* x_27; lean_object* x_28; -x_27 = l_Lean_Parser_mkAntiquot___closed__2; -x_28 = l_Lean_Name_append___main(x_26, x_27); -lean_dec(x_26); +lean_object* x_30; lean_object* x_31; +x_30 = l_Lean_Parser_mkAntiquot___closed__2; +x_31 = l_Lean_Name_append___main(x_29, x_30); +lean_dec(x_29); if (x_3 == 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; 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_29 = l_Lean_Parser_mkAntiquot___closed__19; -x_30 = l_Lean_Parser_andthenInfo(x_17, x_29); -x_31 = l_Lean_Parser_mkAntiquot___closed__20; -x_32 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_32, 0, x_19); -lean_closure_set(x_32, 1, x_31); -x_33 = l_Lean_Parser_andthenInfo(x_23, x_30); -x_34 = l_Lean_Parser_antiquotExpr___closed__2; +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; +x_32 = l_Lean_Parser_mkAntiquot___closed__21; +x_33 = l_Lean_Parser_andthenInfo(x_21, x_32); +x_34 = l_Lean_Parser_mkAntiquot___closed__22; x_35 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_35, 0, x_34); -lean_closure_set(x_35, 1, x_32); -x_36 = l_Lean_Parser_andthenInfo(x_16, x_33); -x_37 = l_Lean_Parser_mkAntiquot___closed__22; +lean_closure_set(x_35, 0, x_22); +lean_closure_set(x_35, 1, x_34); +x_36 = l_Lean_Parser_andthenInfo(x_26, x_33); +x_37 = l_Lean_Parser_antiquotExpr___closed__2; x_38 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_38, 0, x_37); lean_closure_set(x_38, 1, x_35); -x_39 = l_Lean_Parser_mkAntiquot___closed__11; -x_40 = l_Lean_Parser_andthenInfo(x_39, x_36); -x_41 = l_Lean_Parser_mkAntiquot___closed__12; -x_42 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_42, 0, x_41); -lean_closure_set(x_42, 1, x_38); -x_43 = l_Lean_Parser_andthenInfo(x_21, x_40); -x_44 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_44, 0, x_25); -lean_closure_set(x_44, 1, x_42); -x_45 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn), 3, 1); +x_39 = l_Lean_Parser_andthenInfo(x_16, x_36); +x_40 = l_Lean_Parser_mkAntiquot___closed__24; +x_41 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_41, 0, x_40); +lean_closure_set(x_41, 1, x_38); +x_42 = l_Lean_Parser_mkAntiquot___closed__13; +x_43 = l_Lean_Parser_andthenInfo(x_42, x_39); +x_44 = l_Lean_Parser_mkAntiquot___closed__14; +x_45 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_45, 0, x_44); -lean_inc(x_28); -x_46 = l_Lean_Parser_nodeInfo(x_28, x_43); -x_47 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__1), 4, 2); +lean_closure_set(x_45, 1, x_41); +x_46 = l_Lean_Parser_andthenInfo(x_24, x_43); +x_47 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_47, 0, x_28); lean_closure_set(x_47, 1, x_45); -x_48 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_48, 0, x_46); -lean_ctor_set(x_48, 1, x_47); -return x_48; +x_48 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn), 3, 1); +lean_closure_set(x_48, 0, x_47); +lean_inc(x_31); +x_49 = l_Lean_Parser_nodeInfo(x_31, x_46); +x_50 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__1), 4, 2); +lean_closure_set(x_50, 0, x_31); +lean_closure_set(x_50, 1, x_48); +x_51 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_51, 0, x_49); +lean_ctor_set(x_51, 1, x_50); +return x_51; } else { -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; -x_49 = l_Lean_Parser_mkAntiquot___closed__25; -x_50 = l_Lean_Parser_orelseInfo(x_17, x_49); -x_51 = l_Lean_Parser_mkAntiquot___closed__26; -x_52 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); -lean_closure_set(x_52, 0, x_19); -lean_closure_set(x_52, 1, x_51); -x_53 = l_Lean_Parser_mkAntiquot___closed__19; -x_54 = l_Lean_Parser_andthenInfo(x_50, x_53); -x_55 = l_Lean_Parser_mkAntiquot___closed__20; -x_56 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_56, 0, x_52); -lean_closure_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_andthenInfo(x_23, x_54); -x_58 = l_Lean_Parser_antiquotExpr___closed__2; +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_52 = l_Lean_Parser_mkAntiquot___closed__25; +x_53 = l_Lean_Parser_orelseInfo(x_21, x_52); +x_54 = l_Lean_Parser_mkAntiquot___closed__26; +x_55 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_55, 0, x_22); +lean_closure_set(x_55, 1, x_54); +x_56 = l_Lean_Parser_mkAntiquot___closed__21; +x_57 = l_Lean_Parser_andthenInfo(x_53, x_56); +x_58 = l_Lean_Parser_mkAntiquot___closed__22; x_59 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_59, 0, x_58); -lean_closure_set(x_59, 1, x_56); -x_60 = l_Lean_Parser_andthenInfo(x_16, x_57); -x_61 = l_Lean_Parser_mkAntiquot___closed__22; +lean_closure_set(x_59, 0, x_55); +lean_closure_set(x_59, 1, x_58); +x_60 = l_Lean_Parser_andthenInfo(x_26, x_57); +x_61 = l_Lean_Parser_antiquotExpr___closed__2; x_62 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_62, 0, x_61); lean_closure_set(x_62, 1, x_59); -x_63 = l_Lean_Parser_mkAntiquot___closed__11; -x_64 = l_Lean_Parser_andthenInfo(x_63, x_60); -x_65 = l_Lean_Parser_mkAntiquot___closed__12; -x_66 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_66, 0, x_65); -lean_closure_set(x_66, 1, x_62); -x_67 = l_Lean_Parser_andthenInfo(x_21, x_64); -x_68 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); -lean_closure_set(x_68, 0, x_25); -lean_closure_set(x_68, 1, x_66); -x_69 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn), 3, 1); +x_63 = l_Lean_Parser_andthenInfo(x_16, x_60); +x_64 = l_Lean_Parser_mkAntiquot___closed__24; +x_65 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_65, 0, x_64); +lean_closure_set(x_65, 1, x_62); +x_66 = l_Lean_Parser_mkAntiquot___closed__13; +x_67 = l_Lean_Parser_andthenInfo(x_66, x_63); +x_68 = l_Lean_Parser_mkAntiquot___closed__14; +x_69 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_69, 0, x_68); -lean_inc(x_28); -x_70 = l_Lean_Parser_nodeInfo(x_28, x_67); -x_71 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__2), 4, 2); +lean_closure_set(x_69, 1, x_65); +x_70 = l_Lean_Parser_andthenInfo(x_24, x_67); +x_71 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_71, 0, x_28); lean_closure_set(x_71, 1, x_69); -x_72 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_72, 0, x_70); -lean_ctor_set(x_72, 1, x_71); -return x_72; +x_72 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn), 3, 1); +lean_closure_set(x_72, 0, x_71); +lean_inc(x_31); +x_73 = l_Lean_Parser_nodeInfo(x_31, x_70); +x_74 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot___elambda__2), 4, 2); +lean_closure_set(x_74, 0, x_31); +lean_closure_set(x_74, 1, x_72); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +return x_75; } } } @@ -26555,7 +26490,7 @@ lean_dec(x_1); return x_5; } } -lean_object* l___private_Lean_Parser_Parser_11__mkResult(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Lean_Parser_Parser_10__mkResult(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; uint8_t x_7; @@ -26611,7 +26546,7 @@ lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_dec(x_1); x_15 = lean_box(0); x_16 = l_Lean_Parser_longestMatchFn(x_15, x_13, x_4, x_10); -x_17 = l___private_Lean_Parser_Parser_11__mkResult(x_16, x_7); +x_17 = l___private_Lean_Parser_Parser_10__mkResult(x_16, x_7); return x_17; } else @@ -26732,11 +26667,11 @@ x_9 = l_Lean_Parser_longestMatchFn(x_6, x_8, x_4, x_5); return x_9; } } -lean_object* l___private_Lean_Parser_Parser_12__mkTrailingResult(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Lean_Parser_Parser_11__mkTrailingResult(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; -x_3 = l___private_Lean_Parser_Parser_11__mkResult(x_1, x_2); +x_3 = l___private_Lean_Parser_Parser_10__mkResult(x_1, x_2); x_4 = lean_ctor_get(x_3, 0); lean_inc(x_4); x_5 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_4); @@ -26782,7 +26717,7 @@ if (lean_obj_tag(x_15) == 0) { lean_object* x_16; lean_dec(x_13); -x_16 = l___private_Lean_Parser_Parser_12__mkTrailingResult(x_14, x_12); +x_16 = l___private_Lean_Parser_Parser_11__mkTrailingResult(x_14, x_12); x_3 = x_16; goto _start; } @@ -26837,7 +26772,7 @@ if (lean_obj_tag(x_28) == 0) { lean_object* x_29; lean_dec(x_26); -x_29 = l___private_Lean_Parser_Parser_12__mkTrailingResult(x_27, x_25); +x_29 = l___private_Lean_Parser_Parser_11__mkTrailingResult(x_27, x_25); x_3 = x_29; goto _start; } @@ -27040,7 +26975,7 @@ x_3 = lean_io_mk_ref(x_2, x_1); return x_3; } } -lean_object* _init_l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__1() { +lean_object* _init_l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__1() { _start: { lean_object* x_1; @@ -27048,7 +26983,7 @@ x_1 = lean_mk_string("parser category '"); return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__2() { +lean_object* _init_l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__2() { _start: { lean_object* x_1; @@ -27056,31 +26991,31 @@ x_1 = lean_mk_string("' has already been defined"); return x_1; } } -lean_object* l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg(lean_object* x_1) { +lean_object* l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; x_2 = l_Lean_Name_toString___closed__1; x_3 = l_Lean_Name_toStringWithSep___main(x_2, x_1); -x_4 = l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__1; +x_4 = l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__1; x_5 = lean_string_append(x_4, x_3); lean_dec(x_3); -x_6 = l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__2; +x_6 = l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__2; x_7 = lean_string_append(x_5, x_6); x_8 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_8, 0, x_7); return x_8; } } -lean_object* l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined(lean_object* x_1) { +lean_object* l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg), 1, 0); +x_2 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg), 1, 0); return x_2; } } -uint8_t l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__2(lean_object* x_1, size_t x_2, lean_object* x_3) { +uint8_t l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__2(lean_object* x_1, size_t x_2, lean_object* x_3) { _start: { if (lean_obj_tag(x_1) == 0) @@ -27140,7 +27075,7 @@ return x_19; } } } -uint8_t l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1(lean_object* x_1, lean_object* x_2) { +uint8_t l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; size_t x_4; uint8_t x_5; @@ -27148,11 +27083,11 @@ x_3 = lean_ctor_get(x_1, 0); lean_inc(x_3); lean_dec(x_1); x_4 = l_Lean_Name_hash(x_2); -x_5 = l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__2(x_3, x_4, x_2); +x_5 = l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__2(x_3, x_4, x_2); return x_5; } } -lean_object* l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__5(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; uint8_t x_8; @@ -27244,7 +27179,7 @@ return x_29; } } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__6(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__6(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { lean_object* x_7; uint8_t x_8; @@ -27267,7 +27202,7 @@ x_13 = x_1 - x_12; x_14 = 5; x_15 = x_14 * x_13; x_16 = x_11 >> x_15; -x_17 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_6, x_16, x_1, x_9, x_10); +x_17 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_6, x_16, x_1, x_9, x_10); x_18 = lean_unsigned_to_nat(1u); x_19 = lean_nat_add(x_5, x_18); lean_dec(x_5); @@ -27277,7 +27212,7 @@ goto _start; } } } -lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4, lean_object* x_5) { _start: { if (lean_obj_tag(x_1) == 0) @@ -27390,7 +27325,7 @@ lean_object* x_35; size_t x_36; size_t x_37; lean_object* x_38; lean_object* x_3 x_35 = lean_ctor_get(x_15, 0); x_36 = x_2 >> x_9; x_37 = x_3 + x_8; -x_38 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_35, x_36, x_37, x_4, x_5); +x_38 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_35, x_36, x_37, x_4, x_5); lean_ctor_set(x_15, 0, x_38); x_39 = lean_array_fset(x_17, x_12, x_15); lean_dec(x_12); @@ -27405,7 +27340,7 @@ lean_inc(x_40); lean_dec(x_15); x_41 = x_2 >> x_9; x_42 = x_3 + x_8; -x_43 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_40, x_41, x_42, x_4, x_5); +x_43 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_40, x_41, x_42, x_4, x_5); x_44 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_44, 0, x_43); x_45 = lean_array_fset(x_17, x_12, x_44); @@ -27521,7 +27456,7 @@ if (lean_is_exclusive(x_57)) { } x_73 = x_2 >> x_50; x_74 = x_3 + x_49; -x_75 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_71, x_73, x_74, x_4, x_5); +x_75 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_71, x_73, x_74, x_4, x_5); if (lean_is_scalar(x_72)) { x_76 = lean_alloc_ctor(1, 1, 0); } else { @@ -27554,7 +27489,7 @@ else { lean_object* x_82; lean_object* x_83; size_t x_84; uint8_t x_85; x_82 = lean_unsigned_to_nat(0u); -x_83 = l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__5(x_1, x_82, x_4, x_5); +x_83 = l_Std_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__5(x_1, x_82, x_4, x_5); x_84 = 7; x_85 = x_84 <= x_3; if (x_85 == 0) @@ -27573,7 +27508,7 @@ x_90 = lean_ctor_get(x_83, 1); lean_inc(x_90); lean_dec(x_83); x_91 = l_Std_PersistentHashMap_insertAux___main___rarg___closed__3; -x_92 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__6(x_3, x_89, x_90, x_89, x_82, x_91); +x_92 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__6(x_3, x_89, x_90, x_89, x_82, x_91); lean_dec(x_90); lean_dec(x_89); return x_92; @@ -27590,7 +27525,7 @@ return x_83; } } } -lean_object* l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; @@ -27602,7 +27537,7 @@ x_5 = lean_ctor_get(x_1, 0); x_6 = lean_ctor_get(x_1, 1); x_7 = l_Lean_Name_hash(x_2); x_8 = 1; -x_9 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_5, x_7, x_8, x_2, x_3); +x_9 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_5, x_7, x_8, x_2, x_3); x_10 = lean_unsigned_to_nat(1u); x_11 = lean_nat_add(x_6, x_10); lean_dec(x_6); @@ -27620,7 +27555,7 @@ lean_inc(x_12); lean_dec(x_1); x_14 = l_Lean_Name_hash(x_2); x_15 = 1; -x_16 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_12, x_14, x_15, x_2, x_3); +x_16 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_12, x_14, x_15, x_2, x_3); x_17 = lean_unsigned_to_nat(1u); x_18 = lean_nat_add(x_13, x_17); lean_dec(x_13); @@ -27631,16 +27566,16 @@ return x_19; } } } -lean_object* l___private_Lean_Parser_Parser_14__addParserCategoryCore(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Lean_Parser_Parser_13__addParserCategoryCore(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; lean_inc(x_1); -x_4 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1(x_1, x_2); +x_4 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1(x_1, x_2); if (x_4 == 0) { lean_object* x_5; lean_object* x_6; -x_5 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_3); +x_5 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_3); x_6 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_6, 0, x_5); return x_6; @@ -27650,47 +27585,47 @@ else lean_object* x_7; lean_dec(x_3); lean_dec(x_1); -x_7 = l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg(x_2); +x_7 = l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg(x_2); return x_7; } } } -lean_object* l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { size_t x_4; uint8_t x_5; lean_object* x_6; x_4 = lean_unbox_usize(x_2); lean_dec(x_2); -x_5 = l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__2(x_1, x_4, x_3); +x_5 = l_Std_PersistentHashMap_containsAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__2(x_1, x_4, x_3); lean_dec(x_3); x_6 = lean_box(x_5); return x_6; } } -lean_object* l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { uint8_t x_3; lean_object* x_4; -x_3 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1(x_1, x_2); +x_3 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1(x_1, x_2); lean_dec(x_2); x_4 = lean_box(x_3); return x_4; } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__6___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: { size_t x_7; lean_object* x_8; x_7 = lean_unbox_usize(x_1); lean_dec(x_1); -x_8 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__6(x_7, x_2, x_3, x_4, x_5, x_6); +x_8 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__6(x_7, x_2, x_3, x_4, x_5, x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); return x_8; } } -lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { size_t x_6; size_t x_7; lean_object* x_8; @@ -27698,11 +27633,11 @@ x_6 = lean_unbox_usize(x_2); lean_dec(x_2); x_7 = lean_unbox_usize(x_3); lean_dec(x_3); -x_8 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__4(x_1, x_6, x_7, x_4, x_5); +x_8 = l_Std_PersistentHashMap_insertAux___main___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__4(x_1, x_6, x_7, x_4, x_5); return x_8; } } -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(lean_object* x_1, lean_object* x_2) { _start: { if (lean_obj_tag(x_1) == 0) @@ -27729,7 +27664,7 @@ return x_7; } } } -lean_object* l___private_Lean_Parser_Parser_15__addBuiltinParserCategory(lean_object* x_1, uint8_t x_2, lean_object* x_3) { +lean_object* l___private_Lean_Parser_Parser_14__addBuiltinParserCategory(lean_object* x_1, uint8_t x_2, lean_object* x_3) { _start: { lean_object* x_4; lean_object* x_5; @@ -27747,8 +27682,8 @@ x_8 = l_Lean_Parser_PrattParsingTables_inhabited___closed__1; x_9 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_9, 0, x_8); lean_ctor_set_uint8(x_9, sizeof(void*)*1, x_2); -x_10 = l___private_Lean_Parser_Parser_14__addParserCategoryCore(x_6, x_1, x_9); -x_11 = l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(x_10, x_7); +x_10 = l___private_Lean_Parser_Parser_13__addParserCategoryCore(x_6, x_1, x_9); +x_11 = l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(x_10, x_7); lean_dec(x_10); if (lean_obj_tag(x_11) == 0) { @@ -27809,22 +27744,22 @@ return x_22; } } } -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(x_1, x_2); +x_3 = l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l___private_Lean_Parser_Parser_15__addBuiltinParserCategory___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Lean_Parser_Parser_14__addBuiltinParserCategory___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; lean_object* x_5; x_4 = lean_unbox(x_2); lean_dec(x_2); -x_5 = l___private_Lean_Parser_Parser_15__addBuiltinParserCategory(x_1, x_4, x_3); +x_5 = l___private_Lean_Parser_Parser_14__addBuiltinParserCategory(x_1, x_4, x_3); return x_5; } } @@ -27852,7 +27787,7 @@ x_1 = l_Lean_Parser_ParserExtensionState_inhabited___closed__1; return x_1; } } -lean_object* l___private_Lean_Parser_Parser_16__ParserExtension_mkInitial(lean_object* x_1) { +lean_object* l___private_Lean_Parser_Parser_15__ParserExtension_mkInitial(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -27988,105 +27923,7 @@ return x_32; } } } -lean_object* _init_l___private_Lean_Parser_Parser_17__mergePrecendences___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("precedence mismatch for '"); -return x_1; -} -} -lean_object* _init_l___private_Lean_Parser_Parser_17__mergePrecendences___closed__2() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("', previous: "); -return x_1; -} -} -lean_object* _init_l___private_Lean_Parser_Parser_17__mergePrecendences___closed__3() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string(", new: "); -return x_1; -} -} -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -if (lean_obj_tag(x_3) == 0) -{ -lean_object* x_5; -lean_dec(x_1); -x_5 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_5, 0, x_4); -return x_5; -} -else -{ -if (lean_obj_tag(x_4) == 0) -{ -lean_object* x_6; -lean_dec(x_1); -x_6 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_6, 0, x_3); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; uint8_t x_9; -x_7 = lean_ctor_get(x_3, 0); -lean_inc(x_7); -x_8 = lean_ctor_get(x_4, 0); -lean_inc(x_8); -lean_dec(x_4); -x_9 = lean_nat_dec_eq(x_7, 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; 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_dec(x_3); -x_10 = l___private_Lean_Parser_Parser_17__mergePrecendences___closed__1; -x_11 = lean_string_append(x_1, x_10); -x_12 = lean_string_append(x_11, x_2); -x_13 = l___private_Lean_Parser_Parser_17__mergePrecendences___closed__2; -x_14 = lean_string_append(x_12, x_13); -x_15 = l_Nat_repr(x_7); -x_16 = lean_string_append(x_14, x_15); -lean_dec(x_15); -x_17 = l___private_Lean_Parser_Parser_17__mergePrecendences___closed__3; -x_18 = lean_string_append(x_16, x_17); -x_19 = l_Nat_repr(x_8); -x_20 = lean_string_append(x_18, x_19); -lean_dec(x_19); -x_21 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_21, 0, x_20); -return x_21; -} -else -{ -lean_object* x_22; -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_1); -x_22 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_22, 0, x_3); -return x_22; -} -} -} -} -} -lean_object* l___private_Lean_Parser_Parser_17__mergePrecendences___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_Lean_Parser_Parser_17__mergePrecendences(x_1, x_2, x_3, x_4); -lean_dec(x_2); -return x_5; -} -} -lean_object* _init_l___private_Lean_Parser_Parser_18__addTokenConfig___closed__1() { +lean_object* _init_l___private_Lean_Parser_Parser_16__addTokenConfig___closed__1() { _start: { lean_object* x_1; @@ -28094,17 +27931,17 @@ x_1 = lean_mk_string("invalid empty symbol"); return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_18__addTokenConfig___closed__2() { +lean_object* _init_l___private_Lean_Parser_Parser_16__addTokenConfig___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Parser_Parser_18__addTokenConfig___closed__1; +x_1 = l___private_Lean_Parser_Parser_16__addTokenConfig___closed__1; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l___private_Lean_Parser_Parser_18__addTokenConfig(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Lean_Parser_Parser_16__addTokenConfig(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; uint8_t x_4; @@ -28141,7 +27978,7 @@ else lean_object* x_10; lean_dec(x_2); lean_dec(x_1); -x_10 = l___private_Lean_Parser_Parser_18__addTokenConfig___closed__2; +x_10 = l___private_Lean_Parser_Parser_16__addTokenConfig___closed__2; return x_10; } } @@ -28554,7 +28391,7 @@ x_13 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_13, 0, x_4); lean_ctor_set(x_13, 1, x_12); lean_ctor_set(x_10, 1, x_13); -x_14 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_7); +x_14 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_7); x_15 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_15, 0, x_14); return x_15; @@ -28580,7 +28417,7 @@ lean_ctor_set(x_21, 1, x_20); lean_ctor_set(x_21, 2, x_18); lean_ctor_set(x_21, 3, x_19); lean_ctor_set(x_7, 0, x_21); -x_22 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_7); +x_22 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_7); x_23 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_23, 0, x_22); return x_23; @@ -28626,7 +28463,7 @@ lean_ctor_set(x_32, 3, x_29); x_33 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_33, 0, x_32); lean_ctor_set_uint8(x_33, sizeof(void*)*1, x_25); -x_34 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_33); +x_34 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_33); x_35 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_35, 0, x_34); return x_35; @@ -28644,7 +28481,7 @@ x_40 = lean_ctor_get(x_7, 0); x_41 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_38); x_42 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__7(x_4, x_40, x_41); lean_ctor_set(x_7, 0, x_42); -x_43 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_7); +x_43 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_7); x_44 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_44, 0, x_43); return x_44; @@ -28661,7 +28498,7 @@ x_48 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__7(x_4, x_45 x_49 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_49, 0, x_48); lean_ctor_set_uint8(x_49, sizeof(void*)*1, x_46); -x_50 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_49); +x_50 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_49); x_51 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_51, 0, x_50); return x_51; @@ -28710,7 +28547,7 @@ lean_dec(x_3); return x_5; } } -lean_object* l_List_foldl___main___at___private_Lean_Parser_Parser_19__addTrailingParserAux___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_List_foldl___main___at___private_Lean_Parser_Parser_17__addTrailingParserAux___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { if (lean_obj_tag(x_3) == 0) @@ -28763,7 +28600,7 @@ goto _start; } } } -lean_object* l___private_Lean_Parser_Parser_19__addTrailingParserAux(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Lean_Parser_Parser_17__addTrailingParserAux(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; lean_object* x_14; lean_object* x_19; lean_object* x_20; @@ -28843,7 +28680,7 @@ block_18: lean_object* x_15; lean_object* x_16; lean_object* x_17; x_15 = l_List_map___main___at_Lean_Parser_addLeadingParser___spec__4(x_14); x_16 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_15); -x_17 = l_List_foldl___main___at___private_Lean_Parser_Parser_19__addTrailingParserAux___spec__1(x_2, x_1, x_16); +x_17 = l_List_foldl___main___at___private_Lean_Parser_Parser_17__addTrailingParserAux___spec__1(x_2, x_1, x_16); return x_17; } } @@ -28873,9 +28710,9 @@ if (x_7 == 0) { lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; x_8 = lean_ctor_get(x_6, 0); -x_9 = l___private_Lean_Parser_Parser_19__addTrailingParserAux(x_8, x_3); +x_9 = l___private_Lean_Parser_Parser_17__addTrailingParserAux(x_8, x_3); lean_ctor_set(x_6, 0, x_9); -x_10 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_6); +x_10 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_6); x_11 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_11, 0, x_10); return x_11; @@ -28887,11 +28724,11 @@ x_12 = lean_ctor_get(x_6, 0); x_13 = lean_ctor_get_uint8(x_6, sizeof(void*)*1); lean_inc(x_12); lean_dec(x_6); -x_14 = l___private_Lean_Parser_Parser_19__addTrailingParserAux(x_12, x_3); +x_14 = l___private_Lean_Parser_Parser_17__addTrailingParserAux(x_12, x_3); x_15 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_15, 0, x_14); lean_ctor_set_uint8(x_15, sizeof(void*)*1, x_13); -x_16 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_1, x_2, x_15); +x_16 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_1, x_2, x_15); x_17 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_17, 0, x_16); return x_17; @@ -28945,7 +28782,7 @@ lean_inc(x_4); x_5 = lean_ctor_get(x_2, 1); lean_inc(x_5); lean_dec(x_2); -x_6 = l___private_Lean_Parser_Parser_18__addTokenConfig(x_1, x_4); +x_6 = l___private_Lean_Parser_Parser_16__addTokenConfig(x_1, x_4); if (lean_obj_tag(x_6) == 0) { uint8_t x_7; @@ -28992,7 +28829,7 @@ x_6 = l_List_foldlM___main___at_Lean_Parser_addParserTokens___spec__1(x_1, x_5); return x_6; } } -lean_object* _init_l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1() { +lean_object* _init_l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1() { _start: { lean_object* x_1; @@ -29000,7 +28837,7 @@ x_1 = lean_mk_string("invalid builtin parser '"); return x_1; } } -lean_object* l___private_Lean_Parser_Parser_20__updateBuiltinTokens(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Lean_Parser_Parser_18__updateBuiltinTokens(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; @@ -29025,7 +28862,7 @@ lean_inc(x_11); lean_dec(x_10); x_12 = l_Lean_Name_toString___closed__1; x_13 = l_Lean_Name_toStringWithSep___main(x_12, x_2); -x_14 = l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1; +x_14 = l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1; x_15 = lean_string_append(x_14, x_13); lean_dec(x_13); x_16 = l_Lean_registerTagAttribute___lambda__4___closed__4; @@ -29067,7 +28904,7 @@ lean_inc(x_25); lean_dec(x_24); x_26 = l_Lean_Name_toString___closed__1; x_27 = l_Lean_Name_toStringWithSep___main(x_26, x_2); -x_28 = l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1; +x_28 = l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1; x_29 = lean_string_append(x_28, x_27); lean_dec(x_27); x_30 = l_Lean_registerTagAttribute___lambda__4___closed__4; @@ -29135,7 +28972,7 @@ lean_inc(x_9); lean_dec(x_7); lean_inc(x_4); x_10 = l_Lean_Parser_addParser(x_8, x_1, x_2, x_3, x_4); -x_11 = l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(x_10, x_9); +x_11 = l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(x_10, x_9); lean_dec(x_10); if (lean_obj_tag(x_11) == 0) { @@ -29182,7 +29019,7 @@ lean_object* x_26; lean_object* x_27; x_26 = lean_ctor_get(x_25, 1); lean_inc(x_26); lean_dec(x_25); -x_27 = l___private_Lean_Parser_Parser_20__updateBuiltinTokens(x_14, x_2, x_26); +x_27 = l___private_Lean_Parser_Parser_18__updateBuiltinTokens(x_14, x_2, x_26); return x_27; } else @@ -29368,7 +29205,7 @@ x_6 = l_Lean_Parser_addBuiltinParser(x_1, x_2, x_5, x_3, x_4); return x_6; } } -lean_object* l___private_Lean_Parser_Parser_21__ParserExtension_addEntry(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Lean_Parser_Parser_19__ParserExtension_addEntry(lean_object* x_1, lean_object* x_2) { _start: { switch (lean_obj_tag(x_2)) { @@ -29387,7 +29224,7 @@ x_6 = lean_ctor_get(x_1, 1); x_7 = lean_ctor_get(x_1, 2); x_8 = lean_ctor_get(x_1, 3); lean_inc(x_3); -x_9 = l___private_Lean_Parser_Parser_18__addTokenConfig(x_5, x_3); +x_9 = l___private_Lean_Parser_Parser_16__addTokenConfig(x_5, x_3); if (lean_obj_tag(x_9) == 0) { lean_object* x_10; lean_object* x_11; @@ -29430,7 +29267,7 @@ lean_inc(x_16); lean_inc(x_15); lean_dec(x_1); lean_inc(x_3); -x_19 = l___private_Lean_Parser_Parser_18__addTokenConfig(x_15, x_3); +x_19 = l___private_Lean_Parser_Parser_16__addTokenConfig(x_15, x_3); if (lean_obj_tag(x_19) == 0) { lean_object* x_20; lean_object* x_21; @@ -29531,7 +29368,7 @@ lean_inc(x_47); x_48 = lean_ctor_get(x_1, 3); lean_inc(x_48); lean_inc(x_47); -x_49 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1(x_47, x_43); +x_49 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1(x_47, x_43); if (x_49 == 0) { uint8_t x_50; @@ -29552,7 +29389,7 @@ x_56 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_56, 0, x_55); lean_ctor_set_uint8(x_56, sizeof(void*)*1, x_44); lean_inc(x_43); -x_57 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_47, x_43, x_56); +x_57 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_47, x_43, x_56); x_58 = lean_alloc_ctor(2, 1, 1); lean_ctor_set(x_58, 0, x_43); lean_ctor_set_uint8(x_58, sizeof(void*)*1, x_44); @@ -29572,7 +29409,7 @@ x_61 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_61, 0, x_60); lean_ctor_set_uint8(x_61, sizeof(void*)*1, x_44); lean_inc(x_43); -x_62 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__3(x_47, x_43, x_61); +x_62 = l_Std_PersistentHashMap_insert___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__3(x_47, x_43, x_61); x_63 = lean_alloc_ctor(2, 1, 1); lean_ctor_set(x_63, 0, x_43); lean_ctor_set_uint8(x_63, sizeof(void*)*1, x_44); @@ -31659,7 +31496,7 @@ lean_dec(x_2); return x_5; } } -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1(lean_object* x_1, lean_object* x_2) { _start: { if (lean_obj_tag(x_1) == 0) @@ -31686,7 +31523,7 @@ return x_7; } } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___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* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___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) { _start: { lean_object* x_7; uint8_t x_8; @@ -31725,8 +31562,8 @@ x_15 = lean_ctor_get(x_5, 0); x_16 = lean_ctor_get(x_5, 1); x_17 = lean_ctor_get(x_5, 2); x_18 = lean_ctor_get(x_5, 3); -x_19 = l___private_Lean_Parser_Parser_18__addTokenConfig(x_15, x_13); -x_20 = l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1(x_19, x_6); +x_19 = l___private_Lean_Parser_Parser_16__addTokenConfig(x_15, x_13); +x_20 = l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1(x_19, x_6); lean_dec(x_19); if (lean_obj_tag(x_20) == 0) { @@ -31782,8 +31619,8 @@ lean_inc(x_30); lean_inc(x_29); lean_inc(x_28); lean_dec(x_5); -x_32 = l___private_Lean_Parser_Parser_18__addTokenConfig(x_28, x_13); -x_33 = l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1(x_32, x_6); +x_32 = l___private_Lean_Parser_Parser_16__addTokenConfig(x_28, x_13); +x_33 = l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1(x_32, x_6); lean_dec(x_32); if (lean_obj_tag(x_33) == 0) { @@ -31894,8 +31731,8 @@ x_63 = l_Lean_Parser_PrattParsingTables_inhabited___closed__1; x_64 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_64, 0, x_63); lean_ctor_set_uint8(x_64, sizeof(void*)*1, x_57); -x_65 = l___private_Lean_Parser_Parser_14__addParserCategoryCore(x_61, x_56, x_64); -x_66 = l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(x_65, x_6); +x_65 = l___private_Lean_Parser_Parser_13__addParserCategoryCore(x_61, x_56, x_64); +x_66 = l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(x_65, x_6); lean_dec(x_65); if (lean_obj_tag(x_66) == 0) { @@ -31955,8 +31792,8 @@ x_78 = l_Lean_Parser_PrattParsingTables_inhabited___closed__1; x_79 = lean_alloc_ctor(0, 1, 1); lean_ctor_set(x_79, 0, x_78); lean_ctor_set_uint8(x_79, sizeof(void*)*1, x_57); -x_80 = l___private_Lean_Parser_Parser_14__addParserCategoryCore(x_76, x_56, x_79); -x_81 = l_IO_ofExcept___at___private_Lean_Parser_Parser_15__addBuiltinParserCategory___spec__1(x_80, x_6); +x_80 = l___private_Lean_Parser_Parser_13__addParserCategoryCore(x_76, x_56, x_79); +x_81 = l_IO_ofExcept___at___private_Lean_Parser_Parser_14__addBuiltinParserCategory___spec__1(x_80, x_6); lean_dec(x_80); if (lean_obj_tag(x_81) == 0) { @@ -32187,7 +32024,7 @@ goto _start; } } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__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) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__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; uint8_t x_8; @@ -32213,7 +32050,7 @@ x_12 = lean_nat_add(x_4, x_11); lean_dec(x_4); x_13 = lean_unsigned_to_nat(0u); lean_inc(x_1); -x_14 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__2(x_1, x_10, x_10, x_13, x_5, x_6); +x_14 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__2(x_1, x_10, x_10, x_13, x_5, x_6); lean_dec(x_10); if (lean_obj_tag(x_14) == 0) { @@ -32255,11 +32092,11 @@ return x_21; } } } -lean_object* l___private_Lean_Parser_Parser_22__ParserExtension_addImported(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Lean_Parser_Parser_20__ParserExtension_addImported(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l___private_Lean_Parser_Parser_16__ParserExtension_mkInitial(x_3); +x_4 = l___private_Lean_Parser_Parser_15__ParserExtension_mkInitial(x_3); if (lean_obj_tag(x_4) == 0) { lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; @@ -32269,7 +32106,7 @@ x_6 = lean_ctor_get(x_4, 1); lean_inc(x_6); lean_dec(x_4); x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__3(x_1, x_2, x_2, x_7, x_5, x_6); +x_8 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__3(x_1, x_2, x_2, x_7, x_5, x_6); return x_8; } else @@ -32297,40 +32134,40 @@ return x_12; } } } -lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_IO_ofExcept___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__1(x_1, x_2); +x_3 = l_IO_ofExcept___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__1(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___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* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___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) { _start: { lean_object* x_7; -x_7 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__2(x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__2(x_1, x_2, x_3, x_4, x_5, x_6); lean_dec(x_3); lean_dec(x_2); return x_7; } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { lean_object* x_7; -x_7 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_22__ParserExtension_addImported___spec__3(x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_20__ParserExtension_addImported___spec__3(x_1, x_2, x_3, x_4, x_5, x_6); lean_dec(x_3); lean_dec(x_2); return x_7; } } -lean_object* l___private_Lean_Parser_Parser_22__ParserExtension_addImported___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Lean_Parser_Parser_20__ParserExtension_addImported___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l___private_Lean_Parser_Parser_22__ParserExtension_addImported(x_1, x_2, x_3); +x_4 = l___private_Lean_Parser_Parser_20__ParserExtension_addImported(x_1, x_2, x_3); lean_dec(x_2); return x_4; } @@ -33141,7 +32978,7 @@ lean_object* _init_l_Lean_Parser_mkParserExtension___closed__3() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_16__ParserExtension_mkInitial), 1, 0); +x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_15__ParserExtension_mkInitial), 1, 0); return x_1; } } @@ -33149,7 +32986,7 @@ lean_object* _init_l_Lean_Parser_mkParserExtension___closed__4() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_22__ParserExtension_addImported___boxed), 3, 0); +x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_20__ParserExtension_addImported___boxed), 3, 0); return x_1; } } @@ -33157,7 +32994,7 @@ lean_object* _init_l_Lean_Parser_mkParserExtension___closed__5() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_21__ParserExtension_addEntry), 2, 0); +x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_19__ParserExtension_addEntry), 2, 0); return x_1; } } @@ -33383,7 +33220,7 @@ x_4 = l_Lean_PersistentEnvExtension_getState___rarg(x_3, x_1); x_5 = lean_ctor_get(x_4, 2); lean_inc(x_5); lean_dec(x_4); -x_6 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_14__addParserCategoryCore___spec__1(x_5, x_2); +x_6 = l_Std_PersistentHashMap_contains___at___private_Lean_Parser_Parser_13__addParserCategoryCore___spec__1(x_5, x_2); return x_6; } } @@ -33419,7 +33256,7 @@ else { lean_object* x_9; lean_dec(x_1); -x_9 = l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg(x_2); +x_9 = l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg(x_2); return x_9; } } @@ -33473,7 +33310,7 @@ x_4 = lean_box(x_3); return x_4; } } -lean_object* l___private_Lean_Parser_Parser_23__catNameToString(lean_object* x_1) { +lean_object* l___private_Lean_Parser_Parser_21__catNameToString(lean_object* x_1) { _start: { if (lean_obj_tag(x_1) == 1) @@ -33507,20 +33344,16 @@ return x_7; } } } -lean_object* l_Lean_Parser_mkCategoryAntiquotParser(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Parser_mkCategoryAntiquotParser(lean_object* x_1) { _start: { -lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_4 = l___private_Lean_Parser_Parser_23__catNameToString(x_1); -x_5 = lean_box(0); -x_6 = 1; -x_7 = l_Lean_Parser_mkAntiquot(x_4, x_5, x_6); -lean_dec(x_4); -x_8 = lean_ctor_get(x_7, 1); -lean_inc(x_8); -lean_dec(x_7); -x_9 = lean_apply_2(x_8, x_2, x_3); -return x_9; +lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; +x_2 = l___private_Lean_Parser_Parser_21__catNameToString(x_1); +x_3 = lean_box(0); +x_4 = 1; +x_5 = l_Lean_Parser_mkAntiquot(x_2, x_3, x_4); +lean_dec(x_2); +return x_5; } } lean_object* l_Lean_Parser_categoryParserFnImpl(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -33552,7 +33385,7 @@ return x_15; } else { -lean_object* x_16; lean_object* x_17; uint8_t x_18; uint8_t x_19; +lean_object* x_16; lean_object* x_17; uint8_t x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; x_16 = lean_ctor_get(x_8, 0); lean_inc(x_16); lean_dec(x_8); @@ -33560,58 +33393,59 @@ x_17 = lean_ctor_get(x_16, 0); lean_inc(x_17); x_18 = lean_ctor_get_uint8(x_16, sizeof(void*)*1); lean_dec(x_16); +lean_inc(x_1); +x_19 = l___private_Lean_Parser_Parser_21__catNameToString(x_1); +x_20 = lean_box(0); +x_21 = 1; +x_22 = l_Lean_Parser_mkAntiquot(x_19, x_20, x_21); +lean_dec(x_19); +x_23 = lean_ctor_get(x_22, 1); +lean_inc(x_23); +lean_dec(x_22); lean_inc(x_3); lean_inc(x_2); -x_19 = l_Lean_Parser_tryAnti(x_2, x_3); -if (x_19 == 0) +x_24 = l_Lean_Parser_tryAnti(x_2, x_3); +if (x_24 == 0) { -lean_object* x_20; lean_object* x_21; +lean_object* x_25; lean_object* x_26; +lean_dec(x_23); lean_inc(x_2); lean_inc(x_17); -x_20 = l_Lean_Parser_leadingParserAux(x_1, x_17, x_18, x_2, x_3); -x_21 = lean_ctor_get(x_20, 3); -lean_inc(x_21); -if (lean_obj_tag(x_21) == 0) +x_25 = l_Lean_Parser_leadingParserAux(x_1, x_17, x_18, x_2, x_3); +x_26 = lean_ctor_get(x_25, 3); +lean_inc(x_26); +if (lean_obj_tag(x_26) == 0) { -lean_object* x_22; -x_22 = l_Lean_Parser_trailingLoop___main(x_17, x_2, x_20); -return x_22; +lean_object* x_27; +x_27 = l_Lean_Parser_trailingLoop___main(x_17, x_2, x_25); +return x_27; } else { -lean_dec(x_21); +lean_dec(x_26); lean_dec(x_17); lean_dec(x_2); -return x_20; +return x_25; } } else { -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_23 = lean_ctor_get(x_3, 0); -lean_inc(x_23); -x_24 = lean_array_get_size(x_23); -lean_dec(x_23); -x_25 = lean_ctor_get(x_3, 1); -lean_inc(x_25); -lean_inc(x_1); -x_26 = l___private_Lean_Parser_Parser_23__catNameToString(x_1); -x_27 = lean_box(0); -x_28 = 1; -x_29 = l_Lean_Parser_mkAntiquot(x_26, x_27, x_28); -lean_dec(x_26); -x_30 = lean_ctor_get(x_29, 1); +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_28 = lean_ctor_get(x_3, 0); +lean_inc(x_28); +x_29 = lean_array_get_size(x_28); +lean_dec(x_28); +x_30 = lean_ctor_get(x_3, 1); lean_inc(x_30); -lean_dec(x_29); lean_inc(x_2); -x_31 = lean_apply_2(x_30, x_2, x_3); +x_31 = lean_apply_2(x_23, x_2, x_3); x_32 = lean_ctor_get(x_31, 3); lean_inc(x_32); if (lean_obj_tag(x_32) == 0) { lean_object* x_33; -lean_dec(x_25); -lean_dec(x_24); +lean_dec(x_30); +lean_dec(x_29); lean_dec(x_1); x_33 = l_Lean_Parser_trailingLoop___main(x_17, x_2, x_31); return x_33; @@ -33624,13 +33458,13 @@ lean_inc(x_34); lean_dec(x_32); x_35 = lean_ctor_get(x_31, 1); lean_inc(x_35); -x_36 = lean_nat_dec_eq(x_35, x_25); +x_36 = lean_nat_dec_eq(x_35, x_30); lean_dec(x_35); if (x_36 == 0) { lean_dec(x_34); -lean_dec(x_25); -lean_dec(x_24); +lean_dec(x_30); +lean_dec(x_29); lean_dec(x_17); lean_dec(x_2); lean_dec(x_1); @@ -33639,14 +33473,14 @@ return x_31; else { lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; -lean_inc(x_25); -x_37 = l_Lean_Parser_ParserState_restore(x_31, x_24, x_25); -lean_dec(x_24); +lean_inc(x_30); +x_37 = l_Lean_Parser_ParserState_restore(x_31, x_29, x_30); +lean_dec(x_29); lean_inc(x_2); lean_inc(x_17); x_38 = l_Lean_Parser_leadingParserAux(x_1, x_17, x_18, x_2, x_37); -x_39 = l_Lean_Parser_mergeOrElseErrors(x_38, x_34, x_25); -lean_dec(x_25); +x_39 = l_Lean_Parser_mergeOrElseErrors(x_38, x_34, x_30); +lean_dec(x_30); x_40 = lean_ctor_get(x_39, 3); lean_inc(x_40); if (lean_obj_tag(x_40) == 0) @@ -33696,7 +33530,7 @@ x_5 = lean_ctor_get(x_4, 0); lean_inc(x_5); lean_dec(x_4); lean_inc(x_2); -x_6 = l___private_Lean_Parser_Parser_18__addTokenConfig(x_5, x_2); +x_6 = l___private_Lean_Parser_Parser_16__addTokenConfig(x_5, x_2); if (lean_obj_tag(x_6) == 0) { uint8_t x_7; @@ -34495,7 +34329,7 @@ x_6 = l_Lean_Parser_declareBuiltinParser(x_1, x_5, x_2, x_3, x_4); return x_6; } } -lean_object* _init_l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1() { +lean_object* _init_l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__1() { _start: { lean_object* x_1; @@ -34503,7 +34337,7 @@ x_1 = lean_mk_string("' (`Parser` or `TrailingParser` expected"); return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2() { +lean_object* _init_l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__2() { _start: { lean_object* x_1; lean_object* x_2; @@ -34513,7 +34347,7 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { +lean_object* l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { _start: { uint8_t x_8; @@ -34553,7 +34387,7 @@ lean_object* x_28; lean_object* x_29; lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_28 = l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +x_28 = l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__2; x_29 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_29, 0, x_28); lean_ctor_set(x_29, 1, x_7); @@ -34736,7 +34570,7 @@ x_20 = l_Lean_Name_toStringWithSep___main(x_19, x_4); x_21 = l_Lean_Parser_mkParserOfConstantUnsafe___closed__1; x_22 = lean_string_append(x_21, x_20); lean_dec(x_20); -x_23 = l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1; +x_23 = l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__1; x_24 = lean_string_append(x_22, x_23); x_25 = lean_alloc_ctor(18, 1, 0); lean_ctor_set(x_25, 0, x_24); @@ -34769,13 +34603,13 @@ return x_63; } } } -lean_object* l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +lean_object* l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { uint8_t x_8; lean_object* x_9; x_8 = lean_unbox(x_6); lean_dec(x_6); -x_9 = l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); +x_9 = l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); lean_dec(x_5); return x_9; } @@ -34794,7 +34628,7 @@ _start: lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; lean_object* x_9; lean_inc(x_2); lean_inc(x_1); -x_5 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___boxed), 7, 2); +x_5 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___boxed), 7, 2); lean_closure_set(x_5, 0, x_1); lean_closure_set(x_5, 1, x_2); x_6 = l_Lean_Parser_registerBuiltinParserAttribute___closed__1; @@ -34804,7 +34638,7 @@ lean_ctor_set(x_8, 0, x_1); lean_ctor_set(x_8, 1, x_6); lean_ctor_set(x_8, 2, x_5); lean_ctor_set_uint8(x_8, sizeof(void*)*3, x_7); -x_9 = l___private_Lean_Parser_Parser_15__addBuiltinParserCategory(x_2, x_3, x_4); +x_9 = l___private_Lean_Parser_Parser_14__addBuiltinParserCategory(x_2, x_3, x_4); if (lean_obj_tag(x_9) == 0) { lean_object* x_10; lean_object* x_11; @@ -34849,7 +34683,7 @@ x_6 = l_Lean_Parser_registerBuiltinParserAttribute(x_1, x_2, x_5, x_4); return x_6; } } -lean_object* _init_l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1() { +lean_object* _init_l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1___closed__1() { _start: { lean_object* x_1; @@ -34857,7 +34691,7 @@ x_1 = lean_mk_string("invalid parser '"); return x_1; } } -lean_object* l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { if (lean_obj_tag(x_3) == 0) @@ -34887,7 +34721,7 @@ lean_inc(x_9); lean_dec(x_8); x_10 = l_Lean_Name_toString___closed__1; x_11 = l_Lean_Name_toStringWithSep___main(x_10, x_1); -x_12 = l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1; +x_12 = l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1___closed__1; x_13 = lean_string_append(x_12, x_11); lean_dec(x_11); x_14 = l_Lean_registerTagAttribute___lambda__4___closed__4; @@ -34914,7 +34748,7 @@ goto _start; } } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; uint8_t x_6; @@ -34951,7 +34785,7 @@ lean_object* x_13; lean_object* x_14; x_13 = lean_ctor_get(x_7, 0); lean_inc(x_13); lean_dec(x_7); -x_14 = l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(x_13, x_4); +x_14 = l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3(x_13, x_4); lean_dec(x_13); x_3 = x_9; x_4 = x_14; @@ -34966,7 +34800,7 @@ goto _start; } } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; uint8_t x_6; @@ -34992,7 +34826,7 @@ goto _start; } } } -lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(lean_object* x_1, lean_object* x_2) { +lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3(lean_object* x_1, lean_object* x_2) { _start: { if (lean_obj_tag(x_1) == 0) @@ -35000,7 +34834,7 @@ if (lean_obj_tag(x_1) == 0) lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = lean_ctor_get(x_1, 0); x_4 = lean_unsigned_to_nat(0u); -x_5 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(x_3, x_3, x_4, x_2); +x_5 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__4(x_3, x_3, x_4, x_2); return x_5; } else @@ -35008,21 +34842,21 @@ else lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = lean_ctor_get(x_1, 0); x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(x_6, x_6, x_7, x_2); +x_8 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__5(x_6, x_6, x_7, x_2); return x_8; } } } -lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(lean_object* x_1, lean_object* x_2) { +lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; lean_object* x_4; x_3 = lean_ctor_get(x_1, 0); -x_4 = l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(x_3, x_2); +x_4 = l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3(x_3, x_2); return x_4; } } -lean_object* l___private_Lean_Parser_Parser_25__ParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { +lean_object* l___private_Lean_Parser_Parser_23__ParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { _start: { uint8_t x_8; @@ -35075,7 +34909,7 @@ lean_inc(x_20); x_21 = lean_box(0); x_22 = lean_apply_1(x_20, x_21); lean_inc(x_4); -x_23 = l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1(x_4, x_3, x_22, x_7); +x_23 = l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1(x_4, x_3, x_22, x_7); if (lean_obj_tag(x_23) == 0) { uint8_t x_24; @@ -35089,7 +34923,7 @@ lean_inc(x_26); lean_dec(x_19); x_27 = l_Std_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef___spec__1; x_28 = lean_apply_1(x_26, x_27); -x_29 = l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(x_28, x_25); +x_29 = l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2(x_28, x_25); lean_dec(x_28); x_30 = lean_unbox(x_17); lean_inc(x_18); @@ -35141,7 +34975,7 @@ lean_inc(x_39); lean_dec(x_19); x_40 = l_Std_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef___spec__1; x_41 = lean_apply_1(x_39, x_40); -x_42 = l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(x_41, x_37); +x_42 = l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2(x_41, x_37); lean_dec(x_41); x_43 = lean_unbox(x_17); lean_inc(x_18); @@ -35236,51 +35070,51 @@ return x_63; } } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(x_1, x_2, x_3, x_4); +x_5 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__4(x_1, x_2, x_3, x_4); lean_dec(x_2); lean_dec(x_1); return x_5; } } -lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(x_1, x_2, x_3, x_4); +x_5 = l_Array_iterateMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__5(x_1, x_2, x_3, x_4); lean_dec(x_2); lean_dec(x_1); return x_5; } } -lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(x_1, x_2); +x_3 = l_Std_PersistentHashMap_foldlMAux___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__3(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(x_1, x_2); +x_3 = l_Std_PersistentHashMap_foldlM___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__2(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l___private_Lean_Parser_Parser_25__ParserAttribute_add___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +lean_object* l___private_Lean_Parser_Parser_23__ParserAttribute_add___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { uint8_t x_8; lean_object* x_9; x_8 = lean_unbox(x_6); lean_dec(x_6); -x_9 = l___private_Lean_Parser_Parser_25__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); +x_9 = l___private_Lean_Parser_Parser_23__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); lean_dec(x_5); return x_9; } @@ -35289,7 +35123,7 @@ lean_object* l_Lean_Parser_mkParserAttributeImpl___elambda__1(lean_object* x_1, _start: { lean_object* x_8; -x_8 = l___private_Lean_Parser_Parser_25__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +x_8 = l___private_Lean_Parser_Parser_23__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_6, x_7); return x_8; } } @@ -35339,7 +35173,7 @@ x_5 = l_Lean_registerBuiltinAttribute(x_4, x_3); return x_5; } } -lean_object* _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1() { +lean_object* _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__1() { _start: { lean_object* x_1; @@ -35347,23 +35181,23 @@ x_1 = lean_mk_string("invalid parser attribute implementation builder arguments" return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2() { +lean_object* _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1; +x_1 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__1; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1(lean_object* x_1) { +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1(lean_object* x_1) { _start: { if (lean_obj_tag(x_1) == 0) { lean_object* x_2; -x_2 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_2 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_2; } else @@ -35381,7 +35215,7 @@ if (lean_obj_tag(x_4) == 0) { lean_object* x_5; lean_dec(x_3); -x_5 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_5 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_5; } else @@ -35415,7 +35249,7 @@ lean_object* x_12; lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); -x_12 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_12 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_12; } } @@ -35425,7 +35259,7 @@ lean_object* x_13; lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_13 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_13 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_13; } } @@ -35435,13 +35269,13 @@ else lean_object* x_14; lean_dec(x_3); lean_dec(x_1); -x_14 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_14 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_14; } } } } -lean_object* _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1() { +lean_object* _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__1() { _start: { lean_object* x_1; @@ -35449,30 +35283,30 @@ x_1 = lean_mk_string("parserAttr"); return x_1; } } -lean_object* _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2() { +lean_object* _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1; +x_2 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3() { +lean_object* _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__3() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1), 1, 0); +x_1 = lean_alloc_closure((void*)(l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1), 1, 0); return x_1; } } -lean_object* l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder(lean_object* x_1) { +lean_object* l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_2 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; -x_3 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3; +x_2 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2; +x_3 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__3; x_4 = l_Lean_registerAttributeImplBuilder(x_2, x_3, x_1); return x_4; } @@ -35504,7 +35338,7 @@ lean_ctor_set(x_13, 1, x_12); x_14 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_14, 0, x_10); lean_ctor_set(x_14, 1, x_13); -x_15 = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; +x_15 = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2; x_16 = l_Lean_registerAttributeOfBuilder(x_8, x_15, x_14, x_9); return x_16; } @@ -36889,14 +36723,14 @@ l_Lean_Parser_dollarSymbol___closed__3 = _init_l_Lean_Parser_dollarSymbol___clos lean_mark_persistent(l_Lean_Parser_dollarSymbol___closed__3); l_Lean_Parser_dollarSymbol = _init_l_Lean_Parser_dollarSymbol(); lean_mark_persistent(l_Lean_Parser_dollarSymbol); -l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___closed__1 = _init_l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_10__noImmediateColon___elambda__1___closed__1); -l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1 = _init_l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_10__noImmediateColon___closed__1); -l___private_Lean_Parser_Parser_10__noImmediateColon___closed__2 = _init_l___private_Lean_Parser_Parser_10__noImmediateColon___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_10__noImmediateColon___closed__2); -l___private_Lean_Parser_Parser_10__noImmediateColon = _init_l___private_Lean_Parser_Parser_10__noImmediateColon(); -lean_mark_persistent(l___private_Lean_Parser_Parser_10__noImmediateColon); +l_Lean_Parser_checkNoImmediateColon___elambda__1___closed__1 = _init_l_Lean_Parser_checkNoImmediateColon___elambda__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_checkNoImmediateColon___elambda__1___closed__1); +l_Lean_Parser_checkNoImmediateColon___closed__1 = _init_l_Lean_Parser_checkNoImmediateColon___closed__1(); +lean_mark_persistent(l_Lean_Parser_checkNoImmediateColon___closed__1); +l_Lean_Parser_checkNoImmediateColon___closed__2 = _init_l_Lean_Parser_checkNoImmediateColon___closed__2(); +lean_mark_persistent(l_Lean_Parser_checkNoImmediateColon___closed__2); +l_Lean_Parser_checkNoImmediateColon = _init_l_Lean_Parser_checkNoImmediateColon(); +lean_mark_persistent(l_Lean_Parser_checkNoImmediateColon); l_Lean_Parser_pushNone___closed__1 = _init_l_Lean_Parser_pushNone___closed__1(); lean_mark_persistent(l_Lean_Parser_pushNone___closed__1); l_Lean_Parser_pushNone___closed__2 = _init_l_Lean_Parser_pushNone___closed__2(); @@ -37092,28 +36926,22 @@ if (lean_io_result_is_error(res)) return res; l_Lean_Parser_builtinParserCategoriesRef = lean_io_result_get_value(res); lean_mark_persistent(l_Lean_Parser_builtinParserCategoriesRef); lean_dec_ref(res); -l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__1 = _init_l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__1); -l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__2 = _init_l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_13__throwParserCategoryAlreadyDefined___rarg___closed__2); +l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__1 = _init_l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__1(); +lean_mark_persistent(l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__1); +l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__2 = _init_l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__2(); +lean_mark_persistent(l___private_Lean_Parser_Parser_12__throwParserCategoryAlreadyDefined___rarg___closed__2); l_Lean_Parser_ParserExtensionState_inhabited___closed__1 = _init_l_Lean_Parser_ParserExtensionState_inhabited___closed__1(); lean_mark_persistent(l_Lean_Parser_ParserExtensionState_inhabited___closed__1); l_Lean_Parser_ParserExtensionState_inhabited = _init_l_Lean_Parser_ParserExtensionState_inhabited(); lean_mark_persistent(l_Lean_Parser_ParserExtensionState_inhabited); -l___private_Lean_Parser_Parser_17__mergePrecendences___closed__1 = _init_l___private_Lean_Parser_Parser_17__mergePrecendences___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_17__mergePrecendences___closed__1); -l___private_Lean_Parser_Parser_17__mergePrecendences___closed__2 = _init_l___private_Lean_Parser_Parser_17__mergePrecendences___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_17__mergePrecendences___closed__2); -l___private_Lean_Parser_Parser_17__mergePrecendences___closed__3 = _init_l___private_Lean_Parser_Parser_17__mergePrecendences___closed__3(); -lean_mark_persistent(l___private_Lean_Parser_Parser_17__mergePrecendences___closed__3); -l___private_Lean_Parser_Parser_18__addTokenConfig___closed__1 = _init_l___private_Lean_Parser_Parser_18__addTokenConfig___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_18__addTokenConfig___closed__1); -l___private_Lean_Parser_Parser_18__addTokenConfig___closed__2 = _init_l___private_Lean_Parser_Parser_18__addTokenConfig___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_18__addTokenConfig___closed__2); +l___private_Lean_Parser_Parser_16__addTokenConfig___closed__1 = _init_l___private_Lean_Parser_Parser_16__addTokenConfig___closed__1(); +lean_mark_persistent(l___private_Lean_Parser_Parser_16__addTokenConfig___closed__1); +l___private_Lean_Parser_Parser_16__addTokenConfig___closed__2 = _init_l___private_Lean_Parser_Parser_16__addTokenConfig___closed__2(); +lean_mark_persistent(l___private_Lean_Parser_Parser_16__addTokenConfig___closed__2); l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1 = _init_l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1(); lean_mark_persistent(l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1); -l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1 = _init_l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_20__updateBuiltinTokens___closed__1); +l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1 = _init_l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1(); +lean_mark_persistent(l___private_Lean_Parser_Parser_18__updateBuiltinTokens___closed__1); l_Lean_Parser_mkParserOfConstantUnsafe___closed__1 = _init_l_Lean_Parser_mkParserOfConstantUnsafe___closed__1(); lean_mark_persistent(l_Lean_Parser_mkParserOfConstantUnsafe___closed__1); l_Lean_Parser_mkParserOfConstantUnsafe___closed__2 = _init_l_Lean_Parser_mkParserOfConstantUnsafe___closed__2(); @@ -37200,27 +37028,27 @@ l_Lean_Parser_declareTrailingBuiltinParser___closed__1 = _init_l_Lean_Parser_dec lean_mark_persistent(l_Lean_Parser_declareTrailingBuiltinParser___closed__1); l_Lean_Parser_declareTrailingBuiltinParser___closed__2 = _init_l_Lean_Parser_declareTrailingBuiltinParser___closed__2(); lean_mark_persistent(l_Lean_Parser_declareTrailingBuiltinParser___closed__2); -l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1 = _init_l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1); -l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2 = _init_l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2); +l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__1 = _init_l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__1(); +lean_mark_persistent(l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__1); +l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__2 = _init_l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__2(); +lean_mark_persistent(l___private_Lean_Parser_Parser_22__BuiltinParserAttribute_add___closed__2); l_Lean_Parser_registerBuiltinParserAttribute___closed__1 = _init_l_Lean_Parser_registerBuiltinParserAttribute___closed__1(); lean_mark_persistent(l_Lean_Parser_registerBuiltinParserAttribute___closed__1); -l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1 = _init_l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1(); -lean_mark_persistent(l_List_foldlM___main___at___private_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1); +l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1___closed__1 = _init_l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1___closed__1(); +lean_mark_persistent(l_List_foldlM___main___at___private_Lean_Parser_Parser_23__ParserAttribute_add___spec__1___closed__1); l_Lean_Parser_mkParserAttributeImpl___closed__1 = _init_l_Lean_Parser_mkParserAttributeImpl___closed__1(); lean_mark_persistent(l_Lean_Parser_mkParserAttributeImpl___closed__1); -l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1 = _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1); -l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2 = _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2); -l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1 = _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1(); -lean_mark_persistent(l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1); -l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2 = _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2(); -lean_mark_persistent(l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2); -l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3 = _init_l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3(); -lean_mark_persistent(l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3); -res = l___private_Lean_Parser_Parser_26__registerParserAttributeImplBuilder(lean_io_mk_world()); +l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__1 = _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__1(); +lean_mark_persistent(l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__1); +l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2 = _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2(); +lean_mark_persistent(l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___lambda__1___closed__2); +l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__1 = _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__1(); +lean_mark_persistent(l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__1); +l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2 = _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2(); +lean_mark_persistent(l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__2); +l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__3 = _init_l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__3(); +lean_mark_persistent(l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder___closed__3); +res = l___private_Lean_Parser_Parser_24__registerParserAttributeImplBuilder(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Parser_regBuiltinTermParserAttr___closed__1 = _init_l_Lean_Parser_regBuiltinTermParserAttr___closed__1(); diff --git a/stage0/stdlib/Lean/Parser/Syntax.c b/stage0/stdlib/Lean/Parser/Syntax.c index 4d5c7c654e..8caae0c225 100644 --- a/stage0/stdlib/Lean/Parser/Syntax.c +++ b/stage0/stdlib/Lean/Parser/Syntax.c @@ -110,6 +110,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Syntax_many(lean_object*); lean_object* l_Lean_Parser_Syntax_orelse___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_macroTailTactic___closed__3; lean_object* l_Lean_Parser_Command_prefix; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__17; lean_object* l_Lean_Parser_Command_infixr___closed__1; lean_object* l_Lean_Parser_Command_elab__rules___closed__7; extern lean_object* l_Lean_Parser_ident; @@ -140,7 +141,6 @@ lean_object* l_Lean_Parser_ParserState_mkTrailingNode(lean_object*, lean_object* lean_object* l_Lean_Parser_Command_mixfix___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_cat___closed__2; lean_object* l_Lean_Parser_Command_notation___closed__10; -extern lean_object* l_Lean_Parser_mkAntiquot___closed__4; lean_object* l_Lean_Parser_addBuiltinParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_regBuiltinSyntaxParserAttr___closed__1; lean_object* l_Lean_Parser_Command_macroHead___closed__2; @@ -191,6 +191,7 @@ lean_object* l_Lean_Parser_Command_syntaxAbbrev; lean_object* l_Lean_Parser_Syntax_char___closed__2; lean_object* l_Lean_Parser_Command_postfix___elambda__1___closed__8; lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__8; +extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__7; lean_object* l_Lean_Parser_checkPrecFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_elab__rules___closed__5; lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__5; @@ -227,12 +228,10 @@ lean_object* l_Lean_Parser_Command_reserve___elambda__1___closed__5; lean_object* l_Lean_Parser_Syntax_paren___closed__1; lean_object* l_Lean_Parser_Command_macroArg; lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_mkAntiquot___closed__5; lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_infix___closed__4; lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_elabTail___closed__8; -extern lean_object* l_Lean_Parser_mkAntiquot___closed__15; lean_object* l_Lean_Parser_Command_prefix___closed__4; lean_object* l_Lean_Parser_Command_syntaxAbbrev___closed__8; lean_object* l_Lean_Parser_Command_infixl___closed__3; @@ -456,6 +455,7 @@ lean_object* l_Lean_Parser_Command_elab___elambda__1___closed__7; lean_object* l_Lean_Parser_Syntax_atom; lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__8; lean_object* l_Lean_Parser_Command_syntaxAbbrev___elambda__1___closed__2; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__7; lean_object* l_Lean_Parser_Command_macroTailCommand___closed__1; lean_object* l_Lean_Parser_Command_identPrec___closed__4; lean_object* l_Lean_Parser_Command_syntax___closed__1; @@ -499,6 +499,7 @@ lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Term_structInstArrayRef___closed__2; lean_object* l_Lean_Parser_Syntax_paren___closed__2; lean_object* l_Lean_Parser_Command_mixfixKind___elambda__1(lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_mkAntiquot___closed__16; extern lean_object* l_Lean_Parser_Term_haveAssign___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Syntax_num(lean_object*); lean_object* l_Lean_Parser_Command_elabTail___elambda__1___closed__1; @@ -550,8 +551,6 @@ lean_object* l_Lean_Parser_Command_infix___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_macro__rules___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_elab__rules___closed__8; lean_object* l_Lean_Parser_Command_syntaxCat___closed__5; -extern lean_object* l_Lean_Parser_mkAntiquot___closed__14; -extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__9; lean_object* l_Lean_Parser_Command_macroTailTactic___closed__6; lean_object* l_Lean_Parser_Command_notation___closed__1; lean_object* l_Lean_Parser_Command_macroTailCommand___closed__4; @@ -645,6 +644,7 @@ lean_object* l_Lean_Parser_Command_macroArgSimple___closed__2; lean_object* l_Lean_Parser_Command_reserve___closed__7; lean_object* l_Lean_Parser_Syntax_many; lean_object* l_Lean_Parser_Syntax_try___closed__1; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__6; lean_object* l_Lean_Parser_Command_identPrec___elambda__1___closed__3; lean_object* l_Lean_Parser_Syntax_lookahead___closed__1; lean_object* l_Lean_Parser_Command_infix___elambda__1___closed__5; @@ -1270,7 +1270,7 @@ lean_object* x_24; lean_object* x_25; uint8_t x_26; x_24 = lean_ctor_get(x_23, 1); lean_inc(x_24); lean_dec(x_23); -x_25 = l_Lean_Parser_mkAntiquot___closed__4; +x_25 = l_Lean_Parser_mkAntiquot___closed__6; x_26 = lean_string_dec_eq(x_24, x_25); lean_dec(x_24); if (x_26 == 0) @@ -1412,7 +1412,7 @@ lean_object* x_62; lean_object* x_63; uint8_t x_64; x_62 = lean_ctor_get(x_61, 1); lean_inc(x_62); lean_dec(x_61); -x_63 = l_Lean_Parser_mkAntiquot___closed__4; +x_63 = l_Lean_Parser_mkAntiquot___closed__6; x_64 = lean_string_dec_eq(x_62, x_63); lean_dec(x_62); if (x_64 == 0) @@ -1498,7 +1498,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_precedenceLit; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_mkAntiquot___closed__5; +x_3 = l_Lean_Parser_mkAntiquot___closed__7; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } @@ -5514,7 +5514,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_mkAntiquot___closed__14; +x_2 = l_Lean_Parser_mkAntiquot___closed__16; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -5574,7 +5574,7 @@ lean_object* x_13; lean_object* x_14; uint8_t x_15; x_13 = lean_ctor_get(x_12, 1); lean_inc(x_13); lean_dec(x_12); -x_14 = l_Lean_Parser_mkAntiquot___closed__14; +x_14 = l_Lean_Parser_mkAntiquot___closed__16; x_15 = lean_string_dec_eq(x_13, x_14); lean_dec(x_13); if (x_15 == 0) @@ -5634,7 +5634,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Syntax_many___elambda__1___closed__2; -x_2 = l_Lean_Parser_mkAntiquot___closed__15; +x_2 = l_Lean_Parser_mkAntiquot___closed__17; x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } @@ -11381,7 +11381,7 @@ lean_object* l_Lean_Parser_Command_macro__rules___elambda__1(lean_object* x_1, l _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; -x_3 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_3 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); x_5 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__4; @@ -11705,7 +11705,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj x_1 = l_Lean_Parser_Command_optKind; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_3 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 0); lean_inc(x_4); x_5 = l_Lean_Parser_andthenInfo(x_2, x_4); @@ -13781,7 +13781,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_20, 1); lean_inc(x_21); lean_dec(x_20); -x_22 = l_Lean_Parser_mkAntiquot___closed__4; +x_22 = l_Lean_Parser_mkAntiquot___closed__6; x_23 = lean_string_dec_eq(x_21, x_22); lean_dec(x_21); if (x_23 == 0) @@ -13945,7 +13945,7 @@ lean_object* x_69; lean_object* x_70; uint8_t x_71; x_69 = lean_ctor_get(x_68, 1); lean_inc(x_69); lean_dec(x_68); -x_70 = l_Lean_Parser_mkAntiquot___closed__4; +x_70 = l_Lean_Parser_mkAntiquot___closed__6; x_71 = lean_string_dec_eq(x_69, x_70); lean_dec(x_69); if (x_71 == 0) @@ -14047,7 +14047,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Syntax_try___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_mkAntiquot___closed__5; +x_3 = l_Lean_Parser_mkAntiquot___closed__7; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } @@ -16972,7 +16972,7 @@ lean_object* l_Lean_Parser_Command_elab__rules___elambda__1(lean_object* x_1, le _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; -x_3 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_3 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); x_5 = l_Lean_Parser_Command_elab__rules___elambda__1___closed__4; @@ -17660,7 +17660,7 @@ lean_object* _init_l_Lean_Parser_Command_elab__rules___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_1 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); x_3 = l_Lean_Parser_Command_elab__rules___closed__2; diff --git a/stage0/stdlib/Lean/Parser/Tactic.c b/stage0/stdlib/Lean/Parser/Tactic.c index 818b6c2b28..53c2f17b94 100644 --- a/stage0/stdlib/Lean/Parser/Tactic.c +++ b/stage0/stdlib/Lean/Parser/Tactic.c @@ -37,12 +37,12 @@ lean_object* l_Lean_Parser_Tactic_withIds___closed__3; lean_object* l_Lean_Parser_Tactic_revert___closed__2; lean_object* l_Lean_Parser_Tactic_generalize___closed__1; lean_object* l_Lean_Parser_Tactic_intro___closed__8; +extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__11; lean_object* l_Lean_Parser_Tactic_case___closed__6; lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_apply___closed__2; -extern lean_object* l_Lean_Parser_Term_structInst___closed__1; lean_object* l_Lean_Parser_Tactic_skip___closed__6; lean_object* l_Lean_Parser_Tactic_clear___elambda__1___closed__2; lean_object* l_Lean_Parser_Tactic_generalize___closed__2; @@ -76,13 +76,13 @@ lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__8; lean_object* l___regBuiltinParser_Lean_Parser_Tactic_nestedTacticBlock(lean_object*); lean_object* l_Lean_Parser_Tactic_withAlts___closed__4; extern lean_object* l_Lean_Parser_Term_subst___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__8; lean_object* l_Lean_Parser_Tactic_withAlts___closed__1; extern lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__7; lean_object* l_Lean_Parser_Tactic_clear___closed__6; lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__6; lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__16; lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___elambda__1___closed__4; +extern lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_inductionAlts___elambda__1___spec__11(lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_inductionAlts; lean_object* l_Lean_Parser_ParserState_pushSyntax(lean_object*, lean_object*); @@ -196,7 +196,6 @@ lean_object* l_Lean_Parser_Tactic_failIfSuccess___closed__7; extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4; lean_object* l_Lean_Parser_Tactic_inductionAlts___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_traceState___closed__5; -extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__5; lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__10; lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_inductionAlts___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_clear___closed__3; @@ -299,7 +298,6 @@ lean_object* l_Lean_Parser_Tactic_injection___elambda__1___closed__7; lean_object* l_Lean_Parser_Tactic_apply___elambda__1___closed__1; lean_object* l_Lean_Parser_Tactic_intro___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__1; -extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__12; lean_object* l_Lean_Parser_Tactic_revert___closed__6; lean_object* l_Lean_Parser_Tactic_exact___elambda__1___closed__1; lean_object* l_Lean_Parser_Tactic_generalize___closed__11; @@ -308,7 +306,6 @@ lean_object* l_Lean_Parser_orelseInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_majorPremise___closed__3; extern lean_object* l_Lean_Parser_termParser___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); -extern lean_object* l_Lean_Parser_Term_match___closed__2; lean_object* l_Lean_Parser_Tactic_cases___closed__8; lean_object* l_Lean_Parser_Tactic_usingRec___elambda__1___closed__5; lean_object* l_Lean_Parser_Tactic_apply___elambda__1___closed__7; @@ -341,6 +338,7 @@ lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__5; lean_object* l_Lean_Parser_Tactic_majorPremise___elambda__1___closed__2; lean_object* l_Lean_Parser_Tactic_exact___elambda__1___closed__5; lean_object* l_Lean_Parser_Tactic_injection___closed__3; +extern lean_object* l_Lean_Parser_Term_structInst___closed__2; extern lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__2; lean_object* l_Lean_Parser_Tactic_nestedTacticBlock; extern lean_object* l_Lean_Parser_Term_explicitUniv___closed__4; @@ -499,11 +497,14 @@ lean_object* l_String_trim(lean_object*); lean_object* l_Lean_Parser_Tactic_nonEmptySeq___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Tactic_apply___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Tactic_assumption(lean_object*); +extern lean_object* l_Lean_Parser_Term_implicitBinder___closed__1; extern lean_object* l_Lean_Parser_Term_matchAlts___closed__1; lean_object* l_Lean_Parser_Tactic_underscoreFn___closed__2; lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__13; +extern lean_object* l_Lean_Parser_Term_implicitBinder___closed__2; lean_object* l_Lean_Parser_Tactic_generalize___closed__7; lean_object* l_Lean_Parser_Tactic_induction___closed__4; +extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__8; lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__2; lean_object* l_Lean_Parser_Tactic_induction___closed__8; lean_object* l_Lean_Parser_Tactic_apply___elambda__1(lean_object*, lean_object*); @@ -515,7 +516,6 @@ extern lean_object* l_Lean_Parser_Tactic_seq___closed__1; lean_object* l_Lean_Parser_Tactic_exact___closed__2; lean_object* l_Lean_Parser_Tactic_intro___closed__2; lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Tactic_inductionAlts___elambda__1___spec__4(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); -extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__17; extern lean_object* l_Lean_Parser_Term_namedHole___closed__6; lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___closed__5; @@ -9594,13 +9594,13 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_30, 1); lean_inc(x_31); lean_dec(x_30); -x_32 = l_Lean_Parser_Term_match___elambda__1___closed__8; +x_32 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_33 = lean_string_dec_eq(x_31, x_32); lean_dec(x_31); if (x_33 == 0) { lean_object* x_34; lean_object* x_35; -x_34 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_34 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_inc(x_5); x_35 = l_Lean_Parser_ParserState_mkErrorsAt(x_27, x_34, x_5); x_6 = x_35; @@ -9616,7 +9616,7 @@ else { lean_object* x_36; lean_object* x_37; lean_dec(x_30); -x_36 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_36 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_inc(x_5); x_37 = l_Lean_Parser_ParserState_mkErrorsAt(x_27, x_36, x_5); x_6 = x_37; @@ -9627,7 +9627,7 @@ else { lean_object* x_38; lean_object* x_39; lean_dec(x_28); -x_38 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_38 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_inc(x_5); x_39 = l_Lean_Parser_ParserState_mkErrorsAt(x_27, x_38, x_5); x_6 = x_39; @@ -9714,7 +9714,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Tactic_inductionAlts; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_match___closed__2; +x_3 = l_Lean_Parser_Term_structInst___closed__2; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } @@ -11166,13 +11166,13 @@ lean_object* x_43; lean_object* x_44; uint8_t x_45; x_43 = lean_ctor_get(x_42, 1); lean_inc(x_43); lean_dec(x_42); -x_44 = l_Lean_Parser_Term_match___elambda__1___closed__8; +x_44 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_45 = lean_string_dec_eq(x_43, x_44); lean_dec(x_43); if (x_45 == 0) { lean_object* x_46; lean_object* x_47; -x_46 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_46 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_inc(x_5); x_47 = l_Lean_Parser_ParserState_mkErrorsAt(x_39, x_46, x_5); x_6 = x_47; @@ -11188,7 +11188,7 @@ else { lean_object* x_48; lean_object* x_49; lean_dec(x_42); -x_48 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_48 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_inc(x_5); x_49 = l_Lean_Parser_ParserState_mkErrorsAt(x_39, x_48, x_5); x_6 = x_49; @@ -11199,7 +11199,7 @@ else { lean_object* x_50; lean_object* x_51; lean_dec(x_40); -x_50 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_50 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_inc(x_5); x_51 = l_Lean_Parser_ParserState_mkErrorsAt(x_39, x_50, x_5); x_6 = x_51; @@ -11337,7 +11337,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Tactic_ident_x27; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_match___closed__2; +x_3 = l_Lean_Parser_Term_structInst___closed__2; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } @@ -12911,13 +12911,13 @@ lean_object* x_47; lean_object* x_48; uint8_t x_49; x_47 = lean_ctor_get(x_46, 1); lean_inc(x_47); lean_dec(x_46); -x_48 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_48 = l_Lean_Parser_Term_implicitBinder___closed__1; x_49 = lean_string_dec_eq(x_47, x_48); lean_dec(x_47); if (x_49 == 0) { lean_object* x_50; lean_object* x_51; -x_50 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_50 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_51 = l_Lean_Parser_ParserState_mkErrorsAt(x_43, x_50, x_42); x_11 = x_51; goto block_41; @@ -12933,7 +12933,7 @@ else { lean_object* x_52; lean_object* x_53; lean_dec(x_46); -x_52 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_52 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_53 = l_Lean_Parser_ParserState_mkErrorsAt(x_43, x_52, x_42); x_11 = x_53; goto block_41; @@ -12943,7 +12943,7 @@ else { lean_object* x_54; lean_object* x_55; lean_dec(x_44); -x_54 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_54 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_55 = l_Lean_Parser_ParserState_mkErrorsAt(x_43, x_54, x_42); x_11 = x_55; goto block_41; @@ -13126,13 +13126,13 @@ lean_object* x_112; lean_object* x_113; uint8_t x_114; x_112 = lean_ctor_get(x_111, 1); lean_inc(x_112); lean_dec(x_111); -x_113 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_113 = l_Lean_Parser_Term_implicitBinder___closed__1; x_114 = lean_string_dec_eq(x_112, x_113); lean_dec(x_112); if (x_114 == 0) { lean_object* x_115; lean_object* x_116; -x_115 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_115 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_116 = l_Lean_Parser_ParserState_mkErrorsAt(x_108, x_115, x_107); x_70 = x_116; goto block_106; @@ -13148,7 +13148,7 @@ else { lean_object* x_117; lean_object* x_118; lean_dec(x_111); -x_117 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_117 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_118 = l_Lean_Parser_ParserState_mkErrorsAt(x_108, x_117, x_107); x_70 = x_118; goto block_106; @@ -13158,7 +13158,7 @@ else { lean_object* x_119; lean_object* x_120; lean_dec(x_109); -x_119 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_119 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_120 = l_Lean_Parser_ParserState_mkErrorsAt(x_108, x_119, x_107); x_70 = x_120; goto block_106; @@ -13302,7 +13302,7 @@ lean_object* _init_l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__1; +x_1 = l_Lean_Parser_Term_implicitBinder___closed__2; x_2 = l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__1; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; diff --git a/stage0/stdlib/Lean/Parser/Term.c b/stage0/stdlib/Lean/Parser/Term.c index 522a812b32..f4f44a3f40 100644 --- a/stage0/stdlib/Lean/Parser/Term.c +++ b/stage0/stdlib/Lean/Parser/Term.c @@ -52,7 +52,7 @@ lean_object* l_Lean_Parser_Term_subst; lean_object* l_Lean_Parser_darrow___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_quotedName___closed__4; lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__2; -lean_object* l_Lean_Parser_Term_app___elambda__1___closed__1; +lean_object* l_Lean_Parser_Term_structInst___closed__20; lean_object* l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_bindOp___elambda__1(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_manyAux___main___closed__1; @@ -77,6 +77,7 @@ lean_object* l_Lean_Parser_Term_fromTerm___closed__3; lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_orelse; lean_object* l_Lean_Parser_Term_seqLeft___closed__1; +lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_decide___closed__1; lean_object* l_Lean_Parser_Term_simpleBinder___closed__2; lean_object* l_Lean_Parser_Term_tacticStxQuot___closed__5; @@ -84,6 +85,7 @@ lean_object* l_Lean_Parser_Term_if___elambda__1___closed__18; lean_object* l___regBuiltinParser_Lean_Parser_Term_structInst(lean_object*); lean_object* l_Lean_Parser_Term_gt___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_haveAssign___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__20; lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_doSeq___elambda__1___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_structInstField___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_optIdent___closed__3; @@ -107,6 +109,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_dollarProj(lean_object*); lean_object* l_Lean_Parser_Term_binderTactic___elambda__1___closed__6; lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__1; lean_object* l_Lean_Parser_Term_borrowed___closed__4; +lean_object* l_Lean_Parser_Term_matchDiscr___closed__2; lean_object* l_Lean_Parser_Term_mapRev___elambda__1___closed__3; lean_object* l_Lean_Parser_darrow___elambda__1___closed__1; lean_object* l_Lean_Parser_sepByInfo(lean_object*, lean_object*); @@ -126,6 +129,7 @@ extern lean_object* l_addParenHeuristic___closed__2; lean_object* l___regBuiltinParser_Lean_Parser_Term_add(lean_object*); lean_object* l_Lean_Parser_Term_byTactic___closed__4; lean_object* l_Lean_Parser_Term_show; +lean_object* l_Lean_Parser_Term_matchDiscr___closed__1; lean_object* l_Lean_Parser_Term_ne___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_band; lean_object* l_Lean_Parser_Term_leadPrec___closed__1; @@ -294,6 +298,7 @@ lean_object* l_Lean_Parser_Term_type___closed__6; lean_object* l_Lean_Parser_Term_instBinder___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_anonymousCtor___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_funBinderStxQuot___closed__7; +lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_byTactic; lean_object* l_Lean_Parser_Term_have___closed__3; lean_object* l_Lean_Parser_ParserState_pushSyntax(lean_object*, lean_object*); @@ -371,6 +376,8 @@ lean_object* l_Lean_Parser_regTacticParserAttribute___closed__1; lean_object* l_Lean_Parser_Term_letPatDecl___closed__4; lean_object* l_Lean_Parser_Term_if___elambda__1___closed__7; lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__6; +lean_object* l_Lean_Parser_Term_matchDiscr___elambda__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_match___elambda__1___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_or___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_quotedName___closed__5; lean_object* l_Lean_Parser_Term_nativeDecide___elambda__1___closed__2; @@ -408,13 +415,11 @@ lean_object* l_Lean_Parser_Term_band___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkTrailingNode(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_seqRight___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_prop___elambda__1___closed__6; -lean_object* l_Lean_Parser_Term_match___elambda__1___closed__11; lean_object* l___regBuiltinParser_Lean_Parser_Term_let_x21(lean_object*); lean_object* l_Lean_Parser_Term_let___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_tacticBlock___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_not___closed__3; lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_matchAlts___elambda__1___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Parser_mkAntiquot___closed__4; lean_object* l_Lean_Parser_addBuiltinParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Tactic_seq___elambda__1___spec__2(uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_optIdent___closed__4; @@ -436,6 +441,7 @@ lean_object* l_Lean_Parser_Term_sorry___closed__2; lean_object* l_Lean_Parser_Term_nomatch___closed__7; lean_object* l_Lean_Parser_Term_if___closed__11; lean_object* l_Lean_Parser_Term_num___elambda__1___closed__1; +lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__18; lean_object* l___regBuiltinParser_Lean_Parser_Term_map(lean_object*); lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Term_let(lean_object*); @@ -458,7 +464,9 @@ lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_instBinder___closed__3; lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_and; +extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_Parser_Term_gt___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_type___closed__10; lean_object* l___regBuiltinParser_Lean_Parser_Term_levelStxQuot___closed__2; lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_suffices___elambda__1___closed__3; @@ -480,6 +488,7 @@ lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_quotedName___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; lean_object* l_Lean_Parser_checkPrecFn___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__13; lean_object* l_Lean_Parser_Term_anonymousCtor___closed__9; lean_object* l_Lean_Parser_Term_sorry___closed__1; lean_object* l_Lean_Parser_Term_funBinderStxQuot___elambda__1___closed__1; @@ -523,6 +532,7 @@ lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_structInstLVal__ lean_object* l_Lean_Parser_Term_match___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_sort___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_not___closed__2; +lean_object* l_Lean_Parser_Term_implicitBinder___closed__4; lean_object* l_Lean_Parser_Tactic_nonEmptySeq___closed__4; lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__11; extern lean_object* l_Lean_mkTermIdFromIdent___closed__1; @@ -607,7 +617,9 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_sorry(lean_object*); lean_object* l_Lean_Parser_Term_nomatch___closed__4; lean_object* l_Lean_Parser_Term_funBinderStxQuot___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_or___elambda__1___closed__2; +lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__22; lean_object* l_Lean_Parser_Term_listLit___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_matchAlts___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_ge___closed__1; lean_object* l_Lean_Parser_Term_arrayRef___closed__5; lean_object* l_Lean_Parser_strLit___elambda__1(lean_object*, lean_object*); @@ -621,8 +633,6 @@ lean_object* l_Lean_Parser_Term_cdot___closed__3; lean_object* l_Lean_Parser_Term_simpleBinder___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_mul___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_prop___elambda__1___closed__9; -lean_object* l_Lean_Parser_Term_match___elambda__1___closed__15; -extern lean_object* l_Lean_Parser_mkAntiquot___closed__5; lean_object* l_Lean_Parser_Term_listLit___closed__6; lean_object* l_Lean_Parser_Term_proj___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_paren___closed__1; @@ -640,6 +650,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_id(lean_object*); lean_object* l_Lean_Parser_Term_doElem___closed__3; lean_object* l_Lean_Parser_Term_if___closed__3; lean_object* l_Lean_Parser_Term_tacticStxQuot___closed__6; +lean_object* l_Lean_Parser_Term_matchAlts___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_byTactic___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__15; lean_object* l_Lean_Parser_Term_suffices___closed__4; @@ -707,7 +718,7 @@ lean_object* l_Lean_Parser_Term_letIdLhs___closed__5; lean_object* l_Lean_Parser_Term_byTactic___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_emptyC___elambda__1___closed__1; lean_object* l_Lean_Parser_manyAux___main(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_Term_match___elambda__1___closed__14; +lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_match___closed__6; lean_object* l_Lean_Parser_Term_uminus___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_prop___elambda__1___closed__4; @@ -722,6 +733,7 @@ lean_object* l_Lean_Parser_Term_ge___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_optIdent; lean_object* l_Lean_Parser_Term_paren___closed__2; +lean_object* l_Lean_Parser_Term_matchDiscr___closed__3; lean_object* l_Lean_Parser_Term_suffices___elambda__1___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Term_mapRev(lean_object*); lean_object* l_Lean_Parser_Term_structInst___closed__8; @@ -1004,7 +1016,6 @@ lean_object* l_Lean_Parser_Term_mod___elambda__1___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Term_seqRight(lean_object*); lean_object* l_Lean_Parser_Term_inaccessible___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_char___closed__4; -lean_object* l_Lean_Parser_Term_match___elambda__1___closed__12; lean_object* l_Lean_Parser_checkNoWsBeforeFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_seqLeft; lean_object* l_Lean_Parser_Term_have___closed__6; @@ -1239,6 +1250,7 @@ lean_object* l_Lean_Parser_Term_inaccessible___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_or___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_emptyC___elambda__1___closed__5; +lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__21; lean_object* l_Lean_Parser_Term_emptyC; lean_object* l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_letPatDecl___closed__3; @@ -1258,6 +1270,7 @@ lean_object* l_Lean_Parser_Term_binderDefault___closed__1; lean_object* l_Lean_Parser_Term_have___closed__8; lean_object* l_Lean_Parser_Term_sorry___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_haveAssign___elambda__1___closed__8; +lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__23; lean_object* l_Lean_Parser_Term_and___closed__2; lean_object* l___regBuiltinParser_Lean_Parser_Term_funBinderStxQuot(lean_object*); lean_object* l_Lean_Parser_Term_prop___closed__4; @@ -1317,6 +1330,7 @@ lean_object* l_Lean_Parser_Term_tacticBlock___closed__9; lean_object* l_Lean_Parser_Term_have___closed__10; lean_object* l_Lean_Parser_Term_cdot___closed__6; lean_object* l_Lean_Parser_Term_arrayRef___closed__6; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__7; lean_object* l_Lean_Parser_Term_borrowed___closed__7; lean_object* l_Lean_Parser_Term_doLet___closed__5; lean_object* l___regBuiltinParser_Lean_Parser_Term_prod(lean_object*); @@ -1403,10 +1417,12 @@ lean_object* l_Lean_Parser_Term_matchAlt___closed__10; lean_object* l_Lean_Parser_Term_cdot___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_fcomp___closed__1; lean_object* l_Lean_Parser_Term_where___closed__5; +lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_match___elambda__1___spec__2(uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_dollar___closed__6; lean_object* l_Lean_Parser_Term_match__syntax___closed__2; lean_object* l_Lean_Parser_Term_tparser_x21___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_explicit___closed__3; +lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1(uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_binderType___closed__3; lean_object* l_Lean_Parser_Term_not___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_if___elambda__1___closed__19; @@ -1436,6 +1452,7 @@ lean_object* l_Lean_Parser_Term_bnot___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_namedArgument___closed__8; lean_object* l_Lean_Parser_Term_arrayRef___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_dollarProj___elambda__1___closed__7; +lean_object* l_Lean_Parser_Term_matchAlts___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_do___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_optExprPrecedence___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_sort___closed__3; @@ -1457,6 +1474,7 @@ lean_object* l_Lean_Parser_ident___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_byTactic___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_binderIdent; lean_object* l_Lean_Parser_Term_simpleBinder___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_implicitBinder___closed__3; lean_object* l_Lean_Parser_Term_infixR(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_seqLeft___closed__3; lean_object* l_Lean_Parser_charLit___elambda__1(lean_object*, lean_object*); @@ -1572,6 +1590,7 @@ lean_object* l_Lean_Parser_Term_if___closed__5; lean_object* l_Lean_Parser_Term_type___elambda__1___closed__8; uint8_t lean_nat_dec_le(lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Term_subst(lean_object*); +lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_anonymousCtor___closed__7; lean_object* l_Lean_Parser_Term_structInstArrayRef___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_andthen___closed__2; @@ -1592,6 +1611,7 @@ lean_object* l_Lean_Parser_Term_inaccessible___closed__7; lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__12; lean_object* l_Lean_Parser_Term_let___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_type___elambda__1___closed__4; +lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1; lean_object* l_Lean_Parser_Term_infixL(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_anonymousCtor; lean_object* l_Lean_Parser_Term_dollarProj___closed__4; @@ -1643,6 +1663,7 @@ lean_object* l_Lean_Parser_darrow___closed__2; lean_object* l_Lean_Parser_Term_typeSpec___closed__5; lean_object* l_Lean_Parser_Term_structInstField___closed__6; lean_object* l_Lean_Parser_Term_show___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__13; lean_object* l_Lean_Parser_Term_emptyC___elambda__1___closed__6; lean_object* l___regBuiltinParser_Lean_Parser_Term_uminus(lean_object*); lean_object* l_Lean_Parser_Term_instBinder___elambda__1___closed__3; @@ -1663,6 +1684,7 @@ lean_object* l_Lean_Parser_Term_tacticBlock___closed__8; lean_object* l_Lean_Parser_symbolInfo(lean_object*); lean_object* l_Lean_Parser_Term_match___closed__9; lean_object* l_Lean_Parser_Term_tupleTail___closed__5; +lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__19; lean_object* l_Lean_Parser_Term_mapRev___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_add___closed__4; lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_subst___elambda__1___spec__2(uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); @@ -1879,6 +1901,7 @@ lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__12; lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_parser_x21___closed__4; lean_object* l_Lean_Parser_Term_orelse___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_matchDiscr; lean_object* l___regBuiltinParser_Lean_Parser_Term_div(lean_object*); lean_object* l_Lean_Parser_Term_subtype___closed__9; lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_tupleTail___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -1899,6 +1922,7 @@ lean_object* l_Lean_Parser_Term_inaccessible___elambda__1___closed__6; lean_object* l_Lean_Parser_Tactic_seq___closed__1; lean_object* l_Lean_Parser_nameLit___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_tacticBlock___closed__6; +extern lean_object* l_Lean_Parser_mkAntiquot___closed__6; lean_object* l_Lean_Parser_Term_levelStxQuot; lean_object* l_Lean_Parser_Term_equiv___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_letPatDecl___elambda__1(lean_object*, lean_object*); @@ -2000,6 +2024,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_hole(lean_object*); lean_object* l_Lean_Parser_Term_iff___closed__2; lean_object* l_Lean_Parser_Term_orelse___closed__4; lean_object* l_Lean_Parser_Term_if___elambda__1___closed__12; +lean_object* l_Lean_Parser_Term_matchAlts___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_subst___closed__7; lean_object* l_Lean_Parser_Term_structInstArrayRef___elambda__1___closed__9; lean_object* l_Lean_Parser_sepByFn___at_Lean_Parser_Term_structInst___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*); @@ -2046,6 +2071,7 @@ lean_object* l_Lean_Parser_Term_sort___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_eq___closed__3; lean_object* l_Lean_Parser_Term_add; lean_object* l_Lean_Parser_Term_inaccessible___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_matchAlts___closed__7; lean_object* l_Lean_Parser_Term_namedPattern___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_anonymousCtor___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_proj___elambda__1(lean_object*, lean_object*); @@ -2111,6 +2137,7 @@ lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_bindOp___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_byTactic___closed__2; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_structInstLVal___elambda__1___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_do___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_letDecl___closed__3; lean_object* l_Lean_Parser_Term_namedHole___elambda__1___closed__4; @@ -2210,7 +2237,6 @@ lean_object* l_Lean_Parser_Term_typeSpec___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_tacticBlock___elambda__1___closed__14; lean_object* l_Lean_Parser_Term_hole___closed__1; lean_object* l_Lean_Parser_Term_type___closed__9; -lean_object* l_Lean_Parser_Term_match___elambda__1___closed__13; lean_object* l_Lean_Parser_Term_letEqnsDecl___closed__4; lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Tactic_seq___elambda__1___spec__2___closed__4; lean_object* l_Lean_Parser_Term_prop___elambda__1(lean_object*, lean_object*); @@ -2827,7 +2853,7 @@ lean_object* _init_l_Lean_Parser_darrow___elambda__1___closed__1() { _start: { lean_object* x_1; -x_1 = lean_mk_string("=>"); +x_1 = lean_mk_string(" => "); return x_1; } } @@ -5959,68 +5985,68 @@ x_8 = lean_ctor_get(x_7, 3); lean_inc(x_8); if (lean_obj_tag(x_8) == 0) { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_52; lean_object* x_53; lean_object* x_54; +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_66; lean_object* x_67; lean_object* x_68; x_9 = lean_ctor_get(x_7, 0); lean_inc(x_9); x_10 = lean_array_get_size(x_9); lean_dec(x_9); -x_52 = lean_ctor_get(x_7, 1); -lean_inc(x_52); +x_66 = lean_ctor_get(x_7, 1); +lean_inc(x_66); lean_inc(x_1); -x_53 = l_Lean_Parser_tokenFn(x_1, x_7); -x_54 = lean_ctor_get(x_53, 3); -lean_inc(x_54); -if (lean_obj_tag(x_54) == 0) +x_67 = l_Lean_Parser_tokenFn(x_1, x_7); +x_68 = lean_ctor_get(x_67, 3); +lean_inc(x_68); +if (lean_obj_tag(x_68) == 0) { -lean_object* x_55; lean_object* x_56; -x_55 = lean_ctor_get(x_53, 0); -lean_inc(x_55); -x_56 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_55); -lean_dec(x_55); -if (lean_obj_tag(x_56) == 2) +lean_object* x_69; lean_object* x_70; +x_69 = lean_ctor_get(x_67, 0); +lean_inc(x_69); +x_70 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_69); +lean_dec(x_69); +if (lean_obj_tag(x_70) == 2) { -lean_object* x_57; lean_object* x_58; uint8_t x_59; -x_57 = lean_ctor_get(x_56, 1); -lean_inc(x_57); -lean_dec(x_56); -x_58 = l_Lean_Parser_Term_type___elambda__1___closed__6; -x_59 = lean_string_dec_eq(x_57, x_58); -lean_dec(x_57); -if (x_59 == 0) +lean_object* x_71; lean_object* x_72; uint8_t x_73; +x_71 = lean_ctor_get(x_70, 1); +lean_inc(x_71); +lean_dec(x_70); +x_72 = l_Lean_Parser_Term_type___elambda__1___closed__6; +x_73 = lean_string_dec_eq(x_71, x_72); +lean_dec(x_71); +if (x_73 == 0) { -lean_object* x_60; lean_object* x_61; -x_60 = l_Lean_Parser_Term_type___elambda__1___closed__9; -x_61 = l_Lean_Parser_ParserState_mkErrorsAt(x_53, x_60, x_52); -x_11 = x_61; -goto block_51; +lean_object* x_74; lean_object* x_75; +x_74 = l_Lean_Parser_Term_type___elambda__1___closed__9; +x_75 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_74, x_66); +x_11 = x_75; +goto block_65; } else { -lean_dec(x_52); -x_11 = x_53; -goto block_51; +lean_dec(x_66); +x_11 = x_67; +goto block_65; } } else { -lean_object* x_62; lean_object* x_63; -lean_dec(x_56); -x_62 = l_Lean_Parser_Term_type___elambda__1___closed__9; -x_63 = l_Lean_Parser_ParserState_mkErrorsAt(x_53, x_62, x_52); -x_11 = x_63; -goto block_51; +lean_object* x_76; lean_object* x_77; +lean_dec(x_70); +x_76 = l_Lean_Parser_Term_type___elambda__1___closed__9; +x_77 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_76, x_66); +x_11 = x_77; +goto block_65; } } else { -lean_object* x_64; lean_object* x_65; -lean_dec(x_54); -x_64 = l_Lean_Parser_Term_type___elambda__1___closed__9; -x_65 = l_Lean_Parser_ParserState_mkErrorsAt(x_53, x_64, x_52); -x_11 = x_65; -goto block_51; +lean_object* x_78; lean_object* x_79; +lean_dec(x_68); +x_78 = l_Lean_Parser_Term_type___elambda__1___closed__9; +x_79 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_78, x_66); +x_11 = x_79; +goto block_65; } -block_51: +block_65: { lean_object* x_12; x_12 = lean_ctor_get(x_11, 3); @@ -6034,97 +6060,135 @@ x_14 = lean_array_get_size(x_13); lean_dec(x_13); x_15 = lean_ctor_get(x_11, 1); lean_inc(x_15); -x_16 = l_Lean_Parser_Term_leadPrec___closed__1; -x_17 = l_Lean_Parser_checkPrecFn(x_16, x_1, x_11); +x_16 = l_String_splitAux___main___closed__1; +x_17 = l_Lean_Parser_checkWsBeforeFn(x_16, x_1, x_11); x_18 = lean_ctor_get(x_17, 3); lean_inc(x_18); if (lean_obj_tag(x_18) == 0) { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; -x_20 = l_Lean_Parser_maxPrec; -x_21 = l_Lean_Parser_categoryParser___elambda__1(x_19, x_20, x_1, x_17); -x_22 = lean_ctor_get(x_21, 3); -lean_inc(x_22); -if (lean_obj_tag(x_22) == 0) +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = l_Lean_Parser_Term_leadPrec___closed__1; +x_20 = l_Lean_Parser_checkPrecFn(x_19, x_1, x_17); +x_21 = lean_ctor_get(x_20, 3); +lean_inc(x_21); +if (lean_obj_tag(x_21) == 0) { -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_22 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; +x_23 = l_Lean_Parser_maxPrec; +x_24 = l_Lean_Parser_categoryParser___elambda__1(x_22, x_23, x_1, x_20); +x_25 = lean_ctor_get(x_24, 3); +lean_inc(x_25); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_dec(x_15); -x_23 = l_Lean_nullKind; -x_24 = l_Lean_Parser_ParserState_mkNode(x_21, x_23, x_14); -x_25 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_26 = l_Lean_Parser_ParserState_mkNode(x_24, x_25, x_10); -return x_26; +x_26 = l_Lean_nullKind; +x_27 = l_Lean_Parser_ParserState_mkNode(x_24, x_26, x_14); +x_28 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_29 = l_Lean_Parser_ParserState_mkNode(x_27, x_28, x_10); +return x_29; } else { -lean_object* x_27; uint8_t x_28; -lean_dec(x_22); -x_27 = lean_ctor_get(x_21, 1); -lean_inc(x_27); -x_28 = lean_nat_dec_eq(x_27, x_15); -lean_dec(x_27); -if (x_28 == 0) +lean_object* x_30; uint8_t x_31; +lean_dec(x_25); +x_30 = lean_ctor_get(x_24, 1); +lean_inc(x_30); +x_31 = lean_nat_dec_eq(x_30, x_15); +lean_dec(x_30); +if (x_31 == 0) { -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_dec(x_15); -x_29 = l_Lean_nullKind; -x_30 = l_Lean_Parser_ParserState_mkNode(x_21, x_29, x_14); -x_31 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_10); -return x_32; +x_32 = l_Lean_nullKind; +x_33 = l_Lean_Parser_ParserState_mkNode(x_24, x_32, x_14); +x_34 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_35 = l_Lean_Parser_ParserState_mkNode(x_33, x_34, x_10); +return x_35; } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_33 = l_Lean_Parser_ParserState_restore(x_21, x_14, x_15); -x_34 = l_Lean_nullKind; -x_35 = l_Lean_Parser_ParserState_mkNode(x_33, x_34, x_14); -x_36 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_37 = l_Lean_Parser_ParserState_mkNode(x_35, x_36, x_10); -return x_37; +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_36 = l_Lean_Parser_ParserState_restore(x_24, x_14, x_15); +x_37 = l_Lean_nullKind; +x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_14); +x_39 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_40 = l_Lean_Parser_ParserState_mkNode(x_38, x_39, x_10); +return x_40; } } } else { -lean_object* x_38; uint8_t x_39; +lean_object* x_41; uint8_t x_42; +lean_dec(x_21); +lean_dec(x_1); +x_41 = lean_ctor_get(x_20, 1); +lean_inc(x_41); +x_42 = lean_nat_dec_eq(x_41, x_15); +lean_dec(x_41); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +lean_dec(x_15); +x_43 = l_Lean_nullKind; +x_44 = l_Lean_Parser_ParserState_mkNode(x_20, x_43, x_14); +x_45 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_46 = l_Lean_Parser_ParserState_mkNode(x_44, x_45, x_10); +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 = l_Lean_Parser_ParserState_restore(x_20, x_14, x_15); +x_48 = l_Lean_nullKind; +x_49 = l_Lean_Parser_ParserState_mkNode(x_47, x_48, x_14); +x_50 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_51 = l_Lean_Parser_ParserState_mkNode(x_49, x_50, x_10); +return x_51; +} +} +} +else +{ +lean_object* x_52; uint8_t x_53; lean_dec(x_18); lean_dec(x_1); -x_38 = lean_ctor_get(x_17, 1); -lean_inc(x_38); -x_39 = lean_nat_dec_eq(x_38, x_15); -lean_dec(x_38); -if (x_39 == 0) +x_52 = lean_ctor_get(x_17, 1); +lean_inc(x_52); +x_53 = lean_nat_dec_eq(x_52, x_15); +lean_dec(x_52); +if (x_53 == 0) { -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_dec(x_15); -x_40 = l_Lean_nullKind; -x_41 = l_Lean_Parser_ParserState_mkNode(x_17, x_40, x_14); -x_42 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_43 = l_Lean_Parser_ParserState_mkNode(x_41, x_42, x_10); -return x_43; +x_54 = l_Lean_nullKind; +x_55 = l_Lean_Parser_ParserState_mkNode(x_17, x_54, x_14); +x_56 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_57 = l_Lean_Parser_ParserState_mkNode(x_55, x_56, x_10); +return x_57; } else { -lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; -x_44 = l_Lean_Parser_ParserState_restore(x_17, x_14, x_15); -x_45 = l_Lean_nullKind; -x_46 = l_Lean_Parser_ParserState_mkNode(x_44, x_45, x_14); -x_47 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_48 = l_Lean_Parser_ParserState_mkNode(x_46, x_47, x_10); -return x_48; +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_58 = l_Lean_Parser_ParserState_restore(x_17, x_14, x_15); +x_59 = l_Lean_nullKind; +x_60 = l_Lean_Parser_ParserState_mkNode(x_58, x_59, x_14); +x_61 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_62 = l_Lean_Parser_ParserState_mkNode(x_60, x_61, x_10); +return x_62; } } } else { -lean_object* x_49; lean_object* x_50; +lean_object* x_63; lean_object* x_64; lean_dec(x_12); lean_dec(x_1); -x_49 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_50 = l_Lean_Parser_ParserState_mkNode(x_11, x_49, x_10); -return x_50; +x_63 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_64 = l_Lean_Parser_ParserState_mkNode(x_11, x_63, x_10); +return x_64; } } } @@ -6137,243 +6201,285 @@ return x_7; } else { -lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_66 = lean_ctor_get(x_2, 0); -lean_inc(x_66); -x_67 = lean_array_get_size(x_66); -lean_dec(x_66); -x_68 = lean_ctor_get(x_2, 1); -lean_inc(x_68); -lean_inc(x_1); -x_69 = lean_apply_2(x_4, x_1, x_2); -x_70 = lean_ctor_get(x_69, 3); -lean_inc(x_70); -if (lean_obj_tag(x_70) == 0) -{ -lean_dec(x_68); -lean_dec(x_67); -lean_dec(x_1); -return x_69; -} -else -{ -lean_object* x_71; lean_object* x_72; uint8_t x_73; -x_71 = lean_ctor_get(x_70, 0); -lean_inc(x_71); -lean_dec(x_70); -x_72 = lean_ctor_get(x_69, 1); -lean_inc(x_72); -x_73 = lean_nat_dec_eq(x_72, x_68); -lean_dec(x_72); -if (x_73 == 0) -{ -lean_dec(x_71); -lean_dec(x_68); -lean_dec(x_67); -lean_dec(x_1); -return x_69; -} -else -{ -lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; -lean_inc(x_68); -x_74 = l_Lean_Parser_ParserState_restore(x_69, x_67, x_68); -lean_dec(x_67); -x_75 = lean_unsigned_to_nat(1024u); -x_76 = l_Lean_Parser_checkPrecFn(x_75, x_1, x_74); -x_77 = lean_ctor_get(x_76, 3); -lean_inc(x_77); -if (lean_obj_tag(x_77) == 0) -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_127; lean_object* x_128; lean_object* x_129; -x_78 = lean_ctor_get(x_76, 0); -lean_inc(x_78); -x_79 = lean_array_get_size(x_78); -lean_dec(x_78); -x_127 = lean_ctor_get(x_76, 1); -lean_inc(x_127); -lean_inc(x_1); -x_128 = l_Lean_Parser_tokenFn(x_1, x_76); -x_129 = lean_ctor_get(x_128, 3); -lean_inc(x_129); -if (lean_obj_tag(x_129) == 0) -{ -lean_object* x_130; lean_object* x_131; -x_130 = lean_ctor_get(x_128, 0); -lean_inc(x_130); -x_131 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_130); -lean_dec(x_130); -if (lean_obj_tag(x_131) == 2) -{ -lean_object* x_132; lean_object* x_133; uint8_t x_134; -x_132 = lean_ctor_get(x_131, 1); -lean_inc(x_132); -lean_dec(x_131); -x_133 = l_Lean_Parser_Term_type___elambda__1___closed__6; -x_134 = lean_string_dec_eq(x_132, x_133); -lean_dec(x_132); -if (x_134 == 0) -{ -lean_object* x_135; lean_object* x_136; -x_135 = l_Lean_Parser_Term_type___elambda__1___closed__9; -x_136 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_135, x_127); -x_80 = x_136; -goto block_126; -} -else -{ -lean_dec(x_127); -x_80 = x_128; -goto block_126; -} -} -else -{ -lean_object* x_137; lean_object* x_138; -lean_dec(x_131); -x_137 = l_Lean_Parser_Term_type___elambda__1___closed__9; -x_138 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_137, x_127); -x_80 = x_138; -goto block_126; -} -} -else -{ -lean_object* x_139; lean_object* x_140; -lean_dec(x_129); -x_139 = l_Lean_Parser_Term_type___elambda__1___closed__9; -x_140 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_139, x_127); -x_80 = x_140; -goto block_126; -} -block_126: -{ -lean_object* x_81; -x_81 = lean_ctor_get(x_80, 3); -lean_inc(x_81); -if (lean_obj_tag(x_81) == 0) -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; -x_82 = lean_ctor_get(x_80, 0); +lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_80 = lean_ctor_get(x_2, 0); +lean_inc(x_80); +x_81 = lean_array_get_size(x_80); +lean_dec(x_80); +x_82 = lean_ctor_get(x_2, 1); lean_inc(x_82); -x_83 = lean_array_get_size(x_82); -lean_dec(x_82); -x_84 = lean_ctor_get(x_80, 1); +lean_inc(x_1); +x_83 = lean_apply_2(x_4, x_1, x_2); +x_84 = lean_ctor_get(x_83, 3); lean_inc(x_84); -x_85 = l_Lean_Parser_Term_leadPrec___closed__1; -x_86 = l_Lean_Parser_checkPrecFn(x_85, x_1, x_80); -x_87 = lean_ctor_get(x_86, 3); -lean_inc(x_87); -if (lean_obj_tag(x_87) == 0) +if (lean_obj_tag(x_84) == 0) +{ +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_1); +return x_83; +} +else +{ +lean_object* x_85; lean_object* x_86; uint8_t x_87; +x_85 = lean_ctor_get(x_84, 0); +lean_inc(x_85); +lean_dec(x_84); +x_86 = lean_ctor_get(x_83, 1); +lean_inc(x_86); +x_87 = lean_nat_dec_eq(x_86, x_82); +lean_dec(x_86); +if (x_87 == 0) +{ +lean_dec(x_85); +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_1); +return x_83; +} +else { lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; -x_88 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; -x_89 = l_Lean_Parser_maxPrec; -x_90 = l_Lean_Parser_categoryParser___elambda__1(x_88, x_89, x_1, x_86); +lean_inc(x_82); +x_88 = l_Lean_Parser_ParserState_restore(x_83, x_81, x_82); +lean_dec(x_81); +x_89 = lean_unsigned_to_nat(1024u); +x_90 = l_Lean_Parser_checkPrecFn(x_89, x_1, x_88); x_91 = lean_ctor_get(x_90, 3); lean_inc(x_91); if (lean_obj_tag(x_91) == 0) { -lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; -lean_dec(x_84); -x_92 = l_Lean_nullKind; -x_93 = l_Lean_Parser_ParserState_mkNode(x_90, x_92, x_83); -x_94 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_95 = l_Lean_Parser_ParserState_mkNode(x_93, x_94, x_79); -x_96 = l_Lean_Parser_mergeOrElseErrors(x_95, x_71, x_68); -lean_dec(x_68); -return x_96; +lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_157; lean_object* x_158; lean_object* x_159; +x_92 = lean_ctor_get(x_90, 0); +lean_inc(x_92); +x_93 = lean_array_get_size(x_92); +lean_dec(x_92); +x_157 = lean_ctor_get(x_90, 1); +lean_inc(x_157); +lean_inc(x_1); +x_158 = l_Lean_Parser_tokenFn(x_1, x_90); +x_159 = lean_ctor_get(x_158, 3); +lean_inc(x_159); +if (lean_obj_tag(x_159) == 0) +{ +lean_object* x_160; lean_object* x_161; +x_160 = lean_ctor_get(x_158, 0); +lean_inc(x_160); +x_161 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_160); +lean_dec(x_160); +if (lean_obj_tag(x_161) == 2) +{ +lean_object* x_162; lean_object* x_163; uint8_t x_164; +x_162 = lean_ctor_get(x_161, 1); +lean_inc(x_162); +lean_dec(x_161); +x_163 = l_Lean_Parser_Term_type___elambda__1___closed__6; +x_164 = lean_string_dec_eq(x_162, x_163); +lean_dec(x_162); +if (x_164 == 0) +{ +lean_object* x_165; lean_object* x_166; +x_165 = l_Lean_Parser_Term_type___elambda__1___closed__9; +x_166 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_165, x_157); +x_94 = x_166; +goto block_156; } else { -lean_object* x_97; uint8_t x_98; +lean_dec(x_157); +x_94 = x_158; +goto block_156; +} +} +else +{ +lean_object* x_167; lean_object* x_168; +lean_dec(x_161); +x_167 = l_Lean_Parser_Term_type___elambda__1___closed__9; +x_168 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_167, x_157); +x_94 = x_168; +goto block_156; +} +} +else +{ +lean_object* x_169; lean_object* x_170; +lean_dec(x_159); +x_169 = l_Lean_Parser_Term_type___elambda__1___closed__9; +x_170 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_169, x_157); +x_94 = x_170; +goto block_156; +} +block_156: +{ +lean_object* x_95; +x_95 = lean_ctor_get(x_94, 3); +lean_inc(x_95); +if (lean_obj_tag(x_95) == 0) +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_96 = lean_ctor_get(x_94, 0); +lean_inc(x_96); +x_97 = lean_array_get_size(x_96); +lean_dec(x_96); +x_98 = lean_ctor_get(x_94, 1); +lean_inc(x_98); +x_99 = l_String_splitAux___main___closed__1; +x_100 = l_Lean_Parser_checkWsBeforeFn(x_99, x_1, x_94); +x_101 = lean_ctor_get(x_100, 3); +lean_inc(x_101); +if (lean_obj_tag(x_101) == 0) +{ +lean_object* x_102; lean_object* x_103; lean_object* x_104; +x_102 = l_Lean_Parser_Term_leadPrec___closed__1; +x_103 = l_Lean_Parser_checkPrecFn(x_102, x_1, x_100); +x_104 = lean_ctor_get(x_103, 3); +lean_inc(x_104); +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 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; +x_106 = l_Lean_Parser_maxPrec; +x_107 = l_Lean_Parser_categoryParser___elambda__1(x_105, x_106, x_1, x_103); +x_108 = lean_ctor_get(x_107, 3); +lean_inc(x_108); +if (lean_obj_tag(x_108) == 0) +{ +lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +lean_dec(x_98); +x_109 = l_Lean_nullKind; +x_110 = l_Lean_Parser_ParserState_mkNode(x_107, x_109, x_97); +x_111 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_112 = l_Lean_Parser_ParserState_mkNode(x_110, x_111, x_93); +x_113 = l_Lean_Parser_mergeOrElseErrors(x_112, x_85, x_82); +lean_dec(x_82); +return x_113; +} +else +{ +lean_object* x_114; uint8_t x_115; +lean_dec(x_108); +x_114 = lean_ctor_get(x_107, 1); +lean_inc(x_114); +x_115 = lean_nat_dec_eq(x_114, x_98); +lean_dec(x_114); +if (x_115 == 0) +{ +lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; +lean_dec(x_98); +x_116 = l_Lean_nullKind; +x_117 = l_Lean_Parser_ParserState_mkNode(x_107, x_116, x_97); +x_118 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_119 = l_Lean_Parser_ParserState_mkNode(x_117, x_118, x_93); +x_120 = l_Lean_Parser_mergeOrElseErrors(x_119, x_85, x_82); +lean_dec(x_82); +return x_120; +} +else +{ +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_121 = l_Lean_Parser_ParserState_restore(x_107, x_97, x_98); +x_122 = l_Lean_nullKind; +x_123 = l_Lean_Parser_ParserState_mkNode(x_121, x_122, x_97); +x_124 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_125 = l_Lean_Parser_ParserState_mkNode(x_123, x_124, x_93); +x_126 = l_Lean_Parser_mergeOrElseErrors(x_125, x_85, x_82); +lean_dec(x_82); +return x_126; +} +} +} +else +{ +lean_object* x_127; uint8_t x_128; +lean_dec(x_104); +lean_dec(x_1); +x_127 = lean_ctor_get(x_103, 1); +lean_inc(x_127); +x_128 = lean_nat_dec_eq(x_127, x_98); +lean_dec(x_127); +if (x_128 == 0) +{ +lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +lean_dec(x_98); +x_129 = l_Lean_nullKind; +x_130 = l_Lean_Parser_ParserState_mkNode(x_103, x_129, x_97); +x_131 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_132 = l_Lean_Parser_ParserState_mkNode(x_130, x_131, x_93); +x_133 = l_Lean_Parser_mergeOrElseErrors(x_132, x_85, x_82); +lean_dec(x_82); +return x_133; +} +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; +x_134 = l_Lean_Parser_ParserState_restore(x_103, x_97, x_98); +x_135 = l_Lean_nullKind; +x_136 = l_Lean_Parser_ParserState_mkNode(x_134, x_135, x_97); +x_137 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_138 = l_Lean_Parser_ParserState_mkNode(x_136, x_137, x_93); +x_139 = l_Lean_Parser_mergeOrElseErrors(x_138, x_85, x_82); +lean_dec(x_82); +return x_139; +} +} +} +else +{ +lean_object* x_140; uint8_t x_141; +lean_dec(x_101); +lean_dec(x_1); +x_140 = lean_ctor_get(x_100, 1); +lean_inc(x_140); +x_141 = lean_nat_dec_eq(x_140, x_98); +lean_dec(x_140); +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_dec(x_98); +x_142 = l_Lean_nullKind; +x_143 = l_Lean_Parser_ParserState_mkNode(x_100, x_142, x_97); +x_144 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_145 = l_Lean_Parser_ParserState_mkNode(x_143, x_144, x_93); +x_146 = l_Lean_Parser_mergeOrElseErrors(x_145, x_85, x_82); +lean_dec(x_82); +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; +x_147 = l_Lean_Parser_ParserState_restore(x_100, x_97, x_98); +x_148 = l_Lean_nullKind; +x_149 = l_Lean_Parser_ParserState_mkNode(x_147, x_148, x_97); +x_150 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_151 = l_Lean_Parser_ParserState_mkNode(x_149, x_150, x_93); +x_152 = l_Lean_Parser_mergeOrElseErrors(x_151, x_85, x_82); +lean_dec(x_82); +return x_152; +} +} +} +else +{ +lean_object* x_153; lean_object* x_154; lean_object* x_155; +lean_dec(x_95); +lean_dec(x_1); +x_153 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_154 = l_Lean_Parser_ParserState_mkNode(x_94, x_153, x_93); +x_155 = l_Lean_Parser_mergeOrElseErrors(x_154, x_85, x_82); +lean_dec(x_82); +return x_155; +} +} +} +else +{ +lean_object* x_171; lean_dec(x_91); -x_97 = lean_ctor_get(x_90, 1); -lean_inc(x_97); -x_98 = lean_nat_dec_eq(x_97, x_84); -lean_dec(x_97); -if (x_98 == 0) -{ -lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; -lean_dec(x_84); -x_99 = l_Lean_nullKind; -x_100 = l_Lean_Parser_ParserState_mkNode(x_90, x_99, x_83); -x_101 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_102 = l_Lean_Parser_ParserState_mkNode(x_100, x_101, x_79); -x_103 = l_Lean_Parser_mergeOrElseErrors(x_102, x_71, x_68); -lean_dec(x_68); -return x_103; -} -else -{ -lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; -x_104 = l_Lean_Parser_ParserState_restore(x_90, x_83, x_84); -x_105 = l_Lean_nullKind; -x_106 = l_Lean_Parser_ParserState_mkNode(x_104, x_105, x_83); -x_107 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_108 = l_Lean_Parser_ParserState_mkNode(x_106, x_107, x_79); -x_109 = l_Lean_Parser_mergeOrElseErrors(x_108, x_71, x_68); -lean_dec(x_68); -return x_109; -} -} -} -else -{ -lean_object* x_110; uint8_t x_111; -lean_dec(x_87); lean_dec(x_1); -x_110 = lean_ctor_get(x_86, 1); -lean_inc(x_110); -x_111 = lean_nat_dec_eq(x_110, x_84); -lean_dec(x_110); -if (x_111 == 0) -{ -lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; -lean_dec(x_84); -x_112 = l_Lean_nullKind; -x_113 = l_Lean_Parser_ParserState_mkNode(x_86, x_112, x_83); -x_114 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_115 = l_Lean_Parser_ParserState_mkNode(x_113, x_114, x_79); -x_116 = l_Lean_Parser_mergeOrElseErrors(x_115, x_71, x_68); -lean_dec(x_68); -return x_116; -} -else -{ -lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_117 = l_Lean_Parser_ParserState_restore(x_86, x_83, x_84); -x_118 = l_Lean_nullKind; -x_119 = l_Lean_Parser_ParserState_mkNode(x_117, x_118, x_83); -x_120 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_121 = l_Lean_Parser_ParserState_mkNode(x_119, x_120, x_79); -x_122 = l_Lean_Parser_mergeOrElseErrors(x_121, x_71, x_68); -lean_dec(x_68); -return x_122; -} -} -} -else -{ -lean_object* x_123; lean_object* x_124; lean_object* x_125; -lean_dec(x_81); -lean_dec(x_1); -x_123 = l_Lean_Parser_Term_type___elambda__1___closed__2; -x_124 = l_Lean_Parser_ParserState_mkNode(x_80, x_123, x_79); -x_125 = l_Lean_Parser_mergeOrElseErrors(x_124, x_71, x_68); -lean_dec(x_68); -return x_125; -} -} -} -else -{ -lean_object* x_141; -lean_dec(x_77); -lean_dec(x_1); -x_141 = l_Lean_Parser_mergeOrElseErrors(x_76, x_71, x_68); -lean_dec(x_68); -return x_141; +x_171 = l_Lean_Parser_mergeOrElseErrors(x_90, x_85, x_82); +lean_dec(x_82); +return x_171; } } } @@ -6404,29 +6510,29 @@ return x_4; lean_object* _init_l_Lean_Parser_Term_type___closed__3() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_type___closed__2; -x_2 = l_Lean_Parser_optionaInfo(x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_type___closed__2; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_Term_type___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_type___closed__1; -x_2 = l_Lean_Parser_Term_type___closed__3; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_type___closed__3; +x_2 = l_Lean_Parser_optionaInfo(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Term_type___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_type___elambda__1___closed__2; +x_1 = l_Lean_Parser_Term_type___closed__1; x_2 = l_Lean_Parser_Term_type___closed__4; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } } @@ -6434,25 +6540,35 @@ lean_object* _init_l_Lean_Parser_Term_type___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_epsilonInfo; +x_1 = l_Lean_Parser_Term_type___elambda__1___closed__2; x_2 = l_Lean_Parser_Term_type___closed__5; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } } lean_object* _init_l_Lean_Parser_Term_type___closed__7() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_type___closed__6; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_type___closed__8() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_type___elambda__1___closed__4; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_type___closed__6; +x_3 = l_Lean_Parser_Term_type___closed__7; x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); return x_4; } } -lean_object* _init_l_Lean_Parser_Term_type___closed__8() { +lean_object* _init_l_Lean_Parser_Term_type___closed__9() { _start: { lean_object* x_1; @@ -6460,12 +6576,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_type___elambda__1), 2, 0); return x_1; } } -lean_object* _init_l_Lean_Parser_Term_type___closed__9() { +lean_object* _init_l_Lean_Parser_Term_type___closed__10() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_type___closed__7; -x_2 = l_Lean_Parser_Term_type___closed__8; +x_1 = l_Lean_Parser_Term_type___closed__8; +x_2 = l_Lean_Parser_Term_type___closed__9; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -6476,7 +6592,7 @@ lean_object* _init_l_Lean_Parser_Term_type() { _start: { lean_object* x_1; -x_1 = l_Lean_Parser_Term_type___closed__9; +x_1 = l_Lean_Parser_Term_type___closed__10; return x_1; } } @@ -6600,68 +6716,68 @@ x_8 = lean_ctor_get(x_7, 3); lean_inc(x_8); if (lean_obj_tag(x_8) == 0) { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_52; lean_object* x_53; lean_object* x_54; +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_66; lean_object* x_67; lean_object* x_68; x_9 = lean_ctor_get(x_7, 0); lean_inc(x_9); x_10 = lean_array_get_size(x_9); lean_dec(x_9); -x_52 = lean_ctor_get(x_7, 1); -lean_inc(x_52); +x_66 = lean_ctor_get(x_7, 1); +lean_inc(x_66); lean_inc(x_1); -x_53 = l_Lean_Parser_tokenFn(x_1, x_7); -x_54 = lean_ctor_get(x_53, 3); -lean_inc(x_54); -if (lean_obj_tag(x_54) == 0) +x_67 = l_Lean_Parser_tokenFn(x_1, x_7); +x_68 = lean_ctor_get(x_67, 3); +lean_inc(x_68); +if (lean_obj_tag(x_68) == 0) { -lean_object* x_55; lean_object* x_56; -x_55 = lean_ctor_get(x_53, 0); -lean_inc(x_55); -x_56 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_55); -lean_dec(x_55); -if (lean_obj_tag(x_56) == 2) +lean_object* x_69; lean_object* x_70; +x_69 = lean_ctor_get(x_67, 0); +lean_inc(x_69); +x_70 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_69); +lean_dec(x_69); +if (lean_obj_tag(x_70) == 2) { -lean_object* x_57; lean_object* x_58; uint8_t x_59; -x_57 = lean_ctor_get(x_56, 1); -lean_inc(x_57); -lean_dec(x_56); -x_58 = l_Lean_Parser_Term_sort___elambda__1___closed__6; -x_59 = lean_string_dec_eq(x_57, x_58); -lean_dec(x_57); -if (x_59 == 0) +lean_object* x_71; lean_object* x_72; uint8_t x_73; +x_71 = lean_ctor_get(x_70, 1); +lean_inc(x_71); +lean_dec(x_70); +x_72 = l_Lean_Parser_Term_sort___elambda__1___closed__6; +x_73 = lean_string_dec_eq(x_71, x_72); +lean_dec(x_71); +if (x_73 == 0) { -lean_object* x_60; lean_object* x_61; -x_60 = l_Lean_Parser_Term_sort___elambda__1___closed__9; -x_61 = l_Lean_Parser_ParserState_mkErrorsAt(x_53, x_60, x_52); -x_11 = x_61; -goto block_51; +lean_object* x_74; lean_object* x_75; +x_74 = l_Lean_Parser_Term_sort___elambda__1___closed__9; +x_75 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_74, x_66); +x_11 = x_75; +goto block_65; } else { -lean_dec(x_52); -x_11 = x_53; -goto block_51; +lean_dec(x_66); +x_11 = x_67; +goto block_65; } } else { -lean_object* x_62; lean_object* x_63; -lean_dec(x_56); -x_62 = l_Lean_Parser_Term_sort___elambda__1___closed__9; -x_63 = l_Lean_Parser_ParserState_mkErrorsAt(x_53, x_62, x_52); -x_11 = x_63; -goto block_51; +lean_object* x_76; lean_object* x_77; +lean_dec(x_70); +x_76 = l_Lean_Parser_Term_sort___elambda__1___closed__9; +x_77 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_76, x_66); +x_11 = x_77; +goto block_65; } } else { -lean_object* x_64; lean_object* x_65; -lean_dec(x_54); -x_64 = l_Lean_Parser_Term_sort___elambda__1___closed__9; -x_65 = l_Lean_Parser_ParserState_mkErrorsAt(x_53, x_64, x_52); -x_11 = x_65; -goto block_51; +lean_object* x_78; lean_object* x_79; +lean_dec(x_68); +x_78 = l_Lean_Parser_Term_sort___elambda__1___closed__9; +x_79 = l_Lean_Parser_ParserState_mkErrorsAt(x_67, x_78, x_66); +x_11 = x_79; +goto block_65; } -block_51: +block_65: { lean_object* x_12; x_12 = lean_ctor_get(x_11, 3); @@ -6675,97 +6791,135 @@ x_14 = lean_array_get_size(x_13); lean_dec(x_13); x_15 = lean_ctor_get(x_11, 1); lean_inc(x_15); -x_16 = l_Lean_Parser_Term_leadPrec___closed__1; -x_17 = l_Lean_Parser_checkPrecFn(x_16, x_1, x_11); +x_16 = l_String_splitAux___main___closed__1; +x_17 = l_Lean_Parser_checkWsBeforeFn(x_16, x_1, x_11); x_18 = lean_ctor_get(x_17, 3); lean_inc(x_18); if (lean_obj_tag(x_18) == 0) { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; -x_20 = l_Lean_Parser_maxPrec; -x_21 = l_Lean_Parser_categoryParser___elambda__1(x_19, x_20, x_1, x_17); -x_22 = lean_ctor_get(x_21, 3); -lean_inc(x_22); -if (lean_obj_tag(x_22) == 0) +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = l_Lean_Parser_Term_leadPrec___closed__1; +x_20 = l_Lean_Parser_checkPrecFn(x_19, x_1, x_17); +x_21 = lean_ctor_get(x_20, 3); +lean_inc(x_21); +if (lean_obj_tag(x_21) == 0) { -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_22 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; +x_23 = l_Lean_Parser_maxPrec; +x_24 = l_Lean_Parser_categoryParser___elambda__1(x_22, x_23, x_1, x_20); +x_25 = lean_ctor_get(x_24, 3); +lean_inc(x_25); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_dec(x_15); -x_23 = l_Lean_nullKind; -x_24 = l_Lean_Parser_ParserState_mkNode(x_21, x_23, x_14); -x_25 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_26 = l_Lean_Parser_ParserState_mkNode(x_24, x_25, x_10); -return x_26; +x_26 = l_Lean_nullKind; +x_27 = l_Lean_Parser_ParserState_mkNode(x_24, x_26, x_14); +x_28 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_29 = l_Lean_Parser_ParserState_mkNode(x_27, x_28, x_10); +return x_29; } else { -lean_object* x_27; uint8_t x_28; -lean_dec(x_22); -x_27 = lean_ctor_get(x_21, 1); -lean_inc(x_27); -x_28 = lean_nat_dec_eq(x_27, x_15); -lean_dec(x_27); -if (x_28 == 0) +lean_object* x_30; uint8_t x_31; +lean_dec(x_25); +x_30 = lean_ctor_get(x_24, 1); +lean_inc(x_30); +x_31 = lean_nat_dec_eq(x_30, x_15); +lean_dec(x_30); +if (x_31 == 0) { -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_dec(x_15); -x_29 = l_Lean_nullKind; -x_30 = l_Lean_Parser_ParserState_mkNode(x_21, x_29, x_14); -x_31 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_10); -return x_32; +x_32 = l_Lean_nullKind; +x_33 = l_Lean_Parser_ParserState_mkNode(x_24, x_32, x_14); +x_34 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_35 = l_Lean_Parser_ParserState_mkNode(x_33, x_34, x_10); +return x_35; } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_33 = l_Lean_Parser_ParserState_restore(x_21, x_14, x_15); -x_34 = l_Lean_nullKind; -x_35 = l_Lean_Parser_ParserState_mkNode(x_33, x_34, x_14); -x_36 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_37 = l_Lean_Parser_ParserState_mkNode(x_35, x_36, x_10); -return x_37; +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_36 = l_Lean_Parser_ParserState_restore(x_24, x_14, x_15); +x_37 = l_Lean_nullKind; +x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_14); +x_39 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_40 = l_Lean_Parser_ParserState_mkNode(x_38, x_39, x_10); +return x_40; } } } else { -lean_object* x_38; uint8_t x_39; +lean_object* x_41; uint8_t x_42; +lean_dec(x_21); +lean_dec(x_1); +x_41 = lean_ctor_get(x_20, 1); +lean_inc(x_41); +x_42 = lean_nat_dec_eq(x_41, x_15); +lean_dec(x_41); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +lean_dec(x_15); +x_43 = l_Lean_nullKind; +x_44 = l_Lean_Parser_ParserState_mkNode(x_20, x_43, x_14); +x_45 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_46 = l_Lean_Parser_ParserState_mkNode(x_44, x_45, x_10); +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 = l_Lean_Parser_ParserState_restore(x_20, x_14, x_15); +x_48 = l_Lean_nullKind; +x_49 = l_Lean_Parser_ParserState_mkNode(x_47, x_48, x_14); +x_50 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_51 = l_Lean_Parser_ParserState_mkNode(x_49, x_50, x_10); +return x_51; +} +} +} +else +{ +lean_object* x_52; uint8_t x_53; lean_dec(x_18); lean_dec(x_1); -x_38 = lean_ctor_get(x_17, 1); -lean_inc(x_38); -x_39 = lean_nat_dec_eq(x_38, x_15); -lean_dec(x_38); -if (x_39 == 0) +x_52 = lean_ctor_get(x_17, 1); +lean_inc(x_52); +x_53 = lean_nat_dec_eq(x_52, x_15); +lean_dec(x_52); +if (x_53 == 0) { -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_dec(x_15); -x_40 = l_Lean_nullKind; -x_41 = l_Lean_Parser_ParserState_mkNode(x_17, x_40, x_14); -x_42 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_43 = l_Lean_Parser_ParserState_mkNode(x_41, x_42, x_10); -return x_43; +x_54 = l_Lean_nullKind; +x_55 = l_Lean_Parser_ParserState_mkNode(x_17, x_54, x_14); +x_56 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_57 = l_Lean_Parser_ParserState_mkNode(x_55, x_56, x_10); +return x_57; } else { -lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; -x_44 = l_Lean_Parser_ParserState_restore(x_17, x_14, x_15); -x_45 = l_Lean_nullKind; -x_46 = l_Lean_Parser_ParserState_mkNode(x_44, x_45, x_14); -x_47 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_48 = l_Lean_Parser_ParserState_mkNode(x_46, x_47, x_10); -return x_48; +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_58 = l_Lean_Parser_ParserState_restore(x_17, x_14, x_15); +x_59 = l_Lean_nullKind; +x_60 = l_Lean_Parser_ParserState_mkNode(x_58, x_59, x_14); +x_61 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_62 = l_Lean_Parser_ParserState_mkNode(x_60, x_61, x_10); +return x_62; } } } else { -lean_object* x_49; lean_object* x_50; +lean_object* x_63; lean_object* x_64; lean_dec(x_12); lean_dec(x_1); -x_49 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_50 = l_Lean_Parser_ParserState_mkNode(x_11, x_49, x_10); -return x_50; +x_63 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_64 = l_Lean_Parser_ParserState_mkNode(x_11, x_63, x_10); +return x_64; } } } @@ -6778,243 +6932,285 @@ return x_7; } else { -lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_66 = lean_ctor_get(x_2, 0); -lean_inc(x_66); -x_67 = lean_array_get_size(x_66); -lean_dec(x_66); -x_68 = lean_ctor_get(x_2, 1); -lean_inc(x_68); -lean_inc(x_1); -x_69 = lean_apply_2(x_4, x_1, x_2); -x_70 = lean_ctor_get(x_69, 3); -lean_inc(x_70); -if (lean_obj_tag(x_70) == 0) -{ -lean_dec(x_68); -lean_dec(x_67); -lean_dec(x_1); -return x_69; -} -else -{ -lean_object* x_71; lean_object* x_72; uint8_t x_73; -x_71 = lean_ctor_get(x_70, 0); -lean_inc(x_71); -lean_dec(x_70); -x_72 = lean_ctor_get(x_69, 1); -lean_inc(x_72); -x_73 = lean_nat_dec_eq(x_72, x_68); -lean_dec(x_72); -if (x_73 == 0) -{ -lean_dec(x_71); -lean_dec(x_68); -lean_dec(x_67); -lean_dec(x_1); -return x_69; -} -else -{ -lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; -lean_inc(x_68); -x_74 = l_Lean_Parser_ParserState_restore(x_69, x_67, x_68); -lean_dec(x_67); -x_75 = lean_unsigned_to_nat(1024u); -x_76 = l_Lean_Parser_checkPrecFn(x_75, x_1, x_74); -x_77 = lean_ctor_get(x_76, 3); -lean_inc(x_77); -if (lean_obj_tag(x_77) == 0) -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_127; lean_object* x_128; lean_object* x_129; -x_78 = lean_ctor_get(x_76, 0); -lean_inc(x_78); -x_79 = lean_array_get_size(x_78); -lean_dec(x_78); -x_127 = lean_ctor_get(x_76, 1); -lean_inc(x_127); -lean_inc(x_1); -x_128 = l_Lean_Parser_tokenFn(x_1, x_76); -x_129 = lean_ctor_get(x_128, 3); -lean_inc(x_129); -if (lean_obj_tag(x_129) == 0) -{ -lean_object* x_130; lean_object* x_131; -x_130 = lean_ctor_get(x_128, 0); -lean_inc(x_130); -x_131 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_130); -lean_dec(x_130); -if (lean_obj_tag(x_131) == 2) -{ -lean_object* x_132; lean_object* x_133; uint8_t x_134; -x_132 = lean_ctor_get(x_131, 1); -lean_inc(x_132); -lean_dec(x_131); -x_133 = l_Lean_Parser_Term_sort___elambda__1___closed__6; -x_134 = lean_string_dec_eq(x_132, x_133); -lean_dec(x_132); -if (x_134 == 0) -{ -lean_object* x_135; lean_object* x_136; -x_135 = l_Lean_Parser_Term_sort___elambda__1___closed__9; -x_136 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_135, x_127); -x_80 = x_136; -goto block_126; -} -else -{ -lean_dec(x_127); -x_80 = x_128; -goto block_126; -} -} -else -{ -lean_object* x_137; lean_object* x_138; -lean_dec(x_131); -x_137 = l_Lean_Parser_Term_sort___elambda__1___closed__9; -x_138 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_137, x_127); -x_80 = x_138; -goto block_126; -} -} -else -{ -lean_object* x_139; lean_object* x_140; -lean_dec(x_129); -x_139 = l_Lean_Parser_Term_sort___elambda__1___closed__9; -x_140 = l_Lean_Parser_ParserState_mkErrorsAt(x_128, x_139, x_127); -x_80 = x_140; -goto block_126; -} -block_126: -{ -lean_object* x_81; -x_81 = lean_ctor_get(x_80, 3); -lean_inc(x_81); -if (lean_obj_tag(x_81) == 0) -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; -x_82 = lean_ctor_get(x_80, 0); +lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_80 = lean_ctor_get(x_2, 0); +lean_inc(x_80); +x_81 = lean_array_get_size(x_80); +lean_dec(x_80); +x_82 = lean_ctor_get(x_2, 1); lean_inc(x_82); -x_83 = lean_array_get_size(x_82); -lean_dec(x_82); -x_84 = lean_ctor_get(x_80, 1); +lean_inc(x_1); +x_83 = lean_apply_2(x_4, x_1, x_2); +x_84 = lean_ctor_get(x_83, 3); lean_inc(x_84); -x_85 = l_Lean_Parser_Term_leadPrec___closed__1; -x_86 = l_Lean_Parser_checkPrecFn(x_85, x_1, x_80); -x_87 = lean_ctor_get(x_86, 3); -lean_inc(x_87); -if (lean_obj_tag(x_87) == 0) +if (lean_obj_tag(x_84) == 0) +{ +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_1); +return x_83; +} +else +{ +lean_object* x_85; lean_object* x_86; uint8_t x_87; +x_85 = lean_ctor_get(x_84, 0); +lean_inc(x_85); +lean_dec(x_84); +x_86 = lean_ctor_get(x_83, 1); +lean_inc(x_86); +x_87 = lean_nat_dec_eq(x_86, x_82); +lean_dec(x_86); +if (x_87 == 0) +{ +lean_dec(x_85); +lean_dec(x_82); +lean_dec(x_81); +lean_dec(x_1); +return x_83; +} +else { lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; -x_88 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; -x_89 = l_Lean_Parser_maxPrec; -x_90 = l_Lean_Parser_categoryParser___elambda__1(x_88, x_89, x_1, x_86); +lean_inc(x_82); +x_88 = l_Lean_Parser_ParserState_restore(x_83, x_81, x_82); +lean_dec(x_81); +x_89 = lean_unsigned_to_nat(1024u); +x_90 = l_Lean_Parser_checkPrecFn(x_89, x_1, x_88); x_91 = lean_ctor_get(x_90, 3); lean_inc(x_91); if (lean_obj_tag(x_91) == 0) { -lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; -lean_dec(x_84); -x_92 = l_Lean_nullKind; -x_93 = l_Lean_Parser_ParserState_mkNode(x_90, x_92, x_83); -x_94 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_95 = l_Lean_Parser_ParserState_mkNode(x_93, x_94, x_79); -x_96 = l_Lean_Parser_mergeOrElseErrors(x_95, x_71, x_68); -lean_dec(x_68); -return x_96; +lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_157; lean_object* x_158; lean_object* x_159; +x_92 = lean_ctor_get(x_90, 0); +lean_inc(x_92); +x_93 = lean_array_get_size(x_92); +lean_dec(x_92); +x_157 = lean_ctor_get(x_90, 1); +lean_inc(x_157); +lean_inc(x_1); +x_158 = l_Lean_Parser_tokenFn(x_1, x_90); +x_159 = lean_ctor_get(x_158, 3); +lean_inc(x_159); +if (lean_obj_tag(x_159) == 0) +{ +lean_object* x_160; lean_object* x_161; +x_160 = lean_ctor_get(x_158, 0); +lean_inc(x_160); +x_161 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_160); +lean_dec(x_160); +if (lean_obj_tag(x_161) == 2) +{ +lean_object* x_162; lean_object* x_163; uint8_t x_164; +x_162 = lean_ctor_get(x_161, 1); +lean_inc(x_162); +lean_dec(x_161); +x_163 = l_Lean_Parser_Term_sort___elambda__1___closed__6; +x_164 = lean_string_dec_eq(x_162, x_163); +lean_dec(x_162); +if (x_164 == 0) +{ +lean_object* x_165; lean_object* x_166; +x_165 = l_Lean_Parser_Term_sort___elambda__1___closed__9; +x_166 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_165, x_157); +x_94 = x_166; +goto block_156; } else { -lean_object* x_97; uint8_t x_98; +lean_dec(x_157); +x_94 = x_158; +goto block_156; +} +} +else +{ +lean_object* x_167; lean_object* x_168; +lean_dec(x_161); +x_167 = l_Lean_Parser_Term_sort___elambda__1___closed__9; +x_168 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_167, x_157); +x_94 = x_168; +goto block_156; +} +} +else +{ +lean_object* x_169; lean_object* x_170; +lean_dec(x_159); +x_169 = l_Lean_Parser_Term_sort___elambda__1___closed__9; +x_170 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_169, x_157); +x_94 = x_170; +goto block_156; +} +block_156: +{ +lean_object* x_95; +x_95 = lean_ctor_get(x_94, 3); +lean_inc(x_95); +if (lean_obj_tag(x_95) == 0) +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_96 = lean_ctor_get(x_94, 0); +lean_inc(x_96); +x_97 = lean_array_get_size(x_96); +lean_dec(x_96); +x_98 = lean_ctor_get(x_94, 1); +lean_inc(x_98); +x_99 = l_String_splitAux___main___closed__1; +x_100 = l_Lean_Parser_checkWsBeforeFn(x_99, x_1, x_94); +x_101 = lean_ctor_get(x_100, 3); +lean_inc(x_101); +if (lean_obj_tag(x_101) == 0) +{ +lean_object* x_102; lean_object* x_103; lean_object* x_104; +x_102 = l_Lean_Parser_Term_leadPrec___closed__1; +x_103 = l_Lean_Parser_checkPrecFn(x_102, x_1, x_100); +x_104 = lean_ctor_get(x_103, 3); +lean_inc(x_104); +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 = l_Lean_Parser_regBuiltinLevelParserAttr___closed__4; +x_106 = l_Lean_Parser_maxPrec; +x_107 = l_Lean_Parser_categoryParser___elambda__1(x_105, x_106, x_1, x_103); +x_108 = lean_ctor_get(x_107, 3); +lean_inc(x_108); +if (lean_obj_tag(x_108) == 0) +{ +lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +lean_dec(x_98); +x_109 = l_Lean_nullKind; +x_110 = l_Lean_Parser_ParserState_mkNode(x_107, x_109, x_97); +x_111 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_112 = l_Lean_Parser_ParserState_mkNode(x_110, x_111, x_93); +x_113 = l_Lean_Parser_mergeOrElseErrors(x_112, x_85, x_82); +lean_dec(x_82); +return x_113; +} +else +{ +lean_object* x_114; uint8_t x_115; +lean_dec(x_108); +x_114 = lean_ctor_get(x_107, 1); +lean_inc(x_114); +x_115 = lean_nat_dec_eq(x_114, x_98); +lean_dec(x_114); +if (x_115 == 0) +{ +lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; +lean_dec(x_98); +x_116 = l_Lean_nullKind; +x_117 = l_Lean_Parser_ParserState_mkNode(x_107, x_116, x_97); +x_118 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_119 = l_Lean_Parser_ParserState_mkNode(x_117, x_118, x_93); +x_120 = l_Lean_Parser_mergeOrElseErrors(x_119, x_85, x_82); +lean_dec(x_82); +return x_120; +} +else +{ +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_121 = l_Lean_Parser_ParserState_restore(x_107, x_97, x_98); +x_122 = l_Lean_nullKind; +x_123 = l_Lean_Parser_ParserState_mkNode(x_121, x_122, x_97); +x_124 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_125 = l_Lean_Parser_ParserState_mkNode(x_123, x_124, x_93); +x_126 = l_Lean_Parser_mergeOrElseErrors(x_125, x_85, x_82); +lean_dec(x_82); +return x_126; +} +} +} +else +{ +lean_object* x_127; uint8_t x_128; +lean_dec(x_104); +lean_dec(x_1); +x_127 = lean_ctor_get(x_103, 1); +lean_inc(x_127); +x_128 = lean_nat_dec_eq(x_127, x_98); +lean_dec(x_127); +if (x_128 == 0) +{ +lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +lean_dec(x_98); +x_129 = l_Lean_nullKind; +x_130 = l_Lean_Parser_ParserState_mkNode(x_103, x_129, x_97); +x_131 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_132 = l_Lean_Parser_ParserState_mkNode(x_130, x_131, x_93); +x_133 = l_Lean_Parser_mergeOrElseErrors(x_132, x_85, x_82); +lean_dec(x_82); +return x_133; +} +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; +x_134 = l_Lean_Parser_ParserState_restore(x_103, x_97, x_98); +x_135 = l_Lean_nullKind; +x_136 = l_Lean_Parser_ParserState_mkNode(x_134, x_135, x_97); +x_137 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_138 = l_Lean_Parser_ParserState_mkNode(x_136, x_137, x_93); +x_139 = l_Lean_Parser_mergeOrElseErrors(x_138, x_85, x_82); +lean_dec(x_82); +return x_139; +} +} +} +else +{ +lean_object* x_140; uint8_t x_141; +lean_dec(x_101); +lean_dec(x_1); +x_140 = lean_ctor_get(x_100, 1); +lean_inc(x_140); +x_141 = lean_nat_dec_eq(x_140, x_98); +lean_dec(x_140); +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_dec(x_98); +x_142 = l_Lean_nullKind; +x_143 = l_Lean_Parser_ParserState_mkNode(x_100, x_142, x_97); +x_144 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_145 = l_Lean_Parser_ParserState_mkNode(x_143, x_144, x_93); +x_146 = l_Lean_Parser_mergeOrElseErrors(x_145, x_85, x_82); +lean_dec(x_82); +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; +x_147 = l_Lean_Parser_ParserState_restore(x_100, x_97, x_98); +x_148 = l_Lean_nullKind; +x_149 = l_Lean_Parser_ParserState_mkNode(x_147, x_148, x_97); +x_150 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_151 = l_Lean_Parser_ParserState_mkNode(x_149, x_150, x_93); +x_152 = l_Lean_Parser_mergeOrElseErrors(x_151, x_85, x_82); +lean_dec(x_82); +return x_152; +} +} +} +else +{ +lean_object* x_153; lean_object* x_154; lean_object* x_155; +lean_dec(x_95); +lean_dec(x_1); +x_153 = l_Lean_Parser_Term_sort___elambda__1___closed__2; +x_154 = l_Lean_Parser_ParserState_mkNode(x_94, x_153, x_93); +x_155 = l_Lean_Parser_mergeOrElseErrors(x_154, x_85, x_82); +lean_dec(x_82); +return x_155; +} +} +} +else +{ +lean_object* x_171; lean_dec(x_91); -x_97 = lean_ctor_get(x_90, 1); -lean_inc(x_97); -x_98 = lean_nat_dec_eq(x_97, x_84); -lean_dec(x_97); -if (x_98 == 0) -{ -lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; -lean_dec(x_84); -x_99 = l_Lean_nullKind; -x_100 = l_Lean_Parser_ParserState_mkNode(x_90, x_99, x_83); -x_101 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_102 = l_Lean_Parser_ParserState_mkNode(x_100, x_101, x_79); -x_103 = l_Lean_Parser_mergeOrElseErrors(x_102, x_71, x_68); -lean_dec(x_68); -return x_103; -} -else -{ -lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; -x_104 = l_Lean_Parser_ParserState_restore(x_90, x_83, x_84); -x_105 = l_Lean_nullKind; -x_106 = l_Lean_Parser_ParserState_mkNode(x_104, x_105, x_83); -x_107 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_108 = l_Lean_Parser_ParserState_mkNode(x_106, x_107, x_79); -x_109 = l_Lean_Parser_mergeOrElseErrors(x_108, x_71, x_68); -lean_dec(x_68); -return x_109; -} -} -} -else -{ -lean_object* x_110; uint8_t x_111; -lean_dec(x_87); lean_dec(x_1); -x_110 = lean_ctor_get(x_86, 1); -lean_inc(x_110); -x_111 = lean_nat_dec_eq(x_110, x_84); -lean_dec(x_110); -if (x_111 == 0) -{ -lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; -lean_dec(x_84); -x_112 = l_Lean_nullKind; -x_113 = l_Lean_Parser_ParserState_mkNode(x_86, x_112, x_83); -x_114 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_115 = l_Lean_Parser_ParserState_mkNode(x_113, x_114, x_79); -x_116 = l_Lean_Parser_mergeOrElseErrors(x_115, x_71, x_68); -lean_dec(x_68); -return x_116; -} -else -{ -lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_117 = l_Lean_Parser_ParserState_restore(x_86, x_83, x_84); -x_118 = l_Lean_nullKind; -x_119 = l_Lean_Parser_ParserState_mkNode(x_117, x_118, x_83); -x_120 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_121 = l_Lean_Parser_ParserState_mkNode(x_119, x_120, x_79); -x_122 = l_Lean_Parser_mergeOrElseErrors(x_121, x_71, x_68); -lean_dec(x_68); -return x_122; -} -} -} -else -{ -lean_object* x_123; lean_object* x_124; lean_object* x_125; -lean_dec(x_81); -lean_dec(x_1); -x_123 = l_Lean_Parser_Term_sort___elambda__1___closed__2; -x_124 = l_Lean_Parser_ParserState_mkNode(x_80, x_123, x_79); -x_125 = l_Lean_Parser_mergeOrElseErrors(x_124, x_71, x_68); -lean_dec(x_68); -return x_125; -} -} -} -else -{ -lean_object* x_141; -lean_dec(x_77); -lean_dec(x_1); -x_141 = l_Lean_Parser_mergeOrElseErrors(x_76, x_71, x_68); -lean_dec(x_68); -return x_141; +x_171 = l_Lean_Parser_mergeOrElseErrors(x_90, x_85, x_82); +lean_dec(x_82); +return x_171; } } } @@ -7035,7 +7231,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_sort___closed__1; -x_2 = l_Lean_Parser_Term_type___closed__3; +x_2 = l_Lean_Parser_Term_type___closed__4; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } @@ -18246,30 +18442,38 @@ return x_4; lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_addParenHeuristic___closed__1; -x_2 = l_String_trim(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("{ "); +return x_1; } } lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__6() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("with"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_2 = l_String_trim(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__7() { _start: { +lean_object* x_1; +x_1 = lean_mk_string(" with "); +return x_1; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__8() { +_start: +{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__7; x_2 = l_String_trim(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__8() { +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__9() { _start: { lean_object* x_1; lean_object* x_2; @@ -18278,36 +18482,21 @@ x_2 = l_String_trim(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__9() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__10() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__9; -x_2 = l_Char_HasRepr___closed__1; -x_3 = lean_string_append(x_1, x_2); -return x_3; +lean_object* x_1; +x_1 = lean_mk_string(" }"); +return x_1; } } lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__11() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__10; -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* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__10; +x_2 = l_String_trim(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__12() { @@ -18315,7 +18504,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__7; +x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -18347,7 +18536,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__9; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -18374,6 +18563,70 @@ lean_ctor_set(x_3, 1, x_1); return x_3; } } +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__18() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__19() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__18; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__20() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__19; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__21() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__22() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__21; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___elambda__1___closed__23() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Term_structInst___elambda__1___closed__22; +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_Parser_Term_structInst___elambda__1(lean_object* x_1, lean_object* x_2) { _start: { @@ -18418,13 +18671,13 @@ lean_object* x_189; lean_object* x_190; uint8_t x_191; x_189 = lean_ctor_get(x_188, 1); lean_inc(x_189); lean_dec(x_188); -x_190 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_190 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; x_191 = lean_string_dec_eq(x_189, x_190); lean_dec(x_189); if (x_191 == 0) { lean_object* x_192; lean_object* x_193; -x_192 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_192 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_193 = l_Lean_Parser_ParserState_mkErrorsAt(x_185, x_192, x_184); x_120 = x_193; goto block_183; @@ -18440,7 +18693,7 @@ else { lean_object* x_194; lean_object* x_195; lean_dec(x_188); -x_194 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_194 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_195 = l_Lean_Parser_ParserState_mkErrorsAt(x_185, x_194, x_184); x_120 = x_195; goto block_183; @@ -18450,7 +18703,7 @@ else { lean_object* x_196; lean_object* x_197; lean_dec(x_186); -x_196 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_196 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_197 = l_Lean_Parser_ParserState_mkErrorsAt(x_185, x_196, x_184); x_120 = x_197; goto block_183; @@ -18481,13 +18734,13 @@ lean_object* x_18; lean_object* x_19; uint8_t x_20; x_18 = lean_ctor_get(x_17, 1); lean_inc(x_18); lean_dec(x_17); -x_19 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__7; +x_19 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; x_20 = lean_string_dec_eq(x_18, x_19); lean_dec(x_18); if (x_20 == 0) { lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; -x_21 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_21 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_22 = l_Lean_Parser_ParserState_mkErrorsAt(x_14, x_21, x_13); x_23 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_24 = l_Lean_Parser_ParserState_mkNode(x_22, x_23, x_10); @@ -18506,7 +18759,7 @@ else { lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_dec(x_17); -x_27 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_27 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_28 = l_Lean_Parser_ParserState_mkErrorsAt(x_14, x_27, x_13); x_29 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_30 = l_Lean_Parser_ParserState_mkNode(x_28, x_29, x_10); @@ -18517,7 +18770,7 @@ else { lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_dec(x_15); -x_31 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_31 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_32 = l_Lean_Parser_ParserState_mkErrorsAt(x_14, x_31, x_13); x_33 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_34 = l_Lean_Parser_ParserState_mkNode(x_32, x_33, x_10); @@ -18733,13 +18986,13 @@ lean_object* x_106; lean_object* x_107; uint8_t x_108; x_106 = lean_ctor_get(x_105, 1); lean_inc(x_106); lean_dec(x_105); -x_107 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; +x_107 = l_Lean_Parser_Term_structInst___elambda__1___closed__9; x_108 = lean_string_dec_eq(x_106, x_107); lean_dec(x_106); if (x_108 == 0) { lean_object* x_109; lean_object* x_110; -x_109 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_109 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_inc(x_89); x_110 = l_Lean_Parser_ParserState_mkErrorsAt(x_102, x_109, x_89); x_90 = x_110; @@ -18755,7 +19008,7 @@ else { lean_object* x_111; lean_object* x_112; lean_dec(x_105); -x_111 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_111 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_inc(x_89); x_112 = l_Lean_Parser_ParserState_mkErrorsAt(x_102, x_111, x_89); x_90 = x_112; @@ -18766,7 +19019,7 @@ else { lean_object* x_113; lean_object* x_114; lean_dec(x_103); -x_113 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_113 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_inc(x_89); x_114 = l_Lean_Parser_ParserState_mkErrorsAt(x_102, x_113, x_89); x_90 = x_114; @@ -18877,13 +19130,13 @@ lean_object* x_157; lean_object* x_158; uint8_t x_159; x_157 = lean_ctor_get(x_156, 1); lean_inc(x_157); lean_dec(x_156); -x_158 = l_Lean_Parser_Term_structInst___elambda__1___closed__7; +x_158 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_159 = lean_string_dec_eq(x_157, x_158); lean_dec(x_157); if (x_159 == 0) { lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; -x_160 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; +x_160 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_161 = l_Lean_Parser_ParserState_mkErrorsAt(x_153, x_160, x_152); x_162 = lean_ctor_get(x_161, 0); lean_inc(x_162); @@ -18918,7 +19171,7 @@ else { lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_dec(x_156); -x_168 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; +x_168 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_169 = l_Lean_Parser_ParserState_mkErrorsAt(x_153, x_168, x_152); x_170 = lean_ctor_get(x_169, 0); lean_inc(x_170); @@ -18937,7 +19190,7 @@ else { lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_dec(x_154); -x_173 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; +x_173 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_174 = l_Lean_Parser_ParserState_mkErrorsAt(x_153, x_173, x_152); x_175 = lean_ctor_get(x_174, 0); lean_inc(x_175); @@ -19139,13 +19392,13 @@ lean_object* x_399; lean_object* x_400; uint8_t x_401; x_399 = lean_ctor_get(x_398, 1); lean_inc(x_399); lean_dec(x_398); -x_400 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_400 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; x_401 = lean_string_dec_eq(x_399, x_400); lean_dec(x_399); if (x_401 == 0) { lean_object* x_402; lean_object* x_403; -x_402 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_402 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_403 = l_Lean_Parser_ParserState_mkErrorsAt(x_395, x_402, x_394); x_329 = x_403; goto block_393; @@ -19161,7 +19414,7 @@ else { lean_object* x_404; lean_object* x_405; lean_dec(x_398); -x_404 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_404 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_405 = l_Lean_Parser_ParserState_mkErrorsAt(x_395, x_404, x_394); x_329 = x_405; goto block_393; @@ -19171,7 +19424,7 @@ else { lean_object* x_406; lean_object* x_407; lean_dec(x_396); -x_406 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_406 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_407 = l_Lean_Parser_ParserState_mkErrorsAt(x_395, x_406, x_394); x_329 = x_407; goto block_393; @@ -19202,13 +19455,13 @@ lean_object* x_219; lean_object* x_220; uint8_t x_221; x_219 = lean_ctor_get(x_218, 1); lean_inc(x_219); lean_dec(x_218); -x_220 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__7; +x_220 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; x_221 = lean_string_dec_eq(x_219, x_220); lean_dec(x_219); if (x_221 == 0) { lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; -x_222 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_222 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_223 = l_Lean_Parser_ParserState_mkErrorsAt(x_215, x_222, x_214); x_224 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_225 = l_Lean_Parser_ParserState_mkNode(x_223, x_224, x_211); @@ -19231,7 +19484,7 @@ else { lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_dec(x_218); -x_230 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_230 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_231 = l_Lean_Parser_ParserState_mkErrorsAt(x_215, x_230, x_214); x_232 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_233 = l_Lean_Parser_ParserState_mkNode(x_231, x_232, x_211); @@ -19244,7 +19497,7 @@ else { lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_dec(x_216); -x_235 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_235 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_236 = l_Lean_Parser_ParserState_mkErrorsAt(x_215, x_235, x_214); x_237 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_238 = l_Lean_Parser_ParserState_mkNode(x_236, x_237, x_211); @@ -19466,13 +19719,13 @@ lean_object* x_313; lean_object* x_314; uint8_t x_315; x_313 = lean_ctor_get(x_312, 1); lean_inc(x_313); lean_dec(x_312); -x_314 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; +x_314 = l_Lean_Parser_Term_structInst___elambda__1___closed__9; x_315 = lean_string_dec_eq(x_313, x_314); lean_dec(x_313); if (x_315 == 0) { lean_object* x_316; lean_object* x_317; -x_316 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_316 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_inc(x_296); x_317 = l_Lean_Parser_ParserState_mkErrorsAt(x_309, x_316, x_296); x_297 = x_317; @@ -19488,7 +19741,7 @@ else { lean_object* x_318; lean_object* x_319; lean_dec(x_312); -x_318 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_318 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_inc(x_296); x_319 = l_Lean_Parser_ParserState_mkErrorsAt(x_309, x_318, x_296); x_297 = x_319; @@ -19499,7 +19752,7 @@ else { lean_object* x_320; lean_object* x_321; lean_dec(x_310); -x_320 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_320 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; lean_inc(x_296); x_321 = l_Lean_Parser_ParserState_mkErrorsAt(x_309, x_320, x_296); x_297 = x_321; @@ -19614,13 +19867,13 @@ lean_object* x_366; lean_object* x_367; uint8_t x_368; x_366 = lean_ctor_get(x_365, 1); lean_inc(x_366); lean_dec(x_365); -x_367 = l_Lean_Parser_Term_structInst___elambda__1___closed__7; +x_367 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_368 = lean_string_dec_eq(x_366, x_367); lean_dec(x_366); if (x_368 == 0) { lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; -x_369 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; +x_369 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_370 = l_Lean_Parser_ParserState_mkErrorsAt(x_362, x_369, x_361); x_371 = lean_ctor_get(x_370, 0); lean_inc(x_371); @@ -19655,7 +19908,7 @@ else { lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_dec(x_365); -x_377 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; +x_377 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_378 = l_Lean_Parser_ParserState_mkErrorsAt(x_362, x_377, x_361); x_379 = lean_ctor_get(x_378, 0); lean_inc(x_379); @@ -19674,7 +19927,7 @@ else { lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_dec(x_363); -x_382 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; +x_382 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_383 = l_Lean_Parser_ParserState_mkErrorsAt(x_362, x_382, x_361); x_384 = lean_ctor_get(x_383, 0); lean_inc(x_384); @@ -19815,7 +20068,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__1() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; x_2 = l_Lean_Parser_symbolInfo(x_1); return x_2; } @@ -19824,7 +20077,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__7; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_2 = l_Lean_Parser_symbolInfo(x_1); return x_2; } @@ -19866,7 +20119,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__6() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__9; x_2 = l_Lean_Parser_symbolInfo(x_1); return x_2; } @@ -19904,18 +20157,17 @@ return x_2; lean_object* _init_l_Lean_Parser_Term_structInst___closed__10() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__9; -x_2 = l_Lean_Parser_Term_explicitUniv___closed__4; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; +x_2 = l_Lean_Parser_symbolInfo(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Term_structInst___closed__11() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__7; +x_1 = l_Lean_Parser_Term_structInst___closed__9; x_2 = l_Lean_Parser_Term_structInst___closed__10; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -19925,7 +20177,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__12() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__5; +x_1 = l_Lean_Parser_Term_structInst___closed__7; x_2 = l_Lean_Parser_Term_structInst___closed__11; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -19935,7 +20187,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__13() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__4; +x_1 = l_Lean_Parser_Term_structInst___closed__5; x_2 = l_Lean_Parser_Term_structInst___closed__12; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -19945,7 +20197,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__14() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__1; +x_1 = l_Lean_Parser_Term_structInst___closed__4; x_2 = l_Lean_Parser_Term_structInst___closed__13; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -19955,9 +20207,9 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__15() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; +x_1 = l_Lean_Parser_Term_structInst___closed__1; x_2 = l_Lean_Parser_Term_structInst___closed__14; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; } } @@ -19965,25 +20217,35 @@ lean_object* _init_l_Lean_Parser_Term_structInst___closed__16() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_epsilonInfo; +x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__2; x_2 = l_Lean_Parser_Term_structInst___closed__15; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } } lean_object* _init_l_Lean_Parser_Term_structInst___closed__17() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_structInst___closed__16; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_structInst___closed__18() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__4; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_structInst___closed__16; +x_3 = l_Lean_Parser_Term_structInst___closed__17; x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); return x_4; } } -lean_object* _init_l_Lean_Parser_Term_structInst___closed__18() { +lean_object* _init_l_Lean_Parser_Term_structInst___closed__19() { _start: { lean_object* x_1; @@ -19991,12 +20253,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_structInst___elambda__1), 2, return x_1; } } -lean_object* _init_l_Lean_Parser_Term_structInst___closed__19() { +lean_object* _init_l_Lean_Parser_Term_structInst___closed__20() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__17; -x_2 = l_Lean_Parser_Term_structInst___closed__18; +x_1 = l_Lean_Parser_Term_structInst___closed__18; +x_2 = l_Lean_Parser_Term_structInst___closed__19; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -20007,7 +20269,7 @@ lean_object* _init_l_Lean_Parser_Term_structInst() { _start: { lean_object* x_1; -x_1 = l_Lean_Parser_Term_structInst___closed__19; +x_1 = l_Lean_Parser_Term_structInst___closed__20; return x_1; } } @@ -20634,13 +20896,13 @@ lean_object* x_76; lean_object* x_77; uint8_t x_78; x_76 = lean_ctor_get(x_75, 1); lean_inc(x_76); lean_dec(x_75); -x_77 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_77 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; x_78 = lean_string_dec_eq(x_76, x_77); lean_dec(x_76); if (x_78 == 0) { lean_object* x_79; lean_object* x_80; -x_79 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_79 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_80 = l_Lean_Parser_ParserState_mkErrorsAt(x_72, x_79, x_71); x_44 = x_80; goto block_70; @@ -20656,7 +20918,7 @@ else { lean_object* x_81; lean_object* x_82; lean_dec(x_75); -x_81 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_81 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_82 = l_Lean_Parser_ParserState_mkErrorsAt(x_72, x_81, x_71); x_44 = x_82; goto block_70; @@ -20666,7 +20928,7 @@ else { lean_object* x_83; lean_object* x_84; lean_dec(x_73); -x_83 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_83 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_84 = l_Lean_Parser_ParserState_mkErrorsAt(x_72, x_83, x_71); x_44 = x_84; goto block_70; @@ -20706,13 +20968,13 @@ lean_object* x_22; lean_object* x_23; uint8_t x_24; x_22 = lean_ctor_get(x_21, 1); lean_inc(x_22); lean_dec(x_21); -x_23 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__7; +x_23 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; x_24 = lean_string_dec_eq(x_22, x_23); lean_dec(x_22); if (x_24 == 0) { lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_25 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_25 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_26 = l_Lean_Parser_ParserState_mkErrorsAt(x_18, x_25, x_17); x_27 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; x_28 = l_Lean_Parser_ParserState_mkNode(x_26, x_27, x_10); @@ -20731,7 +20993,7 @@ else { lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_dec(x_21); -x_31 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_31 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_32 = l_Lean_Parser_ParserState_mkErrorsAt(x_18, x_31, x_17); x_33 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; x_34 = l_Lean_Parser_ParserState_mkNode(x_32, x_33, x_10); @@ -20742,7 +21004,7 @@ else { lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_dec(x_19); -x_35 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_35 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_18, x_35, x_17); x_37 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_10); @@ -20960,13 +21222,13 @@ lean_object* x_173; lean_object* x_174; uint8_t x_175; x_173 = lean_ctor_get(x_172, 1); lean_inc(x_173); lean_dec(x_172); -x_174 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_174 = l_Lean_Parser_Term_structInst___elambda__1___closed__6; x_175 = lean_string_dec_eq(x_173, x_174); lean_dec(x_173); if (x_175 == 0) { lean_object* x_176; lean_object* x_177; -x_176 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_176 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_177 = l_Lean_Parser_ParserState_mkErrorsAt(x_169, x_176, x_168); x_138 = x_177; goto block_167; @@ -20982,7 +21244,7 @@ else { lean_object* x_178; lean_object* x_179; lean_dec(x_172); -x_178 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_178 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_179 = l_Lean_Parser_ParserState_mkErrorsAt(x_169, x_178, x_168); x_138 = x_179; goto block_167; @@ -20992,7 +21254,7 @@ else { lean_object* x_180; lean_object* x_181; lean_dec(x_170); -x_180 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_180 = l_Lean_Parser_Term_structInst___elambda__1___closed__23; x_181 = l_Lean_Parser_ParserState_mkErrorsAt(x_169, x_180, x_168); x_138 = x_181; goto block_167; @@ -21032,13 +21294,13 @@ lean_object* x_110; lean_object* x_111; uint8_t x_112; x_110 = lean_ctor_get(x_109, 1); lean_inc(x_110); lean_dec(x_109); -x_111 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__7; +x_111 = l_Lean_Parser_Term_structInst___elambda__1___closed__11; x_112 = lean_string_dec_eq(x_110, x_111); lean_dec(x_110); if (x_112 == 0) { lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; -x_113 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_113 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_114 = l_Lean_Parser_ParserState_mkErrorsAt(x_106, x_113, x_105); x_115 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; x_116 = l_Lean_Parser_ParserState_mkNode(x_114, x_115, x_98); @@ -21061,7 +21323,7 @@ else { lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_dec(x_109); -x_121 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_121 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_122 = l_Lean_Parser_ParserState_mkErrorsAt(x_106, x_121, x_105); x_123 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; x_124 = l_Lean_Parser_ParserState_mkNode(x_122, x_123, x_98); @@ -21074,7 +21336,7 @@ else { lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_dec(x_107); -x_126 = l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11; +x_126 = l_Lean_Parser_Term_structInst___elambda__1___closed__14; x_127 = l_Lean_Parser_ParserState_mkErrorsAt(x_106, x_126, x_105); x_128 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; x_129 = l_Lean_Parser_ParserState_mkNode(x_127, x_128, x_98); @@ -21253,7 +21515,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_explicitUniv___closed__4; +x_3 = l_Lean_Parser_Term_structInst___closed__10; x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); return x_4; } @@ -25724,13 +25986,31 @@ lean_object* _init_l_Lean_Parser_Term_implicitBinder___closed__1() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_1 = l_addParenHeuristic___closed__1; +x_2 = l_String_trim(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_Term_implicitBinder___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_implicitBinder___closed__1; +x_2 = l_Lean_Parser_symbolInfo(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_Term_implicitBinder___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_implicitBinder___closed__1; x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); lean_closure_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_implicitBinder___closed__2() { +lean_object* _init_l_Lean_Parser_Term_implicitBinder___closed__4() { _start: { lean_object* x_1; lean_object* x_2; @@ -25755,7 +26035,7 @@ x_7 = l_Lean_Parser_andthenInfo(x_5, x_6); x_8 = lean_ctor_get(x_4, 1); lean_inc(x_8); lean_dec(x_4); -x_9 = l_Lean_Parser_Term_implicitBinder___closed__2; +x_9 = l_Lean_Parser_Term_implicitBinder___closed__4; x_10 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_10, 0, x_8); lean_closure_set(x_10, 1, x_9); @@ -25764,9 +26044,9 @@ x_12 = l_Lean_Parser_Term_explicitBinder___closed__2; x_13 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_13, 0, x_12); lean_closure_set(x_13, 1, x_10); -x_14 = l_Lean_Parser_Term_structInst___closed__1; +x_14 = l_Lean_Parser_Term_implicitBinder___closed__2; x_15 = l_Lean_Parser_andthenInfo(x_14, x_11); -x_16 = l_Lean_Parser_Term_implicitBinder___closed__1; +x_16 = l_Lean_Parser_Term_implicitBinder___closed__3; x_17 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_17, 0, x_16); lean_closure_set(x_17, 1, x_13); @@ -27452,7 +27732,7 @@ lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__5() { _start: { lean_object* x_1; -x_1 = lean_mk_string("∀"); +x_1 = lean_mk_string("∀ "); return x_1; } } @@ -27468,13 +27748,21 @@ return x_2; lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__7() { _start: { +lean_object* x_1; +x_1 = lean_mk_string("forall "); +return x_1; +} +} +lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__8() { +_start: +{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__1; +x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__7; x_2 = l_String_trim(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__8() { +lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -27484,22 +27772,12 @@ x_3 = lean_string_append(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__9() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__8; -x_2 = l_Lean_Parser_unicodeSymbolFn___closed__1; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__10() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__9; -x_2 = l_Lean_Parser_Term_forall___elambda__1___closed__7; +x_2 = l_Lean_Parser_unicodeSymbolFn___closed__1; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -27509,7 +27787,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__10; -x_2 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_forall___elambda__1___closed__8; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -27518,8 +27796,18 @@ lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__12() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__11; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_forall___elambda__1___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Parser_Term_forall___elambda__1___closed__11; +x_2 = l_Lean_Parser_Term_forall___elambda__1___closed__12; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); @@ -27555,8 +27843,8 @@ lean_inc(x_11); x_12 = lean_array_get_size(x_11); lean_dec(x_11); x_43 = l_Lean_Parser_Term_forall___elambda__1___closed__6; -x_44 = l_Lean_Parser_Term_forall___elambda__1___closed__7; -x_45 = l_Lean_Parser_Term_forall___elambda__1___closed__12; +x_44 = l_Lean_Parser_Term_forall___elambda__1___closed__8; +x_45 = l_Lean_Parser_Term_forall___elambda__1___closed__13; lean_inc(x_1); x_46 = l_Lean_Parser_unicodeSymbolFnAux(x_43, x_44, x_45, x_1, x_9); x_47 = lean_ctor_get(x_46, 3); @@ -27803,8 +28091,8 @@ lean_inc(x_84); x_85 = lean_array_get_size(x_84); lean_dec(x_84); x_121 = l_Lean_Parser_Term_forall___elambda__1___closed__6; -x_122 = l_Lean_Parser_Term_forall___elambda__1___closed__7; -x_123 = l_Lean_Parser_Term_forall___elambda__1___closed__12; +x_122 = l_Lean_Parser_Term_forall___elambda__1___closed__8; +x_123 = l_Lean_Parser_Term_forall___elambda__1___closed__13; lean_inc(x_1); x_124 = l_Lean_Parser_unicodeSymbolFnAux(x_121, x_122, x_123, x_1, x_82); x_125 = lean_ctor_get(x_124, 3); @@ -28017,7 +28305,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_forall___elambda__1___closed__6; -x_2 = l_Lean_Parser_Term_forall___elambda__1___closed__7; +x_2 = l_Lean_Parser_Term_forall___elambda__1___closed__8; x_3 = l_Lean_Parser_unicodeSymbolInfo(x_1, x_2); return x_3; } @@ -28412,7 +28700,7 @@ lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__5() { _start: { lean_object* x_1; -x_1 = lean_mk_string("λ"); +x_1 = lean_mk_string("λ "); return x_1; } } @@ -28428,13 +28716,21 @@ return x_2; lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__7() { _start: { +lean_object* x_1; +x_1 = lean_mk_string("fun "); +return x_1; +} +} +lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__8() { +_start: +{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__1; +x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__7; x_2 = l_String_trim(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__8() { +lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -28444,22 +28740,12 @@ x_3 = lean_string_append(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__9() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__8; -x_2 = l_Lean_Parser_unicodeSymbolFn___closed__1; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__10() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__9; -x_2 = l_Lean_Parser_Term_fun___elambda__1___closed__7; +x_2 = l_Lean_Parser_unicodeSymbolFn___closed__1; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -28469,7 +28755,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__10; -x_2 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_fun___elambda__1___closed__8; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -28478,8 +28764,18 @@ lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__12() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__11; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_fun___elambda__1___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Parser_Term_fun___elambda__1___closed__11; +x_2 = l_Lean_Parser_Term_fun___elambda__1___closed__12; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); @@ -28512,8 +28808,8 @@ lean_inc(x_9); x_10 = lean_array_get_size(x_9); lean_dec(x_9); x_11 = l_Lean_Parser_Term_fun___elambda__1___closed__6; -x_12 = l_Lean_Parser_Term_fun___elambda__1___closed__7; -x_13 = l_Lean_Parser_Term_fun___elambda__1___closed__12; +x_12 = l_Lean_Parser_Term_fun___elambda__1___closed__8; +x_13 = l_Lean_Parser_Term_fun___elambda__1___closed__13; lean_inc(x_1); x_14 = l_Lean_Parser_unicodeSymbolFnAux(x_11, x_12, x_13, x_1, x_7); x_15 = lean_ctor_get(x_14, 3); @@ -28694,8 +28990,8 @@ lean_inc(x_63); x_64 = lean_array_get_size(x_63); lean_dec(x_63); x_65 = l_Lean_Parser_Term_fun___elambda__1___closed__6; -x_66 = l_Lean_Parser_Term_fun___elambda__1___closed__7; -x_67 = l_Lean_Parser_Term_fun___elambda__1___closed__12; +x_66 = l_Lean_Parser_Term_fun___elambda__1___closed__8; +x_67 = l_Lean_Parser_Term_fun___elambda__1___closed__13; lean_inc(x_1); x_68 = l_Lean_Parser_unicodeSymbolFnAux(x_65, x_66, x_67, x_1, x_61); x_69 = lean_ctor_get(x_68, 3); @@ -28846,7 +29142,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_fun___elambda__1___closed__6; -x_2 = l_Lean_Parser_Term_fun___elambda__1___closed__7; +x_2 = l_Lean_Parser_Term_fun___elambda__1___closed__8; x_3 = l_Lean_Parser_unicodeSymbolInfo(x_1, x_2); return x_3; } @@ -31679,6 +31975,55 @@ x_10 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term return x_10; } } +lean_object* _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("| "); +return x_1; +} +} +lean_object* _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__1; +x_2 = l_String_trim(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__2; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__3; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__4; +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_Parser_Term_matchAlts___elambda__1(uint8_t x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -31705,7 +32050,7 @@ lean_object* x_9; lean_object* x_10; uint8_t x_11; x_9 = lean_ctor_get(x_8, 1); lean_inc(x_9); lean_dec(x_8); -x_10 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__2; +x_10 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__2; x_11 = lean_string_dec_eq(x_9, x_10); lean_dec(x_9); if (x_11 == 0) @@ -31713,7 +32058,7 @@ if (x_11 == 0) lean_object* x_12; lean_object* x_13; lean_dec(x_3); lean_dec(x_2); -x_12 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5; +x_12 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; x_13 = l_Lean_Parser_ParserState_mkErrorsAt(x_5, x_12, x_4); return x_13; } @@ -31734,7 +32079,7 @@ lean_object* x_16; lean_object* x_17; lean_dec(x_8); lean_dec(x_3); lean_dec(x_2); -x_16 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5; +x_16 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; x_17 = l_Lean_Parser_ParserState_mkErrorsAt(x_5, x_16, x_4); return x_17; } @@ -31745,7 +32090,7 @@ lean_object* x_18; lean_object* x_19; lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_18 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5; +x_18 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_5, x_18, x_4); return x_19; } @@ -31777,13 +32122,13 @@ lean_object* x_48; lean_object* x_49; uint8_t x_50; x_48 = lean_ctor_get(x_47, 1); lean_inc(x_48); lean_dec(x_47); -x_49 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__2; +x_49 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__2; x_50 = lean_string_dec_eq(x_48, x_49); lean_dec(x_48); if (x_50 == 0) { lean_object* x_51; lean_object* x_52; -x_51 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5; +x_51 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; lean_inc(x_20); x_52 = l_Lean_Parser_ParserState_mkErrorsAt(x_44, x_51, x_20); x_23 = x_52; @@ -31799,7 +32144,7 @@ else { lean_object* x_53; lean_object* x_54; lean_dec(x_47); -x_53 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5; +x_53 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; lean_inc(x_20); x_54 = l_Lean_Parser_ParserState_mkErrorsAt(x_44, x_53, x_20); x_23 = x_54; @@ -31810,7 +32155,7 @@ else { lean_object* x_55; lean_object* x_56; lean_dec(x_45); -x_55 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5; +x_55 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__5; lean_inc(x_20); x_56 = l_Lean_Parser_ParserState_mkErrorsAt(x_44, x_55, x_20); x_23 = x_56; @@ -31943,27 +32288,36 @@ return x_4; lean_object* _init_l_Lean_Parser_Term_matchAlts___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_matchAlts___closed__1; -x_2 = l_Lean_Parser_Term_matchAlts___closed__3; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_matchAlts___elambda__1___closed__2; +x_2 = l_Lean_Parser_symbolInfo(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Term_matchAlts___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_matchAlts___closed__1; -x_2 = l_Lean_Parser_optionaInfo(x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_matchAlts___closed__4; +x_2 = l_Lean_Parser_Term_matchAlts___closed__3; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_Term_matchAlts___closed__6() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_matchAlts___closed__4; +x_2 = l_Lean_Parser_optionaInfo(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_Term_matchAlts___closed__7() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_matchAlts___closed__5; +x_1 = l_Lean_Parser_Term_matchAlts___closed__6; x_2 = l_Lean_Parser_Term_matchAlts___closed__3; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -31979,7 +32333,7 @@ lean_closure_set(x_3, 0, x_2); if (x_1 == 0) { lean_object* x_4; lean_object* x_5; -x_4 = l_Lean_Parser_Term_matchAlts___closed__4; +x_4 = l_Lean_Parser_Term_matchAlts___closed__5; x_5 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_5, 0, x_4); lean_ctor_set(x_5, 1, x_3); @@ -31988,7 +32342,7 @@ return x_5; else { lean_object* x_6; lean_object* x_7; -x_6 = l_Lean_Parser_Term_matchAlts___closed__6; +x_6 = l_Lean_Parser_Term_matchAlts___closed__7; x_7 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_7, 0, x_6); lean_ctor_set(x_7, 1, x_3); @@ -32268,6 +32622,296 @@ x_3 = l_Lean_Parser_Term_matchAlts(x_2); return x_3; } } +lean_object* l_Lean_Parser_Term_matchDiscr___elambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +lean_inc(x_1); +x_3 = l_Lean_Parser_Term_optIdent___elambda__1(x_1, x_2); +x_4 = lean_ctor_get(x_3, 3); +lean_inc(x_4); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = l_Lean_Parser_termParser___closed__2; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Parser_categoryParser___elambda__1(x_5, x_6, x_1, x_3); +return x_7; +} +else +{ +lean_dec(x_4); +lean_dec(x_1); +return x_3; +} +} +} +lean_object* _init_l_Lean_Parser_Term_matchDiscr___closed__1() { +_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_Parser_Term_optIdent; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_antiquotNestedExpr___closed__2; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = l_Lean_Parser_andthenInfo(x_2, x_4); +return x_5; +} +} +lean_object* _init_l_Lean_Parser_Term_matchDiscr___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_matchDiscr___elambda__1), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Parser_Term_matchDiscr___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_matchDiscr___closed__1; +x_2 = l_Lean_Parser_Term_matchDiscr___closed__2; +x_3 = lean_alloc_ctor(0, 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_Lean_Parser_Term_matchDiscr() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Parser_Term_matchDiscr___closed__3; +return x_1; +} +} +lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_match___elambda__1___spec__2(uint8_t x_1, lean_object* x_2, uint8_t x_3, uint8_t 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; +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_ctor_get(x_6, 1); +lean_inc(x_9); +lean_inc(x_5); +x_10 = l_Lean_Parser_Term_matchDiscr___elambda__1(x_5, x_6); +x_11 = lean_ctor_get(x_10, 3); +lean_inc(x_11); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_29; lean_object* x_30; +lean_dec(x_9); +lean_dec(x_8); +x_12 = lean_ctor_get(x_10, 0); +lean_inc(x_12); +x_13 = lean_array_get_size(x_12); +lean_dec(x_12); +x_14 = lean_ctor_get(x_10, 1); +lean_inc(x_14); +lean_inc(x_5); +x_29 = l_Lean_Parser_tokenFn(x_5, x_10); +x_30 = lean_ctor_get(x_29, 3); +lean_inc(x_30); +if (lean_obj_tag(x_30) == 0) +{ +lean_object* x_31; lean_object* x_32; +x_31 = lean_ctor_get(x_29, 0); +lean_inc(x_31); +x_32 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_31); +lean_dec(x_31); +if (lean_obj_tag(x_32) == 2) +{ +lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_33 = lean_ctor_get(x_32, 1); +lean_inc(x_33); +lean_dec(x_32); +x_34 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_explicitUniv___elambda__1___spec__2___closed__1; +x_35 = lean_string_dec_eq(x_33, x_34); +lean_dec(x_33); +if (x_35 == 0) +{ +lean_object* x_36; lean_object* x_37; +x_36 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_explicitUniv___elambda__1___spec__2___closed__4; +lean_inc(x_14); +x_37 = l_Lean_Parser_ParserState_mkErrorsAt(x_29, x_36, x_14); +x_15 = x_37; +goto block_28; +} +else +{ +x_15 = x_29; +goto block_28; +} +} +else +{ +lean_object* x_38; lean_object* x_39; +lean_dec(x_32); +x_38 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_explicitUniv___elambda__1___spec__2___closed__4; +lean_inc(x_14); +x_39 = l_Lean_Parser_ParserState_mkErrorsAt(x_29, x_38, x_14); +x_15 = x_39; +goto block_28; +} +} +else +{ +lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_40 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_explicitUniv___elambda__1___spec__2___closed__4; +lean_inc(x_14); +x_41 = l_Lean_Parser_ParserState_mkErrorsAt(x_29, x_40, x_14); +x_15 = x_41; +goto block_28; +} +block_28: +{ +lean_object* x_16; +x_16 = lean_ctor_get(x_15, 3); +lean_inc(x_16); +if (lean_obj_tag(x_16) == 0) +{ +lean_dec(x_14); +lean_dec(x_13); +{ +uint8_t _tmp_3 = x_1; +lean_object* _tmp_5 = x_15; +x_4 = _tmp_3; +x_6 = _tmp_5; +} +goto _start; +} +else +{ +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_dec(x_16); +lean_dec(x_5); +x_18 = l_Lean_Parser_ParserState_restore(x_15, x_13, x_14); +lean_dec(x_13); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_array_get_size(x_19); +lean_dec(x_19); +x_21 = lean_nat_sub(x_20, x_2); +lean_dec(x_20); +x_22 = lean_unsigned_to_nat(1u); +x_23 = lean_nat_dec_eq(x_21, x_22); +lean_dec(x_21); +if (x_23 == 0) +{ +lean_object* x_24; lean_object* x_25; +x_24 = l_Lean_nullKind; +x_25 = l_Lean_Parser_ParserState_mkNode(x_18, x_24, x_2); +return x_25; +} +else +{ +if (x_3 == 0) +{ +lean_object* x_26; lean_object* x_27; +x_26 = l_Lean_nullKind; +x_27 = l_Lean_Parser_ParserState_mkNode(x_18, x_26, x_2); +return x_27; +} +else +{ +lean_dec(x_2); +return x_18; +} +} +} +} +} +else +{ +lean_object* x_42; uint8_t x_43; +lean_dec(x_11); +lean_dec(x_5); +x_42 = lean_ctor_get(x_10, 1); +lean_inc(x_42); +x_43 = lean_nat_dec_lt(x_9, x_42); +lean_dec(x_42); +if (x_43 == 0) +{ +if (x_4 == 0) +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; +lean_dec(x_9); +lean_dec(x_8); +x_44 = lean_box(0); +x_45 = l_Lean_Parser_ParserState_pushSyntax(x_10, x_44); +x_46 = l_Lean_nullKind; +x_47 = l_Lean_Parser_ParserState_mkNode(x_45, x_46, x_2); +return x_47; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; +x_48 = l_Lean_Parser_ParserState_restore(x_10, x_8, x_9); +lean_dec(x_8); +x_49 = lean_ctor_get(x_48, 0); +lean_inc(x_49); +x_50 = lean_array_get_size(x_49); +lean_dec(x_49); +x_51 = lean_nat_sub(x_50, x_2); +lean_dec(x_50); +x_52 = lean_unsigned_to_nat(2u); +x_53 = lean_nat_dec_eq(x_51, x_52); +lean_dec(x_51); +if (x_53 == 0) +{ +lean_object* x_54; lean_object* x_55; +x_54 = l_Lean_nullKind; +x_55 = l_Lean_Parser_ParserState_mkNode(x_48, x_54, x_2); +return x_55; +} +else +{ +if (x_3 == 0) +{ +lean_object* x_56; lean_object* x_57; +x_56 = l_Lean_nullKind; +x_57 = l_Lean_Parser_ParserState_mkNode(x_48, x_56, x_2); +return x_57; +} +else +{ +lean_object* x_58; +lean_dec(x_2); +x_58 = l_Lean_Parser_ParserState_popSyntax(x_48); +return x_58; +} +} +} +} +else +{ +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_2); +return x_10; +} +} +} +} +lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1(uint8_t x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_array_get_size(x_5); +lean_dec(x_5); +x_7 = 0; +x_8 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_match___elambda__1___spec__2(x_1, x_6, x_2, x_7, x_3, x_4); +return x_8; +} +} lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__1() { _start: { @@ -32327,62 +32971,13 @@ return x_2; lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__7() { _start: { -lean_object* x_1; -x_1 = lean_mk_string(" with "); -return x_1; -} -} -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__7; -x_2 = l_String_trim(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__9() { -_start: -{ uint8_t x_1; lean_object* x_2; x_1 = 1; x_2 = l_Lean_Parser_Term_matchAlts(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__10() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Term_match___elambda__1___closed__8; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__11() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__10; -x_2 = l_Char_HasRepr___closed__1; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__12() { -_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__11; -x_3 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__13() { +lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__8() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -32392,22 +32987,22 @@ x_3 = lean_string_append(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__14() { +lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__13; +x_1 = l_Lean_Parser_Term_match___elambda__1___closed__8; x_2 = l_Char_HasRepr___closed__1; x_3 = lean_string_append(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Term_match___elambda__1___closed__15() { +lean_object* _init_l_Lean_Parser_Term_match___elambda__1___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__14; +x_2 = l_Lean_Parser_Term_match___elambda__1___closed__9; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); @@ -32418,7 +33013,7 @@ lean_object* l_Lean_Parser_Term_match___elambda__1(lean_object* x_1, lean_object _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; -x_3 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_3 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); x_5 = l_Lean_Parser_Term_match___elambda__1___closed__4; @@ -32467,7 +33062,7 @@ lean_dec(x_55); if (x_57 == 0) { lean_object* x_58; lean_object* x_59; -x_58 = l_Lean_Parser_Term_match___elambda__1___closed__15; +x_58 = l_Lean_Parser_Term_match___elambda__1___closed__10; x_59 = l_Lean_Parser_ParserState_mkErrorsAt(x_51, x_58, x_50); x_13 = x_59; goto block_49; @@ -32483,7 +33078,7 @@ else { lean_object* x_60; lean_object* x_61; lean_dec(x_54); -x_60 = l_Lean_Parser_Term_match___elambda__1___closed__15; +x_60 = l_Lean_Parser_Term_match___elambda__1___closed__10; x_61 = l_Lean_Parser_ParserState_mkErrorsAt(x_51, x_60, x_50); x_13 = x_61; goto block_49; @@ -32493,7 +33088,7 @@ else { lean_object* x_62; lean_object* x_63; lean_dec(x_52); -x_62 = l_Lean_Parser_Term_match___elambda__1___closed__15; +x_62 = l_Lean_Parser_Term_match___elambda__1___closed__10; x_63 = l_Lean_Parser_ParserState_mkErrorsAt(x_51, x_62, x_50); x_13 = x_63; goto block_49; @@ -32508,7 +33103,7 @@ if (lean_obj_tag(x_14) == 0) uint8_t x_15; lean_object* x_16; lean_object* x_17; x_15 = 0; lean_inc(x_1); -x_16 = l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_tupleTail___elambda__1___spec__1(x_15, x_15, x_1, x_13); +x_16 = l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1(x_15, x_15, x_1, x_13); x_17 = lean_ctor_get(x_16, 3); lean_inc(x_17); if (lean_obj_tag(x_17) == 0) @@ -32540,7 +33135,7 @@ lean_object* x_25; lean_object* x_26; uint8_t x_27; x_25 = lean_ctor_get(x_24, 1); lean_inc(x_25); lean_dec(x_24); -x_26 = l_Lean_Parser_Term_match___elambda__1___closed__8; +x_26 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_27 = lean_string_dec_eq(x_25, x_26); lean_dec(x_25); if (x_27 == 0) @@ -32548,7 +33143,7 @@ if (x_27 == 0) lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_dec(x_4); lean_dec(x_1); -x_28 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_28 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_21, x_28, x_20); x_30 = l_Lean_Parser_Term_match___elambda__1___closed__2; x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_12); @@ -32570,7 +33165,7 @@ lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_dec(x_24); lean_dec(x_4); lean_dec(x_1); -x_35 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_35 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_21, x_35, x_20); x_37 = l_Lean_Parser_Term_match___elambda__1___closed__2; x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_12); @@ -32583,7 +33178,7 @@ lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_dec(x_22); lean_dec(x_4); lean_dec(x_1); -x_39 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_39 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_40 = l_Lean_Parser_ParserState_mkErrorsAt(x_21, x_39, x_20); x_41 = l_Lean_Parser_Term_match___elambda__1___closed__2; x_42 = l_Lean_Parser_ParserState_mkNode(x_40, x_41, x_12); @@ -32714,7 +33309,7 @@ lean_dec(x_127); if (x_129 == 0) { lean_object* x_130; lean_object* x_131; -x_130 = l_Lean_Parser_Term_match___elambda__1___closed__15; +x_130 = l_Lean_Parser_Term_match___elambda__1___closed__10; x_131 = l_Lean_Parser_ParserState_mkErrorsAt(x_123, x_130, x_122); x_78 = x_131; goto block_121; @@ -32730,7 +33325,7 @@ else { lean_object* x_132; lean_object* x_133; lean_dec(x_126); -x_132 = l_Lean_Parser_Term_match___elambda__1___closed__15; +x_132 = l_Lean_Parser_Term_match___elambda__1___closed__10; x_133 = l_Lean_Parser_ParserState_mkErrorsAt(x_123, x_132, x_122); x_78 = x_133; goto block_121; @@ -32740,7 +33335,7 @@ else { lean_object* x_134; lean_object* x_135; lean_dec(x_124); -x_134 = l_Lean_Parser_Term_match___elambda__1___closed__15; +x_134 = l_Lean_Parser_Term_match___elambda__1___closed__10; x_135 = l_Lean_Parser_ParserState_mkErrorsAt(x_123, x_134, x_122); x_78 = x_135; goto block_121; @@ -32755,7 +33350,7 @@ if (lean_obj_tag(x_79) == 0) uint8_t x_80; lean_object* x_81; lean_object* x_82; x_80 = 0; lean_inc(x_1); -x_81 = l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_tupleTail___elambda__1___spec__1(x_80, x_80, x_1, x_78); +x_81 = l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1(x_80, x_80, x_1, x_78); x_82 = lean_ctor_get(x_81, 3); lean_inc(x_82); if (lean_obj_tag(x_82) == 0) @@ -32787,7 +33382,7 @@ lean_object* x_90; lean_object* x_91; uint8_t x_92; x_90 = lean_ctor_get(x_89, 1); lean_inc(x_90); lean_dec(x_89); -x_91 = l_Lean_Parser_Term_match___elambda__1___closed__8; +x_91 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_92 = lean_string_dec_eq(x_90, x_91); lean_dec(x_90); if (x_92 == 0) @@ -32795,7 +33390,7 @@ if (x_92 == 0) lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_dec(x_4); lean_dec(x_1); -x_93 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_93 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_94 = l_Lean_Parser_ParserState_mkErrorsAt(x_86, x_93, x_85); x_95 = l_Lean_Parser_Term_match___elambda__1___closed__2; x_96 = l_Lean_Parser_ParserState_mkNode(x_94, x_95, x_77); @@ -32821,7 +33416,7 @@ lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_dec(x_89); lean_dec(x_4); lean_dec(x_1); -x_102 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_102 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_103 = l_Lean_Parser_ParserState_mkErrorsAt(x_86, x_102, x_85); x_104 = l_Lean_Parser_Term_match___elambda__1___closed__2; x_105 = l_Lean_Parser_ParserState_mkNode(x_103, x_104, x_77); @@ -32836,7 +33431,7 @@ lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_dec(x_87); lean_dec(x_4); lean_dec(x_1); -x_107 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_107 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_108 = l_Lean_Parser_ParserState_mkErrorsAt(x_86, x_107, x_85); x_109 = l_Lean_Parser_Term_match___elambda__1___closed__2; x_110 = l_Lean_Parser_ParserState_mkNode(x_108, x_109, x_77); @@ -32912,20 +33507,23 @@ return x_2; lean_object* _init_l_Lean_Parser_Term_match___closed__2() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__8; -x_2 = l_Lean_Parser_symbolInfo(x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_matchDiscr; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_explicitUniv___closed__2; +x_4 = l_Lean_Parser_sepBy1Info(x_2, x_3); +return x_4; } } lean_object* _init_l_Lean_Parser_Term_match___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_1 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_match___closed__2; +x_3 = l_Lean_Parser_Term_structInst___closed__2; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } @@ -32946,7 +33544,7 @@ lean_object* _init_l_Lean_Parser_Term_match___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_matchAlt___closed__3; +x_1 = l_Lean_Parser_Term_match___closed__2; x_2 = l_Lean_Parser_Term_match___closed__4; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -33022,6 +33620,32 @@ x_1 = l_Lean_Parser_Term_match___closed__11; return x_1; } } +lean_object* l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_match___elambda__1___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) { +_start: +{ +uint8_t x_7; uint8_t x_8; uint8_t x_9; lean_object* x_10; +x_7 = lean_unbox(x_1); +lean_dec(x_1); +x_8 = lean_unbox(x_3); +lean_dec(x_3); +x_9 = lean_unbox(x_4); +lean_dec(x_4); +x_10 = l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_match___elambda__1___spec__2(x_7, x_2, x_8, x_9, x_5, x_6); +return x_10; +} +} +lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; uint8_t x_6; lean_object* x_7; +x_5 = lean_unbox(x_1); +lean_dec(x_1); +x_6 = lean_unbox(x_2); +lean_dec(x_2); +x_7 = l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_match___elambda__1___spec__1(x_5, x_6, x_3, x_4); +return x_7; +} +} lean_object* l___regBuiltinParser_Lean_Parser_Term_match(lean_object* x_1) { _start: { @@ -33489,7 +34113,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_mkAntiquot___closed__4; +x_2 = l_Lean_Parser_mkAntiquot___closed__6; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -33543,7 +34167,7 @@ lean_object* x_40; lean_object* x_41; uint8_t x_42; x_40 = lean_ctor_get(x_39, 1); lean_inc(x_40); lean_dec(x_39); -x_41 = l_Lean_Parser_mkAntiquot___closed__4; +x_41 = l_Lean_Parser_mkAntiquot___closed__6; x_42 = lean_string_dec_eq(x_40, x_41); lean_dec(x_40); if (x_42 == 0) @@ -33726,7 +34350,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_namedPattern___closed__2; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_mkAntiquot___closed__5; +x_3 = l_Lean_Parser_mkAntiquot___closed__7; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } @@ -35520,7 +36144,7 @@ lean_object* l_Lean_Parser_Term_match__syntax___elambda__1(lean_object* x_1, lea _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; -x_3 = l_Lean_Parser_Term_match___elambda__1___closed__9; +x_3 = l_Lean_Parser_Term_match___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); x_5 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__4; @@ -35636,7 +36260,7 @@ lean_object* x_24; lean_object* x_25; uint8_t x_26; x_24 = lean_ctor_get(x_23, 1); lean_inc(x_24); lean_dec(x_23); -x_25 = l_Lean_Parser_Term_match___elambda__1___closed__8; +x_25 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_26 = lean_string_dec_eq(x_24, x_25); lean_dec(x_24); if (x_26 == 0) @@ -35644,7 +36268,7 @@ if (x_26 == 0) lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_dec(x_4); lean_dec(x_1); -x_27 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_27 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_28 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_27, x_19); x_29 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; x_30 = l_Lean_Parser_ParserState_mkNode(x_28, x_29, x_12); @@ -35666,7 +36290,7 @@ lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_dec(x_23); lean_dec(x_4); lean_dec(x_1); -x_34 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_34 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_35 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_34, x_19); x_36 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; x_37 = l_Lean_Parser_ParserState_mkNode(x_35, x_36, x_12); @@ -35679,7 +36303,7 @@ lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_dec(x_21); lean_dec(x_4); lean_dec(x_1); -x_38 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_38 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_39 = l_Lean_Parser_ParserState_mkErrorsAt(x_20, x_38, x_19); x_40 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; x_41 = l_Lean_Parser_ParserState_mkNode(x_39, x_40, x_12); @@ -35866,7 +36490,7 @@ lean_object* x_86; lean_object* x_87; uint8_t x_88; x_86 = lean_ctor_get(x_85, 1); lean_inc(x_86); lean_dec(x_85); -x_87 = l_Lean_Parser_Term_match___elambda__1___closed__8; +x_87 = l_Lean_Parser_Term_structInst___elambda__1___closed__8; x_88 = lean_string_dec_eq(x_86, x_87); lean_dec(x_86); if (x_88 == 0) @@ -35874,7 +36498,7 @@ if (x_88 == 0) lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_dec(x_4); lean_dec(x_1); -x_89 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_89 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_90 = l_Lean_Parser_ParserState_mkErrorsAt(x_82, x_89, x_81); x_91 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; x_92 = l_Lean_Parser_ParserState_mkNode(x_90, x_91, x_74); @@ -35900,7 +36524,7 @@ lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; le lean_dec(x_85); lean_dec(x_4); lean_dec(x_1); -x_98 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_98 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_99 = l_Lean_Parser_ParserState_mkErrorsAt(x_82, x_98, x_81); x_100 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; x_101 = l_Lean_Parser_ParserState_mkNode(x_99, x_100, x_74); @@ -35915,7 +36539,7 @@ lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_dec(x_83); lean_dec(x_4); lean_dec(x_1); -x_103 = l_Lean_Parser_Term_match___elambda__1___closed__12; +x_103 = l_Lean_Parser_Term_structInst___elambda__1___closed__20; x_104 = l_Lean_Parser_ParserState_mkErrorsAt(x_82, x_103, x_81); x_105 = l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; x_106 = l_Lean_Parser_ParserState_mkNode(x_104, x_105, x_74); @@ -40791,6 +41415,38 @@ x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3); return x_4; } } +lean_object* _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_implicitBinder___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__5; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__6; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1(lean_object* x_1, lean_object* x_2) { _start: { @@ -40835,13 +41491,13 @@ lean_object* x_48; lean_object* x_49; uint8_t x_50; x_48 = lean_ctor_get(x_47, 1); lean_inc(x_48); lean_dec(x_47); -x_49 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_49 = l_Lean_Parser_Term_implicitBinder___closed__1; x_50 = lean_string_dec_eq(x_48, x_49); lean_dec(x_48); if (x_50 == 0) { lean_object* x_51; lean_object* x_52; -x_51 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_51 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_52 = l_Lean_Parser_ParserState_mkErrorsAt(x_44, x_51, x_43); x_11 = x_52; goto block_42; @@ -40857,7 +41513,7 @@ else { lean_object* x_53; lean_object* x_54; lean_dec(x_47); -x_53 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_53 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_54 = l_Lean_Parser_ParserState_mkErrorsAt(x_44, x_53, x_43); x_11 = x_54; goto block_42; @@ -40867,7 +41523,7 @@ else { lean_object* x_55; lean_object* x_56; lean_dec(x_45); -x_55 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_55 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_56 = l_Lean_Parser_ParserState_mkErrorsAt(x_44, x_55, x_43); x_11 = x_56; goto block_42; @@ -41051,13 +41707,13 @@ lean_object* x_114; lean_object* x_115; uint8_t x_116; x_114 = lean_ctor_get(x_113, 1); lean_inc(x_114); lean_dec(x_113); -x_115 = l_Lean_Parser_Term_structInst___elambda__1___closed__5; +x_115 = l_Lean_Parser_Term_implicitBinder___closed__1; x_116 = lean_string_dec_eq(x_114, x_115); lean_dec(x_114); if (x_116 == 0) { lean_object* x_117; lean_object* x_118; -x_117 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_117 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_118 = l_Lean_Parser_ParserState_mkErrorsAt(x_110, x_117, x_109); x_71 = x_118; goto block_108; @@ -41073,7 +41729,7 @@ else { lean_object* x_119; lean_object* x_120; lean_dec(x_113); -x_119 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_119 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_120 = l_Lean_Parser_ParserState_mkErrorsAt(x_110, x_119, x_109); x_71 = x_120; goto block_108; @@ -41083,7 +41739,7 @@ else { lean_object* x_121; lean_object* x_122; lean_dec(x_111); -x_121 = l_Lean_Parser_Term_structInst___elambda__1___closed__17; +x_121 = l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7; x_122 = l_Lean_Parser_ParserState_mkErrorsAt(x_110, x_121, x_109); x_71 = x_122; goto block_108; @@ -41228,7 +41884,7 @@ lean_object* _init_l_Lean_Parser_Term_bracketedDoSeq___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_structInst___closed__1; +x_1 = l_Lean_Parser_Term_implicitBinder___closed__2; x_2 = l_Lean_Parser_Term_bracketedDoSeq___closed__1; x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); return x_3; @@ -45740,55 +46396,89 @@ x_1 = l_Lean_Parser_Term_namedArgument___closed__8; return x_1; } } +lean_object* _init_l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("expected space"); +return x_1; +} +} lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1(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_17; lean_object* x_18; +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_17; lean_object* x_18; lean_object* x_19; x_3 = lean_ctor_get(x_2, 0); lean_inc(x_3); x_4 = lean_array_get_size(x_3); lean_dec(x_3); x_5 = lean_ctor_get(x_2, 1); lean_inc(x_5); -lean_inc(x_1); -x_17 = l_Lean_Parser_Term_namedArgument___elambda__1(x_1, x_2); -x_18 = lean_ctor_get(x_17, 3); -lean_inc(x_18); -if (lean_obj_tag(x_18) == 0) +x_17 = l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1; +x_18 = l_Lean_Parser_checkWsBeforeFn(x_17, x_1, x_2); +x_19 = lean_ctor_get(x_18, 3); +lean_inc(x_19); +if (lean_obj_tag(x_19) == 0) { -x_6 = x_17; +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_20 = lean_ctor_get(x_18, 0); +lean_inc(x_20); +x_21 = lean_array_get_size(x_20); +lean_dec(x_20); +x_22 = lean_ctor_get(x_18, 1); +lean_inc(x_22); +lean_inc(x_1); +x_23 = l_Lean_Parser_Term_namedArgument___elambda__1(x_1, x_18); +x_24 = lean_ctor_get(x_23, 3); +lean_inc(x_24); +if (lean_obj_tag(x_24) == 0) +{ +lean_dec(x_22); +lean_dec(x_21); +x_6 = x_23; goto block_16; } else { -lean_object* x_19; lean_object* x_20; uint8_t x_21; -x_19 = lean_ctor_get(x_18, 0); -lean_inc(x_19); -lean_dec(x_18); -x_20 = lean_ctor_get(x_17, 1); -lean_inc(x_20); -x_21 = lean_nat_dec_eq(x_20, x_5); -lean_dec(x_20); -if (x_21 == 0) +lean_object* x_25; lean_object* x_26; uint8_t x_27; +x_25 = lean_ctor_get(x_24, 0); +lean_inc(x_25); +lean_dec(x_24); +x_26 = lean_ctor_get(x_23, 1); +lean_inc(x_26); +x_27 = lean_nat_dec_eq(x_26, x_22); +lean_dec(x_26); +if (x_27 == 0) +{ +lean_dec(x_25); +lean_dec(x_22); +lean_dec(x_21); +x_6 = x_23; +goto block_16; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +lean_inc(x_22); +x_28 = l_Lean_Parser_ParserState_restore(x_23, x_21, x_22); +lean_dec(x_21); +x_29 = l_Lean_Parser_termParser___closed__2; +x_30 = l_Lean_Parser_maxPrec; +lean_inc(x_1); +x_31 = l_Lean_Parser_categoryParser___elambda__1(x_29, x_30, x_1, x_28); +x_32 = l_Lean_Parser_mergeOrElseErrors(x_31, x_25, x_22); +lean_dec(x_22); +x_6 = x_32; +goto block_16; +} +} +} +else { lean_dec(x_19); -x_6 = x_17; +x_6 = x_18; goto block_16; } -else -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -lean_inc(x_5); -x_22 = l_Lean_Parser_ParserState_restore(x_17, x_4, x_5); -x_23 = l_Lean_Parser_termParser___closed__2; -x_24 = l_Lean_Parser_maxPrec; -lean_inc(x_1); -x_25 = l_Lean_Parser_categoryParser___elambda__1(x_23, x_24, x_1, x_22); -x_26 = l_Lean_Parser_mergeOrElseErrors(x_25, x_19, x_5); -x_6 = x_26; -goto block_16; -} -} block_16: { lean_object* x_7; @@ -45843,14 +46533,6 @@ return x_15; } } } -lean_object* _init_l_Lean_Parser_Term_app___elambda__1___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("expected space"); -return x_1; -} -} lean_object* l_Lean_Parser_Term_app___elambda__1(lean_object* x_1, lean_object* x_2) { _start: { @@ -45861,111 +46543,106 @@ x_5 = lean_ctor_get(x_4, 3); lean_inc(x_5); 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; lean_object* x_20; lean_object* x_21; lean_object* x_22; x_6 = lean_ctor_get(x_4, 0); lean_inc(x_6); x_7 = lean_array_get_size(x_6); lean_dec(x_6); -x_8 = l_Lean_Parser_Term_app___elambda__1___closed__1; -x_9 = l_Lean_Parser_checkWsBeforeFn(x_8, x_1, x_4); -x_10 = lean_ctor_get(x_9, 3); -lean_inc(x_10); -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_9, 0); -lean_inc(x_11); -x_12 = lean_array_get_size(x_11); -lean_dec(x_11); -x_13 = lean_ctor_get(x_9, 1); -lean_inc(x_13); -lean_inc(x_1); -x_14 = l_Lean_Parser_Term_namedArgument___elambda__1(x_1, x_9); -x_15 = lean_ctor_get(x_14, 3); -lean_inc(x_15); -if (lean_obj_tag(x_15) == 0) -{ -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; -lean_dec(x_13); -x_16 = l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1(x_1, x_14); -x_17 = l_Lean_nullKind; -x_18 = l_Lean_Parser_ParserState_mkNode(x_16, x_17, x_12); -x_19 = l_Lean_mkAppStx___closed__8; -x_20 = l_Lean_Parser_ParserState_mkTrailingNode(x_18, x_19, x_7); -lean_dec(x_7); -return x_20; -} -else -{ -lean_object* x_21; lean_object* x_22; uint8_t x_23; -x_21 = lean_ctor_get(x_15, 0); -lean_inc(x_21); -lean_dec(x_15); -x_22 = lean_ctor_get(x_14, 1); +x_20 = l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1; +x_21 = l_Lean_Parser_checkWsBeforeFn(x_20, x_1, x_4); +x_22 = lean_ctor_get(x_21, 3); lean_inc(x_22); -x_23 = lean_nat_dec_eq(x_22, x_13); -lean_dec(x_22); -if (x_23 == 0) +if (lean_obj_tag(x_22) == 0) { -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; -lean_dec(x_21); -lean_dec(x_13); -lean_dec(x_1); -x_24 = l_Lean_nullKind; -x_25 = l_Lean_Parser_ParserState_mkNode(x_14, x_24, x_12); -x_26 = l_Lean_mkAppStx___closed__8; -x_27 = l_Lean_Parser_ParserState_mkTrailingNode(x_25, x_26, x_7); -lean_dec(x_7); -return x_27; -} -else -{ -lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; -lean_inc(x_13); -x_28 = l_Lean_Parser_ParserState_restore(x_14, x_12, x_13); -x_29 = l_Lean_Parser_termParser___closed__2; -x_30 = l_Lean_Parser_maxPrec; +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_23 = lean_ctor_get(x_21, 0); +lean_inc(x_23); +x_24 = lean_array_get_size(x_23); +lean_dec(x_23); +x_25 = lean_ctor_get(x_21, 1); +lean_inc(x_25); lean_inc(x_1); -x_31 = l_Lean_Parser_categoryParser___elambda__1(x_29, x_30, x_1, x_28); -x_32 = l_Lean_Parser_mergeOrElseErrors(x_31, x_21, x_13); -lean_dec(x_13); -x_33 = lean_ctor_get(x_32, 3); -lean_inc(x_33); -if (lean_obj_tag(x_33) == 0) +x_26 = l_Lean_Parser_Term_namedArgument___elambda__1(x_1, x_21); +x_27 = lean_ctor_get(x_26, 3); +lean_inc(x_27); +if (lean_obj_tag(x_27) == 0) { -lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; -x_34 = l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1(x_1, x_32); -x_35 = l_Lean_nullKind; -x_36 = l_Lean_Parser_ParserState_mkNode(x_34, x_35, x_12); -x_37 = l_Lean_mkAppStx___closed__8; -x_38 = l_Lean_Parser_ParserState_mkTrailingNode(x_36, x_37, x_7); -lean_dec(x_7); -return x_38; +lean_dec(x_25); +lean_dec(x_24); +x_8 = x_26; +goto block_19; } else { -lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; -lean_dec(x_33); -lean_dec(x_1); -x_39 = l_Lean_nullKind; -x_40 = l_Lean_Parser_ParserState_mkNode(x_32, x_39, x_12); -x_41 = l_Lean_mkAppStx___closed__8; -x_42 = l_Lean_Parser_ParserState_mkTrailingNode(x_40, x_41, x_7); -lean_dec(x_7); -return x_42; +lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +lean_dec(x_27); +x_29 = lean_ctor_get(x_26, 1); +lean_inc(x_29); +x_30 = lean_nat_dec_eq(x_29, x_25); +lean_dec(x_29); +if (x_30 == 0) +{ +lean_dec(x_28); +lean_dec(x_25); +lean_dec(x_24); +x_8 = x_26; +goto block_19; } +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +lean_inc(x_25); +x_31 = l_Lean_Parser_ParserState_restore(x_26, x_24, x_25); +lean_dec(x_24); +x_32 = l_Lean_Parser_termParser___closed__2; +x_33 = l_Lean_Parser_maxPrec; +lean_inc(x_1); +x_34 = l_Lean_Parser_categoryParser___elambda__1(x_32, x_33, x_1, x_31); +x_35 = l_Lean_Parser_mergeOrElseErrors(x_34, x_28, x_25); +lean_dec(x_25); +x_8 = x_35; +goto block_19; } } } else { -lean_object* x_43; lean_object* x_44; -lean_dec(x_10); -lean_dec(x_1); -x_43 = l_Lean_mkAppStx___closed__8; -x_44 = l_Lean_Parser_ParserState_mkTrailingNode(x_9, x_43, x_7); +lean_dec(x_22); +x_8 = x_21; +goto block_19; +} +block_19: +{ +lean_object* x_9; +x_9 = lean_ctor_get(x_8, 3); +lean_inc(x_9); +if (lean_obj_tag(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 = l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1(x_1, x_8); +x_11 = l_Lean_nullKind; +lean_inc(x_7); +x_12 = l_Lean_Parser_ParserState_mkNode(x_10, x_11, x_7); +x_13 = l_Lean_mkAppStx___closed__8; +x_14 = l_Lean_Parser_ParserState_mkTrailingNode(x_12, x_13, x_7); lean_dec(x_7); -return x_44; +return x_14; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_dec(x_9); +lean_dec(x_1); +x_15 = l_Lean_nullKind; +lean_inc(x_7); +x_16 = l_Lean_Parser_ParserState_mkNode(x_8, x_15, x_7); +x_17 = l_Lean_mkAppStx___closed__8; +x_18 = l_Lean_Parser_ParserState_mkTrailingNode(x_16, x_17, x_7); +lean_dec(x_7); +return x_18; +} } } else @@ -46898,7 +47575,7 @@ lean_inc(x_10); if (lean_obj_tag(x_10) == 0) { lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_11 = l_Lean_Parser_Term_app___elambda__1___closed__1; +x_11 = l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1; x_12 = l_Lean_Parser_checkWsBeforeFn(x_11, x_1, x_9); x_13 = lean_ctor_get(x_12, 3); lean_inc(x_13); @@ -47129,7 +47806,7 @@ lean_object* _init_l_Lean_Parser_Term_dollarProj___elambda__1___closed__3() { _start: { lean_object* x_1; -x_1 = lean_mk_string("$."); +x_1 = lean_mk_string(" $. "); return x_1; } } @@ -55800,6 +56477,8 @@ l_Lean_Parser_Term_type___closed__8 = _init_l_Lean_Parser_Term_type___closed__8( lean_mark_persistent(l_Lean_Parser_Term_type___closed__8); l_Lean_Parser_Term_type___closed__9 = _init_l_Lean_Parser_Term_type___closed__9(); lean_mark_persistent(l_Lean_Parser_Term_type___closed__9); +l_Lean_Parser_Term_type___closed__10 = _init_l_Lean_Parser_Term_type___closed__10(); +lean_mark_persistent(l_Lean_Parser_Term_type___closed__10); l_Lean_Parser_Term_type = _init_l_Lean_Parser_Term_type(); lean_mark_persistent(l_Lean_Parser_Term_type); res = l___regBuiltinParser_Lean_Parser_Term_type(lean_io_mk_world()); @@ -56586,6 +57265,18 @@ l_Lean_Parser_Term_structInst___elambda__1___closed__16 = _init_l_Lean_Parser_Te lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__16); l_Lean_Parser_Term_structInst___elambda__1___closed__17 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__17(); lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__17); +l_Lean_Parser_Term_structInst___elambda__1___closed__18 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__18(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__18); +l_Lean_Parser_Term_structInst___elambda__1___closed__19 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__19(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__19); +l_Lean_Parser_Term_structInst___elambda__1___closed__20 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__20(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__20); +l_Lean_Parser_Term_structInst___elambda__1___closed__21 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__21(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__21); +l_Lean_Parser_Term_structInst___elambda__1___closed__22 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__22(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__22); +l_Lean_Parser_Term_structInst___elambda__1___closed__23 = _init_l_Lean_Parser_Term_structInst___elambda__1___closed__23(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___elambda__1___closed__23); l_Lean_Parser_Term_structInst___closed__1 = _init_l_Lean_Parser_Term_structInst___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_structInst___closed__1); l_Lean_Parser_Term_structInst___closed__2 = _init_l_Lean_Parser_Term_structInst___closed__2(); @@ -56624,6 +57315,8 @@ l_Lean_Parser_Term_structInst___closed__18 = _init_l_Lean_Parser_Term_structInst lean_mark_persistent(l_Lean_Parser_Term_structInst___closed__18); l_Lean_Parser_Term_structInst___closed__19 = _init_l_Lean_Parser_Term_structInst___closed__19(); lean_mark_persistent(l_Lean_Parser_Term_structInst___closed__19); +l_Lean_Parser_Term_structInst___closed__20 = _init_l_Lean_Parser_Term_structInst___closed__20(); +lean_mark_persistent(l_Lean_Parser_Term_structInst___closed__20); l_Lean_Parser_Term_structInst = _init_l_Lean_Parser_Term_structInst(); lean_mark_persistent(l_Lean_Parser_Term_structInst); res = l___regBuiltinParser_Lean_Parser_Term_structInst(lean_io_mk_world()); @@ -56952,6 +57645,10 @@ l_Lean_Parser_Term_implicitBinder___closed__1 = _init_l_Lean_Parser_Term_implici lean_mark_persistent(l_Lean_Parser_Term_implicitBinder___closed__1); l_Lean_Parser_Term_implicitBinder___closed__2 = _init_l_Lean_Parser_Term_implicitBinder___closed__2(); lean_mark_persistent(l_Lean_Parser_Term_implicitBinder___closed__2); +l_Lean_Parser_Term_implicitBinder___closed__3 = _init_l_Lean_Parser_Term_implicitBinder___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_implicitBinder___closed__3); +l_Lean_Parser_Term_implicitBinder___closed__4 = _init_l_Lean_Parser_Term_implicitBinder___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_implicitBinder___closed__4); l_Lean_Parser_Term_instBinder___elambda__1___closed__1 = _init_l_Lean_Parser_Term_instBinder___elambda__1___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_instBinder___elambda__1___closed__1); l_Lean_Parser_Term_instBinder___elambda__1___closed__2 = _init_l_Lean_Parser_Term_instBinder___elambda__1___closed__2(); @@ -57073,6 +57770,8 @@ l_Lean_Parser_Term_forall___elambda__1___closed__11 = _init_l_Lean_Parser_Term_f lean_mark_persistent(l_Lean_Parser_Term_forall___elambda__1___closed__11); l_Lean_Parser_Term_forall___elambda__1___closed__12 = _init_l_Lean_Parser_Term_forall___elambda__1___closed__12(); lean_mark_persistent(l_Lean_Parser_Term_forall___elambda__1___closed__12); +l_Lean_Parser_Term_forall___elambda__1___closed__13 = _init_l_Lean_Parser_Term_forall___elambda__1___closed__13(); +lean_mark_persistent(l_Lean_Parser_Term_forall___elambda__1___closed__13); l_Lean_Parser_Term_forall___closed__1 = _init_l_Lean_Parser_Term_forall___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_forall___closed__1); l_Lean_Parser_Term_forall___closed__2 = _init_l_Lean_Parser_Term_forall___closed__2(); @@ -57134,6 +57833,8 @@ l_Lean_Parser_Term_fun___elambda__1___closed__11 = _init_l_Lean_Parser_Term_fun_ lean_mark_persistent(l_Lean_Parser_Term_fun___elambda__1___closed__11); l_Lean_Parser_Term_fun___elambda__1___closed__12 = _init_l_Lean_Parser_Term_fun___elambda__1___closed__12(); lean_mark_persistent(l_Lean_Parser_Term_fun___elambda__1___closed__12); +l_Lean_Parser_Term_fun___elambda__1___closed__13 = _init_l_Lean_Parser_Term_fun___elambda__1___closed__13(); +lean_mark_persistent(l_Lean_Parser_Term_fun___elambda__1___closed__13); l_Lean_Parser_Term_fun___closed__1 = _init_l_Lean_Parser_Term_fun___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_fun___closed__1); l_Lean_Parser_Term_fun___closed__2 = _init_l_Lean_Parser_Term_fun___closed__2(); @@ -57193,6 +57894,16 @@ l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchA lean_mark_persistent(l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__5); l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__6 = _init_l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__6(); lean_mark_persistent(l___private_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__6); +l_Lean_Parser_Term_matchAlts___elambda__1___closed__1 = _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_matchAlts___elambda__1___closed__1); +l_Lean_Parser_Term_matchAlts___elambda__1___closed__2 = _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_matchAlts___elambda__1___closed__2); +l_Lean_Parser_Term_matchAlts___elambda__1___closed__3 = _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_matchAlts___elambda__1___closed__3); +l_Lean_Parser_Term_matchAlts___elambda__1___closed__4 = _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_matchAlts___elambda__1___closed__4); +l_Lean_Parser_Term_matchAlts___elambda__1___closed__5 = _init_l_Lean_Parser_Term_matchAlts___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_matchAlts___elambda__1___closed__5); l_Lean_Parser_Term_matchAlts___closed__1 = _init_l_Lean_Parser_Term_matchAlts___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_matchAlts___closed__1); l_Lean_Parser_Term_matchAlts___closed__2 = _init_l_Lean_Parser_Term_matchAlts___closed__2(); @@ -57205,6 +57916,16 @@ l_Lean_Parser_Term_matchAlts___closed__5 = _init_l_Lean_Parser_Term_matchAlts___ lean_mark_persistent(l_Lean_Parser_Term_matchAlts___closed__5); l_Lean_Parser_Term_matchAlts___closed__6 = _init_l_Lean_Parser_Term_matchAlts___closed__6(); lean_mark_persistent(l_Lean_Parser_Term_matchAlts___closed__6); +l_Lean_Parser_Term_matchAlts___closed__7 = _init_l_Lean_Parser_Term_matchAlts___closed__7(); +lean_mark_persistent(l_Lean_Parser_Term_matchAlts___closed__7); +l_Lean_Parser_Term_matchDiscr___closed__1 = _init_l_Lean_Parser_Term_matchDiscr___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_matchDiscr___closed__1); +l_Lean_Parser_Term_matchDiscr___closed__2 = _init_l_Lean_Parser_Term_matchDiscr___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_matchDiscr___closed__2); +l_Lean_Parser_Term_matchDiscr___closed__3 = _init_l_Lean_Parser_Term_matchDiscr___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_matchDiscr___closed__3); +l_Lean_Parser_Term_matchDiscr = _init_l_Lean_Parser_Term_matchDiscr(); +lean_mark_persistent(l_Lean_Parser_Term_matchDiscr); l_Lean_Parser_Term_match___elambda__1___closed__1 = _init_l_Lean_Parser_Term_match___elambda__1___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__1); l_Lean_Parser_Term_match___elambda__1___closed__2 = _init_l_Lean_Parser_Term_match___elambda__1___closed__2(); @@ -57225,16 +57946,6 @@ l_Lean_Parser_Term_match___elambda__1___closed__9 = _init_l_Lean_Parser_Term_mat lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__9); l_Lean_Parser_Term_match___elambda__1___closed__10 = _init_l_Lean_Parser_Term_match___elambda__1___closed__10(); lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__10); -l_Lean_Parser_Term_match___elambda__1___closed__11 = _init_l_Lean_Parser_Term_match___elambda__1___closed__11(); -lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__11); -l_Lean_Parser_Term_match___elambda__1___closed__12 = _init_l_Lean_Parser_Term_match___elambda__1___closed__12(); -lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__12); -l_Lean_Parser_Term_match___elambda__1___closed__13 = _init_l_Lean_Parser_Term_match___elambda__1___closed__13(); -lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__13); -l_Lean_Parser_Term_match___elambda__1___closed__14 = _init_l_Lean_Parser_Term_match___elambda__1___closed__14(); -lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__14); -l_Lean_Parser_Term_match___elambda__1___closed__15 = _init_l_Lean_Parser_Term_match___elambda__1___closed__15(); -lean_mark_persistent(l_Lean_Parser_Term_match___elambda__1___closed__15); l_Lean_Parser_Term_match___closed__1 = _init_l_Lean_Parser_Term_match___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_match___closed__1); l_Lean_Parser_Term_match___closed__2 = _init_l_Lean_Parser_Term_match___closed__2(); @@ -57808,6 +58519,12 @@ l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__3 = _init_l_Lean_Parser lean_mark_persistent(l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__3); l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__4 = _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__4(); lean_mark_persistent(l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__4); +l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__5 = _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__5); +l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__6 = _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__6(); +lean_mark_persistent(l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__6); +l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7 = _init_l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7(); +lean_mark_persistent(l_Lean_Parser_Term_bracketedDoSeq___elambda__1___closed__7); l_Lean_Parser_Term_bracketedDoSeq___closed__1 = _init_l_Lean_Parser_Term_bracketedDoSeq___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_bracketedDoSeq___closed__1); l_Lean_Parser_Term_bracketedDoSeq___closed__2 = _init_l_Lean_Parser_Term_bracketedDoSeq___closed__2(); @@ -58138,8 +58855,8 @@ l_Lean_Parser_Term_namedArgument___closed__8 = _init_l_Lean_Parser_Term_namedArg lean_mark_persistent(l_Lean_Parser_Term_namedArgument___closed__8); l_Lean_Parser_Term_namedArgument = _init_l_Lean_Parser_Term_namedArgument(); lean_mark_persistent(l_Lean_Parser_Term_namedArgument); -l_Lean_Parser_Term_app___elambda__1___closed__1 = _init_l_Lean_Parser_Term_app___elambda__1___closed__1(); -lean_mark_persistent(l_Lean_Parser_Term_app___elambda__1___closed__1); +l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1 = _init_l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_app___elambda__1___spec__1___closed__1); l_Lean_Parser_Term_app___closed__1 = _init_l_Lean_Parser_Term_app___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_app___closed__1); l_Lean_Parser_Term_app___closed__2 = _init_l_Lean_Parser_Term_app___closed__2(); diff --git a/stage0/stdlib/Lean/PrettyPrinter.c b/stage0/stdlib/Lean/PrettyPrinter.c index 9cd2a67358..8cc3a0d4d7 100644 --- a/stage0/stdlib/Lean/PrettyPrinter.c +++ b/stage0/stdlib/Lean/PrettyPrinter.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.PrettyPrinter -// Imports: Init Lean.PrettyPrinter.Parenthesizer Lean.PrettyPrinter.Formatter +// Imports: Init Lean.Delaborator Lean.PrettyPrinter.Parenthesizer Lean.PrettyPrinter.Formatter #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -13,7 +13,507 @@ #ifdef __cplusplus extern "C" { #endif +extern lean_object* l_Lean_Parser_builtinTokenTable; +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__2; +lean_object* l_Lean_PrettyPrinter_formatTerm(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Array_empty___closed__1; +lean_object* lean_io_ref_get(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_ppExpr(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_PrettyPrinter_parenthesizeCommand(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_parenthesizeTerm(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_registerPPTerm___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__1; +extern lean_object* l_Lean_ppExprFnRef; +extern lean_object* l_Lean_Meta_run___rarg___closed__5; +extern lean_object* l_Lean_Parser_Module_header___elambda__1___closed__2; +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_ppModule(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_ppCommand(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_ppTerm(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_format(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_delab(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_formatCommand(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Std_PersistentArray_empty___closed__3; +lean_object* l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__4; +lean_object* l_Lean_PrettyPrinter_ppModule___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_ppModule___closed__1; +lean_object* l_Lean_Syntax_getArgs(lean_object*); +lean_object* l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__2; +lean_object* l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__1; +lean_object* l_Lean_PrettyPrinter_registerPPTerm(lean_object*); +extern lean_object* l_Lean_TraceState_Inhabited___closed__1; +lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__3; +lean_object* l_Lean_Meta_Exception_toStr(lean_object*); +lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); +lean_object* l_Lean_mkConst(lean_object*, lean_object*); +extern lean_object* l_Lean_NameGenerator_Inhabited___closed__3; +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_ppTerm(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +x_5 = l_Lean_PrettyPrinter_parenthesizeTerm(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; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_PrettyPrinter_formatTerm(x_1, x_6, x_3, x_7); +return x_8; +} +else +{ +uint8_t x_9; +lean_dec(x_3); +lean_dec(x_1); +x_9 = !lean_is_exclusive(x_5); +if (x_9 == 0) +{ +return x_5; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_5, 0); +x_11 = lean_ctor_get(x_5, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_5); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_ppExpr(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; +x_5 = lean_box(0); +lean_inc(x_3); +x_6 = l_Lean_delab(x_2, x_5, x_3, x_4); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = l_Lean_PrettyPrinter_ppTerm(x_1, x_7, x_3, x_8); +return x_9; +} +else +{ +uint8_t x_10; +lean_dec(x_3); +lean_dec(x_1); +x_10 = !lean_is_exclusive(x_6); +if (x_10 == 0) +{ +return x_6; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_6, 0); +x_12 = lean_ctor_get(x_6, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_6); +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* l_Lean_PrettyPrinter_ppCommand(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +x_5 = l_Lean_PrettyPrinter_parenthesizeCommand(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; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_PrettyPrinter_formatCommand(x_1, x_6, x_3, x_7); +return x_8; +} +else +{ +uint8_t x_9; +lean_dec(x_3); +lean_dec(x_1); +x_9 = !lean_is_exclusive(x_5); +if (x_9 == 0) +{ +return x_5; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_5, 0); +x_11 = lean_ctor_get(x_5, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_5); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* _init_l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("\n\n"); +return x_1; +} +} +lean_object* _init_l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___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) { +_start: +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_array_get_size(x_3); +x_9 = lean_nat_dec_lt(x_4, x_8); +lean_dec(x_8); +if (x_9 == 0) +{ +lean_object* x_10; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_5); +lean_ctor_set(x_10, 1, x_7); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_11 = lean_array_fget(x_3, x_4); +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_add(x_4, x_12); +lean_dec(x_4); +lean_inc(x_6); +lean_inc(x_1); +x_14 = l_Lean_PrettyPrinter_ppCommand(x_1, x_11, x_6, x_7); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; lean_object* x_16; uint8_t 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 = 0; +x_18 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__2; +x_19 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_19, 0, x_5); +lean_ctor_set(x_19, 1, x_18); +lean_ctor_set_uint8(x_19, sizeof(void*)*2, x_17); +x_20 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_15); +lean_ctor_set_uint8(x_20, sizeof(void*)*2, x_17); +x_4 = x_13; +x_5 = x_20; +x_7 = x_16; +goto _start; +} +else +{ +uint8_t x_22; +lean_dec(x_13); +lean_dec(x_6); +lean_dec(x_5); +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* _init_l_Lean_PrettyPrinter_ppModule___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Parser_Module_header___elambda__1___closed__2; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_ppModule(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(0u); +x_6 = l_Lean_Syntax_getArg(x_2, x_5); +x_7 = l_Lean_PrettyPrinter_ppModule___closed__1; +lean_inc(x_3); +lean_inc(x_1); +x_8 = l_Lean_PrettyPrinter_format(x_1, x_7, x_6, x_3, x_4); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = l_Lean_Syntax_getArgs(x_2); +x_12 = lean_array_get_size(x_11); +x_13 = lean_unsigned_to_nat(1u); +x_14 = l_Array_extract___rarg(x_11, x_13, x_12); +lean_dec(x_12); +lean_dec(x_11); +x_15 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1(x_1, x_2, x_14, x_5, x_9, x_3, x_10); +lean_dec(x_14); +return x_15; +} +else +{ +uint8_t x_16; +lean_dec(x_3); +lean_dec(x_1); +x_16 = !lean_is_exclusive(x_8); +if (x_16 == 0) +{ +return x_8; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_8, 0); +x_18 = lean_ctor_get(x_8, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_8); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___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) { +_start: +{ +lean_object* x_8; +x_8 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_3); +lean_dec(x_2); +return x_8; +} +} +lean_object* l_Lean_PrettyPrinter_ppModule___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_PrettyPrinter_ppModule(x_1, x_2, x_3, x_4); +lean_dec(x_2); +return x_5; +} +} +lean_object* _init_l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(""); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_registerPPTerm___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; uint8_t 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; +x_7 = 0; +x_8 = 1; +x_9 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_9, 0, x_5); +lean_ctor_set_uint8(x_9, sizeof(void*)*1, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 1, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 2, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 3, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 4, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 5, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 6, x_8); +x_10 = l_Array_empty___closed__1; +x_11 = lean_unsigned_to_nat(0u); +x_12 = lean_unsigned_to_nat(1000u); +x_13 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_13, 0, x_9); +lean_ctor_set(x_13, 1, x_4); +lean_ctor_set(x_13, 2, x_10); +lean_ctor_set(x_13, 3, x_11); +lean_ctor_set(x_13, 4, x_12); +x_14 = l_Lean_Meta_run___rarg___closed__5; +x_15 = l_Lean_NameGenerator_Inhabited___closed__3; +x_16 = l_Lean_TraceState_Inhabited___closed__1; +x_17 = l_Std_PersistentArray_empty___closed__3; +x_18 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_18, 0, x_2); +lean_ctor_set(x_18, 1, x_3); +lean_ctor_set(x_18, 2, x_14); +lean_ctor_set(x_18, 3, x_15); +lean_ctor_set(x_18, 4, x_16); +lean_ctor_set(x_18, 5, x_17); +x_19 = l_Lean_PrettyPrinter_ppExpr(x_1, x_6, x_13, x_18); +if (lean_obj_tag(x_19) == 0) +{ +lean_object* x_20; +x_20 = lean_ctor_get(x_19, 0); +lean_inc(x_20); +lean_dec(x_19); +return x_20; +} +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; +x_21 = lean_ctor_get(x_19, 0); +lean_inc(x_21); +lean_dec(x_19); +x_22 = l_Lean_Meta_Exception_toStr(x_21); +x_23 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_23, 0, x_22); +x_24 = l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__2; +x_25 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_23); +lean_ctor_set_uint8(x_25, sizeof(void*)*2, x_7); +x_26 = l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__4; +x_27 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +lean_ctor_set_uint8(x_27, sizeof(void*)*2, x_7); +return x_27; +} +} +} +lean_object* l_Lean_PrettyPrinter_registerPPTerm(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Parser_builtinTokenTable; +x_3 = lean_io_ref_get(x_2, x_1); +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); +lean_dec(x_3); +x_6 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_registerPPTerm___lambda__1), 6, 1); +lean_closure_set(x_6, 0, x_4); +x_7 = l_Lean_ppExprFnRef; +x_8 = lean_io_ref_set(x_7, x_6, x_5); +return x_8; +} +else +{ +uint8_t x_9; +x_9 = !lean_is_exclusive(x_3); +if (x_9 == 0) +{ +return x_3; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_3, 0); +x_11 = lean_ctor_get(x_3, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_3); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} lean_object* initialize_Init(lean_object*); +lean_object* initialize_Lean_Delaborator(lean_object*); lean_object* initialize_Lean_PrettyPrinter_Parenthesizer(lean_object*); lean_object* initialize_Lean_PrettyPrinter_Formatter(lean_object*); static bool _G_initialized = false; @@ -24,12 +524,29 @@ _G_initialized = true; res = initialize_Init(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Delaborator(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Lean_PrettyPrinter_Parenthesizer(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Lean_PrettyPrinter_Formatter(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__1 = _init_l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__1(); +lean_mark_persistent(l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__1); +l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__2 = _init_l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__2(); +lean_mark_persistent(l_Array_iterateMAux___main___at_Lean_PrettyPrinter_ppModule___spec__1___closed__2); +l_Lean_PrettyPrinter_ppModule___closed__1 = _init_l_Lean_PrettyPrinter_ppModule___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_ppModule___closed__1); +l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__1 = _init_l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__1); +l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__2 = _init_l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__2); +l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__3 = _init_l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__3); +l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__4 = _init_l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_registerPPTerm___lambda__1___closed__4); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/PrettyPrinter/Formatter.c b/stage0/stdlib/Lean/PrettyPrinter/Formatter.c index fb42536e3a..e591e084e1 100644 --- a/stage0/stdlib/Lean/PrettyPrinter/Formatter.c +++ b/stage0/stdlib/Lean/PrettyPrinter/Formatter.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.PrettyPrinter.Formatter -// Imports: Init Lean.Parser Lean.Elab.Quotation +// Imports: Init Lean.Parser Lean.Meta Lean.Elab.Quotation #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -13,53 +13,538 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(lean_object*, lean_object*, lean_object*); +lean_object* l_List_reverse___rarg(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Syntax_many___elambda__1___closed__1; extern lean_object* l_Lean_Name_toString___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visitArgs(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_fieldIdxKind; +extern lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_concat(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__1; +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__4; +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_setExpected_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__12; +extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__2; +extern lean_object* l_Lean_Parser_Syntax_many1___elambda__1___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_nullKind; +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__9; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__2; +extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__4; +extern lean_object* l_Lean_MessageData_ofList___closed__3; +lean_object* lean_array_uget(lean_object*, size_t); +lean_object* l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Formatter_node_formatter___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_bind___at_Lean_PrettyPrinter_Formatter_visit___main___spec__6(lean_object*, lean_object*); +lean_object* l_StateT_get___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_many_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_hasSorry___main___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__8; +lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_pretty(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___rarg(lean_object*, lean_object*, lean_object*); +uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_formatTerm(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_Traverser_up(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__2; +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_map___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_commentBody_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__2; +lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__9(lean_object*, size_t, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__1(lean_object*); extern lean_object* l_Array_empty___closed__1; +extern lean_object* l_Lean_Format_flatten___main___closed__1; lean_object* lean_environment_find(lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_unquotedSymbolFn___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_orelse_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Util_1__mkPanicMessage(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3; +extern lean_object* l_Lean_fieldIdxKind___closed__1; +uint8_t l_Array_isEqvAux___main___at_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__4; +lean_object* l_Lean_Parser_mkParserState(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__6; +lean_object* l_ReaderT_Monad___rarg(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__2; +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___boxed(lean_object*); lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_getStack(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__2; +lean_object* l_List_range(lean_object*); +lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___lambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppFn___main(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter(lean_object*); +extern lean_object* l_String_splitAux___main___closed__1; +lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__9___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__6; +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___boxed(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_try_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute(lean_object*); +extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2; lean_object* l_Lean_SMap_empty___at_Lean_PrettyPrinter_formatterAttribute___spec__1; +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_fieldIdx_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +size_t l_USize_shiftRight(size_t, size_t); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__13; +lean_object* l_Lean_Expr_appArg_x21(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_node_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_sepBy_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__3; +extern lean_object* l_Lean_mkAppStx___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1; +lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___boxed(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__2; +extern lean_object* l_Lean_nameLitKind; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__8; extern lean_object* l_Lean_LocalContext_Inhabited___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter___closed__1; +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__5; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__9; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_getStack___boxed(lean_object*); +lean_object* l___private_Lean_PrettyPrinter_Formatter_1__regTraceClasses(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__5; +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__10; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_commentBody_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_concatArgs(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_withAntiquot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Formatter_many_formatter___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_String_trimRight(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__11; +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__1; lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___lambda__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___lambda__1___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter(lean_object*); +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2(lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object*); extern lean_object* l_Lean_EnvExtension_Inhabited___rarg___closed__1; +extern lean_object* l_Lean_numLitKind; +lean_object* lean_nat_sub(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2; +extern lean_object* l_Lean_choiceKind___closed__2; +extern lean_object* l_Lean_strLitKind; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___boxed(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__3; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__2; +lean_object* l_Array_shrink___main___rarg(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_push___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1; +extern lean_object* l_Lean_Parser_regTermParserAttribute___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__6; +uint8_t l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__5; lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__3; +extern lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__1; lean_object* l_Std_mkHashMapImp___rarg(lean_object*); +extern lean_object* l_Lean_Elab_Term_mkConst___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_node_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__2; +extern lean_object* l___private_Lean_Elab_Quotation_10__toPreterm___main___closed__5; +lean_object* l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11___boxed(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__13; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__1; +size_t l_Lean_Name_hash(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Char_HasRepr___closed__1; +extern lean_object* l_Lean_Parser_regCommandParserAttribute___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1; +lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__2; +lean_object* l_StateT_get___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_getId(lean_object*); +lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_charLitKind; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2; +lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter(lean_object*); +extern size_t l_Std_PersistentHashMap_insertAux___main___rarg___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_symbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__3; +lean_object* l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__12(lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__4; +extern lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__2; lean_object* l_Lean_PrettyPrinter_formatterAttribute; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__3; +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter(lean_object*); +extern lean_object* l_Lean_Options_empty; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter(lean_object*); +lean_object* lean_expr_dbg_to_string(lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_attrParamSyntaxToIdentifier(lean_object*); +uint8_t l_Lean_Syntax_structEq___main(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__1; +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SMap_empty___at_Lean_PrettyPrinter_formatterAttribute___spec__1___closed__1; +size_t lean_usize_modn(size_t, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__1; +lean_object* l_ReaderT_map___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__3(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_pushToken___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter(lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; +extern lean_object* l_Lean_Format_Inhabited; +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter(lean_object*); +lean_object* l_String_trimLeft(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_setExpected_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__6; +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SMap_empty___at_Lean_PrettyPrinter_formatterAttribute___spec__1___closed__2; +extern lean_object* l_Lean_quotedSymbolKind; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__3; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3; +lean_object* l_Lean_PrettyPrinter_format(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__7; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__1; +lean_object* l_List_forM___main___at_Lean_PrettyPrinter_Formatter_sepBy_formatter___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_withPosition_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +size_t l_USize_land(size_t, size_t); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__1; lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__10; +lean_object* l_Lean_PrettyPrinter_formatCommand___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___lambda__1___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_many1_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_getStack___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__16; +lean_object* l_Lean_Syntax_Traverser_fromSyntax(lean_object*); +lean_object* l_Lean_PrettyPrinter_formatCommand___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___boxed(lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1; +lean_object* l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11(lean_object*, lean_object*); +extern lean_object* l_Lean_formatDataValue___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__2; +lean_object* l_ReaderT_bind___at_Lean_PrettyPrinter_Formatter_visit___main___spec__6___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_setStack___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__1___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_parseToken___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_quotedSymbolKind___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_identKind; lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__11; lean_object* l_Lean_PrettyPrinter_formatterAttribute___closed__3; +extern lean_object* l_Lean_Syntax_inhabited; +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_formatTerm___closed__2; +lean_object* l_Std_PersistentArray_push___rarg(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_getStack___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__7; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_formatCommand(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_push(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_Traverser_down(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___lambda__1___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__2; lean_object* l_Lean_PrettyPrinter_formatterAttribute___closed__5; +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__3; +extern lean_object* l_Lean_Format_getWidth___closed__1; +lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___boxed(lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; +lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_DepElim_Alt_toMessageData___closed__4; +uint8_t lean_nat_dec_le(lean_object*, lean_object*); +lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l_String_quote(lean_object*); +lean_object* l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter(lean_object*); +lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__8(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__4; +lean_object* l_Lean_PrettyPrinter_Formatter_pushToken(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_getArgs(lean_object*); +lean_object* l_Array_isEqvAux___main___at_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_getKind(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__2; +lean_object* l_StateT_Monad___rarg(lean_object*); +lean_object* lean_panic_fn(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__12; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3; +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter(lean_object*, lean_object*); +lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__10(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__3; lean_object* l_Std_PersistentHashMap_empty___at_Lean_PrettyPrinter_formatterAttribute___spec__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___boxed(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_concat___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_setStack(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__5; +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___boxed(lean_object*, lean_object*); +extern lean_object* l_Lean_mkAppStx___closed__9; +lean_object* l_Lean_PrettyPrinter_Formatter_parseToken(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter(lean_object*); +lean_object* l_Lean_Expr_constName_x3f(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__3; +lean_object* l_Lean_PrettyPrinter_formatCommand___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__2; lean_object* l_Lean_PrettyPrinter_formatterAttribute___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_andthen_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__7; +uint8_t l_Lean_Meta_TransparencyMode_lt(uint8_t, uint8_t); +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +extern lean_object* l_PUnit_Inhabited; +lean_object* l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Formatter_many_formatter___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_fold(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_orelse_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_concat___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__1; +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(lean_object*); +lean_object* l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__12___boxed(lean_object*, lean_object*); +lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__1; +lean_object* l_Array_forMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__14; +lean_object* l_Lean_PrettyPrinter_Formatter_try_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__1; +lean_object* l_Array_forMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_concat___lambda__1(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter(lean_object*); lean_object* l_Lean_PrettyPrinter_formatterAttribute___closed__4; +extern lean_object* l_Lean_mkOptionalNode___closed__2; +lean_object* lean_nat_mod(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_symbol_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__2; lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__2; +extern lean_object* l_Lean_Meta_DiscrTree_Trie_format___main___rarg___closed__1; +lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__8; +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_withPosition_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_sepBy1_formatter(lean_object*, 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*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__3; lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_KeyedDeclsAttribute_init___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser; +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Lean_Elab_Quotation_11__oldRunTermElabM___rarg___closed__2; +lean_object* l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7___boxed(lean_object*, lean_object*); +lean_object* lean_usize_to_nat(size_t); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__1; lean_object* l_Std_mkHashMap___at_Lean_PrettyPrinter_formatterAttribute___spec__2(lean_object*); +lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__8___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__2; +extern lean_object* l_String_Inhabited; +lean_object* l_Lean_Syntax_Traverser_left(lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__5; +lean_object* l_Lean_mkConst(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__3; +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter(lean_object*); extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4; +lean_object* l_List_forM___main___at_Lean_PrettyPrinter_Formatter_sepBy_formatter___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +lean_object* l_Lean_PrettyPrinter_formatTerm___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_andthen_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__1; +extern lean_object* l_Lean_MetavarContext_MkBinding_mkBinding___closed__1; +lean_object* l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__3; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__3; +lean_object* l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___closed__15; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_visit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_string_dec_eq(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__1; +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter(lean_object*); +lean_object* l_monadInhabited___rarg(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__2; +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_formatterAttribute___closed__2; +lean_object* l_Array_foldl___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* _init_l_Lean_PrettyPrinter_mkFormatterAttribute___lambda__1___closed__1() { _start: { @@ -391,8 +876,9506 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } +lean_object* l_StateT_get___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +lean_inc(x_1); +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_1); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_3); +return x_5; +} +} +lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = lean_apply_3(x_1, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg___boxed), 5, 0); +return x_2; +} +} +lean_object* l_ReaderT_map___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__3___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; +x_7 = lean_apply_4(x_2, x_3, x_4, x_5, x_6); +if (lean_obj_tag(x_7) == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_ctor_get(x_7, 0); +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); +x_12 = lean_apply_1(x_1, x_11); +lean_ctor_set(x_9, 0, x_12); +return x_7; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = lean_ctor_get(x_9, 0); +x_14 = lean_ctor_get(x_9, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_9); +x_15 = lean_apply_1(x_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_14); +lean_ctor_set(x_7, 0, x_16); +return x_7; +} +} +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; +x_17 = lean_ctor_get(x_7, 0); +x_18 = lean_ctor_get(x_7, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_7); +x_19 = lean_ctor_get(x_17, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_17, 1); +lean_inc(x_20); +if (lean_is_exclusive(x_17)) { + lean_ctor_release(x_17, 0); + lean_ctor_release(x_17, 1); + x_21 = x_17; +} else { + lean_dec_ref(x_17); + x_21 = lean_box(0); +} +x_22 = lean_apply_1(x_1, x_19); +if (lean_is_scalar(x_21)) { + x_23 = lean_alloc_ctor(0, 2, 0); +} else { + x_23 = x_21; +} +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_20); +x_24 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_18); +return x_24; +} +} +else +{ +uint8_t x_25; +lean_dec(x_1); +x_25 = !lean_is_exclusive(x_7); +if (x_25 == 0) +{ +return x_7; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_7, 0); +x_27 = lean_ctor_get(x_7, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_7); +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_ReaderT_map___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_ReaderT_map___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__3___rarg), 6, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__2(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; +x_6 = !lean_is_exclusive(x_3); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_3, 0); +lean_dec(x_7); +lean_ctor_set(x_3, 0, 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); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_5); +return x_10; +} +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; +x_11 = lean_ctor_get(x_3, 1); +x_12 = lean_ctor_get(x_3, 2); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_3); +x_13 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_13, 0, x_1); +lean_ctor_set(x_13, 1, x_11); +lean_ctor_set(x_13, 2, x_12); +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); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_5); +return x_16; +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___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: +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_4); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_8 = lean_ctor_get(x_4, 0); +x_9 = lean_apply_1(x_2, x_8); +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, 1); +lean_ctor_set(x_4, 0, x_11); +lean_ctor_set(x_9, 1, x_4); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_9); +lean_ctor_set(x_12, 1, x_6); +return x_12; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = lean_ctor_get(x_9, 0); +x_14 = lean_ctor_get(x_9, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_9); +lean_ctor_set(x_4, 0, x_14); +x_15 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_4); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_6); +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; +x_17 = lean_ctor_get(x_4, 0); +x_18 = lean_ctor_get(x_4, 1); +x_19 = lean_ctor_get(x_4, 2); +lean_inc(x_19); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_4); +x_20 = lean_apply_1(x_2, x_17); +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_20, 1); +lean_inc(x_22); +if (lean_is_exclusive(x_20)) { + lean_ctor_release(x_20, 0); + lean_ctor_release(x_20, 1); + x_23 = x_20; +} else { + lean_dec_ref(x_20); + x_23 = lean_box(0); +} +x_24 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_18); +lean_ctor_set(x_24, 2, x_19); +if (lean_is_scalar(x_23)) { + x_25 = lean_alloc_ctor(0, 2, 0); +} else { + x_25 = x_23; +} +lean_ctor_set(x_25, 0, x_21); +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_6); +return x_26; +} +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_StateT_get___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__1___boxed), 3, 0); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__1; +x_2 = lean_alloc_closure((void*)(l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg___boxed), 5, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__1___boxed), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__3; +x_2 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__2; +x_3 = lean_alloc_closure((void*)(l_ReaderT_map___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__3___rarg), 6, 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_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__2___boxed), 5, 0); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__3___boxed), 6, 0); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__4; +x_2 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__5; +x_3 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__6; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__7; +return x_1; +} +} +lean_object* l_StateT_get___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_StateT_get___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_ReaderT_lift___at_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___spec__2___rarg(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__1___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__1(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__2(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___lambda__3(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_3); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStack___rarg(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, 2); +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_1); +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_PrettyPrinter_Formatter_getStack(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_getStack___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStack___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStack___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_PrettyPrinter_Formatter_getStack(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_1, x_2, x_3); +x_5 = !lean_is_exclusive(x_4); +if (x_5 == 0) +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_ctor_get(x_4, 0); +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; +x_8 = lean_ctor_get(x_6, 0); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +lean_ctor_set(x_6, 0, x_9); +return x_4; +} +else +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_10 = lean_ctor_get(x_6, 0); +x_11 = lean_ctor_get(x_6, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_6); +x_12 = lean_array_get_size(x_10); +lean_dec(x_10); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_11); +lean_ctor_set(x_4, 0, x_13); +return x_4; +} +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_14 = lean_ctor_get(x_4, 0); +x_15 = lean_ctor_get(x_4, 1); +lean_inc(x_15); +lean_inc(x_14); +lean_dec(x_4); +x_16 = lean_ctor_get(x_14, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_14, 1); +lean_inc(x_17); +if (lean_is_exclusive(x_14)) { + lean_ctor_release(x_14, 0); + lean_ctor_release(x_14, 1); + x_18 = x_14; +} else { + lean_dec_ref(x_14); + x_18 = lean_box(0); +} +x_19 = lean_array_get_size(x_16); +lean_dec(x_16); +if (lean_is_scalar(x_18)) { + x_20 = lean_alloc_ctor(0, 2, 0); +} else { + x_20 = x_18; +} +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_17); +x_21 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_15); +return x_21; +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_getStackSize___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_getStackSize___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_PrettyPrinter_Formatter_getStackSize(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_setStack(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; +x_6 = !lean_is_exclusive(x_3); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_3, 2); +lean_dec(x_7); +lean_ctor_set(x_3, 2, 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); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_5); +return x_10; +} +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; +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(0, 3, 0); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set(x_13, 2, 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); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_5); +return x_16; +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_setStack___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_setStack(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_push(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; +x_6 = !lean_is_exclusive(x_3); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_3, 2); +x_8 = lean_array_push(x_7, x_1); +lean_ctor_set(x_3, 2, x_8); +x_9 = lean_box(0); +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; +x_12 = lean_ctor_get(x_3, 0); +x_13 = lean_ctor_get(x_3, 1); +x_14 = lean_ctor_get(x_3, 2); +lean_inc(x_14); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_3); +x_15 = lean_array_push(x_14, x_1); +x_16 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_16, 0, x_12); +lean_ctor_set(x_16, 1, x_13); +lean_ctor_set(x_16, 2, x_15); +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_5); +return x_19; +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_push___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_push(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +lean_dec(x_4); +x_6 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_1); +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* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = l_Lean_Syntax_Traverser_left(x_5); +lean_ctor_set(x_1, 0, x_6); +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_1); +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_1, 0); +x_11 = lean_ctor_get(x_1, 1); +x_12 = lean_ctor_get(x_1, 2); +lean_inc(x_12); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_1); +x_13 = l_Lean_Syntax_Traverser_left(x_10); +x_14 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_11); +lean_ctor_set(x_14, 2, x_12); +x_15 = lean_box(0); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_14); +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; +} +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__3(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; +x_6 = !lean_is_exclusive(x_3); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_7 = lean_ctor_get(x_3, 0); +x_8 = l_Lean_Syntax_Traverser_down(x_7, x_1); +lean_ctor_set(x_3, 0, x_8); +x_9 = lean_box(0); +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; +x_12 = lean_ctor_get(x_3, 0); +x_13 = lean_ctor_get(x_3, 1); +x_14 = lean_ctor_get(x_3, 2); +lean_inc(x_14); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_3); +x_15 = l_Lean_Syntax_Traverser_down(x_12, x_1); +x_16 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_13); +lean_ctor_set(x_16, 2, x_14); +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_5); +return x_19; +} +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = l_Lean_Syntax_Traverser_up(x_5); +lean_ctor_set(x_1, 0, x_6); +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_1); +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_1, 0); +x_11 = lean_ctor_get(x_1, 1); +x_12 = lean_ctor_get(x_1, 2); +lean_inc(x_12); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_1); +x_13 = l_Lean_Syntax_Traverser_up(x_10); +x_14 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_11); +lean_ctor_set(x_14, 2, x_12); +x_15 = lean_box(0); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_14); +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; +} +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_visitArgs(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_10); +lean_dec(x_7); +x_11 = l_Lean_Syntax_getArgs(x_9); +lean_dec(x_9); +x_12 = lean_array_get_size(x_11); +lean_dec(x_11); +x_13 = lean_unsigned_to_nat(0u); +x_14 = lean_nat_dec_lt(x_13, x_12); +if (x_14 == 0) +{ +lean_object* x_15; +lean_dec(x_12); +lean_dec(x_2); +lean_dec(x_1); +x_15 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_10, x_4, x_8); +lean_dec(x_4); +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; +x_16 = lean_unsigned_to_nat(1u); +x_17 = lean_nat_sub(x_12, x_16); +lean_dec(x_12); +x_18 = l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__3(x_17, x_2, x_10, x_4, x_8); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_ctor_get(x_19, 1); +lean_inc(x_21); +lean_dec(x_19); +lean_inc(x_4); +x_22 = lean_apply_4(x_1, x_2, x_21, x_4, x_20); +if (lean_obj_tag(x_22) == 0) +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +lean_dec(x_23); +x_26 = l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg(x_25, x_4, x_24); +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_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +x_30 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_29, x_4, x_28); +lean_dec(x_4); +return x_30; +} +else +{ +uint8_t x_31; +lean_dec(x_4); +x_31 = !lean_is_exclusive(x_22); +if (x_31 == 0) +{ +return x_22; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_22, 0); +x_33 = lean_ctor_get(x_22, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_22); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +} +} +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__3(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__4(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_fold(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; +x_7 = l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(x_4, x_5, x_6); +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_8, 1); +lean_inc(x_11); +lean_dec(x_8); +lean_inc(x_5); +lean_inc(x_3); +x_12 = lean_apply_4(x_2, x_3, x_11, x_5, x_9); +if (lean_obj_tag(x_12) == 0) +{ +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; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_15, x_5, x_14); +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_array_get_size(x_19); +lean_inc(x_10); +x_22 = l_Array_extract___rarg(x_19, x_10, x_21); +lean_dec(x_21); +x_23 = lean_apply_1(x_1, x_22); +x_24 = l_Array_shrink___main___rarg(x_19, x_10); +lean_dec(x_10); +x_25 = lean_array_push(x_24, x_23); +x_26 = l_Lean_PrettyPrinter_Formatter_setStack(x_25, x_3, x_20, x_5, x_18); +lean_dec(x_5); +lean_dec(x_3); +return x_26; +} +else +{ +uint8_t x_27; +lean_dec(x_10); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_12); +if (x_27 == 0) +{ +return x_12; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_12, 0); +x_29 = lean_ctor_get(x_12, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_12); +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; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_concat___lambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = 0; +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_1); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_concat___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_concat___lambda__1), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_concat___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Formatter_concat___closed__1; +x_2 = lean_box(0); +x_3 = lean_alloc_closure((void*)(l_Array_foldl___rarg___boxed), 3, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_concat(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_PrettyPrinter_Formatter_concat___closed__2; +x_7 = l_Lean_PrettyPrinter_Formatter_fold(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_concatArgs(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_visitArgs), 5, 1); +lean_closure_set(x_6, 0, x_1); +x_7 = l_Lean_PrettyPrinter_Formatter_concat(x_6, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___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_3); +x_7 = lean_nat_dec_lt(x_4, x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +lean_dec(x_4); +return x_5; +} +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_array_fget(x_3, x_4); +x_9 = l_Lean_Options_empty; +x_10 = l_Lean_Format_pretty(x_8, x_9); +x_11 = l_String_quote(x_10); +x_12 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_12, 0, x_11); +x_13 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_13, 0, x_12); +x_14 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; +x_15 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +x_16 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_5); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_4, x_17); +lean_dec(x_4); +x_4 = x_18; +x_5 = x_16; +goto _start; +} +} +} +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___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) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Meta_addContext(x_2, x_5, x_6); +x_8 = lean_ctor_get(x_7, 1); +lean_inc(x_8); +x_9 = lean_ctor_get(x_8, 4); +lean_inc(x_9); +x_10 = !lean_is_exclusive(x_7); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_7, 0); +x_12 = lean_ctor_get(x_7, 1); +lean_dec(x_12); +x_13 = !lean_is_exclusive(x_8); +if (x_13 == 0) +{ +lean_object* x_14; uint8_t x_15; +x_14 = lean_ctor_get(x_8, 4); +lean_dec(x_14); +x_15 = !lean_is_exclusive(x_9); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_16 = lean_ctor_get(x_9, 0); +x_17 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_11); +x_18 = l_Std_PersistentArray_push___rarg(x_16, x_17); +lean_ctor_set(x_9, 0, x_18); +x_19 = lean_box(0); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_4); +lean_ctor_set(x_7, 0, x_20); +return x_7; +} +else +{ +uint8_t x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_21 = lean_ctor_get_uint8(x_9, sizeof(void*)*1); +x_22 = lean_ctor_get(x_9, 0); +lean_inc(x_22); +lean_dec(x_9); +x_23 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_23, 0, x_1); +lean_ctor_set(x_23, 1, x_11); +x_24 = l_Std_PersistentArray_push___rarg(x_22, x_23); +x_25 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set_uint8(x_25, sizeof(void*)*1, x_21); +lean_ctor_set(x_8, 4, x_25); +x_26 = lean_box(0); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_4); +lean_ctor_set(x_7, 0, x_27); +return x_7; +} +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_28 = lean_ctor_get(x_8, 0); +x_29 = lean_ctor_get(x_8, 1); +x_30 = lean_ctor_get(x_8, 2); +x_31 = lean_ctor_get(x_8, 3); +x_32 = lean_ctor_get(x_8, 5); +lean_inc(x_32); +lean_inc(x_31); +lean_inc(x_30); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_8); +x_33 = lean_ctor_get_uint8(x_9, sizeof(void*)*1); +x_34 = lean_ctor_get(x_9, 0); +lean_inc(x_34); +if (lean_is_exclusive(x_9)) { + lean_ctor_release(x_9, 0); + x_35 = x_9; +} else { + lean_dec_ref(x_9); + x_35 = lean_box(0); +} +x_36 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_36, 0, x_1); +lean_ctor_set(x_36, 1, x_11); +x_37 = l_Std_PersistentArray_push___rarg(x_34, x_36); +if (lean_is_scalar(x_35)) { + x_38 = lean_alloc_ctor(0, 1, 1); +} else { + x_38 = x_35; +} +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set_uint8(x_38, sizeof(void*)*1, x_33); +x_39 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_39, 0, x_28); +lean_ctor_set(x_39, 1, x_29); +lean_ctor_set(x_39, 2, x_30); +lean_ctor_set(x_39, 3, x_31); +lean_ctor_set(x_39, 4, x_38); +lean_ctor_set(x_39, 5, x_32); +x_40 = lean_box(0); +x_41 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_4); +lean_ctor_set(x_7, 1, x_39); +lean_ctor_set(x_7, 0, x_41); +return x_7; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; uint8_t 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_42 = lean_ctor_get(x_7, 0); +lean_inc(x_42); +lean_dec(x_7); +x_43 = lean_ctor_get(x_8, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_8, 1); +lean_inc(x_44); +x_45 = lean_ctor_get(x_8, 2); +lean_inc(x_45); +x_46 = lean_ctor_get(x_8, 3); +lean_inc(x_46); +x_47 = lean_ctor_get(x_8, 5); +lean_inc(x_47); +if (lean_is_exclusive(x_8)) { + lean_ctor_release(x_8, 0); + lean_ctor_release(x_8, 1); + lean_ctor_release(x_8, 2); + lean_ctor_release(x_8, 3); + lean_ctor_release(x_8, 4); + lean_ctor_release(x_8, 5); + x_48 = x_8; +} else { + lean_dec_ref(x_8); + x_48 = lean_box(0); +} +x_49 = lean_ctor_get_uint8(x_9, sizeof(void*)*1); +x_50 = lean_ctor_get(x_9, 0); +lean_inc(x_50); +if (lean_is_exclusive(x_9)) { + lean_ctor_release(x_9, 0); + x_51 = x_9; +} else { + lean_dec_ref(x_9); + x_51 = lean_box(0); +} +x_52 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_52, 0, x_1); +lean_ctor_set(x_52, 1, x_42); +x_53 = l_Std_PersistentArray_push___rarg(x_50, x_52); +if (lean_is_scalar(x_51)) { + x_54 = lean_alloc_ctor(0, 1, 1); +} else { + x_54 = x_51; +} +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set_uint8(x_54, sizeof(void*)*1, x_49); +if (lean_is_scalar(x_48)) { + x_55 = lean_alloc_ctor(0, 6, 0); +} else { + x_55 = x_48; +} +lean_ctor_set(x_55, 0, x_43); +lean_ctor_set(x_55, 1, x_44); +lean_ctor_set(x_55, 2, x_45); +lean_ctor_set(x_55, 3, x_46); +lean_ctor_set(x_55, 4, x_54); +lean_ctor_set(x_55, 5, x_47); +x_56 = lean_box(0); +x_57 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_4); +x_58 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_55); +return x_58; +} +} +} +lean_object* l_Array_forMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__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, lean_object* x_7) { +_start: +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_array_get_size(x_2); +x_9 = lean_nat_dec_lt(x_3, x_8); +lean_dec(x_8); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_10 = lean_box(0); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_5); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_7); +return x_12; +} +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; +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_3, x_13); +lean_dec(x_3); +lean_inc(x_1); +x_15 = l_Lean_Syntax_getKind(x_1); +x_16 = lean_box(0); +x_17 = l_Lean_mkConst(x_15, x_16); +lean_inc(x_6); +lean_inc(x_4); +x_18 = l_Lean_PrettyPrinter_Formatter_visit___main(x_17, x_4, x_5, x_6, x_7); +if (lean_obj_tag(x_18) == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_ctor_get(x_19, 1); +lean_inc(x_21); +lean_dec(x_19); +x_3 = x_14; +x_5 = x_21; +x_7 = x_20; +goto _start; +} +else +{ +uint8_t x_23; +lean_dec(x_14); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_18); +if (x_23 == 0) +{ +return x_18; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_18, 0); +x_25 = lean_ctor_get(x_18, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_18); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +} +} +uint8_t l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__4(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; +x_6 = lean_nat_dec_lt(x_5, x_4); +if (x_6 == 0) +{ +uint8_t x_7; +lean_dec(x_5); +x_7 = 0; +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; uint8_t x_14; +x_8 = lean_array_fget(x_3, x_5); +x_9 = l_Lean_Options_empty; +x_10 = l_Lean_Format_pretty(x_8, x_9); +x_11 = l_Lean_Format_Inhabited; +x_12 = lean_array_get(x_11, x_2, x_1); +x_13 = l_Lean_Format_pretty(x_12, x_9); +x_14 = lean_string_dec_eq(x_10, x_13); +lean_dec(x_13); +lean_dec(x_10); +if (x_14 == 0) +{ +uint8_t x_15; +lean_dec(x_5); +x_15 = 1; +return x_15; +} +else +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_unsigned_to_nat(1u); +x_17 = lean_nat_add(x_5, x_16); +lean_dec(x_5); +x_5 = x_17; +goto _start; +} +} +} +} +uint8_t l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; +x_7 = lean_nat_dec_lt(x_6, x_5); +if (x_7 == 0) +{ +uint8_t x_8; +lean_dec(x_6); +x_8 = 0; +return x_8; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_9 = lean_array_fget(x_4, x_6); +x_10 = l_Lean_Options_empty; +x_11 = l_Lean_Format_pretty(x_9, x_10); +x_12 = l_Lean_Format_Inhabited; +x_13 = lean_array_get(x_12, x_2, x_1); +x_14 = l_Lean_Format_pretty(x_13, x_10); +x_15 = lean_string_dec_eq(x_11, x_14); +lean_dec(x_14); +lean_dec(x_11); +if (x_15 == 0) +{ +uint8_t x_16; +lean_dec(x_6); +x_16 = 1; +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_add(x_6, x_17); +lean_dec(x_6); +x_3 = lean_box(0); +x_6 = x_18; +goto _start; +} +} +} +} +lean_object* l_ReaderT_bind___at_Lean_PrettyPrinter_Formatter_visit___main___spec__6___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_inc(x_5); +lean_inc(x_3); +x_7 = lean_apply_4(x_1, x_3, x_4, x_5, x_6); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_8, 1); +lean_inc(x_11); +lean_dec(x_8); +x_12 = lean_apply_5(x_2, x_10, x_3, x_11, x_5, x_9); +return x_12; +} +else +{ +uint8_t x_13; +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_13 = !lean_is_exclusive(x_7); +if (x_13 == 0) +{ +return x_7; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_7, 0); +x_15 = lean_ctor_get(x_7, 1); +lean_inc(x_15); +lean_inc(x_14); +lean_dec(x_7); +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +return x_16; +} +} +} +} +lean_object* l_ReaderT_bind___at_Lean_PrettyPrinter_Formatter_visit___main___spec__6(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_PrettyPrinter_Formatter_visit___main___spec__6___rarg), 6, 0); +return x_3; +} +} +lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__10(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_1); +x_7 = lean_nat_dec_lt(x_4, x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +lean_object* x_8; +lean_dec(x_4); +x_8 = lean_box(0); +return x_8; +} +else +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_array_fget(x_1, x_4); +x_10 = lean_name_eq(x_5, x_9); +lean_dec(x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_4, x_11); +lean_dec(x_4); +x_3 = lean_box(0); +x_4 = x_12; +goto _start; +} +else +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_array_fget(x_2, x_4); +lean_dec(x_4); +x_15 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_15, 0, x_14); +return x_15; +} +} +} +} +lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__9(lean_object* x_1, size_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; size_t x_5; size_t x_6; size_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = 5; +x_6 = l_Std_PersistentHashMap_insertAux___main___rarg___closed__2; +x_7 = x_2 & x_6; +x_8 = lean_usize_to_nat(x_7); +x_9 = lean_box(2); +x_10 = lean_array_get(x_9, x_4, x_8); +lean_dec(x_8); +lean_dec(x_4); +switch (lean_obj_tag(x_10)) { +case 0: +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_name_eq(x_3, x_11); +lean_dec(x_11); +if (x_13 == 0) +{ +lean_object* x_14; +lean_dec(x_12); +x_14 = lean_box(0); +return x_14; +} +else +{ +lean_object* x_15; +x_15 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_15, 0, x_12); +return x_15; +} +} +case 1: +{ +lean_object* x_16; size_t x_17; +x_16 = lean_ctor_get(x_10, 0); +lean_inc(x_16); +lean_dec(x_10); +x_17 = x_2 >> x_5; +x_1 = x_16; +x_2 = x_17; +goto _start; +} +default: +{ +lean_object* x_19; +x_19 = lean_box(0); +return x_19; +} +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = lean_ctor_get(x_1, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_1, 1); +lean_inc(x_21); +lean_dec(x_1); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__10(x_20, x_21, lean_box(0), x_22, x_3); +lean_dec(x_21); +lean_dec(x_20); +return x_23; +} +} +} +lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__8(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; size_t x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Lean_Name_hash(x_2); +x_5 = l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__9(x_3, x_4, x_2); +return x_5; +} +} +lean_object* l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__12(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_ctor_get(x_2, 1); +x_6 = lean_ctor_get(x_2, 2); +x_7 = lean_name_eq(x_4, x_1); +if (x_7 == 0) +{ +x_2 = x_6; +goto _start; +} +else +{ +lean_object* x_9; +lean_inc(x_5); +x_9 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_9, 0, x_5); +return x_9; +} +} +} +} +lean_object* l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; size_t x_5; size_t x_6; lean_object* x_7; lean_object* x_8; +x_3 = lean_ctor_get(x_1, 1); +x_4 = lean_array_get_size(x_3); +x_5 = l_Lean_Name_hash(x_2); +x_6 = lean_usize_modn(x_5, x_4); +lean_dec(x_4); +x_7 = lean_array_uget(x_3, x_6); +x_8 = l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__12(x_2, x_7); +lean_dec(x_7); +return x_8; +} +} +lean_object* l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = lean_ctor_get_uint8(x_1, sizeof(void*)*2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__8(x_5, x_2); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; +x_7 = l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11(x_4, x_2); +lean_dec(x_4); +return x_7; +} +else +{ +lean_dec(x_4); +return x_6; +} +} +else +{ +lean_object* x_8; lean_object* x_9; +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +lean_dec(x_1); +x_9 = l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11(x_8, x_2); +lean_dec(x_8); +return x_9; +} +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Lean.PrettyPrinter.Formatter"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Formatter.visit: inequal choice children"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3() { +_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_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1; +x_2 = lean_unsigned_to_nat(130u); +x_3 = lean_unsigned_to_nat(8u); +x_4 = l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__2; +x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_7 = l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(x_4, x_5, x_6); +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_8, 1); +lean_inc(x_11); +lean_dec(x_8); +x_12 = l_Lean_Syntax_getArgs(x_2); +x_13 = lean_unsigned_to_nat(0u); +lean_inc(x_5); +lean_inc(x_3); +x_14 = l_Array_forMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__3(x_2, x_12, x_13, x_3, x_11, x_5, x_9); +lean_dec(x_12); +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; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +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_ctor_get(x_15, 1); +lean_inc(x_17); +lean_dec(x_15); +x_18 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_17, x_5, x_16); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_ctor_get(x_19, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_19, 1); +lean_inc(x_22); +lean_dec(x_19); +x_23 = lean_array_get_size(x_21); +x_24 = lean_nat_dec_lt(x_10, x_23); +x_25 = lean_unsigned_to_nat(1u); +x_26 = lean_nat_add(x_10, x_25); +x_27 = l_Array_extract___rarg(x_21, x_13, x_26); +lean_dec(x_26); +if (x_24 == 0) +{ +lean_object* x_28; +lean_dec(x_23); +lean_dec(x_21); +lean_dec(x_10); +lean_dec(x_1); +x_28 = l_Lean_PrettyPrinter_Formatter_setStack(x_27, x_3, x_22, x_5, x_20); +lean_dec(x_5); +lean_dec(x_3); +return x_28; +} +else +{ +uint8_t x_29; +x_29 = lean_nat_dec_le(x_23, x_23); +if (x_29 == 0) +{ +uint8_t x_30; +lean_inc(x_10); +x_30 = l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__4(x_10, x_21, x_21, x_23, x_10); +lean_dec(x_23); +lean_dec(x_21); +lean_dec(x_10); +if (x_30 == 0) +{ +lean_object* x_31; +lean_dec(x_1); +x_31 = l_Lean_PrettyPrinter_Formatter_setStack(x_27, x_3, x_22, x_5, x_20); +lean_dec(x_5); +lean_dec(x_3); +return x_31; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_32 = l_PUnit_Inhabited; +x_33 = l_monadInhabited___rarg(x_1, x_32); +x_34 = l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3; +x_35 = lean_panic_fn(x_33, x_34); +lean_inc(x_5); +lean_inc(x_3); +x_36 = lean_apply_4(x_35, x_3, x_22, x_5, x_20); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +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); +x_39 = lean_ctor_get(x_37, 1); +lean_inc(x_39); +lean_dec(x_37); +x_40 = l_Lean_PrettyPrinter_Formatter_setStack(x_27, x_3, x_39, x_5, x_38); +lean_dec(x_5); +lean_dec(x_3); +return x_40; +} +else +{ +uint8_t x_41; +lean_dec(x_27); +lean_dec(x_5); +lean_dec(x_3); +x_41 = !lean_is_exclusive(x_36); +if (x_41 == 0) +{ +return x_36; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_36, 0); +x_43 = lean_ctor_get(x_36, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_36); +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_inc(x_10); +x_45 = l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__5(x_10, x_21, lean_box(0), x_21, x_23, x_10); +lean_dec(x_23); +lean_dec(x_21); +lean_dec(x_10); +if (x_45 == 0) +{ +lean_object* x_46; +lean_dec(x_1); +x_46 = l_Lean_PrettyPrinter_Formatter_setStack(x_27, x_3, x_22, x_5, x_20); +lean_dec(x_5); +lean_dec(x_3); +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 = l_PUnit_Inhabited; +x_48 = l_monadInhabited___rarg(x_1, x_47); +x_49 = l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3; +x_50 = lean_panic_fn(x_48, x_49); +lean_inc(x_5); +lean_inc(x_3); +x_51 = lean_apply_4(x_50, x_3, x_22, x_5, x_20); +if (lean_obj_tag(x_51) == 0) +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_52 = lean_ctor_get(x_51, 0); +lean_inc(x_52); +x_53 = lean_ctor_get(x_51, 1); +lean_inc(x_53); +lean_dec(x_51); +x_54 = lean_ctor_get(x_52, 1); +lean_inc(x_54); +lean_dec(x_52); +x_55 = l_Lean_PrettyPrinter_Formatter_setStack(x_27, x_3, x_54, x_5, x_53); +lean_dec(x_5); +lean_dec(x_3); +return x_55; +} +else +{ +uint8_t x_56; +lean_dec(x_27); +lean_dec(x_5); +lean_dec(x_3); +x_56 = !lean_is_exclusive(x_51); +if (x_56 == 0) +{ +return x_51; +} +else +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_51, 0); +x_58 = lean_ctor_get(x_51, 1); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_51); +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +return x_59; +} +} +} +} +} +} +else +{ +uint8_t x_60; +lean_dec(x_10); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_1); +x_60 = !lean_is_exclusive(x_14); +if (x_60 == 0) +{ +return x_14; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_14, 0); +x_62 = lean_ctor_get(x_14, 1); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_14); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +return x_63; +} +} +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_MetavarContext_MkBinding_mkBinding___closed__1; +x_2 = l_StateT_Monad___rarg(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__1; +x_2 = l_ReaderT_Monad___rarg(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_mkFormatterAttribute___closed__5; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__3; +x_2 = l_Lean_Format_getWidth___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("no known formatter for '"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___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_Lean_PrettyPrinter_Formatter_visit___main___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__6; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1), 6, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__9() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___boxed), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__9; +x_2 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__8; +x_3 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_PrettyPrinter_Formatter_visit___main___spec__6___rarg), 6, 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_PrettyPrinter_Formatter_visit___main___closed__11() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("formatting"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__12() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__11; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__12; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__14() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("using"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__15() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__14; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__16() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__15; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_visit___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = !lean_is_exclusive(x_7); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_7, 0); +x_11 = lean_ctor_get(x_7, 1); +lean_inc(x_4); +x_12 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_4, x_8); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_207; lean_object* x_208; lean_object* x_237; uint8_t x_238; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_237 = lean_ctor_get(x_14, 4); +lean_inc(x_237); +x_238 = lean_ctor_get_uint8(x_237, sizeof(void*)*1); +lean_dec(x_237); +if (x_238 == 0) +{ +uint8_t x_239; lean_object* x_240; +x_239 = 0; +x_240 = lean_box(x_239); +lean_ctor_set(x_7, 0, x_240); +x_207 = x_7; +x_208 = x_14; +goto block_236; +} +else +{ +lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; +x_241 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_242 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_241, x_4, x_14); +x_243 = lean_ctor_get(x_242, 0); +lean_inc(x_243); +x_244 = lean_ctor_get(x_242, 1); +lean_inc(x_244); +lean_dec(x_242); +lean_ctor_set(x_7, 0, x_243); +x_207 = x_7; +x_208 = x_244; +goto block_236; +} +block_206: +{ +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_17 = lean_ctor_get(x_15, 1); +lean_inc(x_17); +lean_dec(x_15); +x_18 = l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(x_17, x_4, x_16); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_ctor_get(x_19, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_19, 1); +lean_inc(x_22); +lean_dec(x_19); +x_23 = l_Lean_Expr_getAppFn___main(x_13); +x_24 = l_Lean_Expr_constName_x3f(x_23); +lean_dec(x_23); +x_25 = lean_ctor_get(x_20, 0); +lean_inc(x_25); +if (lean_obj_tag(x_24) == 0) +{ +lean_object* x_199; +lean_dec(x_25); +x_199 = lean_box(0); +x_26 = x_199; +goto block_198; +} +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; +x_200 = lean_ctor_get(x_24, 0); +lean_inc(x_200); +x_201 = l_Lean_PrettyPrinter_formatterAttribute; +x_202 = lean_ctor_get(x_201, 1); +lean_inc(x_202); +x_203 = l_Lean_PersistentEnvExtension_getState___rarg(x_202, x_25); +lean_dec(x_25); +lean_dec(x_202); +x_204 = lean_ctor_get(x_203, 1); +lean_inc(x_204); +lean_dec(x_203); +x_205 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7(x_204, x_200); +lean_dec(x_200); +x_26 = x_205; +goto block_198; +} +block_198: +{ +lean_object* x_27; lean_object* x_28; lean_object* x_100; +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_187; +x_187 = lean_box(0); +x_100 = x_187; +goto block_186; +} +else +{ +lean_object* x_188; +x_188 = lean_ctor_get(x_26, 0); +lean_inc(x_188); +lean_dec(x_26); +if (lean_obj_tag(x_188) == 0) +{ +lean_object* x_189; +x_189 = lean_box(0); +x_100 = x_189; +goto block_186; +} +else +{ +lean_object* x_190; lean_object* x_191; +lean_dec(x_24); +x_190 = lean_ctor_get(x_188, 0); +lean_inc(x_190); +lean_dec(x_188); +lean_inc(x_4); +lean_inc(x_2); +x_191 = lean_apply_5(x_190, x_13, x_2, x_22, x_4, x_20); +if (lean_obj_tag(x_191) == 0) +{ +lean_object* x_192; lean_object* x_193; +x_192 = lean_ctor_get(x_191, 0); +lean_inc(x_192); +x_193 = lean_ctor_get(x_191, 1); +lean_inc(x_193); +lean_dec(x_191); +x_27 = x_192; +x_28 = x_193; +goto block_99; +} +else +{ +uint8_t x_194; +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_194 = !lean_is_exclusive(x_191); +if (x_194 == 0) +{ +return x_191; +} +else +{ +lean_object* x_195; lean_object* x_196; lean_object* x_197; +x_195 = lean_ctor_get(x_191, 0); +x_196 = lean_ctor_get(x_191, 1); +lean_inc(x_196); +lean_inc(x_195); +lean_dec(x_191); +x_197 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_197, 0, x_195); +lean_ctor_set(x_197, 1, x_196); +return x_197; +} +} +} +} +block_99: +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; uint8_t x_34; +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +x_30 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_29, x_4, x_28); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +if (lean_is_exclusive(x_30)) { + lean_ctor_release(x_30, 0); + lean_ctor_release(x_30, 1); + x_33 = x_30; +} else { + lean_dec_ref(x_30); + x_33 = lean_box(0); +} +x_34 = !lean_is_exclusive(x_31); +if (x_34 == 0) +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_59; uint8_t x_60; +x_35 = lean_ctor_get(x_31, 0); +x_59 = lean_ctor_get(x_32, 4); +lean_inc(x_59); +x_60 = lean_ctor_get_uint8(x_59, sizeof(void*)*1); +lean_dec(x_59); +if (x_60 == 0) +{ +uint8_t x_61; lean_object* x_62; +x_61 = 0; +x_62 = lean_box(x_61); +lean_ctor_set(x_31, 0, x_62); +x_36 = x_31; +x_37 = x_32; +goto block_58; +} +else +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_63 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_64 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_63, x_4, x_32); +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); +lean_ctor_set(x_31, 0, x_65); +x_36 = x_31; +x_37 = x_66; +goto block_58; +} +block_58: +{ +lean_object* x_38; uint8_t x_39; +x_38 = lean_ctor_get(x_36, 0); +lean_inc(x_38); +x_39 = lean_unbox(x_38); +lean_dec(x_38); +if (x_39 == 0) +{ +uint8_t x_40; +lean_dec(x_35); +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_40 = !lean_is_exclusive(x_36); +if (x_40 == 0) +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_36, 0); +lean_dec(x_41); +x_42 = lean_box(0); +lean_ctor_set(x_36, 0, x_42); +if (lean_is_scalar(x_33)) { + x_43 = lean_alloc_ctor(0, 2, 0); +} else { + x_43 = x_33; +} +lean_ctor_set(x_43, 0, x_36); +lean_ctor_set(x_43, 1, x_37); +return x_43; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; +x_44 = lean_ctor_get(x_36, 1); +lean_inc(x_44); +lean_dec(x_36); +x_45 = lean_box(0); +x_46 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +if (lean_is_scalar(x_33)) { + x_47 = lean_alloc_ctor(0, 2, 0); +} else { + x_47 = x_33; +} +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_37); +return x_47; +} +} +else +{ +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_dec(x_33); +x_48 = lean_ctor_get(x_36, 1); +lean_inc(x_48); +lean_dec(x_36); +x_49 = lean_array_get_size(x_35); +lean_inc(x_21); +x_50 = l_Array_extract___rarg(x_35, x_21, x_49); +lean_dec(x_49); +x_51 = lean_unsigned_to_nat(0u); +x_52 = l_Lean_Meta_Exception_Inhabited___closed__1; +x_53 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1(x_21, x_35, x_50, x_51, x_52); +lean_dec(x_50); +lean_dec(x_35); +lean_dec(x_21); +x_54 = l_Lean_Meta_DepElim_Alt_toMessageData___closed__4; +x_55 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_53); +x_56 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_57 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_56, x_55, x_2, x_48, x_4, x_37); +lean_dec(x_4); +lean_dec(x_2); +return x_57; +} +} +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_89; uint8_t x_90; +x_67 = lean_ctor_get(x_31, 0); +x_68 = lean_ctor_get(x_31, 1); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_31); +x_89 = lean_ctor_get(x_32, 4); +lean_inc(x_89); +x_90 = lean_ctor_get_uint8(x_89, sizeof(void*)*1); +lean_dec(x_89); +if (x_90 == 0) +{ +uint8_t x_91; lean_object* x_92; lean_object* x_93; +x_91 = 0; +x_92 = lean_box(x_91); +x_93 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_68); +x_69 = x_93; +x_70 = x_32; +goto block_88; +} +else +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_94 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_95 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_94, x_4, x_32); +x_96 = lean_ctor_get(x_95, 0); +lean_inc(x_96); +x_97 = lean_ctor_get(x_95, 1); +lean_inc(x_97); +lean_dec(x_95); +x_98 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_98, 0, x_96); +lean_ctor_set(x_98, 1, x_68); +x_69 = x_98; +x_70 = x_97; +goto block_88; +} +block_88: +{ +lean_object* x_71; uint8_t x_72; +x_71 = lean_ctor_get(x_69, 0); +lean_inc(x_71); +x_72 = lean_unbox(x_71); +lean_dec(x_71); +if (x_72 == 0) +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +lean_dec(x_67); +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_73 = lean_ctor_get(x_69, 1); +lean_inc(x_73); +if (lean_is_exclusive(x_69)) { + lean_ctor_release(x_69, 0); + lean_ctor_release(x_69, 1); + x_74 = x_69; +} else { + lean_dec_ref(x_69); + x_74 = lean_box(0); +} +x_75 = lean_box(0); +if (lean_is_scalar(x_74)) { + x_76 = lean_alloc_ctor(0, 2, 0); +} else { + x_76 = x_74; +} +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_73); +if (lean_is_scalar(x_33)) { + x_77 = lean_alloc_ctor(0, 2, 0); +} else { + x_77 = x_33; +} +lean_ctor_set(x_77, 0, x_76); +lean_ctor_set(x_77, 1, x_70); +return x_77; +} +else +{ +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_dec(x_33); +x_78 = lean_ctor_get(x_69, 1); +lean_inc(x_78); +lean_dec(x_69); +x_79 = lean_array_get_size(x_67); +lean_inc(x_21); +x_80 = l_Array_extract___rarg(x_67, x_21, x_79); +lean_dec(x_79); +x_81 = lean_unsigned_to_nat(0u); +x_82 = l_Lean_Meta_Exception_Inhabited___closed__1; +x_83 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1(x_21, x_67, x_80, x_81, x_82); +lean_dec(x_80); +lean_dec(x_67); +lean_dec(x_21); +x_84 = l_Lean_Meta_DepElim_Alt_toMessageData___closed__4; +x_85 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_83); +x_86 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_87 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_86, x_85, x_2, x_78, x_4, x_70); +lean_dec(x_4); +lean_dec(x_2); +return x_87; +} +} +} +} +block_186: +{ +lean_dec(x_100); +if (lean_obj_tag(x_24) == 0) +{ +lean_object* x_101; +lean_inc(x_4); +lean_inc(x_13); +x_101 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_13, x_4, x_20); +if (lean_obj_tag(x_101) == 0) +{ +lean_object* x_102; +x_102 = lean_ctor_get(x_101, 0); +lean_inc(x_102); +if (lean_obj_tag(x_102) == 0) +{ +uint8_t x_103; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_103 = !lean_is_exclusive(x_101); +if (x_103 == 0) +{ +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_104 = lean_ctor_get(x_101, 0); +lean_dec(x_104); +x_105 = lean_expr_dbg_to_string(x_13); +lean_dec(x_13); +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); +x_108 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +x_109 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_109, 0, x_108); +lean_ctor_set(x_109, 1, x_107); +x_110 = l_Lean_Elab_Term_mkConst___closed__4; +x_111 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_111, 0, x_109); +lean_ctor_set(x_111, 1, x_110); +x_112 = lean_box(0); +x_113 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_111); +lean_ctor_set_tag(x_101, 1); +lean_ctor_set(x_101, 0, x_113); +return x_101; +} +else +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_114 = lean_ctor_get(x_101, 1); +lean_inc(x_114); +lean_dec(x_101); +x_115 = lean_expr_dbg_to_string(x_13); +lean_dec(x_13); +x_116 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_116, 0, x_115); +x_117 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_117, 0, x_116); +x_118 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +x_119 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_117); +x_120 = l_Lean_Elab_Term_mkConst___closed__4; +x_121 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_121, 0, x_119); +lean_ctor_set(x_121, 1, x_120); +x_122 = lean_box(0); +x_123 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_123, 0, x_122); +lean_ctor_set(x_123, 1, x_121); +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_114); +return x_124; +} +} +else +{ +lean_object* x_125; lean_object* x_126; lean_object* x_127; +lean_dec(x_13); +x_125 = lean_ctor_get(x_101, 1); +lean_inc(x_125); +lean_dec(x_101); +x_126 = lean_ctor_get(x_102, 0); +lean_inc(x_126); +lean_dec(x_102); +lean_inc(x_4); +lean_inc(x_2); +x_127 = l_Lean_PrettyPrinter_Formatter_visit___main(x_126, x_2, x_22, x_4, x_125); +if (lean_obj_tag(x_127) == 0) +{ +lean_object* x_128; lean_object* x_129; +x_128 = lean_ctor_get(x_127, 0); +lean_inc(x_128); +x_129 = lean_ctor_get(x_127, 1); +lean_inc(x_129); +lean_dec(x_127); +x_27 = x_128; +x_28 = x_129; +goto block_99; +} +else +{ +uint8_t x_130; +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_130 = !lean_is_exclusive(x_127); +if (x_130 == 0) +{ +return x_127; +} +else +{ +lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_131 = lean_ctor_get(x_127, 0); +x_132 = lean_ctor_get(x_127, 1); +lean_inc(x_132); +lean_inc(x_131); +lean_dec(x_127); +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_131); +lean_ctor_set(x_133, 1, x_132); +return x_133; +} +} +} +} +else +{ +uint8_t x_134; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_13); +lean_dec(x_4); +lean_dec(x_2); +x_134 = !lean_is_exclusive(x_101); +if (x_134 == 0) +{ +return x_101; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; +x_135 = lean_ctor_get(x_101, 0); +x_136 = lean_ctor_get(x_101, 1); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_101); +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_135); +lean_ctor_set(x_137, 1, x_136); +return x_137; +} +} +} +else +{ +lean_object* x_138; lean_object* x_139; uint8_t x_140; +x_138 = lean_ctor_get(x_24, 0); +lean_inc(x_138); +lean_dec(x_24); +x_139 = l_Lean_choiceKind___closed__2; +x_140 = lean_name_eq(x_138, x_139); +lean_dec(x_138); +if (x_140 == 0) +{ +lean_object* x_141; +lean_inc(x_4); +lean_inc(x_13); +x_141 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_13, x_4, x_20); +if (lean_obj_tag(x_141) == 0) +{ +lean_object* x_142; +x_142 = lean_ctor_get(x_141, 0); +lean_inc(x_142); +if (lean_obj_tag(x_142) == 0) +{ +uint8_t x_143; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_143 = !lean_is_exclusive(x_141); +if (x_143 == 0) +{ +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; +x_144 = lean_ctor_get(x_141, 0); +lean_dec(x_144); +x_145 = lean_expr_dbg_to_string(x_13); +lean_dec(x_13); +x_146 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_146, 0, x_145); +x_147 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_147, 0, x_146); +x_148 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +x_149 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_149, 0, x_148); +lean_ctor_set(x_149, 1, x_147); +x_150 = l_Lean_Elab_Term_mkConst___closed__4; +x_151 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_151, 0, x_149); +lean_ctor_set(x_151, 1, x_150); +x_152 = lean_box(0); +x_153 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_153, 0, x_152); +lean_ctor_set(x_153, 1, x_151); +lean_ctor_set_tag(x_141, 1); +lean_ctor_set(x_141, 0, x_153); +return x_141; +} +else +{ +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; +x_154 = lean_ctor_get(x_141, 1); +lean_inc(x_154); +lean_dec(x_141); +x_155 = lean_expr_dbg_to_string(x_13); +lean_dec(x_13); +x_156 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_156, 0, x_155); +x_157 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_157, 0, x_156); +x_158 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +x_159 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_159, 0, x_158); +lean_ctor_set(x_159, 1, x_157); +x_160 = l_Lean_Elab_Term_mkConst___closed__4; +x_161 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_161, 0, x_159); +lean_ctor_set(x_161, 1, x_160); +x_162 = lean_box(0); +x_163 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_163, 0, x_162); +lean_ctor_set(x_163, 1, x_161); +x_164 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_164, 0, x_163); +lean_ctor_set(x_164, 1, x_154); +return x_164; +} +} +else +{ +lean_object* x_165; lean_object* x_166; lean_object* x_167; +lean_dec(x_13); +x_165 = lean_ctor_get(x_141, 1); +lean_inc(x_165); +lean_dec(x_141); +x_166 = lean_ctor_get(x_142, 0); +lean_inc(x_166); +lean_dec(x_142); +lean_inc(x_4); +lean_inc(x_2); +x_167 = l_Lean_PrettyPrinter_Formatter_visit___main(x_166, x_2, x_22, x_4, x_165); +if (lean_obj_tag(x_167) == 0) +{ +lean_object* x_168; lean_object* x_169; +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_27 = x_168; +x_28 = x_169; +goto block_99; +} +else +{ +uint8_t x_170; +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_170 = !lean_is_exclusive(x_167); +if (x_170 == 0) +{ +return x_167; +} +else +{ +lean_object* x_171; lean_object* x_172; lean_object* x_173; +x_171 = lean_ctor_get(x_167, 0); +x_172 = lean_ctor_get(x_167, 1); +lean_inc(x_172); +lean_inc(x_171); +lean_dec(x_167); +x_173 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_173, 0, x_171); +lean_ctor_set(x_173, 1, x_172); +return x_173; +} +} +} +} +else +{ +uint8_t x_174; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_13); +lean_dec(x_4); +lean_dec(x_2); +x_174 = !lean_is_exclusive(x_141); +if (x_174 == 0) +{ +return x_141; +} +else +{ +lean_object* x_175; lean_object* x_176; lean_object* x_177; +x_175 = lean_ctor_get(x_141, 0); +x_176 = lean_ctor_get(x_141, 1); +lean_inc(x_176); +lean_inc(x_175); +lean_dec(x_141); +x_177 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_177, 0, x_175); +lean_ctor_set(x_177, 1, x_176); +return x_177; +} +} +} +else +{ +lean_object* x_178; lean_object* x_179; +lean_dec(x_13); +x_178 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__10; +lean_inc(x_4); +lean_inc(x_2); +x_179 = l_Lean_PrettyPrinter_Formatter_visitArgs(x_178, x_2, x_22, x_4, x_20); +if (lean_obj_tag(x_179) == 0) +{ +lean_object* x_180; lean_object* x_181; +x_180 = lean_ctor_get(x_179, 0); +lean_inc(x_180); +x_181 = lean_ctor_get(x_179, 1); +lean_inc(x_181); +lean_dec(x_179); +x_27 = x_180; +x_28 = x_181; +goto block_99; +} +else +{ +uint8_t x_182; +lean_dec(x_21); +lean_dec(x_4); +lean_dec(x_2); +x_182 = !lean_is_exclusive(x_179); +if (x_182 == 0) +{ +return x_179; +} +else +{ +lean_object* x_183; lean_object* x_184; lean_object* x_185; +x_183 = lean_ctor_get(x_179, 0); +x_184 = lean_ctor_get(x_179, 1); +lean_inc(x_184); +lean_inc(x_183); +lean_dec(x_179); +x_185 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_185, 0, x_183); +lean_ctor_set(x_185, 1, x_184); +return x_185; +} +} +} +} +} +} +} +block_236: +{ +lean_object* x_209; uint8_t x_210; +x_209 = lean_ctor_get(x_207, 0); +lean_inc(x_209); +x_210 = lean_unbox(x_209); +lean_dec(x_209); +if (x_210 == 0) +{ +uint8_t x_211; +lean_dec(x_10); +x_211 = !lean_is_exclusive(x_207); +if (x_211 == 0) +{ +lean_object* x_212; lean_object* x_213; +x_212 = lean_ctor_get(x_207, 0); +lean_dec(x_212); +x_213 = lean_box(0); +lean_ctor_set(x_207, 0, x_213); +x_15 = x_207; +x_16 = x_208; +goto block_206; +} +else +{ +lean_object* x_214; lean_object* x_215; lean_object* x_216; +x_214 = lean_ctor_get(x_207, 1); +lean_inc(x_214); +lean_dec(x_207); +x_215 = lean_box(0); +x_216 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_216, 0, x_215); +lean_ctor_set(x_216, 1, x_214); +x_15 = x_216; +x_16 = x_208; +goto block_206; +} +} +else +{ +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; +x_217 = lean_ctor_get(x_207, 1); +lean_inc(x_217); +lean_dec(x_207); +x_218 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_218, 0, x_10); +x_219 = l_Lean_MessageData_ofList___closed__3; +x_220 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_220, 0, x_219); +lean_ctor_set(x_220, 1, x_218); +x_221 = lean_unsigned_to_nat(2u); +x_222 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_222, 0, x_221); +lean_ctor_set(x_222, 1, x_220); +x_223 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__13; +x_224 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_224, 0, x_223); +lean_ctor_set(x_224, 1, x_222); +x_225 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_225, 0, x_224); +lean_ctor_set(x_225, 1, x_219); +x_226 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__16; +x_227 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_227, 0, x_225); +lean_ctor_set(x_227, 1, x_226); +lean_inc(x_13); +x_228 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_228, 0, x_13); +x_229 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_229, 0, x_219); +lean_ctor_set(x_229, 1, x_228); +x_230 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_230, 0, x_221); +lean_ctor_set(x_230, 1, x_229); +x_231 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_231, 0, x_227); +lean_ctor_set(x_231, 1, x_230); +x_232 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_233 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_232, x_231, x_2, x_217, x_4, x_208); +x_234 = lean_ctor_get(x_233, 0); +lean_inc(x_234); +x_235 = lean_ctor_get(x_233, 1); +lean_inc(x_235); +lean_dec(x_233); +x_15 = x_234; +x_16 = x_235; +goto block_206; +} +} +} +else +{ +uint8_t x_245; +lean_free_object(x_7); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_4); +lean_dec(x_2); +x_245 = !lean_is_exclusive(x_12); +if (x_245 == 0) +{ +return x_12; +} +else +{ +lean_object* x_246; lean_object* x_247; lean_object* x_248; +x_246 = lean_ctor_get(x_12, 0); +x_247 = lean_ctor_get(x_12, 1); +lean_inc(x_247); +lean_inc(x_246); +lean_dec(x_12); +x_248 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_248, 0, x_246); +lean_ctor_set(x_248, 1, x_247); +return x_248; +} +} +} +else +{ +lean_object* x_249; lean_object* x_250; lean_object* x_251; +x_249 = lean_ctor_get(x_7, 0); +x_250 = lean_ctor_get(x_7, 1); +lean_inc(x_250); +lean_inc(x_249); +lean_dec(x_7); +lean_inc(x_4); +x_251 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_4, x_8); +if (lean_obj_tag(x_251) == 0) +{ +lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_394; lean_object* x_395; lean_object* x_422; uint8_t x_423; +x_252 = lean_ctor_get(x_251, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_251, 1); +lean_inc(x_253); +lean_dec(x_251); +x_422 = lean_ctor_get(x_253, 4); +lean_inc(x_422); +x_423 = lean_ctor_get_uint8(x_422, sizeof(void*)*1); +lean_dec(x_422); +if (x_423 == 0) +{ +uint8_t x_424; lean_object* x_425; lean_object* x_426; +x_424 = 0; +x_425 = lean_box(x_424); +x_426 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_426, 0, x_425); +lean_ctor_set(x_426, 1, x_250); +x_394 = x_426; +x_395 = x_253; +goto block_421; +} +else +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; +x_427 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_428 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_427, x_4, x_253); +x_429 = lean_ctor_get(x_428, 0); +lean_inc(x_429); +x_430 = lean_ctor_get(x_428, 1); +lean_inc(x_430); +lean_dec(x_428); +x_431 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_431, 0, x_429); +lean_ctor_set(x_431, 1, x_250); +x_394 = x_431; +x_395 = x_430; +goto block_421; +} +block_393: +{ +lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; +x_256 = lean_ctor_get(x_254, 1); +lean_inc(x_256); +lean_dec(x_254); +x_257 = l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(x_256, x_4, x_255); +x_258 = lean_ctor_get(x_257, 0); +lean_inc(x_258); +x_259 = lean_ctor_get(x_257, 1); +lean_inc(x_259); +lean_dec(x_257); +x_260 = lean_ctor_get(x_258, 0); +lean_inc(x_260); +x_261 = lean_ctor_get(x_258, 1); +lean_inc(x_261); +lean_dec(x_258); +x_262 = l_Lean_Expr_getAppFn___main(x_252); +x_263 = l_Lean_Expr_constName_x3f(x_262); +lean_dec(x_262); +x_264 = lean_ctor_get(x_259, 0); +lean_inc(x_264); +if (lean_obj_tag(x_263) == 0) +{ +lean_object* x_386; +lean_dec(x_264); +x_386 = lean_box(0); +x_265 = x_386; +goto block_385; +} +else +{ +lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; +x_387 = lean_ctor_get(x_263, 0); +lean_inc(x_387); +x_388 = l_Lean_PrettyPrinter_formatterAttribute; +x_389 = lean_ctor_get(x_388, 1); +lean_inc(x_389); +x_390 = l_Lean_PersistentEnvExtension_getState___rarg(x_389, x_264); +lean_dec(x_264); +lean_dec(x_389); +x_391 = lean_ctor_get(x_390, 1); +lean_inc(x_391); +lean_dec(x_390); +x_392 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7(x_391, x_387); +lean_dec(x_387); +x_265 = x_392; +goto block_385; +} +block_385: +{ +lean_object* x_266; lean_object* x_267; lean_object* x_307; +if (lean_obj_tag(x_265) == 0) +{ +lean_object* x_374; +x_374 = lean_box(0); +x_307 = x_374; +goto block_373; +} +else +{ +lean_object* x_375; +x_375 = lean_ctor_get(x_265, 0); +lean_inc(x_375); +lean_dec(x_265); +if (lean_obj_tag(x_375) == 0) +{ +lean_object* x_376; +x_376 = lean_box(0); +x_307 = x_376; +goto block_373; +} +else +{ +lean_object* x_377; lean_object* x_378; +lean_dec(x_263); +x_377 = lean_ctor_get(x_375, 0); +lean_inc(x_377); +lean_dec(x_375); +lean_inc(x_4); +lean_inc(x_2); +x_378 = lean_apply_5(x_377, x_252, x_2, x_261, x_4, x_259); +if (lean_obj_tag(x_378) == 0) +{ +lean_object* x_379; lean_object* x_380; +x_379 = lean_ctor_get(x_378, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_378, 1); +lean_inc(x_380); +lean_dec(x_378); +x_266 = x_379; +x_267 = x_380; +goto block_306; +} +else +{ +lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_381 = lean_ctor_get(x_378, 0); +lean_inc(x_381); +x_382 = lean_ctor_get(x_378, 1); +lean_inc(x_382); +if (lean_is_exclusive(x_378)) { + lean_ctor_release(x_378, 0); + lean_ctor_release(x_378, 1); + x_383 = x_378; +} else { + lean_dec_ref(x_378); + x_383 = lean_box(0); +} +if (lean_is_scalar(x_383)) { + x_384 = lean_alloc_ctor(1, 2, 0); +} else { + x_384 = x_383; +} +lean_ctor_set(x_384, 0, x_381); +lean_ctor_set(x_384, 1, x_382); +return x_384; +} +} +} +block_306: +{ +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_296; uint8_t x_297; +x_268 = lean_ctor_get(x_266, 1); +lean_inc(x_268); +lean_dec(x_266); +x_269 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_268, x_4, x_267); +x_270 = lean_ctor_get(x_269, 0); +lean_inc(x_270); +x_271 = lean_ctor_get(x_269, 1); +lean_inc(x_271); +if (lean_is_exclusive(x_269)) { + lean_ctor_release(x_269, 0); + lean_ctor_release(x_269, 1); + x_272 = x_269; +} else { + lean_dec_ref(x_269); + x_272 = lean_box(0); +} +x_273 = lean_ctor_get(x_270, 0); +lean_inc(x_273); +x_274 = lean_ctor_get(x_270, 1); +lean_inc(x_274); +if (lean_is_exclusive(x_270)) { + lean_ctor_release(x_270, 0); + lean_ctor_release(x_270, 1); + x_275 = x_270; +} else { + lean_dec_ref(x_270); + x_275 = lean_box(0); +} +x_296 = lean_ctor_get(x_271, 4); +lean_inc(x_296); +x_297 = lean_ctor_get_uint8(x_296, sizeof(void*)*1); +lean_dec(x_296); +if (x_297 == 0) +{ +uint8_t x_298; lean_object* x_299; lean_object* x_300; +x_298 = 0; +x_299 = lean_box(x_298); +if (lean_is_scalar(x_275)) { + x_300 = lean_alloc_ctor(0, 2, 0); +} else { + x_300 = x_275; +} +lean_ctor_set(x_300, 0, x_299); +lean_ctor_set(x_300, 1, x_274); +x_276 = x_300; +x_277 = x_271; +goto block_295; +} +else +{ +lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; +x_301 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_302 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_301, x_4, x_271); +x_303 = lean_ctor_get(x_302, 0); +lean_inc(x_303); +x_304 = lean_ctor_get(x_302, 1); +lean_inc(x_304); +lean_dec(x_302); +if (lean_is_scalar(x_275)) { + x_305 = lean_alloc_ctor(0, 2, 0); +} else { + x_305 = x_275; +} +lean_ctor_set(x_305, 0, x_303); +lean_ctor_set(x_305, 1, x_274); +x_276 = x_305; +x_277 = x_304; +goto block_295; +} +block_295: +{ +lean_object* x_278; uint8_t x_279; +x_278 = lean_ctor_get(x_276, 0); +lean_inc(x_278); +x_279 = lean_unbox(x_278); +lean_dec(x_278); +if (x_279 == 0) +{ +lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +lean_dec(x_273); +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_280 = lean_ctor_get(x_276, 1); +lean_inc(x_280); +if (lean_is_exclusive(x_276)) { + lean_ctor_release(x_276, 0); + lean_ctor_release(x_276, 1); + x_281 = x_276; +} else { + lean_dec_ref(x_276); + x_281 = lean_box(0); +} +x_282 = lean_box(0); +if (lean_is_scalar(x_281)) { + x_283 = lean_alloc_ctor(0, 2, 0); +} else { + x_283 = x_281; +} +lean_ctor_set(x_283, 0, x_282); +lean_ctor_set(x_283, 1, x_280); +if (lean_is_scalar(x_272)) { + x_284 = lean_alloc_ctor(0, 2, 0); +} else { + x_284 = x_272; +} +lean_ctor_set(x_284, 0, x_283); +lean_ctor_set(x_284, 1, x_277); +return x_284; +} +else +{ +lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; +lean_dec(x_272); +x_285 = lean_ctor_get(x_276, 1); +lean_inc(x_285); +lean_dec(x_276); +x_286 = lean_array_get_size(x_273); +lean_inc(x_260); +x_287 = l_Array_extract___rarg(x_273, x_260, x_286); +lean_dec(x_286); +x_288 = lean_unsigned_to_nat(0u); +x_289 = l_Lean_Meta_Exception_Inhabited___closed__1; +x_290 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1(x_260, x_273, x_287, x_288, x_289); +lean_dec(x_287); +lean_dec(x_273); +lean_dec(x_260); +x_291 = l_Lean_Meta_DepElim_Alt_toMessageData___closed__4; +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_PrettyPrinter_Formatter_visit___main___closed__4; +x_294 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_293, x_292, x_2, x_285, x_4, x_277); +lean_dec(x_4); +lean_dec(x_2); +return x_294; +} +} +} +block_373: +{ +lean_dec(x_307); +if (lean_obj_tag(x_263) == 0) +{ +lean_object* x_308; +lean_inc(x_4); +lean_inc(x_252); +x_308 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_252, x_4, x_259); +if (lean_obj_tag(x_308) == 0) +{ +lean_object* x_309; +x_309 = lean_ctor_get(x_308, 0); +lean_inc(x_309); +if (lean_obj_tag(x_309) == 0) +{ +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_dec(x_261); +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_310 = lean_ctor_get(x_308, 1); +lean_inc(x_310); +if (lean_is_exclusive(x_308)) { + lean_ctor_release(x_308, 0); + lean_ctor_release(x_308, 1); + x_311 = x_308; +} else { + lean_dec_ref(x_308); + x_311 = lean_box(0); +} +x_312 = lean_expr_dbg_to_string(x_252); +lean_dec(x_252); +x_313 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_313, 0, x_312); +x_314 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_314, 0, x_313); +x_315 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +x_316 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_316, 0, x_315); +lean_ctor_set(x_316, 1, x_314); +x_317 = l_Lean_Elab_Term_mkConst___closed__4; +x_318 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_318, 0, x_316); +lean_ctor_set(x_318, 1, x_317); +x_319 = lean_box(0); +x_320 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_320, 0, x_319); +lean_ctor_set(x_320, 1, x_318); +if (lean_is_scalar(x_311)) { + x_321 = lean_alloc_ctor(1, 2, 0); +} else { + x_321 = x_311; + lean_ctor_set_tag(x_321, 1); +} +lean_ctor_set(x_321, 0, x_320); +lean_ctor_set(x_321, 1, x_310); +return x_321; +} +else +{ +lean_object* x_322; lean_object* x_323; lean_object* x_324; +lean_dec(x_252); +x_322 = lean_ctor_get(x_308, 1); +lean_inc(x_322); +lean_dec(x_308); +x_323 = lean_ctor_get(x_309, 0); +lean_inc(x_323); +lean_dec(x_309); +lean_inc(x_4); +lean_inc(x_2); +x_324 = l_Lean_PrettyPrinter_Formatter_visit___main(x_323, x_2, x_261, x_4, x_322); +if (lean_obj_tag(x_324) == 0) +{ +lean_object* x_325; lean_object* x_326; +x_325 = lean_ctor_get(x_324, 0); +lean_inc(x_325); +x_326 = lean_ctor_get(x_324, 1); +lean_inc(x_326); +lean_dec(x_324); +x_266 = x_325; +x_267 = x_326; +goto block_306; +} +else +{ +lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_327 = lean_ctor_get(x_324, 0); +lean_inc(x_327); +x_328 = lean_ctor_get(x_324, 1); +lean_inc(x_328); +if (lean_is_exclusive(x_324)) { + lean_ctor_release(x_324, 0); + lean_ctor_release(x_324, 1); + x_329 = x_324; +} else { + lean_dec_ref(x_324); + x_329 = lean_box(0); +} +if (lean_is_scalar(x_329)) { + x_330 = lean_alloc_ctor(1, 2, 0); +} else { + x_330 = x_329; +} +lean_ctor_set(x_330, 0, x_327); +lean_ctor_set(x_330, 1, x_328); +return x_330; +} +} +} +else +{ +lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; +lean_dec(x_261); +lean_dec(x_260); +lean_dec(x_252); +lean_dec(x_4); +lean_dec(x_2); +x_331 = lean_ctor_get(x_308, 0); +lean_inc(x_331); +x_332 = lean_ctor_get(x_308, 1); +lean_inc(x_332); +if (lean_is_exclusive(x_308)) { + lean_ctor_release(x_308, 0); + lean_ctor_release(x_308, 1); + x_333 = x_308; +} else { + lean_dec_ref(x_308); + x_333 = lean_box(0); +} +if (lean_is_scalar(x_333)) { + x_334 = lean_alloc_ctor(1, 2, 0); +} else { + x_334 = x_333; +} +lean_ctor_set(x_334, 0, x_331); +lean_ctor_set(x_334, 1, x_332); +return x_334; +} +} +else +{ +lean_object* x_335; lean_object* x_336; uint8_t x_337; +x_335 = lean_ctor_get(x_263, 0); +lean_inc(x_335); +lean_dec(x_263); +x_336 = l_Lean_choiceKind___closed__2; +x_337 = lean_name_eq(x_335, x_336); +lean_dec(x_335); +if (x_337 == 0) +{ +lean_object* x_338; +lean_inc(x_4); +lean_inc(x_252); +x_338 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_252, x_4, x_259); +if (lean_obj_tag(x_338) == 0) +{ +lean_object* x_339; +x_339 = lean_ctor_get(x_338, 0); +lean_inc(x_339); +if (lean_obj_tag(x_339) == 0) +{ +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_dec(x_261); +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_340 = lean_ctor_get(x_338, 1); +lean_inc(x_340); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + x_341 = x_338; +} else { + lean_dec_ref(x_338); + x_341 = lean_box(0); +} +x_342 = lean_expr_dbg_to_string(x_252); +lean_dec(x_252); +x_343 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_343, 0, x_342); +x_344 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_344, 0, x_343); +x_345 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__7; +x_346 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_346, 0, x_345); +lean_ctor_set(x_346, 1, x_344); +x_347 = l_Lean_Elab_Term_mkConst___closed__4; +x_348 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_348, 0, x_346); +lean_ctor_set(x_348, 1, x_347); +x_349 = lean_box(0); +x_350 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_350, 0, x_349); +lean_ctor_set(x_350, 1, x_348); +if (lean_is_scalar(x_341)) { + x_351 = lean_alloc_ctor(1, 2, 0); +} else { + x_351 = x_341; + lean_ctor_set_tag(x_351, 1); +} +lean_ctor_set(x_351, 0, x_350); +lean_ctor_set(x_351, 1, x_340); +return x_351; +} +else +{ +lean_object* x_352; lean_object* x_353; lean_object* x_354; +lean_dec(x_252); +x_352 = lean_ctor_get(x_338, 1); +lean_inc(x_352); +lean_dec(x_338); +x_353 = lean_ctor_get(x_339, 0); +lean_inc(x_353); +lean_dec(x_339); +lean_inc(x_4); +lean_inc(x_2); +x_354 = l_Lean_PrettyPrinter_Formatter_visit___main(x_353, x_2, x_261, x_4, x_352); +if (lean_obj_tag(x_354) == 0) +{ +lean_object* x_355; lean_object* x_356; +x_355 = lean_ctor_get(x_354, 0); +lean_inc(x_355); +x_356 = lean_ctor_get(x_354, 1); +lean_inc(x_356); +lean_dec(x_354); +x_266 = x_355; +x_267 = x_356; +goto block_306; +} +else +{ +lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_357 = lean_ctor_get(x_354, 0); +lean_inc(x_357); +x_358 = lean_ctor_get(x_354, 1); +lean_inc(x_358); +if (lean_is_exclusive(x_354)) { + lean_ctor_release(x_354, 0); + lean_ctor_release(x_354, 1); + x_359 = x_354; +} else { + lean_dec_ref(x_354); + x_359 = lean_box(0); +} +if (lean_is_scalar(x_359)) { + x_360 = lean_alloc_ctor(1, 2, 0); +} else { + x_360 = x_359; +} +lean_ctor_set(x_360, 0, x_357); +lean_ctor_set(x_360, 1, x_358); +return x_360; +} +} +} +else +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; +lean_dec(x_261); +lean_dec(x_260); +lean_dec(x_252); +lean_dec(x_4); +lean_dec(x_2); +x_361 = lean_ctor_get(x_338, 0); +lean_inc(x_361); +x_362 = lean_ctor_get(x_338, 1); +lean_inc(x_362); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + x_363 = x_338; +} else { + lean_dec_ref(x_338); + x_363 = lean_box(0); +} +if (lean_is_scalar(x_363)) { + x_364 = lean_alloc_ctor(1, 2, 0); +} else { + x_364 = x_363; +} +lean_ctor_set(x_364, 0, x_361); +lean_ctor_set(x_364, 1, x_362); +return x_364; +} +} +else +{ +lean_object* x_365; lean_object* x_366; +lean_dec(x_252); +x_365 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__10; +lean_inc(x_4); +lean_inc(x_2); +x_366 = l_Lean_PrettyPrinter_Formatter_visitArgs(x_365, x_2, x_261, x_4, x_259); +if (lean_obj_tag(x_366) == 0) +{ +lean_object* x_367; lean_object* x_368; +x_367 = lean_ctor_get(x_366, 0); +lean_inc(x_367); +x_368 = lean_ctor_get(x_366, 1); +lean_inc(x_368); +lean_dec(x_366); +x_266 = x_367; +x_267 = x_368; +goto block_306; +} +else +{ +lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; +lean_dec(x_260); +lean_dec(x_4); +lean_dec(x_2); +x_369 = lean_ctor_get(x_366, 0); +lean_inc(x_369); +x_370 = lean_ctor_get(x_366, 1); +lean_inc(x_370); +if (lean_is_exclusive(x_366)) { + lean_ctor_release(x_366, 0); + lean_ctor_release(x_366, 1); + x_371 = x_366; +} else { + lean_dec_ref(x_366); + x_371 = lean_box(0); +} +if (lean_is_scalar(x_371)) { + x_372 = lean_alloc_ctor(1, 2, 0); +} else { + x_372 = x_371; +} +lean_ctor_set(x_372, 0, x_369); +lean_ctor_set(x_372, 1, x_370); +return x_372; +} +} +} +} +} +} +block_421: +{ +lean_object* x_396; uint8_t x_397; +x_396 = lean_ctor_get(x_394, 0); +lean_inc(x_396); +x_397 = lean_unbox(x_396); +lean_dec(x_396); +if (x_397 == 0) +{ +lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; +lean_dec(x_249); +x_398 = lean_ctor_get(x_394, 1); +lean_inc(x_398); +if (lean_is_exclusive(x_394)) { + lean_ctor_release(x_394, 0); + lean_ctor_release(x_394, 1); + x_399 = x_394; +} else { + lean_dec_ref(x_394); + x_399 = lean_box(0); +} +x_400 = lean_box(0); +if (lean_is_scalar(x_399)) { + x_401 = lean_alloc_ctor(0, 2, 0); +} else { + x_401 = x_399; +} +lean_ctor_set(x_401, 0, x_400); +lean_ctor_set(x_401, 1, x_398); +x_254 = x_401; +x_255 = x_395; +goto block_393; +} +else +{ +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; +x_402 = lean_ctor_get(x_394, 1); +lean_inc(x_402); +lean_dec(x_394); +x_403 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_403, 0, x_249); +x_404 = l_Lean_MessageData_ofList___closed__3; +x_405 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_405, 0, x_404); +lean_ctor_set(x_405, 1, x_403); +x_406 = lean_unsigned_to_nat(2u); +x_407 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_407, 0, x_406); +lean_ctor_set(x_407, 1, x_405); +x_408 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__13; +x_409 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_409, 0, x_408); +lean_ctor_set(x_409, 1, x_407); +x_410 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_410, 0, x_409); +lean_ctor_set(x_410, 1, x_404); +x_411 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__16; +x_412 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_412, 0, x_410); +lean_ctor_set(x_412, 1, x_411); +lean_inc(x_252); +x_413 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_413, 0, x_252); +x_414 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_414, 0, x_404); +lean_ctor_set(x_414, 1, x_413); +x_415 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_415, 0, x_406); +lean_ctor_set(x_415, 1, x_414); +x_416 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_416, 0, x_412); +lean_ctor_set(x_416, 1, x_415); +x_417 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_418 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_417, x_416, x_2, x_402, x_4, x_395); +x_419 = lean_ctor_get(x_418, 0); +lean_inc(x_419); +x_420 = lean_ctor_get(x_418, 1); +lean_inc(x_420); +lean_dec(x_418); +x_254 = x_419; +x_255 = x_420; +goto block_393; +} +} +} +else +{ +lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; +lean_dec(x_250); +lean_dec(x_249); +lean_dec(x_4); +lean_dec(x_2); +x_432 = lean_ctor_get(x_251, 0); +lean_inc(x_432); +x_433 = lean_ctor_get(x_251, 1); +lean_inc(x_433); +if (lean_is_exclusive(x_251)) { + lean_ctor_release(x_251, 0); + lean_ctor_release(x_251, 1); + x_434 = x_251; +} else { + lean_dec_ref(x_251); + x_434 = lean_box(0); +} +if (lean_is_scalar(x_434)) { + x_435 = lean_alloc_ctor(1, 2, 0); +} else { + x_435 = x_434; +} +lean_ctor_set(x_435, 0, x_432); +lean_ctor_set(x_435, 1, x_433); +return x_435; +} +} +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Array_iterateMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__1(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_6; +} +} +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___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) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_3); +return x_7; +} +} +lean_object* l_Array_forMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__3___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_Array_forMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__3(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_2); +return x_8; +} +} +lean_object* l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__4___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 = l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__4(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_7 = lean_box(x_6); +return x_7; +} +} +lean_object* l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; lean_object* x_8; +x_7 = l_Array_anyRangeMAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__5(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_8 = lean_box(x_7); +return x_8; +} +} +lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__10___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__10(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_6; +} +} +lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__9___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +size_t x_4; lean_object* x_5; +x_4 = lean_unbox_usize(x_2); +lean_dec(x_2); +x_5 = l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__9(x_1, x_4, x_3); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__8___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__8(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__12___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Formatter_visit___main___spec__12(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__11(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Formatter_visit___main___spec__7(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_visit(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_visit___main(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("mkCategoryAntiquotParser"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__4; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; 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; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_10); +lean_dec(x_7); +x_11 = lean_box(0); +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_12); +x_14 = lean_nat_sub(x_13, x_12); +lean_dec(x_13); +x_15 = lean_unsigned_to_nat(1u); +x_16 = lean_nat_sub(x_14, x_15); +lean_dec(x_14); +x_17 = l_Lean_Expr_getRevArg_x21___main(x_1, x_16); +x_18 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__5; +x_19 = l_Lean_mkApp(x_18, x_17); +x_20 = l_Lean_Syntax_getKind(x_9); +x_21 = l_Lean_mkConst(x_20, x_11); +x_22 = l_Lean_mkAppStx___closed__9; +x_23 = lean_array_push(x_22, x_19); +x_24 = lean_array_push(x_23, x_21); +x_25 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2; +x_26 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_24, x_24, x_12, x_25); +lean_dec(x_24); +x_27 = l_Lean_PrettyPrinter_Formatter_visit___main(x_26, x_2, x_10, x_4, x_8); +return x_27; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("categoryParser"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("BACKTRACK"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___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_PrettyPrinter_Formatter_termParser_formatter___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___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_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__3; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; uint8_t x_7; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; +x_8 = lean_ctor_get(x_6, 0); +x_9 = lean_ctor_get(x_6, 1); +x_10 = lean_ctor_get(x_8, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_8, 1); +lean_inc(x_11); +lean_dec(x_8); +x_12 = l_Lean_Syntax_getKind(x_10); +x_13 = l_Lean_nullKind; +x_14 = lean_name_eq(x_12, x_13); +lean_dec(x_12); +if (x_14 == 0) +{ +lean_object* x_15; +lean_free_object(x_6); +x_15 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(x_1, x_2, x_11, x_4, x_9); +return x_15; +} +else +{ +lean_object* x_16; +lean_dec(x_11); +lean_dec(x_4); +lean_dec(x_2); +x_16 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +lean_ctor_set_tag(x_6, 1); +lean_ctor_set(x_6, 0, x_16); +return x_6; +} +} +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; uint8_t x_23; +x_17 = lean_ctor_get(x_6, 0); +x_18 = lean_ctor_get(x_6, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_6); +x_19 = lean_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 = l_Lean_Syntax_getKind(x_19); +x_22 = l_Lean_nullKind; +x_23 = lean_name_eq(x_21, x_22); +lean_dec(x_21); +if (x_23 == 0) +{ +lean_object* x_24; +x_24 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(x_1, x_2, x_20, x_4, x_18); +return x_24; +} +else +{ +lean_object* x_25; lean_object* x_26; +lean_dec(x_20); +lean_dec(x_4); +lean_dec(x_2); +x_25 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_18); +return x_26; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_termParser_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_termParser_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_regTermParserAttribute___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_termParser_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_withAntiquot_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = lean_nat_sub(x_7, x_9); +lean_dec(x_7); +x_13 = lean_nat_sub(x_12, x_9); +lean_dec(x_12); +x_14 = l_Lean_Expr_getRevArg_x21___main(x_1, x_13); +x_15 = l_Lean_mkAppStx___closed__9; +x_16 = lean_array_push(x_15, x_11); +x_17 = lean_array_push(x_16, x_14); +x_18 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2; +x_19 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_17, x_17, x_6, x_18); +lean_dec(x_17); +x_20 = l_Lean_PrettyPrinter_Formatter_visit___main(x_19, x_2, x_3, x_4, x_5); +return x_20; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_withAntiquot_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("withAntiquot"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_try_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_Expr_appArg_x21(x_1); +x_7 = l_Lean_PrettyPrinter_Formatter_visit___main(x_6, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_try_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_try_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_try_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_andthen_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_sub(x_7, x_8); +x_10 = lean_nat_sub(x_9, x_8); +lean_dec(x_9); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = lean_nat_sub(x_7, x_6); +lean_dec(x_7); +x_13 = lean_nat_sub(x_12, x_8); +lean_dec(x_12); +x_14 = l_Lean_Expr_getRevArg_x21___main(x_1, x_13); +lean_inc(x_4); +lean_inc(x_2); +x_15 = l_Lean_PrettyPrinter_Formatter_visit___main(x_11, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 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_Lean_PrettyPrinter_Formatter_visit___main(x_14, x_2, x_18, x_4, x_17); +return x_19; +} +else +{ +uint8_t x_20; +lean_dec(x_14); +lean_dec(x_4); +lean_dec(x_2); +x_20 = !lean_is_exclusive(x_15); +if (x_20 == 0) +{ +return x_15; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_15, 0); +x_22 = lean_ctor_get(x_15, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_15); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_andthen_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_andthen_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Term_andthen___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("backtrack"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +x_2 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unexpected node kind '"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__4; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("', expected '"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__6; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__7; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +if (lean_is_exclusive(x_6)) { + lean_ctor_release(x_6, 0); + lean_ctor_release(x_6, 1); + x_9 = x_6; +} else { + lean_dec_ref(x_6); + x_9 = lean_box(0); +} +x_10 = !lean_is_exclusive(x_7); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_7, 0); +x_12 = l_Lean_Syntax_getKind(x_11); +x_13 = lean_name_eq(x_1, x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_44; uint8_t x_45; +x_44 = lean_ctor_get(x_8, 4); +lean_inc(x_44); +x_45 = lean_ctor_get_uint8(x_44, sizeof(void*)*1); +lean_dec(x_44); +if (x_45 == 0) +{ +uint8_t x_46; lean_object* x_47; +x_46 = 0; +x_47 = lean_box(x_46); +lean_ctor_set(x_7, 0, x_47); +x_14 = x_7; +x_15 = x_8; +goto block_43; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_48 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__2; +x_49 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_48, x_4, x_8); +x_50 = lean_ctor_get(x_49, 0); +lean_inc(x_50); +x_51 = lean_ctor_get(x_49, 1); +lean_inc(x_51); +lean_dec(x_49); +lean_ctor_set(x_7, 0, x_50); +x_14 = x_7; +x_15 = x_51; +goto block_43; +} +block_43: +{ +lean_object* x_16; uint8_t x_17; +x_16 = lean_ctor_get(x_14, 0); +lean_inc(x_16); +x_17 = lean_unbox(x_16); +lean_dec(x_16); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; +lean_dec(x_14); +lean_dec(x_12); +lean_dec(x_1); +x_18 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +if (lean_is_scalar(x_9)) { + x_19 = lean_alloc_ctor(1, 2, 0); +} else { + x_19 = x_9; + lean_ctor_set_tag(x_19, 1); +} +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_15); +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; 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; uint8_t x_37; +lean_dec(x_9); +x_20 = lean_ctor_get(x_14, 1); +lean_inc(x_20); +lean_dec(x_14); +x_21 = l_Lean_Name_toString___closed__1; +x_22 = l_Lean_Name_toStringWithSep___main(x_21, x_12); +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_PrettyPrinter_Formatter_checkKind___closed__5; +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_PrettyPrinter_Formatter_checkKind___closed__8; +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 = l_Lean_Name_toStringWithSep___main(x_21, x_1); +x_30 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_30, 0, x_29); +x_31 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_31, 0, x_30); +x_32 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_32, 0, x_28); +lean_ctor_set(x_32, 1, x_31); +x_33 = l_Lean_Elab_Term_mkConst___closed__4; +x_34 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +x_35 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__2; +x_36 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_35, x_34, x_2, x_20, x_4, x_15); +x_37 = !lean_is_exclusive(x_36); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; +x_38 = lean_ctor_get(x_36, 0); +lean_dec(x_38); +x_39 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +lean_ctor_set_tag(x_36, 1); +lean_ctor_set(x_36, 0, x_39); +return x_36; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_36, 1); +lean_inc(x_40); +lean_dec(x_36); +x_41 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_40); +return x_42; +} +} +} +} +else +{ +lean_object* x_52; lean_object* x_53; +lean_dec(x_12); +lean_dec(x_1); +x_52 = lean_box(0); +lean_ctor_set(x_7, 0, x_52); +if (lean_is_scalar(x_9)) { + x_53 = lean_alloc_ctor(0, 2, 0); +} else { + x_53 = x_9; +} +lean_ctor_set(x_53, 0, x_7); +lean_ctor_set(x_53, 1, x_8); +return x_53; +} +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; +x_54 = lean_ctor_get(x_7, 0); +x_55 = lean_ctor_get(x_7, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_7); +x_56 = l_Lean_Syntax_getKind(x_54); +x_57 = lean_name_eq(x_1, x_56); +if (x_57 == 0) +{ +lean_object* x_58; lean_object* x_59; lean_object* x_86; uint8_t x_87; +x_86 = lean_ctor_get(x_8, 4); +lean_inc(x_86); +x_87 = lean_ctor_get_uint8(x_86, sizeof(void*)*1); +lean_dec(x_86); +if (x_87 == 0) +{ +uint8_t x_88; lean_object* x_89; lean_object* x_90; +x_88 = 0; +x_89 = lean_box(x_88); +x_90 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_90, 0, x_89); +lean_ctor_set(x_90, 1, x_55); +x_58 = x_90; +x_59 = x_8; +goto block_85; +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_91 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__2; +x_92 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_91, x_4, x_8); +x_93 = lean_ctor_get(x_92, 0); +lean_inc(x_93); +x_94 = lean_ctor_get(x_92, 1); +lean_inc(x_94); +lean_dec(x_92); +x_95 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_95, 0, x_93); +lean_ctor_set(x_95, 1, x_55); +x_58 = x_95; +x_59 = x_94; +goto block_85; +} +block_85: +{ +lean_object* x_60; uint8_t x_61; +x_60 = lean_ctor_get(x_58, 0); +lean_inc(x_60); +x_61 = lean_unbox(x_60); +lean_dec(x_60); +if (x_61 == 0) +{ +lean_object* x_62; lean_object* x_63; +lean_dec(x_58); +lean_dec(x_56); +lean_dec(x_1); +x_62 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +if (lean_is_scalar(x_9)) { + x_63 = lean_alloc_ctor(1, 2, 0); +} else { + x_63 = x_9; + lean_ctor_set_tag(x_63, 1); +} +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_59); +return x_63; +} +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; 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_dec(x_9); +x_64 = lean_ctor_get(x_58, 1); +lean_inc(x_64); +lean_dec(x_58); +x_65 = l_Lean_Name_toString___closed__1; +x_66 = l_Lean_Name_toStringWithSep___main(x_65, x_56); +x_67 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_67, 0, x_66); +x_68 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_68, 0, x_67); +x_69 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__5; +x_70 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_68); +x_71 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__8; +x_72 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_72, 0, x_70); +lean_ctor_set(x_72, 1, x_71); +x_73 = l_Lean_Name_toStringWithSep___main(x_65, x_1); +x_74 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_74, 0, x_73); +x_75 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_75, 0, x_74); +x_76 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_76, 0, x_72); +lean_ctor_set(x_76, 1, x_75); +x_77 = l_Lean_Elab_Term_mkConst___closed__4; +x_78 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_78, 0, x_76); +lean_ctor_set(x_78, 1, x_77); +x_79 = l_Lean_PrettyPrinter_Formatter_checkKind___closed__2; +x_80 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Formatter_visit___main___spec__2(x_79, x_78, x_2, x_64, x_4, x_59); +x_81 = lean_ctor_get(x_80, 1); +lean_inc(x_81); +if (lean_is_exclusive(x_80)) { + lean_ctor_release(x_80, 0); + lean_ctor_release(x_80, 1); + x_82 = x_80; +} else { + lean_dec_ref(x_80); + x_82 = lean_box(0); +} +x_83 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4; +if (lean_is_scalar(x_82)) { + x_84 = lean_alloc_ctor(1, 2, 0); +} else { + x_84 = x_82; + lean_ctor_set_tag(x_84, 1); +} +lean_ctor_set(x_84, 0, x_83); +lean_ctor_set(x_84, 1, x_81); +return x_84; +} +} +} +else +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; +lean_dec(x_56); +lean_dec(x_1); +x_96 = lean_box(0); +x_97 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_97, 0, x_96); +lean_ctor_set(x_97, 1, x_55); +if (lean_is_scalar(x_9)) { + x_98 = lean_alloc_ctor(0, 2, 0); +} else { + x_98 = x_9; +} +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_8); +return x_98; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkKind___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_checkKind(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_2); +return x_6; +} +} +lean_object* l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Formatter_node_formatter___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_ctor_get(x_2, 0); +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +uint8_t x_7; uint8_t x_8; uint8_t x_9; +x_7 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +x_8 = 1; +x_9 = l_Lean_Meta_TransparencyMode_lt(x_7, x_8); +if (x_9 == 0) +{ +lean_object* x_10; +x_10 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_10; +} +else +{ +lean_object* x_11; +lean_ctor_set_uint8(x_5, sizeof(void*)*1 + 6, x_8); +x_11 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_11; +} +} +else +{ +lean_object* x_12; uint8_t x_13; uint8_t x_14; uint8_t x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; uint8_t x_19; uint8_t x_20; uint8_t x_21; +x_12 = lean_ctor_get(x_5, 0); +x_13 = lean_ctor_get_uint8(x_5, sizeof(void*)*1); +x_14 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 1); +x_15 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 2); +x_16 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 3); +x_17 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 4); +x_18 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 5); +x_19 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +lean_inc(x_12); +lean_dec(x_5); +x_20 = 1; +x_21 = l_Lean_Meta_TransparencyMode_lt(x_19, x_20); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; +x_22 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_22, 0, x_12); +lean_ctor_set_uint8(x_22, sizeof(void*)*1, x_13); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 1, x_14); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 2, x_15); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 3, x_16); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 4, x_17); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 5, x_18); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 6, x_19); +lean_ctor_set(x_2, 0, x_22); +x_23 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_23; +} +else +{ +lean_object* x_24; lean_object* x_25; +x_24 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_24, 0, x_12); +lean_ctor_set_uint8(x_24, sizeof(void*)*1, x_13); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 1, x_14); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 2, x_15); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 3, x_16); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 4, x_17); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 5, x_18); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 6, x_20); +lean_ctor_set(x_2, 0, x_24); +x_25 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_25; +} +} +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; uint8_t x_33; uint8_t x_34; uint8_t x_35; uint8_t x_36; uint8_t x_37; uint8_t x_38; lean_object* x_39; uint8_t x_40; uint8_t x_41; +x_26 = lean_ctor_get(x_2, 0); +x_27 = lean_ctor_get(x_2, 1); +x_28 = lean_ctor_get(x_2, 2); +x_29 = lean_ctor_get(x_2, 3); +x_30 = lean_ctor_get(x_2, 4); +lean_inc(x_30); +lean_inc(x_29); +lean_inc(x_28); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_2); +x_31 = lean_ctor_get(x_26, 0); +lean_inc(x_31); +x_32 = lean_ctor_get_uint8(x_26, sizeof(void*)*1); +x_33 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 1); +x_34 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 2); +x_35 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 3); +x_36 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 4); +x_37 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 5); +x_38 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_26)) { + lean_ctor_release(x_26, 0); + x_39 = x_26; +} else { + lean_dec_ref(x_26); + x_39 = lean_box(0); +} +x_40 = 1; +x_41 = l_Lean_Meta_TransparencyMode_lt(x_38, x_40); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +if (lean_is_scalar(x_39)) { + x_42 = lean_alloc_ctor(0, 1, 7); +} else { + x_42 = x_39; +} +lean_ctor_set(x_42, 0, x_31); +lean_ctor_set_uint8(x_42, sizeof(void*)*1, x_32); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 1, x_33); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 2, x_34); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 3, x_35); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 4, x_36); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 5, x_37); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 6, x_38); +x_43 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_27); +lean_ctor_set(x_43, 2, x_28); +lean_ctor_set(x_43, 3, x_29); +lean_ctor_set(x_43, 4, x_30); +x_44 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_43, x_3); +return x_44; +} +else +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; +if (lean_is_scalar(x_39)) { + x_45 = lean_alloc_ctor(0, 1, 7); +} else { + x_45 = x_39; +} +lean_ctor_set(x_45, 0, x_31); +lean_ctor_set_uint8(x_45, sizeof(void*)*1, x_32); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 1, x_33); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 2, x_34); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 3, x_35); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 4, x_36); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 5, x_37); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 6, x_40); +x_46 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_27); +lean_ctor_set(x_46, 2, x_28); +lean_ctor_set(x_46, 3, x_29); +lean_ctor_set(x_46, 4, x_30); +x_47 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_46, x_3); +return x_47; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_node_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +lean_inc(x_4); +x_12 = l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Formatter_node_formatter___spec__1(x_11, x_4, x_5); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_Lean_Expr_appArg_x21(x_1); +x_16 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_visit), 5, 1); +lean_closure_set(x_16, 0, x_15); +x_17 = l_Lean_PrettyPrinter_Formatter_checkKind(x_13, x_2, x_3, x_4, x_14); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +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); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = l_Lean_PrettyPrinter_Formatter_concatArgs(x_16, x_2, x_20, x_4, x_19); +return x_21; +} +else +{ +uint8_t x_22; +lean_dec(x_16); +lean_dec(x_4); +lean_dec(x_2); +x_22 = !lean_is_exclusive(x_17); +if (x_22 == 0) +{ +return x_17; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_17, 0); +x_24 = lean_ctor_get(x_17, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_17); +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; +} +} +} +else +{ +uint8_t x_26; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_26 = !lean_is_exclusive(x_12); +if (x_26 == 0) +{ +return x_12; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_12, 0); +x_28 = lean_ctor_get(x_12, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_12); +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; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_node_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_node_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Meta_DiscrTree_Trie_format___main___rarg___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_node_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +lean_inc(x_5); +lean_inc(x_3); +x_7 = l_Lean_PrettyPrinter_Formatter_visit___main(x_1, x_3, x_4, x_5, x_6); +if (lean_obj_tag(x_7) == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(x_2, x_3, x_10, x_5, x_9); +return x_11; +} +else +{ +uint8_t x_12; +lean_dec(x_5); +lean_dec(x_3); +x_12 = !lean_is_exclusive(x_7); +if (x_12 == 0) +{ +return x_7; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_7, 0); +x_14 = lean_ctor_get(x_7, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_7); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +return x_15; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +lean_inc(x_4); +x_12 = l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Formatter_node_formatter___spec__1(x_11, x_4, x_5); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_Lean_Expr_appArg_x21(x_1); +x_16 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_trailingNode_formatter___lambda__1___boxed), 6, 2); +lean_closure_set(x_16, 0, x_15); +lean_closure_set(x_16, 1, x_1); +x_17 = l_Lean_PrettyPrinter_Formatter_checkKind(x_13, x_2, x_3, x_4, x_14); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +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); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = l_Lean_PrettyPrinter_Formatter_concatArgs(x_16, x_2, x_20, x_4, x_19); +return x_21; +} +else +{ +uint8_t x_22; +lean_dec(x_16); +lean_dec(x_4); +lean_dec(x_2); +x_22 = !lean_is_exclusive(x_17); +if (x_22 == 0) +{ +return x_17; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_17, 0); +x_24 = lean_ctor_get(x_17, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_17); +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; +} +} +} +else +{ +uint8_t x_26; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_26 = !lean_is_exclusive(x_12); +if (x_26 == 0) +{ +return x_12; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_12, 0); +x_28 = lean_ctor_get(x_12, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_12); +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; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_PrettyPrinter_Formatter_trailingNode_formatter___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_2); +return x_7; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("trailingNode"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_trailingNode_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_parseToken(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = l_String_splitAux___main___closed__1; +x_8 = l___private_Lean_Elab_Quotation_11__oldRunTermElabM___rarg___closed__2; +lean_inc(x_1); +x_9 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_9, 0, x_1); +lean_ctor_set(x_9, 1, x_7); +lean_ctor_set(x_9, 2, x_8); +x_10 = lean_unsigned_to_nat(0u); +x_11 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +lean_ctor_set(x_11, 2, x_6); +lean_ctor_set(x_11, 3, x_2); +x_12 = l_Lean_Parser_mkParserState(x_1); +lean_dec(x_1); +x_13 = l_Lean_Parser_tokenFn(x_11, x_12); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_3); +x_15 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_5); +return x_15; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_parseToken___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_parseToken(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_pushToken(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_6 = lean_ctor_get(x_3, 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 = l_String_splitAux___main___closed__1; +x_10 = lean_string_dec_eq(x_7, x_9); +if (x_10 == 0) +{ +lean_object* x_11; uint8_t x_12; +x_11 = l_String_trimRight(x_1); +x_12 = lean_string_dec_eq(x_11, x_1); +lean_dec(x_11); +if (x_12 == 0) +{ +uint8_t x_13; +lean_dec(x_7); +x_13 = !lean_is_exclusive(x_3); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; +x_14 = lean_ctor_get(x_3, 2); +lean_dec(x_14); +x_15 = lean_ctor_get(x_3, 1); +lean_dec(x_15); +x_16 = lean_ctor_get(x_3, 0); +lean_dec(x_16); +lean_inc(x_1); +x_17 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_17, 0, x_1); +x_18 = l_String_trimLeft(x_1); +x_19 = lean_string_dec_eq(x_18, x_1); +lean_dec(x_18); +if (x_19 == 0) +{ +lean_object* x_20; +lean_dec(x_1); +lean_ctor_set(x_3, 1, x_9); +x_20 = l_Lean_PrettyPrinter_Formatter_push(x_17, x_2, x_3, x_4, x_5); +lean_dec(x_2); +return x_20; +} +else +{ +lean_object* x_21; +lean_ctor_set(x_3, 1, x_1); +x_21 = l_Lean_PrettyPrinter_Formatter_push(x_17, x_2, x_3, x_4, x_5); +lean_dec(x_2); +return x_21; +} +} +else +{ +lean_object* x_22; lean_object* x_23; uint8_t x_24; +lean_dec(x_3); +lean_inc(x_1); +x_22 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_22, 0, x_1); +x_23 = l_String_trimLeft(x_1); +x_24 = lean_string_dec_eq(x_23, x_1); +lean_dec(x_23); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; +lean_dec(x_1); +x_25 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_25, 0, x_6); +lean_ctor_set(x_25, 1, x_9); +lean_ctor_set(x_25, 2, x_8); +x_26 = l_Lean_PrettyPrinter_Formatter_push(x_22, x_2, x_25, x_4, x_5); +lean_dec(x_2); +return x_26; +} +else +{ +lean_object* x_27; lean_object* x_28; +x_27 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_27, 0, x_6); +lean_ctor_set(x_27, 1, x_1); +lean_ctor_set(x_27, 2, x_8); +x_28 = l_Lean_PrettyPrinter_Formatter_push(x_22, x_2, x_27, x_4, x_5); +lean_dec(x_2); +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; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; +lean_dec(x_8); +lean_dec(x_6); +x_29 = l_String_trimLeft(x_1); +lean_inc(x_2); +lean_inc(x_29); +x_30 = l_Lean_PrettyPrinter_Formatter_parseToken(x_29, x_2, x_3, x_4, x_5); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +x_33 = lean_ctor_get(x_31, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_31, 1); +lean_inc(x_34); +lean_dec(x_31); +lean_inc(x_29); +x_35 = lean_string_append(x_29, x_7); +lean_dec(x_7); +lean_inc(x_2); +x_36 = l_Lean_PrettyPrinter_Formatter_parseToken(x_35, x_2, x_34, x_4, x_32); +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); +x_39 = lean_ctor_get(x_37, 0); +lean_inc(x_39); +x_40 = lean_ctor_get(x_37, 1); +lean_inc(x_40); +lean_dec(x_37); +x_41 = lean_ctor_get(x_33, 1); +lean_inc(x_41); +lean_dec(x_33); +x_42 = lean_ctor_get(x_39, 1); +lean_inc(x_42); +lean_dec(x_39); +x_43 = lean_nat_dec_eq(x_41, x_42); +lean_dec(x_42); +lean_dec(x_41); +if (x_43 == 0) +{ +lean_object* x_44; uint8_t x_45; lean_object* x_46; lean_object* x_47; uint8_t x_48; +lean_inc(x_1); +x_44 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_44, 0, x_1); +x_45 = 0; +x_46 = l_Lean_Format_flatten___main___closed__1; +x_47 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_47, 0, x_44); +lean_ctor_set(x_47, 1, x_46); +lean_ctor_set_uint8(x_47, sizeof(void*)*2, x_45); +x_48 = !lean_is_exclusive(x_40); +if (x_48 == 0) +{ +lean_object* x_49; uint8_t x_50; +x_49 = lean_ctor_get(x_40, 1); +lean_dec(x_49); +x_50 = lean_string_dec_eq(x_29, x_1); +lean_dec(x_29); +if (x_50 == 0) +{ +lean_object* x_51; +lean_dec(x_1); +lean_ctor_set(x_40, 1, x_9); +x_51 = l_Lean_PrettyPrinter_Formatter_push(x_47, x_2, x_40, x_4, x_38); +lean_dec(x_2); +return x_51; +} +else +{ +lean_object* x_52; +lean_ctor_set(x_40, 1, x_1); +x_52 = l_Lean_PrettyPrinter_Formatter_push(x_47, x_2, x_40, x_4, x_38); +lean_dec(x_2); +return x_52; +} +} +else +{ +lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_53 = lean_ctor_get(x_40, 0); +x_54 = lean_ctor_get(x_40, 2); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_40); +x_55 = lean_string_dec_eq(x_29, x_1); +lean_dec(x_29); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; +lean_dec(x_1); +x_56 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_56, 0, x_53); +lean_ctor_set(x_56, 1, x_9); +lean_ctor_set(x_56, 2, x_54); +x_57 = l_Lean_PrettyPrinter_Formatter_push(x_47, x_2, x_56, x_4, x_38); +lean_dec(x_2); +return x_57; +} +else +{ +lean_object* x_58; lean_object* x_59; +x_58 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_58, 0, x_53); +lean_ctor_set(x_58, 1, x_1); +lean_ctor_set(x_58, 2, x_54); +x_59 = l_Lean_PrettyPrinter_Formatter_push(x_47, x_2, x_58, x_4, x_38); +lean_dec(x_2); +return x_59; +} +} +} +else +{ +lean_object* x_60; uint8_t x_61; +lean_inc(x_1); +x_60 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_60, 0, x_1); +x_61 = !lean_is_exclusive(x_40); +if (x_61 == 0) +{ +lean_object* x_62; uint8_t x_63; +x_62 = lean_ctor_get(x_40, 1); +x_63 = lean_string_dec_eq(x_29, x_1); +lean_dec(x_29); +if (x_63 == 0) +{ +lean_object* x_64; +lean_dec(x_62); +lean_dec(x_1); +lean_ctor_set(x_40, 1, x_9); +x_64 = l_Lean_PrettyPrinter_Formatter_push(x_60, x_2, x_40, x_4, x_38); +lean_dec(x_2); +return x_64; +} +else +{ +lean_object* x_65; lean_object* x_66; +x_65 = lean_string_append(x_1, x_62); +lean_dec(x_62); +lean_ctor_set(x_40, 1, x_65); +x_66 = l_Lean_PrettyPrinter_Formatter_push(x_60, x_2, x_40, x_4, x_38); +lean_dec(x_2); +return x_66; +} +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_67 = lean_ctor_get(x_40, 0); +x_68 = lean_ctor_get(x_40, 1); +x_69 = lean_ctor_get(x_40, 2); +lean_inc(x_69); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_40); +x_70 = lean_string_dec_eq(x_29, x_1); +lean_dec(x_29); +if (x_70 == 0) +{ +lean_object* x_71; lean_object* x_72; +lean_dec(x_68); +lean_dec(x_1); +x_71 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_71, 0, x_67); +lean_ctor_set(x_71, 1, x_9); +lean_ctor_set(x_71, 2, x_69); +x_72 = l_Lean_PrettyPrinter_Formatter_push(x_60, x_2, x_71, x_4, x_38); +lean_dec(x_2); +return x_72; +} +else +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_string_append(x_1, x_68); +lean_dec(x_68); +x_74 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_74, 0, x_67); +lean_ctor_set(x_74, 1, x_73); +lean_ctor_set(x_74, 2, x_69); +x_75 = l_Lean_PrettyPrinter_Formatter_push(x_60, x_2, x_74, x_4, x_38); +lean_dec(x_2); +return x_75; +} +} +} +} +} +else +{ +uint8_t x_76; +lean_dec(x_7); +x_76 = !lean_is_exclusive(x_3); +if (x_76 == 0) +{ +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_77 = lean_ctor_get(x_3, 2); +lean_dec(x_77); +x_78 = lean_ctor_get(x_3, 1); +lean_dec(x_78); +x_79 = lean_ctor_get(x_3, 0); +lean_dec(x_79); +lean_inc(x_1); +x_80 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_80, 0, x_1); +x_81 = l_String_trimLeft(x_1); +x_82 = lean_string_dec_eq(x_81, x_1); +lean_dec(x_81); +if (x_82 == 0) +{ +lean_object* x_83; +lean_dec(x_1); +lean_ctor_set(x_3, 1, x_9); +x_83 = l_Lean_PrettyPrinter_Formatter_push(x_80, x_2, x_3, x_4, x_5); +lean_dec(x_2); +return x_83; +} +else +{ +lean_object* x_84; +lean_ctor_set(x_3, 1, x_1); +x_84 = l_Lean_PrettyPrinter_Formatter_push(x_80, x_2, x_3, x_4, x_5); +lean_dec(x_2); +return x_84; +} +} +else +{ +lean_object* x_85; lean_object* x_86; uint8_t x_87; +lean_dec(x_3); +lean_inc(x_1); +x_85 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_85, 0, x_1); +x_86 = l_String_trimLeft(x_1); +x_87 = lean_string_dec_eq(x_86, x_1); +lean_dec(x_86); +if (x_87 == 0) +{ +lean_object* x_88; lean_object* x_89; +lean_dec(x_1); +x_88 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_88, 0, x_6); +lean_ctor_set(x_88, 1, x_9); +lean_ctor_set(x_88, 2, x_8); +x_89 = l_Lean_PrettyPrinter_Formatter_push(x_85, x_2, x_88, x_4, x_5); +lean_dec(x_2); +return x_89; +} +else +{ +lean_object* x_90; lean_object* x_91; +x_90 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_90, 0, x_6); +lean_ctor_set(x_90, 1, x_1); +lean_ctor_set(x_90, 2, x_8); +x_91 = l_Lean_PrettyPrinter_Formatter_push(x_85, x_2, x_90, x_4, x_5); +lean_dec(x_2); +return x_91; +} +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_pushToken___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_pushToken(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_symbol_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +lean_inc(x_4); +x_12 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__2(x_11, x_4, x_5); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_Lean_PrettyPrinter_Formatter_pushToken(x_13, x_2, x_3, x_4, x_14); +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 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_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_18, x_4, x_17); +lean_dec(x_4); +return x_19; +} +else +{ +uint8_t x_20; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_20 = !lean_is_exclusive(x_12); +if (x_20 == 0) +{ +return x_12; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_ctor_get(x_12, 0); +x_22 = lean_ctor_get(x_12, 1); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_12); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_21); +lean_ctor_set(x_23, 1, x_22); +return x_23; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_symbol_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_symbol_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_unquotedSymbolFn___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_symbol_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_symbol_formatter(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("symbolNoWs"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_symbol_formatter(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unicodeSymbol"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_symbol_formatter(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("nonReservedSymbol"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +uint8_t l_Array_isEqvAux___main___at_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___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) { +_start: +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_array_get_size(x_4); +x_8 = lean_nat_dec_lt(x_6, x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +uint8_t x_9; +lean_dec(x_6); +x_9 = 1; +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_10 = lean_array_fget(x_4, x_6); +x_11 = lean_array_fget(x_5, x_6); +x_12 = l_Lean_Syntax_structEq___main(x_10, x_11); +lean_dec(x_11); +lean_dec(x_10); +if (x_12 == 0) +{ +uint8_t x_13; +lean_dec(x_6); +x_13 = 0; +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_unsigned_to_nat(1u); +x_15 = lean_nat_add(x_6, x_14); +lean_dec(x_6); +x_3 = lean_box(0); +x_6 = x_15; +goto _start; +} +} +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unimplemented: escaping non-atomic identifiers (is anyone even using those?)"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1; +x_2 = lean_unsigned_to_nat(243u); +x_3 = lean_unsigned_to_nat(35u); +x_4 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__1; +x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("«"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("»"); +return x_1; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; +x_5 = l_Lean_identKind; +x_6 = l_Lean_PrettyPrinter_Formatter_checkKind(x_5, x_1, x_2, x_3, x_4); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; 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_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_9, x_3, x_8); +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_ctor_get(x_11, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l_Lean_Syntax_getId(x_13); +x_16 = l_Lean_Name_toString___closed__1; +lean_inc(x_15); +x_17 = l_Lean_Name_toStringWithSep___main(x_16, x_15); +lean_inc(x_1); +lean_inc(x_17); +x_18 = l_Lean_PrettyPrinter_Formatter_parseToken(x_17, x_1, x_14, x_3, x_12); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_ctor_get(x_19, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_19, 1); +lean_inc(x_22); +lean_dec(x_19); +x_52 = lean_ctor_get(x_21, 0); +lean_inc(x_52); +x_53 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_13); +x_54 = lean_array_push(x_53, x_13); +x_55 = lean_array_get_size(x_52); +x_56 = lean_array_get_size(x_54); +x_57 = lean_nat_dec_eq(x_55, x_56); +lean_dec(x_56); +lean_dec(x_55); +if (x_57 == 0) +{ +lean_object* x_58; +lean_dec(x_54); +lean_dec(x_52); +lean_dec(x_21); +lean_dec(x_17); +lean_dec(x_13); +x_58 = lean_box(0); +x_23 = x_58; +goto block_51; +} +else +{ +lean_object* x_59; uint8_t x_60; +x_59 = lean_unsigned_to_nat(0u); +x_60 = l_Array_isEqvAux___main___at_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___spec__1(x_13, x_21, lean_box(0), x_52, x_54, x_59); +lean_dec(x_54); +lean_dec(x_52); +lean_dec(x_21); +lean_dec(x_13); +if (x_60 == 0) +{ +lean_object* x_61; +lean_dec(x_17); +x_61 = lean_box(0); +x_23 = x_61; +goto block_51; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +lean_dec(x_15); +x_62 = l_Lean_PrettyPrinter_Formatter_pushToken(x_17, x_1, x_22, x_3, x_20); +x_63 = lean_ctor_get(x_62, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +lean_dec(x_62); +x_65 = lean_ctor_get(x_63, 1); +lean_inc(x_65); +lean_dec(x_63); +x_66 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_65, x_3, x_64); +return x_66; +} +} +block_51: +{ +lean_dec(x_23); +if (lean_obj_tag(x_15) == 1) +{ +lean_object* x_24; +x_24 = lean_ctor_get(x_15, 0); +lean_inc(x_24); +if (lean_obj_tag(x_24) == 0) +{ +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; +x_25 = lean_ctor_get(x_15, 1); +lean_inc(x_25); +lean_dec(x_15); +x_26 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__3; +x_27 = lean_string_append(x_26, x_25); +lean_dec(x_25); +x_28 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__4; +x_29 = lean_string_append(x_27, x_28); +x_30 = l_Lean_PrettyPrinter_Formatter_pushToken(x_29, x_1, x_22, x_3, x_20); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); +x_33 = lean_ctor_get(x_31, 1); +lean_inc(x_33); +lean_dec(x_31); +x_34 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_33, x_3, x_32); +return x_34; +} +else +{ +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_dec(x_24); +lean_dec(x_15); +x_35 = l_String_Inhabited; +x_36 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2; +x_37 = lean_panic_fn(x_35, x_36); +x_38 = l_Lean_PrettyPrinter_Formatter_pushToken(x_37, x_1, x_22, x_3, x_20); +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_ctor_get(x_39, 1); +lean_inc(x_41); +lean_dec(x_39); +x_42 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_41, x_3, x_40); +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_dec(x_15); +x_43 = l_String_Inhabited; +x_44 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2; +x_45 = lean_panic_fn(x_43, x_44); +x_46 = l_Lean_PrettyPrinter_Formatter_pushToken(x_45, x_1, x_22, x_3, x_20); +x_47 = lean_ctor_get(x_46, 0); +lean_inc(x_47); +x_48 = lean_ctor_get(x_46, 1); +lean_inc(x_48); +lean_dec(x_46); +x_49 = lean_ctor_get(x_47, 1); +lean_inc(x_49); +lean_dec(x_47); +x_50 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_49, x_3, x_48); +return x_50; +} +} +} +else +{ +uint8_t x_67; +lean_dec(x_1); +x_67 = !lean_is_exclusive(x_6); +if (x_67 == 0) +{ +return x_6; +} +else +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_68 = lean_ctor_get(x_6, 0); +x_69 = lean_ctor_get(x_6, 1); +lean_inc(x_69); +lean_inc(x_68); +lean_dec(x_6); +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_68); +lean_ctor_set(x_70, 1, x_69); +return x_70; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_Array_isEqvAux___main___at_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___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) { +_start: +{ +uint8_t x_7; lean_object* x_8; +x_7 = l_Array_isEqvAux___main___at_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_8 = lean_box(x_7); +return x_8; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("identNoAntiquot"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___boxed), 1, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; +x_5 = l_Lean_identKind; +x_6 = l_Lean_PrettyPrinter_Formatter_checkKind(x_5, x_1, x_2, x_3, x_4); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; 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_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_9, x_3, x_8); +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_ctor_get(x_11, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l_Lean_Syntax_getId(x_13); +lean_dec(x_13); +x_16 = l_Lean_Name_toString___closed__1; +x_17 = l_Lean_Name_toStringWithSep___main(x_16, x_15); +x_18 = l_Lean_PrettyPrinter_Formatter_pushToken(x_17, x_1, x_14, x_3, x_12); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = lean_ctor_get(x_19, 1); +lean_inc(x_21); +lean_dec(x_19); +x_22 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_21, x_3, x_20); +return x_22; +} +else +{ +uint8_t x_23; +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_6); +if (x_23 == 0) +{ +return x_6; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_6, 0); +x_25 = lean_ctor_get(x_6, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_6); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_PrettyPrinter_Formatter_rawIdent_formatter(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("rawIdent"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___boxed), 1, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visitAtom___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("not an atom: "); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_visitAtom___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visitAtom___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_PrettyPrinter_Formatter_visitAtom___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Formatter_visitAtom___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom(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; uint8_t x_14; lean_object* x_73; uint8_t x_74; +x_7 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_4, x_5, x_6); +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +if (lean_is_exclusive(x_7)) { + lean_ctor_release(x_7, 0); + lean_ctor_release(x_7, 1); + x_10 = x_7; +} else { + lean_dec_ref(x_7); + x_10 = lean_box(0); +} +x_11 = lean_ctor_get(x_8, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_8, 1); +lean_inc(x_12); +if (lean_is_exclusive(x_8)) { + lean_ctor_release(x_8, 0); + lean_ctor_release(x_8, 1); + x_13 = x_8; +} else { + lean_dec_ref(x_8); + x_13 = lean_box(0); +} +x_73 = lean_box(0); +x_74 = lean_name_eq(x_1, x_73); +if (x_74 == 0) +{ +uint8_t x_75; +x_75 = 1; +x_14 = x_75; +goto block_72; +} +else +{ +uint8_t x_76; +x_76 = 0; +x_14 = x_76; +goto block_72; +} +block_72: +{ +uint8_t x_15; +if (x_14 == 0) +{ +uint8_t x_70; +x_70 = 0; +x_15 = x_70; +goto block_69; +} +else +{ +uint8_t x_71; +x_71 = 1; +x_15 = x_71; +goto block_69; +} +block_69: +{ +lean_object* x_16; +if (lean_obj_tag(x_11) == 1) +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_65 = lean_ctor_get(x_11, 1); +lean_inc(x_65); +x_66 = l_Lean_Syntax_inhabited; +x_67 = lean_unsigned_to_nat(0u); +x_68 = lean_array_get(x_66, x_65, x_67); +lean_dec(x_65); +x_16 = x_68; +goto block_64; +} +else +{ +lean_inc(x_11); +x_16 = x_11; +goto block_64; +} +block_64: +{ +lean_object* x_17; lean_object* x_18; +if (x_15 == 0) +{ +lean_object* x_55; lean_object* x_56; +lean_dec(x_1); +x_55 = lean_box(0); +if (lean_is_scalar(x_13)) { + x_56 = lean_alloc_ctor(0, 2, 0); +} else { + x_56 = x_13; +} +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_12); +x_17 = x_56; +x_18 = x_9; +goto block_54; +} +else +{ +lean_object* x_57; +lean_dec(x_13); +x_57 = l_Lean_PrettyPrinter_Formatter_checkKind(x_1, x_3, x_12, x_5, x_9); +if (lean_obj_tag(x_57) == 0) +{ +lean_object* x_58; lean_object* x_59; +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_57, 1); +lean_inc(x_59); +lean_dec(x_57); +x_17 = x_58; +x_18 = x_59; +goto block_54; +} +else +{ +uint8_t x_60; +lean_dec(x_16); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_3); +x_60 = !lean_is_exclusive(x_57); +if (x_60 == 0) +{ +return x_57; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_57, 0); +x_62 = lean_ctor_get(x_57, 1); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_57); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +return x_63; +} +} +} +block_54: +{ +lean_object* x_19; lean_object* x_20; +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +switch (lean_obj_tag(x_16)) { +case 0: +{ +lean_object* x_35; uint8_t 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_dec(x_19); +lean_dec(x_10); +lean_dec(x_3); +x_35 = lean_box(0); +x_36 = 0; +x_37 = lean_unsigned_to_nat(0u); +x_38 = l_Lean_Syntax_formatStxAux___main(x_35, x_36, x_37, x_11); +x_39 = l_Lean_Options_empty; +x_40 = l_Lean_Format_pretty(x_38, x_39); +x_41 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_41, 0, x_40); +x_42 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_42, 0, x_41); +x_43 = l_Lean_PrettyPrinter_Formatter_visitAtom___closed__3; +x_44 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_45, 0, x_16); +lean_ctor_set(x_45, 1, x_44); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_18); +return x_46; +} +case 2: +{ +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_11); +lean_dec(x_10); +x_47 = lean_ctor_get(x_16, 1); +lean_inc(x_47); +lean_dec(x_16); +x_48 = l_Lean_PrettyPrinter_Formatter_pushToken(x_47, x_3, x_19, x_5, x_18); +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_51 = lean_ctor_get(x_49, 1); +lean_inc(x_51); +lean_dec(x_49); +x_52 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_51, x_5, x_50); +return x_52; +} +default: +{ +lean_object* x_53; +lean_dec(x_19); +lean_dec(x_16); +lean_dec(x_3); +x_53 = lean_box(0); +x_20 = x_53; +goto block_34; +} +} +block_34: +{ +lean_object* x_21; uint8_t 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_dec(x_20); +x_21 = lean_box(0); +x_22 = 0; +x_23 = lean_unsigned_to_nat(0u); +x_24 = l_Lean_Syntax_formatStxAux___main(x_21, x_22, x_23, x_11); +x_25 = l_Lean_Options_empty; +x_26 = l_Lean_Format_pretty(x_24, x_25); +x_27 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_27, 0, x_26); +x_28 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_28, 0, x_27); +x_29 = l_Lean_PrettyPrinter_Formatter_visitAtom___closed__3; +x_30 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_28); +x_31 = lean_box(0); +x_32 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_30); +if (lean_is_scalar(x_10)) { + x_33 = lean_alloc_ctor(1, 2, 0); +} else { + x_33 = x_10; + lean_ctor_set_tag(x_33, 1); +} +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_18); +return x_33; +} +} +} +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_visitAtom___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_2); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_charLitKind; +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("charLitNoAntiquot"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_strLitKind; +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("strLitNoAntiquot"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_nameLitKind; +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("nameLitNoAntiquot"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_numLitKind; +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("numLitNoAntiquot"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_fieldIdx_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_fieldIdxKind; +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_fieldIdx_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_fieldIdxKind___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Formatter_many_formatter___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) { +_start: +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_unsigned_to_nat(0u); +x_9 = lean_nat_dec_eq(x_3, 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; lean_object* x_15; lean_object* x_16; +x_10 = lean_unsigned_to_nat(1u); +x_11 = lean_nat_sub(x_3, x_10); +lean_dec(x_3); +x_12 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_8); +x_13 = lean_nat_sub(x_12, x_8); +lean_dec(x_12); +x_14 = lean_nat_sub(x_13, x_10); +lean_dec(x_13); +x_15 = l_Lean_Expr_getRevArg_x21___main(x_1, x_14); +lean_inc(x_6); +lean_inc(x_4); +x_16 = l_Lean_PrettyPrinter_Formatter_visit___main(x_15, x_4, x_5, x_6, x_7); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +x_3 = x_11; +x_5 = x_19; +x_7 = x_18; +goto _start; +} +else +{ +uint8_t x_21; +lean_dec(x_11); +lean_dec(x_6); +lean_dec(x_4); +x_21 = !lean_is_exclusive(x_16); +if (x_21 == 0) +{ +return x_16; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_16, 0); +x_23 = lean_ctor_get(x_16, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_16); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; +} +} +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +x_25 = lean_box(0); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_5); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_7); +return x_27; +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_many_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_10); +lean_dec(x_7); +x_11 = l_Lean_Syntax_getArgs(x_9); +lean_dec(x_9); +x_12 = lean_array_get_size(x_11); +lean_dec(x_11); +lean_inc(x_12); +x_13 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_PrettyPrinter_Formatter_many_formatter___spec__1___boxed), 7, 3); +lean_closure_set(x_13, 0, x_1); +lean_closure_set(x_13, 1, x_12); +lean_closure_set(x_13, 2, x_12); +x_14 = l_Lean_PrettyPrinter_Formatter_concatArgs(x_13, x_2, x_10, x_4, x_8); +return x_14; +} +} +lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Formatter_many_formatter___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) { +_start: +{ +lean_object* x_8; +x_8 = l_Nat_forMAux___main___at_Lean_PrettyPrinter_Formatter_many_formatter___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_2); +lean_dec(x_1); +return x_8; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Syntax_many___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_many_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_many1_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_10); +lean_dec(x_7); +x_11 = l_Lean_Syntax_getKind(x_9); +x_12 = l_Lean_nullKind; +x_13 = lean_name_eq(x_11, x_12); +lean_dec(x_11); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_14 = lean_unsigned_to_nat(0u); +x_15 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_14); +x_16 = lean_nat_sub(x_15, x_14); +lean_dec(x_15); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_sub(x_16, x_17); +lean_dec(x_16); +x_19 = l_Lean_Expr_getRevArg_x21___main(x_1, x_18); +lean_dec(x_1); +x_20 = l_Lean_PrettyPrinter_Formatter_visit___main(x_19, x_2, x_10, x_4, x_8); +return x_20; +} +else +{ +lean_object* x_21; +x_21 = l_Lean_PrettyPrinter_Formatter_many_formatter(x_1, x_2, x_10, x_4, x_8); +return x_21; +} +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Syntax_many1___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_many1_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_visit), 5, 1); +lean_closure_set(x_12, 0, x_11); +x_13 = l_Lean_PrettyPrinter_Formatter_concatArgs(x_12, x_2, x_3, x_4, x_5); +return x_13; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_optional_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Syntax_optional___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_optional_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_List_forM___main___at_Lean_PrettyPrinter_Formatter_sepBy_formatter___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) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_5); +lean_dec(x_3); +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); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_6); +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; +x_10 = lean_ctor_get(x_2, 0); +x_11 = lean_ctor_get(x_2, 1); +x_12 = lean_unsigned_to_nat(2u); +x_13 = lean_nat_mod(x_10, x_12); +x_14 = lean_unsigned_to_nat(0u); +x_15 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_14); +x_16 = lean_nat_sub(x_15, x_13); +lean_dec(x_13); +lean_dec(x_15); +x_17 = lean_unsigned_to_nat(1u); +x_18 = lean_nat_sub(x_16, x_17); +lean_dec(x_16); +x_19 = l_Lean_Expr_getRevArg_x21___main(x_1, x_18); +lean_inc(x_5); +lean_inc(x_3); +x_20 = l_Lean_PrettyPrinter_Formatter_visit___main(x_19, x_3, x_4, x_5, x_6); +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); +x_23 = lean_ctor_get(x_21, 1); +lean_inc(x_23); +lean_dec(x_21); +x_2 = x_11; +x_4 = x_23; +x_6 = x_22; +goto _start; +} +else +{ +uint8_t x_25; +lean_dec(x_5); +lean_dec(x_3); +x_25 = !lean_is_exclusive(x_20); +if (x_25 == 0) +{ +return x_20; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_20, 0); +x_27 = lean_ctor_get(x_20, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_20); +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_Lean_PrettyPrinter_Formatter_sepBy_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_10); +lean_dec(x_7); +x_11 = l_Lean_Syntax_getArgs(x_9); +lean_dec(x_9); +x_12 = lean_array_get_size(x_11); +lean_dec(x_11); +x_13 = l_List_range(x_12); +x_14 = l_List_reverse___rarg(x_13); +x_15 = lean_alloc_closure((void*)(l_List_forM___main___at_Lean_PrettyPrinter_Formatter_sepBy_formatter___spec__1___boxed), 6, 2); +lean_closure_set(x_15, 0, x_1); +lean_closure_set(x_15, 1, x_14); +x_16 = l_Lean_PrettyPrinter_Formatter_concatArgs(x_15, x_2, x_10, x_4, x_8); +return x_16; +} +} +lean_object* l_List_forM___main___at_Lean_PrettyPrinter_Formatter_sepBy_formatter___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) { +_start: +{ +lean_object* x_7; +x_7 = l_List_forM___main___at_Lean_PrettyPrinter_Formatter_sepBy_formatter___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_sepBy_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_sepBy1_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_sepBy_formatter(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_sepBy1_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_orelse_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +lean_inc(x_4); +lean_inc(x_3); +lean_inc(x_2); +x_12 = l_Lean_PrettyPrinter_Formatter_visit___main(x_11, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_12) == 0) +{ +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_12; +} +else +{ +lean_object* x_13; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +if (lean_obj_tag(x_13) == 22) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_13, 1); +lean_inc(x_14); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +lean_dec(x_14); +if (lean_obj_tag(x_15) == 2) +{ +uint8_t x_16; +x_16 = !lean_is_exclusive(x_12); +if (x_16 == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_17 = lean_ctor_get(x_12, 1); +x_18 = lean_ctor_get(x_12, 0); +lean_dec(x_18); +x_19 = lean_ctor_get(x_15, 0); +lean_inc(x_19); +lean_dec(x_15); +x_20 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1; +x_21 = lean_string_dec_eq(x_19, x_20); +lean_dec(x_19); +if (x_21 == 0) +{ +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_12; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +lean_free_object(x_12); +lean_dec(x_13); +x_22 = lean_nat_sub(x_7, x_9); +lean_dec(x_7); +x_23 = lean_nat_sub(x_22, x_9); +lean_dec(x_22); +x_24 = l_Lean_Expr_getRevArg_x21___main(x_1, x_23); +x_25 = l_Lean_PrettyPrinter_Formatter_visit___main(x_24, x_2, x_3, x_4, x_17); +return x_25; +} +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; +x_26 = lean_ctor_get(x_12, 1); +lean_inc(x_26); +lean_dec(x_12); +x_27 = lean_ctor_get(x_15, 0); +lean_inc(x_27); +lean_dec(x_15); +x_28 = l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1; +x_29 = lean_string_dec_eq(x_27, x_28); +lean_dec(x_27); +if (x_29 == 0) +{ +lean_object* x_30; +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_30 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_30, 0, x_13); +lean_ctor_set(x_30, 1, x_26); +return x_30; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +lean_dec(x_13); +x_31 = lean_nat_sub(x_7, x_9); +lean_dec(x_7); +x_32 = lean_nat_sub(x_31, x_9); +lean_dec(x_31); +x_33 = l_Lean_Expr_getRevArg_x21___main(x_1, x_32); +x_34 = l_Lean_PrettyPrinter_Formatter_visit___main(x_33, x_2, x_3, x_4, x_26); +return x_34; +} +} +} +else +{ +uint8_t x_35; +lean_dec(x_15); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_35 = !lean_is_exclusive(x_12); +if (x_35 == 0) +{ +lean_object* x_36; +x_36 = lean_ctor_get(x_12, 0); +lean_dec(x_36); +return x_12; +} +else +{ +lean_object* x_37; lean_object* x_38; +x_37 = lean_ctor_get(x_12, 1); +lean_inc(x_37); +lean_dec(x_12); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_13); +lean_ctor_set(x_38, 1, x_37); +return x_38; +} +} +} +else +{ +uint8_t x_39; +lean_dec(x_14); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_39 = !lean_is_exclusive(x_12); +if (x_39 == 0) +{ +lean_object* x_40; +x_40 = lean_ctor_get(x_12, 0); +lean_dec(x_40); +return x_12; +} +else +{ +lean_object* x_41; lean_object* x_42; +x_41 = lean_ctor_get(x_12, 1); +lean_inc(x_41); +lean_dec(x_12); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_13); +lean_ctor_set(x_42, 1, x_41); +return x_42; +} +} +} +else +{ +uint8_t x_43; +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_43 = !lean_is_exclusive(x_12); +if (x_43 == 0) +{ +lean_object* x_44; +x_44 = lean_ctor_get(x_12, 0); +lean_dec(x_44); +return x_12; +} +else +{ +lean_object* x_45; lean_object* x_46; +x_45 = lean_ctor_get(x_12, 1); +lean_inc(x_45); +lean_dec(x_12); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_13); +lean_ctor_set(x_46, 1, x_45); +return x_46; +} +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_orelse_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_orelse_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_hasSorry___main___closed__1; +x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4; +x_3 = l_Lean_mkConst(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_withPosition_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = l_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1; +x_13 = l_Lean_mkApp(x_11, x_12); +x_14 = l_Lean_PrettyPrinter_Formatter_visit___main(x_13, x_2, x_3, x_4, x_5); +return x_14; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_withPosition_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_withPosition_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("withPosition"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_withPosition_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_setExpected_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_sub(x_7, x_8); +lean_dec(x_7); +x_10 = lean_nat_sub(x_9, x_8); +lean_dec(x_9); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = l_Lean_PrettyPrinter_Formatter_visit___main(x_11, x_2, x_3, x_4, x_5); +return x_12; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_setExpected_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_setExpected_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("setExpected"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_setExpected_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_2); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_2, 1); +lean_dec(x_6); +x_7 = l_String_splitAux___main___closed__1; +lean_ctor_set(x_2, 1, x_7); +x_8 = l_Lean_Format_flatten___main___closed__1; +x_9 = l_Lean_PrettyPrinter_Formatter_push(x_8, x_1, x_2, x_3, 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; +x_10 = lean_ctor_get(x_2, 0); +x_11 = lean_ctor_get(x_2, 2); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_2); +x_12 = l_String_splitAux___main___closed__1; +x_13 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_13, 0, x_10); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set(x_13, 2, x_11); +x_14 = l_Lean_Format_flatten___main___closed__1; +x_15 = l_Lean_PrettyPrinter_Formatter_push(x_14, x_1, x_13, x_3, x_4); +return x_15; +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkWsBefore"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___boxed), 1, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Formatter_checkPrec_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_checkPrec_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkPrec"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkPrec_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Formatter_checkStackTop_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkStackTop"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Formatter_checkNoWsBefore_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkNoWsBefore"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Formatter_checkTailWs_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkTailWs"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Formatter_checkColGe_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_checkColGe_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkColGe"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Formatter_checkNoImmediateColon_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkNoImmediateColon"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_pushNone_formatter___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Formatter_pushNone_formatter___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Formatter_pushNone_formatter(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("pushNone"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_pushNone_formatter___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_commentBody_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_box(0); +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_commentBody_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_commentBody_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("commentBody"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Command_docComment___elambda__1___closed__2; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_commentBody_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_inc(x_1); +x_7 = l_Lean_PrettyPrinter_Formatter_push(x_1, x_3, x_4, x_5, x_6); +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_10, x_5, x_9); +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); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = lean_box(0); +lean_inc(x_3); +x_16 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_15, x_2, x_3, x_14, x_5, x_13); +if (lean_obj_tag(x_16) == 0) +{ +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_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, 1); +lean_inc(x_19); +lean_dec(x_17); +x_20 = l_Lean_PrettyPrinter_Formatter_push(x_1, x_3, x_19, x_5, x_18); +lean_dec(x_3); +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 = lean_ctor_get(x_21, 1); +lean_inc(x_23); +lean_dec(x_21); +x_24 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___rarg(x_23, x_5, x_22); +return x_24; +} +else +{ +uint8_t x_25; +lean_dec(x_3); +lean_dec(x_1); +x_25 = !lean_is_exclusive(x_16); +if (x_25 == 0) +{ +return x_16; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_16, 0); +x_27 = lean_ctor_get(x_16, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_16); +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_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = l_Lean_formatDataValue___closed__2; +x_7 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___lambda__1___boxed), 6, 2); +lean_closure_set(x_7, 0, x_6); +lean_closure_set(x_7, 1, x_1); +x_8 = l_Lean_quotedSymbolKind; +x_9 = l_Lean_PrettyPrinter_Formatter_checkKind(x_8, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = l_Lean_PrettyPrinter_Formatter_concatArgs(x_7, x_2, x_12, x_4, x_11); +return x_13; +} +else +{ +uint8_t x_14; +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_2); +x_14 = !lean_is_exclusive(x_9); +if (x_14 == 0) +{ +return x_9; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_9, 0); +x_16 = lean_ctor_get(x_9, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_9); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_2); +return x_7; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_quotedSymbolKind___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__2; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_box(0); +x_7 = l_Lean_PrettyPrinter_Formatter_visitAtom(x_6, x_1, x_2, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unquotedSymbol"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_format(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_6 = l_Lean_Syntax_Traverser_fromSyntax(x_3); +x_7 = l_String_splitAux___main___closed__1; +x_8 = l_Array_empty___closed__1; +x_9 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_7); +lean_ctor_set(x_9, 2, x_8); +x_10 = !lean_is_exclusive(x_4); +if (x_10 == 0) +{ +lean_object* x_11; uint8_t x_12; +x_11 = lean_ctor_get(x_4, 0); +x_12 = !lean_is_exclusive(x_11); +if (x_12 == 0) +{ +uint8_t x_13; uint8_t x_14; uint8_t x_15; +x_13 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 6); +x_14 = 1; +x_15 = l_Lean_Meta_TransparencyMode_lt(x_13, x_14); +if (x_15 == 0) +{ +lean_object* x_16; +x_16 = l_Lean_PrettyPrinter_Formatter_visit___main(x_2, x_1, x_9, x_4, x_5); +if (lean_obj_tag(x_16) == 0) +{ +uint8_t x_17; +x_17 = !lean_is_exclusive(x_16); +if (x_17 == 0) +{ +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_18 = lean_ctor_get(x_16, 0); +x_19 = lean_ctor_get(x_18, 1); +lean_inc(x_19); +lean_dec(x_18); +x_20 = lean_ctor_get(x_19, 2); +lean_inc(x_20); +lean_dec(x_19); +x_21 = l_Lean_Format_Inhabited; +x_22 = lean_unsigned_to_nat(0u); +x_23 = lean_array_get(x_21, x_20, x_22); +lean_dec(x_20); +lean_ctor_set(x_16, 0, x_23); +return x_16; +} +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; +x_24 = lean_ctor_get(x_16, 0); +x_25 = lean_ctor_get(x_16, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_16); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); +lean_dec(x_24); +x_27 = lean_ctor_get(x_26, 2); +lean_inc(x_27); +lean_dec(x_26); +x_28 = l_Lean_Format_Inhabited; +x_29 = lean_unsigned_to_nat(0u); +x_30 = lean_array_get(x_28, x_27, x_29); +lean_dec(x_27); +x_31 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_25); +return x_31; +} +} +else +{ +uint8_t x_32; +x_32 = !lean_is_exclusive(x_16); +if (x_32 == 0) +{ +return x_16; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_16, 0); +x_34 = lean_ctor_get(x_16, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_16); +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_33); +lean_ctor_set(x_35, 1, x_34); +return x_35; +} +} +} +else +{ +lean_object* x_36; +lean_ctor_set_uint8(x_11, sizeof(void*)*1 + 6, x_14); +x_36 = l_Lean_PrettyPrinter_Formatter_visit___main(x_2, x_1, x_9, x_4, x_5); +if (lean_obj_tag(x_36) == 0) +{ +uint8_t x_37; +x_37 = !lean_is_exclusive(x_36); +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; +x_38 = lean_ctor_get(x_36, 0); +x_39 = lean_ctor_get(x_38, 1); +lean_inc(x_39); +lean_dec(x_38); +x_40 = lean_ctor_get(x_39, 2); +lean_inc(x_40); +lean_dec(x_39); +x_41 = l_Lean_Format_Inhabited; +x_42 = lean_unsigned_to_nat(0u); +x_43 = lean_array_get(x_41, x_40, x_42); +lean_dec(x_40); +lean_ctor_set(x_36, 0, x_43); +return x_36; +} +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; +x_44 = lean_ctor_get(x_36, 0); +x_45 = lean_ctor_get(x_36, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_36); +x_46 = lean_ctor_get(x_44, 1); +lean_inc(x_46); +lean_dec(x_44); +x_47 = lean_ctor_get(x_46, 2); +lean_inc(x_47); +lean_dec(x_46); +x_48 = l_Lean_Format_Inhabited; +x_49 = lean_unsigned_to_nat(0u); +x_50 = lean_array_get(x_48, x_47, x_49); +lean_dec(x_47); +x_51 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_45); +return x_51; +} +} +else +{ +uint8_t x_52; +x_52 = !lean_is_exclusive(x_36); +if (x_52 == 0) +{ +return x_36; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_36, 0); +x_54 = lean_ctor_get(x_36, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_36); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; +} +} +} +} +else +{ +lean_object* x_56; uint8_t x_57; uint8_t x_58; uint8_t x_59; uint8_t x_60; uint8_t x_61; uint8_t x_62; uint8_t x_63; uint8_t x_64; uint8_t x_65; +x_56 = lean_ctor_get(x_11, 0); +x_57 = lean_ctor_get_uint8(x_11, sizeof(void*)*1); +x_58 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 1); +x_59 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 2); +x_60 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 3); +x_61 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 4); +x_62 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 5); +x_63 = lean_ctor_get_uint8(x_11, sizeof(void*)*1 + 6); +lean_inc(x_56); +lean_dec(x_11); +x_64 = 1; +x_65 = l_Lean_Meta_TransparencyMode_lt(x_63, x_64); +if (x_65 == 0) +{ +lean_object* x_66; lean_object* x_67; +x_66 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_66, 0, x_56); +lean_ctor_set_uint8(x_66, sizeof(void*)*1, x_57); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 1, x_58); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 2, x_59); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 3, x_60); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 4, x_61); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 5, x_62); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 6, x_63); +lean_ctor_set(x_4, 0, x_66); +x_67 = l_Lean_PrettyPrinter_Formatter_visit___main(x_2, x_1, x_9, x_4, x_5); +if (lean_obj_tag(x_67) == 0) +{ +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; +x_68 = lean_ctor_get(x_67, 0); +lean_inc(x_68); +x_69 = lean_ctor_get(x_67, 1); +lean_inc(x_69); +if (lean_is_exclusive(x_67)) { + lean_ctor_release(x_67, 0); + lean_ctor_release(x_67, 1); + x_70 = x_67; +} else { + lean_dec_ref(x_67); + x_70 = lean_box(0); +} +x_71 = lean_ctor_get(x_68, 1); +lean_inc(x_71); +lean_dec(x_68); +x_72 = lean_ctor_get(x_71, 2); +lean_inc(x_72); +lean_dec(x_71); +x_73 = l_Lean_Format_Inhabited; +x_74 = lean_unsigned_to_nat(0u); +x_75 = lean_array_get(x_73, x_72, x_74); +lean_dec(x_72); +if (lean_is_scalar(x_70)) { + x_76 = lean_alloc_ctor(0, 2, 0); +} else { + x_76 = x_70; +} +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_69); +return x_76; +} +else +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_77 = lean_ctor_get(x_67, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_67, 1); +lean_inc(x_78); +if (lean_is_exclusive(x_67)) { + lean_ctor_release(x_67, 0); + lean_ctor_release(x_67, 1); + x_79 = x_67; +} else { + lean_dec_ref(x_67); + 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 +{ +lean_object* x_81; lean_object* x_82; +x_81 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_81, 0, x_56); +lean_ctor_set_uint8(x_81, sizeof(void*)*1, x_57); +lean_ctor_set_uint8(x_81, sizeof(void*)*1 + 1, x_58); +lean_ctor_set_uint8(x_81, sizeof(void*)*1 + 2, x_59); +lean_ctor_set_uint8(x_81, sizeof(void*)*1 + 3, x_60); +lean_ctor_set_uint8(x_81, sizeof(void*)*1 + 4, x_61); +lean_ctor_set_uint8(x_81, sizeof(void*)*1 + 5, x_62); +lean_ctor_set_uint8(x_81, sizeof(void*)*1 + 6, x_64); +lean_ctor_set(x_4, 0, x_81); +x_82 = l_Lean_PrettyPrinter_Formatter_visit___main(x_2, x_1, x_9, x_4, x_5); +if (lean_obj_tag(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; lean_object* x_91; +x_83 = lean_ctor_get(x_82, 0); +lean_inc(x_83); +x_84 = lean_ctor_get(x_82, 1); +lean_inc(x_84); +if (lean_is_exclusive(x_82)) { + lean_ctor_release(x_82, 0); + lean_ctor_release(x_82, 1); + x_85 = x_82; +} else { + lean_dec_ref(x_82); + x_85 = lean_box(0); +} +x_86 = lean_ctor_get(x_83, 1); +lean_inc(x_86); +lean_dec(x_83); +x_87 = lean_ctor_get(x_86, 2); +lean_inc(x_87); +lean_dec(x_86); +x_88 = l_Lean_Format_Inhabited; +x_89 = lean_unsigned_to_nat(0u); +x_90 = lean_array_get(x_88, x_87, x_89); +lean_dec(x_87); +if (lean_is_scalar(x_85)) { + x_91 = lean_alloc_ctor(0, 2, 0); +} else { + x_91 = x_85; +} +lean_ctor_set(x_91, 0, x_90); +lean_ctor_set(x_91, 1, x_84); +return x_91; +} +else +{ +lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_92 = lean_ctor_get(x_82, 0); +lean_inc(x_92); +x_93 = lean_ctor_get(x_82, 1); +lean_inc(x_93); +if (lean_is_exclusive(x_82)) { + lean_ctor_release(x_82, 0); + lean_ctor_release(x_82, 1); + x_94 = x_82; +} else { + lean_dec_ref(x_82); + x_94 = lean_box(0); +} +if (lean_is_scalar(x_94)) { + x_95 = lean_alloc_ctor(1, 2, 0); +} else { + x_95 = x_94; +} +lean_ctor_set(x_95, 0, x_92); +lean_ctor_set(x_95, 1, x_93); +return x_95; +} +} +} +} +else +{ +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_102; uint8_t x_103; uint8_t x_104; uint8_t x_105; uint8_t x_106; uint8_t x_107; uint8_t x_108; lean_object* x_109; uint8_t x_110; uint8_t x_111; +x_96 = lean_ctor_get(x_4, 0); +x_97 = lean_ctor_get(x_4, 1); +x_98 = lean_ctor_get(x_4, 2); +x_99 = lean_ctor_get(x_4, 3); +x_100 = lean_ctor_get(x_4, 4); +lean_inc(x_100); +lean_inc(x_99); +lean_inc(x_98); +lean_inc(x_97); +lean_inc(x_96); +lean_dec(x_4); +x_101 = lean_ctor_get(x_96, 0); +lean_inc(x_101); +x_102 = lean_ctor_get_uint8(x_96, sizeof(void*)*1); +x_103 = lean_ctor_get_uint8(x_96, sizeof(void*)*1 + 1); +x_104 = lean_ctor_get_uint8(x_96, sizeof(void*)*1 + 2); +x_105 = lean_ctor_get_uint8(x_96, sizeof(void*)*1 + 3); +x_106 = lean_ctor_get_uint8(x_96, sizeof(void*)*1 + 4); +x_107 = lean_ctor_get_uint8(x_96, sizeof(void*)*1 + 5); +x_108 = lean_ctor_get_uint8(x_96, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_96)) { + lean_ctor_release(x_96, 0); + x_109 = x_96; +} else { + lean_dec_ref(x_96); + x_109 = lean_box(0); +} +x_110 = 1; +x_111 = l_Lean_Meta_TransparencyMode_lt(x_108, x_110); +if (x_111 == 0) +{ +lean_object* x_112; lean_object* x_113; lean_object* x_114; +if (lean_is_scalar(x_109)) { + x_112 = lean_alloc_ctor(0, 1, 7); +} else { + x_112 = x_109; +} +lean_ctor_set(x_112, 0, x_101); +lean_ctor_set_uint8(x_112, sizeof(void*)*1, x_102); +lean_ctor_set_uint8(x_112, sizeof(void*)*1 + 1, x_103); +lean_ctor_set_uint8(x_112, sizeof(void*)*1 + 2, x_104); +lean_ctor_set_uint8(x_112, sizeof(void*)*1 + 3, x_105); +lean_ctor_set_uint8(x_112, sizeof(void*)*1 + 4, x_106); +lean_ctor_set_uint8(x_112, sizeof(void*)*1 + 5, x_107); +lean_ctor_set_uint8(x_112, sizeof(void*)*1 + 6, x_108); +x_113 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_97); +lean_ctor_set(x_113, 2, x_98); +lean_ctor_set(x_113, 3, x_99); +lean_ctor_set(x_113, 4, x_100); +x_114 = l_Lean_PrettyPrinter_Formatter_visit___main(x_2, x_1, x_9, x_113, x_5); +if (lean_obj_tag(x_114) == 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_121; lean_object* x_122; lean_object* x_123; +x_115 = lean_ctor_get(x_114, 0); +lean_inc(x_115); +x_116 = lean_ctor_get(x_114, 1); +lean_inc(x_116); +if (lean_is_exclusive(x_114)) { + lean_ctor_release(x_114, 0); + lean_ctor_release(x_114, 1); + x_117 = x_114; +} else { + lean_dec_ref(x_114); + x_117 = lean_box(0); +} +x_118 = lean_ctor_get(x_115, 1); +lean_inc(x_118); +lean_dec(x_115); +x_119 = lean_ctor_get(x_118, 2); +lean_inc(x_119); +lean_dec(x_118); +x_120 = l_Lean_Format_Inhabited; +x_121 = lean_unsigned_to_nat(0u); +x_122 = lean_array_get(x_120, x_119, x_121); +lean_dec(x_119); +if (lean_is_scalar(x_117)) { + x_123 = lean_alloc_ctor(0, 2, 0); +} else { + x_123 = x_117; +} +lean_ctor_set(x_123, 0, x_122); +lean_ctor_set(x_123, 1, x_116); +return x_123; +} +else +{ +lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; +x_124 = lean_ctor_get(x_114, 0); +lean_inc(x_124); +x_125 = lean_ctor_get(x_114, 1); +lean_inc(x_125); +if (lean_is_exclusive(x_114)) { + lean_ctor_release(x_114, 0); + lean_ctor_release(x_114, 1); + x_126 = x_114; +} else { + lean_dec_ref(x_114); + x_126 = lean_box(0); +} +if (lean_is_scalar(x_126)) { + x_127 = lean_alloc_ctor(1, 2, 0); +} else { + x_127 = x_126; +} +lean_ctor_set(x_127, 0, x_124); +lean_ctor_set(x_127, 1, x_125); +return x_127; +} +} +else +{ +lean_object* x_128; lean_object* x_129; lean_object* x_130; +if (lean_is_scalar(x_109)) { + x_128 = lean_alloc_ctor(0, 1, 7); +} else { + x_128 = x_109; +} +lean_ctor_set(x_128, 0, x_101); +lean_ctor_set_uint8(x_128, sizeof(void*)*1, x_102); +lean_ctor_set_uint8(x_128, sizeof(void*)*1 + 1, x_103); +lean_ctor_set_uint8(x_128, sizeof(void*)*1 + 2, x_104); +lean_ctor_set_uint8(x_128, sizeof(void*)*1 + 3, x_105); +lean_ctor_set_uint8(x_128, sizeof(void*)*1 + 4, x_106); +lean_ctor_set_uint8(x_128, sizeof(void*)*1 + 5, x_107); +lean_ctor_set_uint8(x_128, sizeof(void*)*1 + 6, x_110); +x_129 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_129, 0, x_128); +lean_ctor_set(x_129, 1, x_97); +lean_ctor_set(x_129, 2, x_98); +lean_ctor_set(x_129, 3, x_99); +lean_ctor_set(x_129, 4, x_100); +x_130 = l_Lean_PrettyPrinter_Formatter_visit___main(x_2, x_1, x_9, x_129, x_5); +if (lean_obj_tag(x_130) == 0) +{ +lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; +x_131 = lean_ctor_get(x_130, 0); +lean_inc(x_131); +x_132 = lean_ctor_get(x_130, 1); +lean_inc(x_132); +if (lean_is_exclusive(x_130)) { + lean_ctor_release(x_130, 0); + lean_ctor_release(x_130, 1); + x_133 = x_130; +} else { + lean_dec_ref(x_130); + x_133 = lean_box(0); +} +x_134 = lean_ctor_get(x_131, 1); +lean_inc(x_134); +lean_dec(x_131); +x_135 = lean_ctor_get(x_134, 2); +lean_inc(x_135); +lean_dec(x_134); +x_136 = l_Lean_Format_Inhabited; +x_137 = lean_unsigned_to_nat(0u); +x_138 = lean_array_get(x_136, x_135, x_137); +lean_dec(x_135); +if (lean_is_scalar(x_133)) { + x_139 = lean_alloc_ctor(0, 2, 0); +} else { + x_139 = x_133; +} +lean_ctor_set(x_139, 0, x_138); +lean_ctor_set(x_139, 1, x_132); +return x_139; +} +else +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_140 = lean_ctor_get(x_130, 0); +lean_inc(x_140); +x_141 = lean_ctor_get(x_130, 1); +lean_inc(x_141); +if (lean_is_exclusive(x_130)) { + lean_ctor_release(x_130, 0); + lean_ctor_release(x_130, 1); + x_142 = x_130; +} else { + lean_dec_ref(x_130); + x_142 = lean_box(0); +} +if (lean_is_scalar(x_142)) { + x_143 = lean_alloc_ctor(1, 2, 0); +} else { + x_143 = x_142; +} +lean_ctor_set(x_143, 0, x_140); +lean_ctor_set(x_143, 1, x_141); +return x_143; +} +} +} +} +} +lean_object* _init_l_Lean_PrettyPrinter_formatTerm___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_formatTerm___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_formatTerm___closed__1; +x_2 = l___private_Lean_Elab_Quotation_10__toPreterm___main___closed__5; +x_3 = l_Lean_mkApp(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_formatTerm(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; +x_5 = l_Lean_PrettyPrinter_formatTerm___closed__2; +x_6 = l_Lean_PrettyPrinter_format(x_1, x_5, x_2, x_3, x_4); +return x_6; +} +} +lean_object* _init_l_Lean_PrettyPrinter_formatCommand___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_regCommandParserAttribute___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_formatCommand___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_formatCommand___closed__1; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_formatCommand___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_formatCommand___closed__2; +x_2 = l___private_Lean_Elab_Quotation_10__toPreterm___main___closed__5; +x_3 = l_Lean_mkApp(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_formatCommand(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; +x_5 = l_Lean_PrettyPrinter_formatCommand___closed__3; +x_6 = l_Lean_PrettyPrinter_format(x_1, x_5, x_2, x_3, x_4); +return x_6; +} +} +lean_object* l___private_Lean_PrettyPrinter_Formatter_1__regTraceClasses(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_PrettyPrinter_Formatter_visit___main___closed__4; +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_object*); lean_object* initialize_Lean_Parser(lean_object*); +lean_object* initialize_Lean_Meta(lean_object*); lean_object* initialize_Lean_Elab_Quotation(lean_object*); static bool _G_initialized = false; lean_object* initialize_Lean_PrettyPrinter_Formatter(lean_object* w) { @@ -405,6 +10388,9 @@ lean_dec_ref(res); res = initialize_Lean_Parser(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Meta(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Lean_Elab_Quotation(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -463,6 +10449,432 @@ if (lean_io_result_is_error(res)) return res; l_Lean_PrettyPrinter_formatterAttribute = lean_io_result_get_value(res); lean_mark_persistent(l_Lean_PrettyPrinter_formatterAttribute); lean_dec_ref(res); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__1); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__2); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__3); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__4 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__4); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__5 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__5); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__6 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__6(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__6); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__7 = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__7(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser___closed__7); +l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser = _init_l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_FormatterM_monadTraverser); +l_Lean_PrettyPrinter_Formatter_concat___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_concat___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_concat___closed__1); +l_Lean_PrettyPrinter_Formatter_concat___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_concat___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_concat___closed__2); +l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__1); +l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__2); +l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___lambda__1___closed__3); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__1); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__2); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__3); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__4 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__4); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__5 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__5); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__6 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__6(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__6); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__7 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__7(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__7); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__8 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__8(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__8); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__9 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__9(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__9); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__10 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__10(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__10); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__11 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__11(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__11); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__12 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__12(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__12); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__13 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__13(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__13); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__14 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__14(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__14); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__15 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__15(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__15); +l_Lean_PrettyPrinter_Formatter_visit___main___closed__16 = _init_l_Lean_PrettyPrinter_Formatter_visit___main___closed__16(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visit___main___closed__16); +l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1); +l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2); +l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3); +l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__4 = _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__4); +l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__5 = _init_l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__5); +l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_categoryParser_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1); +l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2); +l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__3); +l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4 = _init_l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__4); +l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_termParser_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_withAntiquot_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_try_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_andthen_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__1); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__2); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__3); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__4 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__4); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__5 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__5); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__6 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__6(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__6); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__7 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__7(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__7); +l_Lean_PrettyPrinter_Formatter_checkKind___closed__8 = _init_l_Lean_PrettyPrinter_Formatter_checkKind___closed__8(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_checkKind___closed__8); +l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_node_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_trailingNode_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbol_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_symbolNoWs_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__1); +l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__2); +l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__3); +l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__4 = _init_l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___rarg___closed__4); +l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_rawIdent_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_PrettyPrinter_Formatter_visitAtom___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_visitAtom___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visitAtom___closed__1); +l_Lean_PrettyPrinter_Formatter_visitAtom___closed__2 = _init_l_Lean_PrettyPrinter_Formatter_visitAtom___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visitAtom___closed__2); +l_Lean_PrettyPrinter_Formatter_visitAtom___closed__3 = _init_l_Lean_PrettyPrinter_Formatter_visitAtom___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_visitAtom___closed__3); +l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_fieldIdx_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_many_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_many1_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_optional_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_sepBy1_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter___closed__1); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_orelse_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1 = _init_l_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_withPosition_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_setExpected_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkPrec_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkStackTop_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkTailWs_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkColGe_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_pushNone_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_commentBody_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter___closed__2); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_quotedSymbol_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Formatter_unquotedSymbol_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_PrettyPrinter_formatTerm___closed__1 = _init_l_Lean_PrettyPrinter_formatTerm___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_formatTerm___closed__1); +l_Lean_PrettyPrinter_formatTerm___closed__2 = _init_l_Lean_PrettyPrinter_formatTerm___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_formatTerm___closed__2); +l_Lean_PrettyPrinter_formatCommand___closed__1 = _init_l_Lean_PrettyPrinter_formatCommand___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_formatCommand___closed__1); +l_Lean_PrettyPrinter_formatCommand___closed__2 = _init_l_Lean_PrettyPrinter_formatCommand___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_formatCommand___closed__2); +l_Lean_PrettyPrinter_formatCommand___closed__3 = _init_l_Lean_PrettyPrinter_formatCommand___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_formatCommand___closed__3); +res = l___private_Lean_PrettyPrinter_Formatter_1__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/Lean/PrettyPrinter/Parenthesizer.c b/stage0/stdlib/Lean/PrettyPrinter/Parenthesizer.c index 25ffecd38e..43d33ecd93 100644 --- a/stage0/stdlib/Lean/PrettyPrinter/Parenthesizer.c +++ b/stage0/stdlib/Lean/PrettyPrinter/Parenthesizer.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.PrettyPrinter.Parenthesizer -// Imports: Init Lean.Parser Lean.Elab.Quotation +// Imports: Init Lean.Parser Lean.Meta Lean.Elab.Quotation #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -18,6 +18,7 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer___boxed(lean_o lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__3; lean_object* l_List_reverse___rarg(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__14; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitToken___rarg(lean_object*, lean_object*, lean_object*); @@ -27,20 +28,21 @@ extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; lean_object* l_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Option_HasRepr___rarg___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer___closed__3; extern lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__1; lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__1; @@ -48,7 +50,6 @@ extern lean_object* l_Lean_Parser_Syntax_many1___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Term_leadPrec___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute___closed__1; -lean_object* l_unreachable_x21___rarg(lean_object*); extern lean_object* l_Lean_nullKind; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__2; @@ -58,7 +59,6 @@ extern lean_object* l_Lean_MessageData_ofList___closed__3; lean_object* lean_array_uget(lean_object*, size_t); lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___lambda__2(lean_object*); -extern lean_object* l_Option_HasRepr___rarg___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unicodeSymbol_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer___closed__2; @@ -67,25 +67,27 @@ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_sepBy1_parenthesize lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_fieldIdx_parenthesizer(lean_object*, lean_object*); extern lean_object* l_Lean_Expr_hasSorry___main___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__5; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer___boxed(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__7; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__8; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_name_eq(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_Traverser_up(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_sepBy_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__10; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__3; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3; lean_object* l_Lean_PrettyPrinter_parenthesizeCommand___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__7; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_unicodeSymbol_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_unicodeSymbol_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer(lean_object*, lean_object*); @@ -93,10 +95,8 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer(lean_o lean_object* l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_fieldIdx_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__8; extern lean_object* l_Array_empty___closed__1; lean_object* lean_environment_find(lean_object*, lean_object*); -lean_object* l_Lean_fmt___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__4(lean_object*); extern lean_object* l_Lean_Parser_unquotedSymbolFn___closed__1; lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__4___boxed(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___closed__3; @@ -104,15 +104,12 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer(lean_ lean_object* l___private_Init_Util_1__mkPanicMessage(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__2(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__5; extern lean_object* l_Lean_fieldIdxKind___closed__1; -lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Name_toExprAux___main___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__10; lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__4; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__4___rarg(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_regTacticParserAttribute___closed__1; @@ -120,17 +117,18 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___rarg_ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__7; lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__2; lean_object* l_ReaderT_Monad___rarg(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__9; lean_object* l_Lean_SMap_empty___at_Lean_PrettyPrinter_parenthesizerAttribute___spec__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__15; lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitToken(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__18; lean_object* l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__7; lean_object* lean_array_push(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer___closed__2; @@ -147,51 +145,45 @@ lean_object* l_Lean_Syntax_setTailInfo(lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkPrec_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesizeTerm(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Name_toExprAux___main___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19; lean_object* l_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___boxed(lean_object*, lean_object*); size_t l_USize_shiftRight(size_t, size_t); lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___closed__5; lean_object* l_Lean_Expr_appArg_x21(lean_object*); -extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer(lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__4; lean_object* l_Lean_Syntax_setHeadInfo(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___lambda__2(lean_object*); lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__5; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14; lean_object* l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__2; +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_LocalContext_Inhabited___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkPrec_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__11; lean_object* l_Lean_PrettyPrinter_Parenthesizer_unicodeSymbol_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13; lean_object* l_ReaderT_pure___at_Lean_PrettyPrinter_Parenthesizer_monadQuotation___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__11; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__3; lean_object* lean_nat_add(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___boxed(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___closed__1; @@ -202,7 +194,9 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___box lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_fieldIdx_parenthesizer___closed__2; lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__17; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__1; +lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__3; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___lambda__1___closed__1; @@ -210,21 +204,23 @@ extern lean_object* l___private_Lean_Elab_Quotation_2__quoteSyntax___main___clos extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer___closed__1; lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); lean_object* l_Std_mkHashMap___at_Lean_PrettyPrinter_parenthesizerAttribute___spec__2(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__5; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; lean_object* l_Lean_Syntax_Traverser_setCur(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___lambda__1___closed__3; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__8; lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___closed__3; lean_object* lean_array_fget(lean_object*, lean_object*); @@ -233,41 +229,35 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___lam lean_object* l_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___closed__7; lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_parenthesizeCommand___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkPrec_parenthesizer___closed__1; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__2; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___lambda__1___closed__2; extern lean_object* l_Lean_Option_format___rarg___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__17; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4; -extern lean_object* l_Lean_Nat_HasQuote___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___closed__1; extern lean_object* l_Lean_EnvExtension_Inhabited___rarg___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalString___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__1; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_choiceKind___closed__2; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_fieldIdx_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitArgs(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__2; lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_evalNat___main(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_monadQuotation; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkPrec_parenthesizer___closed__3; extern lean_object* l_Lean_Parser_Tactic_seq___elambda__1___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6; lean_object* l_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_sepBy_parenthesizer___closed__1; @@ -275,46 +265,49 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer(l extern lean_object* l_Lean_Parser_regTermParserAttribute___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_fieldIdx_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_String_HasQuote___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Unhygienic_run___rarg(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unicodeSymbol_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__12; lean_object* l_Lean_PrettyPrinter_Parenthesizer_sepBy1_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___boxed(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___closed__2; extern lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; lean_object* l_Std_mkHashMapImp___rarg(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__10; extern lean_object* l_Lean_Elab_Term_mkConst___closed__4; extern lean_object* l___private_Lean_Elab_Quotation_10__toPreterm___main___closed__5; lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Unhygienic_MonadQuotation___closed__4; lean_object* l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__6___boxed(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalString(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__7___boxed(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_sepBy_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___boxed(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer(lean_object*); size_t l_Lean_Name_hash(lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goDown___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_repr(lean_object*); extern lean_object* l_Char_HasRepr___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2; extern lean_object* l_Lean_Parser_regCommandParserAttribute___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_sepBy1_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___lambda__1___closed__1; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesize(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___boxed(lean_object*); lean_object* l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_Lean_fmt___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__4(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); @@ -322,28 +315,30 @@ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesize lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(lean_object*); extern lean_object* l_Lean_Parser_maxPrec; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__13; lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___lambda__1(lean_object*); extern lean_object* l___private_Lean_Elab_Term_5__expandCDot___main___closed__4; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer(lean_object*); lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer___closed__3; lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*); extern size_t l_Std_PersistentHashMap_insertAux___main___rarg___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___closed__3; lean_object* l_ReaderT_pure___at_Lean_PrettyPrinter_Parenthesizer_monadQuotation___spec__1(lean_object*); lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer(lean_object*); +lean_object* l_addParenHeuristic(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__5; extern lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__2; lean_object* lean_expr_dbg_to_string(lean_object*); lean_object* l_Lean_attrParamSyntaxToIdentifier(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__11; lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___boxed(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer___closed__2; size_t lean_usize_modn(size_t, lean_object*); @@ -354,34 +349,31 @@ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_par lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___lambda__1___closed__3; lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__18; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer___closed__2; extern lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__5; lean_object* l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1(lean_object*); -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___boxed(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__12; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___closed__2; lean_object* l_ReaderT_map___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__3(lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__4(lean_object*, size_t, lean_object*); lean_object* l_StateT_get___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___closed__3; -lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__9; -uint8_t l_Lean_Elab_Term_Quotation_isAntiquot(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__1; -uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1(lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___lambda__1(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_fieldIdx_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___lambda__1___closed__2; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__4; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute___closed__5; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer(lean_object*, lean_object*); @@ -392,6 +384,7 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer___rarg lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___closed__6; lean_object* l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__4; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__1; @@ -401,33 +394,35 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute(lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer(lean_object*, lean_object*); extern lean_object* l_Lean_nullKind___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__8; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__2; lean_object* l_Std_HashMapImp_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__6(lean_object*, lean_object*); lean_object* l_Lean_Syntax_Traverser_fromSyntax(lean_object*); -lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6; lean_object* l_Lean_Syntax_getHeadInfo___main(lean_object*); lean_object* l_StateT_get___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__2; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__6; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__9; +extern lean_object* l_Option_HasRepr___rarg___closed__3; extern lean_object* l_Lean_quotedSymbolKind___closed__1; -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__4; lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___boxed(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkPrec_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8; lean_object* l_Std_PersistentArray_push___rarg(lean_object*, lean_object*); -lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__2; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1; lean_object* l_ReaderT_pure___at_Lean_PrettyPrinter_Parenthesizer_monadQuotation___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__8; extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -435,6 +430,7 @@ lean_object* l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(lean_ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_Traverser_down(lean_object*, lean_object*); +lean_object* l___private_Lean_Meta_ReduceEval_1__evalName___main(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); @@ -444,17 +440,17 @@ lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkWsBefore_parenthesizer___closed__2; extern lean_object* l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer___closed__2; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_le(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unicodeSymbol_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer(lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_sepBy1_parenthesizer(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___closed__3; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__8; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__6; -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___lambda__1___boxed(lean_object*); lean_object* l_Lean_Syntax_getArgs(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkPrec_parenthesizer___closed__2; @@ -462,61 +458,63 @@ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_pa lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__4; lean_object* l_Lean_Syntax_getKind(lean_object*); extern lean_object* l___private_Lean_Parser_Module_2__mkEOI___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__9; lean_object* l_Lean_Syntax_Traverser_right(lean_object*); extern lean_object* l_Lean_Parser_Term_paren___elambda__1___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__4; +lean_object* l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitToken___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_addPrecCheck(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_StateT_Monad___rarg(lean_object*); lean_object* lean_panic_fn(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer___closed__1; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__15; lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3; +lean_object* l_Lean_Name_toExprAux___main(lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__4; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1; lean_object* l_Lean_SMap_empty___at_Lean_PrettyPrinter_parenthesizerAttribute___spec__1___closed__1; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__11; lean_object* l_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__1; lean_object* l_Lean_PrettyPrinter_parenthesizeCommand___closed__1; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__9; -extern lean_object* l___private_Lean_Syntax_9__quoteOption___rarg___closed__5; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__5; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__14; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer(lean_object*, lean_object*); +extern lean_object* l_Lean_mkAppStx___closed__9; lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goUp___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__4(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__3; -lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_constName_x3f(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer(lean_object*); +uint8_t l_Lean_Meta_TransparencyMode_lt(uint8_t, uint8_t); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer___closed__3; extern lean_object* l_PUnit_Inhabited; lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__3; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer(lean_object*, lean_object*); extern lean_object* l_Lean_Option_format___rarg___closed__3; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16; lean_object* l_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4; +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___boxed(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer(lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer___closed__3; lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1; @@ -524,17 +522,15 @@ lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_optional_parenthesi lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__1(lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__5; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkTailWs_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__6; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer(lean_object*); lean_object* l_Lean_PrettyPrinter_parenthesizeTerm___closed__2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__2; @@ -542,21 +538,23 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___ lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___boxed(lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__5; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16; +lean_object* l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_map___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_nat_mod(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; lean_object* l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__3; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__7; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3; +extern lean_object* l_Lean_MessageData_coeOfOptExpr___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__1; lean_object* l_Std_PersistentHashMap_empty___at_Lean_PrettyPrinter_parenthesizerAttribute___spec__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3; extern lean_object* l_Lean_Meta_DiscrTree_Trie_format___main___rarg___closed__1; lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer(lean_object*, 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*); lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__2(lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_KeyedDeclsAttribute_init___rarg(lean_object*, lean_object*, lean_object*); @@ -565,20 +563,18 @@ lean_object* l_Nat_min(lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_usize_to_nat(size_t); lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__6; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__12; lean_object* l_Lean_PrettyPrinter_parenthesizeTerm___closed__1; -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__6; lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__1; extern lean_object* l_Lean_mkAppStx___closed__2; lean_object* l___private_Lean_PrettyPrinter_Parenthesizer_1__regTraceClasses(lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10; lean_object* l_Lean_Syntax_Traverser_left(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_quotedSymbol_parenthesizer___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbolNoWs_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_rawIdent_parenthesizer___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_lift___at_Lean_PrettyPrinter_Parenthesizer_ParenthesizerM_monadTraverser___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -590,12 +586,11 @@ extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4; extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1; lean_object* l_List_forM___main___at_Lean_PrettyPrinter_Parenthesizer_sepBy_parenthesizer___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* lean_name_mk_numeral(lean_object*, lean_object*); lean_object* l_Std_AssocList_find_x3f___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__7(lean_object*, lean_object*); +lean_object* l_Lean_PrettyPrinter_Parenthesizer_resume(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_unquotedSymbol_parenthesizer(lean_object*); lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7; lean_object* l_Lean_PrettyPrinter_Parenthesizer_addPrecCheck___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___closed__1; extern lean_object* l_Lean_MetavarContext_MkBinding_mkBinding___closed__1; @@ -2414,7 +2409,7 @@ lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__7() _start: { lean_object* x_1; -x_1 = lean_mk_string("parenthesizing"); +x_1 = lean_mk_string("parenthesizing (contPrec := "); return x_1; } } @@ -2466,6 +2461,30 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__9; +x_2 = l_Lean_MessageData_coeOfOptExpr___closed__1; +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_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__13; +x_2 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +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* l_Lean_PrettyPrinter_Parenthesizer_visit___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -2486,7 +2505,7 @@ lean_inc(x_4); x_12 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_4, x_8); if (lean_obj_tag(x_12) == 0) { -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_101; lean_object* x_102; lean_object* x_131; uint8_t x_132; +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_105; lean_object* x_106; lean_object* x_158; uint8_t x_159; x_13 = lean_ctor_get(x_12, 0); lean_inc(x_13); x_14 = lean_ctor_get(x_12, 1); @@ -2495,36 +2514,38 @@ lean_dec(x_12); x_15 = l_Lean_Expr_getAppFn___main(x_13); x_16 = l_Lean_Expr_constName_x3f(x_15); lean_dec(x_15); -x_131 = lean_ctor_get(x_14, 4); -lean_inc(x_131); -x_132 = lean_ctor_get_uint8(x_131, sizeof(void*)*1); -lean_dec(x_131); -if (x_132 == 0) +x_158 = lean_ctor_get(x_14, 4); +lean_inc(x_158); +x_159 = lean_ctor_get_uint8(x_158, sizeof(void*)*1); +lean_dec(x_158); +if (x_159 == 0) { -uint8_t x_133; lean_object* x_134; -x_133 = 0; -x_134 = lean_box(x_133); -lean_ctor_set(x_7, 0, x_134); -x_101 = x_7; -x_102 = x_14; -goto block_130; +uint8_t x_160; lean_object* x_161; +x_160 = 0; +x_161 = lean_box(x_160); +lean_inc(x_11); +lean_ctor_set(x_7, 0, x_161); +x_105 = x_7; +x_106 = x_14; +goto block_157; } else { -lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; -x_135 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_136 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_135, x_4, x_14); -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); -lean_ctor_set(x_7, 0, x_137); -x_101 = x_7; -x_102 = x_138; -goto block_130; +lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; +x_162 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_163 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_162, x_4, x_14); +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); +lean_inc(x_11); +lean_ctor_set(x_7, 0, x_164); +x_105 = x_7; +x_106 = x_165; +goto block_157; } -block_100: +block_104: { lean_object* x_19; lean_object* x_20; lean_object* x_21; x_19 = lean_ctor_get(x_17, 1); @@ -2534,62 +2555,62 @@ x_20 = lean_ctor_get(x_18, 0); lean_inc(x_20); if (lean_obj_tag(x_16) == 0) { -lean_object* x_88; +lean_object* x_92; lean_dec(x_20); -x_88 = lean_box(0); -x_21 = x_88; -goto block_87; +x_92 = lean_box(0); +x_21 = x_92; +goto block_91; } else { -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_89 = lean_ctor_get(x_16, 0); -lean_inc(x_89); -x_90 = l_Lean_PrettyPrinter_parenthesizerAttribute; -x_91 = lean_ctor_get(x_90, 1); -lean_inc(x_91); -x_92 = l_Lean_PersistentEnvExtension_getState___rarg(x_91, x_20); -lean_dec(x_20); -lean_dec(x_91); -x_93 = lean_ctor_get(x_92, 1); +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_93 = lean_ctor_get(x_16, 0); lean_inc(x_93); -lean_dec(x_92); -x_94 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__2(x_93, x_89); -lean_dec(x_89); -if (lean_obj_tag(x_94) == 0) +x_94 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_95 = lean_ctor_get(x_94, 1); +lean_inc(x_95); +x_96 = l_Lean_PersistentEnvExtension_getState___rarg(x_95, x_20); +lean_dec(x_20); +lean_dec(x_95); +x_97 = lean_ctor_get(x_96, 1); +lean_inc(x_97); +lean_dec(x_96); +x_98 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__2(x_97, x_93); +lean_dec(x_93); +if (lean_obj_tag(x_98) == 0) { -lean_object* x_95; -x_95 = lean_box(0); -x_21 = x_95; -goto block_87; +lean_object* x_99; +x_99 = lean_box(0); +x_21 = x_99; +goto block_91; } else { -lean_object* x_96; -x_96 = lean_ctor_get(x_94, 0); -lean_inc(x_96); -lean_dec(x_94); -if (lean_obj_tag(x_96) == 0) +lean_object* x_100; +x_100 = lean_ctor_get(x_98, 0); +lean_inc(x_100); +lean_dec(x_98); +if (lean_obj_tag(x_100) == 0) { -lean_object* x_97; -x_97 = lean_box(0); -x_21 = x_97; -goto block_87; +lean_object* x_101; +x_101 = lean_box(0); +x_21 = x_101; +goto block_91; } else { -lean_object* x_98; lean_object* x_99; +lean_object* x_102; lean_object* x_103; lean_dec(x_16); lean_dec(x_10); -x_98 = lean_ctor_get(x_96, 0); -lean_inc(x_98); -lean_dec(x_96); -x_99 = lean_apply_5(x_98, x_13, x_2, x_19, x_4, x_18); -return x_99; +x_102 = lean_ctor_get(x_100, 0); +lean_inc(x_102); +lean_dec(x_100); +x_103 = lean_apply_5(x_102, x_13, x_2, x_19, x_4, x_18); +return x_103; } } } -block_87: +block_91: { lean_dec(x_21); if (lean_obj_tag(x_16) == 0) @@ -2613,7 +2634,7 @@ lean_dec(x_2); x_24 = !lean_is_exclusive(x_22); if (x_24 == 0) { -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_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; x_25 = lean_ctor_get(x_22, 0); lean_dec(x_25); x_26 = lean_expr_dbg_to_string(x_13); @@ -2630,802 +2651,932 @@ x_31 = l_Lean_Elab_Term_mkConst___closed__4; x_32 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_32, 0, x_30); lean_ctor_set(x_32, 1, x_31); -x_33 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_33, 0, x_32); +x_33 = lean_box(0); +x_34 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); lean_ctor_set_tag(x_22, 1); -lean_ctor_set(x_22, 0, x_33); +lean_ctor_set(x_22, 0, x_34); return x_22; } else { -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_22, 1); -lean_inc(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; +x_35 = lean_ctor_get(x_22, 1); +lean_inc(x_35); lean_dec(x_22); -x_35 = lean_expr_dbg_to_string(x_13); +x_36 = lean_expr_dbg_to_string(x_13); lean_dec(x_13); -x_36 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_36, 0, x_35); -x_37 = lean_alloc_ctor(0, 1, 0); +x_37 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_37, 0, x_36); -x_38 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; -x_39 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_39, 0, x_38); -lean_ctor_set(x_39, 1, x_37); -x_40 = l_Lean_Elab_Term_mkConst___closed__4; -x_41 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_41, 0, x_39); -lean_ctor_set(x_41, 1, x_40); -x_42 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_42, 0, x_41); -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_42); -lean_ctor_set(x_43, 1, x_34); -return x_43; +x_38 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_38, 0, x_37); +x_39 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; +x_40 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_40, 0, x_39); +lean_ctor_set(x_40, 1, x_38); +x_41 = l_Lean_Elab_Term_mkConst___closed__4; +x_42 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_42, 0, x_40); +lean_ctor_set(x_42, 1, x_41); +x_43 = lean_box(0); +x_44 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_35); +return x_45; } } else { -lean_object* x_44; lean_object* x_45; +lean_object* x_46; lean_object* x_47; lean_dec(x_13); -x_44 = lean_ctor_get(x_22, 1); -lean_inc(x_44); +x_46 = lean_ctor_get(x_22, 1); +lean_inc(x_46); lean_dec(x_22); -x_45 = lean_ctor_get(x_23, 0); -lean_inc(x_45); +x_47 = lean_ctor_get(x_23, 0); +lean_inc(x_47); lean_dec(x_23); -x_1 = x_45; +x_1 = x_47; x_3 = x_19; -x_5 = x_44; +x_5 = x_46; goto _start; } } else { -uint8_t x_47; +uint8_t x_49; lean_dec(x_19); lean_dec(x_13); lean_dec(x_4); lean_dec(x_2); -x_47 = !lean_is_exclusive(x_22); -if (x_47 == 0) +x_49 = !lean_is_exclusive(x_22); +if (x_49 == 0) { return x_22; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; -x_48 = lean_ctor_get(x_22, 0); -x_49 = lean_ctor_get(x_22, 1); -lean_inc(x_49); -lean_inc(x_48); +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_22, 0); +x_51 = lean_ctor_get(x_22, 1); +lean_inc(x_51); +lean_inc(x_50); lean_dec(x_22); -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; +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_51; lean_object* x_52; uint8_t x_53; -x_51 = lean_ctor_get(x_16, 0); -lean_inc(x_51); +lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_53 = lean_ctor_get(x_16, 0); +lean_inc(x_53); lean_dec(x_16); -x_52 = l_Lean_choiceKind___closed__2; -x_53 = lean_name_eq(x_51, x_52); -lean_dec(x_51); -if (x_53 == 0) +x_54 = l_Lean_choiceKind___closed__2; +x_55 = lean_name_eq(x_53, x_54); +lean_dec(x_53); +if (x_55 == 0) { -lean_object* x_54; +lean_object* x_56; lean_dec(x_10); lean_inc(x_4); lean_inc(x_13); -x_54 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_13, x_4, x_18); -if (lean_obj_tag(x_54) == 0) +x_56 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_13, x_4, x_18); +if (lean_obj_tag(x_56) == 0) { -lean_object* x_55; -x_55 = lean_ctor_get(x_54, 0); -lean_inc(x_55); -if (lean_obj_tag(x_55) == 0) +lean_object* x_57; +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +if (lean_obj_tag(x_57) == 0) { -uint8_t x_56; +uint8_t x_58; lean_dec(x_19); lean_dec(x_4); lean_dec(x_2); -x_56 = !lean_is_exclusive(x_54); -if (x_56 == 0) +x_58 = !lean_is_exclusive(x_56); +if (x_58 == 0) { -lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_57 = lean_ctor_get(x_54, 0); -lean_dec(x_57); -x_58 = lean_expr_dbg_to_string(x_13); +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; +x_59 = lean_ctor_get(x_56, 0); +lean_dec(x_59); +x_60 = lean_expr_dbg_to_string(x_13); lean_dec(x_13); -x_59 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_59, 0, x_58); -x_60 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_60, 0, x_59); -x_61 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; -x_62 = lean_alloc_ctor(9, 2, 0); +x_61 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_61, 0, x_60); +x_62 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_62, 0, x_61); -lean_ctor_set(x_62, 1, x_60); -x_63 = l_Lean_Elab_Term_mkConst___closed__4; +x_63 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; x_64 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_64, 0, x_62); -lean_ctor_set(x_64, 1, x_63); -x_65 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set_tag(x_54, 1); -lean_ctor_set(x_54, 0, x_65); -return x_54; -} -else -{ -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_66 = lean_ctor_get(x_54, 1); -lean_inc(x_66); -lean_dec(x_54); -x_67 = lean_expr_dbg_to_string(x_13); -lean_dec(x_13); -x_68 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = l_Lean_Elab_Term_mkConst___closed__4; +x_66 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_66, 0, x_64); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_box(0); +x_68 = lean_alloc_ctor(22, 2, 0); lean_ctor_set(x_68, 0, x_67); -x_69 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_69, 0, x_68); -x_70 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; -x_71 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_68, 1, x_66); +lean_ctor_set_tag(x_56, 1); +lean_ctor_set(x_56, 0, x_68); +return x_56; +} +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; lean_object* x_79; +x_69 = lean_ctor_get(x_56, 1); +lean_inc(x_69); +lean_dec(x_56); +x_70 = lean_expr_dbg_to_string(x_13); +lean_dec(x_13); +x_71 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_69); -x_72 = l_Lean_Elab_Term_mkConst___closed__4; -x_73 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_73, 0, x_71); -lean_ctor_set(x_73, 1, x_72); -x_74 = lean_alloc_ctor(22, 1, 0); +x_72 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_72, 0, x_71); +x_73 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; +x_74 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_74, 0, x_73); -x_75 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_75, 0, x_74); -lean_ctor_set(x_75, 1, x_66); -return x_75; +lean_ctor_set(x_74, 1, x_72); +x_75 = l_Lean_Elab_Term_mkConst___closed__4; +x_76 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_76, 0, x_74); +lean_ctor_set(x_76, 1, x_75); +x_77 = lean_box(0); +x_78 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_69); +return x_79; } } else { -lean_object* x_76; lean_object* x_77; +lean_object* x_80; lean_object* x_81; lean_dec(x_13); -x_76 = lean_ctor_get(x_54, 1); -lean_inc(x_76); -lean_dec(x_54); -x_77 = lean_ctor_get(x_55, 0); -lean_inc(x_77); -lean_dec(x_55); -x_1 = x_77; +x_80 = lean_ctor_get(x_56, 1); +lean_inc(x_80); +lean_dec(x_56); +x_81 = lean_ctor_get(x_57, 0); +lean_inc(x_81); +lean_dec(x_57); +x_1 = x_81; x_3 = x_19; -x_5 = x_76; +x_5 = x_80; goto _start; } } else { -uint8_t x_79; +uint8_t x_83; lean_dec(x_19); lean_dec(x_13); lean_dec(x_4); lean_dec(x_2); -x_79 = !lean_is_exclusive(x_54); -if (x_79 == 0) +x_83 = !lean_is_exclusive(x_56); +if (x_83 == 0) { -return x_54; +return x_56; } else { -lean_object* x_80; lean_object* x_81; lean_object* x_82; -x_80 = lean_ctor_get(x_54, 0); -x_81 = lean_ctor_get(x_54, 1); -lean_inc(x_81); -lean_inc(x_80); -lean_dec(x_54); -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 -{ -lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; -lean_dec(x_13); -x_83 = l_Lean_Syntax_getArgs(x_10); -lean_dec(x_10); -x_84 = lean_array_get_size(x_83); -lean_dec(x_83); +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_56, 0); +x_85 = lean_ctor_get(x_56, 1); +lean_inc(x_85); lean_inc(x_84); -x_85 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__1___boxed), 6, 2); -lean_closure_set(x_85, 0, x_84); -lean_closure_set(x_85, 1, x_84); -x_86 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_85, x_2, x_19, x_4, x_18); +lean_dec(x_56); +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; lean_object* x_89; lean_object* x_90; +lean_dec(x_13); +x_87 = l_Lean_Syntax_getArgs(x_10); +lean_dec(x_10); +x_88 = lean_array_get_size(x_87); +lean_dec(x_87); +lean_inc(x_88); +x_89 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__1___boxed), 6, 2); +lean_closure_set(x_89, 0, x_88); +lean_closure_set(x_89, 1, x_88); +x_90 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_89, x_2, x_19, x_4, x_18); +return x_90; } -block_130: +} +} +} +block_157: { -lean_object* x_103; uint8_t x_104; -x_103 = lean_ctor_get(x_101, 0); -lean_inc(x_103); -x_104 = lean_unbox(x_103); -lean_dec(x_103); -if (x_104 == 0) +lean_object* x_107; uint8_t x_108; +x_107 = lean_ctor_get(x_105, 0); +lean_inc(x_107); +x_108 = lean_unbox(x_107); +lean_dec(x_107); +if (x_108 == 0) { -uint8_t x_105; -x_105 = !lean_is_exclusive(x_101); -if (x_105 == 0) +uint8_t x_109; +lean_dec(x_11); +x_109 = !lean_is_exclusive(x_105); +if (x_109 == 0) { -lean_object* x_106; lean_object* x_107; -x_106 = lean_ctor_get(x_101, 0); -lean_dec(x_106); -x_107 = lean_box(0); -lean_ctor_set(x_101, 0, x_107); -x_17 = x_101; -x_18 = x_102; -goto block_100; +lean_object* x_110; lean_object* x_111; +x_110 = lean_ctor_get(x_105, 0); +lean_dec(x_110); +x_111 = lean_box(0); +lean_ctor_set(x_105, 0, x_111); +x_17 = x_105; +x_18 = x_106; +goto block_104; } else { -lean_object* x_108; lean_object* x_109; lean_object* x_110; -x_108 = lean_ctor_get(x_101, 1); -lean_inc(x_108); -lean_dec(x_101); -x_109 = lean_box(0); -x_110 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_108); -x_17 = x_110; -x_18 = x_102; -goto block_100; -} -} -else -{ -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; -x_111 = lean_ctor_get(x_101, 1); -lean_inc(x_111); -lean_dec(x_101); -lean_inc(x_10); -x_112 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_112, 0, x_10); -x_113 = l_Lean_MessageData_ofList___closed__3; -x_114 = lean_alloc_ctor(9, 2, 0); +lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_112 = lean_ctor_get(x_105, 1); +lean_inc(x_112); +lean_dec(x_105); +x_113 = lean_box(0); +x_114 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_114, 0, x_113); lean_ctor_set(x_114, 1, x_112); -x_115 = lean_unsigned_to_nat(2u); -x_116 = lean_alloc_ctor(7, 2, 0); -lean_ctor_set(x_116, 0, x_115); -lean_ctor_set(x_116, 1, x_114); -x_117 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__9; -x_118 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_118, 1, x_116); +x_17 = x_114; +x_18 = x_106; +goto block_104; +} +} +else +{ +lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_115 = lean_ctor_get(x_105, 1); +lean_inc(x_115); +lean_dec(x_105); +x_116 = lean_ctor_get(x_11, 1); +lean_inc(x_116); +lean_dec(x_11); +lean_inc(x_10); +x_117 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_117, 0, x_10); +x_118 = l_Lean_MessageData_ofList___closed__3; x_119 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_119, 0, x_118); -lean_ctor_set(x_119, 1, x_113); -x_120 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; -x_121 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_121, 0, x_119); -lean_ctor_set(x_121, 1, x_120); +lean_ctor_set(x_119, 1, x_117); +x_120 = lean_unsigned_to_nat(2u); +x_121 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_121, 0, x_120); +lean_ctor_set(x_121, 1, x_119); lean_inc(x_13); x_122 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_122, 0, x_13); x_123 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_123, 0, x_113); +lean_ctor_set(x_123, 0, x_118); lean_ctor_set(x_123, 1, x_122); x_124 = lean_alloc_ctor(7, 2, 0); -lean_ctor_set(x_124, 0, x_115); +lean_ctor_set(x_124, 0, x_120); lean_ctor_set(x_124, 1, x_123); -x_125 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_125, 0, x_121); -lean_ctor_set(x_125, 1, x_124); -x_126 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_127 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_126, x_125, x_2, x_111, x_4, x_102); -x_128 = lean_ctor_get(x_127, 0); -lean_inc(x_128); -x_129 = lean_ctor_get(x_127, 1); -lean_inc(x_129); -lean_dec(x_127); -x_17 = x_128; -x_18 = x_129; -goto block_100; +if (lean_obj_tag(x_116) == 0) +{ +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; +x_125 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14; +x_126 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_126, 0, x_125); +lean_ctor_set(x_126, 1, x_121); +x_127 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_127, 0, x_126); +lean_ctor_set(x_127, 1, x_118); +x_128 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; +x_129 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_129, 0, x_127); +lean_ctor_set(x_129, 1, x_128); +x_130 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_130, 0, x_129); +lean_ctor_set(x_130, 1, x_124); +x_131 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_132 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_131, x_130, x_2, x_115, x_4, x_106); +x_133 = lean_ctor_get(x_132, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_132, 1); +lean_inc(x_134); +lean_dec(x_132); +x_17 = x_133; +x_18 = x_134; +goto block_104; +} +else +{ +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; 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; +x_135 = lean_ctor_get(x_116, 0); +lean_inc(x_135); +lean_dec(x_116); +x_136 = l_Nat_repr(x_135); +x_137 = l_addParenHeuristic(x_136); +lean_dec(x_136); +x_138 = l_Option_HasRepr___rarg___closed__2; +x_139 = lean_string_append(x_138, x_137); +lean_dec(x_137); +x_140 = l_Option_HasRepr___rarg___closed__3; +x_141 = lean_string_append(x_139, x_140); +x_142 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_142, 0, x_141); +x_143 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_143, 0, x_142); +x_144 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__9; +x_145 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_145, 0, x_144); +lean_ctor_set(x_145, 1, x_143); +x_146 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +x_147 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_147, 0, x_145); +lean_ctor_set(x_147, 1, x_146); +x_148 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_148, 0, x_147); +lean_ctor_set(x_148, 1, x_121); +x_149 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_149, 0, x_148); +lean_ctor_set(x_149, 1, x_118); +x_150 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; +x_151 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_151, 0, x_149); +lean_ctor_set(x_151, 1, x_150); +x_152 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_152, 0, x_151); +lean_ctor_set(x_152, 1, x_124); +x_153 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_154 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_153, x_152, x_2, x_115, x_4, x_106); +x_155 = lean_ctor_get(x_154, 0); +lean_inc(x_155); +x_156 = lean_ctor_get(x_154, 1); +lean_inc(x_156); +lean_dec(x_154); +x_17 = x_155; +x_18 = x_156; +goto block_104; +} } } } else { -uint8_t x_139; +uint8_t x_166; lean_free_object(x_7); lean_dec(x_11); lean_dec(x_10); lean_dec(x_4); lean_dec(x_2); -x_139 = !lean_is_exclusive(x_12); -if (x_139 == 0) +x_166 = !lean_is_exclusive(x_12); +if (x_166 == 0) { return x_12; } else { -lean_object* x_140; lean_object* x_141; lean_object* x_142; -x_140 = lean_ctor_get(x_12, 0); -x_141 = lean_ctor_get(x_12, 1); -lean_inc(x_141); -lean_inc(x_140); +lean_object* x_167; lean_object* x_168; lean_object* x_169; +x_167 = lean_ctor_get(x_12, 0); +x_168 = lean_ctor_get(x_12, 1); +lean_inc(x_168); +lean_inc(x_167); lean_dec(x_12); -x_142 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_142, 0, x_140); -lean_ctor_set(x_142, 1, x_141); -return x_142; +x_169 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_169, 0, x_167); +lean_ctor_set(x_169, 1, x_168); +return x_169; } } } else { -lean_object* x_143; lean_object* x_144; lean_object* x_145; -x_143 = lean_ctor_get(x_7, 0); -x_144 = lean_ctor_get(x_7, 1); -lean_inc(x_144); -lean_inc(x_143); +lean_object* x_170; lean_object* x_171; lean_object* x_172; +x_170 = lean_ctor_get(x_7, 0); +x_171 = lean_ctor_get(x_7, 1); +lean_inc(x_171); +lean_inc(x_170); lean_dec(x_7); lean_inc(x_4); -x_145 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_4, x_8); -if (lean_obj_tag(x_145) == 0) +x_172 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_4, x_8); +if (lean_obj_tag(x_172) == 0) { -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_216; lean_object* x_217; lean_object* x_244; uint8_t x_245; -x_146 = lean_ctor_get(x_145, 0); -lean_inc(x_146); -x_147 = lean_ctor_get(x_145, 1); -lean_inc(x_147); -lean_dec(x_145); -x_148 = l_Lean_Expr_getAppFn___main(x_146); -x_149 = l_Lean_Expr_constName_x3f(x_148); -lean_dec(x_148); -x_244 = lean_ctor_get(x_147, 4); -lean_inc(x_244); -x_245 = lean_ctor_get_uint8(x_244, sizeof(void*)*1); -lean_dec(x_244); -if (x_245 == 0) -{ -uint8_t x_246; lean_object* x_247; lean_object* x_248; -x_246 = 0; -x_247 = lean_box(x_246); -x_248 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_248, 0, x_247); -lean_ctor_set(x_248, 1, x_144); -x_216 = x_248; -x_217 = x_147; -goto block_243; -} -else -{ -lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; -x_249 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_250 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_249, x_4, x_147); -x_251 = lean_ctor_get(x_250, 0); -lean_inc(x_251); -x_252 = lean_ctor_get(x_250, 1); -lean_inc(x_252); -lean_dec(x_250); -x_253 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_253, 0, x_251); -lean_ctor_set(x_253, 1, x_144); -x_216 = x_253; -x_217 = x_252; -goto block_243; -} -block_215: -{ -lean_object* x_152; lean_object* x_153; lean_object* x_154; -x_152 = lean_ctor_get(x_150, 1); -lean_inc(x_152); -lean_dec(x_150); -x_153 = lean_ctor_get(x_151, 0); -lean_inc(x_153); -if (lean_obj_tag(x_149) == 0) -{ -lean_object* x_203; -lean_dec(x_153); -x_203 = lean_box(0); -x_154 = x_203; -goto block_202; -} -else -{ -lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; -x_204 = lean_ctor_get(x_149, 0); -lean_inc(x_204); -x_205 = l_Lean_PrettyPrinter_parenthesizerAttribute; -x_206 = lean_ctor_get(x_205, 1); -lean_inc(x_206); -x_207 = l_Lean_PersistentEnvExtension_getState___rarg(x_206, x_153); -lean_dec(x_153); -lean_dec(x_206); -x_208 = lean_ctor_get(x_207, 1); -lean_inc(x_208); -lean_dec(x_207); -x_209 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__2(x_208, x_204); -lean_dec(x_204); -if (lean_obj_tag(x_209) == 0) -{ -lean_object* x_210; -x_210 = lean_box(0); -x_154 = x_210; -goto block_202; -} -else -{ -lean_object* x_211; -x_211 = lean_ctor_get(x_209, 0); -lean_inc(x_211); -lean_dec(x_209); -if (lean_obj_tag(x_211) == 0) -{ -lean_object* x_212; -x_212 = lean_box(0); -x_154 = x_212; -goto block_202; -} -else -{ -lean_object* x_213; lean_object* x_214; -lean_dec(x_149); -lean_dec(x_143); -x_213 = lean_ctor_get(x_211, 0); -lean_inc(x_213); -lean_dec(x_211); -x_214 = lean_apply_5(x_213, x_146, x_2, x_152, x_4, x_151); -return x_214; -} -} -} -block_202: -{ -lean_dec(x_154); -if (lean_obj_tag(x_149) == 0) -{ -lean_object* x_155; -lean_dec(x_143); -lean_inc(x_4); -lean_inc(x_146); -x_155 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_146, x_4, x_151); -if (lean_obj_tag(x_155) == 0) -{ -lean_object* x_156; -x_156 = lean_ctor_get(x_155, 0); -lean_inc(x_156); -if (lean_obj_tag(x_156) == 0) -{ -lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; -lean_dec(x_152); -lean_dec(x_4); -lean_dec(x_2); -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_155); - x_158 = lean_box(0); -} -x_159 = lean_expr_dbg_to_string(x_146); -lean_dec(x_146); -x_160 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_160, 0, x_159); -x_161 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_161, 0, x_160); -x_162 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; -x_163 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_163, 0, x_162); -lean_ctor_set(x_163, 1, x_161); -x_164 = l_Lean_Elab_Term_mkConst___closed__4; -x_165 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_165, 0, x_163); -lean_ctor_set(x_165, 1, x_164); -x_166 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_166, 0, x_165); -if (lean_is_scalar(x_158)) { - x_167 = lean_alloc_ctor(1, 2, 0); -} else { - x_167 = x_158; - lean_ctor_set_tag(x_167, 1); -} -lean_ctor_set(x_167, 0, x_166); -lean_ctor_set(x_167, 1, x_157); -return x_167; -} -else -{ -lean_object* x_168; lean_object* x_169; -lean_dec(x_146); -x_168 = lean_ctor_get(x_155, 1); -lean_inc(x_168); -lean_dec(x_155); -x_169 = lean_ctor_get(x_156, 0); -lean_inc(x_169); -lean_dec(x_156); -x_1 = x_169; -x_3 = x_152; -x_5 = x_168; -goto _start; -} -} -else -{ -lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; -lean_dec(x_152); -lean_dec(x_146); -lean_dec(x_4); -lean_dec(x_2); -x_171 = lean_ctor_get(x_155, 0); -lean_inc(x_171); -x_172 = lean_ctor_get(x_155, 1); -lean_inc(x_172); -if (lean_is_exclusive(x_155)) { - lean_ctor_release(x_155, 0); - lean_ctor_release(x_155, 1); - x_173 = x_155; -} else { - lean_dec_ref(x_155); - x_173 = lean_box(0); -} -if (lean_is_scalar(x_173)) { - x_174 = lean_alloc_ctor(1, 2, 0); -} else { - x_174 = x_173; -} -lean_ctor_set(x_174, 0, x_171); -lean_ctor_set(x_174, 1, x_172); -return x_174; -} -} -else -{ -lean_object* x_175; lean_object* x_176; uint8_t x_177; -x_175 = lean_ctor_get(x_149, 0); -lean_inc(x_175); -lean_dec(x_149); -x_176 = l_Lean_choiceKind___closed__2; -x_177 = lean_name_eq(x_175, x_176); +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_245; lean_object* x_246; lean_object* x_296; uint8_t x_297; +x_173 = lean_ctor_get(x_172, 0); +lean_inc(x_173); +x_174 = lean_ctor_get(x_172, 1); +lean_inc(x_174); +lean_dec(x_172); +x_175 = l_Lean_Expr_getAppFn___main(x_173); +x_176 = l_Lean_Expr_constName_x3f(x_175); lean_dec(x_175); -if (x_177 == 0) +x_296 = lean_ctor_get(x_174, 4); +lean_inc(x_296); +x_297 = lean_ctor_get_uint8(x_296, sizeof(void*)*1); +lean_dec(x_296); +if (x_297 == 0) { -lean_object* x_178; -lean_dec(x_143); -lean_inc(x_4); -lean_inc(x_146); -x_178 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_146, x_4, x_151); -if (lean_obj_tag(x_178) == 0) +uint8_t x_298; lean_object* x_299; lean_object* x_300; +x_298 = 0; +x_299 = lean_box(x_298); +lean_inc(x_171); +x_300 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_300, 0, x_299); +lean_ctor_set(x_300, 1, x_171); +x_245 = x_300; +x_246 = x_174; +goto block_295; +} +else { -lean_object* x_179; -x_179 = lean_ctor_get(x_178, 0); +lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; +x_301 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_302 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_301, x_4, x_174); +x_303 = lean_ctor_get(x_302, 0); +lean_inc(x_303); +x_304 = lean_ctor_get(x_302, 1); +lean_inc(x_304); +lean_dec(x_302); +lean_inc(x_171); +x_305 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_305, 0, x_303); +lean_ctor_set(x_305, 1, x_171); +x_245 = x_305; +x_246 = x_304; +goto block_295; +} +block_244: +{ +lean_object* x_179; lean_object* x_180; lean_object* x_181; +x_179 = lean_ctor_get(x_177, 1); lean_inc(x_179); -if (lean_obj_tag(x_179) == 0) -{ -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_dec(x_152); -lean_dec(x_4); -lean_dec(x_2); -x_180 = lean_ctor_get(x_178, 1); +lean_dec(x_177); +x_180 = lean_ctor_get(x_178, 0); lean_inc(x_180); -if (lean_is_exclusive(x_178)) { - lean_ctor_release(x_178, 0); - lean_ctor_release(x_178, 1); - x_181 = x_178; -} else { - lean_dec_ref(x_178); - x_181 = lean_box(0); -} -x_182 = lean_expr_dbg_to_string(x_146); -lean_dec(x_146); -x_183 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_183, 0, x_182); -x_184 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_184, 0, x_183); -x_185 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; -x_186 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_186, 0, x_185); -lean_ctor_set(x_186, 1, x_184); -x_187 = l_Lean_Elab_Term_mkConst___closed__4; -x_188 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_188, 0, x_186); -lean_ctor_set(x_188, 1, x_187); -x_189 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_189, 0, x_188); -if (lean_is_scalar(x_181)) { - x_190 = lean_alloc_ctor(1, 2, 0); -} else { - x_190 = x_181; - lean_ctor_set_tag(x_190, 1); -} -lean_ctor_set(x_190, 0, x_189); -lean_ctor_set(x_190, 1, x_180); -return x_190; +if (lean_obj_tag(x_176) == 0) +{ +lean_object* x_232; +lean_dec(x_180); +x_232 = lean_box(0); +x_181 = x_232; +goto block_231; } else { -lean_object* x_191; lean_object* x_192; -lean_dec(x_146); -x_191 = lean_ctor_get(x_178, 1); -lean_inc(x_191); -lean_dec(x_178); -x_192 = lean_ctor_get(x_179, 0); -lean_inc(x_192); -lean_dec(x_179); -x_1 = x_192; -x_3 = x_152; -x_5 = x_191; -goto _start; -} +lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; +x_233 = lean_ctor_get(x_176, 0); +lean_inc(x_233); +x_234 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_235 = lean_ctor_get(x_234, 1); +lean_inc(x_235); +x_236 = l_Lean_PersistentEnvExtension_getState___rarg(x_235, x_180); +lean_dec(x_180); +lean_dec(x_235); +x_237 = lean_ctor_get(x_236, 1); +lean_inc(x_237); +lean_dec(x_236); +x_238 = l_Lean_SMap_find_x3f___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__2(x_237, x_233); +lean_dec(x_233); +if (lean_obj_tag(x_238) == 0) +{ +lean_object* x_239; +x_239 = lean_box(0); +x_181 = x_239; +goto block_231; } else { -lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; -lean_dec(x_152); -lean_dec(x_146); -lean_dec(x_4); -lean_dec(x_2); -x_194 = lean_ctor_get(x_178, 0); -lean_inc(x_194); -x_195 = lean_ctor_get(x_178, 1); -lean_inc(x_195); -if (lean_is_exclusive(x_178)) { - lean_ctor_release(x_178, 0); - lean_ctor_release(x_178, 1); - x_196 = x_178; -} else { - lean_dec_ref(x_178); - x_196 = lean_box(0); -} -if (lean_is_scalar(x_196)) { - x_197 = lean_alloc_ctor(1, 2, 0); -} else { - x_197 = x_196; -} -lean_ctor_set(x_197, 0, x_194); -lean_ctor_set(x_197, 1, x_195); -return x_197; -} +lean_object* x_240; +x_240 = lean_ctor_get(x_238, 0); +lean_inc(x_240); +lean_dec(x_238); +if (lean_obj_tag(x_240) == 0) +{ +lean_object* x_241; +x_241 = lean_box(0); +x_181 = x_241; +goto block_231; } else { -lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; -lean_dec(x_146); -x_198 = l_Lean_Syntax_getArgs(x_143); -lean_dec(x_143); -x_199 = lean_array_get_size(x_198); -lean_dec(x_198); -lean_inc(x_199); -x_200 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__1___boxed), 6, 2); -lean_closure_set(x_200, 0, x_199); -lean_closure_set(x_200, 1, x_199); -x_201 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_200, x_2, x_152, x_4, x_151); -return x_201; -} -} -} -} -block_243: -{ -lean_object* x_218; uint8_t x_219; -x_218 = lean_ctor_get(x_216, 0); -lean_inc(x_218); -x_219 = lean_unbox(x_218); -lean_dec(x_218); -if (x_219 == 0) -{ -lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; -x_220 = lean_ctor_get(x_216, 1); -lean_inc(x_220); -if (lean_is_exclusive(x_216)) { - lean_ctor_release(x_216, 0); - lean_ctor_release(x_216, 1); - x_221 = x_216; -} else { - lean_dec_ref(x_216); - x_221 = lean_box(0); -} -x_222 = lean_box(0); -if (lean_is_scalar(x_221)) { - x_223 = lean_alloc_ctor(0, 2, 0); -} else { - x_223 = x_221; -} -lean_ctor_set(x_223, 0, x_222); -lean_ctor_set(x_223, 1, x_220); -x_150 = x_223; -x_151 = x_217; -goto block_215; -} -else -{ -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; -x_224 = lean_ctor_get(x_216, 1); -lean_inc(x_224); -lean_dec(x_216); -lean_inc(x_143); -x_225 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_225, 0, x_143); -x_226 = l_Lean_MessageData_ofList___closed__3; -x_227 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_227, 0, x_226); -lean_ctor_set(x_227, 1, x_225); -x_228 = lean_unsigned_to_nat(2u); -x_229 = lean_alloc_ctor(7, 2, 0); -lean_ctor_set(x_229, 0, x_228); -lean_ctor_set(x_229, 1, x_227); -x_230 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__9; -x_231 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_231, 0, x_230); -lean_ctor_set(x_231, 1, x_229); -x_232 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_232, 0, x_231); -lean_ctor_set(x_232, 1, x_226); -x_233 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; -x_234 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_234, 0, x_232); -lean_ctor_set(x_234, 1, x_233); -lean_inc(x_146); -x_235 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_235, 0, x_146); -x_236 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_236, 0, x_226); -lean_ctor_set(x_236, 1, x_235); -x_237 = lean_alloc_ctor(7, 2, 0); -lean_ctor_set(x_237, 0, x_228); -lean_ctor_set(x_237, 1, x_236); -x_238 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_238, 0, x_234); -lean_ctor_set(x_238, 1, x_237); -x_239 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_240 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_239, x_238, x_2, x_224, x_4, x_217); -x_241 = lean_ctor_get(x_240, 0); -lean_inc(x_241); -x_242 = lean_ctor_get(x_240, 1); +lean_object* x_242; lean_object* x_243; +lean_dec(x_176); +lean_dec(x_170); +x_242 = lean_ctor_get(x_240, 0); lean_inc(x_242); lean_dec(x_240); -x_150 = x_241; -x_151 = x_242; -goto block_215; +x_243 = lean_apply_5(x_242, x_173, x_2, x_179, x_4, x_178); +return x_243; +} +} +} +block_231: +{ +lean_dec(x_181); +if (lean_obj_tag(x_176) == 0) +{ +lean_object* x_182; +lean_dec(x_170); +lean_inc(x_4); +lean_inc(x_173); +x_182 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_173, x_4, x_178); +if (lean_obj_tag(x_182) == 0) +{ +lean_object* x_183; +x_183 = lean_ctor_get(x_182, 0); +lean_inc(x_183); +if (lean_obj_tag(x_183) == 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_dec(x_179); +lean_dec(x_4); +lean_dec(x_2); +x_184 = lean_ctor_get(x_182, 1); +lean_inc(x_184); +if (lean_is_exclusive(x_182)) { + lean_ctor_release(x_182, 0); + lean_ctor_release(x_182, 1); + x_185 = x_182; +} else { + lean_dec_ref(x_182); + x_185 = lean_box(0); +} +x_186 = lean_expr_dbg_to_string(x_173); +lean_dec(x_173); +x_187 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_187, 0, x_186); +x_188 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_188, 0, x_187); +x_189 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; +x_190 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_190, 0, x_189); +lean_ctor_set(x_190, 1, x_188); +x_191 = l_Lean_Elab_Term_mkConst___closed__4; +x_192 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_192, 0, x_190); +lean_ctor_set(x_192, 1, x_191); +x_193 = lean_box(0); +x_194 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_194, 0, x_193); +lean_ctor_set(x_194, 1, x_192); +if (lean_is_scalar(x_185)) { + x_195 = lean_alloc_ctor(1, 2, 0); +} else { + x_195 = x_185; + lean_ctor_set_tag(x_195, 1); +} +lean_ctor_set(x_195, 0, x_194); +lean_ctor_set(x_195, 1, x_184); +return x_195; +} +else +{ +lean_object* x_196; lean_object* x_197; +lean_dec(x_173); +x_196 = lean_ctor_get(x_182, 1); +lean_inc(x_196); +lean_dec(x_182); +x_197 = lean_ctor_get(x_183, 0); +lean_inc(x_197); +lean_dec(x_183); +x_1 = x_197; +x_3 = x_179; +x_5 = x_196; +goto _start; +} +} +else +{ +lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; +lean_dec(x_179); +lean_dec(x_173); +lean_dec(x_4); +lean_dec(x_2); +x_199 = lean_ctor_get(x_182, 0); +lean_inc(x_199); +x_200 = lean_ctor_get(x_182, 1); +lean_inc(x_200); +if (lean_is_exclusive(x_182)) { + lean_ctor_release(x_182, 0); + lean_ctor_release(x_182, 1); + x_201 = x_182; +} else { + lean_dec_ref(x_182); + x_201 = lean_box(0); +} +if (lean_is_scalar(x_201)) { + x_202 = lean_alloc_ctor(1, 2, 0); +} else { + x_202 = x_201; +} +lean_ctor_set(x_202, 0, x_199); +lean_ctor_set(x_202, 1, x_200); +return x_202; +} +} +else +{ +lean_object* x_203; lean_object* x_204; uint8_t x_205; +x_203 = lean_ctor_get(x_176, 0); +lean_inc(x_203); +lean_dec(x_176); +x_204 = l_Lean_choiceKind___closed__2; +x_205 = lean_name_eq(x_203, x_204); +lean_dec(x_203); +if (x_205 == 0) +{ +lean_object* x_206; +lean_dec(x_170); +lean_inc(x_4); +lean_inc(x_173); +x_206 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_173, x_4, x_178); +if (lean_obj_tag(x_206) == 0) +{ +lean_object* x_207; +x_207 = lean_ctor_get(x_206, 0); +lean_inc(x_207); +if (lean_obj_tag(x_207) == 0) +{ +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_dec(x_179); +lean_dec(x_4); +lean_dec(x_2); +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 = lean_expr_dbg_to_string(x_173); +lean_dec(x_173); +x_211 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_211, 0, x_210); +x_212 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_212, 0, x_211); +x_213 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; +x_214 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_214, 0, x_213); +lean_ctor_set(x_214, 1, x_212); +x_215 = l_Lean_Elab_Term_mkConst___closed__4; +x_216 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_216, 0, x_214); +lean_ctor_set(x_216, 1, x_215); +x_217 = lean_box(0); +x_218 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_218, 0, x_217); +lean_ctor_set(x_218, 1, x_216); +if (lean_is_scalar(x_209)) { + x_219 = lean_alloc_ctor(1, 2, 0); +} else { + x_219 = x_209; + lean_ctor_set_tag(x_219, 1); +} +lean_ctor_set(x_219, 0, x_218); +lean_ctor_set(x_219, 1, x_208); +return x_219; +} +else +{ +lean_object* x_220; lean_object* x_221; +lean_dec(x_173); +x_220 = lean_ctor_get(x_206, 1); +lean_inc(x_220); +lean_dec(x_206); +x_221 = lean_ctor_get(x_207, 0); +lean_inc(x_221); +lean_dec(x_207); +x_1 = x_221; +x_3 = x_179; +x_5 = x_220; +goto _start; +} +} +else +{ +lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; +lean_dec(x_179); +lean_dec(x_173); +lean_dec(x_4); +lean_dec(x_2); +x_223 = lean_ctor_get(x_206, 0); +lean_inc(x_223); +x_224 = lean_ctor_get(x_206, 1); +lean_inc(x_224); +if (lean_is_exclusive(x_206)) { + lean_ctor_release(x_206, 0); + lean_ctor_release(x_206, 1); + x_225 = x_206; +} else { + lean_dec_ref(x_206); + x_225 = lean_box(0); +} +if (lean_is_scalar(x_225)) { + x_226 = lean_alloc_ctor(1, 2, 0); +} else { + x_226 = x_225; +} +lean_ctor_set(x_226, 0, x_223); +lean_ctor_set(x_226, 1, x_224); +return x_226; +} +} +else +{ +lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; +lean_dec(x_173); +x_227 = l_Lean_Syntax_getArgs(x_170); +lean_dec(x_170); +x_228 = lean_array_get_size(x_227); +lean_dec(x_227); +lean_inc(x_228); +x_229 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__1___boxed), 6, 2); +lean_closure_set(x_229, 0, x_228); +lean_closure_set(x_229, 1, x_228); +x_230 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_229, x_2, x_179, x_4, x_178); +return x_230; +} +} +} +} +block_295: +{ +lean_object* x_247; uint8_t x_248; +x_247 = lean_ctor_get(x_245, 0); +lean_inc(x_247); +x_248 = lean_unbox(x_247); +lean_dec(x_247); +if (x_248 == 0) +{ +lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; +lean_dec(x_171); +x_249 = lean_ctor_get(x_245, 1); +lean_inc(x_249); +if (lean_is_exclusive(x_245)) { + lean_ctor_release(x_245, 0); + lean_ctor_release(x_245, 1); + x_250 = x_245; +} else { + lean_dec_ref(x_245); + x_250 = lean_box(0); +} +x_251 = lean_box(0); +if (lean_is_scalar(x_250)) { + x_252 = lean_alloc_ctor(0, 2, 0); +} else { + x_252 = x_250; +} +lean_ctor_set(x_252, 0, x_251); +lean_ctor_set(x_252, 1, x_249); +x_177 = x_252; +x_178 = x_246; +goto block_244; +} +else +{ +lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; +x_253 = lean_ctor_get(x_245, 1); +lean_inc(x_253); +lean_dec(x_245); +x_254 = lean_ctor_get(x_171, 1); +lean_inc(x_254); +lean_dec(x_171); +lean_inc(x_170); +x_255 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_255, 0, x_170); +x_256 = l_Lean_MessageData_ofList___closed__3; +x_257 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_257, 0, x_256); +lean_ctor_set(x_257, 1, x_255); +x_258 = lean_unsigned_to_nat(2u); +x_259 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_259, 0, x_258); +lean_ctor_set(x_259, 1, x_257); +lean_inc(x_173); +x_260 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_260, 0, x_173); +x_261 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_261, 0, x_256); +lean_ctor_set(x_261, 1, x_260); +x_262 = lean_alloc_ctor(7, 2, 0); +lean_ctor_set(x_262, 0, x_258); +lean_ctor_set(x_262, 1, x_261); +if (lean_obj_tag(x_254) == 0) +{ +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; +x_263 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14; +x_264 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_264, 0, x_263); +lean_ctor_set(x_264, 1, x_259); +x_265 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_265, 0, x_264); +lean_ctor_set(x_265, 1, x_256); +x_266 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; +x_267 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_267, 0, x_265); +lean_ctor_set(x_267, 1, x_266); +x_268 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_268, 0, x_267); +lean_ctor_set(x_268, 1, x_262); +x_269 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_270 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_269, x_268, x_2, x_253, x_4, x_246); +x_271 = lean_ctor_get(x_270, 0); +lean_inc(x_271); +x_272 = lean_ctor_get(x_270, 1); +lean_inc(x_272); +lean_dec(x_270); +x_177 = x_271; +x_178 = x_272; +goto block_244; +} +else +{ +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_273 = lean_ctor_get(x_254, 0); +lean_inc(x_273); +lean_dec(x_254); +x_274 = l_Nat_repr(x_273); +x_275 = l_addParenHeuristic(x_274); +lean_dec(x_274); +x_276 = l_Option_HasRepr___rarg___closed__2; +x_277 = lean_string_append(x_276, x_275); +lean_dec(x_275); +x_278 = l_Option_HasRepr___rarg___closed__3; +x_279 = lean_string_append(x_277, x_278); +x_280 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_280, 0, x_279); +x_281 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_281, 0, x_280); +x_282 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__9; +x_283 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_283, 0, x_282); +lean_ctor_set(x_283, 1, x_281); +x_284 = l_Lean_Meta_DepElim_Pattern_toMessageData___main___closed__4; +x_285 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_285, 0, x_283); +lean_ctor_set(x_285, 1, x_284); +x_286 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_286, 0, x_285); +lean_ctor_set(x_286, 1, x_259); +x_287 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_287, 0, x_286); +lean_ctor_set(x_287, 1, x_256); +x_288 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12; +x_289 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_289, 0, x_287); +lean_ctor_set(x_289, 1, x_288); +x_290 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_290, 0, x_289); +lean_ctor_set(x_290, 1, x_262); +x_291 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_292 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_291, x_290, x_2, x_253, x_4, x_246); +x_293 = lean_ctor_get(x_292, 0); +lean_inc(x_293); +x_294 = lean_ctor_get(x_292, 1); +lean_inc(x_294); +lean_dec(x_292); +x_177 = x_293; +x_178 = x_294; +goto block_244; +} } } } else { -lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; -lean_dec(x_144); -lean_dec(x_143); +lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; +lean_dec(x_171); +lean_dec(x_170); lean_dec(x_4); lean_dec(x_2); -x_254 = lean_ctor_get(x_145, 0); -lean_inc(x_254); -x_255 = lean_ctor_get(x_145, 1); -lean_inc(x_255); -if (lean_is_exclusive(x_145)) { - lean_ctor_release(x_145, 0); - lean_ctor_release(x_145, 1); - x_256 = x_145; +x_306 = lean_ctor_get(x_172, 0); +lean_inc(x_306); +x_307 = lean_ctor_get(x_172, 1); +lean_inc(x_307); +if (lean_is_exclusive(x_172)) { + lean_ctor_release(x_172, 0); + lean_ctor_release(x_172, 1); + x_308 = x_172; } else { - lean_dec_ref(x_145); - x_256 = lean_box(0); + lean_dec_ref(x_172); + x_308 = lean_box(0); } -if (lean_is_scalar(x_256)) { - x_257 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_308)) { + x_309 = lean_alloc_ctor(1, 2, 0); } else { - x_257 = x_256; + x_309 = x_308; } -lean_ctor_set(x_257, 0, x_254); -lean_ctor_set(x_257, 1, x_255); -return x_257; +lean_ctor_set(x_309, 0, x_306); +lean_ctor_set(x_309, 1, x_307); +return x_309; } } } @@ -3517,6 +3668,124 @@ x_6 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_2, x_3, x_4, x_5); return x_6; } } +lean_object* l_Lean_PrettyPrinter_Parenthesizer_resume(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +lean_inc(x_4); +lean_inc(x_1); +x_6 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_1, x_4, x_5); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +if (lean_obj_tag(x_7) == 0) +{ +uint8_t x_8; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_8 = !lean_is_exclusive(x_6); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_9 = lean_ctor_get(x_6, 0); +lean_dec(x_9); +x_10 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_11 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_12, 0, x_11); +x_13 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; +x_14 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_12); +x_15 = l_Lean_Elab_Term_mkConst___closed__4; +x_16 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_16); +lean_ctor_set_tag(x_6, 1); +lean_ctor_set(x_6, 0, x_18); +return x_6; +} +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; +x_19 = lean_ctor_get(x_6, 1); +lean_inc(x_19); +lean_dec(x_6); +x_20 = lean_expr_dbg_to_string(x_1); +lean_dec(x_1); +x_21 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_21, 0, x_20); +x_22 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_22, 0, x_21); +x_23 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__6; +x_24 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_22); +x_25 = l_Lean_Elab_Term_mkConst___closed__4; +x_26 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +x_27 = lean_box(0); +x_28 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_19); +return x_29; +} +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +lean_dec(x_1); +x_30 = lean_ctor_get(x_6, 1); +lean_inc(x_30); +lean_dec(x_6); +x_31 = lean_ctor_get(x_7, 0); +lean_inc(x_31); +lean_dec(x_7); +x_32 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_31, x_2, x_3, x_4, x_30); +return x_32; +} +} +else +{ +uint8_t x_33; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_33 = !lean_is_exclusive(x_6); +if (x_33 == 0) +{ +return x_6; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_6, 0); +x_35 = lean_ctor_get(x_6, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_6); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; +} +} +} +} lean_object* l_ReaderT_pure___at_Lean_PrettyPrinter_Parenthesizer_monadQuotation___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -3606,235 +3875,7 @@ lean_dec(x_2); return x_6; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_6 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_3, x_4, x_5); -x_7 = lean_ctor_get(x_6, 0); -lean_inc(x_7); -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -lean_dec(x_6); -x_9 = lean_ctor_get(x_7, 1); -lean_inc(x_9); -lean_dec(x_7); -x_10 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_9, x_4, x_8); -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_ctor_get(x_11, 1); -lean_inc(x_13); -lean_dec(x_11); -x_14 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_13, x_4, x_12); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_ctor_get(x_14, 1); -lean_inc(x_16); -lean_dec(x_14); -x_17 = lean_ctor_get(x_15, 1); -lean_inc(x_17); -lean_dec(x_15); -lean_inc(x_4); -lean_inc(x_2); -x_18 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_2, x_17, x_4, 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; -x_19 = lean_ctor_get(x_18, 0); -lean_inc(x_19); -x_20 = lean_ctor_get(x_18, 1); -lean_inc(x_20); -lean_dec(x_18); -x_21 = lean_ctor_get(x_19, 1); -lean_inc(x_21); -lean_dec(x_19); -x_22 = l_Lean_Parser_maxPrec; -x_23 = l_Lean_PrettyPrinter_Parenthesizer_addPrecCheck(x_22, x_2, x_21, x_4, x_20); -lean_dec(x_4); -lean_dec(x_2); -return x_23; -} -else -{ -uint8_t x_24; -lean_dec(x_4); -lean_dec(x_2); -x_24 = !lean_is_exclusive(x_18); -if (x_24 == 0) -{ -return x_18; -} -else -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_18, 0); -x_26 = lean_ctor_get(x_18, 1); -lean_inc(x_26); -lean_inc(x_25); -lean_dec(x_18); -x_27 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_27, 0, x_25); -lean_ctor_set(x_27, 1, x_26); -return x_27; -} -} -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("not an antiquotation"); -return x_1; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___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_PrettyPrinter_Parenthesizer_visitAntiquot___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___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_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__3; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__5() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("antiquotExpr"); -return x_1; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__6() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__4; -x_2 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__5; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__7() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__6; -x_3 = l_Lean_mkConst(x_2, x_1); -return x_3; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__7; -x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___lambda__1), 5, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -lean_object* x_5; uint8_t x_6; -x_5 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_2, x_3, x_4); -x_6 = !lean_is_exclusive(x_5); -if (x_6 == 0) -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; -x_7 = lean_ctor_get(x_5, 0); -x_8 = lean_ctor_get(x_5, 1); -x_9 = lean_ctor_get(x_7, 0); -lean_inc(x_9); -x_10 = lean_ctor_get(x_7, 1); -lean_inc(x_10); -lean_dec(x_7); -x_11 = l_Lean_Elab_Term_Quotation_isAntiquot(x_9); -lean_dec(x_9); -if (x_11 == 0) -{ -lean_object* x_12; -lean_dec(x_10); -lean_dec(x_3); -lean_dec(x_1); -x_12 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4; -lean_ctor_set_tag(x_5, 1); -lean_ctor_set(x_5, 0, x_12); -return x_5; -} -else -{ -lean_object* x_13; lean_object* x_14; -lean_free_object(x_5); -x_13 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8; -x_14 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_13, x_1, x_10, x_3, x_8); -return x_14; -} -} -else -{ -lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; -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_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 = l_Lean_Elab_Term_Quotation_isAntiquot(x_17); -lean_dec(x_17); -if (x_19 == 0) -{ -lean_object* x_20; lean_object* x_21; -lean_dec(x_18); -lean_dec(x_3); -lean_dec(x_1); -x_20 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4; -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_20); -lean_ctor_set(x_21, 1, x_16); -return x_21; -} -else -{ -lean_object* x_22; lean_object* x_23; -x_22 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8; -x_23 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_22, x_1, x_18, x_3, x_16); -return x_23; -} -} -} -} -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg(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; @@ -3854,15 +3895,15 @@ lean_ctor_set(x_8, 1, x_3); return x_8; } } -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1(lean_object* x_1) { +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg___boxed), 3, 0); +x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg___boxed), 3, 0); return x_2; } } -lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(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; @@ -3913,7 +3954,7 @@ return x_21; } } } -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; @@ -3964,15 +4005,15 @@ return x_19; } } } -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3(lean_object* x_1) { +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg___boxed), 3, 0); +x_2 = lean_alloc_closure((void*)(l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg___boxed), 3, 0); return x_2; } } -lean_object* l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(lean_object* x_1) { +lean_object* l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(lean_object* x_1) { _start: { if (lean_obj_tag(x_1) == 0) @@ -3998,15 +4039,15 @@ return x_7; } } } -lean_object* l_Lean_fmt___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__4(lean_object* x_1) { +lean_object* l_Lean_fmt___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__4(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(x_1); +x_2 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__1() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__1() { _start: { lean_object* x_1; lean_object* x_2; @@ -4015,26 +4056,26 @@ x_2 = l_StateT_Monad___rarg(x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__1; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__1; x_2 = l_ReaderT_Monad___rarg(x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2; x_2 = l_PUnit_Inhabited; x_3 = l_monadInhabited___rarg(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4() { _start: { lean_object* x_1; @@ -4042,7 +4083,7 @@ x_1 = lean_mk_string("Lean.PrettyPrinter.Parenthesizer"); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__5() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__5() { _start: { lean_object* x_1; @@ -4050,19 +4091,19 @@ x_1 = lean_mk_string("visitParenthesizable: visited a term without tokens?!"); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6() { _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_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4; -x_2 = lean_unsigned_to_nat(197u); +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4; +x_2 = lean_unsigned_to_nat(193u); x_3 = lean_unsigned_to_nat(4u); -x_4 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__5; +x_4 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__5; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); return x_5; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7() { _start: { lean_object* x_1; lean_object* x_2; @@ -4072,7 +4113,7 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__8() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__8() { _start: { lean_object* x_1; @@ -4080,27 +4121,27 @@ x_1 = lean_mk_string("parenthesized: "); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__9() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__9() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__8; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__8; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__9; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__9; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__11() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__11() { _start: { lean_object* x_1; @@ -4108,27 +4149,27 @@ x_1 = lean_mk_string("...precedences are "); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__12() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__12() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__11; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__11; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__12; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__12; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__14() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__14() { _start: { lean_object* x_1; @@ -4136,27 +4177,27 @@ x_1 = lean_mk_string(" >? "); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__15() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__15() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__14; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__14; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__15; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__15; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__17() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__17() { _start: { lean_object* x_1; @@ -4164,42 +4205,40 @@ x_1 = lean_mk_string(" <=? "); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__18() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__18() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__17; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__17; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__18; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__18; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(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_PrettyPrinter_Parenthesizer_maybeParenthesize(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_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; uint8_t x_17; -x_7 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_4, x_5, x_6); -x_8 = lean_ctor_get(x_7, 0); -lean_inc(x_8); -x_9 = lean_ctor_get(x_7, 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; uint8_t x_17; +x_8 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_5, x_6, x_7); +x_9 = lean_ctor_get(x_8, 0); lean_inc(x_9); -lean_dec(x_7); -x_10 = lean_ctor_get(x_8, 0); +x_10 = lean_ctor_get(x_8, 1); lean_inc(x_10); -x_11 = lean_ctor_get(x_8, 1); -lean_inc(x_11); lean_dec(x_8); -x_12 = l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg(x_11, x_5, x_9); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg(x_11, x_6, x_10); x_13 = lean_ctor_get(x_12, 0); lean_inc(x_13); x_14 = lean_ctor_get(x_13, 1); @@ -4213,7 +4252,7 @@ lean_dec(x_13); x_17 = !lean_is_exclusive(x_14); if (x_17 == 0) { -lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* 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; +lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; uint8_t x_23; lean_object* x_24; lean_object* x_25; x_18 = lean_ctor_get(x_14, 1); x_19 = lean_ctor_get(x_14, 2); x_20 = lean_ctor_get(x_14, 3); @@ -4224,1426 +4263,1423 @@ lean_ctor_set(x_14, 3, x_22); lean_ctor_set(x_14, 2, x_22); lean_ctor_set(x_14, 1, x_22); lean_ctor_set_uint8(x_14, sizeof(void*)*4, x_23); -x_24 = l_Lean_Syntax_getKind(x_10); -x_25 = lean_box(0); -x_26 = l_Lean_mkConst(x_24, x_25); lean_inc(x_1); -x_27 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_27, 0, x_1); -lean_inc(x_5); -x_28 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_26, x_27, x_14, x_5, x_15); -if (lean_obj_tag(x_28) == 0) +x_24 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_24, 0, x_1); +lean_inc(x_6); +x_25 = lean_apply_4(x_3, x_24, x_14, x_6, x_15); +if (lean_obj_tag(x_25) == 0) { -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_29 = lean_ctor_get(x_28, 0); -lean_inc(x_29); -x_30 = lean_ctor_get(x_29, 1); -lean_inc(x_30); -if (lean_is_exclusive(x_29)) { - lean_ctor_release(x_29, 0); - lean_ctor_release(x_29, 1); - x_31 = x_29; +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +x_27 = lean_ctor_get(x_26, 1); +lean_inc(x_27); +if (lean_is_exclusive(x_26)) { + lean_ctor_release(x_26, 0); + lean_ctor_release(x_26, 1); + x_28 = x_26; } else { - lean_dec_ref(x_29); - x_31 = lean_box(0); + lean_dec_ref(x_26); + x_28 = lean_box(0); } -x_32 = lean_ctor_get(x_30, 2); -lean_inc(x_32); -if (lean_obj_tag(x_32) == 0) +x_29 = lean_ctor_get(x_27, 2); +lean_inc(x_29); +if (lean_obj_tag(x_29) == 0) { -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; -lean_dec(x_31); +lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +lean_dec(x_28); lean_dec(x_20); lean_dec(x_19); lean_dec(x_18); lean_dec(x_16); lean_dec(x_2); lean_dec(x_1); -x_33 = lean_ctor_get(x_28, 1); -lean_inc(x_33); -lean_dec(x_28); -x_34 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3; -x_35 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6; -x_36 = lean_panic_fn(x_34, x_35); -x_37 = lean_apply_4(x_36, x_3, x_30, x_5, x_33); -return x_37; +x_30 = lean_ctor_get(x_25, 1); +lean_inc(x_30); +lean_dec(x_25); +x_31 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3; +x_32 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6; +x_33 = lean_panic_fn(x_31, x_32); +x_34 = lean_apply_4(x_33, x_4, x_27, x_6, x_30); +return x_34; } else { -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; uint8_t x_392; -x_38 = lean_ctor_get(x_28, 1); -lean_inc(x_38); -if (lean_is_exclusive(x_28)) { - lean_ctor_release(x_28, 0); - lean_ctor_release(x_28, 1); - x_39 = x_28; +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t x_40; uint8_t x_389; +x_35 = lean_ctor_get(x_25, 1); +lean_inc(x_35); +if (lean_is_exclusive(x_25)) { + lean_ctor_release(x_25, 0); + lean_ctor_release(x_25, 1); + x_36 = x_25; } else { - lean_dec_ref(x_28); + lean_dec_ref(x_25); + x_36 = lean_box(0); +} +x_37 = lean_ctor_get(x_27, 3); +lean_inc(x_37); +x_38 = lean_ctor_get(x_29, 0); +lean_inc(x_38); +if (lean_is_exclusive(x_29)) { + lean_ctor_release(x_29, 0); + x_39 = x_29; +} else { + lean_dec_ref(x_29); x_39 = lean_box(0); } -x_40 = lean_ctor_get(x_30, 3); -lean_inc(x_40); -x_41 = lean_ctor_get(x_32, 0); -lean_inc(x_41); -if (lean_is_exclusive(x_32)) { - lean_ctor_release(x_32, 0); - x_42 = x_32; -} else { - lean_dec_ref(x_32); - x_42 = lean_box(0); -} -x_392 = lean_nat_dec_lt(x_41, x_2); -if (x_392 == 0) +x_389 = lean_nat_dec_lt(x_38, x_2); +if (x_389 == 0) { -if (lean_obj_tag(x_40) == 0) +if (lean_obj_tag(x_37) == 0) { -x_43 = x_392; -goto block_391; +x_40 = x_389; +goto block_388; } else { if (lean_obj_tag(x_18) == 0) { -x_43 = x_392; -goto block_391; +x_40 = x_389; +goto block_388; } else { -lean_object* x_393; lean_object* x_394; uint8_t x_395; -x_393 = lean_ctor_get(x_40, 0); -lean_inc(x_393); -x_394 = lean_ctor_get(x_18, 0); -lean_inc(x_394); -x_395 = lean_nat_dec_le(x_393, x_394); -lean_dec(x_394); -lean_dec(x_393); -x_43 = x_395; -goto block_391; +lean_object* x_390; lean_object* x_391; uint8_t x_392; +x_390 = lean_ctor_get(x_37, 0); +lean_inc(x_390); +x_391 = lean_ctor_get(x_18, 0); +lean_inc(x_391); +x_392 = lean_nat_dec_le(x_390, x_391); +lean_dec(x_391); +lean_dec(x_390); +x_40 = x_392; +goto block_388; } } } else { -uint8_t x_396; -x_396 = 1; -x_43 = x_396; -goto block_391; +uint8_t x_393; +x_393 = 1; +x_40 = x_393; +goto block_388; } -block_391: +block_388: { -uint8_t x_44; -if (x_43 == 0) +uint8_t x_41; +if (x_40 == 0) { -x_44 = x_23; -goto block_389; +x_41 = x_23; +goto block_386; } else { -uint8_t x_390; -x_390 = 1; -x_44 = x_390; -goto block_389; +uint8_t x_387; +x_387 = 1; +x_41 = x_387; +goto block_386; } -block_389: +block_386: { -lean_object* x_45; lean_object* x_46; lean_object* x_121; lean_object* x_122; lean_object* x_172; lean_object* x_173; lean_object* x_243; lean_object* x_244; lean_object* x_345; lean_object* x_346; lean_object* x_380; uint8_t x_381; -x_380 = lean_ctor_get(x_38, 4); -lean_inc(x_380); -x_381 = lean_ctor_get_uint8(x_380, sizeof(void*)*1); -lean_dec(x_380); -if (x_381 == 0) +lean_object* x_42; lean_object* x_43; lean_object* x_118; lean_object* x_119; lean_object* x_169; lean_object* x_170; lean_object* x_240; lean_object* x_241; lean_object* x_342; lean_object* x_343; lean_object* x_377; uint8_t x_378; +x_377 = lean_ctor_get(x_35, 4); +lean_inc(x_377); +x_378 = lean_ctor_get_uint8(x_377, sizeof(void*)*1); +lean_dec(x_377); +if (x_378 == 0) { -lean_object* x_382; lean_object* x_383; -x_382 = lean_box(x_23); -if (lean_is_scalar(x_31)) { - x_383 = lean_alloc_ctor(0, 2, 0); +lean_object* x_379; lean_object* x_380; +x_379 = lean_box(x_23); +if (lean_is_scalar(x_28)) { + x_380 = lean_alloc_ctor(0, 2, 0); } else { - x_383 = x_31; + x_380 = x_28; } -lean_ctor_set(x_383, 0, x_382); -lean_ctor_set(x_383, 1, x_30); -x_345 = x_383; -x_346 = x_38; -goto block_379; +lean_ctor_set(x_380, 0, x_379); +lean_ctor_set(x_380, 1, x_27); +x_342 = x_380; +x_343 = x_35; +goto block_376; } else { -lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; -x_384 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_385 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_384, x_5, x_38); -x_386 = lean_ctor_get(x_385, 0); -lean_inc(x_386); -x_387 = lean_ctor_get(x_385, 1); -lean_inc(x_387); -lean_dec(x_385); -if (lean_is_scalar(x_31)) { - x_388 = lean_alloc_ctor(0, 2, 0); +lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; +x_381 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_382 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_381, x_6, x_35); +x_383 = lean_ctor_get(x_382, 0); +lean_inc(x_383); +x_384 = lean_ctor_get(x_382, 1); +lean_inc(x_384); +lean_dec(x_382); +if (lean_is_scalar(x_28)) { + x_385 = lean_alloc_ctor(0, 2, 0); } else { - x_388 = x_31; + x_385 = x_28; } -lean_ctor_set(x_388, 0, x_386); -lean_ctor_set(x_388, 1, x_30); -x_345 = x_388; -x_346 = x_387; -goto block_379; +lean_ctor_set(x_385, 0, x_383); +lean_ctor_set(x_385, 1, x_27); +x_342 = x_385; +x_343 = x_384; +goto block_376; } -block_120: +block_117: { -lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; -x_47 = lean_ctor_get(x_45, 1); -lean_inc(x_47); -lean_dec(x_45); -x_48 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_47, x_5, x_46); -lean_dec(x_5); -x_49 = lean_ctor_get(x_48, 0); -lean_inc(x_49); -x_50 = !lean_is_exclusive(x_49); -if (x_50 == 0) -{ -lean_object* x_51; lean_object* x_52; -x_51 = lean_ctor_get(x_49, 1); -x_52 = lean_ctor_get(x_49, 0); -lean_dec(x_52); -if (x_21 == 0) -{ -uint8_t x_53; -lean_dec(x_20); -x_53 = !lean_is_exclusive(x_48); -if (x_53 == 0) -{ -lean_object* x_54; uint8_t x_55; -x_54 = lean_ctor_get(x_48, 0); -lean_dec(x_54); -x_55 = !lean_is_exclusive(x_51); -if (x_55 == 0) -{ -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_56 = lean_ctor_get(x_51, 3); -lean_dec(x_56); -x_57 = lean_ctor_get(x_51, 2); -lean_dec(x_57); -x_58 = lean_ctor_get(x_51, 1); -lean_dec(x_58); -if (lean_is_scalar(x_42)) { - x_59 = lean_alloc_ctor(1, 1, 0); -} else { - x_59 = x_42; -} -lean_ctor_set(x_59, 0, x_2); -x_60 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -lean_ctor_set(x_51, 3, x_59); -lean_ctor_set(x_51, 2, x_19); -lean_ctor_set(x_51, 1, x_60); -x_61 = lean_box(0); -lean_ctor_set(x_49, 0, x_61); -return x_48; -} -else -{ -lean_object* x_62; uint8_t x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; -x_62 = lean_ctor_get(x_51, 0); -x_63 = lean_ctor_get_uint8(x_51, sizeof(void*)*4); -lean_inc(x_62); -lean_dec(x_51); -if (lean_is_scalar(x_42)) { - x_64 = lean_alloc_ctor(1, 1, 0); -} else { - x_64 = x_42; -} -lean_ctor_set(x_64, 0, x_2); -x_65 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -x_66 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_66, 0, x_62); -lean_ctor_set(x_66, 1, x_65); -lean_ctor_set(x_66, 2, x_19); -lean_ctor_set(x_66, 3, x_64); -lean_ctor_set_uint8(x_66, sizeof(void*)*4, x_63); -x_67 = lean_box(0); -lean_ctor_set(x_49, 1, x_66); -lean_ctor_set(x_49, 0, x_67); -return x_48; -} -} -else -{ -lean_object* x_68; lean_object* x_69; uint8_t 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; -x_68 = lean_ctor_get(x_48, 1); -lean_inc(x_68); -lean_dec(x_48); -x_69 = lean_ctor_get(x_51, 0); -lean_inc(x_69); -x_70 = lean_ctor_get_uint8(x_51, sizeof(void*)*4); -if (lean_is_exclusive(x_51)) { - lean_ctor_release(x_51, 0); - lean_ctor_release(x_51, 1); - lean_ctor_release(x_51, 2); - lean_ctor_release(x_51, 3); - x_71 = x_51; -} else { - lean_dec_ref(x_51); - x_71 = lean_box(0); -} -if (lean_is_scalar(x_42)) { - x_72 = lean_alloc_ctor(1, 1, 0); -} else { - x_72 = x_42; -} -lean_ctor_set(x_72, 0, x_2); -x_73 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -if (lean_is_scalar(x_71)) { - x_74 = lean_alloc_ctor(0, 4, 1); -} else { - x_74 = x_71; -} -lean_ctor_set(x_74, 0, x_69); -lean_ctor_set(x_74, 1, x_73); -lean_ctor_set(x_74, 2, x_19); -lean_ctor_set(x_74, 3, x_72); -lean_ctor_set_uint8(x_74, sizeof(void*)*4, x_70); -x_75 = lean_box(0); -lean_ctor_set(x_49, 1, x_74); -lean_ctor_set(x_49, 0, x_75); -x_76 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_76, 0, x_49); -lean_ctor_set(x_76, 1, x_68); -return x_76; -} -} -else -{ -uint8_t x_77; +lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; +x_44 = lean_ctor_get(x_42, 1); +lean_inc(x_44); lean_dec(x_42); -lean_dec(x_2); -x_77 = !lean_is_exclusive(x_48); -if (x_77 == 0) +x_45 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_44, x_6, x_43); +lean_dec(x_6); +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = !lean_is_exclusive(x_46); +if (x_47 == 0) { -lean_object* x_78; uint8_t x_79; -x_78 = lean_ctor_get(x_48, 0); -lean_dec(x_78); -x_79 = !lean_is_exclusive(x_51); -if (x_79 == 0) -{ -lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; -x_80 = lean_ctor_get(x_51, 3); -lean_dec(x_80); -x_81 = lean_ctor_get(x_51, 2); -lean_dec(x_81); -x_82 = lean_ctor_get(x_51, 1); -lean_dec(x_82); -x_83 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -lean_ctor_set(x_51, 3, x_20); -lean_ctor_set(x_51, 2, x_19); -lean_ctor_set(x_51, 1, x_83); -x_84 = lean_box(0); -lean_ctor_set(x_49, 0, x_84); -return x_48; -} -else -{ -lean_object* x_85; uint8_t x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_85 = lean_ctor_get(x_51, 0); -x_86 = lean_ctor_get_uint8(x_51, sizeof(void*)*4); -lean_inc(x_85); -lean_dec(x_51); -x_87 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -x_88 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_88, 0, x_85); -lean_ctor_set(x_88, 1, x_87); -lean_ctor_set(x_88, 2, x_19); -lean_ctor_set(x_88, 3, x_20); -lean_ctor_set_uint8(x_88, sizeof(void*)*4, x_86); -x_89 = lean_box(0); -lean_ctor_set(x_49, 1, x_88); -lean_ctor_set(x_49, 0, x_89); -return x_48; -} -} -else -{ -lean_object* x_90; lean_object* x_91; uint8_t x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; -x_90 = lean_ctor_get(x_48, 1); -lean_inc(x_90); -lean_dec(x_48); -x_91 = lean_ctor_get(x_51, 0); -lean_inc(x_91); -x_92 = lean_ctor_get_uint8(x_51, sizeof(void*)*4); -if (lean_is_exclusive(x_51)) { - lean_ctor_release(x_51, 0); - lean_ctor_release(x_51, 1); - lean_ctor_release(x_51, 2); - lean_ctor_release(x_51, 3); - x_93 = x_51; -} else { - lean_dec_ref(x_51); - x_93 = lean_box(0); -} -x_94 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -if (lean_is_scalar(x_93)) { - x_95 = lean_alloc_ctor(0, 4, 1); -} else { - x_95 = x_93; -} -lean_ctor_set(x_95, 0, x_91); -lean_ctor_set(x_95, 1, x_94); -lean_ctor_set(x_95, 2, x_19); -lean_ctor_set(x_95, 3, x_20); -lean_ctor_set_uint8(x_95, sizeof(void*)*4, x_92); -x_96 = lean_box(0); -lean_ctor_set(x_49, 1, x_95); -lean_ctor_set(x_49, 0, x_96); -x_97 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_97, 0, x_49); -lean_ctor_set(x_97, 1, x_90); -return x_97; -} -} -} -else -{ -lean_object* x_98; -x_98 = lean_ctor_get(x_49, 1); -lean_inc(x_98); +lean_object* x_48; lean_object* x_49; +x_48 = lean_ctor_get(x_46, 1); +x_49 = lean_ctor_get(x_46, 0); lean_dec(x_49); if (x_21 == 0) { -lean_object* x_99; lean_object* x_100; lean_object* x_101; uint8_t 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_50; lean_dec(x_20); -x_99 = lean_ctor_get(x_48, 1); -lean_inc(x_99); -if (lean_is_exclusive(x_48)) { - lean_ctor_release(x_48, 0); - lean_ctor_release(x_48, 1); - x_100 = x_48; +x_50 = !lean_is_exclusive(x_45); +if (x_50 == 0) +{ +lean_object* x_51; uint8_t x_52; +x_51 = lean_ctor_get(x_45, 0); +lean_dec(x_51); +x_52 = !lean_is_exclusive(x_48); +if (x_52 == 0) +{ +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_53 = lean_ctor_get(x_48, 3); +lean_dec(x_53); +x_54 = lean_ctor_get(x_48, 2); +lean_dec(x_54); +x_55 = lean_ctor_get(x_48, 1); +lean_dec(x_55); +if (lean_is_scalar(x_39)) { + x_56 = lean_alloc_ctor(1, 1, 0); } else { - lean_dec_ref(x_48); - x_100 = lean_box(0); + x_56 = x_39; } -x_101 = lean_ctor_get(x_98, 0); -lean_inc(x_101); -x_102 = lean_ctor_get_uint8(x_98, sizeof(void*)*4); -if (lean_is_exclusive(x_98)) { - lean_ctor_release(x_98, 0); - lean_ctor_release(x_98, 1); - lean_ctor_release(x_98, 2); - lean_ctor_release(x_98, 3); - x_103 = x_98; -} else { - lean_dec_ref(x_98); - x_103 = lean_box(0); -} -if (lean_is_scalar(x_42)) { - x_104 = lean_alloc_ctor(1, 1, 0); -} else { - x_104 = x_42; -} -lean_ctor_set(x_104, 0, x_2); -x_105 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -if (lean_is_scalar(x_103)) { - x_106 = lean_alloc_ctor(0, 4, 1); -} else { - x_106 = x_103; -} -lean_ctor_set(x_106, 0, x_101); -lean_ctor_set(x_106, 1, x_105); -lean_ctor_set(x_106, 2, x_19); -lean_ctor_set(x_106, 3, x_104); -lean_ctor_set_uint8(x_106, sizeof(void*)*4, x_102); -x_107 = lean_box(0); -x_108 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_108, 0, x_107); -lean_ctor_set(x_108, 1, x_106); -if (lean_is_scalar(x_100)) { - x_109 = lean_alloc_ctor(0, 2, 0); -} else { - x_109 = x_100; -} -lean_ctor_set(x_109, 0, x_108); -lean_ctor_set(x_109, 1, x_99); -return x_109; +lean_ctor_set(x_56, 0, x_2); +x_57 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +lean_ctor_set(x_48, 3, x_56); +lean_ctor_set(x_48, 2, x_19); +lean_ctor_set(x_48, 1, x_57); +x_58 = lean_box(0); +lean_ctor_set(x_46, 0, x_58); +return x_45; } else { -lean_object* x_110; lean_object* x_111; lean_object* x_112; uint8_t x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; -lean_dec(x_42); -lean_dec(x_2); -x_110 = lean_ctor_get(x_48, 1); -lean_inc(x_110); +lean_object* x_59; uint8_t x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_59 = lean_ctor_get(x_48, 0); +x_60 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +lean_inc(x_59); +lean_dec(x_48); +if (lean_is_scalar(x_39)) { + x_61 = lean_alloc_ctor(1, 1, 0); +} else { + x_61 = x_39; +} +lean_ctor_set(x_61, 0, x_2); +x_62 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +x_63 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_63, 0, x_59); +lean_ctor_set(x_63, 1, x_62); +lean_ctor_set(x_63, 2, x_19); +lean_ctor_set(x_63, 3, x_61); +lean_ctor_set_uint8(x_63, sizeof(void*)*4, x_60); +x_64 = lean_box(0); +lean_ctor_set(x_46, 1, x_63); +lean_ctor_set(x_46, 0, x_64); +return x_45; +} +} +else +{ +lean_object* x_65; lean_object* x_66; uint8_t 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_65 = lean_ctor_get(x_45, 1); +lean_inc(x_65); +lean_dec(x_45); +x_66 = lean_ctor_get(x_48, 0); +lean_inc(x_66); +x_67 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); if (lean_is_exclusive(x_48)) { lean_ctor_release(x_48, 0); lean_ctor_release(x_48, 1); - x_111 = x_48; + lean_ctor_release(x_48, 2); + lean_ctor_release(x_48, 3); + x_68 = x_48; } else { lean_dec_ref(x_48); + x_68 = lean_box(0); +} +if (lean_is_scalar(x_39)) { + x_69 = lean_alloc_ctor(1, 1, 0); +} else { + x_69 = x_39; +} +lean_ctor_set(x_69, 0, x_2); +x_70 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +if (lean_is_scalar(x_68)) { + x_71 = lean_alloc_ctor(0, 4, 1); +} else { + x_71 = x_68; +} +lean_ctor_set(x_71, 0, x_66); +lean_ctor_set(x_71, 1, x_70); +lean_ctor_set(x_71, 2, x_19); +lean_ctor_set(x_71, 3, x_69); +lean_ctor_set_uint8(x_71, sizeof(void*)*4, x_67); +x_72 = lean_box(0); +lean_ctor_set(x_46, 1, x_71); +lean_ctor_set(x_46, 0, x_72); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_46); +lean_ctor_set(x_73, 1, x_65); +return x_73; +} +} +else +{ +uint8_t x_74; +lean_dec(x_39); +lean_dec(x_2); +x_74 = !lean_is_exclusive(x_45); +if (x_74 == 0) +{ +lean_object* x_75; uint8_t x_76; +x_75 = lean_ctor_get(x_45, 0); +lean_dec(x_75); +x_76 = !lean_is_exclusive(x_48); +if (x_76 == 0) +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; +x_77 = lean_ctor_get(x_48, 3); +lean_dec(x_77); +x_78 = lean_ctor_get(x_48, 2); +lean_dec(x_78); +x_79 = lean_ctor_get(x_48, 1); +lean_dec(x_79); +x_80 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +lean_ctor_set(x_48, 3, x_20); +lean_ctor_set(x_48, 2, x_19); +lean_ctor_set(x_48, 1, x_80); +x_81 = lean_box(0); +lean_ctor_set(x_46, 0, x_81); +return x_45; +} +else +{ +lean_object* x_82; uint8_t x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_82 = lean_ctor_get(x_48, 0); +x_83 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +lean_inc(x_82); +lean_dec(x_48); +x_84 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +x_85 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_85, 0, x_82); +lean_ctor_set(x_85, 1, x_84); +lean_ctor_set(x_85, 2, x_19); +lean_ctor_set(x_85, 3, x_20); +lean_ctor_set_uint8(x_85, sizeof(void*)*4, x_83); +x_86 = lean_box(0); +lean_ctor_set(x_46, 1, x_85); +lean_ctor_set(x_46, 0, x_86); +return x_45; +} +} +else +{ +lean_object* x_87; lean_object* x_88; uint8_t x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_87 = lean_ctor_get(x_45, 1); +lean_inc(x_87); +lean_dec(x_45); +x_88 = lean_ctor_get(x_48, 0); +lean_inc(x_88); +x_89 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +if (lean_is_exclusive(x_48)) { + lean_ctor_release(x_48, 0); + lean_ctor_release(x_48, 1); + lean_ctor_release(x_48, 2); + lean_ctor_release(x_48, 3); + x_90 = x_48; +} else { + lean_dec_ref(x_48); + x_90 = lean_box(0); +} +x_91 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +if (lean_is_scalar(x_90)) { + x_92 = lean_alloc_ctor(0, 4, 1); +} else { + x_92 = x_90; +} +lean_ctor_set(x_92, 0, x_88); +lean_ctor_set(x_92, 1, x_91); +lean_ctor_set(x_92, 2, x_19); +lean_ctor_set(x_92, 3, x_20); +lean_ctor_set_uint8(x_92, sizeof(void*)*4, x_89); +x_93 = lean_box(0); +lean_ctor_set(x_46, 1, x_92); +lean_ctor_set(x_46, 0, x_93); +x_94 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_94, 0, x_46); +lean_ctor_set(x_94, 1, x_87); +return x_94; +} +} +} +else +{ +lean_object* x_95; +x_95 = lean_ctor_get(x_46, 1); +lean_inc(x_95); +lean_dec(x_46); +if (x_21 == 0) +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; uint8_t 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_dec(x_20); +x_96 = lean_ctor_get(x_45, 1); +lean_inc(x_96); +if (lean_is_exclusive(x_45)) { + lean_ctor_release(x_45, 0); + lean_ctor_release(x_45, 1); + x_97 = x_45; +} else { + lean_dec_ref(x_45); + x_97 = lean_box(0); +} +x_98 = lean_ctor_get(x_95, 0); +lean_inc(x_98); +x_99 = lean_ctor_get_uint8(x_95, sizeof(void*)*4); +if (lean_is_exclusive(x_95)) { + lean_ctor_release(x_95, 0); + lean_ctor_release(x_95, 1); + lean_ctor_release(x_95, 2); + lean_ctor_release(x_95, 3); + x_100 = x_95; +} else { + lean_dec_ref(x_95); + x_100 = lean_box(0); +} +if (lean_is_scalar(x_39)) { + x_101 = lean_alloc_ctor(1, 1, 0); +} else { + x_101 = x_39; +} +lean_ctor_set(x_101, 0, x_2); +x_102 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +if (lean_is_scalar(x_100)) { + x_103 = lean_alloc_ctor(0, 4, 1); +} else { + x_103 = x_100; +} +lean_ctor_set(x_103, 0, x_98); +lean_ctor_set(x_103, 1, x_102); +lean_ctor_set(x_103, 2, x_19); +lean_ctor_set(x_103, 3, x_101); +lean_ctor_set_uint8(x_103, sizeof(void*)*4, x_99); +x_104 = lean_box(0); +x_105 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_105, 0, x_104); +lean_ctor_set(x_105, 1, x_103); +if (lean_is_scalar(x_97)) { + x_106 = lean_alloc_ctor(0, 2, 0); +} else { + x_106 = x_97; +} +lean_ctor_set(x_106, 0, x_105); +lean_ctor_set(x_106, 1, x_96); +return x_106; +} +else +{ +lean_object* x_107; lean_object* x_108; lean_object* x_109; uint8_t x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; +lean_dec(x_39); +lean_dec(x_2); +x_107 = lean_ctor_get(x_45, 1); +lean_inc(x_107); +if (lean_is_exclusive(x_45)) { + lean_ctor_release(x_45, 0); + lean_ctor_release(x_45, 1); + x_108 = x_45; +} else { + lean_dec_ref(x_45); + x_108 = lean_box(0); +} +x_109 = lean_ctor_get(x_95, 0); +lean_inc(x_109); +x_110 = lean_ctor_get_uint8(x_95, sizeof(void*)*4); +if (lean_is_exclusive(x_95)) { + lean_ctor_release(x_95, 0); + lean_ctor_release(x_95, 1); + lean_ctor_release(x_95, 2); + lean_ctor_release(x_95, 3); + x_111 = x_95; +} else { + lean_dec_ref(x_95); x_111 = lean_box(0); } -x_112 = lean_ctor_get(x_98, 0); -lean_inc(x_112); -x_113 = lean_ctor_get_uint8(x_98, sizeof(void*)*4); -if (lean_is_exclusive(x_98)) { - lean_ctor_release(x_98, 0); - lean_ctor_release(x_98, 1); - lean_ctor_release(x_98, 2); - lean_ctor_release(x_98, 3); - x_114 = x_98; -} else { - lean_dec_ref(x_98); - x_114 = lean_box(0); -} -x_115 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -if (lean_is_scalar(x_114)) { - x_116 = lean_alloc_ctor(0, 4, 1); -} else { - x_116 = x_114; -} -lean_ctor_set(x_116, 0, x_112); -lean_ctor_set(x_116, 1, x_115); -lean_ctor_set(x_116, 2, x_19); -lean_ctor_set(x_116, 3, x_20); -lean_ctor_set_uint8(x_116, sizeof(void*)*4, x_113); -x_117 = lean_box(0); -x_118 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_118, 1, x_116); +x_112 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; if (lean_is_scalar(x_111)) { - x_119 = lean_alloc_ctor(0, 2, 0); + x_113 = lean_alloc_ctor(0, 4, 1); } else { - x_119 = x_111; + x_113 = x_111; } -lean_ctor_set(x_119, 0, x_118); -lean_ctor_set(x_119, 1, x_110); -return x_119; +lean_ctor_set(x_113, 0, x_109); +lean_ctor_set(x_113, 1, x_112); +lean_ctor_set(x_113, 2, x_19); +lean_ctor_set(x_113, 3, x_20); +lean_ctor_set_uint8(x_113, sizeof(void*)*4, x_110); +x_114 = lean_box(0); +x_115 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_115, 0, x_114); +lean_ctor_set(x_115, 1, x_113); +if (lean_is_scalar(x_108)) { + x_116 = lean_alloc_ctor(0, 2, 0); +} else { + x_116 = x_108; +} +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_107); +return x_116; } } } -block_171: +block_168: { -lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; uint8_t x_128; +lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; uint8_t x_125; +x_120 = lean_ctor_get(x_118, 1); +lean_inc(x_120); +lean_dec(x_118); +x_121 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_120, x_6, x_119); +x_122 = lean_ctor_get(x_121, 0); +lean_inc(x_122); x_123 = lean_ctor_get(x_121, 1); lean_inc(x_123); lean_dec(x_121); -x_124 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_123, x_5, x_122); -x_125 = lean_ctor_get(x_124, 0); -lean_inc(x_125); -x_126 = lean_ctor_get(x_124, 1); -lean_inc(x_126); +x_124 = lean_ctor_get(x_123, 4); +lean_inc(x_124); +x_125 = lean_ctor_get_uint8(x_124, sizeof(void*)*1); lean_dec(x_124); -x_127 = lean_ctor_get(x_126, 4); -lean_inc(x_127); -x_128 = lean_ctor_get_uint8(x_127, sizeof(void*)*1); +if (x_125 == 0) +{ +uint8_t x_126; +lean_dec(x_4); +x_126 = !lean_is_exclusive(x_122); +if (x_126 == 0) +{ +lean_object* x_127; lean_object* x_128; +x_127 = lean_ctor_get(x_122, 0); lean_dec(x_127); -if (x_128 == 0) -{ -uint8_t x_129; -lean_dec(x_3); -x_129 = !lean_is_exclusive(x_125); -if (x_129 == 0) -{ -lean_object* x_130; lean_object* x_131; -x_130 = lean_ctor_get(x_125, 0); -lean_dec(x_130); -x_131 = lean_box(0); -lean_ctor_set(x_125, 0, x_131); -x_45 = x_125; -x_46 = x_126; -goto block_120; +x_128 = lean_box(0); +lean_ctor_set(x_122, 0, x_128); +x_42 = x_122; +x_43 = x_123; +goto block_117; } else { -lean_object* x_132; lean_object* x_133; lean_object* x_134; -x_132 = lean_ctor_get(x_125, 1); -lean_inc(x_132); -lean_dec(x_125); -x_133 = lean_box(0); -x_134 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_134, 0, x_133); -lean_ctor_set(x_134, 1, x_132); -x_45 = x_134; -x_46 = x_126; -goto block_120; +lean_object* x_129; lean_object* x_130; lean_object* x_131; +x_129 = lean_ctor_get(x_122, 1); +lean_inc(x_129); +lean_dec(x_122); +x_130 = lean_box(0); +x_131 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_131, 0, x_130); +lean_ctor_set(x_131, 1, x_129); +x_42 = x_131; +x_43 = x_123; +goto block_117; } } else { -uint8_t x_135; -x_135 = !lean_is_exclusive(x_125); -if (x_135 == 0) +uint8_t x_132; +x_132 = !lean_is_exclusive(x_122); +if (x_132 == 0) { -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_136 = lean_ctor_get(x_125, 0); -x_137 = lean_ctor_get(x_125, 1); -x_138 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_139 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_138, x_5, x_126); -x_140 = lean_ctor_get(x_139, 0); -lean_inc(x_140); -x_141 = lean_unbox(x_140); -lean_dec(x_140); -if (x_141 == 0) +lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; uint8_t x_138; +x_133 = lean_ctor_get(x_122, 0); +x_134 = lean_ctor_get(x_122, 1); +x_135 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_136 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_135, x_6, x_123); +x_137 = lean_ctor_get(x_136, 0); +lean_inc(x_137); +x_138 = lean_unbox(x_137); +lean_dec(x_137); +if (x_138 == 0) { -lean_object* x_142; lean_object* x_143; +lean_object* x_139; lean_object* x_140; +lean_dec(x_133); +lean_dec(x_4); +x_139 = lean_ctor_get(x_136, 1); +lean_inc(x_139); lean_dec(x_136); -lean_dec(x_3); -x_142 = lean_ctor_get(x_139, 1); -lean_inc(x_142); -lean_dec(x_139); -x_143 = lean_box(0); -lean_ctor_set(x_125, 0, x_143); -x_45 = x_125; -x_46 = x_142; -goto block_120; +x_140 = lean_box(0); +lean_ctor_set(x_122, 0, x_140); +x_42 = x_122; +x_43 = x_139; +goto block_117; } else { -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_free_object(x_125); -x_144 = lean_ctor_get(x_139, 1); -lean_inc(x_144); -lean_dec(x_139); -x_145 = lean_unsigned_to_nat(0u); -x_146 = l_Lean_Syntax_formatStxAux___main(x_22, x_23, x_145, x_136); -x_147 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_147, 0, x_146); -x_148 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10; -x_149 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_149, 0, x_148); -lean_ctor_set(x_149, 1, x_147); -x_150 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_138, x_149, x_3, x_137, x_5, x_144); -lean_dec(x_3); -x_151 = lean_ctor_get(x_150, 0); +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_free_object(x_122); +x_141 = lean_ctor_get(x_136, 1); +lean_inc(x_141); +lean_dec(x_136); +x_142 = lean_unsigned_to_nat(0u); +x_143 = l_Lean_Syntax_formatStxAux___main(x_22, x_23, x_142, x_133); +x_144 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_144, 0, x_143); +x_145 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10; +x_146 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_146, 0, x_145); +lean_ctor_set(x_146, 1, x_144); +x_147 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_135, x_146, x_4, x_134, x_6, x_141); +lean_dec(x_4); +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_42 = x_148; +x_43 = x_149; +goto block_117; +} +} +else +{ +lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; uint8_t x_155; +x_150 = lean_ctor_get(x_122, 0); +x_151 = lean_ctor_get(x_122, 1); lean_inc(x_151); -x_152 = lean_ctor_get(x_150, 1); -lean_inc(x_152); -lean_dec(x_150); -x_45 = x_151; -x_46 = x_152; -goto block_120; -} -} -else -{ -lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; uint8_t x_158; -x_153 = lean_ctor_get(x_125, 0); -x_154 = lean_ctor_get(x_125, 1); +lean_inc(x_150); +lean_dec(x_122); +x_152 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_153 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_152, x_6, x_123); +x_154 = lean_ctor_get(x_153, 0); lean_inc(x_154); -lean_inc(x_153); -lean_dec(x_125); -x_155 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_156 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_155, x_5, x_126); -x_157 = lean_ctor_get(x_156, 0); -lean_inc(x_157); -x_158 = lean_unbox(x_157); -lean_dec(x_157); -if (x_158 == 0) +x_155 = lean_unbox(x_154); +lean_dec(x_154); +if (x_155 == 0) { -lean_object* x_159; lean_object* x_160; lean_object* x_161; +lean_object* x_156; lean_object* x_157; lean_object* x_158; +lean_dec(x_150); +lean_dec(x_4); +x_156 = lean_ctor_get(x_153, 1); +lean_inc(x_156); lean_dec(x_153); -lean_dec(x_3); -x_159 = lean_ctor_get(x_156, 1); -lean_inc(x_159); -lean_dec(x_156); -x_160 = lean_box(0); -x_161 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_161, 0, x_160); -lean_ctor_set(x_161, 1, x_154); -x_45 = x_161; -x_46 = x_159; -goto block_120; +x_157 = lean_box(0); +x_158 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_158, 0, x_157); +lean_ctor_set(x_158, 1, x_151); +x_42 = x_158; +x_43 = x_156; +goto block_117; } else { -lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; -x_162 = lean_ctor_get(x_156, 1); -lean_inc(x_162); -lean_dec(x_156); -x_163 = lean_unsigned_to_nat(0u); -x_164 = l_Lean_Syntax_formatStxAux___main(x_22, x_23, x_163, x_153); -x_165 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_165, 0, x_164); -x_166 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10; -x_167 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_167, 0, x_166); -lean_ctor_set(x_167, 1, x_165); -x_168 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_155, x_167, x_3, x_154, x_5, x_162); -lean_dec(x_3); -x_169 = lean_ctor_get(x_168, 0); -lean_inc(x_169); -x_170 = lean_ctor_get(x_168, 1); -lean_inc(x_170); -lean_dec(x_168); -x_45 = x_169; -x_46 = x_170; -goto block_120; +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; +x_159 = lean_ctor_get(x_153, 1); +lean_inc(x_159); +lean_dec(x_153); +x_160 = lean_unsigned_to_nat(0u); +x_161 = l_Lean_Syntax_formatStxAux___main(x_22, x_23, x_160, x_150); +x_162 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_162, 0, x_161); +x_163 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10; +x_164 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_164, 0, x_163); +lean_ctor_set(x_164, 1, x_162); +x_165 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_152, x_164, x_4, x_151, x_6, x_159); +lean_dec(x_4); +x_166 = lean_ctor_get(x_165, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_165, 1); +lean_inc(x_167); +lean_dec(x_165); +x_42 = x_166; +x_43 = x_167; +goto block_117; } } } } -block_242: +block_239: { -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_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; +x_171 = lean_ctor_get(x_169, 1); +lean_inc(x_171); +lean_dec(x_169); +x_172 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_171, x_6, x_170); +x_173 = lean_ctor_get(x_172, 0); +lean_inc(x_173); x_174 = lean_ctor_get(x_172, 1); lean_inc(x_174); lean_dec(x_172); -x_175 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_174, x_5, x_173); -x_176 = lean_ctor_get(x_175, 0); +x_175 = lean_ctor_get(x_173, 0); +lean_inc(x_175); +x_176 = lean_ctor_get(x_173, 1); lean_inc(x_176); -x_177 = lean_ctor_get(x_175, 1); -lean_inc(x_177); -lean_dec(x_175); -x_178 = lean_ctor_get(x_176, 0); -lean_inc(x_178); -x_179 = lean_ctor_get(x_176, 1); -lean_inc(x_179); -lean_dec(x_176); -x_180 = l_Lean_Syntax_getHeadInfo___main(x_178); -if (lean_obj_tag(x_180) == 0) +lean_dec(x_173); +x_177 = l_Lean_Syntax_getHeadInfo___main(x_175); +if (lean_obj_tag(x_177) == 0) { -lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; -x_181 = lean_apply_1(x_1, x_178); -x_182 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_181, x_3, x_179, x_5, x_177); -x_183 = lean_ctor_get(x_182, 0); -lean_inc(x_183); -x_184 = lean_ctor_get(x_182, 1); -lean_inc(x_184); +lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; +x_178 = lean_apply_1(x_1, x_175); +x_179 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_178, x_4, x_176, x_6, x_174); +x_180 = lean_ctor_get(x_179, 0); +lean_inc(x_180); +x_181 = lean_ctor_get(x_179, 1); +lean_inc(x_181); +lean_dec(x_179); +x_118 = x_180; +x_119 = x_181; +goto block_168; +} +else +{ +lean_object* x_182; lean_object* x_183; +x_182 = lean_ctor_get(x_177, 0); +lean_inc(x_182); +lean_dec(x_177); +x_183 = l_Lean_Syntax_getTailInfo___main(x_175); +if (lean_obj_tag(x_183) == 0) +{ +lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_dec(x_182); -x_121 = x_183; -x_122 = x_184; -goto block_171; -} -else -{ -lean_object* x_185; lean_object* x_186; -x_185 = lean_ctor_get(x_180, 0); -lean_inc(x_185); -lean_dec(x_180); -x_186 = l_Lean_Syntax_getTailInfo___main(x_178); -if (lean_obj_tag(x_186) == 0) -{ -lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; +x_184 = lean_apply_1(x_1, x_175); +x_185 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_184, x_4, x_176, x_6, x_174); +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_187 = lean_apply_1(x_1, x_178); -x_188 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_187, x_3, x_179, x_5, x_177); -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_121 = x_189; -x_122 = x_190; -goto block_171; +x_118 = x_186; +x_119 = x_187; +goto block_168; } else { -lean_object* x_191; uint8_t x_192; -x_191 = lean_ctor_get(x_186, 0); +lean_object* x_188; uint8_t x_189; +x_188 = lean_ctor_get(x_183, 0); +lean_inc(x_188); +lean_dec(x_183); +x_189 = !lean_is_exclusive(x_182); +if (x_189 == 0) +{ +lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; uint8_t x_194; +x_190 = lean_ctor_get(x_182, 0); +x_191 = lean_ctor_get(x_182, 1); +x_192 = l___private_Lean_Parser_Module_2__mkEOI___closed__1; lean_inc(x_191); -lean_dec(x_186); -x_192 = !lean_is_exclusive(x_185); -if (x_192 == 0) +lean_ctor_set(x_182, 0, x_192); +x_193 = l_Lean_Syntax_setHeadInfo(x_175, x_182); +x_194 = !lean_is_exclusive(x_188); +if (x_194 == 0) { -lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; uint8_t x_197; -x_193 = lean_ctor_get(x_185, 0); -x_194 = lean_ctor_get(x_185, 1); -x_195 = l___private_Lean_Parser_Module_2__mkEOI___closed__1; -lean_inc(x_194); -lean_ctor_set(x_185, 0, x_195); -x_196 = l_Lean_Syntax_setHeadInfo(x_178, x_185); -x_197 = !lean_is_exclusive(x_191); -if (x_197 == 0) +lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; +x_195 = lean_ctor_get(x_188, 1); +x_196 = lean_ctor_get(x_188, 2); +lean_inc(x_195); +lean_ctor_set(x_188, 2, x_192); +x_197 = l_Lean_Syntax_setTailInfo(x_193, x_188); +x_198 = lean_apply_1(x_1, x_197); +x_199 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_199, 0, x_190); +lean_ctor_set(x_199, 1, x_191); +lean_ctor_set(x_199, 2, x_192); +x_200 = l_Lean_Syntax_setHeadInfo(x_198, x_199); +x_201 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_201, 0, x_192); +lean_ctor_set(x_201, 1, x_195); +lean_ctor_set(x_201, 2, x_196); +x_202 = l_Lean_Syntax_setTailInfo(x_200, x_201); +x_203 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_202, x_4, x_176, x_6, x_174); +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_118 = x_204; +x_119 = x_205; +goto block_168; +} +else { -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; -x_198 = lean_ctor_get(x_191, 1); -x_199 = lean_ctor_get(x_191, 2); -lean_inc(x_198); -lean_ctor_set(x_191, 2, x_195); -x_200 = l_Lean_Syntax_setTailInfo(x_196, x_191); -x_201 = lean_apply_1(x_1, x_200); -x_202 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_202, 0, x_193); -lean_ctor_set(x_202, 1, x_194); -lean_ctor_set(x_202, 2, x_195); -x_203 = l_Lean_Syntax_setHeadInfo(x_201, x_202); -x_204 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_204, 0, x_195); -lean_ctor_set(x_204, 1, x_198); -lean_ctor_set(x_204, 2, x_199); -x_205 = l_Lean_Syntax_setTailInfo(x_203, x_204); -x_206 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_205, x_3, x_179, x_5, x_177); -x_207 = lean_ctor_get(x_206, 0); -lean_inc(x_207); -x_208 = lean_ctor_get(x_206, 1); +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; +x_206 = lean_ctor_get(x_188, 0); +x_207 = lean_ctor_get(x_188, 1); +x_208 = lean_ctor_get(x_188, 2); lean_inc(x_208); -lean_dec(x_206); -x_121 = x_207; -x_122 = x_208; -goto block_171; -} -else -{ -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; -x_209 = lean_ctor_get(x_191, 0); -x_210 = lean_ctor_get(x_191, 1); -x_211 = lean_ctor_get(x_191, 2); -lean_inc(x_211); -lean_inc(x_210); -lean_inc(x_209); -lean_dec(x_191); -lean_inc(x_210); +lean_inc(x_207); +lean_inc(x_206); +lean_dec(x_188); +lean_inc(x_207); +x_209 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_209, 0, x_206); +lean_ctor_set(x_209, 1, x_207); +lean_ctor_set(x_209, 2, x_192); +x_210 = l_Lean_Syntax_setTailInfo(x_193, x_209); +x_211 = lean_apply_1(x_1, x_210); x_212 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_212, 0, x_209); -lean_ctor_set(x_212, 1, x_210); -lean_ctor_set(x_212, 2, x_195); -x_213 = l_Lean_Syntax_setTailInfo(x_196, x_212); -x_214 = lean_apply_1(x_1, x_213); -x_215 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_215, 0, x_193); -lean_ctor_set(x_215, 1, x_194); -lean_ctor_set(x_215, 2, x_195); -x_216 = l_Lean_Syntax_setHeadInfo(x_214, x_215); -x_217 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_217, 0, x_195); -lean_ctor_set(x_217, 1, x_210); -lean_ctor_set(x_217, 2, x_211); -x_218 = l_Lean_Syntax_setTailInfo(x_216, x_217); -x_219 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_218, x_3, x_179, x_5, x_177); -x_220 = lean_ctor_get(x_219, 0); -lean_inc(x_220); -x_221 = lean_ctor_get(x_219, 1); -lean_inc(x_221); -lean_dec(x_219); -x_121 = x_220; -x_122 = x_221; -goto block_171; +lean_ctor_set(x_212, 0, x_190); +lean_ctor_set(x_212, 1, x_191); +lean_ctor_set(x_212, 2, x_192); +x_213 = l_Lean_Syntax_setHeadInfo(x_211, x_212); +x_214 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_214, 0, x_192); +lean_ctor_set(x_214, 1, x_207); +lean_ctor_set(x_214, 2, x_208); +x_215 = l_Lean_Syntax_setTailInfo(x_213, x_214); +x_216 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_215, x_4, x_176, x_6, x_174); +x_217 = lean_ctor_get(x_216, 0); +lean_inc(x_217); +x_218 = lean_ctor_get(x_216, 1); +lean_inc(x_218); +lean_dec(x_216); +x_118 = x_217; +x_119 = x_218; +goto block_168; } } else { -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; -x_222 = lean_ctor_get(x_185, 0); -x_223 = lean_ctor_get(x_185, 1); -x_224 = lean_ctor_get(x_185, 2); -lean_inc(x_224); -lean_inc(x_223); -lean_inc(x_222); -lean_dec(x_185); -x_225 = l___private_Lean_Parser_Module_2__mkEOI___closed__1; -lean_inc(x_223); -x_226 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_226, 0, x_225); -lean_ctor_set(x_226, 1, x_223); -lean_ctor_set(x_226, 2, x_224); -x_227 = l_Lean_Syntax_setHeadInfo(x_178, x_226); -x_228 = lean_ctor_get(x_191, 0); -lean_inc(x_228); -x_229 = lean_ctor_get(x_191, 1); -lean_inc(x_229); -x_230 = lean_ctor_get(x_191, 2); -lean_inc(x_230); -if (lean_is_exclusive(x_191)) { - lean_ctor_release(x_191, 0); - lean_ctor_release(x_191, 1); - lean_ctor_release(x_191, 2); - x_231 = x_191; +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; +x_219 = lean_ctor_get(x_182, 0); +x_220 = lean_ctor_get(x_182, 1); +x_221 = lean_ctor_get(x_182, 2); +lean_inc(x_221); +lean_inc(x_220); +lean_inc(x_219); +lean_dec(x_182); +x_222 = l___private_Lean_Parser_Module_2__mkEOI___closed__1; +lean_inc(x_220); +x_223 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_223, 0, x_222); +lean_ctor_set(x_223, 1, x_220); +lean_ctor_set(x_223, 2, x_221); +x_224 = l_Lean_Syntax_setHeadInfo(x_175, x_223); +x_225 = lean_ctor_get(x_188, 0); +lean_inc(x_225); +x_226 = lean_ctor_get(x_188, 1); +lean_inc(x_226); +x_227 = lean_ctor_get(x_188, 2); +lean_inc(x_227); +if (lean_is_exclusive(x_188)) { + lean_ctor_release(x_188, 0); + lean_ctor_release(x_188, 1); + lean_ctor_release(x_188, 2); + x_228 = x_188; } else { - lean_dec_ref(x_191); - x_231 = lean_box(0); + lean_dec_ref(x_188); + x_228 = lean_box(0); } -lean_inc(x_229); -if (lean_is_scalar(x_231)) { - x_232 = lean_alloc_ctor(0, 3, 0); +lean_inc(x_226); +if (lean_is_scalar(x_228)) { + x_229 = lean_alloc_ctor(0, 3, 0); } else { - x_232 = x_231; + x_229 = x_228; } -lean_ctor_set(x_232, 0, x_228); -lean_ctor_set(x_232, 1, x_229); -lean_ctor_set(x_232, 2, x_225); -x_233 = l_Lean_Syntax_setTailInfo(x_227, x_232); -x_234 = lean_apply_1(x_1, x_233); -x_235 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_235, 0, x_222); -lean_ctor_set(x_235, 1, x_223); -lean_ctor_set(x_235, 2, x_225); -x_236 = l_Lean_Syntax_setHeadInfo(x_234, x_235); -x_237 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_237, 0, x_225); -lean_ctor_set(x_237, 1, x_229); -lean_ctor_set(x_237, 2, x_230); -x_238 = l_Lean_Syntax_setTailInfo(x_236, x_237); -x_239 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_238, x_3, x_179, x_5, x_177); -x_240 = lean_ctor_get(x_239, 0); -lean_inc(x_240); -x_241 = lean_ctor_get(x_239, 1); -lean_inc(x_241); -lean_dec(x_239); -x_121 = x_240; -x_122 = x_241; -goto block_171; +lean_ctor_set(x_229, 0, x_225); +lean_ctor_set(x_229, 1, x_226); +lean_ctor_set(x_229, 2, x_222); +x_230 = l_Lean_Syntax_setTailInfo(x_224, x_229); +x_231 = lean_apply_1(x_1, x_230); +x_232 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_232, 0, x_219); +lean_ctor_set(x_232, 1, x_220); +lean_ctor_set(x_232, 2, x_222); +x_233 = l_Lean_Syntax_setHeadInfo(x_231, x_232); +x_234 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_234, 0, x_222); +lean_ctor_set(x_234, 1, x_226); +lean_ctor_set(x_234, 2, x_227); +x_235 = l_Lean_Syntax_setTailInfo(x_233, x_234); +x_236 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_235, x_4, x_176, x_6, x_174); +x_237 = lean_ctor_get(x_236, 0); +lean_inc(x_237); +x_238 = lean_ctor_get(x_236, 1); +lean_inc(x_238); +lean_dec(x_236); +x_118 = x_237; +x_119 = x_238; +goto block_168; } } } } -block_344: +block_341: { -if (x_44 == 0) +if (x_41 == 0) { -uint8_t x_245; -lean_dec(x_42); +uint8_t x_242; +lean_dec(x_39); lean_dec(x_16); -lean_dec(x_5); -lean_dec(x_3); +lean_dec(x_6); +lean_dec(x_4); lean_dec(x_1); -x_245 = !lean_is_exclusive(x_243); -if (x_245 == 0) +x_242 = !lean_is_exclusive(x_240); +if (x_242 == 0) { -lean_object* x_246; lean_object* x_247; -x_246 = lean_ctor_get(x_243, 1); -x_247 = lean_ctor_get(x_243, 0); -lean_dec(x_247); +lean_object* x_243; lean_object* x_244; +x_243 = lean_ctor_get(x_240, 1); +x_244 = lean_ctor_get(x_240, 0); +lean_dec(x_244); if (x_21 == 0) { -lean_object* x_248; +lean_object* x_245; lean_dec(x_20); -x_248 = lean_ctor_get(x_246, 3); -lean_inc(x_248); -if (lean_obj_tag(x_248) == 0) +x_245 = lean_ctor_get(x_243, 3); +lean_inc(x_245); +if (lean_obj_tag(x_245) == 0) { -uint8_t x_249; -x_249 = !lean_is_exclusive(x_246); -if (x_249 == 0) +uint8_t x_246; +x_246 = !lean_is_exclusive(x_243); +if (x_246 == 0) { -lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; -x_250 = lean_ctor_get(x_246, 3); -lean_dec(x_250); -x_251 = lean_ctor_get(x_246, 2); -lean_dec(x_251); -x_252 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_252, 0, x_2); -lean_ctor_set(x_246, 3, x_252); -lean_ctor_set(x_246, 2, x_19); -x_253 = lean_box(0); -lean_ctor_set(x_243, 0, x_253); -if (lean_is_scalar(x_39)) { - x_254 = lean_alloc_ctor(0, 2, 0); +lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; +x_247 = lean_ctor_get(x_243, 3); +lean_dec(x_247); +x_248 = lean_ctor_get(x_243, 2); +lean_dec(x_248); +x_249 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_249, 0, x_2); +lean_ctor_set(x_243, 3, x_249); +lean_ctor_set(x_243, 2, x_19); +x_250 = lean_box(0); +lean_ctor_set(x_240, 0, x_250); +if (lean_is_scalar(x_36)) { + x_251 = lean_alloc_ctor(0, 2, 0); } else { - x_254 = x_39; + x_251 = x_36; } -lean_ctor_set(x_254, 0, x_243); -lean_ctor_set(x_254, 1, x_244); -return x_254; +lean_ctor_set(x_251, 0, x_240); +lean_ctor_set(x_251, 1, x_241); +return x_251; } else { -lean_object* x_255; lean_object* x_256; uint8_t x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; -x_255 = lean_ctor_get(x_246, 0); -x_256 = lean_ctor_get(x_246, 1); -x_257 = lean_ctor_get_uint8(x_246, sizeof(void*)*4); -lean_inc(x_256); -lean_inc(x_255); -lean_dec(x_246); -x_258 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_258, 0, x_2); -x_259 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_259, 0, x_255); -lean_ctor_set(x_259, 1, x_256); -lean_ctor_set(x_259, 2, x_19); -lean_ctor_set(x_259, 3, x_258); -lean_ctor_set_uint8(x_259, sizeof(void*)*4, x_257); -x_260 = lean_box(0); -lean_ctor_set(x_243, 1, x_259); -lean_ctor_set(x_243, 0, x_260); -if (lean_is_scalar(x_39)) { - x_261 = lean_alloc_ctor(0, 2, 0); +lean_object* x_252; lean_object* x_253; uint8_t x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; +x_252 = lean_ctor_get(x_243, 0); +x_253 = lean_ctor_get(x_243, 1); +x_254 = lean_ctor_get_uint8(x_243, sizeof(void*)*4); +lean_inc(x_253); +lean_inc(x_252); +lean_dec(x_243); +x_255 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_255, 0, x_2); +x_256 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_256, 0, x_252); +lean_ctor_set(x_256, 1, x_253); +lean_ctor_set(x_256, 2, x_19); +lean_ctor_set(x_256, 3, x_255); +lean_ctor_set_uint8(x_256, sizeof(void*)*4, x_254); +x_257 = lean_box(0); +lean_ctor_set(x_240, 1, x_256); +lean_ctor_set(x_240, 0, x_257); +if (lean_is_scalar(x_36)) { + x_258 = lean_alloc_ctor(0, 2, 0); } else { - x_261 = x_39; + x_258 = x_36; } -lean_ctor_set(x_261, 0, x_243); -lean_ctor_set(x_261, 1, x_244); -return x_261; +lean_ctor_set(x_258, 0, x_240); +lean_ctor_set(x_258, 1, x_241); +return x_258; } } else { -uint8_t x_262; -x_262 = !lean_is_exclusive(x_246); +uint8_t x_259; +x_259 = !lean_is_exclusive(x_243); +if (x_259 == 0) +{ +lean_object* x_260; lean_object* x_261; uint8_t x_262; +x_260 = lean_ctor_get(x_243, 3); +lean_dec(x_260); +x_261 = lean_ctor_get(x_243, 2); +lean_dec(x_261); +x_262 = !lean_is_exclusive(x_245); if (x_262 == 0) { -lean_object* x_263; lean_object* x_264; uint8_t x_265; -x_263 = lean_ctor_get(x_246, 3); +lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; +x_263 = lean_ctor_get(x_245, 0); +x_264 = l_Nat_min(x_263, x_2); +lean_dec(x_2); lean_dec(x_263); -x_264 = lean_ctor_get(x_246, 2); -lean_dec(x_264); -x_265 = !lean_is_exclusive(x_248); -if (x_265 == 0) +lean_ctor_set(x_245, 0, x_264); +lean_ctor_set(x_243, 2, x_19); +x_265 = lean_box(0); +lean_ctor_set(x_240, 0, x_265); +if (lean_is_scalar(x_36)) { + x_266 = lean_alloc_ctor(0, 2, 0); +} else { + x_266 = x_36; +} +lean_ctor_set(x_266, 0, x_240); +lean_ctor_set(x_266, 1, x_241); +return x_266; +} +else { -lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; -x_266 = lean_ctor_get(x_248, 0); -x_267 = l_Nat_min(x_266, x_2); +lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; +x_267 = lean_ctor_get(x_245, 0); +lean_inc(x_267); +lean_dec(x_245); +x_268 = l_Nat_min(x_267, x_2); lean_dec(x_2); -lean_dec(x_266); -lean_ctor_set(x_248, 0, x_267); -lean_ctor_set(x_246, 2, x_19); -x_268 = lean_box(0); -lean_ctor_set(x_243, 0, x_268); -if (lean_is_scalar(x_39)) { - x_269 = lean_alloc_ctor(0, 2, 0); +lean_dec(x_267); +x_269 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_269, 0, x_268); +lean_ctor_set(x_243, 3, x_269); +lean_ctor_set(x_243, 2, x_19); +x_270 = lean_box(0); +lean_ctor_set(x_240, 0, x_270); +if (lean_is_scalar(x_36)) { + x_271 = lean_alloc_ctor(0, 2, 0); } else { - x_269 = x_39; + x_271 = x_36; } -lean_ctor_set(x_269, 0, x_243); -lean_ctor_set(x_269, 1, x_244); -return x_269; -} -else -{ -lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; -x_270 = lean_ctor_get(x_248, 0); -lean_inc(x_270); -lean_dec(x_248); -x_271 = l_Nat_min(x_270, x_2); -lean_dec(x_2); -lean_dec(x_270); -x_272 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_272, 0, x_271); -lean_ctor_set(x_246, 3, x_272); -lean_ctor_set(x_246, 2, x_19); -x_273 = lean_box(0); -lean_ctor_set(x_243, 0, x_273); -if (lean_is_scalar(x_39)) { - x_274 = lean_alloc_ctor(0, 2, 0); -} else { - x_274 = x_39; -} -lean_ctor_set(x_274, 0, x_243); -lean_ctor_set(x_274, 1, x_244); -return x_274; +lean_ctor_set(x_271, 0, x_240); +lean_ctor_set(x_271, 1, x_241); +return x_271; } } else { -lean_object* x_275; lean_object* x_276; uint8_t x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; -x_275 = lean_ctor_get(x_246, 0); -x_276 = lean_ctor_get(x_246, 1); -x_277 = lean_ctor_get_uint8(x_246, sizeof(void*)*4); -lean_inc(x_276); -lean_inc(x_275); -lean_dec(x_246); -x_278 = lean_ctor_get(x_248, 0); -lean_inc(x_278); -if (lean_is_exclusive(x_248)) { - lean_ctor_release(x_248, 0); - x_279 = x_248; -} else { - lean_dec_ref(x_248); - x_279 = lean_box(0); -} -x_280 = l_Nat_min(x_278, x_2); -lean_dec(x_2); -lean_dec(x_278); -if (lean_is_scalar(x_279)) { - x_281 = lean_alloc_ctor(1, 1, 0); -} else { - x_281 = x_279; -} -lean_ctor_set(x_281, 0, x_280); -x_282 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_282, 0, x_275); -lean_ctor_set(x_282, 1, x_276); -lean_ctor_set(x_282, 2, x_19); -lean_ctor_set(x_282, 3, x_281); -lean_ctor_set_uint8(x_282, sizeof(void*)*4, x_277); -x_283 = lean_box(0); -lean_ctor_set(x_243, 1, x_282); -lean_ctor_set(x_243, 0, x_283); -if (lean_is_scalar(x_39)) { - x_284 = lean_alloc_ctor(0, 2, 0); -} else { - x_284 = x_39; -} -lean_ctor_set(x_284, 0, x_243); -lean_ctor_set(x_284, 1, x_244); -return x_284; -} -} -} -else -{ -uint8_t x_285; -lean_dec(x_2); -x_285 = !lean_is_exclusive(x_246); -if (x_285 == 0) -{ -lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; -x_286 = lean_ctor_get(x_246, 3); -lean_dec(x_286); -x_287 = lean_ctor_get(x_246, 2); -lean_dec(x_287); -lean_ctor_set(x_246, 3, x_20); -lean_ctor_set(x_246, 2, x_19); -x_288 = lean_box(0); -lean_ctor_set(x_243, 0, x_288); -if (lean_is_scalar(x_39)) { - x_289 = lean_alloc_ctor(0, 2, 0); -} else { - x_289 = x_39; -} -lean_ctor_set(x_289, 0, x_243); -lean_ctor_set(x_289, 1, x_244); -return x_289; -} -else -{ -lean_object* x_290; lean_object* x_291; uint8_t x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; -x_290 = lean_ctor_get(x_246, 0); -x_291 = lean_ctor_get(x_246, 1); -x_292 = lean_ctor_get_uint8(x_246, sizeof(void*)*4); -lean_inc(x_291); -lean_inc(x_290); -lean_dec(x_246); -x_293 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_293, 0, x_290); -lean_ctor_set(x_293, 1, x_291); -lean_ctor_set(x_293, 2, x_19); -lean_ctor_set(x_293, 3, x_20); -lean_ctor_set_uint8(x_293, sizeof(void*)*4, x_292); -x_294 = lean_box(0); -lean_ctor_set(x_243, 1, x_293); -lean_ctor_set(x_243, 0, x_294); -if (lean_is_scalar(x_39)) { - x_295 = lean_alloc_ctor(0, 2, 0); -} else { - x_295 = x_39; -} -lean_ctor_set(x_295, 0, x_243); -lean_ctor_set(x_295, 1, x_244); -return x_295; -} -} -} -else -{ -lean_object* x_296; -x_296 = lean_ctor_get(x_243, 1); -lean_inc(x_296); +lean_object* x_272; lean_object* x_273; uint8_t 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; +x_272 = lean_ctor_get(x_243, 0); +x_273 = lean_ctor_get(x_243, 1); +x_274 = lean_ctor_get_uint8(x_243, sizeof(void*)*4); +lean_inc(x_273); +lean_inc(x_272); lean_dec(x_243); +x_275 = lean_ctor_get(x_245, 0); +lean_inc(x_275); +if (lean_is_exclusive(x_245)) { + lean_ctor_release(x_245, 0); + x_276 = x_245; +} else { + lean_dec_ref(x_245); + x_276 = lean_box(0); +} +x_277 = l_Nat_min(x_275, x_2); +lean_dec(x_2); +lean_dec(x_275); +if (lean_is_scalar(x_276)) { + x_278 = lean_alloc_ctor(1, 1, 0); +} else { + x_278 = x_276; +} +lean_ctor_set(x_278, 0, x_277); +x_279 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_279, 0, x_272); +lean_ctor_set(x_279, 1, x_273); +lean_ctor_set(x_279, 2, x_19); +lean_ctor_set(x_279, 3, x_278); +lean_ctor_set_uint8(x_279, sizeof(void*)*4, x_274); +x_280 = lean_box(0); +lean_ctor_set(x_240, 1, x_279); +lean_ctor_set(x_240, 0, x_280); +if (lean_is_scalar(x_36)) { + x_281 = lean_alloc_ctor(0, 2, 0); +} else { + x_281 = x_36; +} +lean_ctor_set(x_281, 0, x_240); +lean_ctor_set(x_281, 1, x_241); +return x_281; +} +} +} +else +{ +uint8_t x_282; +lean_dec(x_2); +x_282 = !lean_is_exclusive(x_243); +if (x_282 == 0) +{ +lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; +x_283 = lean_ctor_get(x_243, 3); +lean_dec(x_283); +x_284 = lean_ctor_get(x_243, 2); +lean_dec(x_284); +lean_ctor_set(x_243, 3, x_20); +lean_ctor_set(x_243, 2, x_19); +x_285 = lean_box(0); +lean_ctor_set(x_240, 0, x_285); +if (lean_is_scalar(x_36)) { + x_286 = lean_alloc_ctor(0, 2, 0); +} else { + x_286 = x_36; +} +lean_ctor_set(x_286, 0, x_240); +lean_ctor_set(x_286, 1, x_241); +return x_286; +} +else +{ +lean_object* x_287; lean_object* x_288; uint8_t x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; +x_287 = lean_ctor_get(x_243, 0); +x_288 = lean_ctor_get(x_243, 1); +x_289 = lean_ctor_get_uint8(x_243, sizeof(void*)*4); +lean_inc(x_288); +lean_inc(x_287); +lean_dec(x_243); +x_290 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_290, 0, x_287); +lean_ctor_set(x_290, 1, x_288); +lean_ctor_set(x_290, 2, x_19); +lean_ctor_set(x_290, 3, x_20); +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_289); +x_291 = lean_box(0); +lean_ctor_set(x_240, 1, x_290); +lean_ctor_set(x_240, 0, x_291); +if (lean_is_scalar(x_36)) { + x_292 = lean_alloc_ctor(0, 2, 0); +} else { + x_292 = x_36; +} +lean_ctor_set(x_292, 0, x_240); +lean_ctor_set(x_292, 1, x_241); +return x_292; +} +} +} +else +{ +lean_object* x_293; +x_293 = lean_ctor_get(x_240, 1); +lean_inc(x_293); +lean_dec(x_240); if (x_21 == 0) { -lean_object* x_297; +lean_object* x_294; lean_dec(x_20); -x_297 = lean_ctor_get(x_296, 3); -lean_inc(x_297); -if (lean_obj_tag(x_297) == 0) +x_294 = lean_ctor_get(x_293, 3); +lean_inc(x_294); +if (lean_obj_tag(x_294) == 0) { -lean_object* x_298; lean_object* x_299; uint8_t x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; -x_298 = lean_ctor_get(x_296, 0); -lean_inc(x_298); -x_299 = lean_ctor_get(x_296, 1); -lean_inc(x_299); -x_300 = lean_ctor_get_uint8(x_296, sizeof(void*)*4); -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); - x_301 = x_296; +lean_object* x_295; lean_object* x_296; uint8_t 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; +x_295 = lean_ctor_get(x_293, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_293, 1); +lean_inc(x_296); +x_297 = lean_ctor_get_uint8(x_293, sizeof(void*)*4); +if (lean_is_exclusive(x_293)) { + lean_ctor_release(x_293, 0); + lean_ctor_release(x_293, 1); + lean_ctor_release(x_293, 2); + lean_ctor_release(x_293, 3); + x_298 = x_293; } else { - lean_dec_ref(x_296); - x_301 = lean_box(0); + lean_dec_ref(x_293); + x_298 = lean_box(0); } -x_302 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_302, 0, x_2); -if (lean_is_scalar(x_301)) { - x_303 = lean_alloc_ctor(0, 4, 1); +x_299 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_299, 0, x_2); +if (lean_is_scalar(x_298)) { + x_300 = lean_alloc_ctor(0, 4, 1); } else { - x_303 = x_301; + x_300 = x_298; } -lean_ctor_set(x_303, 0, x_298); -lean_ctor_set(x_303, 1, x_299); -lean_ctor_set(x_303, 2, x_19); -lean_ctor_set(x_303, 3, x_302); -lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_300); -x_304 = lean_box(0); -x_305 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_305, 0, x_304); -lean_ctor_set(x_305, 1, x_303); -if (lean_is_scalar(x_39)) { - x_306 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_300, 0, x_295); +lean_ctor_set(x_300, 1, x_296); +lean_ctor_set(x_300, 2, x_19); +lean_ctor_set(x_300, 3, x_299); +lean_ctor_set_uint8(x_300, sizeof(void*)*4, x_297); +x_301 = lean_box(0); +x_302 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_302, 0, x_301); +lean_ctor_set(x_302, 1, x_300); +if (lean_is_scalar(x_36)) { + x_303 = lean_alloc_ctor(0, 2, 0); } else { - x_306 = x_39; + x_303 = x_36; } -lean_ctor_set(x_306, 0, x_305); -lean_ctor_set(x_306, 1, x_244); -return x_306; +lean_ctor_set(x_303, 0, x_302); +lean_ctor_set(x_303, 1, x_241); +return x_303; } else { -lean_object* x_307; lean_object* x_308; uint8_t 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; -x_307 = lean_ctor_get(x_296, 0); -lean_inc(x_307); -x_308 = lean_ctor_get(x_296, 1); +lean_object* x_304; lean_object* x_305; uint8_t x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; +x_304 = lean_ctor_get(x_293, 0); +lean_inc(x_304); +x_305 = lean_ctor_get(x_293, 1); +lean_inc(x_305); +x_306 = lean_ctor_get_uint8(x_293, sizeof(void*)*4); +if (lean_is_exclusive(x_293)) { + lean_ctor_release(x_293, 0); + lean_ctor_release(x_293, 1); + lean_ctor_release(x_293, 2); + lean_ctor_release(x_293, 3); + x_307 = x_293; +} else { + lean_dec_ref(x_293); + x_307 = lean_box(0); +} +x_308 = lean_ctor_get(x_294, 0); lean_inc(x_308); -x_309 = lean_ctor_get_uint8(x_296, sizeof(void*)*4); -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); - x_310 = x_296; +if (lean_is_exclusive(x_294)) { + lean_ctor_release(x_294, 0); + x_309 = x_294; } else { - lean_dec_ref(x_296); - x_310 = lean_box(0); + lean_dec_ref(x_294); + x_309 = lean_box(0); } -x_311 = lean_ctor_get(x_297, 0); -lean_inc(x_311); -if (lean_is_exclusive(x_297)) { - lean_ctor_release(x_297, 0); - x_312 = x_297; -} else { - lean_dec_ref(x_297); - x_312 = lean_box(0); -} -x_313 = l_Nat_min(x_311, x_2); +x_310 = l_Nat_min(x_308, x_2); lean_dec(x_2); -lean_dec(x_311); -if (lean_is_scalar(x_312)) { - x_314 = lean_alloc_ctor(1, 1, 0); +lean_dec(x_308); +if (lean_is_scalar(x_309)) { + x_311 = lean_alloc_ctor(1, 1, 0); } else { - x_314 = x_312; + x_311 = x_309; } +lean_ctor_set(x_311, 0, x_310); +if (lean_is_scalar(x_307)) { + x_312 = lean_alloc_ctor(0, 4, 1); +} else { + x_312 = x_307; +} +lean_ctor_set(x_312, 0, x_304); +lean_ctor_set(x_312, 1, x_305); +lean_ctor_set(x_312, 2, x_19); +lean_ctor_set(x_312, 3, x_311); +lean_ctor_set_uint8(x_312, sizeof(void*)*4, x_306); +x_313 = lean_box(0); +x_314 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_314, 0, x_313); -if (lean_is_scalar(x_310)) { - x_315 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_314, 1, x_312); +if (lean_is_scalar(x_36)) { + x_315 = lean_alloc_ctor(0, 2, 0); } else { - x_315 = x_310; + x_315 = x_36; } -lean_ctor_set(x_315, 0, x_307); -lean_ctor_set(x_315, 1, x_308); -lean_ctor_set(x_315, 2, x_19); -lean_ctor_set(x_315, 3, x_314); -lean_ctor_set_uint8(x_315, sizeof(void*)*4, x_309); -x_316 = lean_box(0); -x_317 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_317, 0, x_316); -lean_ctor_set(x_317, 1, x_315); -if (lean_is_scalar(x_39)) { - x_318 = lean_alloc_ctor(0, 2, 0); -} else { - x_318 = x_39; -} -lean_ctor_set(x_318, 0, x_317); -lean_ctor_set(x_318, 1, x_244); -return x_318; +lean_ctor_set(x_315, 0, x_314); +lean_ctor_set(x_315, 1, x_241); +return x_315; } } else { -lean_object* x_319; lean_object* x_320; uint8_t 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_316; lean_object* x_317; uint8_t x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_dec(x_2); -x_319 = lean_ctor_get(x_296, 0); -lean_inc(x_319); -x_320 = lean_ctor_get(x_296, 1); -lean_inc(x_320); -x_321 = lean_ctor_get_uint8(x_296, sizeof(void*)*4); -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); - x_322 = x_296; +x_316 = lean_ctor_get(x_293, 0); +lean_inc(x_316); +x_317 = lean_ctor_get(x_293, 1); +lean_inc(x_317); +x_318 = lean_ctor_get_uint8(x_293, sizeof(void*)*4); +if (lean_is_exclusive(x_293)) { + lean_ctor_release(x_293, 0); + lean_ctor_release(x_293, 1); + lean_ctor_release(x_293, 2); + lean_ctor_release(x_293, 3); + x_319 = x_293; } else { - lean_dec_ref(x_296); - x_322 = lean_box(0); + lean_dec_ref(x_293); + x_319 = lean_box(0); } -if (lean_is_scalar(x_322)) { - x_323 = lean_alloc_ctor(0, 4, 1); +if (lean_is_scalar(x_319)) { + x_320 = lean_alloc_ctor(0, 4, 1); } else { - x_323 = x_322; + x_320 = x_319; } -lean_ctor_set(x_323, 0, x_319); -lean_ctor_set(x_323, 1, x_320); -lean_ctor_set(x_323, 2, x_19); -lean_ctor_set(x_323, 3, x_20); -lean_ctor_set_uint8(x_323, sizeof(void*)*4, x_321); -x_324 = lean_box(0); -x_325 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_325, 0, x_324); -lean_ctor_set(x_325, 1, x_323); -if (lean_is_scalar(x_39)) { - x_326 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_320, 0, x_316); +lean_ctor_set(x_320, 1, x_317); +lean_ctor_set(x_320, 2, x_19); +lean_ctor_set(x_320, 3, x_20); +lean_ctor_set_uint8(x_320, sizeof(void*)*4, x_318); +x_321 = lean_box(0); +x_322 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_322, 0, x_321); +lean_ctor_set(x_322, 1, x_320); +if (lean_is_scalar(x_36)) { + x_323 = lean_alloc_ctor(0, 2, 0); } else { - x_326 = x_39; + x_323 = x_36; } -lean_ctor_set(x_326, 0, x_325); -lean_ctor_set(x_326, 1, x_244); -return x_326; +lean_ctor_set(x_323, 0, x_322); +lean_ctor_set(x_323, 1, x_241); +return x_323; } } } else { -uint8_t x_327; -lean_dec(x_39); -x_327 = !lean_is_exclusive(x_243); -if (x_327 == 0) +uint8_t x_324; +lean_dec(x_36); +x_324 = !lean_is_exclusive(x_240); +if (x_324 == 0) { -lean_object* x_328; lean_object* x_329; lean_object* x_330; uint8_t x_331; -x_328 = lean_ctor_get(x_243, 1); -x_329 = lean_ctor_get(x_243, 0); -lean_dec(x_329); -x_330 = lean_unsigned_to_nat(0u); -x_331 = lean_nat_dec_lt(x_330, x_16); +lean_object* x_325; lean_object* x_326; lean_object* x_327; uint8_t x_328; +x_325 = lean_ctor_get(x_240, 1); +x_326 = lean_ctor_get(x_240, 0); +lean_dec(x_326); +x_327 = lean_unsigned_to_nat(0u); +x_328 = lean_nat_dec_lt(x_327, x_16); lean_dec(x_16); -if (x_331 == 0) +if (x_328 == 0) { -lean_object* x_332; -x_332 = lean_box(0); -lean_ctor_set(x_243, 0, x_332); -x_172 = x_243; -x_173 = x_244; -goto block_242; +lean_object* x_329; +x_329 = lean_box(0); +lean_ctor_set(x_240, 0, x_329); +x_169 = x_240; +x_170 = x_241; +goto block_239; } else { -lean_object* x_333; lean_object* x_334; lean_object* x_335; -lean_free_object(x_243); -x_333 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg(x_328, x_5, x_244); -x_334 = lean_ctor_get(x_333, 0); -lean_inc(x_334); -x_335 = lean_ctor_get(x_333, 1); -lean_inc(x_335); -lean_dec(x_333); -x_172 = x_334; -x_173 = x_335; -goto block_242; +lean_object* x_330; lean_object* x_331; lean_object* x_332; +lean_free_object(x_240); +x_330 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg(x_325, x_6, x_241); +x_331 = lean_ctor_get(x_330, 0); +lean_inc(x_331); +x_332 = lean_ctor_get(x_330, 1); +lean_inc(x_332); +lean_dec(x_330); +x_169 = x_331; +x_170 = x_332; +goto block_239; } } else { -lean_object* x_336; lean_object* x_337; uint8_t x_338; -x_336 = lean_ctor_get(x_243, 1); -lean_inc(x_336); -lean_dec(x_243); -x_337 = lean_unsigned_to_nat(0u); -x_338 = lean_nat_dec_lt(x_337, x_16); +lean_object* x_333; lean_object* x_334; uint8_t x_335; +x_333 = lean_ctor_get(x_240, 1); +lean_inc(x_333); +lean_dec(x_240); +x_334 = lean_unsigned_to_nat(0u); +x_335 = lean_nat_dec_lt(x_334, x_16); lean_dec(x_16); -if (x_338 == 0) +if (x_335 == 0) { -lean_object* x_339; lean_object* x_340; -x_339 = lean_box(0); -x_340 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_340, 0, x_339); -lean_ctor_set(x_340, 1, x_336); -x_172 = x_340; -x_173 = x_244; -goto block_242; +lean_object* x_336; lean_object* x_337; +x_336 = lean_box(0); +x_337 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_337, 0, x_336); +lean_ctor_set(x_337, 1, x_333); +x_169 = x_337; +x_170 = x_241; +goto block_239; } else { -lean_object* x_341; lean_object* x_342; lean_object* x_343; -x_341 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg(x_336, x_5, x_244); -x_342 = lean_ctor_get(x_341, 0); -lean_inc(x_342); -x_343 = lean_ctor_get(x_341, 1); -lean_inc(x_343); -lean_dec(x_341); -x_172 = x_342; -x_173 = x_343; -goto block_242; +lean_object* x_338; lean_object* x_339; lean_object* x_340; +x_338 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg(x_333, x_6, x_241); +x_339 = lean_ctor_get(x_338, 0); +lean_inc(x_339); +x_340 = lean_ctor_get(x_338, 1); +lean_inc(x_340); +lean_dec(x_338); +x_169 = x_339; +x_170 = x_340; +goto block_239; } } } } -block_379: +block_376: { -lean_object* x_347; uint8_t x_348; -x_347 = lean_ctor_get(x_345, 0); -lean_inc(x_347); -x_348 = lean_unbox(x_347); -lean_dec(x_347); -if (x_348 == 0) +lean_object* x_344; uint8_t x_345; +x_344 = lean_ctor_get(x_342, 0); +lean_inc(x_344); +x_345 = lean_unbox(x_344); +lean_dec(x_344); +if (x_345 == 0) { -uint8_t x_349; -lean_dec(x_41); -lean_dec(x_40); +uint8_t x_346; +lean_dec(x_38); +lean_dec(x_37); lean_dec(x_18); -x_349 = !lean_is_exclusive(x_345); -if (x_349 == 0) +x_346 = !lean_is_exclusive(x_342); +if (x_346 == 0) { -lean_object* x_350; lean_object* x_351; -x_350 = lean_ctor_get(x_345, 0); -lean_dec(x_350); -x_351 = lean_box(0); -lean_ctor_set(x_345, 0, x_351); -x_243 = x_345; -x_244 = x_346; -goto block_344; +lean_object* x_347; lean_object* x_348; +x_347 = lean_ctor_get(x_342, 0); +lean_dec(x_347); +x_348 = lean_box(0); +lean_ctor_set(x_342, 0, x_348); +x_240 = x_342; +x_241 = x_343; +goto block_341; } else { -lean_object* x_352; lean_object* x_353; lean_object* x_354; -x_352 = lean_ctor_get(x_345, 1); +lean_object* x_349; lean_object* x_350; lean_object* x_351; +x_349 = lean_ctor_get(x_342, 1); +lean_inc(x_349); +lean_dec(x_342); +x_350 = lean_box(0); +x_351 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_351, 0, x_350); +lean_ctor_set(x_351, 1, x_349); +x_240 = x_351; +x_241 = x_343; +goto block_341; +} +} +else +{ +lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; 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; +x_352 = lean_ctor_get(x_342, 1); lean_inc(x_352); -lean_dec(x_345); -x_353 = lean_box(0); -x_354 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_354, 0, x_353); -lean_ctor_set(x_354, 1, x_352); -x_243 = x_354; -x_244 = x_346; -goto block_344; -} -} -else -{ -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; -x_355 = lean_ctor_get(x_345, 1); -lean_inc(x_355); -lean_dec(x_345); +lean_dec(x_342); lean_inc(x_2); -x_356 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_2); -x_357 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_357, 0, x_356); -x_358 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13; -x_359 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_359, 0, x_358); -lean_ctor_set(x_359, 1, x_357); -x_360 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16; +x_353 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_2); +x_354 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_354, 0, x_353); +x_355 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13; +x_356 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_356, 0, x_355); +lean_ctor_set(x_356, 1, x_354); +x_357 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16; +x_358 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_358, 0, x_356); +lean_ctor_set(x_358, 1, x_357); +x_359 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_38); +x_360 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_360, 0, x_359); x_361 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_361, 0, x_359); +lean_ctor_set(x_361, 0, x_358); lean_ctor_set(x_361, 1, x_360); -x_362 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_41); -x_363 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_363, 0, x_362); -x_364 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_364, 0, x_361); -lean_ctor_set(x_364, 1, x_363); -x_365 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; +x_362 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; +x_363 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_363, 0, x_361); +lean_ctor_set(x_363, 1, x_362); +x_364 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(x_37); +x_365 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_365, 0, x_364); x_366 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_366, 0, x_364); +lean_ctor_set(x_366, 0, x_363); lean_ctor_set(x_366, 1, x_365); -x_367 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(x_40); -x_368 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_368, 0, x_367); -x_369 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_369, 0, x_366); -lean_ctor_set(x_369, 1, x_368); -x_370 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19; +x_367 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19; +x_368 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_368, 0, x_366); +lean_ctor_set(x_368, 1, x_367); +x_369 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(x_18); +x_370 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_370, 0, x_369); x_371 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_371, 0, x_369); +lean_ctor_set(x_371, 0, x_368); lean_ctor_set(x_371, 1, x_370); -x_372 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(x_18); -x_373 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_373, 0, x_372); -x_374 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_374, 0, x_371); -lean_ctor_set(x_374, 1, x_373); -x_375 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_376 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_375, x_374, x_3, x_355, x_5, x_346); -x_377 = lean_ctor_get(x_376, 0); -lean_inc(x_377); -x_378 = lean_ctor_get(x_376, 1); -lean_inc(x_378); -lean_dec(x_376); -x_243 = x_377; -x_244 = x_378; -goto block_344; +x_372 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_373 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_372, x_371, x_4, x_352, x_6, x_343); +x_374 = lean_ctor_get(x_373, 0); +lean_inc(x_374); +x_375 = lean_ctor_get(x_373, 1); +lean_inc(x_375); +lean_dec(x_373); +x_240 = x_374; +x_241 = x_375; +goto block_341; } } } @@ -5652,923 +5688,920 @@ goto block_344; } else { -uint8_t x_397; +uint8_t x_394; lean_dec(x_20); lean_dec(x_19); lean_dec(x_18); lean_dec(x_16); -lean_dec(x_5); -lean_dec(x_3); +lean_dec(x_6); +lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_397 = !lean_is_exclusive(x_28); -if (x_397 == 0) +x_394 = !lean_is_exclusive(x_25); +if (x_394 == 0) { -return x_28; +return x_25; } else { -lean_object* x_398; lean_object* x_399; lean_object* x_400; -x_398 = lean_ctor_get(x_28, 0); -x_399 = lean_ctor_get(x_28, 1); +lean_object* x_395; lean_object* x_396; lean_object* x_397; +x_395 = lean_ctor_get(x_25, 0); +x_396 = lean_ctor_get(x_25, 1); +lean_inc(x_396); +lean_inc(x_395); +lean_dec(x_25); +x_397 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_397, 0, x_395); +lean_ctor_set(x_397, 1, x_396); +return x_397; +} +} +} +else +{ +lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; uint8_t x_402; lean_object* x_403; uint8_t x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; +x_398 = lean_ctor_get(x_14, 0); +x_399 = lean_ctor_get(x_14, 1); +x_400 = lean_ctor_get(x_14, 2); +x_401 = lean_ctor_get(x_14, 3); +x_402 = lean_ctor_get_uint8(x_14, sizeof(void*)*4); +lean_inc(x_401); +lean_inc(x_400); lean_inc(x_399); lean_inc(x_398); -lean_dec(x_28); -x_400 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_400, 0, x_398); -lean_ctor_set(x_400, 1, x_399); -return x_400; -} -} -} -else -{ -lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; uint8_t x_405; lean_object* x_406; uint8_t 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; -x_401 = lean_ctor_get(x_14, 0); -x_402 = lean_ctor_get(x_14, 1); -x_403 = lean_ctor_get(x_14, 2); -x_404 = lean_ctor_get(x_14, 3); -x_405 = lean_ctor_get_uint8(x_14, sizeof(void*)*4); -lean_inc(x_404); -lean_inc(x_403); -lean_inc(x_402); -lean_inc(x_401); lean_dec(x_14); -x_406 = lean_box(0); -x_407 = 0; -x_408 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_408, 0, x_401); -lean_ctor_set(x_408, 1, x_406); -lean_ctor_set(x_408, 2, x_406); -lean_ctor_set(x_408, 3, x_406); -lean_ctor_set_uint8(x_408, sizeof(void*)*4, x_407); -x_409 = l_Lean_Syntax_getKind(x_10); -x_410 = lean_box(0); -x_411 = l_Lean_mkConst(x_409, x_410); +x_403 = lean_box(0); +x_404 = 0; +x_405 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_405, 0, x_398); +lean_ctor_set(x_405, 1, x_403); +lean_ctor_set(x_405, 2, x_403); +lean_ctor_set(x_405, 3, x_403); +lean_ctor_set_uint8(x_405, sizeof(void*)*4, x_404); lean_inc(x_1); -x_412 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_412, 0, x_1); -lean_inc(x_5); -x_413 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_411, x_412, x_408, x_5, x_15); -if (lean_obj_tag(x_413) == 0) +x_406 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_406, 0, x_1); +lean_inc(x_6); +x_407 = lean_apply_4(x_3, x_406, x_405, x_6, x_15); +if (lean_obj_tag(x_407) == 0) { -lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; -x_414 = lean_ctor_get(x_413, 0); -lean_inc(x_414); -x_415 = lean_ctor_get(x_414, 1); -lean_inc(x_415); -if (lean_is_exclusive(x_414)) { - lean_ctor_release(x_414, 0); - lean_ctor_release(x_414, 1); - x_416 = x_414; +lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; +x_408 = lean_ctor_get(x_407, 0); +lean_inc(x_408); +x_409 = lean_ctor_get(x_408, 1); +lean_inc(x_409); +if (lean_is_exclusive(x_408)) { + lean_ctor_release(x_408, 0); + lean_ctor_release(x_408, 1); + x_410 = x_408; } else { - lean_dec_ref(x_414); - x_416 = lean_box(0); + lean_dec_ref(x_408); + x_410 = lean_box(0); } -x_417 = lean_ctor_get(x_415, 2); -lean_inc(x_417); -if (lean_obj_tag(x_417) == 0) +x_411 = lean_ctor_get(x_409, 2); +lean_inc(x_411); +if (lean_obj_tag(x_411) == 0) { -lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; -lean_dec(x_416); -lean_dec(x_404); -lean_dec(x_403); -lean_dec(x_402); +lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; +lean_dec(x_410); +lean_dec(x_401); +lean_dec(x_400); +lean_dec(x_399); lean_dec(x_16); lean_dec(x_2); lean_dec(x_1); -x_418 = lean_ctor_get(x_413, 1); -lean_inc(x_418); -lean_dec(x_413); -x_419 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3; -x_420 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6; -x_421 = lean_panic_fn(x_419, x_420); -x_422 = lean_apply_4(x_421, x_3, x_415, x_5, x_418); -return x_422; +x_412 = lean_ctor_get(x_407, 1); +lean_inc(x_412); +lean_dec(x_407); +x_413 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3; +x_414 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6; +x_415 = lean_panic_fn(x_413, x_414); +x_416 = lean_apply_4(x_415, x_4, x_409, x_6, x_412); +return x_416; } else { -lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; uint8_t x_428; uint8_t x_622; -x_423 = lean_ctor_get(x_413, 1); -lean_inc(x_423); -if (lean_is_exclusive(x_413)) { - lean_ctor_release(x_413, 0); - lean_ctor_release(x_413, 1); - x_424 = x_413; +lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; uint8_t x_422; uint8_t x_616; +x_417 = lean_ctor_get(x_407, 1); +lean_inc(x_417); +if (lean_is_exclusive(x_407)) { + lean_ctor_release(x_407, 0); + lean_ctor_release(x_407, 1); + x_418 = x_407; } else { - lean_dec_ref(x_413); - x_424 = lean_box(0); + lean_dec_ref(x_407); + x_418 = lean_box(0); } -x_425 = lean_ctor_get(x_415, 3); -lean_inc(x_425); -x_426 = lean_ctor_get(x_417, 0); -lean_inc(x_426); -if (lean_is_exclusive(x_417)) { - lean_ctor_release(x_417, 0); - x_427 = x_417; +x_419 = lean_ctor_get(x_409, 3); +lean_inc(x_419); +x_420 = lean_ctor_get(x_411, 0); +lean_inc(x_420); +if (lean_is_exclusive(x_411)) { + lean_ctor_release(x_411, 0); + x_421 = x_411; } else { - lean_dec_ref(x_417); - x_427 = lean_box(0); + lean_dec_ref(x_411); + x_421 = lean_box(0); } -x_622 = lean_nat_dec_lt(x_426, x_2); -if (x_622 == 0) +x_616 = lean_nat_dec_lt(x_420, x_2); +if (x_616 == 0) { -if (lean_obj_tag(x_425) == 0) +if (lean_obj_tag(x_419) == 0) { -x_428 = x_622; -goto block_621; +x_422 = x_616; +goto block_615; } else { -if (lean_obj_tag(x_402) == 0) +if (lean_obj_tag(x_399) == 0) { -x_428 = x_622; -goto block_621; +x_422 = x_616; +goto block_615; } else { -lean_object* x_623; lean_object* x_624; uint8_t x_625; -x_623 = lean_ctor_get(x_425, 0); -lean_inc(x_623); -x_624 = lean_ctor_get(x_402, 0); -lean_inc(x_624); -x_625 = lean_nat_dec_le(x_623, x_624); -lean_dec(x_624); -lean_dec(x_623); -x_428 = x_625; -goto block_621; +lean_object* x_617; lean_object* x_618; uint8_t x_619; +x_617 = lean_ctor_get(x_419, 0); +lean_inc(x_617); +x_618 = lean_ctor_get(x_399, 0); +lean_inc(x_618); +x_619 = lean_nat_dec_le(x_617, x_618); +lean_dec(x_618); +lean_dec(x_617); +x_422 = x_619; +goto block_615; } } } else { -uint8_t x_626; -x_626 = 1; -x_428 = x_626; -goto block_621; -} -block_621: -{ -uint8_t x_429; -if (x_428 == 0) -{ -x_429 = x_407; -goto block_619; -} -else -{ uint8_t x_620; x_620 = 1; -x_429 = x_620; -goto block_619; +x_422 = x_620; +goto block_615; } -block_619: +block_615: { -lean_object* x_430; lean_object* x_431; lean_object* x_459; lean_object* x_460; lean_object* x_491; lean_object* x_492; lean_object* x_533; lean_object* x_534; lean_object* x_577; lean_object* x_578; lean_object* x_610; uint8_t x_611; -x_610 = lean_ctor_get(x_423, 4); +uint8_t x_423; +if (x_422 == 0) +{ +x_423 = x_404; +goto block_613; +} +else +{ +uint8_t x_614; +x_614 = 1; +x_423 = x_614; +goto block_613; +} +block_613: +{ +lean_object* x_424; lean_object* x_425; lean_object* x_453; lean_object* x_454; lean_object* x_485; lean_object* x_486; lean_object* x_527; lean_object* x_528; lean_object* x_571; lean_object* x_572; lean_object* x_604; uint8_t x_605; +x_604 = lean_ctor_get(x_417, 4); +lean_inc(x_604); +x_605 = lean_ctor_get_uint8(x_604, sizeof(void*)*1); +lean_dec(x_604); +if (x_605 == 0) +{ +lean_object* x_606; lean_object* x_607; +x_606 = lean_box(x_404); +if (lean_is_scalar(x_410)) { + x_607 = lean_alloc_ctor(0, 2, 0); +} else { + x_607 = x_410; +} +lean_ctor_set(x_607, 0, x_606); +lean_ctor_set(x_607, 1, x_409); +x_571 = x_607; +x_572 = x_417; +goto block_603; +} +else +{ +lean_object* x_608; lean_object* x_609; lean_object* x_610; lean_object* x_611; lean_object* x_612; +x_608 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_609 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_608, x_6, x_417); +x_610 = lean_ctor_get(x_609, 0); lean_inc(x_610); -x_611 = lean_ctor_get_uint8(x_610, sizeof(void*)*1); -lean_dec(x_610); -if (x_611 == 0) -{ -lean_object* x_612; lean_object* x_613; -x_612 = lean_box(x_407); -if (lean_is_scalar(x_416)) { - x_613 = lean_alloc_ctor(0, 2, 0); +x_611 = lean_ctor_get(x_609, 1); +lean_inc(x_611); +lean_dec(x_609); +if (lean_is_scalar(x_410)) { + x_612 = lean_alloc_ctor(0, 2, 0); } else { - x_613 = x_416; + x_612 = x_410; } -lean_ctor_set(x_613, 0, x_612); -lean_ctor_set(x_613, 1, x_415); -x_577 = x_613; -x_578 = x_423; -goto block_609; +lean_ctor_set(x_612, 0, x_610); +lean_ctor_set(x_612, 1, x_409); +x_571 = x_612; +x_572 = x_611; +goto block_603; +} +block_452: +{ +lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; +x_426 = lean_ctor_get(x_424, 1); +lean_inc(x_426); +lean_dec(x_424); +x_427 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_426, x_6, x_425); +lean_dec(x_6); +x_428 = lean_ctor_get(x_427, 0); +lean_inc(x_428); +x_429 = lean_ctor_get(x_428, 1); +lean_inc(x_429); +if (lean_is_exclusive(x_428)) { + lean_ctor_release(x_428, 0); + lean_ctor_release(x_428, 1); + x_430 = x_428; +} else { + lean_dec_ref(x_428); + x_430 = lean_box(0); +} +if (x_402 == 0) +{ +lean_object* x_431; lean_object* x_432; lean_object* x_433; uint8_t 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_dec(x_401); +x_431 = lean_ctor_get(x_427, 1); +lean_inc(x_431); +if (lean_is_exclusive(x_427)) { + lean_ctor_release(x_427, 0); + lean_ctor_release(x_427, 1); + x_432 = x_427; +} else { + lean_dec_ref(x_427); + x_432 = lean_box(0); +} +x_433 = lean_ctor_get(x_429, 0); +lean_inc(x_433); +x_434 = lean_ctor_get_uint8(x_429, sizeof(void*)*4); +if (lean_is_exclusive(x_429)) { + lean_ctor_release(x_429, 0); + lean_ctor_release(x_429, 1); + lean_ctor_release(x_429, 2); + lean_ctor_release(x_429, 3); + x_435 = x_429; +} else { + lean_dec_ref(x_429); + x_435 = lean_box(0); +} +if (lean_is_scalar(x_421)) { + x_436 = lean_alloc_ctor(1, 1, 0); +} else { + x_436 = x_421; +} +lean_ctor_set(x_436, 0, x_2); +x_437 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +if (lean_is_scalar(x_435)) { + x_438 = lean_alloc_ctor(0, 4, 1); +} else { + x_438 = x_435; +} +lean_ctor_set(x_438, 0, x_433); +lean_ctor_set(x_438, 1, x_437); +lean_ctor_set(x_438, 2, x_400); +lean_ctor_set(x_438, 3, x_436); +lean_ctor_set_uint8(x_438, sizeof(void*)*4, x_434); +x_439 = lean_box(0); +if (lean_is_scalar(x_430)) { + x_440 = lean_alloc_ctor(0, 2, 0); +} else { + x_440 = x_430; +} +lean_ctor_set(x_440, 0, x_439); +lean_ctor_set(x_440, 1, x_438); +if (lean_is_scalar(x_432)) { + x_441 = lean_alloc_ctor(0, 2, 0); +} else { + x_441 = x_432; +} +lean_ctor_set(x_441, 0, x_440); +lean_ctor_set(x_441, 1, x_431); +return x_441; } else { -lean_object* x_614; lean_object* x_615; lean_object* x_616; lean_object* x_617; lean_object* x_618; -x_614 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_615 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_614, x_5, x_423); -x_616 = lean_ctor_get(x_615, 0); -lean_inc(x_616); -x_617 = lean_ctor_get(x_615, 1); -lean_inc(x_617); -lean_dec(x_615); -if (lean_is_scalar(x_416)) { - x_618 = lean_alloc_ctor(0, 2, 0); -} else { - x_618 = x_416; -} -lean_ctor_set(x_618, 0, x_616); -lean_ctor_set(x_618, 1, x_415); -x_577 = x_618; -x_578 = x_617; -goto block_609; -} -block_458: -{ -lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; -x_432 = lean_ctor_get(x_430, 1); -lean_inc(x_432); -lean_dec(x_430); -x_433 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_432, x_5, x_431); -lean_dec(x_5); -x_434 = lean_ctor_get(x_433, 0); -lean_inc(x_434); -x_435 = lean_ctor_get(x_434, 1); -lean_inc(x_435); -if (lean_is_exclusive(x_434)) { - lean_ctor_release(x_434, 0); - lean_ctor_release(x_434, 1); - x_436 = x_434; -} else { - lean_dec_ref(x_434); - x_436 = lean_box(0); -} -if (x_405 == 0) -{ -lean_object* x_437; lean_object* x_438; lean_object* x_439; uint8_t 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_dec(x_404); -x_437 = lean_ctor_get(x_433, 1); -lean_inc(x_437); -if (lean_is_exclusive(x_433)) { - lean_ctor_release(x_433, 0); - lean_ctor_release(x_433, 1); - x_438 = x_433; -} else { - lean_dec_ref(x_433); - x_438 = lean_box(0); -} -x_439 = lean_ctor_get(x_435, 0); -lean_inc(x_439); -x_440 = lean_ctor_get_uint8(x_435, sizeof(void*)*4); -if (lean_is_exclusive(x_435)) { - lean_ctor_release(x_435, 0); - lean_ctor_release(x_435, 1); - lean_ctor_release(x_435, 2); - lean_ctor_release(x_435, 3); - x_441 = x_435; -} else { - lean_dec_ref(x_435); - x_441 = lean_box(0); -} -if (lean_is_scalar(x_427)) { - x_442 = lean_alloc_ctor(1, 1, 0); -} else { - x_442 = x_427; -} -lean_ctor_set(x_442, 0, x_2); -x_443 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -if (lean_is_scalar(x_441)) { - x_444 = lean_alloc_ctor(0, 4, 1); -} else { - x_444 = x_441; -} -lean_ctor_set(x_444, 0, x_439); -lean_ctor_set(x_444, 1, x_443); -lean_ctor_set(x_444, 2, x_403); -lean_ctor_set(x_444, 3, x_442); -lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_440); -x_445 = lean_box(0); -if (lean_is_scalar(x_436)) { - x_446 = lean_alloc_ctor(0, 2, 0); -} else { - x_446 = x_436; -} -lean_ctor_set(x_446, 0, x_445); -lean_ctor_set(x_446, 1, x_444); -if (lean_is_scalar(x_438)) { - x_447 = lean_alloc_ctor(0, 2, 0); -} else { - x_447 = x_438; -} -lean_ctor_set(x_447, 0, x_446); -lean_ctor_set(x_447, 1, x_437); -return x_447; -} -else -{ -lean_object* x_448; lean_object* x_449; lean_object* x_450; uint8_t 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_dec(x_427); +lean_object* x_442; lean_object* x_443; lean_object* x_444; uint8_t 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_dec(x_421); lean_dec(x_2); -x_448 = lean_ctor_get(x_433, 1); -lean_inc(x_448); -if (lean_is_exclusive(x_433)) { - lean_ctor_release(x_433, 0); - lean_ctor_release(x_433, 1); - x_449 = x_433; +x_442 = lean_ctor_get(x_427, 1); +lean_inc(x_442); +if (lean_is_exclusive(x_427)) { + lean_ctor_release(x_427, 0); + lean_ctor_release(x_427, 1); + x_443 = x_427; } else { - lean_dec_ref(x_433); - x_449 = lean_box(0); + lean_dec_ref(x_427); + x_443 = lean_box(0); } -x_450 = lean_ctor_get(x_435, 0); -lean_inc(x_450); -x_451 = lean_ctor_get_uint8(x_435, sizeof(void*)*4); -if (lean_is_exclusive(x_435)) { - lean_ctor_release(x_435, 0); - lean_ctor_release(x_435, 1); - lean_ctor_release(x_435, 2); - lean_ctor_release(x_435, 3); - x_452 = x_435; +x_444 = lean_ctor_get(x_429, 0); +lean_inc(x_444); +x_445 = lean_ctor_get_uint8(x_429, sizeof(void*)*4); +if (lean_is_exclusive(x_429)) { + lean_ctor_release(x_429, 0); + lean_ctor_release(x_429, 1); + lean_ctor_release(x_429, 2); + lean_ctor_release(x_429, 3); + x_446 = x_429; } else { - lean_dec_ref(x_435); - x_452 = lean_box(0); + lean_dec_ref(x_429); + x_446 = lean_box(0); } -x_453 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7; -if (lean_is_scalar(x_452)) { - x_454 = lean_alloc_ctor(0, 4, 1); +x_447 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7; +if (lean_is_scalar(x_446)) { + x_448 = lean_alloc_ctor(0, 4, 1); } else { - x_454 = x_452; + x_448 = x_446; } -lean_ctor_set(x_454, 0, x_450); -lean_ctor_set(x_454, 1, x_453); -lean_ctor_set(x_454, 2, x_403); -lean_ctor_set(x_454, 3, x_404); -lean_ctor_set_uint8(x_454, sizeof(void*)*4, x_451); -x_455 = lean_box(0); -if (lean_is_scalar(x_436)) { - x_456 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_448, 0, x_444); +lean_ctor_set(x_448, 1, x_447); +lean_ctor_set(x_448, 2, x_400); +lean_ctor_set(x_448, 3, x_401); +lean_ctor_set_uint8(x_448, sizeof(void*)*4, x_445); +x_449 = lean_box(0); +if (lean_is_scalar(x_430)) { + x_450 = lean_alloc_ctor(0, 2, 0); } else { - x_456 = x_436; + x_450 = x_430; } -lean_ctor_set(x_456, 0, x_455); -lean_ctor_set(x_456, 1, x_454); -if (lean_is_scalar(x_449)) { - x_457 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_450, 0, x_449); +lean_ctor_set(x_450, 1, x_448); +if (lean_is_scalar(x_443)) { + x_451 = lean_alloc_ctor(0, 2, 0); } else { - x_457 = x_449; + x_451 = x_443; } -lean_ctor_set(x_457, 0, x_456); -lean_ctor_set(x_457, 1, x_448); -return x_457; +lean_ctor_set(x_451, 0, x_450); +lean_ctor_set(x_451, 1, x_442); +return x_451; } } -block_490: +block_484: { -lean_object* x_461; lean_object* x_462; lean_object* x_463; lean_object* x_464; lean_object* x_465; uint8_t x_466; -x_461 = lean_ctor_get(x_459, 1); -lean_inc(x_461); +lean_object* x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; lean_object* x_459; uint8_t x_460; +x_455 = lean_ctor_get(x_453, 1); +lean_inc(x_455); +lean_dec(x_453); +x_456 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_455, x_6, x_454); +x_457 = lean_ctor_get(x_456, 0); +lean_inc(x_457); +x_458 = lean_ctor_get(x_456, 1); +lean_inc(x_458); +lean_dec(x_456); +x_459 = lean_ctor_get(x_458, 4); +lean_inc(x_459); +x_460 = lean_ctor_get_uint8(x_459, sizeof(void*)*1); lean_dec(x_459); -x_462 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_461, x_5, x_460); -x_463 = lean_ctor_get(x_462, 0); -lean_inc(x_463); -x_464 = lean_ctor_get(x_462, 1); -lean_inc(x_464); -lean_dec(x_462); -x_465 = lean_ctor_get(x_464, 4); +if (x_460 == 0) +{ +lean_object* x_461; lean_object* x_462; lean_object* x_463; lean_object* x_464; +lean_dec(x_4); +x_461 = lean_ctor_get(x_457, 1); +lean_inc(x_461); +if (lean_is_exclusive(x_457)) { + lean_ctor_release(x_457, 0); + lean_ctor_release(x_457, 1); + x_462 = x_457; +} else { + lean_dec_ref(x_457); + x_462 = lean_box(0); +} +x_463 = lean_box(0); +if (lean_is_scalar(x_462)) { + x_464 = lean_alloc_ctor(0, 2, 0); +} else { + x_464 = x_462; +} +lean_ctor_set(x_464, 0, x_463); +lean_ctor_set(x_464, 1, x_461); +x_424 = x_464; +x_425 = x_458; +goto block_452; +} +else +{ +lean_object* x_465; lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; uint8_t x_471; +x_465 = lean_ctor_get(x_457, 0); lean_inc(x_465); -x_466 = lean_ctor_get_uint8(x_465, sizeof(void*)*1); +x_466 = lean_ctor_get(x_457, 1); +lean_inc(x_466); +if (lean_is_exclusive(x_457)) { + lean_ctor_release(x_457, 0); + lean_ctor_release(x_457, 1); + x_467 = x_457; +} else { + lean_dec_ref(x_457); + x_467 = lean_box(0); +} +x_468 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_469 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_468, x_6, x_458); +x_470 = lean_ctor_get(x_469, 0); +lean_inc(x_470); +x_471 = lean_unbox(x_470); +lean_dec(x_470); +if (x_471 == 0) +{ +lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_dec(x_465); -if (x_466 == 0) -{ -lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; -lean_dec(x_3); -x_467 = lean_ctor_get(x_463, 1); -lean_inc(x_467); -if (lean_is_exclusive(x_463)) { - lean_ctor_release(x_463, 0); - lean_ctor_release(x_463, 1); - x_468 = x_463; -} else { - lean_dec_ref(x_463); - x_468 = lean_box(0); -} -x_469 = lean_box(0); -if (lean_is_scalar(x_468)) { - x_470 = lean_alloc_ctor(0, 2, 0); -} else { - x_470 = x_468; -} -lean_ctor_set(x_470, 0, x_469); -lean_ctor_set(x_470, 1, x_467); -x_430 = x_470; -x_431 = x_464; -goto block_458; -} -else -{ -lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; uint8_t x_477; -x_471 = lean_ctor_get(x_463, 0); -lean_inc(x_471); -x_472 = lean_ctor_get(x_463, 1); +lean_dec(x_4); +x_472 = lean_ctor_get(x_469, 1); lean_inc(x_472); -if (lean_is_exclusive(x_463)) { - lean_ctor_release(x_463, 0); - lean_ctor_release(x_463, 1); - x_473 = x_463; +lean_dec(x_469); +x_473 = lean_box(0); +if (lean_is_scalar(x_467)) { + x_474 = lean_alloc_ctor(0, 2, 0); } else { - lean_dec_ref(x_463); - x_473 = lean_box(0); + x_474 = x_467; } -x_474 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_475 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_474, x_5, x_464); -x_476 = lean_ctor_get(x_475, 0); -lean_inc(x_476); -x_477 = lean_unbox(x_476); -lean_dec(x_476); -if (x_477 == 0) -{ -lean_object* x_478; lean_object* x_479; lean_object* x_480; -lean_dec(x_471); -lean_dec(x_3); -x_478 = lean_ctor_get(x_475, 1); -lean_inc(x_478); -lean_dec(x_475); -x_479 = lean_box(0); -if (lean_is_scalar(x_473)) { - x_480 = lean_alloc_ctor(0, 2, 0); -} else { - x_480 = x_473; -} -lean_ctor_set(x_480, 0, x_479); -lean_ctor_set(x_480, 1, x_472); -x_430 = x_480; -x_431 = x_478; -goto block_458; +lean_ctor_set(x_474, 0, x_473); +lean_ctor_set(x_474, 1, x_466); +x_424 = x_474; +x_425 = x_472; +goto block_452; } else { -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_473); -x_481 = lean_ctor_get(x_475, 1); -lean_inc(x_481); -lean_dec(x_475); -x_482 = lean_unsigned_to_nat(0u); -x_483 = l_Lean_Syntax_formatStxAux___main(x_406, x_407, x_482, x_471); -x_484 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_484, 0, x_483); -x_485 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10; -x_486 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_486, 0, x_485); -lean_ctor_set(x_486, 1, x_484); -x_487 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_474, x_486, x_3, x_472, x_5, x_481); -lean_dec(x_3); -x_488 = lean_ctor_get(x_487, 0); -lean_inc(x_488); -x_489 = lean_ctor_get(x_487, 1); -lean_inc(x_489); -lean_dec(x_487); -x_430 = x_488; -x_431 = x_489; -goto block_458; +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_dec(x_467); +x_475 = lean_ctor_get(x_469, 1); +lean_inc(x_475); +lean_dec(x_469); +x_476 = lean_unsigned_to_nat(0u); +x_477 = l_Lean_Syntax_formatStxAux___main(x_403, x_404, x_476, x_465); +x_478 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_478, 0, x_477); +x_479 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10; +x_480 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_480, 0, x_479); +lean_ctor_set(x_480, 1, x_478); +x_481 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_468, x_480, x_4, x_466, x_6, x_475); +lean_dec(x_4); +x_482 = lean_ctor_get(x_481, 0); +lean_inc(x_482); +x_483 = lean_ctor_get(x_481, 1); +lean_inc(x_483); +lean_dec(x_481); +x_424 = x_482; +x_425 = x_483; +goto block_452; } } } -block_532: +block_526: { -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; -x_493 = lean_ctor_get(x_491, 1); -lean_inc(x_493); -lean_dec(x_491); -x_494 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_493, x_5, x_492); -x_495 = lean_ctor_get(x_494, 0); -lean_inc(x_495); -x_496 = lean_ctor_get(x_494, 1); +lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; lean_object* x_493; +x_487 = lean_ctor_get(x_485, 1); +lean_inc(x_487); +lean_dec(x_485); +x_488 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_487, x_6, x_486); +x_489 = lean_ctor_get(x_488, 0); +lean_inc(x_489); +x_490 = lean_ctor_get(x_488, 1); +lean_inc(x_490); +lean_dec(x_488); +x_491 = lean_ctor_get(x_489, 0); +lean_inc(x_491); +x_492 = lean_ctor_get(x_489, 1); +lean_inc(x_492); +lean_dec(x_489); +x_493 = l_Lean_Syntax_getHeadInfo___main(x_491); +if (lean_obj_tag(x_493) == 0) +{ +lean_object* x_494; lean_object* x_495; lean_object* x_496; lean_object* x_497; +x_494 = lean_apply_1(x_1, x_491); +x_495 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_494, x_4, x_492, x_6, x_490); +x_496 = lean_ctor_get(x_495, 0); lean_inc(x_496); -lean_dec(x_494); -x_497 = lean_ctor_get(x_495, 0); +x_497 = lean_ctor_get(x_495, 1); lean_inc(x_497); -x_498 = lean_ctor_get(x_495, 1); -lean_inc(x_498); lean_dec(x_495); -x_499 = l_Lean_Syntax_getHeadInfo___main(x_497); +x_453 = x_496; +x_454 = x_497; +goto block_484; +} +else +{ +lean_object* x_498; lean_object* x_499; +x_498 = lean_ctor_get(x_493, 0); +lean_inc(x_498); +lean_dec(x_493); +x_499 = l_Lean_Syntax_getTailInfo___main(x_491); if (lean_obj_tag(x_499) == 0) { lean_object* x_500; lean_object* x_501; lean_object* x_502; lean_object* x_503; -x_500 = lean_apply_1(x_1, x_497); -x_501 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_500, x_3, x_498, x_5, x_496); +lean_dec(x_498); +x_500 = lean_apply_1(x_1, x_491); +x_501 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_500, x_4, x_492, x_6, x_490); x_502 = lean_ctor_get(x_501, 0); lean_inc(x_502); x_503 = lean_ctor_get(x_501, 1); lean_inc(x_503); lean_dec(x_501); -x_459 = x_502; -x_460 = x_503; -goto block_490; +x_453 = x_502; +x_454 = x_503; +goto block_484; } else { -lean_object* x_504; lean_object* x_505; +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; x_504 = lean_ctor_get(x_499, 0); lean_inc(x_504); lean_dec(x_499); -x_505 = l_Lean_Syntax_getTailInfo___main(x_497); -if (lean_obj_tag(x_505) == 0) -{ -lean_object* x_506; lean_object* x_507; lean_object* x_508; lean_object* x_509; -lean_dec(x_504); -x_506 = lean_apply_1(x_1, x_497); -x_507 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_506, x_3, x_498, x_5, x_496); -x_508 = lean_ctor_get(x_507, 0); -lean_inc(x_508); -x_509 = lean_ctor_get(x_507, 1); -lean_inc(x_509); -lean_dec(x_507); -x_459 = x_508; -x_460 = x_509; -goto block_490; +x_505 = lean_ctor_get(x_498, 0); +lean_inc(x_505); +x_506 = lean_ctor_get(x_498, 1); +lean_inc(x_506); +x_507 = lean_ctor_get(x_498, 2); +lean_inc(x_507); +if (lean_is_exclusive(x_498)) { + lean_ctor_release(x_498, 0); + lean_ctor_release(x_498, 1); + lean_ctor_release(x_498, 2); + x_508 = x_498; +} else { + lean_dec_ref(x_498); + x_508 = lean_box(0); } -else -{ -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; -x_510 = lean_ctor_get(x_505, 0); -lean_inc(x_510); -lean_dec(x_505); -x_511 = lean_ctor_get(x_504, 0); -lean_inc(x_511); -x_512 = lean_ctor_get(x_504, 1); +x_509 = l___private_Lean_Parser_Module_2__mkEOI___closed__1; +lean_inc(x_506); +if (lean_is_scalar(x_508)) { + x_510 = lean_alloc_ctor(0, 3, 0); +} else { + x_510 = x_508; +} +lean_ctor_set(x_510, 0, x_509); +lean_ctor_set(x_510, 1, x_506); +lean_ctor_set(x_510, 2, x_507); +x_511 = l_Lean_Syntax_setHeadInfo(x_491, x_510); +x_512 = lean_ctor_get(x_504, 0); lean_inc(x_512); -x_513 = lean_ctor_get(x_504, 2); +x_513 = lean_ctor_get(x_504, 1); lean_inc(x_513); +x_514 = lean_ctor_get(x_504, 2); +lean_inc(x_514); if (lean_is_exclusive(x_504)) { lean_ctor_release(x_504, 0); lean_ctor_release(x_504, 1); lean_ctor_release(x_504, 2); - x_514 = x_504; + x_515 = x_504; } else { lean_dec_ref(x_504); - x_514 = lean_box(0); + x_515 = lean_box(0); } -x_515 = l___private_Lean_Parser_Module_2__mkEOI___closed__1; -lean_inc(x_512); -if (lean_is_scalar(x_514)) { +lean_inc(x_513); +if (lean_is_scalar(x_515)) { x_516 = lean_alloc_ctor(0, 3, 0); } else { - x_516 = x_514; + x_516 = x_515; } -lean_ctor_set(x_516, 0, x_515); -lean_ctor_set(x_516, 1, x_512); -lean_ctor_set(x_516, 2, x_513); -x_517 = l_Lean_Syntax_setHeadInfo(x_497, x_516); -x_518 = lean_ctor_get(x_510, 0); -lean_inc(x_518); -x_519 = lean_ctor_get(x_510, 1); -lean_inc(x_519); -x_520 = lean_ctor_get(x_510, 2); -lean_inc(x_520); -if (lean_is_exclusive(x_510)) { - lean_ctor_release(x_510, 0); - lean_ctor_release(x_510, 1); - lean_ctor_release(x_510, 2); - x_521 = x_510; -} else { - lean_dec_ref(x_510); - x_521 = lean_box(0); -} -lean_inc(x_519); -if (lean_is_scalar(x_521)) { - x_522 = lean_alloc_ctor(0, 3, 0); -} else { - x_522 = x_521; -} -lean_ctor_set(x_522, 0, x_518); -lean_ctor_set(x_522, 1, x_519); -lean_ctor_set(x_522, 2, x_515); -x_523 = l_Lean_Syntax_setTailInfo(x_517, x_522); -x_524 = lean_apply_1(x_1, x_523); -x_525 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_525, 0, x_511); -lean_ctor_set(x_525, 1, x_512); -lean_ctor_set(x_525, 2, x_515); -x_526 = l_Lean_Syntax_setHeadInfo(x_524, x_525); -x_527 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_527, 0, x_515); -lean_ctor_set(x_527, 1, x_519); -lean_ctor_set(x_527, 2, x_520); -x_528 = l_Lean_Syntax_setTailInfo(x_526, x_527); -x_529 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_528, x_3, x_498, x_5, x_496); -x_530 = lean_ctor_get(x_529, 0); -lean_inc(x_530); -x_531 = lean_ctor_get(x_529, 1); -lean_inc(x_531); -lean_dec(x_529); -x_459 = x_530; -x_460 = x_531; -goto block_490; +lean_ctor_set(x_516, 0, x_512); +lean_ctor_set(x_516, 1, x_513); +lean_ctor_set(x_516, 2, x_509); +x_517 = l_Lean_Syntax_setTailInfo(x_511, x_516); +x_518 = lean_apply_1(x_1, x_517); +x_519 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_519, 0, x_505); +lean_ctor_set(x_519, 1, x_506); +lean_ctor_set(x_519, 2, x_509); +x_520 = l_Lean_Syntax_setHeadInfo(x_518, x_519); +x_521 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_521, 0, x_509); +lean_ctor_set(x_521, 1, x_513); +lean_ctor_set(x_521, 2, x_514); +x_522 = l_Lean_Syntax_setTailInfo(x_520, x_521); +x_523 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_522, x_4, x_492, x_6, x_490); +x_524 = lean_ctor_get(x_523, 0); +lean_inc(x_524); +x_525 = lean_ctor_get(x_523, 1); +lean_inc(x_525); +lean_dec(x_523); +x_453 = x_524; +x_454 = x_525; +goto block_484; } } } -block_576: +block_570: { -if (x_429 == 0) +if (x_423 == 0) { -lean_object* x_535; lean_object* x_536; -lean_dec(x_427); +lean_object* x_529; lean_object* x_530; +lean_dec(x_421); lean_dec(x_16); -lean_dec(x_5); -lean_dec(x_3); +lean_dec(x_6); +lean_dec(x_4); lean_dec(x_1); -x_535 = lean_ctor_get(x_533, 1); -lean_inc(x_535); -if (lean_is_exclusive(x_533)) { - lean_ctor_release(x_533, 0); - lean_ctor_release(x_533, 1); - x_536 = x_533; +x_529 = lean_ctor_get(x_527, 1); +lean_inc(x_529); +if (lean_is_exclusive(x_527)) { + lean_ctor_release(x_527, 0); + lean_ctor_release(x_527, 1); + x_530 = x_527; } else { - lean_dec_ref(x_533); - x_536 = lean_box(0); + lean_dec_ref(x_527); + x_530 = lean_box(0); } -if (x_405 == 0) +if (x_402 == 0) { -lean_object* x_537; -lean_dec(x_404); -x_537 = lean_ctor_get(x_535, 3); -lean_inc(x_537); -if (lean_obj_tag(x_537) == 0) +lean_object* x_531; +lean_dec(x_401); +x_531 = lean_ctor_get(x_529, 3); +lean_inc(x_531); +if (lean_obj_tag(x_531) == 0) { -lean_object* x_538; lean_object* x_539; uint8_t x_540; lean_object* x_541; lean_object* x_542; lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; -x_538 = lean_ctor_get(x_535, 0); -lean_inc(x_538); -x_539 = lean_ctor_get(x_535, 1); -lean_inc(x_539); -x_540 = lean_ctor_get_uint8(x_535, sizeof(void*)*4); -if (lean_is_exclusive(x_535)) { - lean_ctor_release(x_535, 0); - lean_ctor_release(x_535, 1); - lean_ctor_release(x_535, 2); - lean_ctor_release(x_535, 3); - x_541 = x_535; +lean_object* x_532; lean_object* x_533; uint8_t 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; +x_532 = lean_ctor_get(x_529, 0); +lean_inc(x_532); +x_533 = lean_ctor_get(x_529, 1); +lean_inc(x_533); +x_534 = lean_ctor_get_uint8(x_529, sizeof(void*)*4); +if (lean_is_exclusive(x_529)) { + lean_ctor_release(x_529, 0); + lean_ctor_release(x_529, 1); + lean_ctor_release(x_529, 2); + lean_ctor_release(x_529, 3); + x_535 = x_529; } else { - lean_dec_ref(x_535); - x_541 = lean_box(0); + lean_dec_ref(x_529); + x_535 = lean_box(0); } -x_542 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_542, 0, x_2); -if (lean_is_scalar(x_541)) { - x_543 = lean_alloc_ctor(0, 4, 1); +x_536 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_536, 0, x_2); +if (lean_is_scalar(x_535)) { + x_537 = lean_alloc_ctor(0, 4, 1); } else { - x_543 = x_541; + x_537 = x_535; } -lean_ctor_set(x_543, 0, x_538); -lean_ctor_set(x_543, 1, x_539); -lean_ctor_set(x_543, 2, x_403); -lean_ctor_set(x_543, 3, x_542); -lean_ctor_set_uint8(x_543, sizeof(void*)*4, x_540); -x_544 = lean_box(0); -if (lean_is_scalar(x_536)) { - x_545 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_537, 0, x_532); +lean_ctor_set(x_537, 1, x_533); +lean_ctor_set(x_537, 2, x_400); +lean_ctor_set(x_537, 3, x_536); +lean_ctor_set_uint8(x_537, sizeof(void*)*4, x_534); +x_538 = lean_box(0); +if (lean_is_scalar(x_530)) { + x_539 = lean_alloc_ctor(0, 2, 0); } else { - x_545 = x_536; + x_539 = x_530; } -lean_ctor_set(x_545, 0, x_544); -lean_ctor_set(x_545, 1, x_543); -if (lean_is_scalar(x_424)) { - x_546 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_539, 0, x_538); +lean_ctor_set(x_539, 1, x_537); +if (lean_is_scalar(x_418)) { + x_540 = lean_alloc_ctor(0, 2, 0); } else { - x_546 = x_424; + x_540 = x_418; } -lean_ctor_set(x_546, 0, x_545); -lean_ctor_set(x_546, 1, x_534); -return x_546; +lean_ctor_set(x_540, 0, x_539); +lean_ctor_set(x_540, 1, x_528); +return x_540; } else { -lean_object* x_547; lean_object* x_548; uint8_t 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; -x_547 = lean_ctor_get(x_535, 0); -lean_inc(x_547); -x_548 = lean_ctor_get(x_535, 1); -lean_inc(x_548); -x_549 = lean_ctor_get_uint8(x_535, sizeof(void*)*4); -if (lean_is_exclusive(x_535)) { - lean_ctor_release(x_535, 0); - lean_ctor_release(x_535, 1); - lean_ctor_release(x_535, 2); - lean_ctor_release(x_535, 3); - x_550 = x_535; +lean_object* x_541; lean_object* x_542; uint8_t 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; +x_541 = lean_ctor_get(x_529, 0); +lean_inc(x_541); +x_542 = lean_ctor_get(x_529, 1); +lean_inc(x_542); +x_543 = lean_ctor_get_uint8(x_529, sizeof(void*)*4); +if (lean_is_exclusive(x_529)) { + lean_ctor_release(x_529, 0); + lean_ctor_release(x_529, 1); + lean_ctor_release(x_529, 2); + lean_ctor_release(x_529, 3); + x_544 = x_529; } else { - lean_dec_ref(x_535); - x_550 = lean_box(0); + lean_dec_ref(x_529); + x_544 = lean_box(0); } -x_551 = lean_ctor_get(x_537, 0); -lean_inc(x_551); -if (lean_is_exclusive(x_537)) { - lean_ctor_release(x_537, 0); - x_552 = x_537; +x_545 = lean_ctor_get(x_531, 0); +lean_inc(x_545); +if (lean_is_exclusive(x_531)) { + lean_ctor_release(x_531, 0); + x_546 = x_531; } else { - lean_dec_ref(x_537); - x_552 = lean_box(0); + lean_dec_ref(x_531); + x_546 = lean_box(0); } -x_553 = l_Nat_min(x_551, x_2); +x_547 = l_Nat_min(x_545, x_2); lean_dec(x_2); -lean_dec(x_551); -if (lean_is_scalar(x_552)) { - x_554 = lean_alloc_ctor(1, 1, 0); +lean_dec(x_545); +if (lean_is_scalar(x_546)) { + x_548 = lean_alloc_ctor(1, 1, 0); } else { - x_554 = x_552; + x_548 = x_546; } -lean_ctor_set(x_554, 0, x_553); -if (lean_is_scalar(x_550)) { - x_555 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_548, 0, x_547); +if (lean_is_scalar(x_544)) { + x_549 = lean_alloc_ctor(0, 4, 1); } else { - x_555 = x_550; + x_549 = x_544; } -lean_ctor_set(x_555, 0, x_547); -lean_ctor_set(x_555, 1, x_548); -lean_ctor_set(x_555, 2, x_403); -lean_ctor_set(x_555, 3, x_554); -lean_ctor_set_uint8(x_555, sizeof(void*)*4, x_549); -x_556 = lean_box(0); -if (lean_is_scalar(x_536)) { - x_557 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_549, 0, x_541); +lean_ctor_set(x_549, 1, x_542); +lean_ctor_set(x_549, 2, x_400); +lean_ctor_set(x_549, 3, x_548); +lean_ctor_set_uint8(x_549, sizeof(void*)*4, x_543); +x_550 = lean_box(0); +if (lean_is_scalar(x_530)) { + x_551 = lean_alloc_ctor(0, 2, 0); } else { - x_557 = x_536; + x_551 = x_530; } -lean_ctor_set(x_557, 0, x_556); -lean_ctor_set(x_557, 1, x_555); -if (lean_is_scalar(x_424)) { - x_558 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_551, 0, x_550); +lean_ctor_set(x_551, 1, x_549); +if (lean_is_scalar(x_418)) { + x_552 = lean_alloc_ctor(0, 2, 0); } else { - x_558 = x_424; + x_552 = x_418; } -lean_ctor_set(x_558, 0, x_557); -lean_ctor_set(x_558, 1, x_534); -return x_558; +lean_ctor_set(x_552, 0, x_551); +lean_ctor_set(x_552, 1, x_528); +return x_552; } } else { -lean_object* x_559; lean_object* x_560; uint8_t 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_553; lean_object* x_554; uint8_t x_555; lean_object* x_556; lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_dec(x_2); -x_559 = lean_ctor_get(x_535, 0); -lean_inc(x_559); -x_560 = lean_ctor_get(x_535, 1); -lean_inc(x_560); -x_561 = lean_ctor_get_uint8(x_535, sizeof(void*)*4); -if (lean_is_exclusive(x_535)) { - lean_ctor_release(x_535, 0); - lean_ctor_release(x_535, 1); - lean_ctor_release(x_535, 2); - lean_ctor_release(x_535, 3); - x_562 = x_535; +x_553 = lean_ctor_get(x_529, 0); +lean_inc(x_553); +x_554 = lean_ctor_get(x_529, 1); +lean_inc(x_554); +x_555 = lean_ctor_get_uint8(x_529, sizeof(void*)*4); +if (lean_is_exclusive(x_529)) { + lean_ctor_release(x_529, 0); + lean_ctor_release(x_529, 1); + lean_ctor_release(x_529, 2); + lean_ctor_release(x_529, 3); + x_556 = x_529; } else { - lean_dec_ref(x_535); + lean_dec_ref(x_529); + x_556 = lean_box(0); +} +if (lean_is_scalar(x_556)) { + x_557 = lean_alloc_ctor(0, 4, 1); +} else { + x_557 = x_556; +} +lean_ctor_set(x_557, 0, x_553); +lean_ctor_set(x_557, 1, x_554); +lean_ctor_set(x_557, 2, x_400); +lean_ctor_set(x_557, 3, x_401); +lean_ctor_set_uint8(x_557, sizeof(void*)*4, x_555); +x_558 = lean_box(0); +if (lean_is_scalar(x_530)) { + x_559 = lean_alloc_ctor(0, 2, 0); +} else { + x_559 = x_530; +} +lean_ctor_set(x_559, 0, x_558); +lean_ctor_set(x_559, 1, x_557); +if (lean_is_scalar(x_418)) { + x_560 = lean_alloc_ctor(0, 2, 0); +} else { + x_560 = x_418; +} +lean_ctor_set(x_560, 0, x_559); +lean_ctor_set(x_560, 1, x_528); +return x_560; +} +} +else +{ +lean_object* x_561; lean_object* x_562; lean_object* x_563; uint8_t x_564; +lean_dec(x_418); +x_561 = lean_ctor_get(x_527, 1); +lean_inc(x_561); +if (lean_is_exclusive(x_527)) { + lean_ctor_release(x_527, 0); + lean_ctor_release(x_527, 1); + x_562 = x_527; +} else { + lean_dec_ref(x_527); x_562 = lean_box(0); } +x_563 = lean_unsigned_to_nat(0u); +x_564 = lean_nat_dec_lt(x_563, x_16); +lean_dec(x_16); +if (x_564 == 0) +{ +lean_object* x_565; lean_object* x_566; +x_565 = lean_box(0); if (lean_is_scalar(x_562)) { - x_563 = lean_alloc_ctor(0, 4, 1); -} else { - x_563 = x_562; -} -lean_ctor_set(x_563, 0, x_559); -lean_ctor_set(x_563, 1, x_560); -lean_ctor_set(x_563, 2, x_403); -lean_ctor_set(x_563, 3, x_404); -lean_ctor_set_uint8(x_563, sizeof(void*)*4, x_561); -x_564 = lean_box(0); -if (lean_is_scalar(x_536)) { - x_565 = lean_alloc_ctor(0, 2, 0); -} else { - x_565 = x_536; -} -lean_ctor_set(x_565, 0, x_564); -lean_ctor_set(x_565, 1, x_563); -if (lean_is_scalar(x_424)) { x_566 = lean_alloc_ctor(0, 2, 0); } else { - x_566 = x_424; + x_566 = x_562; } lean_ctor_set(x_566, 0, x_565); -lean_ctor_set(x_566, 1, x_534); -return x_566; -} +lean_ctor_set(x_566, 1, x_561); +x_485 = x_566; +x_486 = x_528; +goto block_526; } else { -lean_object* x_567; lean_object* x_568; lean_object* x_569; uint8_t x_570; -lean_dec(x_424); -x_567 = lean_ctor_get(x_533, 1); -lean_inc(x_567); -if (lean_is_exclusive(x_533)) { - lean_ctor_release(x_533, 0); - lean_ctor_release(x_533, 1); - x_568 = x_533; -} else { - lean_dec_ref(x_533); - x_568 = lean_box(0); +lean_object* x_567; lean_object* x_568; lean_object* x_569; +lean_dec(x_562); +x_567 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg(x_561, x_6, x_528); +x_568 = lean_ctor_get(x_567, 0); +lean_inc(x_568); +x_569 = lean_ctor_get(x_567, 1); +lean_inc(x_569); +lean_dec(x_567); +x_485 = x_568; +x_486 = x_569; +goto block_526; } -x_569 = lean_unsigned_to_nat(0u); -x_570 = lean_nat_dec_lt(x_569, x_16); -lean_dec(x_16); -if (x_570 == 0) +} +} +block_603: { -lean_object* x_571; lean_object* x_572; -x_571 = lean_box(0); -if (lean_is_scalar(x_568)) { - x_572 = lean_alloc_ctor(0, 2, 0); -} else { - x_572 = x_568; -} -lean_ctor_set(x_572, 0, x_571); -lean_ctor_set(x_572, 1, x_567); -x_491 = x_572; -x_492 = x_534; -goto block_532; -} -else -{ -lean_object* x_573; lean_object* x_574; lean_object* x_575; -lean_dec(x_568); -x_573 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg(x_567, x_5, x_534); -x_574 = lean_ctor_get(x_573, 0); -lean_inc(x_574); -x_575 = lean_ctor_get(x_573, 1); -lean_inc(x_575); +lean_object* x_573; uint8_t x_574; +x_573 = lean_ctor_get(x_571, 0); +lean_inc(x_573); +x_574 = lean_unbox(x_573); lean_dec(x_573); -x_491 = x_574; -x_492 = x_575; -goto block_532; -} -} -} -block_609: +if (x_574 == 0) { -lean_object* x_579; uint8_t x_580; -x_579 = lean_ctor_get(x_577, 0); -lean_inc(x_579); -x_580 = lean_unbox(x_579); -lean_dec(x_579); -if (x_580 == 0) -{ -lean_object* x_581; lean_object* x_582; lean_object* x_583; lean_object* x_584; -lean_dec(x_426); -lean_dec(x_425); -lean_dec(x_402); -x_581 = lean_ctor_get(x_577, 1); -lean_inc(x_581); -if (lean_is_exclusive(x_577)) { - lean_ctor_release(x_577, 0); - lean_ctor_release(x_577, 1); - x_582 = x_577; +lean_object* x_575; lean_object* x_576; lean_object* x_577; lean_object* x_578; +lean_dec(x_420); +lean_dec(x_419); +lean_dec(x_399); +x_575 = lean_ctor_get(x_571, 1); +lean_inc(x_575); +if (lean_is_exclusive(x_571)) { + lean_ctor_release(x_571, 0); + lean_ctor_release(x_571, 1); + x_576 = x_571; } else { - lean_dec_ref(x_577); - x_582 = lean_box(0); + lean_dec_ref(x_571); + x_576 = lean_box(0); } -x_583 = lean_box(0); -if (lean_is_scalar(x_582)) { - x_584 = lean_alloc_ctor(0, 2, 0); +x_577 = lean_box(0); +if (lean_is_scalar(x_576)) { + x_578 = lean_alloc_ctor(0, 2, 0); } else { - x_584 = x_582; + x_578 = x_576; } -lean_ctor_set(x_584, 0, x_583); -lean_ctor_set(x_584, 1, x_581); -x_533 = x_584; -x_534 = x_578; -goto block_576; +lean_ctor_set(x_578, 0, x_577); +lean_ctor_set(x_578, 1, x_575); +x_527 = x_578; +x_528 = x_572; +goto block_570; } else { -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_object* x_607; lean_object* x_608; -x_585 = lean_ctor_get(x_577, 1); -lean_inc(x_585); -lean_dec(x_577); +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; +x_579 = lean_ctor_get(x_571, 1); +lean_inc(x_579); +lean_dec(x_571); lean_inc(x_2); -x_586 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_2); +x_580 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_2); +x_581 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_581, 0, x_580); +x_582 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13; +x_583 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_583, 0, x_582); +lean_ctor_set(x_583, 1, x_581); +x_584 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16; +x_585 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_585, 0, x_583); +lean_ctor_set(x_585, 1, x_584); +x_586 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_420); x_587 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_587, 0, x_586); -x_588 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13; -x_589 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_589, 0, x_588); -lean_ctor_set(x_589, 1, x_587); -x_590 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16; -x_591 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_591, 0, x_589); -lean_ctor_set(x_591, 1, x_590); -x_592 = l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(x_426); -x_593 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_593, 0, x_592); -x_594 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_594, 0, x_591); -lean_ctor_set(x_594, 1, x_593); -x_595 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; -x_596 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_596, 0, x_594); -lean_ctor_set(x_596, 1, x_595); -x_597 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(x_425); -x_598 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_598, 0, x_597); -x_599 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_599, 0, x_596); -lean_ctor_set(x_599, 1, x_598); -x_600 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19; -x_601 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_601, 0, x_599); -lean_ctor_set(x_601, 1, x_600); -x_602 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__5(x_402); -x_603 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_603, 0, x_602); -x_604 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_604, 0, x_601); -lean_ctor_set(x_604, 1, x_603); -x_605 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; -x_606 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_605, x_604, x_3, x_585, x_5, x_578); -x_607 = lean_ctor_get(x_606, 0); -lean_inc(x_607); -x_608 = lean_ctor_get(x_606, 1); -lean_inc(x_608); -lean_dec(x_606); -x_533 = x_607; -x_534 = x_608; -goto block_576; +x_588 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_588, 0, x_585); +lean_ctor_set(x_588, 1, x_587); +x_589 = l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; +x_590 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_590, 0, x_588); +lean_ctor_set(x_590, 1, x_589); +x_591 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(x_419); +x_592 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_592, 0, x_591); +x_593 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_593, 0, x_590); +lean_ctor_set(x_593, 1, x_592); +x_594 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19; +x_595 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_595, 0, x_593); +lean_ctor_set(x_595, 1, x_594); +x_596 = l_Lean_Option_format___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__5(x_399); +x_597 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_597, 0, x_596); +x_598 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_598, 0, x_595); +lean_ctor_set(x_598, 1, x_597); +x_599 = l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__3; +x_600 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_599, x_598, x_4, x_579, x_6, x_572); +x_601 = lean_ctor_get(x_600, 0); +lean_inc(x_601); +x_602 = lean_ctor_get(x_600, 1); +lean_inc(x_602); +lean_dec(x_600); +x_527 = x_601; +x_528 = x_602; +goto block_570; } } } @@ -6577,81 +6610,81 @@ goto block_576; } else { -lean_object* x_627; lean_object* x_628; lean_object* x_629; lean_object* x_630; -lean_dec(x_404); -lean_dec(x_403); -lean_dec(x_402); +lean_object* x_621; lean_object* x_622; lean_object* x_623; lean_object* x_624; +lean_dec(x_401); +lean_dec(x_400); +lean_dec(x_399); lean_dec(x_16); -lean_dec(x_5); -lean_dec(x_3); +lean_dec(x_6); +lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_627 = lean_ctor_get(x_413, 0); -lean_inc(x_627); -x_628 = lean_ctor_get(x_413, 1); -lean_inc(x_628); -if (lean_is_exclusive(x_413)) { - lean_ctor_release(x_413, 0); - lean_ctor_release(x_413, 1); - x_629 = x_413; +x_621 = lean_ctor_get(x_407, 0); +lean_inc(x_621); +x_622 = lean_ctor_get(x_407, 1); +lean_inc(x_622); +if (lean_is_exclusive(x_407)) { + lean_ctor_release(x_407, 0); + lean_ctor_release(x_407, 1); + x_623 = x_407; } else { - lean_dec_ref(x_413); - x_629 = lean_box(0); + lean_dec_ref(x_407); + x_623 = lean_box(0); } -if (lean_is_scalar(x_629)) { - x_630 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_623)) { + x_624 = lean_alloc_ctor(1, 2, 0); } else { - x_630 = x_629; + x_624 = x_623; } -lean_ctor_set(x_630, 0, x_627); -lean_ctor_set(x_630, 1, x_628); -return x_630; +lean_ctor_set(x_624, 0, x_621); +lean_ctor_set(x_624, 1, x_622); +return x_624; } } } } -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___rarg(x_1, x_2, x_3); +x_4 = l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___rarg(x_1, x_2, x_3); lean_dec(x_2); return x_4; } } -lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1___boxed(lean_object* x_1) { +lean_object* l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__1(x_1); +x_2 = l_Lean_Syntax_MonadTraverser_getIdx___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__1(x_1); lean_dec(x_1); return x_2; } } -lean_object* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___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* l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { lean_object* x_6; -x_6 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__2(x_1, x_2, x_3, x_4, x_5); +x_6 = l_Lean_Syntax_MonadTraverser_setCur___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__2(x_1, x_2, x_3, x_4, x_5); lean_dec(x_4); lean_dec(x_2); return x_6; } } -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___rarg(x_1, x_2, x_3); +x_4 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___rarg(x_1, x_2, x_3); lean_dec(x_2); return x_4; } } -lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3___boxed(lean_object* x_1) { +lean_object* l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___spec__3(x_1); +x_2 = l_Lean_Syntax_MonadTraverser_goRight___at_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___spec__3(x_1); lean_dec(x_1); return x_2; } @@ -6723,1363 +6756,136 @@ lean_dec(x_1); return x_3; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__1() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3() { _start: { lean_object* x_1; -x_1 = lean_mk_string("failed to evaluate Nat argument: "); +x_1 = lean_mk_string("mkCategoryAntiquotParser"); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__2() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__1; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3() { +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__2; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__4; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; -x_6 = l_Lean_Meta_whnf(x_1, x_4, x_5); -if (lean_obj_tag(x_6) == 0) -{ -uint8_t x_7; -x_7 = !lean_is_exclusive(x_6); -if (x_7 == 0) -{ -lean_object* x_8; lean_object* x_9; -x_8 = lean_ctor_get(x_6, 0); +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_6, 1); lean_inc(x_8); -x_9 = l_Lean_Meta_evalNat___main(x_8); -if (lean_obj_tag(x_9) == 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_dec(x_3); -x_10 = lean_expr_dbg_to_string(x_8); -lean_dec(x_8); -x_11 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_11, 0, x_10); -x_12 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_12, 0, x_11); -x_13 = l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3; -x_14 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_14, 0, x_13); -lean_ctor_set(x_14, 1, x_12); -x_15 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_15, 0, x_14); -lean_ctor_set_tag(x_6, 1); -lean_ctor_set(x_6, 0, x_15); -return x_6; -} -else -{ -lean_object* x_16; lean_object* x_17; -lean_dec(x_8); -x_16 = lean_ctor_get(x_9, 0); -lean_inc(x_16); -lean_dec(x_9); -x_17 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_3); -lean_ctor_set(x_6, 0, x_17); -return x_6; -} -} -else -{ -lean_object* x_18; lean_object* x_19; lean_object* x_20; -x_18 = lean_ctor_get(x_6, 0); -x_19 = lean_ctor_get(x_6, 1); -lean_inc(x_19); -lean_inc(x_18); lean_dec(x_6); -lean_inc(x_18); -x_20 = l_Lean_Meta_evalNat___main(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; lean_object* x_27; -lean_dec(x_3); -x_21 = lean_expr_dbg_to_string(x_18); -lean_dec(x_18); -x_22 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_22, 0, x_21); -x_23 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_23, 0, x_22); -x_24 = l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3; -x_25 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_25, 0, x_24); -lean_ctor_set(x_25, 1, x_23); -x_26 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_26, 0, x_25); -x_27 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_27, 1, x_19); +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_box(0); +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_12); +x_14 = lean_nat_sub(x_13, x_12); +lean_dec(x_13); +x_15 = lean_unsigned_to_nat(1u); +x_16 = lean_nat_sub(x_14, x_15); +lean_dec(x_14); +x_17 = l_Lean_Expr_getRevArg_x21___main(x_1, x_16); +x_18 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__5; +x_19 = l_Lean_mkApp(x_18, x_17); +x_20 = l_Lean_Syntax_getKind(x_9); +x_21 = l_Lean_mkConst(x_20, x_11); +x_22 = l_Lean_mkAppStx___closed__9; +x_23 = lean_array_push(x_22, x_19); +x_24 = lean_array_push(x_23, x_21); +x_25 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; +x_26 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_24, x_24, x_12, x_25); +lean_dec(x_24); +x_27 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_26, x_2, x_10, x_4, x_8); return x_27; } -else -{ -lean_object* x_28; lean_object* x_29; lean_object* x_30; -lean_dec(x_18); -x_28 = lean_ctor_get(x_20, 0); -lean_inc(x_28); -lean_dec(x_20); -x_29 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_29, 0, x_28); -lean_ctor_set(x_29, 1, x_3); -x_30 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_19); -return x_30; } -} -} -else -{ -uint8_t x_31; -lean_dec(x_3); -x_31 = !lean_is_exclusive(x_6); -if (x_31 == 0) -{ -return x_6; -} -else -{ -lean_object* x_32; lean_object* x_33; lean_object* x_34; -x_32 = lean_ctor_get(x_6, 0); -x_33 = lean_ctor_get(x_6, 1); -lean_inc(x_33); -lean_inc(x_32); -lean_dec(x_6); -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_32); -lean_ctor_set(x_34, 1, x_33); -return x_34; -} -} -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalNat___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_2); +x_6 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); return x_6; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__1() { +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1() { _start: { lean_object* x_1; -x_1 = lean_mk_string("failed to evaluate precedence: "); +x_1 = lean_mk_string("categoryParser"); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__2() { +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__1; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__2; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -lean_inc(x_4); -x_6 = l_Lean_Meta_whnf(x_1, x_4, x_5); -if (lean_obj_tag(x_6) == 0) -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_19; lean_object* x_20; -x_7 = lean_ctor_get(x_6, 0); -lean_inc(x_7); -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -if (lean_is_exclusive(x_6)) { - lean_ctor_release(x_6, 0); - lean_ctor_release(x_6, 1); - x_9 = x_6; -} else { - lean_dec_ref(x_6); - x_9 = lean_box(0); -} -x_19 = l_Lean_Expr_getAppFn___main(x_7); -x_20 = l_Lean_Expr_constName_x3f(x_19); -lean_dec(x_19); -if (lean_obj_tag(x_20) == 0) -{ -lean_object* x_21; -lean_dec(x_4); -lean_dec(x_3); -x_21 = lean_box(0); -x_10 = x_21; -goto block_18; -} -else -{ -lean_object* x_22; -x_22 = lean_ctor_get(x_20, 0); -lean_inc(x_22); -lean_dec(x_20); -if (lean_obj_tag(x_22) == 1) -{ -lean_object* x_23; -x_23 = lean_ctor_get(x_22, 0); -lean_inc(x_23); -if (lean_obj_tag(x_23) == 1) -{ -lean_object* x_24; -x_24 = lean_ctor_get(x_23, 0); -lean_inc(x_24); -if (lean_obj_tag(x_24) == 0) -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; -x_25 = lean_ctor_get(x_22, 1); -lean_inc(x_25); -lean_dec(x_22); -x_26 = lean_ctor_get(x_23, 1); -lean_inc(x_26); -lean_dec(x_23); -x_27 = l_Lean_optionToExpr___rarg___lambda__1___closed__1; -x_28 = lean_string_dec_eq(x_26, x_27); -lean_dec(x_26); -if (x_28 == 0) -{ -lean_object* x_29; -lean_dec(x_25); -lean_dec(x_4); -lean_dec(x_3); -x_29 = lean_box(0); -x_10 = x_29; -goto block_18; -} -else -{ -lean_object* x_30; uint8_t x_31; -x_30 = l_Option_HasRepr___rarg___closed__1; -x_31 = lean_string_dec_eq(x_25, x_30); -if (x_31 == 0) -{ -lean_object* x_32; uint8_t x_33; -x_32 = l___private_Lean_Syntax_9__quoteOption___rarg___closed__5; -x_33 = lean_string_dec_eq(x_25, x_32); -lean_dec(x_25); -if (x_33 == 0) -{ -lean_object* x_34; -lean_dec(x_4); -lean_dec(x_3); -x_34 = lean_box(0); -x_10 = x_34; -goto block_18; -} -else -{ -lean_object* x_35; lean_object* x_36; -lean_dec(x_9); -x_35 = l_Lean_Expr_appArg_x21(x_7); -lean_dec(x_7); -x_36 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_35, x_2, x_3, x_4, x_8); -return x_36; -} -} -else -{ -lean_object* x_37; lean_object* x_38; lean_object* x_39; -lean_dec(x_25); -lean_dec(x_9); -lean_dec(x_7); -lean_dec(x_4); -x_37 = lean_unsigned_to_nat(0u); -x_38 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_3); -x_39 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_39, 0, x_38); -lean_ctor_set(x_39, 1, x_8); -return x_39; -} -} -} -else -{ -lean_object* x_40; -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_22); -lean_dec(x_4); -lean_dec(x_3); -x_40 = lean_box(0); -x_10 = x_40; -goto block_18; -} -} -else -{ -lean_object* x_41; -lean_dec(x_23); -lean_dec(x_22); -lean_dec(x_4); -lean_dec(x_3); -x_41 = lean_box(0); -x_10 = x_41; -goto block_18; -} -} -else -{ -lean_object* x_42; -lean_dec(x_22); -lean_dec(x_4); -lean_dec(x_3); -x_42 = lean_box(0); -x_10 = x_42; -goto block_18; -} -} -block_18: -{ -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_dec(x_10); -x_11 = lean_expr_dbg_to_string(x_7); -lean_dec(x_7); -x_12 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_12, 0, x_11); -x_13 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_13, 0, x_12); -x_14 = l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__3; -x_15 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_15, 0, x_14); -lean_ctor_set(x_15, 1, x_13); -x_16 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_16, 0, x_15); -if (lean_is_scalar(x_9)) { - x_17 = lean_alloc_ctor(1, 2, 0); -} else { - x_17 = x_9; - lean_ctor_set_tag(x_17, 1); -} -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_8); -return x_17; -} -} -else -{ -uint8_t x_43; -lean_dec(x_4); -lean_dec(x_3); -x_43 = !lean_is_exclusive(x_6); -if (x_43 == 0) -{ -return x_6; -} -else -{ -lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_44 = lean_ctor_get(x_6, 0); -x_45 = lean_ctor_get(x_6, 1); -lean_inc(x_45); -lean_inc(x_44); -lean_dec(x_6); -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; -} -} -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_2); -return x_6; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__1() { +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3() { _start: { lean_object* x_1; -x_1 = lean_mk_string("failed to evaluate String argument: "); +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___boxed), 5, 0); return x_1; } } -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__2() { +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object* x_1) { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalString___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_PrettyPrinter_Parenthesizer_evalString___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__2; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalString(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -lean_inc(x_1); -x_6 = l_Lean_Meta_whnf(x_1, x_4, x_5); -if (lean_obj_tag(x_6) == 0) -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_7 = lean_ctor_get(x_6, 0); -lean_inc(x_7); -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -if (lean_is_exclusive(x_6)) { - lean_ctor_release(x_6, 0); - lean_ctor_release(x_6, 1); - x_9 = x_6; -} else { - lean_dec_ref(x_6); - x_9 = lean_box(0); -} -if (lean_obj_tag(x_7) == 9) -{ -lean_object* x_19; -x_19 = lean_ctor_get(x_7, 0); -lean_inc(x_19); -lean_dec(x_7); -if (lean_obj_tag(x_19) == 0) -{ -lean_object* x_20; -lean_dec(x_19); -lean_dec(x_3); -x_20 = lean_box(0); -x_10 = x_20; -goto block_18; -} -else -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; -lean_dec(x_9); -lean_dec(x_1); -x_21 = lean_ctor_get(x_19, 0); -lean_inc(x_21); -lean_dec(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); -x_23 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_23, 0, x_22); -lean_ctor_set(x_23, 1, x_8); -return x_23; -} -} -else -{ -lean_object* x_24; -lean_dec(x_7); -lean_dec(x_3); -x_24 = lean_box(0); -x_10 = x_24; -goto block_18; -} -block_18: -{ -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_dec(x_10); -x_11 = lean_expr_dbg_to_string(x_1); -lean_dec(x_1); -x_12 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_12, 0, x_11); -x_13 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_13, 0, x_12); -x_14 = l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__3; -x_15 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_15, 0, x_14); -lean_ctor_set(x_15, 1, x_13); -x_16 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_16, 0, x_15); -if (lean_is_scalar(x_9)) { - x_17 = lean_alloc_ctor(1, 2, 0); -} else { - x_17 = x_9; - lean_ctor_set_tag(x_17, 1); -} -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_8); -return x_17; -} -} -else -{ -uint8_t x_25; -lean_dec(x_3); -lean_dec(x_1); -x_25 = !lean_is_exclusive(x_6); -if (x_25 == 0) -{ -return x_6; -} -else -{ -lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_26 = lean_ctor_get(x_6, 0); -x_27 = lean_ctor_get(x_6, 1); -lean_inc(x_27); -lean_inc(x_26); -lean_dec(x_6); -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_Lean_PrettyPrinter_Parenthesizer_evalString___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_evalString(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_2); -return x_6; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__2; -x_2 = l_Lean_Name_toExprAux___main___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1; -x_2 = l_Lean_Name_toExprAux___main___closed__2; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1; -x_2 = l_Lean_String_HasQuote___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1; -x_2 = l_Lean_Nat_HasQuote___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__5() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("failed to evaluate Name argument: "); -return x_1; -} -} -lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__6() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalName___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_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_evalName___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_Lean_PrettyPrinter_Parenthesizer_evalName___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -lean_inc(x_4); -x_6 = l_Lean_Meta_whnf(x_1, x_4, x_5); -if (lean_obj_tag(x_6) == 0) -{ -uint8_t x_7; -x_7 = !lean_is_exclusive(x_6); -if (x_7 == 0) -{ -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; -x_8 = lean_ctor_get(x_6, 0); -x_9 = lean_ctor_get(x_6, 1); -x_10 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2; -x_11 = lean_unsigned_to_nat(0u); -x_12 = l_Lean_Expr_isAppOfArity___main(x_8, x_10, x_11); -if (x_12 == 0) -{ -lean_object* x_13; lean_object* x_14; uint8_t x_15; -x_13 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3; -x_14 = lean_unsigned_to_nat(3u); -x_15 = l_Lean_Expr_isAppOfArity___main(x_8, x_13, x_14); -if (x_15 == 0) -{ -lean_object* x_16; uint8_t x_17; -x_16 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4; -x_17 = l_Lean_Expr_isAppOfArity___main(x_8, x_16, x_14); -if (x_17 == 0) -{ -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_dec(x_4); -lean_dec(x_3); -x_18 = lean_expr_dbg_to_string(x_8); -lean_dec(x_8); -x_19 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_19, 0, x_18); -x_20 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_20, 0, x_19); -x_21 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7; -x_22 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_22, 0, x_21); -lean_ctor_set(x_22, 1, x_20); -x_23 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_23, 0, x_22); -lean_ctor_set_tag(x_6, 1); -lean_ctor_set(x_6, 0, x_23); -return x_6; -} -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_free_object(x_6); -x_24 = l_Lean_Expr_getAppNumArgsAux___main(x_8, x_11); -x_25 = lean_nat_sub(x_24, x_11); -x_26 = lean_unsigned_to_nat(1u); -x_27 = lean_nat_sub(x_25, x_26); -lean_dec(x_25); -x_28 = l_Lean_Expr_getRevArg_x21___main(x_8, x_27); -lean_inc(x_4); -x_29 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_28, x_2, x_3, x_4, x_9); -if (lean_obj_tag(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; -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -x_31 = lean_ctor_get(x_29, 1); -lean_inc(x_31); -lean_dec(x_29); -x_32 = lean_ctor_get(x_30, 0); -lean_inc(x_32); -x_33 = lean_ctor_get(x_30, 1); -lean_inc(x_33); -lean_dec(x_30); -x_34 = lean_nat_sub(x_24, x_26); -lean_dec(x_24); -x_35 = lean_nat_sub(x_34, x_26); -lean_dec(x_34); -x_36 = l_Lean_Expr_getRevArg_x21___main(x_8, x_35); -lean_dec(x_8); -x_37 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_36, x_2, x_33, x_4, x_31); -if (lean_obj_tag(x_37) == 0) -{ -uint8_t x_38; -x_38 = !lean_is_exclusive(x_37); -if (x_38 == 0) -{ -lean_object* x_39; uint8_t x_40; -x_39 = lean_ctor_get(x_37, 0); -x_40 = !lean_is_exclusive(x_39); -if (x_40 == 0) -{ -lean_object* x_41; lean_object* x_42; -x_41 = lean_ctor_get(x_39, 0); -x_42 = lean_name_mk_numeral(x_32, x_41); -lean_ctor_set(x_39, 0, x_42); -return x_37; -} -else -{ -lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_43 = lean_ctor_get(x_39, 0); -x_44 = lean_ctor_get(x_39, 1); -lean_inc(x_44); -lean_inc(x_43); -lean_dec(x_39); -x_45 = lean_name_mk_numeral(x_32, x_43); -x_46 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_46, 0, x_45); -lean_ctor_set(x_46, 1, x_44); -lean_ctor_set(x_37, 0, x_46); -return x_37; -} -} -else -{ -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; -x_47 = lean_ctor_get(x_37, 0); -x_48 = lean_ctor_get(x_37, 1); -lean_inc(x_48); -lean_inc(x_47); -lean_dec(x_37); -x_49 = lean_ctor_get(x_47, 0); -lean_inc(x_49); -x_50 = lean_ctor_get(x_47, 1); -lean_inc(x_50); -if (lean_is_exclusive(x_47)) { - lean_ctor_release(x_47, 0); - lean_ctor_release(x_47, 1); - x_51 = x_47; -} else { - lean_dec_ref(x_47); - x_51 = lean_box(0); -} -x_52 = lean_name_mk_numeral(x_32, x_49); -if (lean_is_scalar(x_51)) { - x_53 = lean_alloc_ctor(0, 2, 0); -} else { - x_53 = x_51; -} -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_50); -x_54 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_54, 0, x_53); -lean_ctor_set(x_54, 1, x_48); -return x_54; -} -} -else -{ -uint8_t x_55; -lean_dec(x_32); -x_55 = !lean_is_exclusive(x_37); -if (x_55 == 0) -{ -return x_37; -} -else -{ -lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_56 = lean_ctor_get(x_37, 0); -x_57 = lean_ctor_get(x_37, 1); -lean_inc(x_57); -lean_inc(x_56); -lean_dec(x_37); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_56); -lean_ctor_set(x_58, 1, x_57); -return x_58; -} -} -} -else -{ -uint8_t x_59; -lean_dec(x_24); -lean_dec(x_8); -lean_dec(x_4); -x_59 = !lean_is_exclusive(x_29); -if (x_59 == 0) -{ -return x_29; -} -else -{ -lean_object* x_60; lean_object* x_61; lean_object* x_62; -x_60 = lean_ctor_get(x_29, 0); -x_61 = lean_ctor_get(x_29, 1); -lean_inc(x_61); -lean_inc(x_60); -lean_dec(x_29); -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_60); -lean_ctor_set(x_62, 1, x_61); -return x_62; -} -} -} -} -else -{ -lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; -lean_free_object(x_6); -x_63 = l_Lean_Expr_getAppNumArgsAux___main(x_8, x_11); -x_64 = lean_nat_sub(x_63, x_11); -x_65 = lean_unsigned_to_nat(1u); -x_66 = lean_nat_sub(x_64, x_65); -lean_dec(x_64); -x_67 = l_Lean_Expr_getRevArg_x21___main(x_8, x_66); -lean_inc(x_4); -x_68 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_67, x_2, x_3, x_4, x_9); -if (lean_obj_tag(x_68) == 0) -{ -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; -x_69 = lean_ctor_get(x_68, 0); -lean_inc(x_69); -x_70 = lean_ctor_get(x_68, 1); -lean_inc(x_70); -lean_dec(x_68); -x_71 = lean_ctor_get(x_69, 0); -lean_inc(x_71); -x_72 = lean_ctor_get(x_69, 1); -lean_inc(x_72); -lean_dec(x_69); -x_73 = lean_nat_sub(x_63, x_65); -lean_dec(x_63); -x_74 = lean_nat_sub(x_73, x_65); -lean_dec(x_73); -x_75 = l_Lean_Expr_getRevArg_x21___main(x_8, x_74); -lean_dec(x_8); -x_76 = l_Lean_PrettyPrinter_Parenthesizer_evalString(x_75, x_2, x_72, x_4, x_70); -if (lean_obj_tag(x_76) == 0) -{ -uint8_t x_77; -x_77 = !lean_is_exclusive(x_76); -if (x_77 == 0) -{ -lean_object* x_78; uint8_t x_79; -x_78 = lean_ctor_get(x_76, 0); -x_79 = !lean_is_exclusive(x_78); -if (x_79 == 0) -{ -lean_object* x_80; lean_object* x_81; -x_80 = lean_ctor_get(x_78, 0); -x_81 = lean_name_mk_string(x_71, x_80); -lean_ctor_set(x_78, 0, x_81); -return x_76; -} -else -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; -x_82 = lean_ctor_get(x_78, 0); -x_83 = lean_ctor_get(x_78, 1); -lean_inc(x_83); -lean_inc(x_82); -lean_dec(x_78); -x_84 = lean_name_mk_string(x_71, x_82); -x_85 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_85, 0, x_84); -lean_ctor_set(x_85, 1, x_83); -lean_ctor_set(x_76, 0, x_85); -return x_76; -} -} -else -{ -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; -x_86 = lean_ctor_get(x_76, 0); -x_87 = lean_ctor_get(x_76, 1); -lean_inc(x_87); -lean_inc(x_86); -lean_dec(x_76); -x_88 = lean_ctor_get(x_86, 0); -lean_inc(x_88); -x_89 = lean_ctor_get(x_86, 1); -lean_inc(x_89); -if (lean_is_exclusive(x_86)) { - lean_ctor_release(x_86, 0); - lean_ctor_release(x_86, 1); - x_90 = x_86; -} else { - lean_dec_ref(x_86); - x_90 = lean_box(0); -} -x_91 = lean_name_mk_string(x_71, x_88); -if (lean_is_scalar(x_90)) { - x_92 = lean_alloc_ctor(0, 2, 0); -} else { - x_92 = x_90; -} -lean_ctor_set(x_92, 0, x_91); -lean_ctor_set(x_92, 1, x_89); -x_93 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_93, 0, x_92); -lean_ctor_set(x_93, 1, x_87); -return x_93; -} -} -else -{ -uint8_t x_94; -lean_dec(x_71); -x_94 = !lean_is_exclusive(x_76); -if (x_94 == 0) -{ -return x_76; -} -else -{ -lean_object* x_95; lean_object* x_96; lean_object* x_97; -x_95 = lean_ctor_get(x_76, 0); -x_96 = lean_ctor_get(x_76, 1); -lean_inc(x_96); -lean_inc(x_95); -lean_dec(x_76); -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; -} -} -} -else -{ -uint8_t x_98; -lean_dec(x_63); -lean_dec(x_8); -lean_dec(x_4); -x_98 = !lean_is_exclusive(x_68); -if (x_98 == 0) -{ -return x_68; -} -else -{ -lean_object* x_99; lean_object* x_100; lean_object* x_101; -x_99 = lean_ctor_get(x_68, 0); -x_100 = lean_ctor_get(x_68, 1); -lean_inc(x_100); -lean_inc(x_99); -lean_dec(x_68); -x_101 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_101, 0, x_99); -lean_ctor_set(x_101, 1, x_100); -return x_101; -} -} -} -} -else -{ -lean_object* x_102; lean_object* x_103; -lean_dec(x_8); -lean_dec(x_4); -x_102 = lean_box(0); -x_103 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_103, 0, x_102); -lean_ctor_set(x_103, 1, x_3); -lean_ctor_set(x_6, 0, x_103); -return x_6; -} -} -else -{ -lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; -x_104 = lean_ctor_get(x_6, 0); -x_105 = lean_ctor_get(x_6, 1); -lean_inc(x_105); -lean_inc(x_104); -lean_dec(x_6); -x_106 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2; -x_107 = lean_unsigned_to_nat(0u); -x_108 = l_Lean_Expr_isAppOfArity___main(x_104, x_106, x_107); -if (x_108 == 0) -{ -lean_object* x_109; lean_object* x_110; uint8_t x_111; -x_109 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3; -x_110 = lean_unsigned_to_nat(3u); -x_111 = l_Lean_Expr_isAppOfArity___main(x_104, x_109, x_110); -if (x_111 == 0) -{ -lean_object* x_112; uint8_t x_113; -x_112 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4; -x_113 = l_Lean_Expr_isAppOfArity___main(x_104, x_112, x_110); -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_dec(x_4); -lean_dec(x_3); -x_114 = lean_expr_dbg_to_string(x_104); -lean_dec(x_104); -x_115 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_115, 0, x_114); -x_116 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_116, 0, x_115); -x_117 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7; -x_118 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_118, 1, x_116); -x_119 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_119, 0, x_118); -x_120 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_120, 0, x_119); -lean_ctor_set(x_120, 1, x_105); -return x_120; -} -else -{ -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_121 = l_Lean_Expr_getAppNumArgsAux___main(x_104, x_107); -x_122 = lean_nat_sub(x_121, x_107); -x_123 = lean_unsigned_to_nat(1u); -x_124 = lean_nat_sub(x_122, x_123); -lean_dec(x_122); -x_125 = l_Lean_Expr_getRevArg_x21___main(x_104, x_124); -lean_inc(x_4); -x_126 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_125, x_2, x_3, x_4, x_105); -if (lean_obj_tag(x_126) == 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; -x_127 = lean_ctor_get(x_126, 0); -lean_inc(x_127); -x_128 = lean_ctor_get(x_126, 1); -lean_inc(x_128); -lean_dec(x_126); -x_129 = lean_ctor_get(x_127, 0); -lean_inc(x_129); -x_130 = lean_ctor_get(x_127, 1); -lean_inc(x_130); -lean_dec(x_127); -x_131 = lean_nat_sub(x_121, x_123); -lean_dec(x_121); -x_132 = lean_nat_sub(x_131, x_123); -lean_dec(x_131); -x_133 = l_Lean_Expr_getRevArg_x21___main(x_104, x_132); -lean_dec(x_104); -x_134 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_133, x_2, x_130, x_4, x_128); -if (lean_obj_tag(x_134) == 0) -{ -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; -x_135 = lean_ctor_get(x_134, 0); -lean_inc(x_135); -x_136 = lean_ctor_get(x_134, 1); -lean_inc(x_136); -if (lean_is_exclusive(x_134)) { - lean_ctor_release(x_134, 0); - lean_ctor_release(x_134, 1); - x_137 = x_134; -} else { - lean_dec_ref(x_134); - x_137 = lean_box(0); -} -x_138 = lean_ctor_get(x_135, 0); -lean_inc(x_138); -x_139 = lean_ctor_get(x_135, 1); -lean_inc(x_139); -if (lean_is_exclusive(x_135)) { - lean_ctor_release(x_135, 0); - lean_ctor_release(x_135, 1); - x_140 = x_135; -} else { - lean_dec_ref(x_135); - x_140 = lean_box(0); -} -x_141 = lean_name_mk_numeral(x_129, x_138); -if (lean_is_scalar(x_140)) { - x_142 = lean_alloc_ctor(0, 2, 0); -} else { - x_142 = x_140; -} -lean_ctor_set(x_142, 0, x_141); -lean_ctor_set(x_142, 1, x_139); -if (lean_is_scalar(x_137)) { - x_143 = lean_alloc_ctor(0, 2, 0); -} else { - x_143 = x_137; -} -lean_ctor_set(x_143, 0, x_142); -lean_ctor_set(x_143, 1, x_136); -return x_143; -} -else -{ -lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; -lean_dec(x_129); -x_144 = lean_ctor_get(x_134, 0); -lean_inc(x_144); -x_145 = lean_ctor_get(x_134, 1); -lean_inc(x_145); -if (lean_is_exclusive(x_134)) { - lean_ctor_release(x_134, 0); - lean_ctor_release(x_134, 1); - x_146 = x_134; -} else { - lean_dec_ref(x_134); - x_146 = lean_box(0); -} -if (lean_is_scalar(x_146)) { - x_147 = lean_alloc_ctor(1, 2, 0); -} else { - x_147 = x_146; -} -lean_ctor_set(x_147, 0, x_144); -lean_ctor_set(x_147, 1, x_145); -return x_147; -} -} -else -{ -lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; -lean_dec(x_121); -lean_dec(x_104); -lean_dec(x_4); -x_148 = lean_ctor_get(x_126, 0); -lean_inc(x_148); -x_149 = lean_ctor_get(x_126, 1); -lean_inc(x_149); -if (lean_is_exclusive(x_126)) { - lean_ctor_release(x_126, 0); - lean_ctor_release(x_126, 1); - x_150 = x_126; -} else { - lean_dec_ref(x_126); - x_150 = lean_box(0); -} -if (lean_is_scalar(x_150)) { - x_151 = lean_alloc_ctor(1, 2, 0); -} else { - x_151 = x_150; -} -lean_ctor_set(x_151, 0, x_148); -lean_ctor_set(x_151, 1, x_149); -return x_151; -} -} -} -else -{ -lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; -x_152 = l_Lean_Expr_getAppNumArgsAux___main(x_104, x_107); -x_153 = lean_nat_sub(x_152, x_107); -x_154 = lean_unsigned_to_nat(1u); -x_155 = lean_nat_sub(x_153, x_154); -lean_dec(x_153); -x_156 = l_Lean_Expr_getRevArg_x21___main(x_104, x_155); -lean_inc(x_4); -x_157 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_156, x_2, x_3, x_4, x_105); -if (lean_obj_tag(x_157) == 0) -{ -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; -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_160 = lean_ctor_get(x_158, 0); -lean_inc(x_160); -x_161 = lean_ctor_get(x_158, 1); -lean_inc(x_161); -lean_dec(x_158); -x_162 = lean_nat_sub(x_152, x_154); -lean_dec(x_152); -x_163 = lean_nat_sub(x_162, x_154); -lean_dec(x_162); -x_164 = l_Lean_Expr_getRevArg_x21___main(x_104, x_163); -lean_dec(x_104); -x_165 = l_Lean_PrettyPrinter_Parenthesizer_evalString(x_164, x_2, x_161, x_4, x_159); -if (lean_obj_tag(x_165) == 0) -{ -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; -x_166 = lean_ctor_get(x_165, 0); -lean_inc(x_166); -x_167 = lean_ctor_get(x_165, 1); -lean_inc(x_167); -if (lean_is_exclusive(x_165)) { - lean_ctor_release(x_165, 0); - lean_ctor_release(x_165, 1); - x_168 = x_165; -} else { - lean_dec_ref(x_165); - x_168 = lean_box(0); -} -x_169 = lean_ctor_get(x_166, 0); -lean_inc(x_169); -x_170 = lean_ctor_get(x_166, 1); -lean_inc(x_170); -if (lean_is_exclusive(x_166)) { - lean_ctor_release(x_166, 0); - lean_ctor_release(x_166, 1); - x_171 = x_166; -} else { - lean_dec_ref(x_166); - x_171 = lean_box(0); -} -x_172 = lean_name_mk_string(x_160, x_169); -if (lean_is_scalar(x_171)) { - x_173 = lean_alloc_ctor(0, 2, 0); -} else { - x_173 = x_171; -} -lean_ctor_set(x_173, 0, x_172); -lean_ctor_set(x_173, 1, x_170); -if (lean_is_scalar(x_168)) { - x_174 = lean_alloc_ctor(0, 2, 0); -} else { - x_174 = x_168; -} -lean_ctor_set(x_174, 0, x_173); -lean_ctor_set(x_174, 1, x_167); -return x_174; -} -else -{ -lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; -lean_dec(x_160); -x_175 = lean_ctor_get(x_165, 0); -lean_inc(x_175); -x_176 = lean_ctor_get(x_165, 1); -lean_inc(x_176); -if (lean_is_exclusive(x_165)) { - lean_ctor_release(x_165, 0); - lean_ctor_release(x_165, 1); - x_177 = x_165; -} else { - lean_dec_ref(x_165); - x_177 = lean_box(0); -} -if (lean_is_scalar(x_177)) { - x_178 = lean_alloc_ctor(1, 2, 0); -} else { - x_178 = x_177; -} -lean_ctor_set(x_178, 0, x_175); -lean_ctor_set(x_178, 1, x_176); -return x_178; -} -} -else -{ -lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; -lean_dec(x_152); -lean_dec(x_104); -lean_dec(x_4); -x_179 = lean_ctor_get(x_157, 0); -lean_inc(x_179); -x_180 = lean_ctor_get(x_157, 1); -lean_inc(x_180); -if (lean_is_exclusive(x_157)) { - lean_ctor_release(x_157, 0); - lean_ctor_release(x_157, 1); - x_181 = x_157; -} else { - lean_dec_ref(x_157); - x_181 = lean_box(0); -} -if (lean_is_scalar(x_181)) { - x_182 = lean_alloc_ctor(1, 2, 0); -} else { - x_182 = x_181; -} -lean_ctor_set(x_182, 0, x_179); -lean_ctor_set(x_182, 1, x_180); -return x_182; -} -} -} -else -{ -lean_object* x_183; lean_object* x_184; lean_object* x_185; -lean_dec(x_104); -lean_dec(x_4); -x_183 = lean_box(0); -x_184 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_184, 0, x_183); -lean_ctor_set(x_184, 1, x_3); -x_185 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_185, 0, x_184); -lean_ctor_set(x_185, 1, x_105); -return x_185; -} -} -} -else -{ -uint8_t x_186; -lean_dec(x_4); -lean_dec(x_3); -x_186 = !lean_is_exclusive(x_6); -if (x_186 == 0) -{ -return x_6; -} -else -{ -lean_object* x_187; lean_object* x_188; lean_object* x_189; -x_187 = lean_ctor_get(x_6, 0); -x_188 = lean_ctor_get(x_6, 1); -lean_inc(x_188); -lean_inc(x_187); -lean_dec(x_6); -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_187); -lean_ctor_set(x_189, 1, x_188); -return x_189; -} -} -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_2); -return x_6; -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_1, x_2, x_3, x_4, x_5); -return x_6; -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_evalName___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_evalName(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_2); -return x_6; +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; } } lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { @@ -8161,190 +6967,174 @@ return x_2; lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__4; -x_2 = lean_alloc_ctor(22, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__4; +x_3 = lean_alloc_ctor(22, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; } } lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; -lean_inc(x_4); -lean_inc(x_3); -lean_inc(x_2); -x_6 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_6) == 0) +lean_object* x_6; uint8_t x_7; +x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_3, x_4, x_5); +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) { +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; +x_8 = lean_ctor_get(x_6, 0); +x_9 = lean_ctor_get(x_6, 1); +x_10 = lean_ctor_get(x_8, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_8, 1); +lean_inc(x_11); +lean_dec(x_8); +x_12 = l_Lean_Syntax_getKind(x_10); +x_13 = l_Lean_nullKind; +x_14 = lean_name_eq(x_12, x_13); +lean_dec(x_12); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; +lean_free_object(x_6); +x_15 = l_Lean_Expr_appArg_x21(x_1); +lean_inc(x_4); +x_16 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_15, x_4, x_9); +if (lean_obj_tag(x_16) == 0) +{ +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_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_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_resume), 5, 1); +lean_closure_set(x_19, 0, x_1); +x_20 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1; +x_21 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize(x_20, x_17, x_19, x_2, x_11, x_4, x_18); +return x_21; +} +else +{ +uint8_t x_22; +lean_dec(x_11); lean_dec(x_4); -lean_dec(x_3); lean_dec(x_2); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_16); +if (x_22 == 0) +{ +return x_16; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_16, 0); +x_24 = lean_ctor_get(x_16, 1); +lean_inc(x_24); +lean_inc(x_23); +lean_dec(x_16); +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; +} +} +} +else +{ +lean_object* x_26; +lean_dec(x_11); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_26 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +lean_ctor_set_tag(x_6, 1); +lean_ctor_set(x_6, 0, x_26); return x_6; } -else -{ -lean_object* x_7; lean_object* x_8; uint8_t x_9; -x_7 = lean_ctor_get(x_6, 1); -lean_inc(x_7); -lean_dec(x_6); -x_8 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_3, x_4, x_7); -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; lean_object* x_15; uint8_t x_16; -x_10 = lean_ctor_get(x_8, 0); -x_11 = lean_ctor_get(x_8, 1); -x_12 = lean_ctor_get(x_10, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_10, 1); -lean_inc(x_13); -lean_dec(x_10); -x_14 = l_Lean_Syntax_getKind(x_12); -x_15 = l_Lean_nullKind; -x_16 = lean_name_eq(x_14, x_15); -lean_dec(x_14); -if (x_16 == 0) -{ -lean_object* x_17; lean_object* x_18; -lean_free_object(x_8); -x_17 = l_Lean_Expr_appArg_x21(x_1); -lean_inc(x_4); -x_18 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_17, x_2, x_13, x_4, 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; lean_object* x_24; -x_19 = lean_ctor_get(x_18, 0); -lean_inc(x_19); -x_20 = lean_ctor_get(x_18, 1); -lean_inc(x_20); -lean_dec(x_18); -x_21 = lean_ctor_get(x_19, 0); -lean_inc(x_21); -x_22 = lean_ctor_get(x_19, 1); -lean_inc(x_22); -lean_dec(x_19); -x_23 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1; -x_24 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(x_23, x_21, x_2, x_22, x_4, x_20); -return x_24; } else { -uint8_t x_25; -lean_dec(x_4); -lean_dec(x_2); -x_25 = !lean_is_exclusive(x_18); -if (x_25 == 0) -{ -return x_18; -} -else -{ -lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_26 = lean_ctor_get(x_18, 0); -x_27 = lean_ctor_get(x_18, 1); +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; +x_27 = lean_ctor_get(x_6, 0); +x_28 = lean_ctor_get(x_6, 1); +lean_inc(x_28); lean_inc(x_27); -lean_inc(x_26); -lean_dec(x_18); -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_dec(x_6); +x_29 = lean_ctor_get(x_27, 0); +lean_inc(x_29); +x_30 = lean_ctor_get(x_27, 1); +lean_inc(x_30); +lean_dec(x_27); +x_31 = l_Lean_Syntax_getKind(x_29); +x_32 = l_Lean_nullKind; +x_33 = lean_name_eq(x_31, x_32); +lean_dec(x_31); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; +x_34 = l_Lean_Expr_appArg_x21(x_1); +lean_inc(x_4); +x_35 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_34, x_4, x_28); +if (lean_obj_tag(x_35) == 0) +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +x_38 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_resume), 5, 1); +lean_closure_set(x_38, 0, x_1); +x_39 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1; +x_40 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize(x_39, x_36, x_38, x_2, x_30, x_4, x_37); +return x_40; } else { -lean_object* x_29; -lean_dec(x_13); +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +lean_dec(x_30); lean_dec(x_4); lean_dec(x_2); -x_29 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -lean_ctor_set_tag(x_8, 1); -lean_ctor_set(x_8, 0, x_29); -return x_8; -} -} -else -{ -lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; -x_30 = lean_ctor_get(x_8, 0); -x_31 = lean_ctor_get(x_8, 1); -lean_inc(x_31); -lean_inc(x_30); -lean_dec(x_8); -x_32 = lean_ctor_get(x_30, 0); -lean_inc(x_32); -x_33 = lean_ctor_get(x_30, 1); -lean_inc(x_33); -lean_dec(x_30); -x_34 = l_Lean_Syntax_getKind(x_32); -x_35 = l_Lean_nullKind; -x_36 = lean_name_eq(x_34, x_35); -lean_dec(x_34); -if (x_36 == 0) -{ -lean_object* x_37; lean_object* x_38; -x_37 = l_Lean_Expr_appArg_x21(x_1); -lean_inc(x_4); -x_38 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_37, x_2, x_33, x_4, x_31); -if (lean_obj_tag(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; -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_ctor_get(x_39, 0); +lean_dec(x_1); +x_41 = lean_ctor_get(x_35, 0); lean_inc(x_41); -x_42 = lean_ctor_get(x_39, 1); +x_42 = lean_ctor_get(x_35, 1); lean_inc(x_42); -lean_dec(x_39); -x_43 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1; -x_44 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(x_43, x_41, x_2, x_42, x_4, x_40); +if (lean_is_exclusive(x_35)) { + lean_ctor_release(x_35, 0); + lean_ctor_release(x_35, 1); + x_43 = x_35; +} else { + lean_dec_ref(x_35); + x_43 = lean_box(0); +} +if (lean_is_scalar(x_43)) { + x_44 = lean_alloc_ctor(1, 2, 0); +} else { + x_44 = x_43; +} +lean_ctor_set(x_44, 0, x_41); +lean_ctor_set(x_44, 1, x_42); return x_44; } -else -{ -lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; -lean_dec(x_4); -lean_dec(x_2); -x_45 = lean_ctor_get(x_38, 0); -lean_inc(x_45); -x_46 = lean_ctor_get(x_38, 1); -lean_inc(x_46); -if (lean_is_exclusive(x_38)) { - lean_ctor_release(x_38, 0); - lean_ctor_release(x_38, 1); - x_47 = x_38; -} else { - lean_dec_ref(x_38); - x_47 = lean_box(0); -} -if (lean_is_scalar(x_47)) { - x_48 = lean_alloc_ctor(1, 2, 0); -} else { - x_48 = x_47; -} -lean_ctor_set(x_48, 0, x_45); -lean_ctor_set(x_48, 1, x_46); -return x_48; -} } else { -lean_object* x_49; lean_object* x_50; -lean_dec(x_33); +lean_object* x_45; lean_object* x_46; +lean_dec(x_30); lean_dec(x_4); lean_dec(x_2); -x_49 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_49); -lean_ctor_set(x_50, 1, x_31); -return x_50; -} +lean_dec(x_1); +x_45 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_28); +return x_46; } } } @@ -8359,15 +7149,6 @@ lean_dec(x_2); return x_5; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_1); -return x_6; -} -} lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1() { _start: { @@ -8382,7 +7163,7 @@ lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_termParser_pa _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___boxed), 5, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer), 5, 0); return x_1; } } @@ -8484,65 +7265,45 @@ _start: lean_object* x_6; lean_object* x_7; x_6 = l_Lean_Expr_appArg_x21(x_1); lean_inc(x_4); -lean_inc(x_3); -lean_inc(x_2); -x_7 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(x_2, x_3, x_4, x_5); +x_7 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_6, x_4, x_5); if (lean_obj_tag(x_7) == 0) { -lean_dec(x_6); +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_resume), 5, 1); +lean_closure_set(x_10, 0, x_1); +x_11 = l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___closed__1; +x_12 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize(x_11, x_8, x_10, x_2, x_3, x_4, x_9); +return x_12; +} +else +{ +uint8_t x_13; lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); +lean_dec(x_1); +x_13 = !lean_is_exclusive(x_7); +if (x_13 == 0) +{ return x_7; } else { -lean_object* x_8; lean_object* x_9; -x_8 = lean_ctor_get(x_7, 1); -lean_inc(x_8); +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_7, 0); +x_15 = lean_ctor_get(x_7, 1); +lean_inc(x_15); +lean_inc(x_14); lean_dec(x_7); -lean_inc(x_4); -x_9 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_6, x_2, x_3, x_4, x_8); -if (lean_obj_tag(x_9) == 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; -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_ctor_get(x_10, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_10, 1); -lean_inc(x_13); -lean_dec(x_10); -x_14 = l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___closed__1; -x_15 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(x_14, x_12, x_2, x_13, x_4, x_11); -return x_15; -} -else -{ -uint8_t x_16; -lean_dec(x_4); -lean_dec(x_2); -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; -} +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +return x_16; } } } @@ -8557,15 +7318,6 @@ lean_dec(x_2); return x_5; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_1); -return x_6; -} -} lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___closed__1() { _start: { @@ -8580,7 +7332,7 @@ lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_tacticParser_ _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer___boxed), 5, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_tacticParser_parenthesizer), 5, 0); return x_1; } } @@ -8641,65 +7393,45 @@ _start: lean_object* x_6; lean_object* x_7; x_6 = l_Lean_Expr_appArg_x21(x_1); lean_inc(x_4); -lean_inc(x_3); -lean_inc(x_2); -x_7 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(x_2, x_3, x_4, x_5); +x_7 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_6, x_4, x_5); if (lean_obj_tag(x_7) == 0) { -lean_dec(x_6); +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_resume), 5, 1); +lean_closure_set(x_10, 0, x_1); +x_11 = l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__1; +x_12 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize(x_11, x_8, x_10, x_2, x_3, x_4, x_9); +return x_12; +} +else +{ +uint8_t x_13; lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); +lean_dec(x_1); +x_13 = !lean_is_exclusive(x_7); +if (x_13 == 0) +{ return x_7; } else { -lean_object* x_8; lean_object* x_9; -x_8 = lean_ctor_get(x_7, 1); -lean_inc(x_8); +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_7, 0); +x_15 = lean_ctor_get(x_7, 1); +lean_inc(x_15); +lean_inc(x_14); lean_dec(x_7); -lean_inc(x_4); -x_9 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_6, x_2, x_3, x_4, x_8); -if (lean_obj_tag(x_9) == 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; -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_ctor_get(x_10, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_10, 1); -lean_inc(x_13); -lean_dec(x_10); -x_14 = l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__1; -x_15 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(x_14, x_12, x_2, x_13, x_4, x_11); -return x_15; -} -else -{ -uint8_t x_16; -lean_dec(x_4); -lean_dec(x_2); -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; -} +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_14); +lean_ctor_set(x_16, 1, x_15); +return x_16; } } } @@ -8714,15 +7446,6 @@ lean_dec(x_2); return x_5; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_1); -return x_6; -} -} lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___closed__1() { _start: { @@ -8745,7 +7468,7 @@ lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_p _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer___boxed), 5, 0); +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer), 5, 0); return x_1; } } @@ -8760,133 +7483,30 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -lean_object* x_5; -lean_inc(x_3); -lean_inc(x_2); -lean_inc(x_1); -x_5 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(x_1, x_2, x_3, x_4); -if (lean_obj_tag(x_5) == 0) -{ -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -return x_5; -} -else -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_6 = lean_ctor_get(x_5, 1); -lean_inc(x_6); -lean_dec(x_5); -x_7 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_2, x_3, x_6); -x_8 = lean_ctor_get(x_7, 0); -lean_inc(x_8); -x_9 = lean_ctor_get(x_7, 1); -lean_inc(x_9); -lean_dec(x_7); -x_10 = lean_ctor_get(x_8, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_8, 1); -lean_inc(x_11); -lean_dec(x_8); -x_12 = l_Lean_Syntax_getKind(x_10); -x_13 = lean_box(0); -x_14 = l_Lean_mkConst(x_12, x_13); -x_15 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_14, x_1, x_11, x_3, x_9); -return x_15; -} -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___rarg), 4, 0); -return x_2; -} -} -lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("categoryParser"); -return x_1; -} -} -lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__4; -x_2 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3() { -_start: -{ -lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___boxed), 1, 0); -return x_1; -} -} -lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; -x_3 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; -x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3; -x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); -return x_5; -} -} lean_object* l_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; x_6 = lean_unsigned_to_nat(0u); x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); -x_8 = lean_unsigned_to_nat(1u); -x_9 = lean_nat_sub(x_7, x_8); -lean_dec(x_7); -x_10 = lean_nat_sub(x_9, x_8); -lean_dec(x_9); +x_8 = lean_nat_sub(x_7, x_6); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); -lean_inc(x_4); -lean_inc(x_3); -lean_inc(x_2); -x_12 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_12) == 0) -{ -lean_dec(x_11); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -return x_12; -} -else -{ -lean_object* x_13; lean_object* x_14; -x_13 = lean_ctor_get(x_12, 1); -lean_inc(x_13); +x_12 = lean_nat_sub(x_7, x_9); +lean_dec(x_7); +x_13 = lean_nat_sub(x_12, x_9); lean_dec(x_12); -x_14 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_11, x_2, x_3, x_4, x_13); -return x_14; -} +x_14 = l_Lean_Expr_getRevArg_x21___main(x_1, x_13); +x_15 = l_Lean_mkAppStx___closed__9; +x_16 = lean_array_push(x_15, x_11); +x_17 = lean_array_push(x_16, x_14); +x_18 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; +x_19 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_17, x_17, x_6, x_18); +lean_dec(x_17); +x_20 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_19, x_2, x_3, x_4, x_5); +return x_20; } } lean_object* l_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { @@ -9080,6 +7700,170 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_ctor_get(x_2, 0); +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +uint8_t x_7; uint8_t x_8; uint8_t x_9; +x_7 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +x_8 = 1; +x_9 = l_Lean_Meta_TransparencyMode_lt(x_7, x_8); +if (x_9 == 0) +{ +lean_object* x_10; +x_10 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_10; +} +else +{ +lean_object* x_11; +lean_ctor_set_uint8(x_5, sizeof(void*)*1 + 6, x_8); +x_11 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_11; +} +} +else +{ +lean_object* x_12; uint8_t x_13; uint8_t x_14; uint8_t x_15; uint8_t x_16; uint8_t x_17; uint8_t x_18; uint8_t x_19; uint8_t x_20; uint8_t x_21; +x_12 = lean_ctor_get(x_5, 0); +x_13 = lean_ctor_get_uint8(x_5, sizeof(void*)*1); +x_14 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 1); +x_15 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 2); +x_16 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 3); +x_17 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 4); +x_18 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 5); +x_19 = lean_ctor_get_uint8(x_5, sizeof(void*)*1 + 6); +lean_inc(x_12); +lean_dec(x_5); +x_20 = 1; +x_21 = l_Lean_Meta_TransparencyMode_lt(x_19, x_20); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; +x_22 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_22, 0, x_12); +lean_ctor_set_uint8(x_22, sizeof(void*)*1, x_13); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 1, x_14); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 2, x_15); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 3, x_16); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 4, x_17); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 5, x_18); +lean_ctor_set_uint8(x_22, sizeof(void*)*1 + 6, x_19); +lean_ctor_set(x_2, 0, x_22); +x_23 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_23; +} +else +{ +lean_object* x_24; lean_object* x_25; +x_24 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_24, 0, x_12); +lean_ctor_set_uint8(x_24, sizeof(void*)*1, x_13); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 1, x_14); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 2, x_15); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 3, x_16); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 4, x_17); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 5, x_18); +lean_ctor_set_uint8(x_24, sizeof(void*)*1 + 6, x_20); +lean_ctor_set(x_2, 0, x_24); +x_25 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_2, x_3); +return x_25; +} +} +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; uint8_t x_33; uint8_t x_34; uint8_t x_35; uint8_t x_36; uint8_t x_37; uint8_t x_38; lean_object* x_39; uint8_t x_40; uint8_t x_41; +x_26 = lean_ctor_get(x_2, 0); +x_27 = lean_ctor_get(x_2, 1); +x_28 = lean_ctor_get(x_2, 2); +x_29 = lean_ctor_get(x_2, 3); +x_30 = lean_ctor_get(x_2, 4); +lean_inc(x_30); +lean_inc(x_29); +lean_inc(x_28); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_2); +x_31 = lean_ctor_get(x_26, 0); +lean_inc(x_31); +x_32 = lean_ctor_get_uint8(x_26, sizeof(void*)*1); +x_33 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 1); +x_34 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 2); +x_35 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 3); +x_36 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 4); +x_37 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 5); +x_38 = lean_ctor_get_uint8(x_26, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_26)) { + lean_ctor_release(x_26, 0); + x_39 = x_26; +} else { + lean_dec_ref(x_26); + x_39 = lean_box(0); +} +x_40 = 1; +x_41 = l_Lean_Meta_TransparencyMode_lt(x_38, x_40); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; +if (lean_is_scalar(x_39)) { + x_42 = lean_alloc_ctor(0, 1, 7); +} else { + x_42 = x_39; +} +lean_ctor_set(x_42, 0, x_31); +lean_ctor_set_uint8(x_42, sizeof(void*)*1, x_32); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 1, x_33); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 2, x_34); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 3, x_35); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 4, x_36); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 5, x_37); +lean_ctor_set_uint8(x_42, sizeof(void*)*1 + 6, x_38); +x_43 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_27); +lean_ctor_set(x_43, 2, x_28); +lean_ctor_set(x_43, 3, x_29); +lean_ctor_set(x_43, 4, x_30); +x_44 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_43, x_3); +return x_44; +} +else +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; +if (lean_is_scalar(x_39)) { + x_45 = lean_alloc_ctor(0, 1, 7); +} else { + x_45 = x_39; +} +lean_ctor_set(x_45, 0, x_31); +lean_ctor_set_uint8(x_45, sizeof(void*)*1, x_32); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 1, x_33); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 2, x_34); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 3, x_35); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 4, x_36); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 5, x_37); +lean_ctor_set_uint8(x_45, sizeof(void*)*1 + 6, x_40); +x_46 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_27); +lean_ctor_set(x_46, 2, x_28); +lean_ctor_set(x_46, 3, x_29); +lean_ctor_set(x_46, 4, x_30); +x_47 = l___private_Lean_Meta_ReduceEval_1__evalName___main(x_1, x_46, x_3); +return x_47; +} +} +} +} lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__1() { _start: { @@ -9157,7 +7941,7 @@ return x_2; lean_object* l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_3, x_4, x_5); x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); @@ -9168,222 +7952,217 @@ 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_unsigned_to_nat(0u); -x_12 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_11); -x_13 = lean_nat_sub(x_12, x_11); -lean_dec(x_12); -x_14 = lean_unsigned_to_nat(1u); -x_15 = lean_nat_sub(x_13, x_14); -lean_dec(x_13); -x_16 = l_Lean_Expr_getRevArg_x21___main(x_1, x_15); -lean_inc(x_4); -x_17 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_16, x_2, x_10, x_4, x_8); -if (lean_obj_tag(x_17) == 0) -{ -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; uint8_t x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -if (lean_is_exclusive(x_17)) { - lean_ctor_release(x_17, 0); - lean_ctor_release(x_17, 1); - x_20 = x_17; +if (lean_is_exclusive(x_7)) { + lean_ctor_release(x_7, 0); + lean_ctor_release(x_7, 1); + x_11 = x_7; } else { - lean_dec_ref(x_17); - x_20 = lean_box(0); + lean_dec_ref(x_7); + x_11 = lean_box(0); } -x_21 = lean_ctor_get(x_18, 0); -lean_inc(x_21); -x_22 = lean_ctor_get(x_18, 1); -lean_inc(x_22); +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_12); +x_14 = lean_nat_sub(x_13, x_12); +lean_dec(x_13); +x_15 = lean_unsigned_to_nat(1u); +x_16 = lean_nat_sub(x_14, x_15); +lean_dec(x_14); +x_17 = l_Lean_Expr_getRevArg_x21___main(x_1, x_16); +lean_inc(x_4); +x_18 = l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___spec__1(x_17, x_4, x_8); +if (lean_obj_tag(x_18) == 0) +{ +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; uint8_t 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); if (lean_is_exclusive(x_18)) { lean_ctor_release(x_18, 0); lean_ctor_release(x_18, 1); - x_23 = x_18; + x_21 = x_18; } else { lean_dec_ref(x_18); - x_23 = lean_box(0); + x_21 = lean_box(0); } -x_24 = l_Lean_Syntax_getKind(x_9); -x_25 = lean_name_eq(x_21, x_24); -x_26 = l_Lean_Expr_appArg_x21(x_1); -x_27 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_visit), 5, 1); -lean_closure_set(x_27, 0, x_26); -if (x_25 == 0) -{ -uint8_t x_75; -x_75 = 1; -x_28 = x_75; -goto block_74; -} -else -{ -uint8_t x_76; -x_76 = 0; -x_28 = x_76; -goto block_74; -} -block_74: -{ -uint8_t x_29; -if (x_28 == 0) -{ -uint8_t x_72; -x_72 = 0; -x_29 = x_72; -goto block_71; -} -else +x_22 = l_Lean_Syntax_getKind(x_9); +x_23 = lean_name_eq(x_19, x_22); +x_24 = l_Lean_Expr_appArg_x21(x_1); +x_25 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_visit), 5, 1); +lean_closure_set(x_25, 0, x_24); +if (x_23 == 0) { uint8_t x_73; x_73 = 1; -x_29 = x_73; -goto block_71; +x_26 = x_73; +goto block_72; } -block_71: +else { -if (x_29 == 0) +uint8_t x_74; +x_74 = 0; +x_26 = x_74; +goto block_72; +} +block_72: { -lean_object* x_30; -lean_dec(x_24); -lean_dec(x_23); +uint8_t x_27; +if (x_26 == 0) +{ +uint8_t x_70; +x_70 = 0; +x_27 = x_70; +goto block_69; +} +else +{ +uint8_t x_71; +x_71 = 1; +x_27 = x_71; +goto block_69; +} +block_69: +{ +if (x_27 == 0) +{ +lean_object* x_28; +lean_dec(x_22); lean_dec(x_21); -lean_dec(x_20); -x_30 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_27, x_2, x_22, x_4, x_19); -return x_30; +lean_dec(x_19); +lean_dec(x_11); +x_28 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_25, x_2, x_10, x_4, x_20); +return x_28; } else { -lean_object* x_31; lean_object* x_32; lean_object* x_61; uint8_t x_62; -lean_dec(x_27); -x_61 = lean_ctor_get(x_19, 4); -lean_inc(x_61); -x_62 = lean_ctor_get_uint8(x_61, sizeof(void*)*1); -lean_dec(x_61); -if (x_62 == 0) +lean_object* x_29; lean_object* x_30; lean_object* x_59; uint8_t x_60; +lean_dec(x_25); +x_59 = lean_ctor_get(x_20, 4); +lean_inc(x_59); +x_60 = lean_ctor_get_uint8(x_59, sizeof(void*)*1); +lean_dec(x_59); +if (x_60 == 0) { -uint8_t x_63; lean_object* x_64; lean_object* x_65; -x_63 = 0; -x_64 = lean_box(x_63); -if (lean_is_scalar(x_23)) { - x_65 = lean_alloc_ctor(0, 2, 0); +uint8_t x_61; lean_object* x_62; lean_object* x_63; +x_61 = 0; +x_62 = lean_box(x_61); +if (lean_is_scalar(x_11)) { + x_63 = lean_alloc_ctor(0, 2, 0); } else { - x_65 = x_23; + x_63 = x_11; } -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set(x_65, 1, x_22); -x_31 = x_65; -x_32 = x_19; -goto block_60; +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_10); +x_29 = x_63; +x_30 = x_20; +goto block_58; } else { -lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_66 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; -x_67 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_66, x_4, x_19); -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); -if (lean_is_scalar(x_23)) { - x_70 = lean_alloc_ctor(0, 2, 0); +lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_64 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; +x_65 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_64, x_4, x_20); +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); +if (lean_is_scalar(x_11)) { + x_68 = lean_alloc_ctor(0, 2, 0); } else { - x_70 = x_23; + x_68 = x_11; } -lean_ctor_set(x_70, 0, x_68); -lean_ctor_set(x_70, 1, x_22); -x_31 = x_70; -x_32 = x_69; -goto block_60; +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_10); +x_29 = x_68; +x_30 = x_67; +goto block_58; } -block_60: +block_58: { -lean_object* x_33; uint8_t x_34; -x_33 = lean_ctor_get(x_31, 0); -lean_inc(x_33); -x_34 = lean_unbox(x_33); -lean_dec(x_33); -if (x_34 == 0) -{ -lean_object* x_35; lean_object* x_36; +lean_object* x_31; uint8_t x_32; +x_31 = lean_ctor_get(x_29, 0); +lean_inc(x_31); +x_32 = lean_unbox(x_31); lean_dec(x_31); -lean_dec(x_24); -lean_dec(x_21); +if (x_32 == 0) +{ +lean_object* x_33; lean_object* x_34; +lean_dec(x_29); +lean_dec(x_22); +lean_dec(x_19); lean_dec(x_4); lean_dec(x_2); -x_35 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -if (lean_is_scalar(x_20)) { - x_36 = lean_alloc_ctor(1, 2, 0); +x_33 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +if (lean_is_scalar(x_21)) { + x_34 = lean_alloc_ctor(1, 2, 0); } else { - x_36 = x_20; - lean_ctor_set_tag(x_36, 1); + x_34 = x_21; + lean_ctor_set_tag(x_34, 1); } -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_32); -return x_36; +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_30); +return x_34; } else { -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; uint8_t x_54; -lean_dec(x_20); -x_37 = lean_ctor_get(x_31, 1); -lean_inc(x_37); -lean_dec(x_31); -x_38 = l_Lean_Name_toString___closed__1; -x_39 = l_Lean_Name_toStringWithSep___main(x_38, x_24); -x_40 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_40, 0, x_39); -x_41 = lean_alloc_ctor(0, 1, 0); +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; uint8_t x_52; +lean_dec(x_21); +x_35 = lean_ctor_get(x_29, 1); +lean_inc(x_35); +lean_dec(x_29); +x_36 = l_Lean_Name_toString___closed__1; +x_37 = l_Lean_Name_toStringWithSep___main(x_36, x_22); +x_38 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_38, 0, x_37); +x_39 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_39, 0, x_38); +x_40 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__5; +x_41 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_41, 0, x_40); -x_42 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__5; +lean_ctor_set(x_41, 1, x_39); +x_42 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__8; 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_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__8; -x_45 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_45, 0, x_43); -lean_ctor_set(x_45, 1, x_44); -x_46 = l_Lean_Name_toStringWithSep___main(x_38, x_21); -x_47 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_47, 0, x_46); -x_48 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_43, 0, x_41); +lean_ctor_set(x_43, 1, x_42); +x_44 = l_Lean_Name_toStringWithSep___main(x_36, x_19); +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); +x_47 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_47, 0, x_43); +lean_ctor_set(x_47, 1, x_46); +x_48 = l_Lean_Elab_Term_mkConst___closed__4; x_49 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_49, 0, x_45); +lean_ctor_set(x_49, 0, x_47); lean_ctor_set(x_49, 1, x_48); -x_50 = l_Lean_Elab_Term_mkConst___closed__4; -x_51 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_51, 0, x_49); -lean_ctor_set(x_51, 1, x_50); -x_52 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; -x_53 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_52, x_51, x_2, x_37, x_4, x_32); +x_50 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; +x_51 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_50, x_49, x_2, x_35, x_4, x_30); lean_dec(x_4); lean_dec(x_2); -x_54 = !lean_is_exclusive(x_53); -if (x_54 == 0) +x_52 = !lean_is_exclusive(x_51); +if (x_52 == 0) { -lean_object* x_55; lean_object* x_56; -x_55 = lean_ctor_get(x_53, 0); -lean_dec(x_55); -x_56 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -lean_ctor_set_tag(x_53, 1); -lean_ctor_set(x_53, 0, x_56); -return x_53; -} -else -{ -lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_57 = lean_ctor_get(x_53, 1); -lean_inc(x_57); +lean_object* x_53; lean_object* x_54; +x_53 = lean_ctor_get(x_51, 0); lean_dec(x_53); -x_58 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_57); -return x_59; +x_54 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +lean_ctor_set_tag(x_51, 1); +lean_ctor_set(x_51, 0, x_54); +return x_51; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_51, 1); +lean_inc(x_55); +lean_dec(x_51); +x_56 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_55); +return x_57; } } } @@ -9393,27 +8172,29 @@ return x_59; } else { -uint8_t x_77; +uint8_t x_75; +lean_dec(x_11); +lean_dec(x_10); lean_dec(x_9); lean_dec(x_4); lean_dec(x_2); -x_77 = !lean_is_exclusive(x_17); -if (x_77 == 0) +x_75 = !lean_is_exclusive(x_18); +if (x_75 == 0) { -return x_17; +return x_18; } else { -lean_object* x_78; lean_object* x_79; lean_object* x_80; -x_78 = lean_ctor_get(x_17, 0); -x_79 = lean_ctor_get(x_17, 1); -lean_inc(x_79); -lean_inc(x_78); -lean_dec(x_17); -x_80 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_80, 0, x_78); -lean_ctor_set(x_80, 1, x_79); -return x_80; +lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_76 = lean_ctor_get(x_18, 0); +x_77 = lean_ctor_get(x_18, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_18); +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; } } } @@ -9469,45 +8250,41 @@ x_10 = lean_nat_sub(x_8, x_9); lean_dec(x_8); x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); lean_inc(x_4); -x_12 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_11, x_2, x_3, x_4, x_5); +x_12 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_11, x_4, x_5); if (lean_obj_tag(x_12) == 0) { -lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +lean_object* x_13; lean_object* x_14; lean_object* x_15; x_13 = lean_ctor_get(x_12, 0); lean_inc(x_13); x_14 = lean_ctor_get(x_12, 1); lean_inc(x_14); lean_dec(x_12); -x_15 = lean_ctor_get(x_13, 0); -lean_inc(x_15); -x_16 = lean_ctor_get(x_13, 1); -lean_inc(x_16); -lean_dec(x_13); -x_17 = l_Lean_PrettyPrinter_Parenthesizer_addPrecCheck(x_15, x_2, x_16, x_4, x_14); +x_15 = l_Lean_PrettyPrinter_Parenthesizer_addPrecCheck(x_13, x_2, x_3, x_4, x_14); lean_dec(x_4); -return x_17; +return x_15; } else { -uint8_t x_18; +uint8_t x_16; lean_dec(x_4); -x_18 = !lean_is_exclusive(x_12); -if (x_18 == 0) +lean_dec(x_3); +x_16 = !lean_is_exclusive(x_12); +if (x_16 == 0) { return x_12; } else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_19 = lean_ctor_get(x_12, 0); -x_20 = lean_ctor_get(x_12, 1); -lean_inc(x_20); -lean_inc(x_19); +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_12, 0); +x_18 = lean_ctor_get(x_12, 1); +lean_inc(x_18); +lean_inc(x_17); lean_dec(x_12); -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_19); -lean_ctor_set(x_21, 1, x_20); -return x_21; +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; } } } @@ -9563,465 +8340,411 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer(lean_o _start: { lean_object* x_6; -lean_inc(x_4); -x_6 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_1, x_4, x_5); +x_6 = l_Lean_PrettyPrinter_Parenthesizer_resume(x_1, x_2, x_3, x_4, x_5); if (lean_obj_tag(x_6) == 0) { -lean_object* x_7; +lean_object* x_7; uint8_t x_8; x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); -if (lean_obj_tag(x_7) == 0) +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) { -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -lean_dec(x_6); -x_9 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3; -x_10 = l_unreachable_x21___rarg(x_9); -x_11 = lean_apply_4(x_10, x_2, x_3, x_4, x_8); -return x_11; -} -else +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_7, 1); +x_10 = lean_ctor_get(x_7, 0); +lean_dec(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +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_6, 1); -lean_inc(x_12); -lean_dec(x_6); -x_13 = lean_ctor_get(x_7, 0); -lean_inc(x_13); -lean_dec(x_7); -x_14 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_13, x_2, x_3, x_4, x_12); -if (lean_obj_tag(x_14) == 0) +uint8_t x_12; +x_12 = !lean_is_exclusive(x_6); +if (x_12 == 0) { -lean_object* x_15; uint8_t x_16; -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = !lean_is_exclusive(x_15); -if (x_16 == 0) +lean_object* x_13; uint8_t x_14; +x_13 = lean_ctor_get(x_6, 0); +lean_dec(x_13); +x_14 = !lean_is_exclusive(x_9); +if (x_14 == 0) { -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_15, 1); -x_18 = lean_ctor_get(x_15, 0); -lean_dec(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -if (lean_obj_tag(x_19) == 0) -{ -uint8_t x_20; -x_20 = !lean_is_exclusive(x_14); -if (x_20 == 0) -{ -lean_object* x_21; uint8_t x_22; -x_21 = lean_ctor_get(x_14, 0); -lean_dec(x_21); -x_22 = !lean_is_exclusive(x_17); -if (x_22 == 0) -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_23 = lean_ctor_get(x_17, 1); -lean_dec(x_23); -x_24 = lean_box(0); -lean_ctor_set(x_17, 1, x_24); -x_25 = lean_box(0); -lean_ctor_set(x_15, 0, x_25); -return x_14; -} -else -{ -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; -x_26 = lean_ctor_get(x_17, 0); -x_27 = lean_ctor_get(x_17, 2); -x_28 = lean_ctor_get(x_17, 3); -x_29 = lean_ctor_get_uint8(x_17, sizeof(void*)*4); -lean_inc(x_28); -lean_inc(x_27); -lean_inc(x_26); -lean_dec(x_17); -x_30 = lean_box(0); -x_31 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_31, 0, x_26); -lean_ctor_set(x_31, 1, x_30); -lean_ctor_set(x_31, 2, x_27); -lean_ctor_set(x_31, 3, x_28); -lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_29); -x_32 = lean_box(0); -lean_ctor_set(x_15, 1, x_31); -lean_ctor_set(x_15, 0, x_32); -return x_14; -} -} -else -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; -x_33 = lean_ctor_get(x_14, 1); -lean_inc(x_33); -lean_dec(x_14); -x_34 = lean_ctor_get(x_17, 0); -lean_inc(x_34); -x_35 = lean_ctor_get(x_17, 2); -lean_inc(x_35); -x_36 = lean_ctor_get(x_17, 3); -lean_inc(x_36); -x_37 = lean_ctor_get_uint8(x_17, sizeof(void*)*4); -if (lean_is_exclusive(x_17)) { - lean_ctor_release(x_17, 0); - lean_ctor_release(x_17, 1); - lean_ctor_release(x_17, 2); - lean_ctor_release(x_17, 3); - x_38 = x_17; -} else { - lean_dec_ref(x_17); - x_38 = lean_box(0); -} -x_39 = lean_box(0); -if (lean_is_scalar(x_38)) { - x_40 = lean_alloc_ctor(0, 4, 1); -} else { - x_40 = x_38; -} -lean_ctor_set(x_40, 0, x_34); -lean_ctor_set(x_40, 1, x_39); -lean_ctor_set(x_40, 2, x_35); -lean_ctor_set(x_40, 3, x_36); -lean_ctor_set_uint8(x_40, sizeof(void*)*4, x_37); -x_41 = lean_box(0); -lean_ctor_set(x_15, 1, x_40); -lean_ctor_set(x_15, 0, x_41); -x_42 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_42, 0, x_15); -lean_ctor_set(x_42, 1, x_33); -return x_42; -} -} -else -{ -uint8_t x_43; -x_43 = !lean_is_exclusive(x_14); -if (x_43 == 0) -{ -lean_object* x_44; uint8_t x_45; -x_44 = lean_ctor_get(x_14, 0); -lean_dec(x_44); -x_45 = !lean_is_exclusive(x_17); -if (x_45 == 0) -{ -lean_object* x_46; uint8_t x_47; -x_46 = lean_ctor_get(x_17, 1); -lean_dec(x_46); -x_47 = !lean_is_exclusive(x_19); -if (x_47 == 0) -{ -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_48 = lean_ctor_get(x_19, 0); -x_49 = l_Lean_Parser_Term_leadPrec___closed__1; -x_50 = l_Nat_min(x_49, x_48); -lean_dec(x_48); -lean_ctor_set(x_19, 0, x_50); -x_51 = lean_box(0); -lean_ctor_set(x_15, 0, x_51); -return x_14; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; -x_52 = lean_ctor_get(x_19, 0); -lean_inc(x_52); -lean_dec(x_19); -x_53 = l_Lean_Parser_Term_leadPrec___closed__1; -x_54 = l_Nat_min(x_53, x_52); -lean_dec(x_52); -x_55 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_55, 0, x_54); -lean_ctor_set(x_17, 1, x_55); -x_56 = lean_box(0); -lean_ctor_set(x_15, 0, x_56); -return x_14; -} -} -else -{ -lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t 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_57 = lean_ctor_get(x_17, 0); -x_58 = lean_ctor_get(x_17, 2); -x_59 = lean_ctor_get(x_17, 3); -x_60 = lean_ctor_get_uint8(x_17, sizeof(void*)*4); -lean_inc(x_59); -lean_inc(x_58); -lean_inc(x_57); -lean_dec(x_17); -x_61 = lean_ctor_get(x_19, 0); -lean_inc(x_61); -if (lean_is_exclusive(x_19)) { - lean_ctor_release(x_19, 0); - x_62 = x_19; -} else { - lean_dec_ref(x_19); - x_62 = lean_box(0); -} -x_63 = l_Lean_Parser_Term_leadPrec___closed__1; -x_64 = l_Nat_min(x_63, x_61); -lean_dec(x_61); -if (lean_is_scalar(x_62)) { - x_65 = lean_alloc_ctor(1, 1, 0); -} else { - x_65 = x_62; -} -lean_ctor_set(x_65, 0, x_64); -x_66 = lean_alloc_ctor(0, 4, 1); -lean_ctor_set(x_66, 0, x_57); -lean_ctor_set(x_66, 1, x_65); -lean_ctor_set(x_66, 2, x_58); -lean_ctor_set(x_66, 3, x_59); -lean_ctor_set_uint8(x_66, sizeof(void*)*4, x_60); -x_67 = lean_box(0); -lean_ctor_set(x_15, 1, x_66); -lean_ctor_set(x_15, 0, x_67); -return x_14; -} -} -else -{ -lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* 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; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; -x_68 = lean_ctor_get(x_14, 1); -lean_inc(x_68); -lean_dec(x_14); -x_69 = lean_ctor_get(x_17, 0); -lean_inc(x_69); -x_70 = lean_ctor_get(x_17, 2); -lean_inc(x_70); -x_71 = lean_ctor_get(x_17, 3); -lean_inc(x_71); -x_72 = lean_ctor_get_uint8(x_17, sizeof(void*)*4); -if (lean_is_exclusive(x_17)) { - lean_ctor_release(x_17, 0); - lean_ctor_release(x_17, 1); - lean_ctor_release(x_17, 2); - lean_ctor_release(x_17, 3); - x_73 = x_17; -} else { - lean_dec_ref(x_17); - x_73 = lean_box(0); -} -x_74 = lean_ctor_get(x_19, 0); -lean_inc(x_74); -if (lean_is_exclusive(x_19)) { - lean_ctor_release(x_19, 0); - x_75 = x_19; -} else { - lean_dec_ref(x_19); - x_75 = lean_box(0); -} -x_76 = l_Lean_Parser_Term_leadPrec___closed__1; -x_77 = l_Nat_min(x_76, x_74); -lean_dec(x_74); -if (lean_is_scalar(x_75)) { - x_78 = lean_alloc_ctor(1, 1, 0); -} else { - x_78 = x_75; -} -lean_ctor_set(x_78, 0, x_77); -if (lean_is_scalar(x_73)) { - x_79 = lean_alloc_ctor(0, 4, 1); -} else { - x_79 = x_73; -} -lean_ctor_set(x_79, 0, x_69); -lean_ctor_set(x_79, 1, x_78); -lean_ctor_set(x_79, 2, x_70); -lean_ctor_set(x_79, 3, x_71); -lean_ctor_set_uint8(x_79, sizeof(void*)*4, x_72); -x_80 = lean_box(0); -lean_ctor_set(x_15, 1, x_79); -lean_ctor_set(x_15, 0, x_80); -x_81 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_81, 0, x_15); -lean_ctor_set(x_81, 1, x_68); -return x_81; -} -} -} -else -{ -lean_object* x_82; lean_object* x_83; -x_82 = lean_ctor_get(x_15, 1); -lean_inc(x_82); +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_9, 1); lean_dec(x_15); -x_83 = lean_ctor_get(x_82, 1); -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; lean_object* x_88; uint8_t x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; -x_84 = lean_ctor_get(x_14, 1); -lean_inc(x_84); -if (lean_is_exclusive(x_14)) { - lean_ctor_release(x_14, 0); - lean_ctor_release(x_14, 1); - x_85 = x_14; -} else { - lean_dec_ref(x_14); - x_85 = lean_box(0); +x_16 = lean_box(0); +lean_ctor_set(x_9, 1, x_16); +x_17 = lean_box(0); +lean_ctor_set(x_7, 0, x_17); +return x_6; } -x_86 = lean_ctor_get(x_82, 0); -lean_inc(x_86); -x_87 = lean_ctor_get(x_82, 2); -lean_inc(x_87); -x_88 = lean_ctor_get(x_82, 3); +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_18 = lean_ctor_get(x_9, 0); +x_19 = lean_ctor_get(x_9, 2); +x_20 = lean_ctor_get(x_9, 3); +x_21 = lean_ctor_get_uint8(x_9, sizeof(void*)*4); +lean_inc(x_20); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_9); +x_22 = lean_box(0); +x_23 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_23, 0, x_18); +lean_ctor_set(x_23, 1, x_22); +lean_ctor_set(x_23, 2, x_19); +lean_ctor_set(x_23, 3, x_20); +lean_ctor_set_uint8(x_23, sizeof(void*)*4, x_21); +x_24 = lean_box(0); +lean_ctor_set(x_7, 1, x_23); +lean_ctor_set(x_7, 0, x_24); +return x_6; +} +} +else +{ +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; lean_object* x_33; lean_object* x_34; +x_25 = lean_ctor_get(x_6, 1); +lean_inc(x_25); +lean_dec(x_6); +x_26 = lean_ctor_get(x_9, 0); +lean_inc(x_26); +x_27 = lean_ctor_get(x_9, 2); +lean_inc(x_27); +x_28 = lean_ctor_get(x_9, 3); +lean_inc(x_28); +x_29 = lean_ctor_get_uint8(x_9, sizeof(void*)*4); +if (lean_is_exclusive(x_9)) { + lean_ctor_release(x_9, 0); + lean_ctor_release(x_9, 1); + lean_ctor_release(x_9, 2); + lean_ctor_release(x_9, 3); + x_30 = x_9; +} else { + lean_dec_ref(x_9); + x_30 = lean_box(0); +} +x_31 = lean_box(0); +if (lean_is_scalar(x_30)) { + x_32 = lean_alloc_ctor(0, 4, 1); +} else { + x_32 = x_30; +} +lean_ctor_set(x_32, 0, x_26); +lean_ctor_set(x_32, 1, x_31); +lean_ctor_set(x_32, 2, x_27); +lean_ctor_set(x_32, 3, x_28); +lean_ctor_set_uint8(x_32, sizeof(void*)*4, x_29); +x_33 = lean_box(0); +lean_ctor_set(x_7, 1, x_32); +lean_ctor_set(x_7, 0, x_33); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_7); +lean_ctor_set(x_34, 1, x_25); +return x_34; +} +} +else +{ +uint8_t x_35; +x_35 = !lean_is_exclusive(x_6); +if (x_35 == 0) +{ +lean_object* x_36; uint8_t x_37; +x_36 = lean_ctor_get(x_6, 0); +lean_dec(x_36); +x_37 = !lean_is_exclusive(x_9); +if (x_37 == 0) +{ +lean_object* x_38; uint8_t x_39; +x_38 = lean_ctor_get(x_9, 1); +lean_dec(x_38); +x_39 = !lean_is_exclusive(x_11); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_40 = lean_ctor_get(x_11, 0); +x_41 = l_Lean_Parser_Term_leadPrec___closed__1; +x_42 = l_Nat_min(x_41, x_40); +lean_dec(x_40); +lean_ctor_set(x_11, 0, x_42); +x_43 = lean_box(0); +lean_ctor_set(x_7, 0, x_43); +return x_6; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_44 = lean_ctor_get(x_11, 0); +lean_inc(x_44); +lean_dec(x_11); +x_45 = l_Lean_Parser_Term_leadPrec___closed__1; +x_46 = l_Nat_min(x_45, x_44); +lean_dec(x_44); +x_47 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_9, 1, x_47); +x_48 = lean_box(0); +lean_ctor_set(x_7, 0, x_48); +return x_6; +} +} +else +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t 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; +x_49 = lean_ctor_get(x_9, 0); +x_50 = lean_ctor_get(x_9, 2); +x_51 = lean_ctor_get(x_9, 3); +x_52 = lean_ctor_get_uint8(x_9, sizeof(void*)*4); +lean_inc(x_51); +lean_inc(x_50); +lean_inc(x_49); +lean_dec(x_9); +x_53 = lean_ctor_get(x_11, 0); +lean_inc(x_53); +if (lean_is_exclusive(x_11)) { + lean_ctor_release(x_11, 0); + x_54 = x_11; +} else { + lean_dec_ref(x_11); + x_54 = lean_box(0); +} +x_55 = l_Lean_Parser_Term_leadPrec___closed__1; +x_56 = l_Nat_min(x_55, x_53); +lean_dec(x_53); +if (lean_is_scalar(x_54)) { + x_57 = lean_alloc_ctor(1, 1, 0); +} else { + x_57 = x_54; +} +lean_ctor_set(x_57, 0, x_56); +x_58 = lean_alloc_ctor(0, 4, 1); +lean_ctor_set(x_58, 0, x_49); +lean_ctor_set(x_58, 1, x_57); +lean_ctor_set(x_58, 2, x_50); +lean_ctor_set(x_58, 3, x_51); +lean_ctor_set_uint8(x_58, sizeof(void*)*4, x_52); +x_59 = lean_box(0); +lean_ctor_set(x_7, 1, x_58); +lean_ctor_set(x_7, 0, x_59); +return x_6; +} +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; uint8_t 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_60 = lean_ctor_get(x_6, 1); +lean_inc(x_60); +lean_dec(x_6); +x_61 = lean_ctor_get(x_9, 0); +lean_inc(x_61); +x_62 = lean_ctor_get(x_9, 2); +lean_inc(x_62); +x_63 = lean_ctor_get(x_9, 3); +lean_inc(x_63); +x_64 = lean_ctor_get_uint8(x_9, sizeof(void*)*4); +if (lean_is_exclusive(x_9)) { + lean_ctor_release(x_9, 0); + lean_ctor_release(x_9, 1); + lean_ctor_release(x_9, 2); + lean_ctor_release(x_9, 3); + x_65 = x_9; +} else { + lean_dec_ref(x_9); + x_65 = lean_box(0); +} +x_66 = lean_ctor_get(x_11, 0); +lean_inc(x_66); +if (lean_is_exclusive(x_11)) { + lean_ctor_release(x_11, 0); + x_67 = x_11; +} else { + lean_dec_ref(x_11); + x_67 = lean_box(0); +} +x_68 = l_Lean_Parser_Term_leadPrec___closed__1; +x_69 = l_Nat_min(x_68, x_66); +lean_dec(x_66); +if (lean_is_scalar(x_67)) { + x_70 = lean_alloc_ctor(1, 1, 0); +} else { + x_70 = x_67; +} +lean_ctor_set(x_70, 0, x_69); +if (lean_is_scalar(x_65)) { + x_71 = lean_alloc_ctor(0, 4, 1); +} else { + x_71 = x_65; +} +lean_ctor_set(x_71, 0, x_61); +lean_ctor_set(x_71, 1, x_70); +lean_ctor_set(x_71, 2, x_62); +lean_ctor_set(x_71, 3, x_63); +lean_ctor_set_uint8(x_71, sizeof(void*)*4, x_64); +x_72 = lean_box(0); +lean_ctor_set(x_7, 1, x_71); +lean_ctor_set(x_7, 0, x_72); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_7); +lean_ctor_set(x_73, 1, x_60); +return x_73; +} +} +} +else +{ +lean_object* x_74; lean_object* x_75; +x_74 = lean_ctor_get(x_7, 1); +lean_inc(x_74); +lean_dec(x_7); +x_75 = lean_ctor_get(x_74, 1); +lean_inc(x_75); +if (lean_obj_tag(x_75) == 0) +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_76 = lean_ctor_get(x_6, 1); +lean_inc(x_76); +if (lean_is_exclusive(x_6)) { + lean_ctor_release(x_6, 0); + lean_ctor_release(x_6, 1); + x_77 = x_6; +} else { + lean_dec_ref(x_6); + x_77 = lean_box(0); +} +x_78 = lean_ctor_get(x_74, 0); +lean_inc(x_78); +x_79 = lean_ctor_get(x_74, 2); +lean_inc(x_79); +x_80 = lean_ctor_get(x_74, 3); +lean_inc(x_80); +x_81 = lean_ctor_get_uint8(x_74, sizeof(void*)*4); +if (lean_is_exclusive(x_74)) { + lean_ctor_release(x_74, 0); + lean_ctor_release(x_74, 1); + lean_ctor_release(x_74, 2); + lean_ctor_release(x_74, 3); + x_82 = x_74; +} else { + lean_dec_ref(x_74); + x_82 = lean_box(0); +} +x_83 = lean_box(0); +if (lean_is_scalar(x_82)) { + x_84 = lean_alloc_ctor(0, 4, 1); +} else { + x_84 = x_82; +} +lean_ctor_set(x_84, 0, x_78); +lean_ctor_set(x_84, 1, x_83); +lean_ctor_set(x_84, 2, x_79); +lean_ctor_set(x_84, 3, x_80); +lean_ctor_set_uint8(x_84, sizeof(void*)*4, x_81); +x_85 = lean_box(0); +x_86 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_86, 0, x_85); +lean_ctor_set(x_86, 1, x_84); +if (lean_is_scalar(x_77)) { + x_87 = lean_alloc_ctor(0, 2, 0); +} else { + x_87 = x_77; +} +lean_ctor_set(x_87, 0, x_86); +lean_ctor_set(x_87, 1, x_76); +return x_87; +} +else +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; uint8_t 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; +x_88 = lean_ctor_get(x_6, 1); lean_inc(x_88); -x_89 = lean_ctor_get_uint8(x_82, sizeof(void*)*4); -if (lean_is_exclusive(x_82)) { - lean_ctor_release(x_82, 0); - lean_ctor_release(x_82, 1); - lean_ctor_release(x_82, 2); - lean_ctor_release(x_82, 3); - x_90 = x_82; +if (lean_is_exclusive(x_6)) { + lean_ctor_release(x_6, 0); + lean_ctor_release(x_6, 1); + x_89 = x_6; } else { - lean_dec_ref(x_82); - x_90 = lean_box(0); + lean_dec_ref(x_6); + x_89 = lean_box(0); } -x_91 = lean_box(0); -if (lean_is_scalar(x_90)) { - x_92 = lean_alloc_ctor(0, 4, 1); +x_90 = lean_ctor_get(x_74, 0); +lean_inc(x_90); +x_91 = lean_ctor_get(x_74, 2); +lean_inc(x_91); +x_92 = lean_ctor_get(x_74, 3); +lean_inc(x_92); +x_93 = lean_ctor_get_uint8(x_74, sizeof(void*)*4); +if (lean_is_exclusive(x_74)) { + lean_ctor_release(x_74, 0); + lean_ctor_release(x_74, 1); + lean_ctor_release(x_74, 2); + lean_ctor_release(x_74, 3); + x_94 = x_74; } else { - x_92 = x_90; + lean_dec_ref(x_74); + x_94 = lean_box(0); } -lean_ctor_set(x_92, 0, x_86); -lean_ctor_set(x_92, 1, x_91); -lean_ctor_set(x_92, 2, x_87); -lean_ctor_set(x_92, 3, x_88); -lean_ctor_set_uint8(x_92, sizeof(void*)*4, x_89); -x_93 = lean_box(0); -x_94 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_94, 0, x_93); -lean_ctor_set(x_94, 1, x_92); -if (lean_is_scalar(x_85)) { - x_95 = lean_alloc_ctor(0, 2, 0); +x_95 = lean_ctor_get(x_75, 0); +lean_inc(x_95); +if (lean_is_exclusive(x_75)) { + lean_ctor_release(x_75, 0); + x_96 = x_75; } else { - x_95 = x_85; + lean_dec_ref(x_75); + x_96 = lean_box(0); } -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_84); -return x_95; -} -else -{ -lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; uint8_t 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; -x_96 = lean_ctor_get(x_14, 1); -lean_inc(x_96); -if (lean_is_exclusive(x_14)) { - lean_ctor_release(x_14, 0); - lean_ctor_release(x_14, 1); - x_97 = x_14; +x_97 = l_Lean_Parser_Term_leadPrec___closed__1; +x_98 = l_Nat_min(x_97, x_95); +lean_dec(x_95); +if (lean_is_scalar(x_96)) { + x_99 = lean_alloc_ctor(1, 1, 0); } else { - lean_dec_ref(x_14); - x_97 = lean_box(0); + x_99 = x_96; } -x_98 = lean_ctor_get(x_82, 0); -lean_inc(x_98); -x_99 = lean_ctor_get(x_82, 2); -lean_inc(x_99); -x_100 = lean_ctor_get(x_82, 3); -lean_inc(x_100); -x_101 = lean_ctor_get_uint8(x_82, sizeof(void*)*4); -if (lean_is_exclusive(x_82)) { - lean_ctor_release(x_82, 0); - lean_ctor_release(x_82, 1); - lean_ctor_release(x_82, 2); - lean_ctor_release(x_82, 3); - x_102 = x_82; +lean_ctor_set(x_99, 0, x_98); +if (lean_is_scalar(x_94)) { + x_100 = lean_alloc_ctor(0, 4, 1); } else { - lean_dec_ref(x_82); - x_102 = lean_box(0); + x_100 = x_94; } -x_103 = lean_ctor_get(x_83, 0); -lean_inc(x_103); -if (lean_is_exclusive(x_83)) { - lean_ctor_release(x_83, 0); - x_104 = x_83; +lean_ctor_set(x_100, 0, x_90); +lean_ctor_set(x_100, 1, x_99); +lean_ctor_set(x_100, 2, x_91); +lean_ctor_set(x_100, 3, x_92); +lean_ctor_set_uint8(x_100, sizeof(void*)*4, x_93); +x_101 = lean_box(0); +x_102 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_102, 0, x_101); +lean_ctor_set(x_102, 1, x_100); +if (lean_is_scalar(x_89)) { + x_103 = lean_alloc_ctor(0, 2, 0); } else { - lean_dec_ref(x_83); - x_104 = lean_box(0); + x_103 = x_89; } -x_105 = l_Lean_Parser_Term_leadPrec___closed__1; -x_106 = l_Nat_min(x_105, x_103); -lean_dec(x_103); -if (lean_is_scalar(x_104)) { - x_107 = lean_alloc_ctor(1, 1, 0); -} else { - x_107 = x_104; -} -lean_ctor_set(x_107, 0, x_106); -if (lean_is_scalar(x_102)) { - x_108 = lean_alloc_ctor(0, 4, 1); -} else { - x_108 = x_102; -} -lean_ctor_set(x_108, 0, x_98); -lean_ctor_set(x_108, 1, x_107); -lean_ctor_set(x_108, 2, x_99); -lean_ctor_set(x_108, 3, x_100); -lean_ctor_set_uint8(x_108, sizeof(void*)*4, x_101); -x_109 = lean_box(0); -x_110 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_108); -if (lean_is_scalar(x_97)) { - x_111 = lean_alloc_ctor(0, 2, 0); -} else { - x_111 = x_97; -} -lean_ctor_set(x_111, 0, x_110); -lean_ctor_set(x_111, 1, x_96); -return x_111; +lean_ctor_set(x_103, 0, x_102); +lean_ctor_set(x_103, 1, x_88); +return x_103; } } } else { -uint8_t x_112; -x_112 = !lean_is_exclusive(x_14); -if (x_112 == 0) -{ -return x_14; -} -else -{ -lean_object* x_113; lean_object* x_114; lean_object* x_115; -x_113 = lean_ctor_get(x_14, 0); -x_114 = lean_ctor_get(x_14, 1); -lean_inc(x_114); -lean_inc(x_113); -lean_dec(x_14); -x_115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_115, 0, x_113); -lean_ctor_set(x_115, 1, x_114); -return x_115; -} -} -} -} -else -{ -uint8_t x_116; -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -x_116 = !lean_is_exclusive(x_6); -if (x_116 == 0) +uint8_t x_104; +x_104 = !lean_is_exclusive(x_6); +if (x_104 == 0) { return x_6; } else { -lean_object* x_117; lean_object* x_118; lean_object* x_119; -x_117 = lean_ctor_get(x_6, 0); -x_118 = lean_ctor_get(x_6, 1); -lean_inc(x_118); -lean_inc(x_117); +lean_object* x_105; lean_object* x_106; lean_object* x_107; +x_105 = lean_ctor_get(x_6, 0); +x_106 = lean_ctor_get(x_6, 1); +lean_inc(x_106); +lean_inc(x_105); lean_dec(x_6); -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_117); -lean_ctor_set(x_119, 1, x_118); -return x_119; +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_105); +lean_ctor_set(x_107, 1, x_106); +return x_107; } } } @@ -10075,14 +8798,92 @@ lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer _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_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4; -x_2 = lean_unsigned_to_nat(346u); +x_1 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4; +x_2 = lean_unsigned_to_nat(311u); x_3 = lean_unsigned_to_nat(6u); x_4 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); return x_5; } } +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("someCategory"); +return x_1; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__4; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__5; +x_2 = l_Lean_Name_toExprAux___main(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__9; +x_2 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__6; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__7; +x_2 = l___private_Lean_Elab_Quotation_10__toPreterm___main___closed__5; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__8; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__3; +x_4 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_1, x_1, x_2, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__9; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_visit), 5, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___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) { _start: { @@ -10122,7 +8923,7 @@ return x_20; } else { -lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +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_dec(x_3); x_21 = lean_ctor_get(x_12, 1); lean_inc(x_21); @@ -10132,54 +8933,36 @@ lean_inc(x_22); lean_dec(x_13); x_23 = lean_ctor_get(x_4, 0); lean_inc(x_23); -lean_inc(x_6); -lean_inc(x_22); -lean_inc(x_4); -x_24 = l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot(x_4, x_22, x_6, x_21); -if (lean_obj_tag(x_24) == 0) -{ -lean_dec(x_23); -lean_dec(x_22); -lean_dec(x_6); -lean_dec(x_4); -return x_24; -} -else -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_24, 1); -lean_inc(x_25); -lean_dec(x_24); -x_26 = lean_unsigned_to_nat(0u); -x_27 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable(x_23, x_26, x_4, x_22, x_6, x_25); -return x_27; -} +x_24 = lean_unsigned_to_nat(0u); +x_25 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__10; +x_26 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize(x_23, x_24, x_25, x_4, x_22, x_6, x_21); +return x_26; } } else { -uint8_t x_28; +uint8_t x_27; lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_28 = !lean_is_exclusive(x_8); -if (x_28 == 0) +x_27 = !lean_is_exclusive(x_8); +if (x_27 == 0) { return x_8; } else { -lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_29 = lean_ctor_get(x_8, 0); -x_30 = lean_ctor_get(x_8, 1); -lean_inc(x_30); +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_8, 0); +x_29 = lean_ctor_get(x_8, 1); lean_inc(x_29); +lean_inc(x_28); lean_dec(x_8); -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; +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; } } } @@ -10187,7 +8970,7 @@ return x_31; lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; 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_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; x_6 = l_Lean_Syntax_MonadTraverser_getCur___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__1___rarg(x_3, x_4, x_5); x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); @@ -10198,271 +8981,292 @@ 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_unsigned_to_nat(0u); -x_12 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_11); -x_13 = lean_nat_sub(x_12, x_11); -x_14 = lean_unsigned_to_nat(1u); -x_15 = lean_nat_sub(x_13, x_14); -lean_dec(x_13); -x_16 = l_Lean_Expr_getRevArg_x21___main(x_1, x_15); +if (lean_is_exclusive(x_7)) { + lean_ctor_release(x_7, 0); + lean_ctor_release(x_7, 1); + x_11 = x_7; +} else { + lean_dec_ref(x_7); + x_11 = lean_box(0); +} +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_12); +x_14 = lean_nat_sub(x_13, x_12); +x_15 = lean_unsigned_to_nat(1u); +x_16 = lean_nat_sub(x_14, x_15); +lean_dec(x_14); +x_17 = l_Lean_Expr_getRevArg_x21___main(x_1, x_16); lean_inc(x_4); -x_17 = l_Lean_PrettyPrinter_Parenthesizer_evalName___main(x_16, x_2, x_10, x_4, x_8); -if (lean_obj_tag(x_17) == 0) +x_18 = l_Lean_Meta_reduceEval___at_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___spec__1(x_17, x_4, x_8); +if (lean_obj_tag(x_18) == 0) { -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; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_19 = lean_ctor_get(x_18, 0); lean_inc(x_19); -lean_dec(x_17); -x_20 = lean_ctor_get(x_18, 0); +x_20 = lean_ctor_get(x_18, 1); lean_inc(x_20); -x_21 = lean_ctor_get(x_18, 1); -lean_inc(x_21); lean_dec(x_18); -x_22 = lean_nat_sub(x_12, x_14); -lean_dec(x_12); -x_23 = lean_nat_sub(x_22, x_14); -lean_dec(x_22); -x_24 = l_Lean_Expr_getRevArg_x21___main(x_1, x_23); +x_21 = lean_nat_sub(x_13, x_15); +lean_dec(x_13); +x_22 = lean_nat_sub(x_21, x_15); +lean_dec(x_21); +x_23 = l_Lean_Expr_getRevArg_x21___main(x_1, x_22); lean_inc(x_4); -x_25 = l_Lean_PrettyPrinter_Parenthesizer_evalNat(x_24, x_2, x_21, x_4, x_19); -if (lean_obj_tag(x_25) == 0) +x_24 = l_Lean_Meta_reduceEval___at___private_Lean_Meta_ReduceEval_1__evalName___main___spec__1(x_23, x_4, x_20); +if (lean_obj_tag(x_24) == 0) { -lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; -x_26 = lean_ctor_get(x_25, 0); +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_25 = lean_ctor_get(x_24, 0); +lean_inc(x_25); +x_26 = lean_ctor_get(x_24, 1); lean_inc(x_26); -x_27 = lean_ctor_get(x_25, 1); -lean_inc(x_27); -if (lean_is_exclusive(x_25)) { - lean_ctor_release(x_25, 0); - lean_ctor_release(x_25, 1); - x_28 = x_25; +if (lean_is_exclusive(x_24)) { + lean_ctor_release(x_24, 0); + lean_ctor_release(x_24, 1); + x_27 = x_24; } else { - lean_dec_ref(x_25); - x_28 = lean_box(0); + lean_dec_ref(x_24); + x_27 = lean_box(0); } -x_29 = lean_ctor_get(x_26, 0); -lean_inc(x_29); -x_30 = lean_ctor_get(x_26, 1); -lean_inc(x_30); -if (lean_is_exclusive(x_26)) { - lean_ctor_release(x_26, 0); - lean_ctor_release(x_26, 1); - x_31 = x_26; -} else { - lean_dec_ref(x_26); - x_31 = lean_box(0); -} -x_32 = l_Lean_Syntax_getKind(x_9); -x_33 = lean_name_eq(x_20, x_32); -x_34 = l_Lean_Expr_appArg_x21(x_1); -x_35 = l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2; -x_36 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1), 7, 3); -lean_closure_set(x_36, 0, x_34); -lean_closure_set(x_36, 1, x_29); -lean_closure_set(x_36, 2, x_35); -if (x_33 == 0) +x_28 = l_Lean_Syntax_getKind(x_9); +x_29 = lean_name_eq(x_19, x_28); +x_30 = l_Lean_Expr_appArg_x21(x_1); +x_31 = l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2; +x_32 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1), 7, 3); +lean_closure_set(x_32, 0, x_30); +lean_closure_set(x_32, 1, x_25); +lean_closure_set(x_32, 2, x_31); +if (x_29 == 0) { -uint8_t x_84; -x_84 = 1; -x_37 = x_84; -goto block_83; +uint8_t x_80; +x_80 = 1; +x_33 = x_80; +goto block_79; } else { -uint8_t x_85; -x_85 = 0; -x_37 = x_85; -goto block_83; -} -block_83: -{ -uint8_t x_38; -if (x_37 == 0) -{ uint8_t x_81; x_81 = 0; -x_38 = x_81; -goto block_80; +x_33 = x_81; +goto block_79; +} +block_79: +{ +uint8_t x_34; +if (x_33 == 0) +{ +uint8_t x_77; +x_77 = 0; +x_34 = x_77; +goto block_76; +} +else +{ +uint8_t x_78; +x_78 = 1; +x_34 = x_78; +goto block_76; +} +block_76: +{ +if (x_34 == 0) +{ +lean_object* x_35; +lean_dec(x_28); +lean_dec(x_27); +lean_dec(x_19); +lean_dec(x_11); +x_35 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_32, x_2, x_10, x_4, x_26); +return x_35; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_66; uint8_t x_67; +lean_dec(x_32); +x_66 = lean_ctor_get(x_26, 4); +lean_inc(x_66); +x_67 = lean_ctor_get_uint8(x_66, sizeof(void*)*1); +lean_dec(x_66); +if (x_67 == 0) +{ +uint8_t x_68; lean_object* x_69; lean_object* x_70; +x_68 = 0; +x_69 = lean_box(x_68); +if (lean_is_scalar(x_11)) { + x_70 = lean_alloc_ctor(0, 2, 0); +} else { + x_70 = x_11; +} +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_10); +x_36 = x_70; +x_37 = x_26; +goto block_65; +} +else +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_71 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; +x_72 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_71, x_4, x_26); +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); +if (lean_is_scalar(x_11)) { + x_75 = lean_alloc_ctor(0, 2, 0); +} else { + x_75 = x_11; +} +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_10); +x_36 = x_75; +x_37 = x_74; +goto block_65; +} +block_65: +{ +lean_object* x_38; uint8_t x_39; +x_38 = lean_ctor_get(x_36, 0); +lean_inc(x_38); +x_39 = lean_unbox(x_38); +lean_dec(x_38); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; +lean_dec(x_36); +lean_dec(x_28); +lean_dec(x_19); +lean_dec(x_4); +lean_dec(x_2); +x_40 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +if (lean_is_scalar(x_27)) { + x_41 = lean_alloc_ctor(1, 2, 0); +} else { + x_41 = x_27; + lean_ctor_set_tag(x_41, 1); +} +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_37); +return x_41; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; uint8_t x_59; +lean_dec(x_27); +x_42 = lean_ctor_get(x_36, 1); +lean_inc(x_42); +lean_dec(x_36); +x_43 = l_Lean_Name_toString___closed__1; +x_44 = l_Lean_Name_toStringWithSep___main(x_43, x_28); +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); +x_47 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__5; +x_48 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_46); +x_49 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__8; +x_50 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_50, 0, x_48); +lean_ctor_set(x_50, 1, x_49); +x_51 = l_Lean_Name_toStringWithSep___main(x_43, x_19); +x_52 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_52, 0, x_51); +x_53 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_53, 0, x_52); +x_54 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_54, 0, x_50); +lean_ctor_set(x_54, 1, x_53); +x_55 = l_Lean_Elab_Term_mkConst___closed__4; +x_56 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +x_57 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; +x_58 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_57, x_56, x_2, x_42, x_4, x_37); +lean_dec(x_4); +lean_dec(x_2); +x_59 = !lean_is_exclusive(x_58); +if (x_59 == 0) +{ +lean_object* x_60; lean_object* x_61; +x_60 = lean_ctor_get(x_58, 0); +lean_dec(x_60); +x_61 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +lean_ctor_set_tag(x_58, 1); +lean_ctor_set(x_58, 0, x_61); +return x_58; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_62 = lean_ctor_get(x_58, 1); +lean_inc(x_62); +lean_dec(x_58); +x_63 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +return x_64; +} +} +} +} +} +} } else { uint8_t x_82; -x_82 = 1; -x_38 = x_82; -goto block_80; -} -block_80: -{ -if (x_38 == 0) -{ -lean_object* x_39; -lean_dec(x_32); -lean_dec(x_31); -lean_dec(x_28); -lean_dec(x_20); -x_39 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_36, x_2, x_30, x_4, x_27); -return x_39; -} -else -{ -lean_object* x_40; lean_object* x_41; lean_object* x_70; uint8_t x_71; -lean_dec(x_36); -x_70 = lean_ctor_get(x_27, 4); -lean_inc(x_70); -x_71 = lean_ctor_get_uint8(x_70, sizeof(void*)*1); -lean_dec(x_70); -if (x_71 == 0) -{ -uint8_t x_72; lean_object* x_73; lean_object* x_74; -x_72 = 0; -x_73 = lean_box(x_72); -if (lean_is_scalar(x_31)) { - x_74 = lean_alloc_ctor(0, 2, 0); -} else { - x_74 = x_31; -} -lean_ctor_set(x_74, 0, x_73); -lean_ctor_set(x_74, 1, x_30); -x_40 = x_74; -x_41 = x_27; -goto block_69; -} -else -{ -lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; -x_75 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; -x_76 = l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_75, x_4, x_27); -x_77 = lean_ctor_get(x_76, 0); -lean_inc(x_77); -x_78 = lean_ctor_get(x_76, 1); -lean_inc(x_78); -lean_dec(x_76); -if (lean_is_scalar(x_31)) { - x_79 = lean_alloc_ctor(0, 2, 0); -} else { - x_79 = x_31; -} -lean_ctor_set(x_79, 0, x_77); -lean_ctor_set(x_79, 1, x_30); -x_40 = x_79; -x_41 = x_78; -goto block_69; -} -block_69: -{ -lean_object* x_42; uint8_t x_43; -x_42 = lean_ctor_get(x_40, 0); -lean_inc(x_42); -x_43 = lean_unbox(x_42); -lean_dec(x_42); -if (x_43 == 0) -{ -lean_object* x_44; lean_object* x_45; -lean_dec(x_40); -lean_dec(x_32); -lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); lean_dec(x_4); lean_dec(x_2); -x_44 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -if (lean_is_scalar(x_28)) { - x_45 = lean_alloc_ctor(1, 2, 0); -} else { - x_45 = x_28; - lean_ctor_set_tag(x_45, 1); -} -lean_ctor_set(x_45, 0, x_44); -lean_ctor_set(x_45, 1, x_41); -return x_45; +x_82 = !lean_is_exclusive(x_24); +if (x_82 == 0) +{ +return x_24; } else { -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; uint8_t x_63; -lean_dec(x_28); -x_46 = lean_ctor_get(x_40, 1); -lean_inc(x_46); -lean_dec(x_40); -x_47 = l_Lean_Name_toString___closed__1; -x_48 = l_Lean_Name_toStringWithSep___main(x_47, x_32); -x_49 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_49, 0, x_48); -x_50 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_50, 0, x_49); -x_51 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__5; -x_52 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_50); -x_53 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__8; -x_54 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_54, 0, x_52); -lean_ctor_set(x_54, 1, x_53); -x_55 = l_Lean_Name_toStringWithSep___main(x_47, x_20); -x_56 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_56, 0, x_55); -x_57 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_57, 0, x_56); -x_58 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_58, 0, x_54); -lean_ctor_set(x_58, 1, x_57); -x_59 = l_Lean_Elab_Term_mkConst___closed__4; -x_60 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_60, 0, x_58); -lean_ctor_set(x_60, 1, x_59); -x_61 = l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer___closed__2; -x_62 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_PrettyPrinter_Parenthesizer_visit___main___spec__8(x_61, x_60, x_2, x_46, x_4, x_41); -lean_dec(x_4); -lean_dec(x_2); -x_63 = !lean_is_exclusive(x_62); -if (x_63 == 0) -{ -lean_object* x_64; lean_object* x_65; -x_64 = lean_ctor_get(x_62, 0); -lean_dec(x_64); -x_65 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -lean_ctor_set_tag(x_62, 1); -lean_ctor_set(x_62, 0, x_65); -return x_62; -} -else -{ -lean_object* x_66; lean_object* x_67; lean_object* x_68; -x_66 = lean_ctor_get(x_62, 1); -lean_inc(x_66); -lean_dec(x_62); -x_67 = l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__5; -x_68 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_68, 0, x_67); -lean_ctor_set(x_68, 1, x_66); -return x_68; -} -} -} -} +lean_object* x_83; lean_object* x_84; lean_object* x_85; +x_83 = lean_ctor_get(x_24, 0); +x_84 = lean_ctor_get(x_24, 1); +lean_inc(x_84); +lean_inc(x_83); +lean_dec(x_24); +x_85 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_85, 0, x_83); +lean_ctor_set(x_85, 1, x_84); +return x_85; } } } else { uint8_t x_86; -lean_dec(x_20); +lean_dec(x_13); +lean_dec(x_11); +lean_dec(x_10); lean_dec(x_9); lean_dec(x_4); lean_dec(x_2); -x_86 = !lean_is_exclusive(x_25); +x_86 = !lean_is_exclusive(x_18); if (x_86 == 0) { -return x_25; +return x_18; } else { lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_25, 0); -x_88 = lean_ctor_get(x_25, 1); +x_87 = lean_ctor_get(x_18, 0); +x_88 = lean_ctor_get(x_18, 1); lean_inc(x_88); lean_inc(x_87); -lean_dec(x_25); +lean_dec(x_18); x_89 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_89, 0, x_87); lean_ctor_set(x_89, 1, x_88); @@ -10470,33 +9274,6 @@ return x_89; } } } -else -{ -uint8_t x_90; -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_4); -lean_dec(x_2); -x_90 = !lean_is_exclusive(x_17); -if (x_90 == 0) -{ -return x_17; -} -else -{ -lean_object* x_91; lean_object* x_92; lean_object* x_93; -x_91 = lean_ctor_get(x_17, 0); -x_92 = lean_ctor_get(x_17, 1); -lean_inc(x_92); -lean_inc(x_91); -lean_dec(x_17); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_91); -lean_ctor_set(x_93, 1, x_92); -return x_93; -} -} -} } lean_object* l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: @@ -11467,86 +10244,6 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___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) { -_start: -{ -lean_object* x_8; uint8_t x_9; -x_8 = lean_unsigned_to_nat(0u); -x_9 = lean_nat_dec_eq(x_3, 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; lean_object* x_15; lean_object* x_16; -x_10 = lean_unsigned_to_nat(1u); -x_11 = lean_nat_sub(x_3, x_10); -lean_dec(x_3); -x_12 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_8); -x_13 = lean_nat_sub(x_12, x_8); -lean_dec(x_12); -x_14 = lean_nat_sub(x_13, x_10); -lean_dec(x_13); -x_15 = l_Lean_Expr_getRevArg_x21___main(x_1, x_14); -lean_inc(x_6); -lean_inc(x_4); -x_16 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_15, x_4, x_5, x_6, x_7); -if (lean_obj_tag(x_16) == 0) -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_16, 0); -lean_inc(x_17); -x_18 = lean_ctor_get(x_16, 1); -lean_inc(x_18); -lean_dec(x_16); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -lean_dec(x_17); -x_3 = x_11; -x_5 = x_19; -x_7 = x_18; -goto _start; -} -else -{ -uint8_t x_21; -lean_dec(x_11); -lean_dec(x_6); -lean_dec(x_4); -x_21 = !lean_is_exclusive(x_16); -if (x_21 == 0) -{ -return x_16; -} -else -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; -x_22 = lean_ctor_get(x_16, 0); -x_23 = lean_ctor_get(x_16, 1); -lean_inc(x_23); -lean_inc(x_22); -lean_dec(x_16); -x_24 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_24, 0, x_22); -lean_ctor_set(x_24, 1, x_23); -return x_24; -} -} -} -else -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -lean_dec(x_6); -lean_dec(x_4); -lean_dec(x_3); -x_25 = lean_box(0); -x_26 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_5); -x_27 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_27, 1, x_7); -return x_27; -} -} -} lean_object* l_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -11562,7 +10259,6 @@ lean_inc(x_9); x_10 = lean_ctor_get(x_7, 1); lean_inc(x_10); lean_dec(x_7); -lean_inc(x_9); x_11 = l_Lean_Syntax_getKind(x_9); x_12 = l_Lean_nullKind; x_13 = lean_name_eq(x_11, x_12); @@ -11570,7 +10266,6 @@ lean_dec(x_11); if (x_13 == 0) { lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; -lean_dec(x_9); x_14 = lean_unsigned_to_nat(0u); x_15 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_14); x_16 = lean_nat_sub(x_15, x_14); @@ -11585,31 +10280,12 @@ return x_20; } else { -lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; -x_21 = l_Lean_Syntax_getArgs(x_9); -lean_dec(x_9); -x_22 = lean_array_get_size(x_21); -lean_dec(x_21); -lean_inc(x_22); -x_23 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___spec__1___boxed), 7, 3); -lean_closure_set(x_23, 0, x_1); -lean_closure_set(x_23, 1, x_22); -lean_closure_set(x_23, 2, x_22); -x_24 = l_Lean_PrettyPrinter_Parenthesizer_visitArgs(x_23, x_2, x_10, x_4, x_8); -return x_24; +lean_object* x_21; +x_21 = l_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer(x_1, x_2, x_10, x_4, x_8); +return x_21; } } } -lean_object* l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___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) { -_start: -{ -lean_object* x_8; -x_8 = l_Nat_forMAux___main___at_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean_dec(x_2); -lean_dec(x_1); -return x_8; -} -} lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer___closed__1() { _start: { @@ -11909,7 +10585,7 @@ lean_inc(x_13); if (lean_obj_tag(x_13) == 22) { lean_object* x_14; -x_14 = lean_ctor_get(x_13, 0); +x_14 = lean_ctor_get(x_13, 1); lean_inc(x_14); if (lean_obj_tag(x_14) == 0) { @@ -12093,16 +10769,6 @@ return x_6; lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__4; -x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__2() { -_start: -{ lean_object* x_1; x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___boxed), 5, 0); return x_1; @@ -12113,8 +10779,8 @@ _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; -x_3 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1; -x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__2; +x_3 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1; x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } @@ -12193,6 +10859,68 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_sub(x_7, x_8); +lean_dec(x_7); +x_10 = lean_nat_sub(x_9, x_8); +lean_dec(x_9); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_11, x_2, x_3, x_4, x_5); +return x_12; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_1); +return x_6; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("setExpected"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___boxed), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -12583,6 +11311,156 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___rarg(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_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_1); +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_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("checkNoImmediateColon"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Parenthesizer_visitArgs___spec__2___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("pushNone"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__4; +x_2 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___boxed), 2, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__2; +x_4 = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} lean_object* l_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -12794,7 +11672,7 @@ return x_5; lean_object* l_Lean_PrettyPrinter_parenthesize(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; lean_object* x_9; +lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; uint8_t x_9; x_5 = lean_box(0); x_6 = l_Lean_Syntax_Traverser_fromSyntax(x_2); x_7 = 0; @@ -12804,65 +11682,504 @@ lean_ctor_set(x_8, 1, x_5); lean_ctor_set(x_8, 2, x_5); lean_ctor_set(x_8, 3, x_5); lean_ctor_set_uint8(x_8, sizeof(void*)*4, x_7); -x_9 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_3, x_4); -if (lean_obj_tag(x_9) == 0) +x_9 = !lean_is_exclusive(x_3); +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_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_10, 1); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_11, 0); -lean_inc(x_12); -lean_dec(x_11); -x_13 = !lean_is_exclusive(x_9); -if (x_13 == 0) +lean_object* x_10; uint8_t x_11; +x_10 = lean_ctor_get(x_3, 0); +x_11 = !lean_is_exclusive(x_10); +if (x_11 == 0) { -lean_object* x_14; lean_object* x_15; -x_14 = lean_ctor_get(x_9, 0); -lean_dec(x_14); -x_15 = lean_ctor_get(x_12, 0); -lean_inc(x_15); -lean_dec(x_12); -lean_ctor_set(x_9, 0, x_15); -return x_9; -} -else +uint8_t x_12; uint8_t x_13; uint8_t x_14; +x_12 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 6); +x_13 = 1; +x_14 = l_Lean_Meta_TransparencyMode_lt(x_12, x_13); +if (x_14 == 0) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_16 = lean_ctor_get(x_9, 1); +lean_object* x_15; +x_15 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_3, x_4); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; +x_16 = lean_ctor_get(x_15, 0); lean_inc(x_16); -lean_dec(x_9); -x_17 = lean_ctor_get(x_12, 0); +x_17 = lean_ctor_get(x_16, 1); lean_inc(x_17); -lean_dec(x_12); -x_18 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_18, 0, x_17); -lean_ctor_set(x_18, 1, x_16); -return x_18; -} -} -else -{ -uint8_t x_19; -x_19 = !lean_is_exclusive(x_9); +lean_dec(x_16); +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +lean_dec(x_17); +x_19 = !lean_is_exclusive(x_15); if (x_19 == 0) { -return x_9; +lean_object* x_20; lean_object* x_21; +x_20 = lean_ctor_get(x_15, 0); +lean_dec(x_20); +x_21 = lean_ctor_get(x_18, 0); +lean_inc(x_21); +lean_dec(x_18); +lean_ctor_set(x_15, 0, x_21); +return x_15; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_20 = lean_ctor_get(x_9, 0); -x_21 = lean_ctor_get(x_9, 1); -lean_inc(x_21); -lean_inc(x_20); -lean_dec(x_9); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_20); -lean_ctor_set(x_22, 1, x_21); -return x_22; +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_15, 1); +lean_inc(x_22); +lean_dec(x_15); +x_23 = lean_ctor_get(x_18, 0); +lean_inc(x_23); +lean_dec(x_18); +x_24 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_22); +return x_24; +} +} +else +{ +uint8_t x_25; +x_25 = !lean_is_exclusive(x_15); +if (x_25 == 0) +{ +return x_15; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_15, 0); +x_27 = lean_ctor_get(x_15, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_15); +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; +} +} +} +else +{ +lean_object* x_29; +lean_ctor_set_uint8(x_10, sizeof(void*)*1 + 6, x_13); +x_29 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_3, x_4); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_30, 1); +lean_inc(x_31); +lean_dec(x_30); +x_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +lean_dec(x_31); +x_33 = !lean_is_exclusive(x_29); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; +x_34 = lean_ctor_get(x_29, 0); +lean_dec(x_34); +x_35 = lean_ctor_get(x_32, 0); +lean_inc(x_35); +lean_dec(x_32); +lean_ctor_set(x_29, 0, x_35); +return x_29; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_29, 1); +lean_inc(x_36); +lean_dec(x_29); +x_37 = lean_ctor_get(x_32, 0); +lean_inc(x_37); +lean_dec(x_32); +x_38 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +return x_38; +} +} +else +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_29); +if (x_39 == 0) +{ +return x_29; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_29, 0); +x_41 = lean_ctor_get(x_29, 1); +lean_inc(x_41); +lean_inc(x_40); +lean_dec(x_29); +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 +{ +lean_object* x_43; uint8_t x_44; uint8_t x_45; uint8_t x_46; uint8_t x_47; uint8_t x_48; uint8_t x_49; uint8_t x_50; uint8_t x_51; uint8_t x_52; +x_43 = lean_ctor_get(x_10, 0); +x_44 = lean_ctor_get_uint8(x_10, sizeof(void*)*1); +x_45 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 1); +x_46 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 2); +x_47 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 3); +x_48 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 4); +x_49 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 5); +x_50 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 6); +lean_inc(x_43); +lean_dec(x_10); +x_51 = 1; +x_52 = l_Lean_Meta_TransparencyMode_lt(x_50, x_51); +if (x_52 == 0) +{ +lean_object* x_53; lean_object* x_54; +x_53 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_53, 0, x_43); +lean_ctor_set_uint8(x_53, sizeof(void*)*1, x_44); +lean_ctor_set_uint8(x_53, sizeof(void*)*1 + 1, x_45); +lean_ctor_set_uint8(x_53, sizeof(void*)*1 + 2, x_46); +lean_ctor_set_uint8(x_53, sizeof(void*)*1 + 3, x_47); +lean_ctor_set_uint8(x_53, sizeof(void*)*1 + 4, x_48); +lean_ctor_set_uint8(x_53, sizeof(void*)*1 + 5, x_49); +lean_ctor_set_uint8(x_53, sizeof(void*)*1 + 6, x_50); +lean_ctor_set(x_3, 0, x_53); +x_54 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_3, x_4); +if (lean_obj_tag(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_ctor_get(x_54, 0); +lean_inc(x_55); +x_56 = lean_ctor_get(x_55, 1); +lean_inc(x_56); +lean_dec(x_55); +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +lean_dec(x_56); +x_58 = lean_ctor_get(x_54, 1); +lean_inc(x_58); +if (lean_is_exclusive(x_54)) { + lean_ctor_release(x_54, 0); + lean_ctor_release(x_54, 1); + x_59 = x_54; +} else { + lean_dec_ref(x_54); + x_59 = lean_box(0); +} +x_60 = lean_ctor_get(x_57, 0); +lean_inc(x_60); +lean_dec(x_57); +if (lean_is_scalar(x_59)) { + x_61 = lean_alloc_ctor(0, 2, 0); +} else { + x_61 = x_59; +} +lean_ctor_set(x_61, 0, x_60); +lean_ctor_set(x_61, 1, x_58); +return x_61; +} +else +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +x_62 = lean_ctor_get(x_54, 0); +lean_inc(x_62); +x_63 = lean_ctor_get(x_54, 1); +lean_inc(x_63); +if (lean_is_exclusive(x_54)) { + lean_ctor_release(x_54, 0); + lean_ctor_release(x_54, 1); + x_64 = x_54; +} else { + lean_dec_ref(x_54); + x_64 = lean_box(0); +} +if (lean_is_scalar(x_64)) { + x_65 = lean_alloc_ctor(1, 2, 0); +} else { + x_65 = x_64; +} +lean_ctor_set(x_65, 0, x_62); +lean_ctor_set(x_65, 1, x_63); +return x_65; +} +} +else +{ +lean_object* x_66; lean_object* x_67; +x_66 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_66, 0, x_43); +lean_ctor_set_uint8(x_66, sizeof(void*)*1, x_44); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 1, x_45); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 2, x_46); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 3, x_47); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 4, x_48); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 5, x_49); +lean_ctor_set_uint8(x_66, sizeof(void*)*1 + 6, x_51); +lean_ctor_set(x_3, 0, x_66); +x_67 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_3, x_4); +if (lean_obj_tag(x_67) == 0) +{ +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; +x_68 = lean_ctor_get(x_67, 0); +lean_inc(x_68); +x_69 = lean_ctor_get(x_68, 1); +lean_inc(x_69); +lean_dec(x_68); +x_70 = lean_ctor_get(x_69, 0); +lean_inc(x_70); +lean_dec(x_69); +x_71 = lean_ctor_get(x_67, 1); +lean_inc(x_71); +if (lean_is_exclusive(x_67)) { + lean_ctor_release(x_67, 0); + lean_ctor_release(x_67, 1); + x_72 = x_67; +} else { + lean_dec_ref(x_67); + x_72 = lean_box(0); +} +x_73 = lean_ctor_get(x_70, 0); +lean_inc(x_73); +lean_dec(x_70); +if (lean_is_scalar(x_72)) { + x_74 = lean_alloc_ctor(0, 2, 0); +} else { + x_74 = x_72; +} +lean_ctor_set(x_74, 0, x_73); +lean_ctor_set(x_74, 1, x_71); +return x_74; +} +else +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_75 = lean_ctor_get(x_67, 0); +lean_inc(x_75); +x_76 = lean_ctor_get(x_67, 1); +lean_inc(x_76); +if (lean_is_exclusive(x_67)) { + lean_ctor_release(x_67, 0); + lean_ctor_release(x_67, 1); + x_77 = x_67; +} else { + lean_dec_ref(x_67); + x_77 = lean_box(0); +} +if (lean_is_scalar(x_77)) { + x_78 = lean_alloc_ctor(1, 2, 0); +} else { + x_78 = x_77; +} +lean_ctor_set(x_78, 0, x_75); +lean_ctor_set(x_78, 1, x_76); +return x_78; +} +} +} +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; uint8_t x_85; uint8_t x_86; uint8_t x_87; uint8_t x_88; uint8_t x_89; uint8_t x_90; uint8_t x_91; lean_object* x_92; uint8_t x_93; uint8_t x_94; +x_79 = lean_ctor_get(x_3, 0); +x_80 = lean_ctor_get(x_3, 1); +x_81 = lean_ctor_get(x_3, 2); +x_82 = lean_ctor_get(x_3, 3); +x_83 = lean_ctor_get(x_3, 4); +lean_inc(x_83); +lean_inc(x_82); +lean_inc(x_81); +lean_inc(x_80); +lean_inc(x_79); +lean_dec(x_3); +x_84 = lean_ctor_get(x_79, 0); +lean_inc(x_84); +x_85 = lean_ctor_get_uint8(x_79, sizeof(void*)*1); +x_86 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 1); +x_87 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 2); +x_88 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 3); +x_89 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 4); +x_90 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 5); +x_91 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 6); +if (lean_is_exclusive(x_79)) { + lean_ctor_release(x_79, 0); + x_92 = x_79; +} else { + lean_dec_ref(x_79); + x_92 = lean_box(0); +} +x_93 = 1; +x_94 = l_Lean_Meta_TransparencyMode_lt(x_91, x_93); +if (x_94 == 0) +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; +if (lean_is_scalar(x_92)) { + x_95 = lean_alloc_ctor(0, 1, 7); +} else { + x_95 = x_92; +} +lean_ctor_set(x_95, 0, x_84); +lean_ctor_set_uint8(x_95, sizeof(void*)*1, x_85); +lean_ctor_set_uint8(x_95, sizeof(void*)*1 + 1, x_86); +lean_ctor_set_uint8(x_95, sizeof(void*)*1 + 2, x_87); +lean_ctor_set_uint8(x_95, sizeof(void*)*1 + 3, x_88); +lean_ctor_set_uint8(x_95, sizeof(void*)*1 + 4, x_89); +lean_ctor_set_uint8(x_95, sizeof(void*)*1 + 5, x_90); +lean_ctor_set_uint8(x_95, sizeof(void*)*1 + 6, x_91); +x_96 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_96, 0, x_95); +lean_ctor_set(x_96, 1, x_80); +lean_ctor_set(x_96, 2, x_81); +lean_ctor_set(x_96, 3, x_82); +lean_ctor_set(x_96, 4, x_83); +x_97 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_96, x_4); +if (lean_obj_tag(x_97) == 0) +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_ctor_get(x_98, 1); +lean_inc(x_99); +lean_dec(x_98); +x_100 = lean_ctor_get(x_99, 0); +lean_inc(x_100); +lean_dec(x_99); +x_101 = lean_ctor_get(x_97, 1); +lean_inc(x_101); +if (lean_is_exclusive(x_97)) { + lean_ctor_release(x_97, 0); + lean_ctor_release(x_97, 1); + x_102 = x_97; +} else { + lean_dec_ref(x_97); + x_102 = lean_box(0); +} +x_103 = lean_ctor_get(x_100, 0); +lean_inc(x_103); +lean_dec(x_100); +if (lean_is_scalar(x_102)) { + x_104 = lean_alloc_ctor(0, 2, 0); +} else { + x_104 = x_102; +} +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_101); +return x_104; +} +else +{ +lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; +x_105 = lean_ctor_get(x_97, 0); +lean_inc(x_105); +x_106 = lean_ctor_get(x_97, 1); +lean_inc(x_106); +if (lean_is_exclusive(x_97)) { + lean_ctor_release(x_97, 0); + lean_ctor_release(x_97, 1); + x_107 = x_97; +} else { + lean_dec_ref(x_97); + x_107 = lean_box(0); +} +if (lean_is_scalar(x_107)) { + x_108 = lean_alloc_ctor(1, 2, 0); +} else { + x_108 = x_107; +} +lean_ctor_set(x_108, 0, x_105); +lean_ctor_set(x_108, 1, x_106); +return x_108; +} +} +else +{ +lean_object* x_109; lean_object* x_110; lean_object* x_111; +if (lean_is_scalar(x_92)) { + x_109 = lean_alloc_ctor(0, 1, 7); +} else { + x_109 = x_92; +} +lean_ctor_set(x_109, 0, x_84); +lean_ctor_set_uint8(x_109, sizeof(void*)*1, x_85); +lean_ctor_set_uint8(x_109, sizeof(void*)*1 + 1, x_86); +lean_ctor_set_uint8(x_109, sizeof(void*)*1 + 2, x_87); +lean_ctor_set_uint8(x_109, sizeof(void*)*1 + 3, x_88); +lean_ctor_set_uint8(x_109, sizeof(void*)*1 + 4, x_89); +lean_ctor_set_uint8(x_109, sizeof(void*)*1 + 5, x_90); +lean_ctor_set_uint8(x_109, sizeof(void*)*1 + 6, x_93); +x_110 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_110, 0, x_109); +lean_ctor_set(x_110, 1, x_80); +lean_ctor_set(x_110, 2, x_81); +lean_ctor_set(x_110, 3, x_82); +lean_ctor_set(x_110, 4, x_83); +x_111 = l_Lean_PrettyPrinter_Parenthesizer_visit___main(x_1, x_5, x_8, x_110, x_4); +if (lean_obj_tag(x_111) == 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; +x_112 = lean_ctor_get(x_111, 0); +lean_inc(x_112); +x_113 = lean_ctor_get(x_112, 1); +lean_inc(x_113); +lean_dec(x_112); +x_114 = lean_ctor_get(x_113, 0); +lean_inc(x_114); +lean_dec(x_113); +x_115 = lean_ctor_get(x_111, 1); +lean_inc(x_115); +if (lean_is_exclusive(x_111)) { + lean_ctor_release(x_111, 0); + lean_ctor_release(x_111, 1); + x_116 = x_111; +} else { + lean_dec_ref(x_111); + x_116 = lean_box(0); +} +x_117 = lean_ctor_get(x_114, 0); +lean_inc(x_117); +lean_dec(x_114); +if (lean_is_scalar(x_116)) { + x_118 = lean_alloc_ctor(0, 2, 0); +} else { + x_118 = x_116; +} +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_115); +return x_118; +} +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_119 = lean_ctor_get(x_111, 0); +lean_inc(x_119); +x_120 = lean_ctor_get(x_111, 1); +lean_inc(x_120); +if (lean_is_exclusive(x_111)) { + lean_ctor_release(x_111, 0); + lean_ctor_release(x_111, 1); + x_121 = x_111; +} else { + lean_dec_ref(x_111); + x_121 = lean_box(0); +} +if (lean_is_scalar(x_121)) { + x_122 = lean_alloc_ctor(1, 2, 0); +} else { + x_122 = x_121; +} +lean_ctor_set(x_122, 0, x_119); +lean_ctor_set(x_122, 1, x_120); +return x_122; +} } } } @@ -12993,6 +12310,7 @@ return x_13; } lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Parser(lean_object*); +lean_object* initialize_Lean_Meta(lean_object*); lean_object* initialize_Lean_Elab_Quotation(lean_object*); static bool _G_initialized = false; lean_object* initialize_Lean_PrettyPrinter_Parenthesizer(lean_object* w) { @@ -13005,6 +12323,9 @@ lean_dec_ref(res); res = initialize_Lean_Parser(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Meta(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Lean_Elab_Quotation(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -13103,6 +12424,10 @@ l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__11 = _init_l_Lean_Pret lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__11); l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12 = _init_l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12(); lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__12); +l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__13 = _init_l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__13(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__13); +l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14 = _init_l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visit___main___closed__14); l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__1(); lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__1); l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__2(); @@ -13113,92 +12438,63 @@ l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__4 = _init_l_Lean_Pre lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_monadQuotation___closed__4); l_Lean_PrettyPrinter_Parenthesizer_monadQuotation = _init_l_Lean_PrettyPrinter_Parenthesizer_monadQuotation(); lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_monadQuotation); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__1(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__1); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__2(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__2); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__3(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__3); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__4); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__5 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__5(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__5); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__6 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__6(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__6); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__7 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__7(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__7); -l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitAntiquot___closed__8); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__1(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__1); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__2); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__3); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__4); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__5 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__5(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__5); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__6); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__7); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__8 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__8(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__8); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__9 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__9(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__9); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__10); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__11 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__11(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__11); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__12 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__12(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__12); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__13); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__14 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__14(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__14); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__15 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__15(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__15); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__16); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__17 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__17(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__17); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__18 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__18(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__18); -l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19 = _init_l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_visitParenthesizable___closed__19); -l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__1(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__1); -l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__2(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__2); -l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalNat___closed__3); -l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__1(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__1); -l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__2(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__2); -l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__3(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalOptPrec___closed__3); -l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__1(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__1); -l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__2(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__2); -l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__3(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalString___closed__3); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__1); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__2); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__3); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__4); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__5 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__5(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__5); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__6 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__6(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__6); -l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7 = _init_l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7(); -lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_evalName___main___closed__7); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__1); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__2); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__3); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__4); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__5 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__5); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__6); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__7); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__8 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__8(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__8); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__9 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__9(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__9); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__10); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__11 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__11(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__11); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__12 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__12(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__12); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__13); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__14 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__14(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__14); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__15 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__15(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__15); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__16); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__17 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__17(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__17); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__18 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__18(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__18); +l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19 = _init_l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_maybeParenthesize___closed__19); +l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1); +l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2); +l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3); +l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__4 = _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__4); +l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__5 = _init_l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__5); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1 = _init_l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1(); lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__1); l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_termParser_parenthesizer___closed__2(); @@ -13242,15 +12538,6 @@ lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_levelParser_parenthesizer(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1(); -lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__1); -l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2(); -lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__2); -l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3(); -lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer___closed__3); -res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__1); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withAntiquot_parenthesizer___closed__2(); @@ -13319,6 +12606,22 @@ l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___clos lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__1); l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__2 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__2(); lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__2); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__3 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__3); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__4 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__4); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__5 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__5); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__6 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__6); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__7 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__7(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__7); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__8 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__8(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__8); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__9 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__9(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__9); +l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__10 = _init_l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__10(); +lean_mark_persistent(l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___lambda__1___closed__10); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__1); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer___closed__2(); @@ -13460,8 +12763,6 @@ if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__1); -l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__2(); -lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer___closed__2); res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -13476,6 +12777,15 @@ lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withPositio res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__1); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkStackTop_parenthesizer___closed__2(); @@ -13521,6 +12831,24 @@ lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkColGe_ res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__1); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__2); +l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__3 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___closed__3); +res = l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__1); l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__2 = _init_l___regBuiltin_Lean_PrettyPrinter_Parenthesizer_commentBody_parenthesizer___closed__2(); diff --git a/stage0/stdlib/Lean/Syntax.c b/stage0/stdlib/Lean/Syntax.c index 10cd0b8f4c..ba431aa893 100644 --- a/stage0/stdlib/Lean/Syntax.c +++ b/stage0/stdlib/Lean/Syntax.c @@ -15,6 +15,7 @@ extern "C" { #endif lean_object* l_Lean_Syntax_reprint___main___closed__1; lean_object* l_Lean_Syntax_formatStxAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_beq___main___at_Lean_Syntax_structEq___main___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Prod_hasQuote___rarg___closed__1; extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_Syntax_reprint___main___boxed(lean_object*); @@ -28,6 +29,7 @@ lean_object* l_Lean_Syntax_setTailInfoAux(lean_object*, lean_object*); lean_object* l___private_Lean_Syntax_4__updateFirst(lean_object*, lean_object*); lean_object* l_Lean_Syntax_reprint___boxed(lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_structEq___main___boxed(lean_object*, lean_object*); lean_object* l_Lean_Nat_HasQuote___closed__2; extern lean_object* l_Lean_nullKind; lean_object* l___private_Lean_Syntax_7__quoteName___main(lean_object*); @@ -47,6 +49,7 @@ lean_object* l_Lean_Syntax_HasToString; lean_object* l_Lean_Syntax_MonadTraverser_getCur___rarg(lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goRight___rarg___lambda__1(lean_object*); lean_object* l_Lean_Syntax_getAtomVal_x21___closed__2; +uint8_t l_Lean_Syntax_structEq(lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_getCur(lean_object*); lean_object* l___private_Lean_Syntax_8__quoteList___main___rarg(lean_object*, lean_object*); extern lean_object* l_Array_empty___closed__1; @@ -54,11 +57,14 @@ lean_object* l_Lean_Syntax_MonadTraverser_goRight(lean_object*, lean_object*); lean_object* l_Lean_Array_hasQuote___rarg___closed__2; lean_object* l___private_Lean_Syntax_8__quoteList___rarg(lean_object*, lean_object*); lean_object* l___private_Init_Util_1__mkPanicMessage(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_structHasBeq___closed__1; +lean_object* l_Array_isEqvAux___main___at_Lean_Syntax_structEq___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Syntax_7__quoteName(lean_object*); lean_object* l_Lean_SyntaxNode_withArgs(lean_object*); lean_object* l___private_Lean_Syntax_3__updateLast(lean_object*); lean_object* l___private_Lean_Syntax_8__quoteList___main___rarg___closed__1; lean_object* l_Lean_Substring_HasQuote(lean_object*); +lean_object* l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Substring_HasQuote___closed__2; lean_object* l_Lean_Substring_HasQuote___closed__1; lean_object* l_Lean_Syntax_getAtomVal_x21___boxed(lean_object*); @@ -76,6 +82,7 @@ lean_object* l_Lean_Prod_hasQuote___rarg___closed__2; lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_reprint___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goRight___rarg___closed__1; lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__6; lean_object* l_Lean_Syntax_setAtomVal(lean_object*, lean_object*); lean_object* l_Lean_Syntax_setTailInfo(lean_object*, lean_object*); @@ -84,6 +91,7 @@ extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_SyntaxNode_getArg___boxed(lean_object*, lean_object*); lean_object* l___private_Lean_Syntax_3__updateLast___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getNumArgs___boxed(lean_object*); +lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__4; lean_object* l_Lean_mkAtom(lean_object*); lean_object* l_Lean_Syntax_setHeadInfo(lean_object*, lean_object*); @@ -100,6 +108,7 @@ extern lean_object* l_Lean_Format_sbracket___closed__2; lean_object* l_Lean_SyntaxNode_getKind(lean_object*); lean_object* l_Lean_SyntaxNode_getArgs(lean_object*); lean_object* l_Lean_Syntax_rewriteBottomUp(lean_object*, lean_object*); +uint8_t l_Array_isEqvAux___main___at_Lean_Syntax_structEq___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__8; lean_object* l___private_Lean_Syntax_5__reprintLeaf___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_ifNode(lean_object*); @@ -129,6 +138,7 @@ lean_object* l___private_Lean_Syntax_6__formatInfo(uint8_t, lean_object*, lean_o lean_object* l_Lean_Syntax_MonadTraverser_getIdx(lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Syntax_6__formatInfo___closed__1; +lean_object* l_Lean_Syntax_structEq___boxed(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_reprint___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Syntax_7__quoteName___main___closed__3; lean_object* l_Lean_Syntax_MonadTraverser_goLeft___rarg(lean_object*); @@ -171,6 +181,7 @@ lean_object* l_Lean_Syntax_MonadTraverser_goDown___boxed(lean_object*, lean_obje lean_object* l___private_Lean_Syntax_7__quoteName___main___closed__4; lean_object* l_Lean_Syntax_mreplace(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__6; +uint8_t l_Lean_Syntax_structEq___main(lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_setCur(lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goLeft___rarg___closed__1; lean_object* l___private_Lean_Syntax_4__updateFirst___main___rarg(lean_object*, lean_object*, lean_object*); @@ -185,6 +196,7 @@ lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(le lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__1___boxed(lean_object*); lean_object* l_Array_findSomeRevMAux___main___at_Lean_Syntax_getTailWithPos___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_unreachIsNodeIdent___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Substring_beq(lean_object*, lean_object*); extern lean_object* l_String_Iterator_HasRepr___closed__2; lean_object* l_Lean_List_hasQuote(lean_object*); lean_object* l___private_Lean_Syntax_8__quoteList___main___rarg___closed__7; @@ -194,10 +206,10 @@ lean_object* l_Lean_Syntax_MonadTraverser_goLeft___rarg___lambda__1(lean_object* lean_object* l_Lean_Syntax_MonadTraverser_goUp(lean_object*, lean_object*); lean_object* l_Lean_Syntax_ifNode___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_asNode___boxed(lean_object*); +uint8_t l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main___at_Lean_Syntax_updateLeading___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Name_replacePrefix___main(lean_object*, lean_object*, lean_object*); lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__2___boxed(lean_object*); -lean_object* l_Lean_Syntax_formatStxAux___main___closed__11; lean_object* l_Lean_SyntaxNode_getNumArgs___boxed(lean_object*); lean_object* l_Lean_String_HasQuote___closed__2; lean_object* l_Lean_Syntax_mrewriteBottomUp___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -267,6 +279,7 @@ lean_object* l___private_Lean_Syntax_9__quoteOption___rarg___closed__2; lean_object* l_Array_umapMAux___main___at_Lean_Syntax_updateLeading___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_MonadTraverser_goDown___rarg___lambda__1(lean_object*, lean_object*); lean_object* l_Lean_Syntax_HasToString___closed__1; +lean_object* l_Lean_Syntax_structHasBeq; lean_object* l_Lean_mkTermIdFrom(lean_object*, lean_object*); extern lean_object* l_Lean_mkOptionalNode___closed__1; lean_object* l_Lean_Syntax_mrewriteBottomUp___main(lean_object*); @@ -280,6 +293,7 @@ lean_object* lean_array_pop(lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getTailWithPos___main(lean_object*); lean_object* lean_mk_syntax_list(lean_object*); +uint8_t l_List_beq___main___at_Lean_Syntax_structEq___main___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Prod_hasQuote___rarg___closed__4; lean_object* l___private_Lean_Syntax_7__quoteName___main___closed__1; lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__1(lean_object*); @@ -294,7 +308,6 @@ lean_object* l___private_Lean_Syntax_7__quoteName___main___closed__2; lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); extern lean_object* l_Lean_mkOptionalNode___closed__2; extern lean_object* l_Lean_Format_paren___closed__3; -lean_object* l_Lean_Syntax_formatStxAux___main___closed__10; lean_object* l___private_Lean_Syntax_9__quoteOption___rarg___closed__4; lean_object* l___private_Lean_Syntax_1__updateInfo(lean_object*, lean_object*); lean_object* l_Lean_mkCTermIdFrom(lean_object*, lean_object*); @@ -3795,6 +3808,7 @@ _start: if (lean_obj_tag(x_4) == 0) { lean_object* x_5; +lean_dec(x_1); x_5 = lean_box(0); return x_5; } @@ -3809,6 +3823,7 @@ x_7 = lean_ctor_get(x_4, 0); x_8 = lean_ctor_get(x_4, 1); x_9 = lean_unsigned_to_nat(1u); x_10 = lean_nat_add(x_3, x_9); +lean_inc(x_1); x_11 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_10, x_7); lean_dec(x_10); x_12 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(x_1, x_2, x_3, x_8); @@ -3826,6 +3841,7 @@ lean_inc(x_13); lean_dec(x_4); x_15 = lean_unsigned_to_nat(1u); x_16 = lean_nat_add(x_3, x_15); +lean_inc(x_1); x_17 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_16, x_13); lean_dec(x_16); x_18 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(x_1, x_2, x_3, x_14); @@ -3886,6 +3902,7 @@ _start: if (lean_obj_tag(x_4) == 0) { lean_object* x_5; +lean_dec(x_1); x_5 = lean_box(0); return x_5; } @@ -3900,6 +3917,7 @@ x_7 = lean_ctor_get(x_4, 0); x_8 = lean_ctor_get(x_4, 1); x_9 = lean_unsigned_to_nat(1u); x_10 = lean_nat_add(x_3, x_9); +lean_inc(x_1); x_11 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_10, x_7); lean_dec(x_10); x_12 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3(x_1, x_2, x_3, x_8); @@ -3917,6 +3935,7 @@ lean_inc(x_13); lean_dec(x_4); x_15 = lean_unsigned_to_nat(1u); x_16 = lean_nat_add(x_3, x_15); +lean_inc(x_1); x_17 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_16, x_13); lean_dec(x_16); x_18 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3(x_1, x_2, x_3, x_14); @@ -3934,6 +3953,7 @@ _start: if (lean_obj_tag(x_4) == 0) { lean_object* x_5; +lean_dec(x_1); x_5 = lean_box(0); return x_5; } @@ -3948,6 +3968,7 @@ x_7 = lean_ctor_get(x_4, 0); x_8 = lean_ctor_get(x_4, 1); x_9 = lean_unsigned_to_nat(1u); x_10 = lean_nat_add(x_3, x_9); +lean_inc(x_1); x_11 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_10, x_7); lean_dec(x_10); x_12 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(x_1, x_2, x_3, x_8); @@ -3965,6 +3986,7 @@ lean_inc(x_13); lean_dec(x_4); x_15 = lean_unsigned_to_nat(1u); x_16 = lean_nat_add(x_3, x_15); +lean_inc(x_1); x_17 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_16, x_13); lean_dec(x_16); x_18 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(x_1, x_2, x_3, x_14); @@ -3982,6 +4004,7 @@ _start: if (lean_obj_tag(x_4) == 0) { lean_object* x_5; +lean_dec(x_1); x_5 = lean_box(0); return x_5; } @@ -3996,6 +4019,7 @@ x_7 = lean_ctor_get(x_4, 0); x_8 = lean_ctor_get(x_4, 1); x_9 = lean_unsigned_to_nat(1u); x_10 = lean_nat_add(x_3, x_9); +lean_inc(x_1); x_11 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_10, x_7); lean_dec(x_10); x_12 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(x_1, x_2, x_3, x_8); @@ -4013,6 +4037,7 @@ lean_inc(x_13); lean_dec(x_4); x_15 = lean_unsigned_to_nat(1u); x_16 = lean_nat_add(x_3, x_15); +lean_inc(x_1); x_17 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_16, x_13); lean_dec(x_16); x_18 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(x_1, x_2, x_3, x_14); @@ -4024,6 +4049,57 @@ return x_19; } } } +lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; +lean_dec(x_1); +x_5 = lean_box(0); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_4); +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; +x_7 = lean_ctor_get(x_4, 0); +x_8 = lean_ctor_get(x_4, 1); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_add(x_3, x_9); +lean_inc(x_1); +x_11 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_10, x_7); +lean_dec(x_10); +x_12 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6(x_1, x_2, x_3, x_8); +lean_ctor_set(x_4, 1, x_12); +lean_ctor_set(x_4, 0, x_11); +return x_4; +} +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; +x_13 = lean_ctor_get(x_4, 0); +x_14 = lean_ctor_get(x_4, 1); +lean_inc(x_14); +lean_inc(x_13); +lean_dec(x_4); +x_15 = lean_unsigned_to_nat(1u); +x_16 = lean_nat_add(x_3, x_15); +lean_inc(x_1); +x_17 = l_Lean_Syntax_formatStxAux___main(x_1, x_2, x_16, x_13); +lean_dec(x_16); +x_18 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6(x_1, x_2, x_3, x_14); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__1() { _start: { @@ -4046,57 +4122,39 @@ lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__3() { _start: { lean_object* x_1; -x_1 = lean_mk_string("noKind"); +x_1 = lean_mk_string(".."); return x_1; } } lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__4; -x_2 = l_Lean_Syntax_formatStxAux___main___closed__3; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__5() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string(".."); -return x_1; -} -} -lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__6() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Syntax_formatStxAux___main___closed__5; +x_1 = l_Lean_Syntax_formatStxAux___main___closed__3; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__7() { +lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Syntax_formatStxAux___main___closed__6; +x_2 = l_Lean_Syntax_formatStxAux___main___closed__4; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); return x_3; } } -lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__8() { +lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__6() { _start: { uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = 0; x_2 = l_Lean_Format_sbracket___closed__2; -x_3 = l_Lean_Syntax_formatStxAux___main___closed__6; +x_3 = l_Lean_Syntax_formatStxAux___main___closed__4; x_4 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_4, 0, x_2); lean_ctor_set(x_4, 1, x_3); @@ -4104,12 +4162,12 @@ lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); return x_4; } } -lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__9() { +lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__7() { _start: { uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = 0; -x_2 = l_Lean_Syntax_formatStxAux___main___closed__8; +x_2 = l_Lean_Syntax_formatStxAux___main___closed__6; x_3 = l_Lean_Format_sbracket___closed__3; x_4 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_4, 0, x_2); @@ -4118,23 +4176,23 @@ lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); return x_4; } } -lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__10() { +lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__8() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Format_sbracket___closed__1; -x_2 = l_Lean_Syntax_formatStxAux___main___closed__9; +x_2 = l_Lean_Syntax_formatStxAux___main___closed__7; x_3 = lean_alloc_ctor(3, 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_Lean_Syntax_formatStxAux___main___closed__11() { +lean_object* _init_l_Lean_Syntax_formatStxAux___main___closed__9() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Syntax_formatStxAux___main___closed__10; +x_1 = l_Lean_Syntax_formatStxAux___main___closed__8; x_2 = lean_format_group(x_1); return x_2; } @@ -4146,6 +4204,7 @@ switch (lean_obj_tag(x_4)) { case 0: { lean_object* x_5; +lean_dec(x_1); x_5 = l_Lean_Syntax_formatStxAux___main___closed__2; return x_5; } @@ -4159,11 +4218,11 @@ lean_inc(x_7); lean_dec(x_4); x_8 = lean_unsigned_to_nat(1u); x_9 = lean_nat_add(x_3, x_8); -x_10 = l_Lean_Syntax_formatStxAux___main___closed__4; +x_10 = l_Lean_nullKind; x_11 = lean_name_eq(x_6, 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; +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; lean_object* x_21; x_12 = l_Lean_mkAppStx___closed__4; x_13 = lean_box(0); x_14 = l_Lean_Name_replacePrefix___main(x_6, x_12, x_13); @@ -4171,258 +4230,287 @@ x_15 = l_Lean_Name_toString___closed__1; x_16 = l_Lean_Name_toStringWithSep___main(x_15, x_14); x_17 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_17, 0, x_16); +x_18 = lean_array_get_size(x_7); +x_19 = lean_unsigned_to_nat(0u); +x_20 = lean_nat_dec_lt(x_19, x_18); +lean_dec(x_18); +if (x_20 == 0) +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t 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_dec(x_9); +x_49 = l_Array_toList___rarg(x_7); +lean_dec(x_7); +x_50 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3(x_1, x_2, x_3, x_49); +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_17); +lean_ctor_set(x_51, 1, x_50); +x_52 = lean_box(1); +x_53 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_51, x_52); +lean_dec(x_51); +x_54 = 0; +x_55 = l_Lean_Format_paren___closed__2; +x_56 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_53); +lean_ctor_set_uint8(x_56, sizeof(void*)*2, x_54); +x_57 = l_Lean_Format_paren___closed__3; +x_58 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +lean_ctor_set_uint8(x_58, sizeof(void*)*2, x_54); +x_59 = l_Lean_Format_paren___closed__1; +x_60 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_60, 0, x_59); +lean_ctor_set(x_60, 1, x_58); +x_61 = lean_format_group(x_60); +return x_61; +} +else +{ if (lean_obj_tag(x_1) == 0) { -uint8_t x_18; -x_18 = lean_nat_dec_lt(x_9, x_9); -lean_dec(x_9); -if (x_18 == 0) +lean_inc(x_9); +x_21 = x_9; +goto block_48; +} +else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t 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_19 = l_Array_toList___rarg(x_7); -lean_dec(x_7); -x_20 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(x_1, x_2, x_3, x_19); -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_17); -lean_ctor_set(x_21, 1, x_20); -x_22 = lean_box(1); -x_23 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_21, x_22); +lean_object* x_62; +x_62 = lean_ctor_get(x_1, 0); +lean_inc(x_62); +x_21 = x_62; +goto block_48; +} +} +block_48: +{ +uint8_t x_22; +x_22 = lean_nat_dec_lt(x_21, x_9); +lean_dec(x_9); lean_dec(x_21); -x_24 = 0; -x_25 = l_Lean_Format_paren___closed__2; -x_26 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_23); -lean_ctor_set_uint8(x_26, sizeof(void*)*2, x_24); -x_27 = l_Lean_Format_paren___closed__3; -x_28 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_28, 0, x_26); -lean_ctor_set(x_28, 1, x_27); -lean_ctor_set_uint8(x_28, sizeof(void*)*2, x_24); -x_29 = l_Lean_Format_paren___closed__1; -x_30 = lean_alloc_ctor(3, 2, 0); +if (x_22 == 0) +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_23 = l_Array_toList___rarg(x_7); +lean_dec(x_7); +x_24 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(x_1, x_2, x_3, x_23); +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_17); +lean_ctor_set(x_25, 1, x_24); +x_26 = lean_box(1); +x_27 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_25, x_26); +lean_dec(x_25); +x_28 = 0; +x_29 = l_Lean_Format_paren___closed__2; +x_30 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_28); -x_31 = lean_format_group(x_30); -return x_31; +lean_ctor_set(x_30, 1, x_27); +lean_ctor_set_uint8(x_30, sizeof(void*)*2, x_28); +x_31 = l_Lean_Format_paren___closed__3; +x_32 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_32, 0, x_30); +lean_ctor_set(x_32, 1, x_31); +lean_ctor_set_uint8(x_32, sizeof(void*)*2, x_28); +x_33 = l_Lean_Format_paren___closed__1; +x_34 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = lean_format_group(x_34); +return x_35; } else { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t 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_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t 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_dec(x_7); -x_32 = l_Lean_Syntax_formatStxAux___main___closed__7; -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_17); -lean_ctor_set(x_33, 1, x_32); -x_34 = lean_box(1); -x_35 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_33, x_34); -lean_dec(x_33); -x_36 = 0; -x_37 = l_Lean_Format_paren___closed__2; -x_38 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_35); -lean_ctor_set_uint8(x_38, sizeof(void*)*2, x_36); -x_39 = l_Lean_Format_paren___closed__3; -x_40 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_40, 0, x_38); -lean_ctor_set(x_40, 1, x_39); -lean_ctor_set_uint8(x_40, sizeof(void*)*2, x_36); -x_41 = l_Lean_Format_paren___closed__1; -x_42 = lean_alloc_ctor(3, 2, 0); +lean_dec(x_1); +x_36 = l_Lean_Syntax_formatStxAux___main___closed__5; +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_17); +lean_ctor_set(x_37, 1, x_36); +x_38 = lean_box(1); +x_39 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_37, x_38); +lean_dec(x_37); +x_40 = 0; +x_41 = l_Lean_Format_paren___closed__2; +x_42 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_40); -x_43 = lean_format_group(x_42); -return x_43; -} -} -else -{ -lean_object* x_44; uint8_t x_45; -x_44 = lean_ctor_get(x_1, 0); -x_45 = lean_nat_dec_lt(x_44, x_9); -lean_dec(x_9); -if (x_45 == 0) -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; uint8_t 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_46 = l_Array_toList___rarg(x_7); -lean_dec(x_7); -x_47 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3(x_1, x_2, x_3, x_46); -x_48 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_48, 0, x_17); -lean_ctor_set(x_48, 1, x_47); -x_49 = lean_box(1); -x_50 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_48, x_49); -lean_dec(x_48); -x_51 = 0; -x_52 = l_Lean_Format_paren___closed__2; -x_53 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_50); -lean_ctor_set_uint8(x_53, sizeof(void*)*2, x_51); -x_54 = l_Lean_Format_paren___closed__3; -x_55 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_55, 0, x_53); -lean_ctor_set(x_55, 1, x_54); -lean_ctor_set_uint8(x_55, sizeof(void*)*2, x_51); -x_56 = l_Lean_Format_paren___closed__1; -x_57 = lean_alloc_ctor(3, 2, 0); -lean_ctor_set(x_57, 0, x_56); -lean_ctor_set(x_57, 1, x_55); -x_58 = lean_format_group(x_57); -return x_58; -} -else -{ -lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; uint8_t 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_dec(x_7); -x_59 = l_Lean_Syntax_formatStxAux___main___closed__7; -x_60 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_60, 0, x_17); -lean_ctor_set(x_60, 1, x_59); -x_61 = lean_box(1); -x_62 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_60, x_61); -lean_dec(x_60); -x_63 = 0; -x_64 = l_Lean_Format_paren___closed__2; -x_65 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set(x_65, 1, x_62); -lean_ctor_set_uint8(x_65, sizeof(void*)*2, x_63); -x_66 = l_Lean_Format_paren___closed__3; -x_67 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_67, 0, x_65); -lean_ctor_set(x_67, 1, x_66); -lean_ctor_set_uint8(x_67, sizeof(void*)*2, x_63); -x_68 = l_Lean_Format_paren___closed__1; -x_69 = lean_alloc_ctor(3, 2, 0); -lean_ctor_set(x_69, 0, x_68); -lean_ctor_set(x_69, 1, x_67); -x_70 = lean_format_group(x_69); -return x_70; +lean_ctor_set(x_42, 1, x_39); +lean_ctor_set_uint8(x_42, sizeof(void*)*2, x_40); +x_43 = l_Lean_Format_paren___closed__3; +x_44 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_44, 0, x_42); +lean_ctor_set(x_44, 1, x_43); +lean_ctor_set_uint8(x_44, sizeof(void*)*2, x_40); +x_45 = l_Lean_Format_paren___closed__1; +x_46 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = lean_format_group(x_46); +return x_47; } } } else { +lean_object* x_63; lean_object* x_64; uint8_t x_65; lean_dec(x_6); +x_63 = lean_array_get_size(x_7); +x_64 = lean_unsigned_to_nat(0u); +x_65 = lean_nat_dec_lt(x_64, x_63); +lean_dec(x_63); +if (x_65 == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +lean_dec(x_9); +x_66 = l_Array_toList___rarg(x_7); +lean_dec(x_7); +x_67 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(x_1, x_2, x_3, x_66); +x_68 = lean_box(1); +x_69 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_67, x_68); +lean_dec(x_67); +x_70 = 0; +x_71 = l_Lean_Format_sbracket___closed__2; +x_72 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_72, 0, x_71); +lean_ctor_set(x_72, 1, x_69); +lean_ctor_set_uint8(x_72, sizeof(void*)*2, x_70); +x_73 = l_Lean_Format_sbracket___closed__3; +x_74 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_74, 0, x_72); +lean_ctor_set(x_74, 1, x_73); +lean_ctor_set_uint8(x_74, sizeof(void*)*2, x_70); +x_75 = l_Lean_Format_sbracket___closed__1; +x_76 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_format_group(x_76); +return x_77; +} +else +{ if (lean_obj_tag(x_1) == 0) { -uint8_t x_71; -x_71 = lean_nat_dec_lt(x_9, x_9); +uint8_t x_78; +x_78 = lean_nat_dec_lt(x_9, x_9); lean_dec(x_9); -if (x_71 == 0) +if (x_78 == 0) { -lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; uint8_t 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_72 = l_Array_toList___rarg(x_7); +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* 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; lean_object* x_89; lean_object* x_90; +x_79 = l_Array_toList___rarg(x_7); lean_dec(x_7); -x_73 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(x_1, x_2, x_3, x_72); -x_74 = lean_box(1); -x_75 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_73, x_74); -lean_dec(x_73); -x_76 = 0; -x_77 = l_Lean_Format_sbracket___closed__2; -x_78 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_78, 0, x_77); -lean_ctor_set(x_78, 1, x_75); -lean_ctor_set_uint8(x_78, sizeof(void*)*2, x_76); -x_79 = l_Lean_Format_sbracket___closed__3; -x_80 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_80, 0, x_78); -lean_ctor_set(x_80, 1, x_79); -lean_ctor_set_uint8(x_80, sizeof(void*)*2, x_76); -x_81 = l_Lean_Format_sbracket___closed__1; -x_82 = lean_alloc_ctor(3, 2, 0); -lean_ctor_set(x_82, 0, x_81); -lean_ctor_set(x_82, 1, x_80); -x_83 = lean_format_group(x_82); -return x_83; +x_80 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(x_1, x_2, x_3, x_79); +x_81 = lean_box(1); +x_82 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_80, x_81); +lean_dec(x_80); +x_83 = 0; +x_84 = l_Lean_Format_sbracket___closed__2; +x_85 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_82); +lean_ctor_set_uint8(x_85, sizeof(void*)*2, x_83); +x_86 = l_Lean_Format_sbracket___closed__3; +x_87 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_87, 0, x_85); +lean_ctor_set(x_87, 1, x_86); +lean_ctor_set_uint8(x_87, sizeof(void*)*2, x_83); +x_88 = l_Lean_Format_sbracket___closed__1; +x_89 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_87); +x_90 = lean_format_group(x_89); +return x_90; } else { -lean_object* x_84; +lean_object* x_91; lean_dec(x_7); -x_84 = l_Lean_Syntax_formatStxAux___main___closed__11; -return x_84; +x_91 = l_Lean_Syntax_formatStxAux___main___closed__9; +return x_91; } } else { -lean_object* x_85; uint8_t x_86; -x_85 = lean_ctor_get(x_1, 0); -x_86 = lean_nat_dec_lt(x_85, x_9); +lean_object* x_92; uint8_t x_93; +x_92 = lean_ctor_get(x_1, 0); +lean_inc(x_92); +x_93 = lean_nat_dec_lt(x_92, x_9); lean_dec(x_9); -if (x_86 == 0) +lean_dec(x_92); +if (x_93 == 0) { -lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint8_t 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_87 = l_Array_toList___rarg(x_7); +lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint8_t 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; +x_94 = l_Array_toList___rarg(x_7); lean_dec(x_7); -x_88 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(x_1, x_2, x_3, x_87); -x_89 = lean_box(1); -x_90 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_88, x_89); -lean_dec(x_88); -x_91 = 0; -x_92 = l_Lean_Format_sbracket___closed__2; -x_93 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_93, 0, x_92); -lean_ctor_set(x_93, 1, x_90); -lean_ctor_set_uint8(x_93, sizeof(void*)*2, x_91); -x_94 = l_Lean_Format_sbracket___closed__3; -x_95 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_95, 0, x_93); -lean_ctor_set(x_95, 1, x_94); -lean_ctor_set_uint8(x_95, sizeof(void*)*2, x_91); -x_96 = l_Lean_Format_sbracket___closed__1; -x_97 = lean_alloc_ctor(3, 2, 0); -lean_ctor_set(x_97, 0, x_96); -lean_ctor_set(x_97, 1, x_95); -x_98 = lean_format_group(x_97); -return x_98; +x_95 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6(x_1, x_2, x_3, x_94); +x_96 = lean_box(1); +x_97 = l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(x_95, x_96); +lean_dec(x_95); +x_98 = 0; +x_99 = l_Lean_Format_sbracket___closed__2; +x_100 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_100, 0, x_99); +lean_ctor_set(x_100, 1, x_97); +lean_ctor_set_uint8(x_100, sizeof(void*)*2, x_98); +x_101 = l_Lean_Format_sbracket___closed__3; +x_102 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_102, 0, x_100); +lean_ctor_set(x_102, 1, x_101); +lean_ctor_set_uint8(x_102, sizeof(void*)*2, x_98); +x_103 = l_Lean_Format_sbracket___closed__1; +x_104 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_102); +x_105 = lean_format_group(x_104); +return x_105; } else { -lean_object* x_99; +lean_object* x_106; lean_dec(x_7); -x_99 = l_Lean_Syntax_formatStxAux___main___closed__11; -return x_99; +lean_dec(x_1); +x_106 = l_Lean_Syntax_formatStxAux___main___closed__9; +return x_106; +} } } } } case 2: { -lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_100 = lean_ctor_get(x_4, 0); -lean_inc(x_100); -x_101 = lean_ctor_get(x_4, 1); -lean_inc(x_101); +lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; +lean_dec(x_1); +x_107 = lean_ctor_get(x_4, 0); +lean_inc(x_107); +x_108 = lean_ctor_get(x_4, 1); +lean_inc(x_108); lean_dec(x_4); -x_102 = l_String_quote(x_101); -x_103 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_103, 0, x_102); -x_104 = l___private_Lean_Syntax_6__formatInfo(x_2, x_100, x_103); -return x_104; +x_109 = l_String_quote(x_108); +x_110 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_110, 0, x_109); +x_111 = l___private_Lean_Syntax_6__formatInfo(x_2, x_107, x_110); +return x_111; } default: { -lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; uint8_t x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; -x_105 = lean_ctor_get(x_4, 0); -lean_inc(x_105); -x_106 = lean_ctor_get(x_4, 2); -lean_inc(x_106); +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; uint8_t x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; +lean_dec(x_1); +x_112 = lean_ctor_get(x_4, 0); +lean_inc(x_112); +x_113 = lean_ctor_get(x_4, 2); +lean_inc(x_113); lean_dec(x_4); -x_107 = l_Lean_Name_toString___closed__1; -x_108 = l_Lean_Name_toStringWithSep___main(x_107, x_106); -x_109 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_109, 0, x_108); -x_110 = 0; -x_111 = l_Lean_formatDataValue___closed__2; -x_112 = lean_alloc_ctor(4, 2, 1); -lean_ctor_set(x_112, 0, x_111); -lean_ctor_set(x_112, 1, x_109); -lean_ctor_set_uint8(x_112, sizeof(void*)*2, x_110); -x_113 = l___private_Lean_Syntax_6__formatInfo(x_2, x_105, x_112); -return x_113; +x_114 = l_Lean_Name_toString___closed__1; +x_115 = l_Lean_Name_toStringWithSep___main(x_114, x_113); +x_116 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_116, 0, x_115); +x_117 = 0; +x_118 = l_Lean_formatDataValue___closed__2; +x_119 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_116); +lean_ctor_set_uint8(x_119, sizeof(void*)*2, x_117); +x_120 = l___private_Lean_Syntax_6__formatInfo(x_2, x_112, x_119); +return x_120; } } } @@ -4435,7 +4523,6 @@ x_5 = lean_unbox(x_2); lean_dec(x_2); x_6 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(x_1, x_5, x_3, x_4); lean_dec(x_3); -lean_dec(x_1); return x_6; } } @@ -4456,7 +4543,6 @@ x_5 = lean_unbox(x_2); lean_dec(x_2); x_6 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3(x_1, x_5, x_3, x_4); lean_dec(x_3); -lean_dec(x_1); return x_6; } } @@ -4468,7 +4554,6 @@ x_5 = lean_unbox(x_2); lean_dec(x_2); x_6 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(x_1, x_5, x_3, x_4); lean_dec(x_3); -lean_dec(x_1); return x_6; } } @@ -4480,7 +4565,17 @@ x_5 = lean_unbox(x_2); lean_dec(x_2); x_6 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(x_1, x_5, x_3, x_4); lean_dec(x_3); -lean_dec(x_1); +return x_6; +} +} +lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_2); +lean_dec(x_2); +x_6 = l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__6(x_1, x_5, x_3, x_4); +lean_dec(x_3); return x_6; } } @@ -4492,7 +4587,6 @@ x_5 = lean_unbox(x_2); lean_dec(x_2); x_6 = l_Lean_Syntax_formatStxAux___main(x_1, x_5, x_3, x_4); lean_dec(x_3); -lean_dec(x_1); return x_6; } } @@ -4512,7 +4606,6 @@ x_5 = lean_unbox(x_2); lean_dec(x_2); x_6 = l_Lean_Syntax_formatStxAux(x_1, x_5, x_3, x_4); lean_dec(x_3); -lean_dec(x_1); return x_6; } } @@ -4532,7 +4625,6 @@ uint8_t x_4; lean_object* x_5; x_4 = lean_unbox(x_3); lean_dec(x_3); x_5 = l_Lean_Syntax_formatStx(x_1, x_2, x_4); -lean_dec(x_2); return x_5; } } @@ -4586,6 +4678,372 @@ x_1 = l_Lean_Syntax_HasToString___closed__2; return x_1; } } +uint8_t l_Array_isEqvAux___main___at_Lean_Syntax_structEq___main___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) { +_start: +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_array_get_size(x_4); +x_8 = lean_nat_dec_lt(x_6, x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +uint8_t x_9; +lean_dec(x_6); +x_9 = 1; +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_10 = lean_array_fget(x_4, x_6); +x_11 = lean_array_fget(x_5, x_6); +x_12 = l_Lean_Syntax_structEq___main(x_10, x_11); +lean_dec(x_11); +lean_dec(x_10); +if (x_12 == 0) +{ +uint8_t x_13; +lean_dec(x_6); +x_13 = 0; +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_unsigned_to_nat(1u); +x_15 = lean_nat_add(x_6, x_14); +lean_dec(x_6); +x_3 = lean_box(0); +x_6 = x_15; +goto _start; +} +} +} +} +uint8_t l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 1; +return x_3; +} +else +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +} +else +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_5; +x_5 = 0; +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_6 = lean_ctor_get(x_1, 0); +x_7 = lean_ctor_get(x_1, 1); +x_8 = lean_ctor_get(x_2, 0); +x_9 = lean_ctor_get(x_2, 1); +x_10 = lean_string_dec_eq(x_6, x_8); +if (x_10 == 0) +{ +uint8_t x_11; +x_11 = 0; +return x_11; +} +else +{ +x_1 = x_7; +x_2 = x_9; +goto _start; +} +} +} +} +} +uint8_t l_List_beq___main___at_Lean_Syntax_structEq___main___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 1; +return x_3; +} +else +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +} +else +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_5; +x_5 = 0; +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; uint8_t x_14; +x_6 = lean_ctor_get(x_1, 0); +x_7 = lean_ctor_get(x_2, 0); +x_8 = lean_ctor_get(x_1, 1); +x_9 = lean_ctor_get(x_2, 1); +x_10 = lean_ctor_get(x_6, 0); +x_11 = lean_ctor_get(x_6, 1); +x_12 = lean_ctor_get(x_7, 0); +x_13 = lean_ctor_get(x_7, 1); +x_14 = lean_name_eq(x_10, x_12); +if (x_14 == 0) +{ +uint8_t x_15; +x_15 = 0; +return x_15; +} +else +{ +uint8_t x_16; +x_16 = l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(x_11, x_13); +if (x_16 == 0) +{ +uint8_t x_17; +x_17 = 0; +return x_17; +} +else +{ +x_1 = x_8; +x_2 = x_9; +goto _start; +} +} +} +} +} +} +uint8_t l_Lean_Syntax_structEq___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 1; +return x_3; +} +else +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +} +case 1: +{ +if (lean_obj_tag(x_2) == 1) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_ctor_get(x_2, 0); +x_8 = lean_ctor_get(x_2, 1); +x_9 = lean_name_eq(x_5, x_7); +if (x_9 == 0) +{ +uint8_t x_10; +x_10 = 0; +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_array_get_size(x_6); +x_12 = lean_array_get_size(x_8); +x_13 = lean_nat_dec_eq(x_11, x_12); +lean_dec(x_12); +lean_dec(x_11); +if (x_13 == 0) +{ +uint8_t x_14; +x_14 = 0; +return x_14; +} +else +{ +lean_object* x_15; uint8_t x_16; +x_15 = lean_unsigned_to_nat(0u); +x_16 = l_Array_isEqvAux___main___at_Lean_Syntax_structEq___main___spec__1(x_6, x_8, lean_box(0), x_6, x_8, x_15); +return x_16; +} +} +} +else +{ +uint8_t x_17; +x_17 = 0; +return x_17; +} +} +case 2: +{ +if (lean_obj_tag(x_2) == 2) +{ +lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_18 = lean_ctor_get(x_1, 1); +x_19 = lean_ctor_get(x_2, 1); +x_20 = lean_string_dec_eq(x_18, x_19); +return x_20; +} +else +{ +uint8_t x_21; +x_21 = 0; +return x_21; +} +} +default: +{ +if (lean_obj_tag(x_2) == 3) +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; +x_22 = lean_ctor_get(x_1, 1); +x_23 = lean_ctor_get(x_1, 2); +x_24 = lean_ctor_get(x_1, 3); +x_25 = lean_ctor_get(x_2, 1); +x_26 = lean_ctor_get(x_2, 2); +x_27 = lean_ctor_get(x_2, 3); +x_28 = l_Substring_beq(x_22, x_25); +if (x_28 == 0) +{ +uint8_t x_29; +x_29 = 0; +return x_29; +} +else +{ +uint8_t x_30; +x_30 = lean_name_eq(x_23, x_26); +if (x_30 == 0) +{ +uint8_t x_31; +x_31 = 0; +return x_31; +} +else +{ +uint8_t x_32; +x_32 = l_List_beq___main___at_Lean_Syntax_structEq___main___spec__2(x_24, x_27); +return x_32; +} +} +} +else +{ +uint8_t x_33; +x_33 = 0; +return x_33; +} +} +} +} +} +lean_object* l_Array_isEqvAux___main___at_Lean_Syntax_structEq___main___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) { +_start: +{ +uint8_t x_7; lean_object* x_8; +x_7 = l_Array_isEqvAux___main___at_Lean_Syntax_structEq___main___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_8 = lean_box(x_7); +return x_8; +} +} +lean_object* l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_List_beq___main___at_Lean_Syntax_structEq___main___spec__3(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_List_beq___main___at_Lean_Syntax_structEq___main___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_List_beq___main___at_Lean_Syntax_structEq___main___spec__2(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_Lean_Syntax_structEq___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Syntax_structEq___main(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Syntax_structEq(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = l_Lean_Syntax_structEq___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Syntax_structEq___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Syntax_structEq(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Syntax_structHasBeq___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Syntax_structEq___boxed), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Syntax_structHasBeq() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Syntax_structHasBeq___closed__1; +return x_1; +} +} lean_object* l_Lean_Syntax_Traverser_fromSyntax(lean_object* x_1) { _start: { @@ -5946,16 +6404,16 @@ l_Lean_Syntax_formatStxAux___main___closed__8 = _init_l_Lean_Syntax_formatStxAux lean_mark_persistent(l_Lean_Syntax_formatStxAux___main___closed__8); l_Lean_Syntax_formatStxAux___main___closed__9 = _init_l_Lean_Syntax_formatStxAux___main___closed__9(); lean_mark_persistent(l_Lean_Syntax_formatStxAux___main___closed__9); -l_Lean_Syntax_formatStxAux___main___closed__10 = _init_l_Lean_Syntax_formatStxAux___main___closed__10(); -lean_mark_persistent(l_Lean_Syntax_formatStxAux___main___closed__10); -l_Lean_Syntax_formatStxAux___main___closed__11 = _init_l_Lean_Syntax_formatStxAux___main___closed__11(); -lean_mark_persistent(l_Lean_Syntax_formatStxAux___main___closed__11); l_Lean_Syntax_HasToString___closed__1 = _init_l_Lean_Syntax_HasToString___closed__1(); lean_mark_persistent(l_Lean_Syntax_HasToString___closed__1); l_Lean_Syntax_HasToString___closed__2 = _init_l_Lean_Syntax_HasToString___closed__2(); lean_mark_persistent(l_Lean_Syntax_HasToString___closed__2); l_Lean_Syntax_HasToString = _init_l_Lean_Syntax_HasToString(); lean_mark_persistent(l_Lean_Syntax_HasToString); +l_Lean_Syntax_structHasBeq___closed__1 = _init_l_Lean_Syntax_structHasBeq___closed__1(); +lean_mark_persistent(l_Lean_Syntax_structHasBeq___closed__1); +l_Lean_Syntax_structHasBeq = _init_l_Lean_Syntax_structHasBeq(); +lean_mark_persistent(l_Lean_Syntax_structHasBeq); l_Lean_Syntax_MonadTraverser_getCur___rarg___closed__1 = _init_l_Lean_Syntax_MonadTraverser_getCur___rarg___closed__1(); lean_mark_persistent(l_Lean_Syntax_MonadTraverser_getCur___rarg___closed__1); l_Lean_Syntax_MonadTraverser_goUp___rarg___closed__1 = _init_l_Lean_Syntax_MonadTraverser_goUp___rarg___closed__1(); diff --git a/stage0/stdlib/Lean/Util/PPExt.c b/stage0/stdlib/Lean/Util/PPExt.c index e254293c51..48723c685a 100644 --- a/stage0/stdlib/Lean/Util/PPExt.c +++ b/stage0/stdlib/Lean/Util/PPExt.c @@ -14,7 +14,6 @@ extern "C" { #endif lean_object* l_Lean_MetavarContext_instantiateMVars(lean_object*, lean_object*); -lean_object* l_Lean_PPExprFnRef; extern lean_object* l_Lean_verboseOption___closed__3; lean_object* lean_io_mk_ref(lean_object*, lean_object*); lean_object* lean_io_ref_get(lean_object*, lean_object*); @@ -24,6 +23,7 @@ extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_ppExprExt___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkPPExprFnExtension(lean_object*); lean_object* l_Lean_mkPPExprFnExtension___closed__1; +lean_object* l_Lean_ppExprFnRef; lean_object* l_Lean_mkPPExprFnRef___closed__1; uint8_t l_Lean_KVMap_getBool(lean_object*, lean_object*, uint8_t); lean_object* l_Lean_ppExprExt___closed__3; @@ -332,7 +332,7 @@ lean_object* _init_l_Lean_mkPPExprFnExtension___closed__1() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_PPExprFnRef; +x_1 = l_Lean_ppExprFnRef; x_2 = lean_alloc_closure((void*)(l_IO_Prim_Ref_get___boxed), 3, 2); lean_closure_set(x_2, 0, lean_box(0)); lean_closure_set(x_2, 1, x_1); @@ -529,8 +529,8 @@ l_Lean_mkPPExprFnRef___closed__1 = _init_l_Lean_mkPPExprFnRef___closed__1(); lean_mark_persistent(l_Lean_mkPPExprFnRef___closed__1); res = l_Lean_mkPPExprFnRef(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; -l_Lean_PPExprFnRef = lean_io_result_get_value(res); -lean_mark_persistent(l_Lean_PPExprFnRef); +l_Lean_ppExprFnRef = lean_io_result_get_value(res); +lean_mark_persistent(l_Lean_ppExprFnRef); lean_dec_ref(res); l_Lean_registerEnvExtensionUnsafe___at_Lean_mkPPExprFnExtension___spec__1___closed__1 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_mkPPExprFnExtension___spec__1___closed__1(); lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_mkPPExprFnExtension___spec__1___closed__1); diff --git a/stage0/stdlib/Lean/Util/Path.c b/stage0/stdlib/Lean/Util/Path.c index fd46bcfdd3..deec72c612 100644 --- a/stage0/stdlib/Lean/Util/Path.c +++ b/stage0/stdlib/Lean/Util/Path.c @@ -37,7 +37,6 @@ lean_object* l_Lean_modPathToFilePath___main___closed__2; lean_object* l_Lean_findOLean(lean_object*, lean_object*); lean_object* l_Lean_modPathToFilePath___main___closed__1; lean_object* l_Lean_modPathToFilePath___main(lean_object*); -lean_object* l_IO_currentDir___at_Lean_moduleNameOfFileName___spec__1(lean_object*); lean_object* lean_io_current_dir(lean_object*); lean_object* l_Lean_getBuiltinSearchPath___closed__1; lean_object* l_Lean_addSearchPathFromEnv___closed__1; @@ -54,21 +53,22 @@ lean_object* l_Lean_modPathToFilePath___main___boxed(lean_object*); lean_object* l_Lean_moduleNameOfFileName___closed__4; extern uint32_t l_System_FilePath_pathSeparator; uint32_t lean_string_utf8_get(lean_object*, lean_object*); -lean_object* lean_module_name_of_file(lean_object*, lean_object*); +lean_object* lean_module_name_of_file(lean_object*, lean_object*, lean_object*); lean_object* l_IO_appDir___at_Lean_getBuiltinSearchPath___spec__1(lean_object*); lean_object* l_String_split___at_System_FilePath_splitSearchPath___spec__2(lean_object*); lean_object* l_Lean_realPathNormalized(lean_object*, lean_object*); lean_object* l_IO_getEnv___at_Lean_addSearchPathFromEnv___spec__1(lean_object*, lean_object*); lean_object* lean_init_search_path(lean_object*, lean_object*); -lean_object* l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__2(lean_object*, lean_object*); lean_object* l_Lean_moduleNameOfFileName___closed__3; lean_object* l_List_findM_x3f___main___at_Lean_findOLean___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_IO_isDir___at_Lean_findOLean___spec__1(lean_object*, lean_object*); extern lean_object* l_Option_HasRepr___rarg___closed__3; lean_object* l_Lean_findOLean___closed__1; uint8_t l_UInt32_decEq(uint32_t, uint32_t); +lean_object* l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__1(lean_object*, lean_object*); lean_object* l_Lean_findOLean___boxed(lean_object*, lean_object*); uint8_t l_String_isPrefixOf(lean_object*, lean_object*); +lean_object* l_IO_currentDir___at_Lean_moduleNameOfFileName___spec__2(lean_object*); lean_object* lean_panic_fn(lean_object*, lean_object*); lean_object* l_Lean_addSearchPathFromEnv(lean_object*, lean_object*); lean_object* l_Lean_getBuiltinSearchPath___closed__2; @@ -926,15 +926,7 @@ lean_dec(x_1); return x_3; } } -lean_object* l_IO_currentDir___at_Lean_moduleNameOfFileName___spec__1(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_io_current_dir(x_1); -return x_2; -} -} -lean_object* l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__2(lean_object* x_1, lean_object* x_2) { +lean_object* l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__1(lean_object* x_1, lean_object* x_2) { _start: { if (lean_obj_tag(x_2) == 0) @@ -956,6 +948,14 @@ goto _start; } } } +lean_object* l_IO_currentDir___at_Lean_moduleNameOfFileName___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_io_current_dir(x_1); +return x_2; +} +} lean_object* _init_l_Lean_moduleNameOfFileName___closed__1() { _start: { @@ -984,32 +984,76 @@ lean_object* _init_l_Lean_moduleNameOfFileName___closed__4() { _start: { lean_object* x_1; -x_1 = lean_mk_string("' must be contained in current directory ("); +x_1 = lean_mk_string("' must be contained in root directory ("); return x_1; } } -lean_object* lean_module_name_of_file(lean_object* x_1, lean_object* x_2) { +lean_object* lean_module_name_of_file(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_3; -x_3 = l_Lean_realPathNormalized(x_1, x_2); -if (lean_obj_tag(x_3) == 0) +lean_object* x_4; +x_4 = l_Lean_realPathNormalized(x_1, x_3); +if (lean_obj_tag(x_4) == 0) { -lean_object* x_4; lean_object* x_5; lean_object* x_6; -x_4 = lean_ctor_get(x_3, 0); -lean_inc(x_4); -x_5 = lean_ctor_get(x_3, 1); +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_4, 0); lean_inc(x_5); -lean_dec(x_3); -x_6 = lean_io_current_dir(x_5); -if (lean_obj_tag(x_6) == 0) +x_6 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +lean_dec(x_4); +if (lean_obj_tag(x_2) == 0) { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_ctor_get(x_6, 0); -lean_inc(x_7); -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -lean_dec(x_6); +lean_object* x_87; +x_87 = lean_io_current_dir(x_6); +if (lean_obj_tag(x_87) == 0) +{ +lean_object* x_88; lean_object* x_89; +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_7 = x_88; +x_8 = x_89; +goto block_86; +} +else +{ +uint8_t x_90; +lean_dec(x_5); +x_90 = !lean_is_exclusive(x_87); +if (x_90 == 0) +{ +return x_87; +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; +x_91 = lean_ctor_get(x_87, 0); +x_92 = lean_ctor_get(x_87, 1); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_87); +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_91); +lean_ctor_set(x_93, 1, x_92); +return x_93; +} +} +} +else +{ +lean_object* x_94; +x_94 = lean_ctor_get(x_2, 0); +lean_inc(x_94); +lean_dec(x_2); +x_7 = x_94; +x_8 = x_6; +goto block_86; +} +block_86: +{ +lean_object* x_9; x_9 = l_Lean_realPathNormalized(x_7, x_8); if (lean_obj_tag(x_9) == 0) { @@ -1026,9 +1070,9 @@ if (lean_is_exclusive(x_9)) { lean_dec_ref(x_9); x_12 = lean_box(0); } -x_13 = l_String_isPrefixOf(x_10, x_4); +x_13 = l_String_isPrefixOf(x_10, x_5); x_14 = lean_string_length(x_10); -x_15 = l_String_drop(x_4, x_14); +x_15 = l_String_drop(x_5, x_14); lean_dec(x_14); x_16 = lean_unsigned_to_nat(0u); x_17 = lean_string_utf8_get(x_15, x_16); @@ -1097,8 +1141,8 @@ if (lean_obj_tag(x_24) == 0) 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_dec(x_15); x_25 = l_Lean_moduleNameOfFileName___closed__1; -x_26 = lean_string_append(x_25, x_4); -lean_dec(x_4); +x_26 = lean_string_append(x_25, x_5); +lean_dec(x_5); x_27 = l_Lean_moduleNameOfFileName___closed__2; x_28 = lean_string_append(x_26, x_27); x_29 = lean_alloc_ctor(18, 1, 0); @@ -1116,7 +1160,7 @@ return x_30; else { 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_dec(x_4); +lean_dec(x_5); x_31 = lean_ctor_get(x_24, 0); lean_inc(x_31); lean_dec(x_24); @@ -1126,7 +1170,7 @@ lean_dec(x_15); x_33 = l___private_Lean_Util_Path_1__pathSep; x_34 = l_String_splitOn(x_32, x_33); x_35 = lean_box(0); -x_36 = l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__2(x_35, x_34); +x_36 = l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__1(x_35, x_34); if (lean_is_scalar(x_12)) { x_37 = lean_alloc_ctor(0, 2, 0); } else { @@ -1142,8 +1186,8 @@ else 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_dec(x_15); x_38 = l_Lean_moduleNameOfFileName___closed__3; -x_39 = lean_string_append(x_38, x_4); -lean_dec(x_4); +x_39 = lean_string_append(x_38, x_5); +lean_dec(x_5); x_40 = l_Lean_moduleNameOfFileName___closed__4; x_41 = lean_string_append(x_39, x_40); x_42 = lean_string_append(x_41, x_10); @@ -1179,8 +1223,8 @@ if (lean_obj_tag(x_50) == 0) 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_dec(x_48); x_51 = l_Lean_moduleNameOfFileName___closed__1; -x_52 = lean_string_append(x_51, x_4); -lean_dec(x_4); +x_52 = lean_string_append(x_51, x_5); +lean_dec(x_5); x_53 = l_Lean_moduleNameOfFileName___closed__2; x_54 = lean_string_append(x_52, x_53); x_55 = lean_alloc_ctor(18, 1, 0); @@ -1198,7 +1242,7 @@ return x_56; else { lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; -lean_dec(x_4); +lean_dec(x_5); x_57 = lean_ctor_get(x_50, 0); lean_inc(x_57); lean_dec(x_50); @@ -1208,7 +1252,7 @@ lean_dec(x_48); x_59 = l___private_Lean_Util_Path_1__pathSep; x_60 = l_String_splitOn(x_58, x_59); x_61 = lean_box(0); -x_62 = l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__2(x_61, x_60); +x_62 = l_List_foldl___main___at_Lean_moduleNameOfFileName___spec__1(x_61, x_60); if (lean_is_scalar(x_12)) { x_63 = lean_alloc_ctor(0, 2, 0); } else { @@ -1224,8 +1268,8 @@ 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_dec(x_15); x_64 = l_Lean_moduleNameOfFileName___closed__3; -x_65 = lean_string_append(x_64, x_4); -lean_dec(x_4); +x_65 = lean_string_append(x_64, x_5); +lean_dec(x_5); x_66 = l_Lean_moduleNameOfFileName___closed__4; x_67 = lean_string_append(x_65, x_66); x_68 = lean_string_append(x_67, x_10); @@ -1252,7 +1296,7 @@ return x_72; else { uint8_t x_82; -lean_dec(x_4); +lean_dec(x_5); x_82 = !lean_is_exclusive(x_9); if (x_82 == 0) { @@ -1273,50 +1317,28 @@ return x_85; } } } +} else { -uint8_t x_86; +uint8_t x_95; +lean_dec(x_2); +x_95 = !lean_is_exclusive(x_4); +if (x_95 == 0) +{ +return x_4; +} +else +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_96 = lean_ctor_get(x_4, 0); +x_97 = lean_ctor_get(x_4, 1); +lean_inc(x_97); +lean_inc(x_96); lean_dec(x_4); -x_86 = !lean_is_exclusive(x_6); -if (x_86 == 0) -{ -return x_6; -} -else -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_6, 0); -x_88 = lean_ctor_get(x_6, 1); -lean_inc(x_88); -lean_inc(x_87); -lean_dec(x_6); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_87); -lean_ctor_set(x_89, 1, x_88); -return x_89; -} -} -} -else -{ -uint8_t x_90; -x_90 = !lean_is_exclusive(x_3); -if (x_90 == 0) -{ -return x_3; -} -else -{ -lean_object* x_91; lean_object* x_92; lean_object* x_93; -x_91 = lean_ctor_get(x_3, 0); -x_92 = lean_ctor_get(x_3, 1); -lean_inc(x_92); -lean_inc(x_91); -lean_dec(x_3); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_91); -lean_ctor_set(x_93, 1, x_92); -return x_93; +x_98 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_98, 0, x_96); +lean_ctor_set(x_98, 1, x_97); +return x_98; } } }