diff --git a/stage0/src/Init/Lean/Elab/Tactic/Induction.lean b/stage0/src/Init/Lean/Elab/Tactic/Induction.lean index 7e94eceae2..756361f8dd 100644 --- a/stage0/src/Init/Lean/Elab/Tactic/Induction.lean +++ b/stage0/src/Init/Lean/Elab/Tactic/Induction.lean @@ -6,6 +6,7 @@ Authors: Leonardo de Moura, Sebastian Ullrich prelude import Init.Lean.Meta.RecursorInfo import Init.Lean.Meta.Tactic.Induction +import Init.Lean.Meta.Tactic.Cases import Init.Lean.Elab.Tactic.ElabTerm import Init.Lean.Elab.Tactic.Generalize @@ -149,6 +150,35 @@ match recInfo? with (fun _ => throwError ref ("invalid recursor name '" ++ baseRecName ++ "'")) | _ => throwError ref ("invalid recursor name '" ++ baseRecName ++ "'") +/- Create `RecInfo` assuming builtin recursor -/ +private def getRecInfoDefault (ref : Syntax) (major : Expr) (withAlts : Syntax) : TacticM RecInfo := do +indVal ← getInductiveValFromMajor ref major; +let recName := mkRecFor indVal.name; +if withAlts.isNone then pure { recName := recName } +else do + let ctorNames := indVal.ctors; + let alts := getAlts withAlts; + checkAltCtorNames alts ctorNames; + (altVars, altRHSs, remainingAlts, _) ← ctorNames.foldlM + (fun (result : Array (List Name) × Array Syntax × Array Syntax × Option Syntax) (ctorName : Name) => do + let (altVars, altRHSs, remainingAlts, prevAnonymousAlt?) := result; + match remainingAlts.findIdx? (fun alt => (getAltName alt).isSuffixOf ctorName) with + | some idx => + let newAlt := remainingAlts.get! idx; + pure (altVars.push (getAltVarNames newAlt).toList, altRHSs.push (getAltRHS newAlt), remainingAlts.eraseIdx idx, prevAnonymousAlt?) + | none => match remainingAlts.findIdx? (fun alt => getAltName alt == `_) with + | some idx => + let newAlt := remainingAlts.get! idx; + pure (altVars.push (getAltVarNames newAlt).toList, altRHSs.push (getAltRHS newAlt), remainingAlts.eraseIdx idx, some newAlt) + | none => match prevAnonymousAlt? with + | some alt => + pure (altVars.push (getAltVarNames alt).toList, altRHSs.push (getAltRHS alt), remainingAlts, prevAnonymousAlt?) + | none => throwError ref ("alternative for constructor '" ++ toString ctorName ++ "' is missing")) + (#[], #[], alts, none); + unless remainingAlts.isEmpty $ + throwError (remainingAlts.get! 0) "unused alternative"; + pure { recName := recName, altVars := altVars, altRHSs := altRHSs } + /- Recall that ``` @@ -162,32 +192,7 @@ let ref := stx; let usingRecStx := stx.getArg 2; let withAlts := stx.getArg 4; if usingRecStx.isNone then do - indVal ← getInductiveValFromMajor ref major; - let recName := mkRecFor indVal.name; - if withAlts.isNone then pure { recName := recName } - else do - let ctorNames := indVal.ctors; - let alts := getAlts withAlts; - checkAltCtorNames alts ctorNames; - (altVars, altRHSs, remainingAlts, _) ← ctorNames.foldlM - (fun (result : Array (List Name) × Array Syntax × Array Syntax × Option Syntax) (ctorName : Name) => do - let (altVars, altRHSs, remainingAlts, prevAnonymousAlt?) := result; - match remainingAlts.findIdx? (fun alt => (getAltName alt).isSuffixOf ctorName) with - | some idx => - let newAlt := remainingAlts.get! idx; - pure (altVars.push (getAltVarNames newAlt).toList, altRHSs.push (getAltRHS newAlt), remainingAlts.eraseIdx idx, prevAnonymousAlt?) - | none => match remainingAlts.findIdx? (fun alt => getAltName alt == `_) with - | some idx => - let newAlt := remainingAlts.get! idx; - pure (altVars.push (getAltVarNames newAlt).toList, altRHSs.push (getAltRHS newAlt), remainingAlts.eraseIdx idx, some newAlt) - | none => match prevAnonymousAlt? with - | some alt => - pure (altVars.push (getAltVarNames alt).toList, altRHSs.push (getAltRHS alt), remainingAlts, prevAnonymousAlt?) - | none => throwError ref ("alternative for constructor '" ++ toString ctorName ++ "' is missing")) - (#[], #[], alts, none); - unless remainingAlts.isEmpty $ - throwError (remainingAlts.get! 0) "unused alternative"; - pure { recName := recName, altVars := altVars, altRHSs := altRHSs } + getRecInfoDefault ref major withAlts else do let baseRecName := (usingRecStx.getIdAt 1).eraseMacroScopes; recInfo ← getRecFromUsing ref major baseRecName; @@ -220,6 +225,26 @@ else do throwError (remainingAlts.get! 0) "unused alternative"; pure { recName := recName, altVars := altVars, altRHSs := altRHSs } +private def processResult (ref : Syntax) (recInfo : RecInfo) (result : Array Meta.InductionSubgoal) : TacticM Unit := do +if recInfo.altRHSs.isEmpty then + setGoals $ result.toList.map $ fun s => s.mvarId +else do + unless (recInfo.altRHSs.size == result.size) $ + throwError ref ("mistmatch on the number of subgoals produced (" ++ toString result.size ++ ") and " ++ + "alternatives provided (" ++ toString recInfo.altRHSs.size ++ ")"); + result.size.forM $ fun i => do + let subgoal := result.get! i; + let rhs := recInfo.altRHSs.get! i; + let mvarId := subgoal.mvarId; + withMVarContext mvarId $ do + mvarDecl ← getMVarDecl mvarId; + val ← elabTerm rhs mvarDecl.type; + val ← ensureHasType rhs mvarDecl.type val; + assignExprMVar mvarId val; + gs' ← collectMVars rhs val; + tagUntaggedGoals mvarDecl.userName `induction gs'; + appendGoals gs' + @[builtinTactic «induction»] def evalInduction : Tactic := fun stx => focusAux stx $ do let h? := getAuxHypothesisName stx; @@ -229,24 +254,20 @@ fun stx => focusAux stx $ do recInfo ← getRecInfo stx major; (mvarId, _) ← getMainGoal stx; result ← liftMetaM stx $ Meta.induction mvarId major.fvarId! recInfo.recName recInfo.altVars; - if recInfo.altRHSs.isEmpty then - setGoals $ result.toList.map $ fun s => s.mvarId - else do - unless (recInfo.altRHSs.size == result.size) $ - throwError stx ("mistmatch on the number of subgoals produced (" ++ toString result.size ++ ") and " ++ - "alternatives provided (" ++ toString recInfo.altRHSs.size ++ ")"); - result.size.forM $ fun i => do - let subgoal := result.get! i; - let rhs := recInfo.altRHSs.get! i; - let mvarId := subgoal.mvarId; - withMVarContext mvarId $ do - mvarDecl ← getMVarDecl mvarId; - val ← elabTerm rhs mvarDecl.type; - val ← ensureHasType rhs mvarDecl.type val; - assignExprMVar mvarId val; - gs' ← collectMVars rhs val; - tagUntaggedGoals mvarDecl.userName `induction gs'; - appendGoals gs' + processResult stx recInfo result + +@[builtinTactic «cases»] def evalCases : Tactic := +fun stx => focusAux stx $ do + -- parser! nonReservedSymbol "cases " >> majorPremise >> withAlts + let h? := getAuxHypothesisName stx; + major ← elabMajor stx h? (getMajor stx); + major ← generalizeMajor stx major; + (mvarId, _) ← getMainGoal stx; + let withAlts := stx.getArg 2; + recInfo ← getRecInfoDefault stx major withAlts; + result ← liftMetaM stx $ Meta.cases mvarId major.fvarId! recInfo.altVars; + let result := result.map (fun s => s.toInductionSubgoal); + processResult stx recInfo result end Tactic end Elab diff --git a/stage0/src/Init/Lean/Expr.lean b/stage0/src/Init/Lean/Expr.lean index c832c42595..fe3309c6aa 100644 --- a/stage0/src/Init/Lean/Expr.lean +++ b/stage0/src/Init/Lean/Expr.lean @@ -694,14 +694,17 @@ def betaRev (f : Expr) (revArgs : Array Expr) : Expr := if revArgs.size == 0 then f else betaRevAux revArgs revArgs.size f 0 -def isHeadBetaTarget : Expr → Bool +def isHeadBetaTargetFn : Expr → Bool | Expr.lam _ _ _ _ => true -| Expr.mdata _ b _ => isHeadBetaTarget b +| Expr.mdata _ b _ => isHeadBetaTargetFn b | _ => false def headBeta (e : Expr) : Expr := let f := e.getAppFn; -if f.isHeadBetaTarget then betaRev f e.getAppRevArgs else e +if f.isHeadBetaTargetFn then betaRev f e.getAppRevArgs else e + +def isHeadBetaTarget (e : Expr) : Bool := +e.getAppFn.isHeadBetaTargetFn private def etaExpandedBody : Expr → Nat → Nat → Option Expr | app f (bvar j _) _, n+1, i => if j == i then etaExpandedBody f n (i+1) else none diff --git a/stage0/src/Init/Lean/Meta/AppBuilder.lean b/stage0/src/Init/Lean/Meta/AppBuilder.lean index 4c79ca4c06..2bb34dbf8f 100644 --- a/stage0/src/Init/Lean/Meta/AppBuilder.lean +++ b/stage0/src/Init/Lean/Meta/AppBuilder.lean @@ -94,6 +94,16 @@ else do u ← getLevel α; pure $ mkApp8 (mkConst `HEq.trans [u]) α β γ a b c h₁ h₂ | _, _ => throwEx $ Exception.appBuilder `HEq.trans "heterogeneous equality proof expected" #[h₁, h₂] +def mkEqOfHEq (h : Expr) : MetaM Expr := do +hType ← infer h; +match hType.heq? with +| some (α, a, β, b) => do + unlessM (isDefEq α β) $ throwEx $ Exception.appBuilder `eqOfHEq "heterogeneous equality types are not definitionally equal" #[α, β]; + u ← getLevel α; + pure $ mkApp4 (mkConst `eqOfHEq [u]) α a b h +| _ => + throwEx $ Exception.appBuilder `HEq.trans "heterogeneous equality proof expected" #[h] + def mkCongrArg (f h : Expr) : MetaM Expr := do hType ← infer h; fType ← infer f; @@ -208,5 +218,21 @@ mkAppM `Eq.mp #[eqProof, pr] def mkEqMPR (eqProof pr : Expr) : MetaM Expr := mkAppM `Eq.mpr #[eqProof, pr] +def mkNoConfusion (target : Expr) (h : Expr) : MetaM Expr := do +type ← inferType h; +type ← whnf type; +match type.eq? with +| none => throwEx $ Exception.appBuilder `noConfusion "equality expected" #[h] +| some (α, a, b) => do + α ← whnf α; + env ← getEnv; + let f := α.getAppFn; + matchConst env f (fun _ => throwEx $ Exception.appBuilder `noConfusion "inductive type expected" #[α]) $ fun cinfo us => + match cinfo with + | ConstantInfo.inductInfo v => do + u ← getLevel target; + pure $ mkAppN (mkConst (mkNameStr v.name "noConfusion") (u :: us)) (α.getAppArgs ++ #[target, a, b, h]) + | _ => throwEx $ Exception.appBuilder `noConfusion "inductive type expected" #[α] + end Meta end Lean diff --git a/stage0/src/Init/Lean/Meta/ExprDefEq.lean b/stage0/src/Init/Lean/Meta/ExprDefEq.lean index 57f6e1f4a2..e860144e5a 100644 --- a/stage0/src/Init/Lean/Meta/ExprDefEq.lean +++ b/stage0/src/Init/Lean/Meta/ExprDefEq.lean @@ -566,13 +566,16 @@ match v with -/ private partial def processAssignmentFOApprox (mvar : Expr) (args : Array Expr) : Expr → MetaM Bool | v => do - trace! `Meta.isDefEq.foApprox (mvar ++ " " ++ args ++ " := " ++ v); - condM (commitWhen $ processAssignmentFOApproxAux mvar args v) - (pure true) - (do v? ← unfoldDefinition? v; - match v? with - | none => pure false - | some v => processAssignmentFOApprox v) + cfg ← getConfig; + if !cfg.foApprox then pure false + else do + trace! `Meta.isDefEq.foApprox (mvar ++ " " ++ args ++ " := " ++ v); + condM (commitWhen $ processAssignmentFOApproxAux mvar args v) + (pure true) + (do v? ← unfoldDefinition? v; + match v? with + | none => pure false + | some v => processAssignmentFOApprox v) private partial def simpAssignmentArgAux : Expr → MetaM Expr | Expr.mdata _ e _ => simpAssignmentArgAux e @@ -591,63 +594,51 @@ arg ← if arg.getAppFn.hasExprMVar then instantiateMVars arg else pure arg; simpAssignmentArgAux arg private def processConstApprox (mvar : Expr) (numArgs : Nat) (v : Expr) : MetaM Bool := do -let mvarId := mvar.mvarId!; -v? ← checkAssignment mvarId #[] v; -match v? with -| none => pure false -| some v => do - mvarDecl ← getMVarDecl mvarId; - forallBoundedTelescope mvarDecl.type numArgs $ fun xs _ => - if xs.size != numArgs then pure false - else do - v ← mkLambda xs v; - checkTypesAndAssign mvar v +cfg ← getConfig; +if cfg.constApprox then do + let mvarId := mvar.mvarId!; + v? ← checkAssignment mvarId #[] v; + match v? with + | none => pure false + | some v => do + mvarDecl ← getMVarDecl mvarId; + forallBoundedTelescope mvarDecl.type numArgs $ fun xs _ => + if xs.size != numArgs then pure false + else do + v ← mkLambda xs v; + checkTypesAndAssign mvar v +else + pure false -private partial def processAssignmentAux (mvar : Expr) (mvarDecl : MetavarDecl) (v : Expr) : Nat → Array Expr → MetaM Bool -| i, args => +private partial def processAssignmentAux (mvar : Expr) (mvarDecl : MetavarDecl) : Nat → Array Expr → Expr → MetaM Bool +| i, args, v => do + cfg ← getConfig; + let useFOApprox (args : Array Expr) : MetaM Bool := + processAssignmentFOApprox mvar args v <||> processConstApprox mvar args.size v; if h : i < args.size then do - cfg ← getConfig; let arg := args.get ⟨i, h⟩; arg ← simpAssignmentArg arg; let args := args.set ⟨i, h⟩ arg; - let useConstApprox : Unit → MetaM Bool := fun _ => - if cfg.constApprox || (not args.isEmpty && not v.isApp) then - processConstApprox mvar args.size v - else - pure false; - let useFOApprox : Unit → MetaM Bool := fun _ => - if cfg.foApprox && v.isApp then - condM (processAssignmentFOApprox mvar args v) - (pure true) - (useConstApprox ()) - else - useConstApprox (); match arg with | Expr.fvar fvarId _ => if args.anyRange 0 i (fun prevArg => prevArg == arg) then - useFOApprox () + useFOApprox args else if mvarDecl.lctx.contains fvarId && !cfg.quasiPatternApprox then - useFOApprox () + useFOApprox args else - processAssignmentAux (i+1) args + processAssignmentAux (i+1) args v | _ => - useFOApprox () + useFOApprox args else do - cfg ← getConfig; v ← instantiateMVars v; -- enforce A4 - if cfg.foApprox && !args.isEmpty && v.getAppFn == mvar then + if v.getAppFn == mvar then -- using A6 - processAssignmentFOApprox mvar args v + useFOApprox args else do - let useFOApprox : Unit → MetaM Bool := fun _ => - if cfg.foApprox && !args.isEmpty then - processAssignmentFOApprox mvar args v - else - pure false; let mvarId := mvar.mvarId!; v? ← checkAssignment mvarId args v; match v? with - | none => useFOApprox () + | none => useFOApprox args | some v => do trace `Meta.isDefEq.assign.beforeMkLambda $ fun _ => mvar ++ " " ++ args ++ " := " ++ v; v ← mkLambda args v; @@ -657,7 +648,7 @@ private partial def processAssignmentAux (mvar : Expr) (mvarDecl : MetavarDecl) condM (isTypeCorrect v) (checkTypesAndAssign mvar v) (do trace `Meta.isDefEq.assign.typeError $ fun _ => mvar ++ " := " ++ v; - useFOApprox ()) + useFOApprox args) else checkTypesAndAssign mvar v @@ -668,7 +659,7 @@ traceCtx `Meta.isDefEq.assign $ do trace! `Meta.isDefEq.assign (mvarApp ++ " := " ++ v); let mvar := mvarApp.getAppFn; mvarDecl ← getMVarDecl mvar.mvarId!; - processAssignmentAux mvar mvarDecl v 0 mvarApp.getAppArgs + processAssignmentAux mvar mvarDecl 0 mvarApp.getAppArgs v private def isDeltaCandidate (t : Expr) : MetaM (Option ConstantInfo) := match t.getAppFn with @@ -992,9 +983,9 @@ partial def isExprDefEqAuxImpl : Expr → Expr → MetaM Bool whenUndefDo (isDefEqQuick t s) $ whenUndefDo (isDefEqProofIrrel t s) $ isDefEqWHNF t s $ fun t s => do + condM (isDefEqEta t s <||> isDefEqEta s t) (pure true) $ whenUndefDo (isDefEqOffset t s) $ do whenUndefDo (isDefEqDelta t s) $ - condM (isDefEqEta t s <||> isDefEqEta s t) (pure true) $ match t, s with | Expr.const c us _, Expr.const d vs _ => if c == d then isListLevelDefEqAux us vs else pure false | Expr.app _ _ _, Expr.app _ _ _ => diff --git a/stage0/src/Init/Lean/Meta/RecursorInfo.lean b/stage0/src/Init/Lean/Meta/RecursorInfo.lean index a94401f322..297e119216 100644 --- a/stage0/src/Init/Lean/Meta/RecursorInfo.lean +++ b/stage0/src/Init/Lean/Meta/RecursorInfo.lean @@ -13,6 +13,14 @@ import Init.Lean.Meta.Message namespace Lean namespace Meta +def casesOnSuffix := "casesOn" +def recOnSuffix := "recOn" +def brecOnSuffix := "brecOn" + +def mkCasesOnFor (indDeclName : Name) : Name := mkNameStr indDeclName casesOnSuffix +def mkRecOnFor (indDeclName : Name) : Name := mkNameStr indDeclName recOnSuffix +def mkBRecOnFor (indDeclName : Name) : Name := mkNameStr indDeclName brecOnSuffix + inductive RecursorUnivLevelPos | motive -- marks where the universe of the motive should go | majorType (idx : Nat) -- marks where the #idx universe of the major premise type goes @@ -104,12 +112,12 @@ else do if !isAuxRecursor env declName then pure none else match declName with | Name.str p s _ => - if s != "recOn" && s != "casesOn" && s != "brecOn" then + if s != recOnSuffix && s != casesOnSuffix && s != brecOnSuffix then pure none else do recInfo ← getConstInfo (mkRecFor p); match recInfo with - | ConstantInfo.recInfo val => pure (some (val.nparams + val.nindices + (if s == "casesOn" then 1 else val.nmotives))) + | ConstantInfo.recInfo val => pure (some (val.nparams + val.nindices + (if s == casesOnSuffix then 1 else val.nmotives))) | _ => throw $ Exception.other "unexpected recursor information" | _ => pure none diff --git a/stage0/src/Init/Lean/Meta/Tactic/Cases.lean b/stage0/src/Init/Lean/Meta/Tactic/Cases.lean index 9476218492..0fd97794e2 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/Cases.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/Cases.lean @@ -4,12 +4,15 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude +import Init.Lean.Meta.AppBuilder import Init.Lean.Meta.Tactic.Induction +import Init.Lean.Meta.Tactic.Assert +import Init.Lean.Meta.Tactic.Subst namespace Lean namespace Meta -private def mkEq (lhs rhs : Expr) : MetaM (Expr × Expr) := do +private def mkEqAndProof (lhs rhs : Expr) : MetaM (Expr × Expr) := do lhsType ← inferType lhs; rhsType ← inferType rhs; u ← getLevel lhsType; @@ -22,7 +25,7 @@ private partial def withNewIndexEqsAux {α} (indices newIndices : Array Expr) (k if h : i < indices.size then do let index := indices.get! i; let newIndex := newIndices.get! i; - (newEqType, newRefl) ← mkEq index newIndex; + (newEqType, newRefl) ← mkEqAndProof index newIndex; withLocalDecl `h newEqType BinderInfo.default $ fun newEq => do withNewIndexEqsAux (i+1) (newEqs.push newEq) (newRefls.push newRefl) else @@ -74,7 +77,7 @@ withMVarContext mvarId $ do let newType := mkAppN IA newIndices; withLocalDecl fvarDecl.userName newType BinderInfo.default $ fun h' => withNewIndexEqs indices newIndices $ fun newEqs newRefls => do - (newEqType, newRefl) ← mkEq fvarDecl.toExpr h'; + (newEqType, newRefl) ← mkEqAndProof fvarDecl.toExpr h'; let newRefls := newRefls.push newRefl; withLocalDecl `h newEqType BinderInfo.default $ fun newEq => do let newEqs := newEqs.push newEq; @@ -87,8 +90,8 @@ withMVarContext mvarId $ do newMVar ← mkFreshExprMVarAt lctx localInsts auxType tag MetavarKind.syntheticOpaque; /- assign mvarId := newMVar indices h refls -/ assignExprMVar mvarId (mkAppN (mkApp (mkAppN newMVar indices) fvarDecl.toExpr) newRefls); - (indicesFVarIds, newMVarId) ← introN newMVar.mvarId! newIndices.size; - (fvarId, newMVarId) ← intro1 newMVarId; + (indicesFVarIds, newMVarId) ← introN newMVar.mvarId! newIndices.size [] false; + (fvarId, newMVarId) ← intro1 newMVarId false; pure { mvarId := newMVarId, indicesFVarIds := indicesFVarIds, @@ -97,11 +100,8 @@ withMVarContext mvarId $ do } | _ => throwTacticEx `generalizeIndices mvarId "inductive type expected" -structure CasesSubgoal := +structure CasesSubgoal extends InductionSubgoal := (ctorName : Name) -(mvarId : MVarId) -(fields : Array FVarId := #[]) -(subst : FVarSubst := {}) namespace Cases @@ -116,7 +116,7 @@ structure Context := private def mkCasesContext? (majorFVarId : FVarId) : MetaM (Option Context) := do env ← getEnv; -if !env.contains `Eq || env.contains `HEq then pure none +if !env.contains `Eq || !env.contains `HEq then pure none else do majorDecl ← getLocalDecl majorFVarId; majorType ← whnf majorDecl.type; @@ -158,11 +158,95 @@ else do ctx.majorTypeIndices.any (fun index => decl.fvarId == index.fvarId!) || -- decl is one of the indices mctx.findLocalDeclDependsOn decl (fun fvarId => ctx.majorTypeIndices.all $ fun idx => idx.fvarId! != fvarId) -- or does not depend on any index +private def elimAuxIndices (s₁ : GeneralizeIndicesSubgoal) (s₂ : Array InductionSubgoal) : MetaM (Array InductionSubgoal) := +let indicesFVarIds := s₁.indicesFVarIds; +s₂.mapM $ fun s => do + indicesFVarIds.foldlM + (fun s indexFVarId => + let indexFVarId' := s.subst.get indexFVarId; + (do mvarId ← clear s.mvarId indexFVarId'; pure { mvarId := mvarId, subst := s.subst.erase indexFVarId, .. s }) + <|> + (pure s)) + s + +private def toCasesSubgoals (s : Array InductionSubgoal) (ctorNames : Array Name) : Array CasesSubgoal := +s.mapIdx $ fun i s => { ctorName := ctorNames.get! i, toInductionSubgoal := s } + +private partial def unifyEqsAux : Nat → CasesSubgoal → MetaM (Option CasesSubgoal) +| 0, s => do + trace! `Meta.cases ("unifyEqs " ++ MessageData.ofGoal s.mvarId); + pure (some s) +| n+1, s => do + trace! `Meta.cases ("unifyEqs [" ++ toString (n+1) ++ "] " ++ MessageData.ofGoal s.mvarId); + (eqFVarId, mvarId) ← intro1 s.mvarId; + withMVarContext mvarId $ do + eqDecl ← getLocalDecl eqFVarId; + match eqDecl.type.heq? with + | some (α, a, β, b) => do + prf ← mkEqOfHEq (mkFVar eqFVarId); + aEqb ← mkEq a b; + mvarId ← assert mvarId eqDecl.userName aEqb prf; + mvarId ← clear mvarId eqFVarId; + unifyEqsAux (n+1) { mvarId := mvarId, .. s } + | none => match eqDecl.type.eq? with + | some (α, a, b) => + let skip : Unit → MetaM (Option CasesSubgoal) := fun _ => do { + mvarId ← clear mvarId eqFVarId; + unifyEqsAux n { mvarId := mvarId, .. s } + }; + let substEq (symm : Bool) : MetaM (Option CasesSubgoal) := do { + (newSubst, mvarId) ← substCore mvarId eqFVarId false true; + unifyEqsAux n { + mvarId := mvarId, + subst := newSubst.compose s.subst, + fields := s.fields.map $ fun fvarId => newSubst.get fvarId, + .. s + } + }; + condM (isDefEq a b) (skip ()) $ + match a, b with + | Expr.fvar aFVarId _, Expr.fvar bFVarId _ => do aDecl ← getLocalDecl aFVarId; bDecl ← getLocalDecl bFVarId; substEq (aDecl.index < bDecl.index) + | Expr.fvar _ _, _ => substEq false + | _, Expr.fvar _ _ => substEq true + | _, _ => + -- TODO + pure $ some { mvarId := mvarId, .. s } + | none => throwTacticEx `cases mvarId "equality expected" + +private def unifyEqs (numEqs : Nat) (subgoals : Array CasesSubgoal) : MetaM (Array CasesSubgoal) := +subgoals.foldlM + (fun subgoals s => do + s? ← unifyEqsAux numEqs s; + match s? with + | none => pure $ subgoals + | some s => pure $ subgoals.push s) + #[] + +def cases (mvarId : MVarId) (majorFVarId : FVarId) (givenNames : Array (List Name) := #[]) (useUnusedNames := false) : MetaM (Array CasesSubgoal) := +withMVarContext mvarId $ do + checkNotAssigned mvarId `cases; + context? ← mkCasesContext? majorFVarId; + match context? with + | none => throwTacticEx `cases mvarId "not applicable to the given hypothesis" + | some ctx => + let ctors := ctx.inductiveVal.ctors.toArray; + let casesOn := mkCasesOnFor ctx.inductiveVal.name; + condM (hasIndepIndices ctx) + (do + s ← induction mvarId majorFVarId casesOn givenNames useUnusedNames; + pure $ toCasesSubgoals s ctors) + (do + s₁ ← generalizeIndices mvarId majorFVarId; + trace! `Meta.cases ("after generalizeIndices" ++ Format.line ++ MessageData.ofGoal s₁.mvarId); + s₂ ← induction s₁.mvarId s₁.fvarId casesOn givenNames useUnusedNames; + s₂ ← elimAuxIndices s₁ s₂; + let s₂ := toCasesSubgoals s₂ ctors; + unifyEqs s₁.numEqs s₂) + end Cases -def cases (mvarId : MVarId) (majorFVarId : FVarId) (givenNames : Array (List Name) := #[]) (useUnusedNames := false) : - MetaM (Array CasesSubgoal) := -throw $ arbitrary _ -- TODO +def cases (mvarId : MVarId) (majorFVarId : FVarId) (givenNames : Array (List Name) := #[]) (useUnusedNames := false) : MetaM (Array CasesSubgoal) := +Cases.cases mvarId majorFVarId givenNames useUnusedNames end Meta end Lean diff --git a/stage0/src/Init/Lean/Meta/Tactic/FVarSubst.lean b/stage0/src/Init/Lean/Meta/Tactic/FVarSubst.lean index cc349eca1e..6e645dcba5 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/FVarSubst.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/FVarSubst.lean @@ -10,30 +10,39 @@ import Init.Lean.Util.ReplaceExpr namespace Lean namespace Meta /- - Some tactics substitute hypotheses with new ones and/or terms. + Some tactics substitute hypotheses with new ones. We track these substitutions using `FVarSubst`. It is just a mapping from the original FVarId (internal) name - to an expression. The new expression should be well-formed with - respect to the new goal. -/ + to the new one. The new free variable should be defined in the new goal. -/ structure FVarSubst := -(map : NameMap Expr := {}) +(map : NameMap FVarId := {}) namespace FVarSubst def empty : FVarSubst := {} -def insert (s : FVarSubst) (fvarId : FVarId) (e : Expr) : FVarSubst := -{ map := s.map.insert fvarId e } +def insert (s : FVarSubst) (fvarId : FVarId) (fvarIdNew : FVarId) : FVarSubst := +{ map := s.map.insert fvarId fvarIdNew } def contains (s : FVarSubst) (fvarId : FVarId) : Bool := s.map.contains fvarId +def erase (s : FVarSubst) (fvarId : FVarId) : FVarSubst := +{ map := s.map.erase fvarId } + +def get (s : FVarSubst) (fvarId : FVarId) : FVarId := +match s.map.find? fvarId with +| none => fvarId -- it has not been replaced +| some fvarId' => fvarId' + /-- Given `e`, for each `(x => v)` in `s` replace `x` with `v` in `e` -/ def apply (s : FVarSubst) (e : Expr) : Expr := if s.map.isEmpty then e else if !e.hasFVar then e else e.replace $ fun e => match e with - | Expr.fvar fvarId _ => s.map.find? fvarId + | Expr.fvar fvarId _ => match s.map.find? fvarId with + | none => e + | some fvarId' => mkFVar fvarId' | _ => none /-- @@ -44,7 +53,15 @@ else e.replace $ fun e => match e with def compose (newS oldS : FVarSubst) : FVarSubst := if newS.map.isEmpty then oldS else if oldS.map.isEmpty then newS -else oldS.map.fold (fun m fvarId e => if m.map.contains fvarId then m else m.insert fvarId (m.apply e)) newS +else oldS.map.fold + (fun m fvarId fvarId' => + match m.map.find? fvarId with + | some _ => m -- newS already has a substitution for fvarId + | none => + match m.map.find? fvarId' with + | none => m.insert fvarId fvarId' + | some fvarId'' => m.insert fvarId fvarId'') + newS end FVarSubst end Meta diff --git a/stage0/src/Init/Lean/Meta/Tactic/Induction.lean b/stage0/src/Init/Lean/Meta/Tactic/Induction.lean index ba873a0b4f..70b9608204 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/Induction.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/Induction.lean @@ -108,7 +108,7 @@ private partial def finalizeAux else let revertedFVarId := reverted.get! i; let newFVarId := extra.get! (i - indices.size - 1); - subst.insert revertedFVarId (mkFVar newFVarId)) + subst.insert revertedFVarId newFVarId) baseSubst; finalizeAux (pos+1) (minorIdx+1) rec recType consumedMajor (subgoals.push { mvarId := mvarId', fields := fields, subst := subst }) | _ => unreachable! @@ -170,7 +170,7 @@ withMVarContext mvarId $ do (indices', mvarId) ← introN mvarId indices.size [] false; (majorFVarId', mvarId) ← intro1 mvarId false; -- Create FVarSubst with indices - let baseSubst : FVarSubst := indices.iterate {} (fun i index subst => subst.insert index.fvarId! (mkFVar (indices'.get! i.val))); + let baseSubst : FVarSubst := indices.iterate {} (fun i index subst => subst.insert index.fvarId! (indices'.get! i.val)); -- Update indices and major let indices := indices'.map mkFVar; let majorFVarId := majorFVarId'; diff --git a/stage0/src/Init/Lean/Meta/Tactic/Subst.lean b/stage0/src/Init/Lean/Meta/Tactic/Subst.lean index 3572732d44..6a1780a789 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/Subst.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/Subst.lean @@ -61,7 +61,7 @@ withMVarContext mvarId $ do (fun i (fvarSubst : FVarSubst) => let var := vars.get! i; let newFVar := newFVars.get! i; - pure $ fvarSubst.insert var (mkFVar newFVar)) + pure $ fvarSubst.insert var newFVar) FVarSubst.empty; pure (fvarSubst, mvarId) }; diff --git a/stage0/src/Init/Lean/Meta/Tactic/Util.lean b/stage0/src/Init/Lean/Meta/Tactic/Util.lean index 154eacfb25..404f93afe4 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/Util.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/Util.lean @@ -37,7 +37,7 @@ mctx ← getMCtx; opts ← getOptions; pure $ ppGoal env mctx opts mvarId -@[inline] protected def orelse{α} (x y : MetaM α) : MetaM α := do +@[inline] protected def orelse {α} (x y : MetaM α) : MetaM α := do s ← get; catch x (fun _ => do restore s.env s.mctx s.postponed; y) instance Meta.hasOrelse {α} : HasOrelse (MetaM α) := ⟨Meta.orelse⟩ diff --git a/stage0/src/library/equations_compiler/elim_match.cpp b/stage0/src/library/equations_compiler/elim_match.cpp index e466a1f6c2..efc55bbeb0 100644 --- a/stage0/src/library/equations_compiler/elim_match.cpp +++ b/stage0/src/library/equations_compiler/elim_match.cpp @@ -610,6 +610,7 @@ struct elim_match_fn { hsubstitution add_subst(hsubstitution subst, expr const & src, expr const & target) { lean_assert(is_fvar(src)); + lean_assert(is_fvar(target)); if (!subst.contains(fvar_name(src))) subst.insert(fvar_name(src), target); return subst; diff --git a/stage0/src/library/type_context.cpp b/stage0/src/library/type_context.cpp index 3f91467b90..d6b72d9df1 100644 --- a/stage0/src/library/type_context.cpp +++ b/stage0/src/library/type_context.cpp @@ -1918,8 +1918,16 @@ bool type_context_old::process_assignment(expr const & m, expr const & v) { use_fo = true; } - if (use_fo && (is_app(new_v) || !m_unifier_cfg.m_const_approx)) { - return process_assignment_fo_approx(mvar, args, new_v); + if (use_fo) { + if (is_app(new_v) || !m_unifier_cfg.m_const_approx) { + return process_assignment_fo_approx(mvar, args, new_v); + } else { + scope s(*this); + if (process_assignment_fo_approx(mvar, args, new_v)) { + s.commit(); + return true; + } + } } if (optional new_new_v = check_assignment(locals, in_ctx_locals, mvar, new_v)) diff --git a/stage0/src/util/file_lock.cpp b/stage0/src/util/file_lock.cpp index 0cecd92c9f..3b752066c3 100644 --- a/stage0/src/util/file_lock.cpp +++ b/stage0/src/util/file_lock.cpp @@ -5,6 +5,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Author: Leonardo de Moura */ #include +#include #include #include #include "runtime/exception.h" @@ -85,12 +86,12 @@ file_lock::file_lock(char const * fname, bool exclusive): // fname is probably part of the Lean installation in a system directory. // So, we ignore the file_lock in this case. } else { - throw exception(sstream() << "failed to lock file '" << fname << "'"); + throw exception(sstream() << "failed to open lock file for '" << fname << "': " << strerror(errno)); } } else { int status = flock(m_fd, exclusive ? LOCK_EX : LOCK_SH); if (status == -1) - throw exception(sstream() << "failed to lock file '" << fname << "'"); + throw exception(sstream() << "failed to lock file '" << fname << "': " << strerror(errno)); } #endif } diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Induction.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Induction.c index 1a64ad1732..2c3d9e16ea 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Induction.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Induction.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Elab.Tactic.Induction -// Imports: Init.Lean.Meta.RecursorInfo Init.Lean.Meta.Tactic.Induction Init.Lean.Elab.Tactic.ElabTerm Init.Lean.Elab.Tactic.Generalize +// Imports: Init.Lean.Meta.RecursorInfo Init.Lean.Meta.Tactic.Induction Init.Lean.Meta.Tactic.Cases Init.Lean.Elab.Tactic.ElabTerm Init.Lean.Elab.Tactic.Generalize #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -14,10 +14,11 @@ extern "C" { #endif lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__5; -lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3; +lean_object* l_Lean_Elab_Tactic_evalCases(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_Meta_induction___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__2; +lean_object* l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___closed__4; lean_object* l_Lean_Elab_Tactic_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -26,54 +27,65 @@ lean_object* l_Lean_Elab_Tactic_withMainMVarContext___rarg(lean_object*, lean_ob lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__3; lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___closed__1; +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__1; lean_object* l_Array_eraseIdx___rarg(lean_object*, lean_object*); -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__8; lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_7__getAlts(lean_object*); +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__2; uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_5__getGeneralizingFVarIds___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__4; lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_trace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getLCtx___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__9; +lean_object* l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_resolveGlobalName(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Tactic_evalCases___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Array_empty___closed__1; lean_object* lean_environment_find(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__5; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_12__getRecFromUsingLoop___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_restore(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_12__getRecFromUsingLoop___main___lambda__1(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*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_4__generalizeMajor___closed__1; uint8_t l_Lean_Meta_RecursorInfo_isMinor(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__3; +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_1__getAuxHypothesisName___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_unfoldDefinition_x3f(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_local_ctx_find_from_user_name(lean_object*, lean_object*); +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__3; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__2; lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1___closed__2; lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3; +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__5; lean_object* l_Lean_Expr_getAppFn___main(lean_object*); extern lean_object* l_Lean_Name_inhabited; lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1___closed__1; extern lean_object* l___private_Init_Lean_Elab_Util_9__regTraceClasses___closed__1; lean_object* l_Lean_Elab_Tactic_inferType(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__1; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__4; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor___lambda__1___closed__3; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__7; lean_object* l_Lean_Elab_Term_trace___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_5__getGeneralizingFVarIds___closed__1; lean_object* l_Lean_Elab_Tactic_whnfCore(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__9; -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___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_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__1; +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_2__getMajor(lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__3; -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__4; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor___lambda__2___closed__1; extern lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; lean_object* lean_array_fget(lean_object*, lean_object*); @@ -86,128 +98,128 @@ lean_object* l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(lean_ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__3; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); +lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__6; -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_fvarId_x21(lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2___boxed(lean_object*, lean_object*); +lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_mkConst___closed__4; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames___boxed(lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___closed__2; +extern lean_object* l_Lean_Parser_Tactic_cases___elambda__1___closed__2; +lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__1; lean_object* l_Nat_repr(lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___lambda__1___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__1; lean_object* l_Lean_Elab_Tactic_getMVarDecl___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__2; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor___lambda__1___closed__1; -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__2; lean_object* l_Lean_Meta_revert___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__1; +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_1__getAuxHypothesisName(lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_2__getMajor___boxed(lean_object*); -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__2; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor___lambda__1___closed__2; lean_object* l_Lean_Elab_Tactic_getMainGoal(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__6; lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkRecFor___closed__1; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_7__getAlts___boxed(lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_5__getGeneralizingFVarIds___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; uint8_t l_Array_isEmpty___rarg(lean_object*); -lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__2; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__10; lean_object* l_Lean_LocalDecl_toExpr(lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_12__getRecFromUsingLoop(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__1; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkFVar(lean_object*); -lean_object* l_List_map___main___at_Lean_Elab_Tactic_evalInduction___spec__3(lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_4__generalizeMajor___lambda__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_12__getRecFromUsingLoop___main___closed__1; lean_object* l_Lean_Meta_mkRecursorInfo(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction(lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4(lean_object*, lean_object*, lean_object*); -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; uint8_t l_List_foldr___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__1(lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_appendGoals(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalGeneralizeAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Syntax_inhabited; -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__5; lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_8__getAltName(lean_object*); -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3; extern lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__2; -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__3; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__7; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__3; -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__5; lean_object* l_Lean_Syntax_getArgs(lean_object*); lean_object* l_Lean_Elab_Tactic_save(lean_object*); +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalInduction(lean_object*, lean_object*, lean_object*); -lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__1; lean_object* l_Lean_Meta_generalize___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_setGoals(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_addBuiltinTactic(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_10__getAltRHS(lean_object*); lean_object* l_Lean_Elab_Tactic_tagUntaggedGoals(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Name_isSuffixOf___main(lean_object*, lean_object*); +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1___closed__3; -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__7; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_4__generalizeMajor(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__4; lean_object* l_List_map___main___at_Lean_Elab_Tactic_getRecFromUsing___spec__1(lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__2; lean_object* l_Lean_Elab_Tactic_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_elabTerm(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_evalCases___spec__1(lean_object*, lean_object*); uint8_t l_Lean_Syntax_isNone(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_evalIntros___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__4; -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__8; +lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__2; lean_object* l_Lean_Elab_Tactic_liftTermElabM___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCases(lean_object*); lean_object* l_Lean_Elab_Tactic_focusAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getEnv___rarg(lean_object*); lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Array_toList___rarg(lean_object*); lean_object* l_Lean_Elab_Tactic_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__1; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_8__getAltName___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__8; extern lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main___closed__2; lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__4; lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___closed__3; -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getRecFromUsing___closed__1; lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_5__getGeneralizingFVarIds(lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__2; extern lean_object* l_Lean_Format_paren___closed__3; lean_object* l_Lean_Elab_Tactic_collectMVars(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__10; +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__6; +lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2___closed__5; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_12__getRecFromUsingLoop___main___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__1; lean_object* l_Lean_Meta_getParamNames(lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_getFVarIds___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_InductionSubgoal_inhabited; +lean_object* l_List_map___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__2(lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__1; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_indentExpr(lean_object*); lean_object* l_List_foldr___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_6__generalizeVars___lambda__1___closed__2; -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__2; lean_object* l_Lean_Elab_Tactic_elabTerm___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_10__getAltRHS___boxed(lean_object*); @@ -218,6 +230,7 @@ lean_object* l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor(lean_objec lean_object* l_Lean_Elab_Tactic_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Tactic_Induction_4__generalizeMajor___lambda__1___boxed(lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* l_Lean_Meta_cases___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_AbstractMVars_abstractExprMVars___main___closed__2; lean_object* l___private_Init_Lean_Elab_Tactic_Induction_1__getAuxHypothesisName(lean_object* x_1) { _start: @@ -7744,7 +7757,7 @@ return x_87; } } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -7764,7 +7777,7 @@ lean_object* x_7; lean_object* x_8; uint8_t x_9; x_7 = lean_array_fget(x_2, x_3); x_8 = l___private_Init_Lean_Elab_Tactic_Induction_8__getAltName(x_7); lean_dec(x_7); -x_9 = lean_name_eq(x_8, x_1); +x_9 = l_Lean_Name_isSuffixOf___main(x_8, x_1); lean_dec(x_8); if (x_9 == 0) { @@ -7785,7 +7798,7 @@ return x_13; } } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(lean_object* x_1, lean_object* x_2) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; uint8_t x_4; @@ -7827,869 +7840,7 @@ return x_13; } } } -lean_object* _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("alternative for minor premise '"); -return x_1; -} -} -lean_object* _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___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_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___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_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__4() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("' is missing"); -return x_1; -} -} -lean_object* _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__5() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___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_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__5; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___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) { -_start: -{ -lean_object* x_9; uint8_t x_10; -x_9 = lean_unsigned_to_nat(0u); -x_10 = lean_nat_dec_eq(x_5, x_9); -if (x_10 == 0) -{ -lean_object* x_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_sub(x_5, x_11); -lean_dec(x_5); -x_13 = lean_nat_sub(x_4, x_12); -x_14 = lean_nat_sub(x_13, x_11); -lean_dec(x_13); -x_15 = l_Lean_Meta_RecursorInfo_isMinor(x_2, x_14); -if (x_15 == 0) -{ -lean_dec(x_14); -x_5 = x_12; -goto _start; -} -else -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; -x_17 = l_Lean_Name_inhabited; -x_18 = lean_array_get(x_17, x_3, x_14); -lean_dec(x_14); -x_19 = lean_ctor_get(x_6, 1); -lean_inc(x_19); -x_20 = lean_ctor_get(x_19, 1); -lean_inc(x_20); -x_21 = !lean_is_exclusive(x_6); -if (x_21 == 0) -{ -lean_object* x_22; lean_object* x_23; uint8_t x_24; -x_22 = lean_ctor_get(x_6, 0); -x_23 = lean_ctor_get(x_6, 1); -lean_dec(x_23); -x_24 = !lean_is_exclusive(x_19); -if (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_19, 0); -x_26 = lean_ctor_get(x_19, 1); -lean_dec(x_26); -x_27 = lean_ctor_get(x_20, 0); -lean_inc(x_27); -x_28 = lean_ctor_get(x_20, 1); -lean_inc(x_28); -x_29 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1(x_18, x_27, x_9); -if (lean_obj_tag(x_29) == 0) -{ -lean_object* x_30; -x_30 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_27, x_9); -if (lean_obj_tag(x_30) == 0) -{ -lean_dec(x_27); -if (lean_obj_tag(x_28) == 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_free_object(x_19); -lean_dec(x_25); -lean_free_object(x_6); -lean_dec(x_22); -lean_dec(x_20); -x_31 = l_Lean_Name_toString___closed__1; -x_32 = l_Lean_Name_toStringWithSep___main(x_31, x_18); -x_33 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_33, 0, x_32); -x_34 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_34, 0, x_33); -x_35 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3; -x_36 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -x_37 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; -x_38 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_38, 0, x_36); -lean_ctor_set(x_38, 1, x_37); -lean_inc(x_7); -lean_inc(x_1); -x_39 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_38, x_7, x_8); -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_5 = x_12; -x_6 = x_40; -x_8 = x_41; -goto _start; -} -else -{ -uint8_t x_43; -lean_dec(x_12); -lean_dec(x_7); -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 -{ -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_dec(x_18); -x_47 = lean_ctor_get(x_28, 0); -lean_inc(x_47); -lean_dec(x_28); -x_48 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_47); -x_49 = l_Array_toList___rarg(x_48); -lean_dec(x_48); -x_50 = lean_array_push(x_22, x_49); -x_51 = lean_unsigned_to_nat(3u); -x_52 = l_Lean_Syntax_getArg(x_47, x_51); -lean_dec(x_47); -x_53 = lean_array_push(x_25, x_52); -lean_ctor_set(x_19, 0, x_53); -lean_ctor_set(x_6, 0, x_50); -x_5 = x_12; -goto _start; -} -} -else -{ -uint8_t x_55; -lean_dec(x_28); -lean_dec(x_18); -x_55 = !lean_is_exclusive(x_20); -if (x_55 == 0) -{ -lean_object* x_56; lean_object* x_57; uint8_t x_58; -x_56 = lean_ctor_get(x_20, 1); -lean_dec(x_56); -x_57 = lean_ctor_get(x_20, 0); -lean_dec(x_57); -x_58 = !lean_is_exclusive(x_30); -if (x_58 == 0) -{ -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_30, 0); -x_60 = l_Lean_Syntax_inhabited; -x_61 = lean_array_get(x_60, x_27, x_59); -x_62 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_61); -x_63 = l_Array_toList___rarg(x_62); -lean_dec(x_62); -x_64 = lean_array_push(x_22, x_63); -x_65 = lean_unsigned_to_nat(3u); -x_66 = l_Lean_Syntax_getArg(x_61, x_65); -x_67 = lean_array_push(x_25, x_66); -x_68 = l_Array_eraseIdx___rarg(x_27, x_59); -lean_dec(x_59); -lean_ctor_set(x_30, 0, x_61); -lean_ctor_set(x_20, 1, x_30); -lean_ctor_set(x_20, 0, x_68); -lean_ctor_set(x_19, 0, x_67); -lean_ctor_set(x_6, 0, x_64); -x_5 = x_12; -goto _start; -} -else -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; -x_70 = lean_ctor_get(x_30, 0); -lean_inc(x_70); -lean_dec(x_30); -x_71 = l_Lean_Syntax_inhabited; -x_72 = lean_array_get(x_71, x_27, x_70); -x_73 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_72); -x_74 = l_Array_toList___rarg(x_73); -lean_dec(x_73); -x_75 = lean_array_push(x_22, x_74); -x_76 = lean_unsigned_to_nat(3u); -x_77 = l_Lean_Syntax_getArg(x_72, x_76); -x_78 = lean_array_push(x_25, x_77); -x_79 = l_Array_eraseIdx___rarg(x_27, x_70); -lean_dec(x_70); -x_80 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_80, 0, x_72); -lean_ctor_set(x_20, 1, x_80); -lean_ctor_set(x_20, 0, x_79); -lean_ctor_set(x_19, 0, x_78); -lean_ctor_set(x_6, 0, x_75); -x_5 = x_12; -goto _start; -} -} -else -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; -lean_dec(x_20); -x_82 = lean_ctor_get(x_30, 0); -lean_inc(x_82); -if (lean_is_exclusive(x_30)) { - lean_ctor_release(x_30, 0); - x_83 = x_30; -} else { - lean_dec_ref(x_30); - x_83 = lean_box(0); -} -x_84 = l_Lean_Syntax_inhabited; -x_85 = lean_array_get(x_84, x_27, x_82); -x_86 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_85); -x_87 = l_Array_toList___rarg(x_86); -lean_dec(x_86); -x_88 = lean_array_push(x_22, x_87); -x_89 = lean_unsigned_to_nat(3u); -x_90 = l_Lean_Syntax_getArg(x_85, x_89); -x_91 = lean_array_push(x_25, x_90); -x_92 = l_Array_eraseIdx___rarg(x_27, x_82); -lean_dec(x_82); -if (lean_is_scalar(x_83)) { - x_93 = lean_alloc_ctor(1, 1, 0); -} else { - x_93 = x_83; -} -lean_ctor_set(x_93, 0, x_85); -x_94 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_94, 0, x_92); -lean_ctor_set(x_94, 1, x_93); -lean_ctor_set(x_19, 1, x_94); -lean_ctor_set(x_19, 0, x_91); -lean_ctor_set(x_6, 0, x_88); -x_5 = x_12; -goto _start; -} -} -} -else -{ -uint8_t x_96; -lean_dec(x_18); -x_96 = !lean_is_exclusive(x_20); -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; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_97 = lean_ctor_get(x_20, 1); -lean_dec(x_97); -x_98 = lean_ctor_get(x_20, 0); -lean_dec(x_98); -x_99 = lean_ctor_get(x_29, 0); -lean_inc(x_99); -lean_dec(x_29); -x_100 = l_Lean_Syntax_inhabited; -x_101 = lean_array_get(x_100, x_27, x_99); -x_102 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_101); -x_103 = l_Array_toList___rarg(x_102); -lean_dec(x_102); -x_104 = lean_array_push(x_22, x_103); -x_105 = lean_unsigned_to_nat(3u); -x_106 = l_Lean_Syntax_getArg(x_101, x_105); -lean_dec(x_101); -x_107 = lean_array_push(x_25, x_106); -x_108 = l_Array_eraseIdx___rarg(x_27, x_99); -lean_dec(x_99); -lean_ctor_set(x_20, 0, x_108); -lean_ctor_set(x_19, 0, x_107); -lean_ctor_set(x_6, 0, x_104); -x_5 = x_12; -goto _start; -} -else -{ -lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; -lean_dec(x_20); -x_110 = lean_ctor_get(x_29, 0); -lean_inc(x_110); -lean_dec(x_29); -x_111 = l_Lean_Syntax_inhabited; -x_112 = lean_array_get(x_111, x_27, x_110); -x_113 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_112); -x_114 = l_Array_toList___rarg(x_113); -lean_dec(x_113); -x_115 = lean_array_push(x_22, x_114); -x_116 = lean_unsigned_to_nat(3u); -x_117 = l_Lean_Syntax_getArg(x_112, x_116); -lean_dec(x_112); -x_118 = lean_array_push(x_25, x_117); -x_119 = l_Array_eraseIdx___rarg(x_27, x_110); -lean_dec(x_110); -x_120 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_120, 0, x_119); -lean_ctor_set(x_120, 1, x_28); -lean_ctor_set(x_19, 1, x_120); -lean_ctor_set(x_19, 0, x_118); -lean_ctor_set(x_6, 0, x_115); -x_5 = x_12; -goto _start; -} -} -} -else -{ -lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; -x_122 = lean_ctor_get(x_19, 0); -lean_inc(x_122); -lean_dec(x_19); -x_123 = lean_ctor_get(x_20, 0); -lean_inc(x_123); -x_124 = lean_ctor_get(x_20, 1); -lean_inc(x_124); -x_125 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1(x_18, x_123, x_9); -if (lean_obj_tag(x_125) == 0) -{ -lean_object* x_126; -x_126 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_123, x_9); -if (lean_obj_tag(x_126) == 0) -{ -lean_dec(x_123); -if (lean_obj_tag(x_124) == 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; lean_object* x_135; -lean_dec(x_122); -lean_free_object(x_6); -lean_dec(x_22); -lean_dec(x_20); -x_127 = l_Lean_Name_toString___closed__1; -x_128 = l_Lean_Name_toStringWithSep___main(x_127, x_18); -x_129 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_129, 0, x_128); -x_130 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_130, 0, x_129); -x_131 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3; -x_132 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_132, 0, x_131); -lean_ctor_set(x_132, 1, x_130); -x_133 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; -x_134 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_134, 0, x_132); -lean_ctor_set(x_134, 1, x_133); -lean_inc(x_7); -lean_inc(x_1); -x_135 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_134, x_7, x_8); -if (lean_obj_tag(x_135) == 0) -{ -lean_object* x_136; lean_object* x_137; -x_136 = lean_ctor_get(x_135, 0); -lean_inc(x_136); -x_137 = lean_ctor_get(x_135, 1); -lean_inc(x_137); -lean_dec(x_135); -x_5 = x_12; -x_6 = x_136; -x_8 = x_137; -goto _start; -} -else -{ -lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; -lean_dec(x_12); -lean_dec(x_7); -lean_dec(x_1); -x_139 = lean_ctor_get(x_135, 0); -lean_inc(x_139); -x_140 = lean_ctor_get(x_135, 1); -lean_inc(x_140); -if (lean_is_exclusive(x_135)) { - lean_ctor_release(x_135, 0); - lean_ctor_release(x_135, 1); - x_141 = x_135; -} else { - lean_dec_ref(x_135); - x_141 = lean_box(0); -} -if (lean_is_scalar(x_141)) { - x_142 = lean_alloc_ctor(1, 2, 0); -} else { - x_142 = x_141; -} -lean_ctor_set(x_142, 0, x_139); -lean_ctor_set(x_142, 1, x_140); -return x_142; -} -} -else -{ -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_dec(x_18); -x_143 = lean_ctor_get(x_124, 0); -lean_inc(x_143); -lean_dec(x_124); -x_144 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_143); -x_145 = l_Array_toList___rarg(x_144); -lean_dec(x_144); -x_146 = lean_array_push(x_22, x_145); -x_147 = lean_unsigned_to_nat(3u); -x_148 = l_Lean_Syntax_getArg(x_143, x_147); -lean_dec(x_143); -x_149 = lean_array_push(x_122, x_148); -x_150 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_150, 0, x_149); -lean_ctor_set(x_150, 1, x_20); -lean_ctor_set(x_6, 1, x_150); -lean_ctor_set(x_6, 0, x_146); -x_5 = x_12; -goto _start; -} -} -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; 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_dec(x_124); -lean_dec(x_18); -if (lean_is_exclusive(x_20)) { - lean_ctor_release(x_20, 0); - lean_ctor_release(x_20, 1); - x_152 = x_20; -} else { - lean_dec_ref(x_20); - x_152 = lean_box(0); -} -x_153 = lean_ctor_get(x_126, 0); -lean_inc(x_153); -if (lean_is_exclusive(x_126)) { - lean_ctor_release(x_126, 0); - x_154 = x_126; -} else { - lean_dec_ref(x_126); - x_154 = lean_box(0); -} -x_155 = l_Lean_Syntax_inhabited; -x_156 = lean_array_get(x_155, x_123, x_153); -x_157 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_156); -x_158 = l_Array_toList___rarg(x_157); -lean_dec(x_157); -x_159 = lean_array_push(x_22, x_158); -x_160 = lean_unsigned_to_nat(3u); -x_161 = l_Lean_Syntax_getArg(x_156, x_160); -x_162 = lean_array_push(x_122, x_161); -x_163 = l_Array_eraseIdx___rarg(x_123, x_153); -lean_dec(x_153); -if (lean_is_scalar(x_154)) { - x_164 = lean_alloc_ctor(1, 1, 0); -} else { - x_164 = x_154; -} -lean_ctor_set(x_164, 0, x_156); -if (lean_is_scalar(x_152)) { - x_165 = lean_alloc_ctor(0, 2, 0); -} else { - x_165 = x_152; -} -lean_ctor_set(x_165, 0, x_163); -lean_ctor_set(x_165, 1, x_164); -x_166 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_166, 0, x_162); -lean_ctor_set(x_166, 1, x_165); -lean_ctor_set(x_6, 1, x_166); -lean_ctor_set(x_6, 0, x_159); -x_5 = x_12; -goto _start; -} -} -else -{ -lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; -lean_dec(x_18); -if (lean_is_exclusive(x_20)) { - lean_ctor_release(x_20, 0); - lean_ctor_release(x_20, 1); - x_168 = x_20; -} else { - lean_dec_ref(x_20); - x_168 = lean_box(0); -} -x_169 = lean_ctor_get(x_125, 0); -lean_inc(x_169); -lean_dec(x_125); -x_170 = l_Lean_Syntax_inhabited; -x_171 = lean_array_get(x_170, x_123, x_169); -x_172 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_171); -x_173 = l_Array_toList___rarg(x_172); -lean_dec(x_172); -x_174 = lean_array_push(x_22, x_173); -x_175 = lean_unsigned_to_nat(3u); -x_176 = l_Lean_Syntax_getArg(x_171, x_175); -lean_dec(x_171); -x_177 = lean_array_push(x_122, x_176); -x_178 = l_Array_eraseIdx___rarg(x_123, x_169); -lean_dec(x_169); -if (lean_is_scalar(x_168)) { - x_179 = lean_alloc_ctor(0, 2, 0); -} else { - x_179 = x_168; -} -lean_ctor_set(x_179, 0, x_178); -lean_ctor_set(x_179, 1, x_124); -x_180 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_180, 0, x_177); -lean_ctor_set(x_180, 1, x_179); -lean_ctor_set(x_6, 1, x_180); -lean_ctor_set(x_6, 0, x_174); -x_5 = x_12; -goto _start; -} -} -} -else -{ -lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; -x_182 = lean_ctor_get(x_6, 0); -lean_inc(x_182); -lean_dec(x_6); -x_183 = lean_ctor_get(x_19, 0); -lean_inc(x_183); -if (lean_is_exclusive(x_19)) { - lean_ctor_release(x_19, 0); - lean_ctor_release(x_19, 1); - x_184 = x_19; -} else { - lean_dec_ref(x_19); - x_184 = lean_box(0); -} -x_185 = lean_ctor_get(x_20, 0); -lean_inc(x_185); -x_186 = lean_ctor_get(x_20, 1); -lean_inc(x_186); -x_187 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1(x_18, x_185, x_9); -if (lean_obj_tag(x_187) == 0) -{ -lean_object* x_188; -x_188 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_185, x_9); -if (lean_obj_tag(x_188) == 0) -{ -lean_dec(x_185); -if (lean_obj_tag(x_186) == 0) -{ -lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; -lean_dec(x_184); -lean_dec(x_183); -lean_dec(x_182); -lean_dec(x_20); -x_189 = l_Lean_Name_toString___closed__1; -x_190 = l_Lean_Name_toStringWithSep___main(x_189, x_18); -x_191 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_191, 0, x_190); -x_192 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_192, 0, x_191); -x_193 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3; -x_194 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_194, 0, x_193); -lean_ctor_set(x_194, 1, x_192); -x_195 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; -x_196 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_196, 0, x_194); -lean_ctor_set(x_196, 1, x_195); -lean_inc(x_7); -lean_inc(x_1); -x_197 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_196, x_7, x_8); -if (lean_obj_tag(x_197) == 0) -{ -lean_object* x_198; lean_object* x_199; -x_198 = lean_ctor_get(x_197, 0); -lean_inc(x_198); -x_199 = lean_ctor_get(x_197, 1); -lean_inc(x_199); -lean_dec(x_197); -x_5 = x_12; -x_6 = x_198; -x_8 = x_199; -goto _start; -} -else -{ -lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; -lean_dec(x_12); -lean_dec(x_7); -lean_dec(x_1); -x_201 = lean_ctor_get(x_197, 0); -lean_inc(x_201); -x_202 = lean_ctor_get(x_197, 1); -lean_inc(x_202); -if (lean_is_exclusive(x_197)) { - lean_ctor_release(x_197, 0); - lean_ctor_release(x_197, 1); - x_203 = x_197; -} else { - lean_dec_ref(x_197); - x_203 = lean_box(0); -} -if (lean_is_scalar(x_203)) { - x_204 = lean_alloc_ctor(1, 2, 0); -} else { - x_204 = x_203; -} -lean_ctor_set(x_204, 0, x_201); -lean_ctor_set(x_204, 1, x_202); -return x_204; -} -} -else -{ -lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; -lean_dec(x_18); -x_205 = lean_ctor_get(x_186, 0); -lean_inc(x_205); -lean_dec(x_186); -x_206 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_205); -x_207 = l_Array_toList___rarg(x_206); -lean_dec(x_206); -x_208 = lean_array_push(x_182, x_207); -x_209 = lean_unsigned_to_nat(3u); -x_210 = l_Lean_Syntax_getArg(x_205, x_209); -lean_dec(x_205); -x_211 = lean_array_push(x_183, x_210); -if (lean_is_scalar(x_184)) { - x_212 = lean_alloc_ctor(0, 2, 0); -} else { - x_212 = x_184; -} -lean_ctor_set(x_212, 0, x_211); -lean_ctor_set(x_212, 1, x_20); -x_213 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_213, 0, x_208); -lean_ctor_set(x_213, 1, x_212); -x_5 = x_12; -x_6 = x_213; -goto _start; -} -} -else -{ -lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; -lean_dec(x_186); -lean_dec(x_18); -if (lean_is_exclusive(x_20)) { - lean_ctor_release(x_20, 0); - lean_ctor_release(x_20, 1); - x_215 = x_20; -} else { - lean_dec_ref(x_20); - x_215 = lean_box(0); -} -x_216 = lean_ctor_get(x_188, 0); -lean_inc(x_216); -if (lean_is_exclusive(x_188)) { - lean_ctor_release(x_188, 0); - x_217 = x_188; -} else { - lean_dec_ref(x_188); - x_217 = lean_box(0); -} -x_218 = l_Lean_Syntax_inhabited; -x_219 = lean_array_get(x_218, x_185, x_216); -x_220 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_219); -x_221 = l_Array_toList___rarg(x_220); -lean_dec(x_220); -x_222 = lean_array_push(x_182, x_221); -x_223 = lean_unsigned_to_nat(3u); -x_224 = l_Lean_Syntax_getArg(x_219, x_223); -x_225 = lean_array_push(x_183, x_224); -x_226 = l_Array_eraseIdx___rarg(x_185, x_216); -lean_dec(x_216); -if (lean_is_scalar(x_217)) { - x_227 = lean_alloc_ctor(1, 1, 0); -} else { - x_227 = x_217; -} -lean_ctor_set(x_227, 0, x_219); -if (lean_is_scalar(x_215)) { - x_228 = lean_alloc_ctor(0, 2, 0); -} else { - x_228 = x_215; -} -lean_ctor_set(x_228, 0, x_226); -lean_ctor_set(x_228, 1, x_227); -if (lean_is_scalar(x_184)) { - x_229 = lean_alloc_ctor(0, 2, 0); -} else { - x_229 = x_184; -} -lean_ctor_set(x_229, 0, x_225); -lean_ctor_set(x_229, 1, x_228); -x_230 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_230, 0, x_222); -lean_ctor_set(x_230, 1, x_229); -x_5 = x_12; -x_6 = x_230; -goto _start; -} -} -else -{ -lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; -lean_dec(x_18); -if (lean_is_exclusive(x_20)) { - lean_ctor_release(x_20, 0); - lean_ctor_release(x_20, 1); - x_232 = x_20; -} else { - lean_dec_ref(x_20); - x_232 = lean_box(0); -} -x_233 = lean_ctor_get(x_187, 0); -lean_inc(x_233); -lean_dec(x_187); -x_234 = l_Lean_Syntax_inhabited; -x_235 = lean_array_get(x_234, x_185, x_233); -x_236 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_235); -x_237 = l_Array_toList___rarg(x_236); -lean_dec(x_236); -x_238 = lean_array_push(x_182, x_237); -x_239 = lean_unsigned_to_nat(3u); -x_240 = l_Lean_Syntax_getArg(x_235, x_239); -lean_dec(x_235); -x_241 = lean_array_push(x_183, x_240); -x_242 = l_Array_eraseIdx___rarg(x_185, x_233); -lean_dec(x_233); -if (lean_is_scalar(x_232)) { - x_243 = lean_alloc_ctor(0, 2, 0); -} else { - x_243 = x_232; -} -lean_ctor_set(x_243, 0, x_242); -lean_ctor_set(x_243, 1, x_186); -if (lean_is_scalar(x_184)) { - x_244 = lean_alloc_ctor(0, 2, 0); -} else { - x_244 = x_184; -} -lean_ctor_set(x_244, 0, x_241); -lean_ctor_set(x_244, 1, x_243); -x_245 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_245, 0, x_238); -lean_ctor_set(x_245, 1, x_244); -x_5 = x_12; -x_6 = x_245; -goto _start; -} -} -} -} -else -{ -lean_object* x_247; -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_1); -x_247 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_247, 0, x_6); -lean_ctor_set(x_247, 1, x_8); -return x_247; -} -} -} -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4(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_3, x_4); -lean_dec(x_4); -if (x_5 == 0) -{ -lean_object* x_6; -lean_dec(x_3); -x_6 = lean_box(0); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; uint8_t x_9; -x_7 = lean_array_fget(x_2, x_3); -x_8 = l___private_Init_Lean_Elab_Tactic_Induction_8__getAltName(x_7); -lean_dec(x_7); -x_9 = l_Lean_Name_isSuffixOf___main(x_8, x_1); -lean_dec(x_8); -if (x_9 == 0) -{ -lean_object* x_10; lean_object* x_11; -x_10 = lean_unsigned_to_nat(1u); -x_11 = lean_nat_add(x_3, x_10); -lean_dec(x_3); -x_3 = x_11; -goto _start; -} -else -{ -lean_object* x_13; -x_13 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_13, 0, x_3); -return x_13; -} -} -} -} -lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__1() { +lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__1() { _start: { lean_object* x_1; @@ -8697,27 +7848,55 @@ x_1 = lean_mk_string("alternative for constructor '"); return x_1; } } -lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__2() { +lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__1; +x_1 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___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_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3() { +lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__2; +x_1 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__2; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("' is missing"); +return x_1; +} +} +lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___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_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3(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) @@ -8761,11 +7940,11 @@ lean_inc(x_17); x_18 = lean_ctor_get(x_8, 1); lean_inc(x_18); x_19 = lean_unsigned_to_nat(0u); -x_20 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4(x_9, x_17, x_19); +x_20 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1(x_9, x_17, x_19); if (lean_obj_tag(x_20) == 0) { lean_object* x_21; -x_21 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_17, x_19); +x_21 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_17, x_19); if (lean_obj_tag(x_21) == 0) { lean_dec(x_17); @@ -8783,11 +7962,11 @@ x_24 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_24, 0, x_23); x_25 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_25, 0, x_24); -x_26 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3; +x_26 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3; x_27 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_27, 0, x_26); lean_ctor_set(x_27, 1, x_25); -x_28 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; +x_28 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; x_29 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_29, 0, x_27); lean_ctor_set(x_29, 1, x_28); @@ -9033,11 +8212,11 @@ lean_inc(x_114); x_115 = lean_ctor_get(x_8, 1); lean_inc(x_115); x_116 = lean_unsigned_to_nat(0u); -x_117 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4(x_9, x_114, x_116); +x_117 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1(x_9, x_114, x_116); if (lean_obj_tag(x_117) == 0) { lean_object* x_118; -x_118 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_114, x_116); +x_118 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_114, x_116); if (lean_obj_tag(x_118) == 0) { lean_dec(x_114); @@ -9054,11 +8233,11 @@ x_121 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_121, 0, x_120); x_122 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_122, 0, x_121); -x_123 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3; +x_123 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3; x_124 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_124, 0, x_123); lean_ctor_set(x_124, 1, x_122); -x_125 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; +x_125 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; x_126 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_126, 0, x_124); lean_ctor_set(x_126, 1, x_125); @@ -9250,11 +8429,11 @@ lean_inc(x_177); x_178 = lean_ctor_get(x_8, 1); lean_inc(x_178); x_179 = lean_unsigned_to_nat(0u); -x_180 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4(x_9, x_177, x_179); +x_180 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1(x_9, x_177, x_179); if (lean_obj_tag(x_180) == 0) { lean_object* x_181; -x_181 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_177, x_179); +x_181 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_177, x_179); if (lean_obj_tag(x_181) == 0) { lean_dec(x_177); @@ -9271,11 +8450,11 @@ x_184 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_184, 0, x_183); x_185 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_185, 0, x_184); -x_186 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3; +x_186 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3; x_187 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_187, 0, x_186); lean_ctor_set(x_187, 1, x_185); -x_188 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6; +x_188 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; x_189 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_189, 0, x_187); lean_ctor_set(x_189, 1, x_188); @@ -9466,7 +8645,7 @@ goto _start; } } } -lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__1() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__1() { _start: { lean_object* x_1; @@ -9474,27 +8653,1468 @@ x_1 = lean_mk_string("unused alternative"); return x_1; } } -lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__2() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__1; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__1; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__2; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__2; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault(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_Elab_Tactic_getInductiveValFromMajor(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; 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_10, 0); +lean_inc(x_11); +lean_dec(x_10); +x_12 = l_Lean_mkRecFor___closed__1; +x_13 = lean_name_mk_string(x_11, x_12); +x_14 = l_Lean_Syntax_isNone(x_3); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_free_object(x_6); +x_15 = lean_ctor_get(x_8, 4); +lean_inc(x_15); +lean_dec(x_8); +x_16 = l___private_Init_Lean_Elab_Tactic_Induction_7__getAlts(x_3); +x_17 = lean_unsigned_to_nat(0u); +lean_inc(x_4); +x_18 = l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2(x_15, x_16, x_17, x_4, 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; +x_19 = lean_ctor_get(x_18, 1); +lean_inc(x_19); +lean_dec(x_18); +x_20 = lean_box(0); +x_21 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_21, 0, x_16); +lean_ctor_set(x_21, 1, x_20); +x_22 = l_Array_empty___closed__1; +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_21); +x_24 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +lean_inc(x_4); +x_25 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3(x_1, x_24, x_15, x_4, x_19); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t 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); +x_28 = lean_ctor_get(x_27, 1); +lean_inc(x_28); +x_29 = !lean_is_exclusive(x_25); +if (x_29 == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_30 = lean_ctor_get(x_25, 1); +x_31 = lean_ctor_get(x_25, 0); +lean_dec(x_31); +x_32 = lean_ctor_get(x_26, 0); +lean_inc(x_32); +lean_dec(x_26); +x_33 = lean_ctor_get(x_27, 0); +lean_inc(x_33); +lean_dec(x_27); +x_34 = lean_ctor_get(x_28, 0); +lean_inc(x_34); +lean_dec(x_28); +x_35 = l_Array_isEmpty___rarg(x_34); +if (x_35 == 0) +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +lean_free_object(x_25); +x_36 = l_Lean_Syntax_inhabited; +x_37 = lean_array_get(x_36, x_34, x_17); +lean_dec(x_34); +x_38 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; +x_39 = l_Lean_Elab_Tactic_throwError___rarg(x_37, x_38, x_4, x_30); +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; +x_41 = lean_ctor_get(x_39, 0); +lean_dec(x_41); +x_42 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_42, 0, x_13); +lean_ctor_set(x_42, 1, x_32); +lean_ctor_set(x_42, 2, x_33); +lean_ctor_set(x_39, 0, x_42); +return x_39; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; +x_43 = lean_ctor_get(x_39, 1); +lean_inc(x_43); +lean_dec(x_39); +x_44 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_44, 0, x_13); +lean_ctor_set(x_44, 1, x_32); +lean_ctor_set(x_44, 2, x_33); +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); +lean_dec(x_32); +lean_dec(x_13); +x_46 = !lean_is_exclusive(x_39); +if (x_46 == 0) +{ +return x_39; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_39, 0); +x_48 = lean_ctor_get(x_39, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_39); +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_dec(x_34); +lean_dec(x_4); +x_50 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_50, 0, x_13); +lean_ctor_set(x_50, 1, x_32); +lean_ctor_set(x_50, 2, x_33); +lean_ctor_set(x_25, 0, x_50); +return x_25; +} +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_51 = lean_ctor_get(x_25, 1); +lean_inc(x_51); +lean_dec(x_25); +x_52 = lean_ctor_get(x_26, 0); +lean_inc(x_52); +lean_dec(x_26); +x_53 = lean_ctor_get(x_27, 0); +lean_inc(x_53); +lean_dec(x_27); +x_54 = lean_ctor_get(x_28, 0); +lean_inc(x_54); +lean_dec(x_28); +x_55 = l_Array_isEmpty___rarg(x_54); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_56 = l_Lean_Syntax_inhabited; +x_57 = lean_array_get(x_56, x_54, x_17); +lean_dec(x_54); +x_58 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; +x_59 = l_Lean_Elab_Tactic_throwError___rarg(x_57, x_58, x_4, x_51); +if (lean_obj_tag(x_59) == 0) +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_60 = lean_ctor_get(x_59, 1); +lean_inc(x_60); +if (lean_is_exclusive(x_59)) { + lean_ctor_release(x_59, 0); + lean_ctor_release(x_59, 1); + x_61 = x_59; +} else { + lean_dec_ref(x_59); + x_61 = lean_box(0); +} +x_62 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_62, 0, x_13); +lean_ctor_set(x_62, 1, x_52); +lean_ctor_set(x_62, 2, x_53); +if (lean_is_scalar(x_61)) { + x_63 = lean_alloc_ctor(0, 2, 0); +} else { + x_63 = x_61; +} +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_60); +return x_63; +} +else +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; +lean_dec(x_53); +lean_dec(x_52); +lean_dec(x_13); +x_64 = lean_ctor_get(x_59, 0); +lean_inc(x_64); +x_65 = lean_ctor_get(x_59, 1); +lean_inc(x_65); +if (lean_is_exclusive(x_59)) { + lean_ctor_release(x_59, 0); + lean_ctor_release(x_59, 1); + x_66 = x_59; +} else { + lean_dec_ref(x_59); + x_66 = lean_box(0); +} +if (lean_is_scalar(x_66)) { + x_67 = lean_alloc_ctor(1, 2, 0); +} else { + x_67 = x_66; +} +lean_ctor_set(x_67, 0, x_64); +lean_ctor_set(x_67, 1, x_65); +return x_67; +} +} +else +{ +lean_object* x_68; lean_object* x_69; +lean_dec(x_54); +lean_dec(x_4); +x_68 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_68, 0, x_13); +lean_ctor_set(x_68, 1, x_52); +lean_ctor_set(x_68, 2, x_53); +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 +{ +uint8_t x_70; +lean_dec(x_13); +lean_dec(x_4); +x_70 = !lean_is_exclusive(x_25); +if (x_70 == 0) +{ +return x_25; +} +else +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_71 = lean_ctor_get(x_25, 0); +x_72 = lean_ctor_get(x_25, 1); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_25); +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_74; +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_4); +lean_dec(x_1); +x_74 = !lean_is_exclusive(x_18); +if (x_74 == 0) +{ +return x_18; +} +else +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_75 = lean_ctor_get(x_18, 0); +x_76 = lean_ctor_get(x_18, 1); +lean_inc(x_76); +lean_inc(x_75); +lean_dec(x_18); +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 +{ +lean_object* x_78; lean_object* x_79; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_1); +x_78 = l_Array_empty___closed__1; +x_79 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_79, 0, x_13); +lean_ctor_set(x_79, 1, x_78); +lean_ctor_set(x_79, 2, x_78); +lean_ctor_set(x_6, 0, x_79); +return x_6; +} +} +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; uint8_t x_86; +x_80 = lean_ctor_get(x_6, 0); +x_81 = lean_ctor_get(x_6, 1); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_6); +x_82 = lean_ctor_get(x_80, 0); +lean_inc(x_82); +x_83 = lean_ctor_get(x_82, 0); +lean_inc(x_83); +lean_dec(x_82); +x_84 = l_Lean_mkRecFor___closed__1; +x_85 = lean_name_mk_string(x_83, x_84); +x_86 = l_Lean_Syntax_isNone(x_3); +if (x_86 == 0) +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_87 = lean_ctor_get(x_80, 4); +lean_inc(x_87); +lean_dec(x_80); +x_88 = l___private_Init_Lean_Elab_Tactic_Induction_7__getAlts(x_3); +x_89 = lean_unsigned_to_nat(0u); +lean_inc(x_4); +x_90 = l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2(x_87, x_88, x_89, x_4, x_81); +if (lean_obj_tag(x_90) == 0) +{ +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_91 = lean_ctor_get(x_90, 1); +lean_inc(x_91); +lean_dec(x_90); +x_92 = lean_box(0); +x_93 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_93, 0, x_88); +lean_ctor_set(x_93, 1, x_92); +x_94 = l_Array_empty___closed__1; +x_95 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_95, 0, x_94); +lean_ctor_set(x_95, 1, x_93); +x_96 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_96, 0, x_94); +lean_ctor_set(x_96, 1, x_95); +lean_inc(x_4); +x_97 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3(x_1, x_96, x_87, x_4, x_91); +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; uint8_t x_106; +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_ctor_get(x_98, 1); +lean_inc(x_99); +x_100 = lean_ctor_get(x_99, 1); +lean_inc(x_100); +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_98, 0); +lean_inc(x_103); +lean_dec(x_98); +x_104 = lean_ctor_get(x_99, 0); +lean_inc(x_104); +lean_dec(x_99); +x_105 = lean_ctor_get(x_100, 0); +lean_inc(x_105); +lean_dec(x_100); +x_106 = l_Array_isEmpty___rarg(x_105); +if (x_106 == 0) +{ +lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; +lean_dec(x_102); +x_107 = l_Lean_Syntax_inhabited; +x_108 = lean_array_get(x_107, x_105, x_89); +lean_dec(x_105); +x_109 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; +x_110 = l_Lean_Elab_Tactic_throwError___rarg(x_108, x_109, x_4, x_101); +if (lean_obj_tag(x_110) == 0) +{ +lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_111 = lean_ctor_get(x_110, 1); +lean_inc(x_111); +if (lean_is_exclusive(x_110)) { + lean_ctor_release(x_110, 0); + lean_ctor_release(x_110, 1); + x_112 = x_110; +} else { + lean_dec_ref(x_110); + x_112 = lean_box(0); +} +x_113 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_113, 0, x_85); +lean_ctor_set(x_113, 1, x_103); +lean_ctor_set(x_113, 2, x_104); +if (lean_is_scalar(x_112)) { + x_114 = lean_alloc_ctor(0, 2, 0); +} else { + x_114 = x_112; +} +lean_ctor_set(x_114, 0, x_113); +lean_ctor_set(x_114, 1, x_111); +return x_114; +} +else +{ +lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; +lean_dec(x_104); +lean_dec(x_103); +lean_dec(x_85); +x_115 = lean_ctor_get(x_110, 0); +lean_inc(x_115); +x_116 = lean_ctor_get(x_110, 1); +lean_inc(x_116); +if (lean_is_exclusive(x_110)) { + lean_ctor_release(x_110, 0); + lean_ctor_release(x_110, 1); + x_117 = x_110; +} else { + lean_dec_ref(x_110); + x_117 = lean_box(0); +} +if (lean_is_scalar(x_117)) { + x_118 = lean_alloc_ctor(1, 2, 0); +} else { + x_118 = x_117; +} +lean_ctor_set(x_118, 0, x_115); +lean_ctor_set(x_118, 1, x_116); +return x_118; +} +} +else +{ +lean_object* x_119; lean_object* x_120; +lean_dec(x_105); +lean_dec(x_4); +x_119 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_119, 0, x_85); +lean_ctor_set(x_119, 1, x_103); +lean_ctor_set(x_119, 2, x_104); +if (lean_is_scalar(x_102)) { + x_120 = lean_alloc_ctor(0, 2, 0); +} else { + x_120 = x_102; +} +lean_ctor_set(x_120, 0, x_119); +lean_ctor_set(x_120, 1, x_101); +return x_120; +} +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; +lean_dec(x_85); +lean_dec(x_4); +x_121 = lean_ctor_get(x_97, 0); +lean_inc(x_121); +x_122 = lean_ctor_get(x_97, 1); +lean_inc(x_122); +if (lean_is_exclusive(x_97)) { + lean_ctor_release(x_97, 0); + lean_ctor_release(x_97, 1); + x_123 = x_97; +} else { + lean_dec_ref(x_97); + x_123 = lean_box(0); +} +if (lean_is_scalar(x_123)) { + x_124 = lean_alloc_ctor(1, 2, 0); +} else { + x_124 = x_123; +} +lean_ctor_set(x_124, 0, x_121); +lean_ctor_set(x_124, 1, x_122); +return x_124; +} +} +else +{ +lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; +lean_dec(x_88); +lean_dec(x_87); +lean_dec(x_85); +lean_dec(x_4); +lean_dec(x_1); +x_125 = lean_ctor_get(x_90, 0); +lean_inc(x_125); +x_126 = lean_ctor_get(x_90, 1); +lean_inc(x_126); +if (lean_is_exclusive(x_90)) { + lean_ctor_release(x_90, 0); + lean_ctor_release(x_90, 1); + x_127 = x_90; +} else { + lean_dec_ref(x_90); + x_127 = lean_box(0); +} +if (lean_is_scalar(x_127)) { + x_128 = lean_alloc_ctor(1, 2, 0); +} else { + x_128 = x_127; +} +lean_ctor_set(x_128, 0, x_125); +lean_ctor_set(x_128, 1, x_126); +return x_128; +} +} +else +{ +lean_object* x_129; lean_object* x_130; lean_object* x_131; +lean_dec(x_80); +lean_dec(x_4); +lean_dec(x_1); +x_129 = l_Array_empty___closed__1; +x_130 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_130, 0, x_85); +lean_ctor_set(x_130, 1, x_129); +lean_ctor_set(x_130, 2, x_129); +x_131 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_131, 0, x_130); +lean_ctor_set(x_131, 1, x_81); +return x_131; +} +} +} +else +{ +uint8_t x_132; +lean_dec(x_4); +lean_dec(x_1); +x_132 = !lean_is_exclusive(x_6); +if (x_132 == 0) +{ +return x_6; +} +else +{ +lean_object* x_133; lean_object* x_134; lean_object* x_135; +x_133 = lean_ctor_get(x_6, 0); +x_134 = lean_ctor_get(x_6, 1); +lean_inc(x_134); +lean_inc(x_133); +lean_dec(x_6); +x_135 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_135, 0, x_133); +lean_ctor_set(x_135, 1, x_134); +return x_135; +} +} +} +} +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___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_Lean_Elab_Tactic_Induction_13__getRecInfoDefault(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +return x_6; +} +} +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_array_get_size(x_2); +x_5 = lean_nat_dec_lt(x_3, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; +lean_dec(x_3); +x_6 = lean_box(0); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = lean_array_fget(x_2, x_3); +x_8 = l___private_Init_Lean_Elab_Tactic_Induction_8__getAltName(x_7); +lean_dec(x_7); +x_9 = lean_name_eq(x_8, x_1); +lean_dec(x_8); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_unsigned_to_nat(1u); +x_11 = lean_nat_add(x_3, x_10); +lean_dec(x_3); +x_3 = x_11; +goto _start; +} +else +{ +lean_object* x_13; +x_13 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_13, 0, x_3); +return x_13; +} +} +} +} +lean_object* _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("alternative for minor premise '"); +return x_1; +} +} +lean_object* _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__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_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__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_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +_start: +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_unsigned_to_nat(0u); +x_10 = lean_nat_dec_eq(x_5, x_9); +if (x_10 == 0) +{ +lean_object* x_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_sub(x_5, x_11); +lean_dec(x_5); +x_13 = lean_nat_sub(x_4, x_12); +x_14 = lean_nat_sub(x_13, x_11); +lean_dec(x_13); +x_15 = l_Lean_Meta_RecursorInfo_isMinor(x_2, x_14); +if (x_15 == 0) +{ +lean_dec(x_14); +x_5 = x_12; +goto _start; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_17 = l_Lean_Name_inhabited; +x_18 = lean_array_get(x_17, x_3, x_14); +lean_dec(x_14); +x_19 = lean_ctor_get(x_6, 1); +lean_inc(x_19); +x_20 = lean_ctor_get(x_19, 1); +lean_inc(x_20); +x_21 = !lean_is_exclusive(x_6); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; uint8_t x_24; +x_22 = lean_ctor_get(x_6, 0); +x_23 = lean_ctor_get(x_6, 1); +lean_dec(x_23); +x_24 = !lean_is_exclusive(x_19); +if (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_19, 0); +x_26 = lean_ctor_get(x_19, 1); +lean_dec(x_26); +x_27 = lean_ctor_get(x_20, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_20, 1); +lean_inc(x_28); +x_29 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1(x_18, x_27, x_9); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; +x_30 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_27, x_9); +if (lean_obj_tag(x_30) == 0) +{ +lean_dec(x_27); +if (lean_obj_tag(x_28) == 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_free_object(x_19); +lean_dec(x_25); +lean_free_object(x_6); +lean_dec(x_22); +lean_dec(x_20); +x_31 = l_Lean_Name_toString___closed__1; +x_32 = l_Lean_Name_toStringWithSep___main(x_31, x_18); +x_33 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_33, 0, x_32); +x_34 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_34, 0, x_33); +x_35 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3; +x_36 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_34); +x_37 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; +x_38 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +lean_inc(x_7); +lean_inc(x_1); +x_39 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_38, x_7, x_8); +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_5 = x_12; +x_6 = x_40; +x_8 = x_41; +goto _start; +} +else +{ +uint8_t x_43; +lean_dec(x_12); +lean_dec(x_7); +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 +{ +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_dec(x_18); +x_47 = lean_ctor_get(x_28, 0); +lean_inc(x_47); +lean_dec(x_28); +x_48 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_47); +x_49 = l_Array_toList___rarg(x_48); +lean_dec(x_48); +x_50 = lean_array_push(x_22, x_49); +x_51 = lean_unsigned_to_nat(3u); +x_52 = l_Lean_Syntax_getArg(x_47, x_51); +lean_dec(x_47); +x_53 = lean_array_push(x_25, x_52); +lean_ctor_set(x_19, 0, x_53); +lean_ctor_set(x_6, 0, x_50); +x_5 = x_12; +goto _start; +} +} +else +{ +uint8_t x_55; +lean_dec(x_28); +lean_dec(x_18); +x_55 = !lean_is_exclusive(x_20); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; uint8_t x_58; +x_56 = lean_ctor_get(x_20, 1); +lean_dec(x_56); +x_57 = lean_ctor_get(x_20, 0); +lean_dec(x_57); +x_58 = !lean_is_exclusive(x_30); +if (x_58 == 0) +{ +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_30, 0); +x_60 = l_Lean_Syntax_inhabited; +x_61 = lean_array_get(x_60, x_27, x_59); +x_62 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_61); +x_63 = l_Array_toList___rarg(x_62); +lean_dec(x_62); +x_64 = lean_array_push(x_22, x_63); +x_65 = lean_unsigned_to_nat(3u); +x_66 = l_Lean_Syntax_getArg(x_61, x_65); +x_67 = lean_array_push(x_25, x_66); +x_68 = l_Array_eraseIdx___rarg(x_27, x_59); +lean_dec(x_59); +lean_ctor_set(x_30, 0, x_61); +lean_ctor_set(x_20, 1, x_30); +lean_ctor_set(x_20, 0, x_68); +lean_ctor_set(x_19, 0, x_67); +lean_ctor_set(x_6, 0, x_64); +x_5 = x_12; +goto _start; +} +else +{ +lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_70 = lean_ctor_get(x_30, 0); +lean_inc(x_70); +lean_dec(x_30); +x_71 = l_Lean_Syntax_inhabited; +x_72 = lean_array_get(x_71, x_27, x_70); +x_73 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_72); +x_74 = l_Array_toList___rarg(x_73); +lean_dec(x_73); +x_75 = lean_array_push(x_22, x_74); +x_76 = lean_unsigned_to_nat(3u); +x_77 = l_Lean_Syntax_getArg(x_72, x_76); +x_78 = lean_array_push(x_25, x_77); +x_79 = l_Array_eraseIdx___rarg(x_27, x_70); +lean_dec(x_70); +x_80 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_80, 0, x_72); +lean_ctor_set(x_20, 1, x_80); +lean_ctor_set(x_20, 0, x_79); +lean_ctor_set(x_19, 0, x_78); +lean_ctor_set(x_6, 0, x_75); +x_5 = x_12; +goto _start; +} +} +else +{ +lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; +lean_dec(x_20); +x_82 = lean_ctor_get(x_30, 0); +lean_inc(x_82); +if (lean_is_exclusive(x_30)) { + lean_ctor_release(x_30, 0); + x_83 = x_30; +} else { + lean_dec_ref(x_30); + x_83 = lean_box(0); +} +x_84 = l_Lean_Syntax_inhabited; +x_85 = lean_array_get(x_84, x_27, x_82); +x_86 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_85); +x_87 = l_Array_toList___rarg(x_86); +lean_dec(x_86); +x_88 = lean_array_push(x_22, x_87); +x_89 = lean_unsigned_to_nat(3u); +x_90 = l_Lean_Syntax_getArg(x_85, x_89); +x_91 = lean_array_push(x_25, x_90); +x_92 = l_Array_eraseIdx___rarg(x_27, x_82); +lean_dec(x_82); +if (lean_is_scalar(x_83)) { + x_93 = lean_alloc_ctor(1, 1, 0); +} else { + x_93 = x_83; +} +lean_ctor_set(x_93, 0, x_85); +x_94 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_94, 0, x_92); +lean_ctor_set(x_94, 1, x_93); +lean_ctor_set(x_19, 1, x_94); +lean_ctor_set(x_19, 0, x_91); +lean_ctor_set(x_6, 0, x_88); +x_5 = x_12; +goto _start; +} +} +} +else +{ +uint8_t x_96; +lean_dec(x_18); +x_96 = !lean_is_exclusive(x_20); +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; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; +x_97 = lean_ctor_get(x_20, 1); +lean_dec(x_97); +x_98 = lean_ctor_get(x_20, 0); +lean_dec(x_98); +x_99 = lean_ctor_get(x_29, 0); +lean_inc(x_99); +lean_dec(x_29); +x_100 = l_Lean_Syntax_inhabited; +x_101 = lean_array_get(x_100, x_27, x_99); +x_102 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_101); +x_103 = l_Array_toList___rarg(x_102); +lean_dec(x_102); +x_104 = lean_array_push(x_22, x_103); +x_105 = lean_unsigned_to_nat(3u); +x_106 = l_Lean_Syntax_getArg(x_101, x_105); +lean_dec(x_101); +x_107 = lean_array_push(x_25, x_106); +x_108 = l_Array_eraseIdx___rarg(x_27, x_99); +lean_dec(x_99); +lean_ctor_set(x_20, 0, x_108); +lean_ctor_set(x_19, 0, x_107); +lean_ctor_set(x_6, 0, x_104); +x_5 = x_12; +goto _start; +} +else +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; +lean_dec(x_20); +x_110 = lean_ctor_get(x_29, 0); +lean_inc(x_110); +lean_dec(x_29); +x_111 = l_Lean_Syntax_inhabited; +x_112 = lean_array_get(x_111, x_27, x_110); +x_113 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_112); +x_114 = l_Array_toList___rarg(x_113); +lean_dec(x_113); +x_115 = lean_array_push(x_22, x_114); +x_116 = lean_unsigned_to_nat(3u); +x_117 = l_Lean_Syntax_getArg(x_112, x_116); +lean_dec(x_112); +x_118 = lean_array_push(x_25, x_117); +x_119 = l_Array_eraseIdx___rarg(x_27, x_110); +lean_dec(x_110); +x_120 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_120, 0, x_119); +lean_ctor_set(x_120, 1, x_28); +lean_ctor_set(x_19, 1, x_120); +lean_ctor_set(x_19, 0, x_118); +lean_ctor_set(x_6, 0, x_115); +x_5 = x_12; +goto _start; +} +} +} +else +{ +lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_122 = lean_ctor_get(x_19, 0); +lean_inc(x_122); +lean_dec(x_19); +x_123 = lean_ctor_get(x_20, 0); +lean_inc(x_123); +x_124 = lean_ctor_get(x_20, 1); +lean_inc(x_124); +x_125 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1(x_18, x_123, x_9); +if (lean_obj_tag(x_125) == 0) +{ +lean_object* x_126; +x_126 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_123, x_9); +if (lean_obj_tag(x_126) == 0) +{ +lean_dec(x_123); +if (lean_obj_tag(x_124) == 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; lean_object* x_135; +lean_dec(x_122); +lean_free_object(x_6); +lean_dec(x_22); +lean_dec(x_20); +x_127 = l_Lean_Name_toString___closed__1; +x_128 = l_Lean_Name_toStringWithSep___main(x_127, x_18); +x_129 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_129, 0, x_128); +x_130 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_130, 0, x_129); +x_131 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3; +x_132 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_132, 0, x_131); +lean_ctor_set(x_132, 1, x_130); +x_133 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; +x_134 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_134, 0, x_132); +lean_ctor_set(x_134, 1, x_133); +lean_inc(x_7); +lean_inc(x_1); +x_135 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_134, x_7, x_8); +if (lean_obj_tag(x_135) == 0) +{ +lean_object* x_136; lean_object* x_137; +x_136 = lean_ctor_get(x_135, 0); +lean_inc(x_136); +x_137 = lean_ctor_get(x_135, 1); +lean_inc(x_137); +lean_dec(x_135); +x_5 = x_12; +x_6 = x_136; +x_8 = x_137; +goto _start; +} +else +{ +lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; +lean_dec(x_12); +lean_dec(x_7); +lean_dec(x_1); +x_139 = lean_ctor_get(x_135, 0); +lean_inc(x_139); +x_140 = lean_ctor_get(x_135, 1); +lean_inc(x_140); +if (lean_is_exclusive(x_135)) { + lean_ctor_release(x_135, 0); + lean_ctor_release(x_135, 1); + x_141 = x_135; +} else { + lean_dec_ref(x_135); + x_141 = lean_box(0); +} +if (lean_is_scalar(x_141)) { + x_142 = lean_alloc_ctor(1, 2, 0); +} else { + x_142 = x_141; +} +lean_ctor_set(x_142, 0, x_139); +lean_ctor_set(x_142, 1, x_140); +return x_142; +} +} +else +{ +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_dec(x_18); +x_143 = lean_ctor_get(x_124, 0); +lean_inc(x_143); +lean_dec(x_124); +x_144 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_143); +x_145 = l_Array_toList___rarg(x_144); +lean_dec(x_144); +x_146 = lean_array_push(x_22, x_145); +x_147 = lean_unsigned_to_nat(3u); +x_148 = l_Lean_Syntax_getArg(x_143, x_147); +lean_dec(x_143); +x_149 = lean_array_push(x_122, x_148); +x_150 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_150, 0, x_149); +lean_ctor_set(x_150, 1, x_20); +lean_ctor_set(x_6, 1, x_150); +lean_ctor_set(x_6, 0, x_146); +x_5 = x_12; +goto _start; +} +} +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; 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_dec(x_124); +lean_dec(x_18); +if (lean_is_exclusive(x_20)) { + lean_ctor_release(x_20, 0); + lean_ctor_release(x_20, 1); + x_152 = x_20; +} else { + lean_dec_ref(x_20); + x_152 = lean_box(0); +} +x_153 = lean_ctor_get(x_126, 0); +lean_inc(x_153); +if (lean_is_exclusive(x_126)) { + lean_ctor_release(x_126, 0); + x_154 = x_126; +} else { + lean_dec_ref(x_126); + x_154 = lean_box(0); +} +x_155 = l_Lean_Syntax_inhabited; +x_156 = lean_array_get(x_155, x_123, x_153); +x_157 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_156); +x_158 = l_Array_toList___rarg(x_157); +lean_dec(x_157); +x_159 = lean_array_push(x_22, x_158); +x_160 = lean_unsigned_to_nat(3u); +x_161 = l_Lean_Syntax_getArg(x_156, x_160); +x_162 = lean_array_push(x_122, x_161); +x_163 = l_Array_eraseIdx___rarg(x_123, x_153); +lean_dec(x_153); +if (lean_is_scalar(x_154)) { + x_164 = lean_alloc_ctor(1, 1, 0); +} else { + x_164 = x_154; +} +lean_ctor_set(x_164, 0, x_156); +if (lean_is_scalar(x_152)) { + x_165 = lean_alloc_ctor(0, 2, 0); +} else { + x_165 = x_152; +} +lean_ctor_set(x_165, 0, x_163); +lean_ctor_set(x_165, 1, x_164); +x_166 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_166, 0, x_162); +lean_ctor_set(x_166, 1, x_165); +lean_ctor_set(x_6, 1, x_166); +lean_ctor_set(x_6, 0, x_159); +x_5 = x_12; +goto _start; +} +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; +lean_dec(x_18); +if (lean_is_exclusive(x_20)) { + lean_ctor_release(x_20, 0); + lean_ctor_release(x_20, 1); + x_168 = x_20; +} else { + lean_dec_ref(x_20); + x_168 = lean_box(0); +} +x_169 = lean_ctor_get(x_125, 0); +lean_inc(x_169); +lean_dec(x_125); +x_170 = l_Lean_Syntax_inhabited; +x_171 = lean_array_get(x_170, x_123, x_169); +x_172 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_171); +x_173 = l_Array_toList___rarg(x_172); +lean_dec(x_172); +x_174 = lean_array_push(x_22, x_173); +x_175 = lean_unsigned_to_nat(3u); +x_176 = l_Lean_Syntax_getArg(x_171, x_175); +lean_dec(x_171); +x_177 = lean_array_push(x_122, x_176); +x_178 = l_Array_eraseIdx___rarg(x_123, x_169); +lean_dec(x_169); +if (lean_is_scalar(x_168)) { + x_179 = lean_alloc_ctor(0, 2, 0); +} else { + x_179 = x_168; +} +lean_ctor_set(x_179, 0, x_178); +lean_ctor_set(x_179, 1, x_124); +x_180 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_180, 0, x_177); +lean_ctor_set(x_180, 1, x_179); +lean_ctor_set(x_6, 1, x_180); +lean_ctor_set(x_6, 0, x_174); +x_5 = x_12; +goto _start; +} +} +} +else +{ +lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; +x_182 = lean_ctor_get(x_6, 0); +lean_inc(x_182); +lean_dec(x_6); +x_183 = lean_ctor_get(x_19, 0); +lean_inc(x_183); +if (lean_is_exclusive(x_19)) { + lean_ctor_release(x_19, 0); + lean_ctor_release(x_19, 1); + x_184 = x_19; +} else { + lean_dec_ref(x_19); + x_184 = lean_box(0); +} +x_185 = lean_ctor_get(x_20, 0); +lean_inc(x_185); +x_186 = lean_ctor_get(x_20, 1); +lean_inc(x_186); +x_187 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1(x_18, x_185, x_9); +if (lean_obj_tag(x_187) == 0) +{ +lean_object* x_188; +x_188 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__2(x_185, x_9); +if (lean_obj_tag(x_188) == 0) +{ +lean_dec(x_185); +if (lean_obj_tag(x_186) == 0) +{ +lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; +lean_dec(x_184); +lean_dec(x_183); +lean_dec(x_182); +lean_dec(x_20); +x_189 = l_Lean_Name_toString___closed__1; +x_190 = l_Lean_Name_toStringWithSep___main(x_189, x_18); +x_191 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_191, 0, x_190); +x_192 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_192, 0, x_191); +x_193 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3; +x_194 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_194, 0, x_193); +lean_ctor_set(x_194, 1, x_192); +x_195 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6; +x_196 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_196, 0, x_194); +lean_ctor_set(x_196, 1, x_195); +lean_inc(x_7); +lean_inc(x_1); +x_197 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_196, x_7, x_8); +if (lean_obj_tag(x_197) == 0) +{ +lean_object* x_198; lean_object* x_199; +x_198 = lean_ctor_get(x_197, 0); +lean_inc(x_198); +x_199 = lean_ctor_get(x_197, 1); +lean_inc(x_199); +lean_dec(x_197); +x_5 = x_12; +x_6 = x_198; +x_8 = x_199; +goto _start; +} +else +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; +lean_dec(x_12); +lean_dec(x_7); +lean_dec(x_1); +x_201 = lean_ctor_get(x_197, 0); +lean_inc(x_201); +x_202 = lean_ctor_get(x_197, 1); +lean_inc(x_202); +if (lean_is_exclusive(x_197)) { + lean_ctor_release(x_197, 0); + lean_ctor_release(x_197, 1); + x_203 = x_197; +} else { + lean_dec_ref(x_197); + x_203 = lean_box(0); +} +if (lean_is_scalar(x_203)) { + x_204 = lean_alloc_ctor(1, 2, 0); +} else { + x_204 = x_203; +} +lean_ctor_set(x_204, 0, x_201); +lean_ctor_set(x_204, 1, x_202); +return x_204; +} +} +else +{ +lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; +lean_dec(x_18); +x_205 = lean_ctor_get(x_186, 0); +lean_inc(x_205); +lean_dec(x_186); +x_206 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_205); +x_207 = l_Array_toList___rarg(x_206); +lean_dec(x_206); +x_208 = lean_array_push(x_182, x_207); +x_209 = lean_unsigned_to_nat(3u); +x_210 = l_Lean_Syntax_getArg(x_205, x_209); +lean_dec(x_205); +x_211 = lean_array_push(x_183, x_210); +if (lean_is_scalar(x_184)) { + x_212 = lean_alloc_ctor(0, 2, 0); +} else { + x_212 = x_184; +} +lean_ctor_set(x_212, 0, x_211); +lean_ctor_set(x_212, 1, x_20); +x_213 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_213, 0, x_208); +lean_ctor_set(x_213, 1, x_212); +x_5 = x_12; +x_6 = x_213; +goto _start; +} +} +else +{ +lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; +lean_dec(x_186); +lean_dec(x_18); +if (lean_is_exclusive(x_20)) { + lean_ctor_release(x_20, 0); + lean_ctor_release(x_20, 1); + x_215 = x_20; +} else { + lean_dec_ref(x_20); + x_215 = lean_box(0); +} +x_216 = lean_ctor_get(x_188, 0); +lean_inc(x_216); +if (lean_is_exclusive(x_188)) { + lean_ctor_release(x_188, 0); + x_217 = x_188; +} else { + lean_dec_ref(x_188); + x_217 = lean_box(0); +} +x_218 = l_Lean_Syntax_inhabited; +x_219 = lean_array_get(x_218, x_185, x_216); +x_220 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_219); +x_221 = l_Array_toList___rarg(x_220); +lean_dec(x_220); +x_222 = lean_array_push(x_182, x_221); +x_223 = lean_unsigned_to_nat(3u); +x_224 = l_Lean_Syntax_getArg(x_219, x_223); +x_225 = lean_array_push(x_183, x_224); +x_226 = l_Array_eraseIdx___rarg(x_185, x_216); +lean_dec(x_216); +if (lean_is_scalar(x_217)) { + x_227 = lean_alloc_ctor(1, 1, 0); +} else { + x_227 = x_217; +} +lean_ctor_set(x_227, 0, x_219); +if (lean_is_scalar(x_215)) { + x_228 = lean_alloc_ctor(0, 2, 0); +} else { + x_228 = x_215; +} +lean_ctor_set(x_228, 0, x_226); +lean_ctor_set(x_228, 1, x_227); +if (lean_is_scalar(x_184)) { + x_229 = lean_alloc_ctor(0, 2, 0); +} else { + x_229 = x_184; +} +lean_ctor_set(x_229, 0, x_225); +lean_ctor_set(x_229, 1, x_228); +x_230 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_230, 0, x_222); +lean_ctor_set(x_230, 1, x_229); +x_5 = x_12; +x_6 = x_230; +goto _start; +} +} +else +{ +lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; +lean_dec(x_18); +if (lean_is_exclusive(x_20)) { + lean_ctor_release(x_20, 0); + lean_ctor_release(x_20, 1); + x_232 = x_20; +} else { + lean_dec_ref(x_20); + x_232 = lean_box(0); +} +x_233 = lean_ctor_get(x_187, 0); +lean_inc(x_233); +lean_dec(x_187); +x_234 = l_Lean_Syntax_inhabited; +x_235 = lean_array_get(x_234, x_185, x_233); +x_236 = l___private_Init_Lean_Elab_Tactic_Induction_9__getAltVarNames(x_235); +x_237 = l_Array_toList___rarg(x_236); +lean_dec(x_236); +x_238 = lean_array_push(x_182, x_237); +x_239 = lean_unsigned_to_nat(3u); +x_240 = l_Lean_Syntax_getArg(x_235, x_239); +lean_dec(x_235); +x_241 = lean_array_push(x_183, x_240); +x_242 = l_Array_eraseIdx___rarg(x_185, x_233); +lean_dec(x_233); +if (lean_is_scalar(x_232)) { + x_243 = lean_alloc_ctor(0, 2, 0); +} else { + x_243 = x_232; +} +lean_ctor_set(x_243, 0, x_242); +lean_ctor_set(x_243, 1, x_186); +if (lean_is_scalar(x_184)) { + x_244 = lean_alloc_ctor(0, 2, 0); +} else { + x_244 = x_184; +} +lean_ctor_set(x_244, 0, x_241); +lean_ctor_set(x_244, 1, x_243); +x_245 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_245, 0, x_238); +lean_ctor_set(x_245, 1, x_244); +x_5 = x_12; +x_6 = x_245; +goto _start; +} +} +} +} +else +{ +lean_object* x_247; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_1); +x_247 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_247, 0, x_6); +lean_ctor_set(x_247, 1, x_8); +return x_247; +} +} +} +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo(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; @@ -9581,7 +10201,7 @@ lean_ctor_set(x_34, 1, x_33); x_35 = lean_array_get_size(x_29); lean_inc(x_3); lean_inc(x_35); -x_36 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3(x_1, x_15, x_29, x_35, x_35, x_34, x_3, x_30); +x_36 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2(x_1, x_15, x_29, x_35, x_35, x_34, x_3, x_30); lean_dec(x_35); lean_dec(x_29); lean_dec(x_15); @@ -9619,7 +10239,7 @@ x_47 = l_Lean_Syntax_inhabited; x_48 = lean_unsigned_to_nat(0u); x_49 = lean_array_get(x_47, x_45, x_48); lean_dec(x_45); -x_50 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; +x_50 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; x_51 = l_Lean_Elab_Tactic_throwError___rarg(x_49, x_50, x_3, x_41); if (lean_obj_tag(x_51) == 0) { @@ -9715,7 +10335,7 @@ x_68 = l_Lean_Syntax_inhabited; x_69 = lean_unsigned_to_nat(0u); x_70 = lean_array_get(x_68, x_66, x_69); lean_dec(x_66); -x_71 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; +x_71 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; x_72 = l_Lean_Elab_Tactic_throwError___rarg(x_70, x_71, x_3, x_63); if (lean_obj_tag(x_72) == 0) { @@ -9879,7 +10499,7 @@ lean_ctor_set(x_101, 1, x_100); x_102 = lean_array_get_size(x_95); lean_inc(x_3); lean_inc(x_102); -x_103 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3(x_1, x_15, x_95, x_102, x_102, x_101, x_3, x_96); +x_103 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2(x_1, x_15, x_95, x_102, x_102, x_101, x_3, x_96); lean_dec(x_102); lean_dec(x_95); lean_dec(x_15); @@ -9920,7 +10540,7 @@ x_113 = l_Lean_Syntax_inhabited; x_114 = lean_unsigned_to_nat(0u); x_115 = lean_array_get(x_113, x_111, x_114); lean_dec(x_111); -x_116 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; +x_116 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; x_117 = l_Lean_Elab_Tactic_throwError___rarg(x_115, x_116, x_3, x_107); if (lean_obj_tag(x_117) == 0) { @@ -10170,7 +10790,7 @@ lean_ctor_set(x_161, 1, x_160); x_162 = lean_array_get_size(x_155); lean_inc(x_3); lean_inc(x_162); -x_163 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3(x_1, x_142, x_155, x_162, x_162, x_161, x_3, x_156); +x_163 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2(x_1, x_142, x_155, x_162, x_162, x_161, x_3, x_156); lean_dec(x_162); lean_dec(x_155); lean_dec(x_142); @@ -10211,7 +10831,7 @@ x_173 = l_Lean_Syntax_inhabited; x_174 = lean_unsigned_to_nat(0u); x_175 = lean_array_get(x_173, x_171, x_174); lean_dec(x_171); -x_176 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; +x_176 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3; x_177 = l_Lean_Elab_Tactic_throwError___rarg(x_175, x_176, x_3, x_167); if (lean_obj_tag(x_177) == 0) { @@ -10423,628 +11043,34 @@ else { lean_object* x_207; lean_dec(x_6); -lean_inc(x_3); -lean_inc(x_1); -x_207 = l_Lean_Elab_Tactic_getInductiveValFromMajor(x_1, x_2, x_3, x_4); -if (lean_obj_tag(x_207) == 0) -{ -uint8_t x_208; -x_208 = !lean_is_exclusive(x_207); -if (x_208 == 0) -{ -lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; uint8_t x_215; -x_209 = lean_ctor_get(x_207, 0); -x_210 = lean_ctor_get(x_207, 1); -x_211 = lean_ctor_get(x_209, 0); -lean_inc(x_211); -x_212 = lean_ctor_get(x_211, 0); -lean_inc(x_212); -lean_dec(x_211); -x_213 = l_Lean_mkRecFor___closed__1; -x_214 = lean_name_mk_string(x_212, x_213); -x_215 = l_Lean_Syntax_isNone(x_8); -if (x_215 == 0) -{ -lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; -lean_free_object(x_207); -x_216 = lean_ctor_get(x_209, 4); -lean_inc(x_216); -lean_dec(x_209); -x_217 = l___private_Init_Lean_Elab_Tactic_Induction_7__getAlts(x_8); +x_207 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault(x_1, x_2, x_8, x_3, x_4); lean_dec(x_8); -x_218 = lean_unsigned_to_nat(0u); -lean_inc(x_3); -x_219 = l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2(x_216, x_217, x_218, x_3, x_210); -if (lean_obj_tag(x_219) == 0) -{ -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; -x_220 = lean_ctor_get(x_219, 1); -lean_inc(x_220); -lean_dec(x_219); -x_221 = lean_box(0); -x_222 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_222, 0, x_217); -lean_ctor_set(x_222, 1, x_221); -x_223 = l_Array_empty___closed__1; -x_224 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_224, 0, x_223); -lean_ctor_set(x_224, 1, x_222); -x_225 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_225, 0, x_223); -lean_ctor_set(x_225, 1, x_224); -lean_inc(x_3); -x_226 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5(x_1, x_225, x_216, x_3, x_220); -if (lean_obj_tag(x_226) == 0) -{ -lean_object* x_227; lean_object* x_228; lean_object* x_229; uint8_t x_230; -x_227 = lean_ctor_get(x_226, 0); -lean_inc(x_227); -x_228 = lean_ctor_get(x_227, 1); -lean_inc(x_228); -x_229 = lean_ctor_get(x_228, 1); -lean_inc(x_229); -x_230 = !lean_is_exclusive(x_226); -if (x_230 == 0) -{ -lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; uint8_t x_236; -x_231 = lean_ctor_get(x_226, 1); -x_232 = lean_ctor_get(x_226, 0); -lean_dec(x_232); -x_233 = lean_ctor_get(x_227, 0); -lean_inc(x_233); -lean_dec(x_227); -x_234 = lean_ctor_get(x_228, 0); -lean_inc(x_234); -lean_dec(x_228); -x_235 = lean_ctor_get(x_229, 0); -lean_inc(x_235); -lean_dec(x_229); -x_236 = l_Array_isEmpty___rarg(x_235); -if (x_236 == 0) -{ -lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; -lean_free_object(x_226); -x_237 = l_Lean_Syntax_inhabited; -x_238 = lean_array_get(x_237, x_235, x_218); -lean_dec(x_235); -x_239 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; -x_240 = l_Lean_Elab_Tactic_throwError___rarg(x_238, x_239, x_3, x_231); -if (lean_obj_tag(x_240) == 0) -{ -uint8_t x_241; -x_241 = !lean_is_exclusive(x_240); -if (x_241 == 0) -{ -lean_object* x_242; lean_object* x_243; -x_242 = lean_ctor_get(x_240, 0); -lean_dec(x_242); -x_243 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_243, 0, x_214); -lean_ctor_set(x_243, 1, x_233); -lean_ctor_set(x_243, 2, x_234); -lean_ctor_set(x_240, 0, x_243); -return x_240; -} -else -{ -lean_object* x_244; lean_object* x_245; lean_object* x_246; -x_244 = lean_ctor_get(x_240, 1); -lean_inc(x_244); -lean_dec(x_240); -x_245 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_245, 0, x_214); -lean_ctor_set(x_245, 1, x_233); -lean_ctor_set(x_245, 2, x_234); -x_246 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_246, 0, x_245); -lean_ctor_set(x_246, 1, x_244); -return x_246; -} -} -else -{ -uint8_t x_247; -lean_dec(x_234); -lean_dec(x_233); -lean_dec(x_214); -x_247 = !lean_is_exclusive(x_240); -if (x_247 == 0) -{ -return x_240; -} -else -{ -lean_object* x_248; lean_object* x_249; lean_object* x_250; -x_248 = lean_ctor_get(x_240, 0); -x_249 = lean_ctor_get(x_240, 1); -lean_inc(x_249); -lean_inc(x_248); -lean_dec(x_240); -x_250 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_250, 0, x_248); -lean_ctor_set(x_250, 1, x_249); -return x_250; -} -} -} -else -{ -lean_object* x_251; -lean_dec(x_235); -lean_dec(x_3); -x_251 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_251, 0, x_214); -lean_ctor_set(x_251, 1, x_233); -lean_ctor_set(x_251, 2, x_234); -lean_ctor_set(x_226, 0, x_251); -return x_226; -} -} -else -{ -lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; uint8_t x_256; -x_252 = lean_ctor_get(x_226, 1); -lean_inc(x_252); -lean_dec(x_226); -x_253 = lean_ctor_get(x_227, 0); -lean_inc(x_253); -lean_dec(x_227); -x_254 = lean_ctor_get(x_228, 0); -lean_inc(x_254); -lean_dec(x_228); -x_255 = lean_ctor_get(x_229, 0); -lean_inc(x_255); -lean_dec(x_229); -x_256 = l_Array_isEmpty___rarg(x_255); -if (x_256 == 0) -{ -lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; -x_257 = l_Lean_Syntax_inhabited; -x_258 = lean_array_get(x_257, x_255, x_218); -lean_dec(x_255); -x_259 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; -x_260 = l_Lean_Elab_Tactic_throwError___rarg(x_258, x_259, x_3, x_252); -if (lean_obj_tag(x_260) == 0) -{ -lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; -x_261 = lean_ctor_get(x_260, 1); -lean_inc(x_261); -if (lean_is_exclusive(x_260)) { - lean_ctor_release(x_260, 0); - lean_ctor_release(x_260, 1); - x_262 = x_260; -} else { - lean_dec_ref(x_260); - x_262 = lean_box(0); -} -x_263 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_263, 0, x_214); -lean_ctor_set(x_263, 1, x_253); -lean_ctor_set(x_263, 2, x_254); -if (lean_is_scalar(x_262)) { - x_264 = lean_alloc_ctor(0, 2, 0); -} else { - x_264 = x_262; -} -lean_ctor_set(x_264, 0, x_263); -lean_ctor_set(x_264, 1, x_261); -return x_264; -} -else -{ -lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; -lean_dec(x_254); -lean_dec(x_253); -lean_dec(x_214); -x_265 = lean_ctor_get(x_260, 0); -lean_inc(x_265); -x_266 = lean_ctor_get(x_260, 1); -lean_inc(x_266); -if (lean_is_exclusive(x_260)) { - lean_ctor_release(x_260, 0); - lean_ctor_release(x_260, 1); - x_267 = x_260; -} else { - lean_dec_ref(x_260); - x_267 = lean_box(0); -} -if (lean_is_scalar(x_267)) { - x_268 = lean_alloc_ctor(1, 2, 0); -} else { - x_268 = x_267; -} -lean_ctor_set(x_268, 0, x_265); -lean_ctor_set(x_268, 1, x_266); -return x_268; -} -} -else -{ -lean_object* x_269; lean_object* x_270; -lean_dec(x_255); -lean_dec(x_3); -x_269 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_269, 0, x_214); -lean_ctor_set(x_269, 1, x_253); -lean_ctor_set(x_269, 2, x_254); -x_270 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_270, 0, x_269); -lean_ctor_set(x_270, 1, x_252); -return x_270; -} -} -} -else -{ -uint8_t x_271; -lean_dec(x_214); -lean_dec(x_3); -x_271 = !lean_is_exclusive(x_226); -if (x_271 == 0) -{ -return x_226; -} -else -{ -lean_object* x_272; lean_object* x_273; lean_object* x_274; -x_272 = lean_ctor_get(x_226, 0); -x_273 = lean_ctor_get(x_226, 1); -lean_inc(x_273); -lean_inc(x_272); -lean_dec(x_226); -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_217); -lean_dec(x_216); -lean_dec(x_214); -lean_dec(x_3); -lean_dec(x_1); -x_275 = !lean_is_exclusive(x_219); -if (x_275 == 0) -{ -return x_219; -} -else -{ -lean_object* x_276; lean_object* x_277; lean_object* x_278; -x_276 = lean_ctor_get(x_219, 0); -x_277 = lean_ctor_get(x_219, 1); -lean_inc(x_277); -lean_inc(x_276); -lean_dec(x_219); -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 -{ -lean_object* x_279; lean_object* x_280; -lean_dec(x_209); -lean_dec(x_8); -lean_dec(x_3); -lean_dec(x_1); -x_279 = l_Array_empty___closed__1; -x_280 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_280, 0, x_214); -lean_ctor_set(x_280, 1, x_279); -lean_ctor_set(x_280, 2, x_279); -lean_ctor_set(x_207, 0, x_280); return x_207; } } -else -{ -lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; uint8_t x_287; -x_281 = lean_ctor_get(x_207, 0); -x_282 = lean_ctor_get(x_207, 1); -lean_inc(x_282); -lean_inc(x_281); -lean_dec(x_207); -x_283 = lean_ctor_get(x_281, 0); -lean_inc(x_283); -x_284 = lean_ctor_get(x_283, 0); -lean_inc(x_284); -lean_dec(x_283); -x_285 = l_Lean_mkRecFor___closed__1; -x_286 = lean_name_mk_string(x_284, x_285); -x_287 = l_Lean_Syntax_isNone(x_8); -if (x_287 == 0) -{ -lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; -x_288 = lean_ctor_get(x_281, 4); -lean_inc(x_288); -lean_dec(x_281); -x_289 = l___private_Init_Lean_Elab_Tactic_Induction_7__getAlts(x_8); -lean_dec(x_8); -x_290 = lean_unsigned_to_nat(0u); -lean_inc(x_3); -x_291 = l_Array_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_11__checkAltCtorNames___spec__2(x_288, x_289, x_290, x_3, x_282); -if (lean_obj_tag(x_291) == 0) -{ -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; -x_292 = lean_ctor_get(x_291, 1); -lean_inc(x_292); -lean_dec(x_291); -x_293 = lean_box(0); -x_294 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_294, 0, x_289); -lean_ctor_set(x_294, 1, x_293); -x_295 = l_Array_empty___closed__1; -x_296 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_296, 0, x_295); -lean_ctor_set(x_296, 1, x_294); -x_297 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_297, 0, x_295); -lean_ctor_set(x_297, 1, x_296); -lean_inc(x_3); -x_298 = l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5(x_1, x_297, x_288, x_3, x_292); -if (lean_obj_tag(x_298) == 0) -{ -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; uint8_t x_307; -x_299 = lean_ctor_get(x_298, 0); -lean_inc(x_299); -x_300 = lean_ctor_get(x_299, 1); -lean_inc(x_300); -x_301 = lean_ctor_get(x_300, 1); -lean_inc(x_301); -x_302 = lean_ctor_get(x_298, 1); -lean_inc(x_302); -if (lean_is_exclusive(x_298)) { - lean_ctor_release(x_298, 0); - lean_ctor_release(x_298, 1); - x_303 = x_298; -} else { - lean_dec_ref(x_298); - x_303 = lean_box(0); } -x_304 = lean_ctor_get(x_299, 0); -lean_inc(x_304); -lean_dec(x_299); -x_305 = lean_ctor_get(x_300, 0); -lean_inc(x_305); -lean_dec(x_300); -x_306 = lean_ctor_get(x_301, 0); -lean_inc(x_306); -lean_dec(x_301); -x_307 = l_Array_isEmpty___rarg(x_306); -if (x_307 == 0) -{ -lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; -lean_dec(x_303); -x_308 = l_Lean_Syntax_inhabited; -x_309 = lean_array_get(x_308, x_306, x_290); -lean_dec(x_306); -x_310 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3; -x_311 = l_Lean_Elab_Tactic_throwError___rarg(x_309, x_310, x_3, x_302); -if (lean_obj_tag(x_311) == 0) -{ -lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; -x_312 = lean_ctor_get(x_311, 1); -lean_inc(x_312); -if (lean_is_exclusive(x_311)) { - lean_ctor_release(x_311, 0); - lean_ctor_release(x_311, 1); - x_313 = x_311; -} else { - lean_dec_ref(x_311); - x_313 = lean_box(0); -} -x_314 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_314, 0, x_286); -lean_ctor_set(x_314, 1, x_304); -lean_ctor_set(x_314, 2, x_305); -if (lean_is_scalar(x_313)) { - x_315 = lean_alloc_ctor(0, 2, 0); -} else { - x_315 = x_313; -} -lean_ctor_set(x_315, 0, x_314); -lean_ctor_set(x_315, 1, x_312); -return x_315; -} -else -{ -lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; -lean_dec(x_305); -lean_dec(x_304); -lean_dec(x_286); -x_316 = lean_ctor_get(x_311, 0); -lean_inc(x_316); -x_317 = lean_ctor_get(x_311, 1); -lean_inc(x_317); -if (lean_is_exclusive(x_311)) { - lean_ctor_release(x_311, 0); - lean_ctor_release(x_311, 1); - x_318 = x_311; -} else { - lean_dec_ref(x_311); - x_318 = lean_box(0); -} -if (lean_is_scalar(x_318)) { - x_319 = lean_alloc_ctor(1, 2, 0); -} else { - x_319 = x_318; -} -lean_ctor_set(x_319, 0, x_316); -lean_ctor_set(x_319, 1, x_317); -return x_319; -} -} -else -{ -lean_object* x_320; lean_object* x_321; -lean_dec(x_306); -lean_dec(x_3); -x_320 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_320, 0, x_286); -lean_ctor_set(x_320, 1, x_304); -lean_ctor_set(x_320, 2, x_305); -if (lean_is_scalar(x_303)) { - x_321 = lean_alloc_ctor(0, 2, 0); -} else { - x_321 = x_303; -} -lean_ctor_set(x_321, 0, x_320); -lean_ctor_set(x_321, 1, x_302); -return x_321; -} -} -else -{ -lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; -lean_dec(x_286); -lean_dec(x_3); -x_322 = lean_ctor_get(x_298, 0); -lean_inc(x_322); -x_323 = lean_ctor_get(x_298, 1); -lean_inc(x_323); -if (lean_is_exclusive(x_298)) { - lean_ctor_release(x_298, 0); - lean_ctor_release(x_298, 1); - x_324 = x_298; -} else { - lean_dec_ref(x_298); - x_324 = lean_box(0); -} -if (lean_is_scalar(x_324)) { - x_325 = lean_alloc_ctor(1, 2, 0); -} else { - x_325 = x_324; -} -lean_ctor_set(x_325, 0, x_322); -lean_ctor_set(x_325, 1, x_323); -return x_325; -} -} -else -{ -lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; -lean_dec(x_289); -lean_dec(x_288); -lean_dec(x_286); -lean_dec(x_3); -lean_dec(x_1); -x_326 = lean_ctor_get(x_291, 0); -lean_inc(x_326); -x_327 = lean_ctor_get(x_291, 1); -lean_inc(x_327); -if (lean_is_exclusive(x_291)) { - lean_ctor_release(x_291, 0); - lean_ctor_release(x_291, 1); - x_328 = x_291; -} else { - lean_dec_ref(x_291); - x_328 = lean_box(0); -} -if (lean_is_scalar(x_328)) { - x_329 = lean_alloc_ctor(1, 2, 0); -} else { - x_329 = x_328; -} -lean_ctor_set(x_329, 0, x_326); -lean_ctor_set(x_329, 1, x_327); -return x_329; -} -} -else -{ -lean_object* x_330; lean_object* x_331; lean_object* x_332; -lean_dec(x_281); -lean_dec(x_8); -lean_dec(x_3); -lean_dec(x_1); -x_330 = l_Array_empty___closed__1; -x_331 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_331, 0, x_286); -lean_ctor_set(x_331, 1, x_330); -lean_ctor_set(x_331, 2, x_330); -x_332 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_332, 0, x_331); -lean_ctor_set(x_332, 1, x_282); -return x_332; -} -} -} -else -{ -uint8_t x_333; -lean_dec(x_8); -lean_dec(x_3); -lean_dec(x_1); -x_333 = !lean_is_exclusive(x_207); -if (x_333 == 0) -{ -return x_207; -} -else -{ -lean_object* x_334; lean_object* x_335; lean_object* x_336; -x_334 = lean_ctor_get(x_207, 0); -x_335 = lean_ctor_get(x_207, 1); -lean_inc(x_335); -lean_inc(x_334); -lean_dec(x_207); -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; -} -} -} -} -} -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__1(x_1, x_2, x_3); +x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__1(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); return x_4; } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__2(x_1, x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___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* l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { _start: { lean_object* x_9; -x_9 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +x_9 = l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); return x_9; } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__4(x_1, x_2, x_3); -lean_dec(x_2); -lean_dec(x_1); -return x_4; -} -} -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1___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; uint8_t x_8; lean_object* x_9; @@ -11216,7 +11242,7 @@ return x_40; } } } -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___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* l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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; @@ -11243,7 +11269,7 @@ lean_inc(x_17); x_18 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); lean_closure_set(x_18, 0, x_17); lean_inc(x_17); -x_19 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1___lambda__1), 5, 2); +x_19 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1___lambda__1), 5, 2); lean_closure_set(x_19, 0, x_16); lean_closure_set(x_19, 1, x_17); x_20 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); @@ -11300,91 +11326,7 @@ return x_29; } } } -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___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; -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; 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_9 = lean_unsigned_to_nat(1u); -x_10 = lean_nat_sub(x_4, x_9); -lean_dec(x_4); -x_11 = lean_nat_sub(x_3, x_10); -x_12 = lean_nat_sub(x_11, x_9); -lean_dec(x_11); -x_13 = l_Lean_Meta_InductionSubgoal_inhabited; -x_14 = lean_array_get(x_13, x_1, x_12); -x_15 = l_Lean_Syntax_inhabited; -x_16 = lean_array_get(x_15, x_2, x_12); -lean_dec(x_12); -x_17 = lean_ctor_get(x_14, 0); -lean_inc(x_17); -lean_dec(x_14); -lean_inc(x_17); -x_18 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); -lean_closure_set(x_18, 0, x_17); -lean_inc(x_17); -x_19 = lean_alloc_closure((void*)(l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1___lambda__1), 5, 2); -lean_closure_set(x_19, 0, x_16); -lean_closure_set(x_19, 1, x_17); -x_20 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_20, 0, x_18); -lean_closure_set(x_20, 1, x_19); -lean_inc(x_5); -x_21 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_17, x_20, x_5, x_6); -lean_dec(x_17); -if (lean_obj_tag(x_21) == 0) -{ -lean_object* x_22; -x_22 = lean_ctor_get(x_21, 1); -lean_inc(x_22); -lean_dec(x_21); -x_4 = x_10; -x_6 = x_22; -goto _start; -} -else -{ -uint8_t x_24; -lean_dec(x_10); -lean_dec(x_5); -x_24 = !lean_is_exclusive(x_21); -if (x_24 == 0) -{ -return x_21; -} -else -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_21, 0); -x_26 = lean_ctor_get(x_21, 1); -lean_inc(x_26); -lean_inc(x_25); -lean_dec(x_21); -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 -{ -lean_object* x_28; lean_object* x_29; -lean_dec(x_5); -lean_dec(x_4); -x_28 = lean_box(0); -x_29 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_29, 0, x_28); -lean_ctor_set(x_29, 1, x_6); -return x_29; -} -} -} -lean_object* l_List_map___main___at_Lean_Elab_Tactic_evalInduction___spec__3(lean_object* x_1) { +lean_object* l_List_map___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__2(lean_object* x_1) { _start: { if (lean_obj_tag(x_1) == 0) @@ -11405,7 +11347,7 @@ x_5 = lean_ctor_get(x_1, 1); x_6 = lean_ctor_get(x_4, 0); lean_inc(x_6); lean_dec(x_4); -x_7 = l_List_map___main___at_Lean_Elab_Tactic_evalInduction___spec__3(x_5); +x_7 = l_List_map___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__2(x_5); lean_ctor_set(x_1, 1, x_7); lean_ctor_set(x_1, 0, x_6); return x_1; @@ -11421,7 +11363,7 @@ lean_dec(x_1); x_10 = lean_ctor_get(x_8, 0); lean_inc(x_10); lean_dec(x_8); -x_11 = l_List_map___main___at_Lean_Elab_Tactic_evalInduction___spec__3(x_9); +x_11 = l_List_map___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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); @@ -11430,7 +11372,7 @@ return x_12; } } } -lean_object* _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__1() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__1() { _start: { lean_object* x_1; @@ -11438,27 +11380,27 @@ x_1 = lean_mk_string("mistmatch on the number of subgoals produced ("); return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__2() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__1; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__1; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__3() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__3() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__2; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Elab_Tactic_evalInduction___lambda__1___closed__4() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__4() { _start: { lean_object* x_1; @@ -11466,27 +11408,27 @@ x_1 = lean_mk_string(") and "); return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__5() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__5() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__4; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Elab_Tactic_evalInduction___lambda__1___closed__6() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__6() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__5; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Elab_Tactic_evalInduction___lambda__1___closed__7() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__7() { _start: { lean_object* x_1; @@ -11494,27 +11436,27 @@ x_1 = lean_mk_string("alternatives provided ("); return x_1; } } -lean_object* _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__8() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__8() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__7; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Elab_Tactic_evalInduction___lambda__1___closed__9() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__9() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__8; +x_1 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Elab_Tactic_evalInduction___lambda__1___closed__10() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__10() { _start: { lean_object* x_1; lean_object* x_2; @@ -11524,6 +11466,133 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult(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_ctor_get(x_2, 2); +x_7 = l_Array_isEmpty___rarg(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_8 = lean_array_get_size(x_6); +x_9 = lean_array_get_size(x_3); +x_10 = lean_nat_dec_eq(x_8, x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; 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_inc(x_9); +x_11 = l_Nat_repr(x_9); +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___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__6; +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 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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 = l_Nat_repr(x_8); +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 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_23, 0, x_19); +lean_ctor_set(x_23, 1, x_22); +x_24 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__10; +x_25 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +lean_inc(x_4); +x_26 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_25, x_4, x_5); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; +x_27 = lean_ctor_get(x_26, 1); +lean_inc(x_27); +lean_dec(x_26); +lean_inc(x_9); +x_28 = l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1(x_3, x_6, x_9, x_9, x_4, x_27); +lean_dec(x_9); +return x_28; +} +else +{ +uint8_t x_29; +lean_dec(x_9); +lean_dec(x_4); +x_29 = !lean_is_exclusive(x_26); +if (x_29 == 0) +{ +return x_26; +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_26, 0); +x_31 = lean_ctor_get(x_26, 1); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_26); +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 +{ +lean_object* x_33; +lean_dec(x_8); +lean_dec(x_1); +lean_inc(x_9); +x_33 = l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1(x_3, x_6, x_9, x_9, x_4, x_5); +lean_dec(x_9); +return x_33; +} +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +lean_dec(x_1); +x_34 = l_Array_toList___rarg(x_3); +x_35 = l_List_map___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__2(x_34); +x_36 = l_Lean_Elab_Tactic_setGoals(x_35, x_4, x_5); +lean_dec(x_4); +return x_36; +} +} +} +lean_object* l_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Nat_forMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_15__processResult___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___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_Lean_Elab_Tactic_Induction_15__processResult(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +return x_6; +} +} lean_object* l_Lean_Elab_Tactic_evalInduction___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -11552,7 +11621,7 @@ lean_dec(x_8); lean_inc(x_3); lean_inc(x_6); lean_inc(x_1); -x_10 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo(x_1, x_6, x_3, x_9); +x_10 = l___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo(x_1, x_6, x_3, x_9); if (lean_obj_tag(x_10) == 0) { lean_object* x_11; lean_object* x_12; lean_object* x_13; @@ -11594,250 +11663,144 @@ lean_inc(x_1); x_23 = l_Lean_Elab_Tactic_liftMetaM___rarg(x_1, x_22, x_3, x_15); if (lean_obj_tag(x_23) == 0) { -lean_object* x_24; lean_object* x_25; lean_object* x_26; uint8_t x_27; +lean_object* x_24; lean_object* x_25; lean_object* x_26; x_24 = lean_ctor_get(x_23, 0); lean_inc(x_24); x_25 = lean_ctor_get(x_23, 1); lean_inc(x_25); lean_dec(x_23); -x_26 = lean_ctor_get(x_11, 2); -lean_inc(x_26); +x_26 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult(x_1, x_11, x_24, x_3, x_25); +lean_dec(x_24); lean_dec(x_11); -x_27 = l_Array_isEmpty___rarg(x_26); +return x_26; +} +else +{ +uint8_t x_27; +lean_dec(x_11); +lean_dec(x_3); +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_23); if (x_27 == 0) { -lean_object* x_28; lean_object* x_29; uint8_t x_30; -x_28 = lean_array_get_size(x_26); -x_29 = lean_array_get_size(x_24); -x_30 = lean_nat_dec_eq(x_28, x_29); -if (x_30 == 0) -{ -lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; 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_inc(x_29); -x_31 = l_Nat_repr(x_29); -x_32 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_32, 0, x_31); -x_33 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_33, 0, x_32); -x_34 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__3; -x_35 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_33); -x_36 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__6; -x_37 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_37, 0, x_35); -lean_ctor_set(x_37, 1, x_36); -x_38 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__9; -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_Nat_repr(x_28); -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 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_43, 0, x_39); -lean_ctor_set(x_43, 1, x_42); -x_44 = l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__10; -x_45 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_45, 0, x_43); -lean_ctor_set(x_45, 1, x_44); -lean_inc(x_3); -x_46 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_45, x_3, x_25); -if (lean_obj_tag(x_46) == 0) -{ -lean_object* x_47; lean_object* x_48; -x_47 = lean_ctor_get(x_46, 1); -lean_inc(x_47); -lean_dec(x_46); -lean_inc(x_29); -x_48 = l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1(x_24, x_26, x_29, x_29, x_3, x_47); -lean_dec(x_29); -lean_dec(x_26); -lean_dec(x_24); -return x_48; -} -else -{ -uint8_t x_49; -lean_dec(x_29); -lean_dec(x_26); -lean_dec(x_24); -lean_dec(x_3); -x_49 = !lean_is_exclusive(x_46); -if (x_49 == 0) -{ -return x_46; -} -else -{ -lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_50 = lean_ctor_get(x_46, 0); -x_51 = lean_ctor_get(x_46, 1); -lean_inc(x_51); -lean_inc(x_50); -lean_dec(x_46); -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_50); -lean_ctor_set(x_52, 1, x_51); -return x_52; -} -} -} -else -{ -lean_object* x_53; -lean_dec(x_28); -lean_dec(x_1); -lean_inc(x_29); -x_53 = l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__2(x_24, x_26, x_29, x_29, x_3, x_25); -lean_dec(x_29); -lean_dec(x_26); -lean_dec(x_24); -return x_53; -} -} -else -{ -lean_object* x_54; lean_object* x_55; lean_object* x_56; -lean_dec(x_26); -lean_dec(x_1); -x_54 = l_Array_toList___rarg(x_24); -lean_dec(x_24); -x_55 = l_List_map___main___at_Lean_Elab_Tactic_evalInduction___spec__3(x_54); -x_56 = l_Lean_Elab_Tactic_setGoals(x_55, x_3, x_25); -lean_dec(x_3); -return x_56; -} -} -else -{ -uint8_t x_57; -lean_dec(x_11); -lean_dec(x_3); -lean_dec(x_1); -x_57 = !lean_is_exclusive(x_23); -if (x_57 == 0) -{ return x_23; } else { -lean_object* x_58; lean_object* x_59; lean_object* x_60; -x_58 = lean_ctor_get(x_23, 0); -x_59 = lean_ctor_get(x_23, 1); -lean_inc(x_59); -lean_inc(x_58); +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_23, 0); +x_29 = lean_ctor_get(x_23, 1); +lean_inc(x_29); +lean_inc(x_28); lean_dec(x_23); -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; +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_61; +uint8_t x_31; lean_dec(x_11); lean_dec(x_6); lean_dec(x_3); lean_dec(x_1); -x_61 = !lean_is_exclusive(x_13); -if (x_61 == 0) +x_31 = !lean_is_exclusive(x_13); +if (x_31 == 0) { return x_13; } else { -lean_object* x_62; lean_object* x_63; lean_object* x_64; -x_62 = lean_ctor_get(x_13, 0); -x_63 = lean_ctor_get(x_13, 1); -lean_inc(x_63); -lean_inc(x_62); +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_13, 0); +x_33 = lean_ctor_get(x_13, 1); +lean_inc(x_33); +lean_inc(x_32); lean_dec(x_13); -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_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_65; +uint8_t x_35; lean_dec(x_6); lean_dec(x_3); lean_dec(x_1); -x_65 = !lean_is_exclusive(x_10); -if (x_65 == 0) +x_35 = !lean_is_exclusive(x_10); +if (x_35 == 0) { return x_10; } else { -lean_object* x_66; lean_object* x_67; lean_object* x_68; -x_66 = lean_ctor_get(x_10, 0); -x_67 = lean_ctor_get(x_10, 1); -lean_inc(x_67); -lean_inc(x_66); +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_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; +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 { -uint8_t x_69; +uint8_t x_39; lean_dec(x_6); lean_dec(x_3); lean_dec(x_1); -x_69 = !lean_is_exclusive(x_8); -if (x_69 == 0) +x_39 = !lean_is_exclusive(x_8); +if (x_39 == 0) { return x_8; } else { -lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_70 = lean_ctor_get(x_8, 0); -x_71 = lean_ctor_get(x_8, 1); -lean_inc(x_71); -lean_inc(x_70); +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_8, 0); +x_41 = lean_ctor_get(x_8, 1); +lean_inc(x_41); +lean_inc(x_40); lean_dec(x_8); -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; +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_73; +uint8_t x_43; lean_dec(x_3); lean_dec(x_1); -x_73 = !lean_is_exclusive(x_5); -if (x_73 == 0) +x_43 = !lean_is_exclusive(x_5); +if (x_43 == 0) { return x_5; } else { -lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_74 = lean_ctor_get(x_5, 0); -x_75 = lean_ctor_get(x_5, 1); -lean_inc(x_75); -lean_inc(x_74); +lean_object* x_44; lean_object* x_45; lean_object* x_46; +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_dec(x_5); -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; +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; } } } @@ -11863,28 +11826,6 @@ x_9 = l_Lean_Elab_Tactic_focusAux___rarg(x_1, x_8, x_2, x_3); return x_9; } } -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___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_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -return x_7; -} -} -lean_object* l_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___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_Nat_forMAux___main___at_Lean_Elab_Tactic_evalInduction___spec__2(x_1, x_2, x_3, x_4, x_5, x_6); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -return x_7; -} -} lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__1() { _start: { @@ -11922,8 +11863,281 @@ x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_evalCases___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_object* x_6; +lean_dec(x_1); +x_5 = l_Array_empty___closed__1; +x_6 = x_2; +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_7 = lean_array_fget(x_2, x_1); +x_8 = lean_box(0); +x_9 = x_8; +x_10 = lean_array_fset(x_2, x_1, x_9); +x_11 = lean_ctor_get(x_7, 0); +lean_inc(x_11); +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_add(x_1, x_12); +x_14 = x_11; +lean_dec(x_7); +x_15 = lean_array_fset(x_10, x_1, x_14); +lean_dec(x_1); +x_1 = x_13; +x_2 = x_15; +goto _start; +} +} +} +lean_object* l_Lean_Elab_Tactic_evalCases___lambda__1(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_1); +x_5 = l___private_Init_Lean_Elab_Tactic_Induction_4__generalizeMajor(x_1, 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); +lean_inc(x_3); +lean_inc(x_1); +x_8 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_3, 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; lean_object* x_14; +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); +lean_dec(x_9); +x_12 = lean_unsigned_to_nat(2u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +lean_inc(x_3); +lean_inc(x_6); +lean_inc(x_1); +x_14 = l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault(x_1, x_6, x_13, x_3, x_10); +lean_dec(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; uint8_t x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +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_Expr_fvarId_x21(x_6); +lean_dec(x_6); +x_18 = lean_ctor_get(x_15, 1); +lean_inc(x_18); +x_19 = 0; +x_20 = lean_box(x_19); +x_21 = lean_alloc_closure((void*)(l_Lean_Meta_cases___boxed), 6, 4); +lean_closure_set(x_21, 0, x_11); +lean_closure_set(x_21, 1, x_17); +lean_closure_set(x_21, 2, x_18); +lean_closure_set(x_21, 3, x_20); +lean_inc(x_3); +lean_inc(x_1); +x_22 = l_Lean_Elab_Tactic_liftMetaM___rarg(x_1, x_21, x_3, x_16); +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; +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_unsigned_to_nat(0u); +x_26 = l_Array_umapMAux___main___at_Lean_Elab_Tactic_evalCases___spec__1(x_25, x_23); +x_27 = l___private_Init_Lean_Elab_Tactic_Induction_15__processResult(x_1, x_15, x_26, x_3, x_24); +lean_dec(x_26); +lean_dec(x_15); +return x_27; +} +else +{ +uint8_t x_28; +lean_dec(x_15); +lean_dec(x_3); +lean_dec(x_1); +x_28 = !lean_is_exclusive(x_22); +if (x_28 == 0) +{ +return x_22; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_22, 0); +x_30 = lean_ctor_get(x_22, 1); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_22); +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; +lean_dec(x_11); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_1); +x_32 = !lean_is_exclusive(x_14); +if (x_32 == 0) +{ +return x_14; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_14, 0); +x_34 = lean_ctor_get(x_14, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_14); +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_6); +lean_dec(x_3); +lean_dec(x_1); +x_36 = !lean_is_exclusive(x_8); +if (x_36 == 0) +{ +return x_8; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_8, 0); +x_38 = lean_ctor_get(x_8, 1); +lean_inc(x_38); +lean_inc(x_37); +lean_dec(x_8); +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_3); +lean_dec(x_1); +x_40 = !lean_is_exclusive(x_5); +if (x_40 == 0) +{ +return x_5; +} +else +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_5, 0); +x_42 = lean_ctor_get(x_5, 1); +lean_inc(x_42); +lean_inc(x_41); +lean_dec(x_5); +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; +} +} +} +} +lean_object* l_Lean_Elab_Tactic_evalCases(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 = l___private_Init_Lean_Elab_Tactic_Induction_1__getAuxHypothesisName(x_1); +x_5 = l___private_Init_Lean_Elab_Tactic_Induction_2__getMajor(x_1); +lean_inc(x_1); +x_6 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Tactic_Induction_3__elabMajor), 5, 3); +lean_closure_set(x_6, 0, x_1); +lean_closure_set(x_6, 1, x_4); +lean_closure_set(x_6, 2, x_5); +lean_inc(x_1); +x_7 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalCases___lambda__1), 4, 1); +lean_closure_set(x_7, 0, x_1); +x_8 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_8, 0, x_6); +lean_closure_set(x_8, 1, x_7); +x_9 = l_Lean_Elab_Tactic_focusAux___rarg(x_1, x_8, x_2, x_3); +return x_9; +} +} +lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("evalCases"); +return x_1; +} +} +lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Tactic_declareBuiltinTactic___closed__3; +x_2 = l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalCases), 3, 0); +return x_1; +} +} +lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCases(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_Parser_Tactic_cases___elambda__1___closed__2; +x_3 = l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__2; +x_4 = l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__3; +x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1); +return x_5; +} +} lean_object* initialize_Init_Lean_Meta_RecursorInfo(lean_object*); lean_object* initialize_Init_Lean_Meta_Tactic_Induction(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Cases(lean_object*); lean_object* initialize_Init_Lean_Elab_Tactic_ElabTerm(lean_object*); lean_object* initialize_Init_Lean_Elab_Tactic_Generalize(lean_object*); static bool _G_initialized = false; @@ -11937,6 +12151,9 @@ lean_dec_ref(res); res = initialize_Init_Lean_Meta_Tactic_Induction(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Cases(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Init_Lean_Elab_Tactic_ElabTerm(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -11997,50 +12214,50 @@ l_Lean_Elab_Tactic_getRecFromUsing___closed__7 = _init_l_Lean_Elab_Tactic_getRec lean_mark_persistent(l_Lean_Elab_Tactic_getRecFromUsing___closed__7); l_Lean_Elab_Tactic_getRecFromUsing___closed__8 = _init_l_Lean_Elab_Tactic_getRecFromUsing___closed__8(); lean_mark_persistent(l_Lean_Elab_Tactic_getRecFromUsing___closed__8); -l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__1 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__1(); -lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__1); -l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__2 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__2(); -lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__2); -l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3(); -lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__3); -l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__4 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__4(); -lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__4); -l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__5 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__5(); -lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__5); -l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6(); -lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__3___closed__6); -l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__1 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__1(); -lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__1); -l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__2 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__2(); -lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__2); -l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3(); -lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___spec__5___closed__3); -l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__1 = _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__1); -l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__2 = _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__2); -l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3 = _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3(); -lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfo___closed__3); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__1 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__1(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__1); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__2 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__2(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__2); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__3 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__3(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__3); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__4 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__4(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__4); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__5 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__5(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__5); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__6 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__6(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__6); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__7 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__7(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__7); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__8 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__8(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__8); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__9 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__9(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__9); -l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__10 = _init_l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__10(); -lean_mark_persistent(l_Lean_Elab_Tactic_evalInduction___lambda__1___closed__10); +l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__1 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__1(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__1); +l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__2 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__2(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__2); +l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__3); +l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__4 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__4(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__4); +l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__5 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__5(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__5); +l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6 = _init_l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___spec__3___closed__6); +l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__1 = _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__1); +l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__2 = _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__2); +l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3 = _init_l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_13__getRecInfoDefault___closed__3); +l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__1 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__1(); +lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__1); +l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__2 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__2(); +lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__2); +l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3 = _init_l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3(); +lean_mark_persistent(l_Nat_foldMAux___main___at___private_Init_Lean_Elab_Tactic_Induction_14__getRecInfo___spec__2___closed__3); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__1 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__1); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__2 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__2); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__3 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__3); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__4 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__4); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__5 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__5(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__5); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__6 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__6(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__6); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__7 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__7(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__7); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__8 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__8(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__8); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__9 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__9(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__9); +l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__10 = _init_l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__10(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Induction_15__processResult___closed__10); l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__1 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__1(); lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__1); l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__2 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___closed__2(); @@ -12050,6 +12267,15 @@ lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction___close res = l___regBuiltinTactic_Lean_Elab_Tactic_evalInduction(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__1 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__1(); +lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__1); +l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__2 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__2(); +lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__2); +l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__3 = _init_l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__3(); +lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalCases___closed__3); +res = l___regBuiltinTactic_Lean_Elab_Tactic_evalCases(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Expr.c b/stage0/stdlib/Init/Lean/Expr.c index 98903a8f77..df648ec3cf 100644 --- a/stage0/stdlib/Init/Lean/Expr.c +++ b/stage0/stdlib/Init/Lean/Expr.c @@ -32,6 +32,7 @@ lean_object* l_Lean_Expr_getAppNumArgs___boxed(lean_object*); lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l_Lean_Expr_isAppOf___boxed(lean_object*, lean_object*); lean_object* l_Lean_mkSort(lean_object*); +uint8_t l_Lean_Expr_isHeadBetaTargetFn(lean_object*); uint8_t l_UInt64_decEq(uint64_t, uint64_t); lean_object* l_Lean_Expr_HasBeq___closed__1; lean_object* l_Lean_Expr_abstract___boxed(lean_object*, lean_object*); @@ -143,7 +144,6 @@ lean_object* l_Lean_Expr_isAppOfArity___main___boxed(lean_object*, lean_object*, lean_object* l_Lean_BinderInfo_hashable___closed__1; lean_object* l_Lean_Expr_letName_x21___boxed(lean_object*); lean_object* l_Lean_Expr_updateForall_x21(lean_object*, uint8_t, lean_object*, lean_object*); -lean_object* l_Lean_Expr_isHeadBetaTarget___main___boxed(lean_object*); lean_object* l_Lean_Expr_looseBVarRange___boxed(lean_object*); lean_object* l___private_Init_Lean_Expr_12__getParamSubstArray___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_mkDataForBinder___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -300,6 +300,7 @@ lean_object* l_Lean_Expr_Data_hasLevelMVar___boxed(lean_object*); uint8_t l_Lean_Expr_Data_nonDepLet(uint64_t); lean_object* l_Lean_Literal_hasBeq___closed__1; lean_object* l_Lean_Level_instantiateParams___main___at_Lean_Expr_instantiateLevelParamsArray___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_isHeadBetaTargetFn___boxed(lean_object*); lean_object* l_Lean_Expr_consumeMData(lean_object*); uint64_t l_UInt64_land(uint64_t, uint64_t); lean_object* l___private_Init_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); @@ -398,6 +399,7 @@ extern uint8_t l_Bool_Inhabited; lean_object* l_Lean_Expr_bvarIdx_x21___closed__1; lean_object* lean_panic_fn(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_isHeadBetaTargetFn___main(lean_object*); uint32_t l_USize_toUInt32(size_t); lean_object* l_Lean_Expr_withApp___rarg(lean_object*, lean_object*); lean_object* l_Lean_Expr_isAppOfArity___boxed(lean_object*, lean_object*, lean_object*); @@ -474,6 +476,7 @@ lean_object* l_Lean_BinderInfo_hashable; lean_object* l_Lean_Expr_InstantiateLevelParams_instantiate___main(lean_object*, lean_object*); lean_object* l_Lean_Expr_mkData___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_BinderInfo_isExplicit___boxed(lean_object*); +lean_object* l_Lean_Expr_isHeadBetaTargetFn___main___boxed(lean_object*); lean_object* l_Lean_Expr_HasToString___closed__1; uint64_t l_Lean_Expr_mkData___closed__1; lean_object* l_Lean_Expr_hashEx___boxed(lean_object*); @@ -490,7 +493,6 @@ uint8_t l_List_foldr___main___at_Lean_mkConst___spec__4(uint8_t, lean_object*); lean_object* l_Lean_Expr_etaExpandedStrict_x3f(lean_object*); lean_object* l_Lean_Expr_updateLambdaE_x21(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_hasLooseBVar___boxed(lean_object*, lean_object*); -uint8_t l_Lean_Expr_isHeadBetaTarget___main(lean_object*); lean_object* l___private_Init_Lean_Expr_1__Expr_mkDataCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Nat_Inhabited; uint64_t l_UInt64_shiftRight(uint64_t, uint64_t); @@ -6978,7 +6980,7 @@ lean_dec(x_1); return x_3; } } -uint8_t l_Lean_Expr_isHeadBetaTarget___main(lean_object* x_1) { +uint8_t l_Lean_Expr_isHeadBetaTargetFn___main(lean_object* x_1) { _start: { switch (lean_obj_tag(x_1)) { @@ -7004,29 +7006,29 @@ return x_5; } } } -lean_object* l_Lean_Expr_isHeadBetaTarget___main___boxed(lean_object* x_1) { +lean_object* l_Lean_Expr_isHeadBetaTargetFn___main___boxed(lean_object* x_1) { _start: { uint8_t x_2; lean_object* x_3; -x_2 = l_Lean_Expr_isHeadBetaTarget___main(x_1); +x_2 = l_Lean_Expr_isHeadBetaTargetFn___main(x_1); lean_dec(x_1); x_3 = lean_box(x_2); return x_3; } } -uint8_t l_Lean_Expr_isHeadBetaTarget(lean_object* x_1) { +uint8_t l_Lean_Expr_isHeadBetaTargetFn(lean_object* x_1) { _start: { uint8_t x_2; -x_2 = l_Lean_Expr_isHeadBetaTarget___main(x_1); +x_2 = l_Lean_Expr_isHeadBetaTargetFn___main(x_1); return x_2; } } -lean_object* l_Lean_Expr_isHeadBetaTarget___boxed(lean_object* x_1) { +lean_object* l_Lean_Expr_isHeadBetaTargetFn___boxed(lean_object* x_1) { _start: { uint8_t x_2; lean_object* x_3; -x_2 = l_Lean_Expr_isHeadBetaTarget(x_1); +x_2 = l_Lean_Expr_isHeadBetaTargetFn(x_1); lean_dec(x_1); x_3 = lean_box(x_2); return x_3; @@ -7037,7 +7039,7 @@ _start: { lean_object* x_2; uint8_t x_3; x_2 = l_Lean_Expr_getAppFn___main(x_1); -x_3 = l_Lean_Expr_isHeadBetaTarget___main(x_2); +x_3 = l_Lean_Expr_isHeadBetaTargetFn___main(x_2); if (x_3 == 0) { lean_dec(x_2); @@ -7058,6 +7060,26 @@ return x_8; } } } +uint8_t l_Lean_Expr_isHeadBetaTarget(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; +x_2 = l_Lean_Expr_getAppFn___main(x_1); +x_3 = l_Lean_Expr_isHeadBetaTargetFn___main(x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Lean_Expr_isHeadBetaTarget___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Expr_isHeadBetaTarget(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} lean_object* l___private_Init_Lean_Expr_8__etaExpandedBody___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -7622,7 +7644,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(781u); +x_2 = lean_unsigned_to_nat(784u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_appFn_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7664,7 +7686,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(790u); +x_2 = lean_unsigned_to_nat(793u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_constName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7713,7 +7735,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(799u); +x_2 = lean_unsigned_to_nat(802u); x_3 = lean_unsigned_to_nat(14u); x_4 = l_Lean_Expr_updateSort_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7770,7 +7792,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(816u); +x_2 = lean_unsigned_to_nat(819u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_updateMData_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7811,7 +7833,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(821u); +x_2 = lean_unsigned_to_nat(824u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_updateProj_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7862,7 +7884,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(830u); +x_2 = lean_unsigned_to_nat(833u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_updateForall_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7906,7 +7928,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(835u); +x_2 = lean_unsigned_to_nat(838u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_updateForall_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7960,7 +7982,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(844u); +x_2 = lean_unsigned_to_nat(847u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_updateLambda_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -8004,7 +8026,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(849u); +x_2 = lean_unsigned_to_nat(852u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_updateLambda_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -8048,7 +8070,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___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(858u); +x_2 = lean_unsigned_to_nat(861u); x_3 = lean_unsigned_to_nat(20u); x_4 = l_Lean_Expr_letName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); diff --git a/stage0/stdlib/Init/Lean/Meta/AppBuilder.c b/stage0/stdlib/Init/Lean/Meta/AppBuilder.c index 95b07fb362..d486e6e97a 100644 --- a/stage0/stdlib/Init/Lean/Meta/AppBuilder.c +++ b/stage0/stdlib/Init/Lean/Meta/AppBuilder.c @@ -30,7 +30,9 @@ lean_object* l_Lean_Meta_mkEqSymm___closed__1; lean_object* l_Lean_Meta_mkAppM(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongr___closed__2; extern lean_object* l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__2; +extern lean_object* l_PersistentHashMap_mkCollisionNode___rarg___closed__1; extern lean_object* l_Array_empty___closed__1; +lean_object* lean_environment_find(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongr(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrFun(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_Trace_3__getResetTraces___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__6___rarg(lean_object*); @@ -39,6 +41,8 @@ uint8_t l_Lean_Expr_isAppOf(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Expr_getAppFn___main(lean_object*); +extern lean_object* l_Lean_Expr_getAppArgs___closed__1; lean_object* l_Lean_Meta_mkEqMP(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrArg___closed__2; lean_object* l_Lean_Meta_mkEqNDRec___closed__3; @@ -57,12 +61,16 @@ lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___boxed(l lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqMP___closed__1; lean_object* l_Lean_Meta_mkEqMP___closed__2; +lean_object* l_Lean_Meta_mkNoConfusion___closed__3; lean_object* l_Lean_Meta_mkEqSymm(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_AppBuilder_1__infer(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrArg___closed__3; lean_object* l_Lean_Expr_heq_x3f___closed__2; +lean_object* l_Lean_Meta_mkNoConfusion___closed__1; lean_object* l_Lean_Expr_iff_x3f___closed__2; +lean_object* l_Lean_Meta_mkNoConfusion___closed__4; lean_object* l_Lean_Expr_heq_x3f(lean_object*); +lean_object* l_Lean_Meta_mkNoConfusion___closed__2; lean_object* lean_instantiate_type_lparams(lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkHEqRefl___closed__1; @@ -81,12 +89,16 @@ lean_object* l_Lean_mkLambda(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrFun___closed__2; lean_object* l_Lean_Meta_mkEqMPR___closed__2; lean_object* l_Lean_Meta_mkEqSymm___closed__3; +lean_object* l___private_Init_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqNDRec___closed__4; uint8_t l_Lean_Expr_isForall(lean_object*); lean_object* l_Lean_Meta_mkEqRefl___closed__1; +lean_object* l_Lean_Meta_whnf(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*); uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_Data_binderInfo(uint64_t); +lean_object* l_Lean_Meta_mkEqOfHEq___closed__1; +lean_object* l_Lean_Meta_mkEqOfHEq___closed__2; lean_object* l_Lean_Meta_mkEqRefl___closed__2; lean_object* l_Lean_Expr_heq_x3f___closed__1; lean_object* l_Lean_Meta_mkEqNDRec___closed__1; @@ -114,16 +126,19 @@ lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrArg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1; extern lean_object* l_Lean_mkAppStx___closed__9; +lean_object* l_Lean_Meta_mkEqOfHEq___closed__3; lean_object* l_Lean_Meta_mkEqMPR___closed__1; lean_object* l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); 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_Expr_arrow_x3f___boxed(lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); +lean_object* lean_mk_array(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); @@ -136,6 +151,7 @@ lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_obj lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); 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_mkConst(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqOfHEq(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkCongrFun___closed__3; lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2; lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); @@ -2662,6 +2678,575 @@ return x_170; } } } +lean_object* _init_l_Lean_Meta_mkEqOfHEq___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("eqOfHEq"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkEqOfHEq___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_mkEqOfHEq___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkEqOfHEq___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("heterogeneous equality types are not definitionally equal"); +return x_1; +} +} +lean_object* l_Lean_Meta_mkEqOfHEq(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___private_Init_Lean_Meta_AppBuilder_1__infer(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_9; uint8_t x_10; +x_6 = lean_ctor_get(x_4, 0); +x_7 = lean_ctor_get(x_4, 1); +x_8 = l_Lean_Expr_heq_x3f___closed__2; +x_9 = lean_unsigned_to_nat(4u); +x_10 = l_Lean_Expr_isAppOfArity___main(x_6, x_8, x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +lean_dec(x_6); +x_11 = lean_ctor_get(x_7, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_7, 1); +lean_inc(x_12); +x_13 = lean_ctor_get(x_2, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_2, 0); +lean_inc(x_14); +lean_dec(x_2); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +lean_dec(x_14); +x_16 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_16, 0, x_11); +lean_ctor_set(x_16, 1, x_12); +lean_ctor_set(x_16, 2, x_13); +lean_ctor_set(x_16, 3, x_15); +x_17 = l_Lean_mkOptionalNode___closed__2; +x_18 = lean_array_push(x_17, x_1); +x_19 = l_Lean_Meta_mkHEqTrans___closed__1; +x_20 = l_Lean_Meta_mkHEqSymm___closed__2; +x_21 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +lean_ctor_set(x_21, 2, x_18); +lean_ctor_set(x_21, 3, x_16); +lean_ctor_set_tag(x_4, 1); +lean_ctor_set(x_4, 0, x_21); +return x_4; +} +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; 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_free_object(x_4); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Lean_Expr_getAppNumArgsAux___main(x_6, x_22); +x_24 = lean_nat_sub(x_23, x_22); +x_25 = lean_unsigned_to_nat(1u); +x_26 = lean_nat_sub(x_24, x_25); +lean_dec(x_24); +x_27 = l_Lean_Expr_getRevArg_x21___main(x_6, x_26); +x_28 = lean_nat_sub(x_23, x_25); +x_29 = lean_nat_sub(x_28, x_25); +lean_dec(x_28); +x_30 = l_Lean_Expr_getRevArg_x21___main(x_6, x_29); +x_31 = lean_unsigned_to_nat(2u); +x_32 = lean_nat_sub(x_23, x_31); +x_33 = lean_nat_sub(x_32, x_25); +lean_dec(x_32); +x_34 = l_Lean_Expr_getRevArg_x21___main(x_6, x_33); +x_35 = lean_nat_sub(x_23, x_9); +lean_dec(x_23); +x_36 = lean_nat_sub(x_35, x_25); +lean_dec(x_35); +x_37 = l_Lean_Expr_getRevArg_x21___main(x_6, x_36); +lean_dec(x_6); +lean_inc(x_2); +lean_inc(x_34); +lean_inc(x_27); +x_38 = l_Lean_Meta_isExprDefEq(x_27, x_34, x_2, x_7); +if (lean_obj_tag(x_38) == 0) +{ +lean_object* x_39; uint8_t x_40; +x_39 = lean_ctor_get(x_38, 0); +lean_inc(x_39); +x_40 = lean_unbox(x_39); +lean_dec(x_39); +if (x_40 == 0) +{ +uint8_t x_41; +lean_dec(x_37); +lean_dec(x_30); +lean_dec(x_1); +x_41 = !lean_is_exclusive(x_38); +if (x_41 == 0) +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_42 = lean_ctor_get(x_38, 1); +x_43 = lean_ctor_get(x_38, 0); +lean_dec(x_43); +x_44 = lean_ctor_get(x_42, 0); +lean_inc(x_44); +x_45 = lean_ctor_get(x_42, 1); +lean_inc(x_45); +x_46 = lean_ctor_get(x_2, 1); +lean_inc(x_46); +x_47 = lean_ctor_get(x_2, 0); +lean_inc(x_47); +lean_dec(x_2); +x_48 = lean_ctor_get(x_47, 0); +lean_inc(x_48); +lean_dec(x_47); +x_49 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_49, 0, x_44); +lean_ctor_set(x_49, 1, x_45); +lean_ctor_set(x_49, 2, x_46); +lean_ctor_set(x_49, 3, x_48); +x_50 = l_Lean_mkAppStx___closed__9; +x_51 = lean_array_push(x_50, x_27); +x_52 = lean_array_push(x_51, x_34); +x_53 = l_Lean_Meta_mkEqOfHEq___closed__2; +x_54 = l_Lean_Meta_mkEqOfHEq___closed__3; +x_55 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +lean_ctor_set(x_55, 2, x_52); +lean_ctor_set(x_55, 3, x_49); +lean_ctor_set_tag(x_38, 1); +lean_ctor_set(x_38, 0, x_55); +return x_38; +} +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; 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; +x_56 = lean_ctor_get(x_38, 1); +lean_inc(x_56); +lean_dec(x_38); +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_56, 1); +lean_inc(x_58); +x_59 = lean_ctor_get(x_2, 1); +lean_inc(x_59); +x_60 = lean_ctor_get(x_2, 0); +lean_inc(x_60); +lean_dec(x_2); +x_61 = lean_ctor_get(x_60, 0); +lean_inc(x_61); +lean_dec(x_60); +x_62 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_62, 0, x_57); +lean_ctor_set(x_62, 1, x_58); +lean_ctor_set(x_62, 2, x_59); +lean_ctor_set(x_62, 3, x_61); +x_63 = l_Lean_mkAppStx___closed__9; +x_64 = lean_array_push(x_63, x_27); +x_65 = lean_array_push(x_64, x_34); +x_66 = l_Lean_Meta_mkEqOfHEq___closed__2; +x_67 = l_Lean_Meta_mkEqOfHEq___closed__3; +x_68 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_67); +lean_ctor_set(x_68, 2, x_65); +lean_ctor_set(x_68, 3, x_62); +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_56); +return x_69; +} +} +else +{ +lean_object* x_70; lean_object* x_71; +lean_dec(x_34); +x_70 = lean_ctor_get(x_38, 1); +lean_inc(x_70); +lean_dec(x_38); +lean_inc(x_27); +x_71 = l_Lean_Meta_getLevel(x_27, x_2, x_70); +if (lean_obj_tag(x_71) == 0) +{ +uint8_t x_72; +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; lean_object* x_77; lean_object* x_78; +x_73 = lean_ctor_get(x_71, 0); +x_74 = lean_box(0); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_73); +lean_ctor_set(x_75, 1, x_74); +x_76 = l_Lean_Meta_mkEqOfHEq___closed__2; +x_77 = l_Lean_mkConst(x_76, x_75); +x_78 = l_Lean_mkApp4(x_77, x_27, x_30, x_37, x_1); +lean_ctor_set(x_71, 0, x_78); +return x_71; +} +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_71, 0); +x_80 = lean_ctor_get(x_71, 1); +lean_inc(x_80); +lean_inc(x_79); +lean_dec(x_71); +x_81 = lean_box(0); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_79); +lean_ctor_set(x_82, 1, x_81); +x_83 = l_Lean_Meta_mkEqOfHEq___closed__2; +x_84 = l_Lean_mkConst(x_83, x_82); +x_85 = l_Lean_mkApp4(x_84, x_27, x_30, x_37, x_1); +x_86 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_86, 0, x_85); +lean_ctor_set(x_86, 1, x_80); +return x_86; +} +} +else +{ +uint8_t x_87; +lean_dec(x_37); +lean_dec(x_30); +lean_dec(x_27); +lean_dec(x_1); +x_87 = !lean_is_exclusive(x_71); +if (x_87 == 0) +{ +return x_71; +} +else +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_71, 0); +x_89 = lean_ctor_get(x_71, 1); +lean_inc(x_89); +lean_inc(x_88); +lean_dec(x_71); +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_37); +lean_dec(x_34); +lean_dec(x_30); +lean_dec(x_27); +lean_dec(x_2); +lean_dec(x_1); +x_91 = !lean_is_exclusive(x_38); +if (x_91 == 0) +{ +return x_38; +} +else +{ +lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_92 = lean_ctor_get(x_38, 0); +x_93 = lean_ctor_get(x_38, 1); +lean_inc(x_93); +lean_inc(x_92); +lean_dec(x_38); +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_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; uint8_t x_99; +x_95 = lean_ctor_get(x_4, 0); +x_96 = lean_ctor_get(x_4, 1); +lean_inc(x_96); +lean_inc(x_95); +lean_dec(x_4); +x_97 = l_Lean_Expr_heq_x3f___closed__2; +x_98 = lean_unsigned_to_nat(4u); +x_99 = l_Lean_Expr_isAppOfArity___main(x_95, x_97, x_98); +if (x_99 == 0) +{ +lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; +lean_dec(x_95); +x_100 = lean_ctor_get(x_96, 0); +lean_inc(x_100); +x_101 = lean_ctor_get(x_96, 1); +lean_inc(x_101); +x_102 = lean_ctor_get(x_2, 1); +lean_inc(x_102); +x_103 = lean_ctor_get(x_2, 0); +lean_inc(x_103); +lean_dec(x_2); +x_104 = lean_ctor_get(x_103, 0); +lean_inc(x_104); +lean_dec(x_103); +x_105 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_105, 0, x_100); +lean_ctor_set(x_105, 1, x_101); +lean_ctor_set(x_105, 2, x_102); +lean_ctor_set(x_105, 3, x_104); +x_106 = l_Lean_mkOptionalNode___closed__2; +x_107 = lean_array_push(x_106, x_1); +x_108 = l_Lean_Meta_mkHEqTrans___closed__1; +x_109 = l_Lean_Meta_mkHEqSymm___closed__2; +x_110 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_110, 0, x_108); +lean_ctor_set(x_110, 1, x_109); +lean_ctor_set(x_110, 2, x_107); +lean_ctor_set(x_110, 3, x_105); +x_111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_111, 0, x_110); +lean_ctor_set(x_111, 1, x_96); +return x_111; +} +else +{ +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; 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; +x_112 = lean_unsigned_to_nat(0u); +x_113 = l_Lean_Expr_getAppNumArgsAux___main(x_95, x_112); +x_114 = lean_nat_sub(x_113, x_112); +x_115 = lean_unsigned_to_nat(1u); +x_116 = lean_nat_sub(x_114, x_115); +lean_dec(x_114); +x_117 = l_Lean_Expr_getRevArg_x21___main(x_95, x_116); +x_118 = lean_nat_sub(x_113, x_115); +x_119 = lean_nat_sub(x_118, x_115); +lean_dec(x_118); +x_120 = l_Lean_Expr_getRevArg_x21___main(x_95, x_119); +x_121 = lean_unsigned_to_nat(2u); +x_122 = lean_nat_sub(x_113, x_121); +x_123 = lean_nat_sub(x_122, x_115); +lean_dec(x_122); +x_124 = l_Lean_Expr_getRevArg_x21___main(x_95, x_123); +x_125 = lean_nat_sub(x_113, x_98); +lean_dec(x_113); +x_126 = lean_nat_sub(x_125, x_115); +lean_dec(x_125); +x_127 = l_Lean_Expr_getRevArg_x21___main(x_95, x_126); +lean_dec(x_95); +lean_inc(x_2); +lean_inc(x_124); +lean_inc(x_117); +x_128 = l_Lean_Meta_isExprDefEq(x_117, x_124, x_2, x_96); +if (lean_obj_tag(x_128) == 0) +{ +lean_object* x_129; uint8_t x_130; +x_129 = lean_ctor_get(x_128, 0); +lean_inc(x_129); +x_130 = lean_unbox(x_129); +lean_dec(x_129); +if (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; 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_127); +lean_dec(x_120); +lean_dec(x_1); +x_131 = lean_ctor_get(x_128, 1); +lean_inc(x_131); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_132 = x_128; +} else { + lean_dec_ref(x_128); + x_132 = lean_box(0); +} +x_133 = lean_ctor_get(x_131, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_131, 1); +lean_inc(x_134); +x_135 = lean_ctor_get(x_2, 1); +lean_inc(x_135); +x_136 = lean_ctor_get(x_2, 0); +lean_inc(x_136); +lean_dec(x_2); +x_137 = lean_ctor_get(x_136, 0); +lean_inc(x_137); +lean_dec(x_136); +x_138 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_138, 0, x_133); +lean_ctor_set(x_138, 1, x_134); +lean_ctor_set(x_138, 2, x_135); +lean_ctor_set(x_138, 3, x_137); +x_139 = l_Lean_mkAppStx___closed__9; +x_140 = lean_array_push(x_139, x_117); +x_141 = lean_array_push(x_140, x_124); +x_142 = l_Lean_Meta_mkEqOfHEq___closed__2; +x_143 = l_Lean_Meta_mkEqOfHEq___closed__3; +x_144 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_144, 0, x_142); +lean_ctor_set(x_144, 1, x_143); +lean_ctor_set(x_144, 2, x_141); +lean_ctor_set(x_144, 3, x_138); +if (lean_is_scalar(x_132)) { + x_145 = lean_alloc_ctor(1, 2, 0); +} else { + x_145 = x_132; + lean_ctor_set_tag(x_145, 1); +} +lean_ctor_set(x_145, 0, x_144); +lean_ctor_set(x_145, 1, x_131); +return x_145; +} +else +{ +lean_object* x_146; lean_object* x_147; +lean_dec(x_124); +x_146 = lean_ctor_get(x_128, 1); +lean_inc(x_146); +lean_dec(x_128); +lean_inc(x_117); +x_147 = l_Lean_Meta_getLevel(x_117, x_2, x_146); +if (lean_obj_tag(x_147) == 0) +{ +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_148 = lean_ctor_get(x_147, 0); +lean_inc(x_148); +x_149 = lean_ctor_get(x_147, 1); +lean_inc(x_149); +if (lean_is_exclusive(x_147)) { + lean_ctor_release(x_147, 0); + lean_ctor_release(x_147, 1); + x_150 = x_147; +} else { + lean_dec_ref(x_147); + x_150 = lean_box(0); +} +x_151 = lean_box(0); +x_152 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_152, 0, x_148); +lean_ctor_set(x_152, 1, x_151); +x_153 = l_Lean_Meta_mkEqOfHEq___closed__2; +x_154 = l_Lean_mkConst(x_153, x_152); +x_155 = l_Lean_mkApp4(x_154, x_117, x_120, x_127, x_1); +if (lean_is_scalar(x_150)) { + x_156 = lean_alloc_ctor(0, 2, 0); +} else { + x_156 = x_150; +} +lean_ctor_set(x_156, 0, x_155); +lean_ctor_set(x_156, 1, x_149); +return x_156; +} +else +{ +lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; +lean_dec(x_127); +lean_dec(x_120); +lean_dec(x_117); +lean_dec(x_1); +x_157 = lean_ctor_get(x_147, 0); +lean_inc(x_157); +x_158 = lean_ctor_get(x_147, 1); +lean_inc(x_158); +if (lean_is_exclusive(x_147)) { + lean_ctor_release(x_147, 0); + lean_ctor_release(x_147, 1); + x_159 = x_147; +} else { + lean_dec_ref(x_147); + x_159 = lean_box(0); +} +if (lean_is_scalar(x_159)) { + x_160 = lean_alloc_ctor(1, 2, 0); +} else { + x_160 = x_159; +} +lean_ctor_set(x_160, 0, x_157); +lean_ctor_set(x_160, 1, x_158); +return x_160; +} +} +} +else +{ +lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; +lean_dec(x_127); +lean_dec(x_124); +lean_dec(x_120); +lean_dec(x_117); +lean_dec(x_2); +lean_dec(x_1); +x_161 = lean_ctor_get(x_128, 0); +lean_inc(x_161); +x_162 = lean_ctor_get(x_128, 1); +lean_inc(x_162); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_163 = x_128; +} else { + lean_dec_ref(x_128); + x_163 = lean_box(0); +} +if (lean_is_scalar(x_163)) { + x_164 = lean_alloc_ctor(1, 2, 0); +} else { + x_164 = x_163; +} +lean_ctor_set(x_164, 0, x_161); +lean_ctor_set(x_164, 1, x_162); +return x_164; +} +} +} +} +else +{ +uint8_t x_165; +lean_dec(x_2); +lean_dec(x_1); +x_165 = !lean_is_exclusive(x_4); +if (x_165 == 0) +{ +return x_4; +} +else +{ +lean_object* x_166; lean_object* x_167; lean_object* x_168; +x_166 = lean_ctor_get(x_4, 0); +x_167 = lean_ctor_get(x_4, 1); +lean_inc(x_167); +lean_inc(x_166); +lean_dec(x_4); +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; +} +} +} +} lean_object* _init_l_Lean_Meta_mkCongrArg___closed__1() { _start: { @@ -8680,6 +9265,753 @@ lean_dec(x_7); return x_9; } } +lean_object* _init_l_Lean_Meta_mkNoConfusion___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("noConfusion"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkNoConfusion___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_mkNoConfusion___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkNoConfusion___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("equality expected"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkNoConfusion___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("inductive type expected"); +return x_1; +} +} +lean_object* l_Lean_Meta_mkNoConfusion(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); +x_5 = l_Lean_Meta_inferType(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); +lean_inc(x_3); +x_8 = l_Lean_Meta_whnf(x_6, x_3, x_7); +if (lean_obj_tag(x_8) == 0) +{ +uint8_t x_9; +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; uint8_t x_14; +x_10 = lean_ctor_get(x_8, 0); +x_11 = lean_ctor_get(x_8, 1); +x_12 = l_Lean_Expr_eq_x3f___closed__2; +x_13 = lean_unsigned_to_nat(3u); +x_14 = l_Lean_Expr_isAppOfArity___main(x_10, x_12, 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; lean_object* x_23; lean_object* x_24; lean_object* x_25; +lean_dec(x_10); +lean_dec(x_1); +x_15 = lean_ctor_get(x_11, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_11, 1); +lean_inc(x_16); +x_17 = lean_ctor_get(x_3, 1); +lean_inc(x_17); +x_18 = lean_ctor_get(x_3, 0); +lean_inc(x_18); +lean_dec(x_3); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +lean_dec(x_18); +x_20 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_20, 0, x_15); +lean_ctor_set(x_20, 1, x_16); +lean_ctor_set(x_20, 2, x_17); +lean_ctor_set(x_20, 3, x_19); +x_21 = l_Lean_mkOptionalNode___closed__2; +x_22 = lean_array_push(x_21, x_2); +x_23 = l_Lean_Meta_mkNoConfusion___closed__2; +x_24 = l_Lean_Meta_mkNoConfusion___closed__3; +x_25 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_25, 0, x_23); +lean_ctor_set(x_25, 1, x_24); +lean_ctor_set(x_25, 2, x_22); +lean_ctor_set(x_25, 3, x_20); +lean_ctor_set_tag(x_8, 1); +lean_ctor_set(x_8, 0, x_25); +return x_8; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +lean_free_object(x_8); +x_26 = lean_unsigned_to_nat(0u); +x_27 = l_Lean_Expr_getAppNumArgsAux___main(x_10, x_26); +x_28 = lean_nat_sub(x_27, x_26); +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_10, x_30); +x_32 = lean_nat_sub(x_27, x_29); +x_33 = lean_nat_sub(x_32, x_29); +lean_dec(x_32); +x_34 = l_Lean_Expr_getRevArg_x21___main(x_10, x_33); +x_35 = lean_unsigned_to_nat(2u); +x_36 = lean_nat_sub(x_27, x_35); +lean_dec(x_27); +x_37 = lean_nat_sub(x_36, x_29); +lean_dec(x_36); +x_38 = l_Lean_Expr_getRevArg_x21___main(x_10, x_37); +lean_dec(x_10); +lean_inc(x_3); +x_39 = l_Lean_Meta_whnf(x_31, x_3, x_11); +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_57; lean_object* x_58; +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_57 = lean_ctor_get(x_41, 0); +lean_inc(x_57); +x_58 = l_Lean_Expr_getAppFn___main(x_40); +if (lean_obj_tag(x_58) == 4) +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_59 = lean_ctor_get(x_58, 0); +lean_inc(x_59); +x_60 = lean_ctor_get(x_58, 1); +lean_inc(x_60); +lean_dec(x_58); +x_61 = lean_environment_find(x_57, x_59); +if (lean_obj_tag(x_61) == 0) +{ +lean_object* x_62; +lean_dec(x_60); +lean_dec(x_38); +lean_dec(x_34); +lean_dec(x_2); +lean_dec(x_1); +x_62 = lean_box(0); +x_43 = x_62; +goto block_56; +} +else +{ +lean_object* x_63; +x_63 = lean_ctor_get(x_61, 0); +lean_inc(x_63); +lean_dec(x_61); +if (lean_obj_tag(x_63) == 5) +{ +lean_object* x_64; lean_object* x_65; +lean_dec(x_42); +x_64 = lean_ctor_get(x_63, 0); +lean_inc(x_64); +lean_dec(x_63); +lean_inc(x_1); +x_65 = l_Lean_Meta_getLevel(x_1, x_3, x_41); +if (lean_obj_tag(x_65) == 0) +{ +uint8_t x_66; +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; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; +x_67 = lean_ctor_get(x_65, 0); +x_68 = lean_ctor_get(x_64, 0); +lean_inc(x_68); +lean_dec(x_64); +x_69 = lean_ctor_get(x_68, 0); +lean_inc(x_69); +lean_dec(x_68); +x_70 = l_Lean_Meta_mkNoConfusion___closed__1; +x_71 = lean_name_mk_string(x_69, x_70); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_67); +lean_ctor_set(x_72, 1, x_60); +x_73 = l_Lean_mkConst(x_71, x_72); +x_74 = l_Lean_Expr_getAppNumArgsAux___main(x_40, x_26); +x_75 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_74); +x_76 = lean_mk_array(x_74, x_75); +x_77 = lean_nat_sub(x_74, x_29); +lean_dec(x_74); +x_78 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_40, x_76, x_77); +x_79 = l_PersistentHashMap_mkCollisionNode___rarg___closed__1; +x_80 = lean_array_push(x_79, x_1); +x_81 = lean_array_push(x_80, x_34); +x_82 = lean_array_push(x_81, x_38); +x_83 = lean_array_push(x_82, x_2); +x_84 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_83, x_83, x_26, x_78); +lean_dec(x_83); +x_85 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_84, x_84, x_26, x_73); +lean_dec(x_84); +lean_ctor_set(x_65, 0, x_85); +return x_65; +} +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; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; +x_86 = lean_ctor_get(x_65, 0); +x_87 = lean_ctor_get(x_65, 1); +lean_inc(x_87); +lean_inc(x_86); +lean_dec(x_65); +x_88 = lean_ctor_get(x_64, 0); +lean_inc(x_88); +lean_dec(x_64); +x_89 = lean_ctor_get(x_88, 0); +lean_inc(x_89); +lean_dec(x_88); +x_90 = l_Lean_Meta_mkNoConfusion___closed__1; +x_91 = lean_name_mk_string(x_89, x_90); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_86); +lean_ctor_set(x_92, 1, x_60); +x_93 = l_Lean_mkConst(x_91, x_92); +x_94 = l_Lean_Expr_getAppNumArgsAux___main(x_40, x_26); +x_95 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_94); +x_96 = lean_mk_array(x_94, x_95); +x_97 = lean_nat_sub(x_94, x_29); +lean_dec(x_94); +x_98 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_40, x_96, x_97); +x_99 = l_PersistentHashMap_mkCollisionNode___rarg___closed__1; +x_100 = lean_array_push(x_99, x_1); +x_101 = lean_array_push(x_100, x_34); +x_102 = lean_array_push(x_101, x_38); +x_103 = lean_array_push(x_102, x_2); +x_104 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_103, x_103, x_26, x_98); +lean_dec(x_103); +x_105 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_104, x_104, x_26, x_93); +lean_dec(x_104); +x_106 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_106, 0, x_105); +lean_ctor_set(x_106, 1, x_87); +return x_106; +} +} +else +{ +uint8_t x_107; +lean_dec(x_64); +lean_dec(x_60); +lean_dec(x_40); +lean_dec(x_38); +lean_dec(x_34); +lean_dec(x_2); +lean_dec(x_1); +x_107 = !lean_is_exclusive(x_65); +if (x_107 == 0) +{ +return x_65; +} +else +{ +lean_object* x_108; lean_object* x_109; lean_object* x_110; +x_108 = lean_ctor_get(x_65, 0); +x_109 = lean_ctor_get(x_65, 1); +lean_inc(x_109); +lean_inc(x_108); +lean_dec(x_65); +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 +{ +lean_object* x_111; +lean_dec(x_63); +lean_dec(x_60); +lean_dec(x_38); +lean_dec(x_34); +lean_dec(x_2); +lean_dec(x_1); +x_111 = lean_box(0); +x_43 = x_111; +goto block_56; +} +} +} +else +{ +lean_object* x_112; +lean_dec(x_58); +lean_dec(x_57); +lean_dec(x_38); +lean_dec(x_34); +lean_dec(x_2); +lean_dec(x_1); +x_112 = lean_box(0); +x_43 = x_112; +goto block_56; +} +block_56: +{ +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_dec(x_43); +x_44 = lean_ctor_get(x_41, 0); +lean_inc(x_44); +x_45 = lean_ctor_get(x_41, 1); +lean_inc(x_45); +x_46 = lean_ctor_get(x_3, 1); +lean_inc(x_46); +x_47 = lean_ctor_get(x_3, 0); +lean_inc(x_47); +lean_dec(x_3); +x_48 = lean_ctor_get(x_47, 0); +lean_inc(x_48); +lean_dec(x_47); +x_49 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_49, 0, x_44); +lean_ctor_set(x_49, 1, x_45); +lean_ctor_set(x_49, 2, x_46); +lean_ctor_set(x_49, 3, x_48); +x_50 = l_Lean_mkOptionalNode___closed__2; +x_51 = lean_array_push(x_50, x_40); +x_52 = l_Lean_Meta_mkNoConfusion___closed__2; +x_53 = l_Lean_Meta_mkNoConfusion___closed__4; +x_54 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +lean_ctor_set(x_54, 2, x_51); +lean_ctor_set(x_54, 3, x_49); +if (lean_is_scalar(x_42)) { + x_55 = lean_alloc_ctor(1, 2, 0); +} else { + x_55 = x_42; + lean_ctor_set_tag(x_55, 1); +} +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_41); +return x_55; +} +} +else +{ +uint8_t x_113; +lean_dec(x_38); +lean_dec(x_34); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_113 = !lean_is_exclusive(x_39); +if (x_113 == 0) +{ +return x_39; +} +else +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; +x_114 = lean_ctor_get(x_39, 0); +x_115 = lean_ctor_get(x_39, 1); +lean_inc(x_115); +lean_inc(x_114); +lean_dec(x_39); +x_116 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_116, 0, x_114); +lean_ctor_set(x_116, 1, x_115); +return x_116; +} +} +} +} +else +{ +lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; uint8_t x_121; +x_117 = lean_ctor_get(x_8, 0); +x_118 = lean_ctor_get(x_8, 1); +lean_inc(x_118); +lean_inc(x_117); +lean_dec(x_8); +x_119 = l_Lean_Expr_eq_x3f___closed__2; +x_120 = lean_unsigned_to_nat(3u); +x_121 = l_Lean_Expr_isAppOfArity___main(x_117, x_119, x_120); +if (x_121 == 0) +{ +lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +lean_dec(x_117); +lean_dec(x_1); +x_122 = lean_ctor_get(x_118, 0); +lean_inc(x_122); +x_123 = lean_ctor_get(x_118, 1); +lean_inc(x_123); +x_124 = lean_ctor_get(x_3, 1); +lean_inc(x_124); +x_125 = lean_ctor_get(x_3, 0); +lean_inc(x_125); +lean_dec(x_3); +x_126 = lean_ctor_get(x_125, 0); +lean_inc(x_126); +lean_dec(x_125); +x_127 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_127, 0, x_122); +lean_ctor_set(x_127, 1, x_123); +lean_ctor_set(x_127, 2, x_124); +lean_ctor_set(x_127, 3, x_126); +x_128 = l_Lean_mkOptionalNode___closed__2; +x_129 = lean_array_push(x_128, x_2); +x_130 = l_Lean_Meta_mkNoConfusion___closed__2; +x_131 = l_Lean_Meta_mkNoConfusion___closed__3; +x_132 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_132, 0, x_130); +lean_ctor_set(x_132, 1, x_131); +lean_ctor_set(x_132, 2, x_129); +lean_ctor_set(x_132, 3, x_127); +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_118); +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; 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; +x_134 = lean_unsigned_to_nat(0u); +x_135 = l_Lean_Expr_getAppNumArgsAux___main(x_117, x_134); +x_136 = lean_nat_sub(x_135, x_134); +x_137 = lean_unsigned_to_nat(1u); +x_138 = lean_nat_sub(x_136, x_137); +lean_dec(x_136); +x_139 = l_Lean_Expr_getRevArg_x21___main(x_117, x_138); +x_140 = lean_nat_sub(x_135, x_137); +x_141 = lean_nat_sub(x_140, x_137); +lean_dec(x_140); +x_142 = l_Lean_Expr_getRevArg_x21___main(x_117, x_141); +x_143 = lean_unsigned_to_nat(2u); +x_144 = lean_nat_sub(x_135, x_143); +lean_dec(x_135); +x_145 = lean_nat_sub(x_144, x_137); +lean_dec(x_144); +x_146 = l_Lean_Expr_getRevArg_x21___main(x_117, x_145); +lean_dec(x_117); +lean_inc(x_3); +x_147 = l_Lean_Meta_whnf(x_139, x_3, x_118); +if (lean_obj_tag(x_147) == 0) +{ +lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_165; lean_object* x_166; +x_148 = lean_ctor_get(x_147, 0); +lean_inc(x_148); +x_149 = lean_ctor_get(x_147, 1); +lean_inc(x_149); +if (lean_is_exclusive(x_147)) { + lean_ctor_release(x_147, 0); + lean_ctor_release(x_147, 1); + x_150 = x_147; +} else { + lean_dec_ref(x_147); + x_150 = lean_box(0); +} +x_165 = lean_ctor_get(x_149, 0); +lean_inc(x_165); +x_166 = l_Lean_Expr_getAppFn___main(x_148); +if (lean_obj_tag(x_166) == 4) +{ +lean_object* x_167; lean_object* x_168; lean_object* x_169; +x_167 = lean_ctor_get(x_166, 0); +lean_inc(x_167); +x_168 = lean_ctor_get(x_166, 1); +lean_inc(x_168); +lean_dec(x_166); +x_169 = lean_environment_find(x_165, x_167); +if (lean_obj_tag(x_169) == 0) +{ +lean_object* x_170; +lean_dec(x_168); +lean_dec(x_146); +lean_dec(x_142); +lean_dec(x_2); +lean_dec(x_1); +x_170 = lean_box(0); +x_151 = x_170; +goto block_164; +} +else +{ +lean_object* x_171; +x_171 = lean_ctor_get(x_169, 0); +lean_inc(x_171); +lean_dec(x_169); +if (lean_obj_tag(x_171) == 5) +{ +lean_object* x_172; lean_object* x_173; +lean_dec(x_150); +x_172 = lean_ctor_get(x_171, 0); +lean_inc(x_172); +lean_dec(x_171); +lean_inc(x_1); +x_173 = l_Lean_Meta_getLevel(x_1, x_3, x_149); +if (lean_obj_tag(x_173) == 0) +{ +lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; +x_174 = lean_ctor_get(x_173, 0); +lean_inc(x_174); +x_175 = lean_ctor_get(x_173, 1); +lean_inc(x_175); +if (lean_is_exclusive(x_173)) { + lean_ctor_release(x_173, 0); + lean_ctor_release(x_173, 1); + x_176 = x_173; +} else { + lean_dec_ref(x_173); + x_176 = lean_box(0); +} +x_177 = lean_ctor_get(x_172, 0); +lean_inc(x_177); +lean_dec(x_172); +x_178 = lean_ctor_get(x_177, 0); +lean_inc(x_178); +lean_dec(x_177); +x_179 = l_Lean_Meta_mkNoConfusion___closed__1; +x_180 = lean_name_mk_string(x_178, x_179); +x_181 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_181, 0, x_174); +lean_ctor_set(x_181, 1, x_168); +x_182 = l_Lean_mkConst(x_180, x_181); +x_183 = l_Lean_Expr_getAppNumArgsAux___main(x_148, x_134); +x_184 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_183); +x_185 = lean_mk_array(x_183, x_184); +x_186 = lean_nat_sub(x_183, x_137); +lean_dec(x_183); +x_187 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_148, x_185, x_186); +x_188 = l_PersistentHashMap_mkCollisionNode___rarg___closed__1; +x_189 = lean_array_push(x_188, x_1); +x_190 = lean_array_push(x_189, x_142); +x_191 = lean_array_push(x_190, x_146); +x_192 = lean_array_push(x_191, x_2); +x_193 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_192, x_192, x_134, x_187); +lean_dec(x_192); +x_194 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_193, x_193, x_134, x_182); +lean_dec(x_193); +if (lean_is_scalar(x_176)) { + x_195 = lean_alloc_ctor(0, 2, 0); +} else { + x_195 = x_176; +} +lean_ctor_set(x_195, 0, x_194); +lean_ctor_set(x_195, 1, x_175); +return x_195; +} +else +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; +lean_dec(x_172); +lean_dec(x_168); +lean_dec(x_148); +lean_dec(x_146); +lean_dec(x_142); +lean_dec(x_2); +lean_dec(x_1); +x_196 = lean_ctor_get(x_173, 0); +lean_inc(x_196); +x_197 = lean_ctor_get(x_173, 1); +lean_inc(x_197); +if (lean_is_exclusive(x_173)) { + lean_ctor_release(x_173, 0); + lean_ctor_release(x_173, 1); + x_198 = x_173; +} else { + lean_dec_ref(x_173); + x_198 = lean_box(0); +} +if (lean_is_scalar(x_198)) { + x_199 = lean_alloc_ctor(1, 2, 0); +} else { + x_199 = x_198; +} +lean_ctor_set(x_199, 0, x_196); +lean_ctor_set(x_199, 1, x_197); +return x_199; +} +} +else +{ +lean_object* x_200; +lean_dec(x_171); +lean_dec(x_168); +lean_dec(x_146); +lean_dec(x_142); +lean_dec(x_2); +lean_dec(x_1); +x_200 = lean_box(0); +x_151 = x_200; +goto block_164; +} +} +} +else +{ +lean_object* x_201; +lean_dec(x_166); +lean_dec(x_165); +lean_dec(x_146); +lean_dec(x_142); +lean_dec(x_2); +lean_dec(x_1); +x_201 = lean_box(0); +x_151 = x_201; +goto block_164; +} +block_164: +{ +lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; +lean_dec(x_151); +x_152 = lean_ctor_get(x_149, 0); +lean_inc(x_152); +x_153 = lean_ctor_get(x_149, 1); +lean_inc(x_153); +x_154 = lean_ctor_get(x_3, 1); +lean_inc(x_154); +x_155 = lean_ctor_get(x_3, 0); +lean_inc(x_155); +lean_dec(x_3); +x_156 = lean_ctor_get(x_155, 0); +lean_inc(x_156); +lean_dec(x_155); +x_157 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_157, 0, x_152); +lean_ctor_set(x_157, 1, x_153); +lean_ctor_set(x_157, 2, x_154); +lean_ctor_set(x_157, 3, x_156); +x_158 = l_Lean_mkOptionalNode___closed__2; +x_159 = lean_array_push(x_158, x_148); +x_160 = l_Lean_Meta_mkNoConfusion___closed__2; +x_161 = l_Lean_Meta_mkNoConfusion___closed__4; +x_162 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_162, 0, x_160); +lean_ctor_set(x_162, 1, x_161); +lean_ctor_set(x_162, 2, x_159); +lean_ctor_set(x_162, 3, x_157); +if (lean_is_scalar(x_150)) { + x_163 = lean_alloc_ctor(1, 2, 0); +} else { + x_163 = x_150; + lean_ctor_set_tag(x_163, 1); +} +lean_ctor_set(x_163, 0, x_162); +lean_ctor_set(x_163, 1, x_149); +return x_163; +} +} +else +{ +lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; +lean_dec(x_146); +lean_dec(x_142); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_202 = lean_ctor_get(x_147, 0); +lean_inc(x_202); +x_203 = lean_ctor_get(x_147, 1); +lean_inc(x_203); +if (lean_is_exclusive(x_147)) { + lean_ctor_release(x_147, 0); + lean_ctor_release(x_147, 1); + x_204 = x_147; +} else { + lean_dec_ref(x_147); + x_204 = lean_box(0); +} +if (lean_is_scalar(x_204)) { + x_205 = lean_alloc_ctor(1, 2, 0); +} else { + x_205 = x_204; +} +lean_ctor_set(x_205, 0, x_202); +lean_ctor_set(x_205, 1, x_203); +return x_205; +} +} +} +} +else +{ +uint8_t x_206; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_206 = !lean_is_exclusive(x_8); +if (x_206 == 0) +{ +return x_8; +} +else +{ +lean_object* x_207; lean_object* x_208; lean_object* x_209; +x_207 = lean_ctor_get(x_8, 0); +x_208 = lean_ctor_get(x_8, 1); +lean_inc(x_208); +lean_inc(x_207); +lean_dec(x_8); +x_209 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_209, 0, x_207); +lean_ctor_set(x_209, 1, x_208); +return x_209; +} +} +} +else +{ +uint8_t x_210; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_210 = !lean_is_exclusive(x_5); +if (x_210 == 0) +{ +return x_5; +} +else +{ +lean_object* x_211; lean_object* x_212; lean_object* x_213; +x_211 = lean_ctor_get(x_5, 0); +x_212 = lean_ctor_get(x_5, 1); +lean_inc(x_212); +lean_inc(x_211); +lean_dec(x_5); +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; +} +} +} +} lean_object* initialize_Init_Default(lean_object*); lean_object* initialize_Init_Lean_Meta_SynthInstance(lean_object*); static bool _G_initialized = false; @@ -8727,6 +10059,12 @@ l_Lean_Meta_mkHEqSymm___closed__2 = _init_l_Lean_Meta_mkHEqSymm___closed__2(); lean_mark_persistent(l_Lean_Meta_mkHEqSymm___closed__2); l_Lean_Meta_mkHEqTrans___closed__1 = _init_l_Lean_Meta_mkHEqTrans___closed__1(); lean_mark_persistent(l_Lean_Meta_mkHEqTrans___closed__1); +l_Lean_Meta_mkEqOfHEq___closed__1 = _init_l_Lean_Meta_mkEqOfHEq___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkEqOfHEq___closed__1); +l_Lean_Meta_mkEqOfHEq___closed__2 = _init_l_Lean_Meta_mkEqOfHEq___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkEqOfHEq___closed__2); +l_Lean_Meta_mkEqOfHEq___closed__3 = _init_l_Lean_Meta_mkEqOfHEq___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkEqOfHEq___closed__3); l_Lean_Meta_mkCongrArg___closed__1 = _init_l_Lean_Meta_mkCongrArg___closed__1(); lean_mark_persistent(l_Lean_Meta_mkCongrArg___closed__1); l_Lean_Meta_mkCongrArg___closed__2 = _init_l_Lean_Meta_mkCongrArg___closed__2(); @@ -8771,6 +10109,14 @@ l_Lean_Meta_mkEqMPR___closed__1 = _init_l_Lean_Meta_mkEqMPR___closed__1(); lean_mark_persistent(l_Lean_Meta_mkEqMPR___closed__1); l_Lean_Meta_mkEqMPR___closed__2 = _init_l_Lean_Meta_mkEqMPR___closed__2(); lean_mark_persistent(l_Lean_Meta_mkEqMPR___closed__2); +l_Lean_Meta_mkNoConfusion___closed__1 = _init_l_Lean_Meta_mkNoConfusion___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkNoConfusion___closed__1); +l_Lean_Meta_mkNoConfusion___closed__2 = _init_l_Lean_Meta_mkNoConfusion___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkNoConfusion___closed__2); +l_Lean_Meta_mkNoConfusion___closed__3 = _init_l_Lean_Meta_mkNoConfusion___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkNoConfusion___closed__3); +l_Lean_Meta_mkNoConfusion___closed__4 = _init_l_Lean_Meta_mkNoConfusion___closed__4(); +lean_mark_persistent(l_Lean_Meta_mkNoConfusion___closed__4); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c b/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c index d82c24a06f..af2eeb6c24 100644 --- a/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c +++ b/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c @@ -79,7 +79,6 @@ lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___r lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_CheckAssignment_assignToConstFun___spec__4___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*); -uint8_t l_Lean_Expr_isApp(lean_object*); lean_object* l_Lean_Meta_CheckAssignment_checkFVar___at_Lean_Meta_CheckAssignment_check___main___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_Lean_MonadCache; uint8_t l_Lean_LocalContext_containsFVar(lean_object*, lean_object*); @@ -204,7 +203,6 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___mai lean_object* l___private_Init_Lean_Meta_ExprDefEq_39__isLetFVar(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_11__checkAssignmentFailure___closed__7; lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -uint8_t l_Array_isEmpty___rarg(lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_36__isSynthetic(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isEtaUnassignedMVar(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkLambda(lean_object*, uint8_t, lean_object*, lean_object*); @@ -29894,70 +29892,91 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox_ _start: { lean_object* x_6; lean_object* x_33; uint8_t x_34; -x_33 = lean_ctor_get(x_5, 4); +x_33 = lean_ctor_get(x_4, 0); lean_inc(x_33); x_34 = lean_ctor_get_uint8(x_33, sizeof(void*)*1); lean_dec(x_33); if (x_34 == 0) { +uint8_t x_35; lean_object* x_36; lean_object* x_37; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_35 = 0; +x_36 = lean_box(x_35); +x_37 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_5); +return x_37; +} +else +{ +lean_object* x_38; uint8_t x_39; +x_38 = lean_ctor_get(x_5, 4); +lean_inc(x_38); +x_39 = lean_ctor_get_uint8(x_38, sizeof(void*)*1); +lean_dec(x_38); +if (x_39 == 0) +{ x_6 = x_5; goto block_32; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; uint8_t x_38; -x_35 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___closed__2; -x_36 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_35, x_4, x_5); -x_37 = lean_ctor_get(x_36, 0); -lean_inc(x_37); -x_38 = lean_unbox(x_37); -lean_dec(x_37); -if (x_38 == 0) +lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; +x_40 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___closed__2; +x_41 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_40, x_4, x_5); +x_42 = lean_ctor_get(x_41, 0); +lean_inc(x_42); +x_43 = lean_unbox(x_42); +lean_dec(x_42); +if (x_43 == 0) { -lean_object* x_39; -x_39 = lean_ctor_get(x_36, 1); -lean_inc(x_39); -lean_dec(x_36); -x_6 = x_39; +lean_object* x_44; +x_44 = lean_ctor_get(x_41, 1); +lean_inc(x_44); +lean_dec(x_41); +x_6 = x_44; goto block_32; } else { -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; -x_40 = lean_ctor_get(x_36, 1); -lean_inc(x_40); -lean_dec(x_36); +lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_45 = lean_ctor_get(x_41, 1); +lean_inc(x_45); +lean_dec(x_41); lean_inc(x_1); -x_41 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_41, 0, x_1); -x_42 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; -x_43 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_43, 0, x_41); -lean_ctor_set(x_43, 1, x_42); -x_44 = lean_unsigned_to_nat(0u); -x_45 = l_Lean_MessageData_coeOfArrayExpr___closed__2; -x_46 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_2, x_44, 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___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__8; -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_46 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_46, 0, x_1); +x_47 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; +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 = lean_unsigned_to_nat(0u); +x_50 = l_Lean_MessageData_coeOfArrayExpr___closed__2; +x_51 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_2, x_49, x_50); +x_52 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_52, 0, x_48); +lean_ctor_set(x_52, 1, x_51); +x_53 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___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); lean_inc(x_3); -x_50 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_50, 0, x_3); -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_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_35, x_51, x_4, x_40); -x_53 = lean_ctor_get(x_52, 1); -lean_inc(x_53); -lean_dec(x_52); -x_6 = x_53; +x_55 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_55, 0, x_3); +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_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_40, x_56, x_4, x_45); +x_58 = lean_ctor_get(x_57, 1); +lean_inc(x_58); +lean_dec(x_57); +x_6 = x_58; goto block_32; } } +} block_32: { lean_object* x_7; @@ -37441,184 +37460,206 @@ return x_56; lean_object* l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; -x_6 = l_Lean_Expr_mvarId_x21(x_1); -x_7 = l_Array_empty___closed__1; -lean_inc(x_4); +lean_object* x_6; uint8_t x_7; +x_6 = lean_ctor_get(x_4, 0); lean_inc(x_6); -x_8 = l_Lean_Meta_checkAssignment(x_6, x_7, x_3, 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); -if (lean_obj_tag(x_9) == 0) -{ -uint8_t x_10; +x_7 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 3); lean_dec(x_6); +if (x_7 == 0) +{ +uint8_t x_8; lean_object* x_9; lean_object* x_10; lean_dec(x_4); +lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_10 = !lean_is_exclusive(x_8); -if (x_10 == 0) -{ -lean_object* x_11; uint8_t x_12; lean_object* x_13; -x_11 = lean_ctor_get(x_8, 0); -lean_dec(x_11); -x_12 = 0; -x_13 = lean_box(x_12); -lean_ctor_set(x_8, 0, x_13); -return x_8; +x_8 = 0; +x_9 = lean_box(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_5); +return x_10; } else { -lean_object* x_14; uint8_t x_15; lean_object* x_16; lean_object* x_17; -x_14 = lean_ctor_get(x_8, 1); +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = l_Lean_Expr_mvarId_x21(x_1); +x_12 = l_Array_empty___closed__1; +lean_inc(x_4); +lean_inc(x_11); +x_13 = l_Lean_Meta_checkAssignment(x_11, x_12, x_3, x_4, x_5); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_13, 0); lean_inc(x_14); -lean_dec(x_8); -x_15 = 0; -x_16 = lean_box(x_15); -x_17 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_17, 0, x_16); -lean_ctor_set(x_17, 1, x_14); -return x_17; +if (lean_obj_tag(x_14) == 0) +{ +uint8_t x_15; +lean_dec(x_11); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_15 = !lean_is_exclusive(x_13); +if (x_15 == 0) +{ +lean_object* x_16; uint8_t x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_13, 0); +lean_dec(x_16); +x_17 = 0; +x_18 = lean_box(x_17); +lean_ctor_set(x_13, 0, x_18); +return x_13; +} +else +{ +lean_object* x_19; uint8_t x_20; lean_object* x_21; lean_object* x_22; +x_19 = lean_ctor_get(x_13, 1); +lean_inc(x_19); +lean_dec(x_13); +x_20 = 0; +x_21 = lean_box(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_19); +return x_22; } } else { -lean_object* x_18; uint8_t x_19; -x_18 = lean_ctor_get(x_8, 1); -lean_inc(x_18); -lean_dec(x_8); -x_19 = !lean_is_exclusive(x_9); -if (x_19 == 0) -{ -lean_object* x_20; lean_object* x_21; -x_20 = lean_ctor_get(x_9, 0); -x_21 = l_Lean_Meta_getMVarDecl(x_6, x_4, x_18); -if (lean_obj_tag(x_21) == 0) -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_22 = lean_ctor_get(x_21, 0); -lean_inc(x_22); -x_23 = lean_ctor_get(x_21, 1); +lean_object* x_23; uint8_t x_24; +x_23 = lean_ctor_get(x_13, 1); lean_inc(x_23); -lean_dec(x_21); -x_24 = lean_ctor_get(x_22, 2); -lean_inc(x_24); -lean_dec(x_22); -lean_inc(x_2); -lean_ctor_set(x_9, 0, x_2); -x_25 = l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__1(x_1, x_2, x_20, x_24, x_9, x_4, x_23); -return x_25; -} -else +lean_dec(x_13); +x_24 = !lean_is_exclusive(x_14); +if (x_24 == 0) { -uint8_t x_26; -lean_free_object(x_9); -lean_dec(x_20); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_26 = !lean_is_exclusive(x_21); -if (x_26 == 0) +lean_object* x_25; lean_object* x_26; +x_25 = lean_ctor_get(x_14, 0); +x_26 = l_Lean_Meta_getMVarDecl(x_11, x_4, x_23); +if (lean_obj_tag(x_26) == 0) { -return x_21; -} -else -{ -lean_object* x_27; lean_object* x_28; lean_object* x_29; -x_27 = lean_ctor_get(x_21, 0); -x_28 = lean_ctor_get(x_21, 1); -lean_inc(x_28); +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_26, 0); lean_inc(x_27); -lean_dec(x_21); -x_29 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_29, 0, x_27); -lean_ctor_set(x_29, 1, x_28); -return x_29; -} -} -} -else -{ -lean_object* x_30; lean_object* x_31; -x_30 = lean_ctor_get(x_9, 0); -lean_inc(x_30); -lean_dec(x_9); -x_31 = l_Lean_Meta_getMVarDecl(x_6, x_4, x_18); -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); -lean_dec(x_31); -x_34 = lean_ctor_get(x_32, 2); -lean_inc(x_34); -lean_dec(x_32); +x_28 = lean_ctor_get(x_26, 1); +lean_inc(x_28); +lean_dec(x_26); +x_29 = lean_ctor_get(x_27, 2); +lean_inc(x_29); +lean_dec(x_27); lean_inc(x_2); -x_35 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_35, 0, x_2); -x_36 = l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__1(x_1, x_2, x_30, x_34, x_35, x_4, x_33); -return x_36; +lean_ctor_set(x_14, 0, x_2); +x_30 = l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__1(x_1, x_2, x_25, x_29, x_14, x_4, x_28); +return x_30; } else { -lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; -lean_dec(x_30); +uint8_t x_31; +lean_free_object(x_14); +lean_dec(x_25); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_37 = lean_ctor_get(x_31, 0); +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; +x_35 = lean_ctor_get(x_14, 0); +lean_inc(x_35); +lean_dec(x_14); +x_36 = l_Lean_Meta_getMVarDecl(x_11, x_4, x_23); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_37 = lean_ctor_get(x_36, 0); lean_inc(x_37); -x_38 = lean_ctor_get(x_31, 1); +x_38 = lean_ctor_get(x_36, 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; -} -} -} +lean_dec(x_36); +x_39 = lean_ctor_get(x_37, 2); +lean_inc(x_39); +lean_dec(x_37); +lean_inc(x_2); +x_40 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_40, 0, x_2); +x_41 = l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__1(x_1, x_2, x_35, x_39, x_40, x_4, x_38); +return x_41; } else { -uint8_t x_41; -lean_dec(x_6); +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; +lean_dec(x_35); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_41 = !lean_is_exclusive(x_8); -if (x_41 == 0) -{ -return x_8; +x_42 = lean_ctor_get(x_36, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_36, 1); +lean_inc(x_43); +if (lean_is_exclusive(x_36)) { + lean_ctor_release(x_36, 0); + lean_ctor_release(x_36, 1); + x_44 = x_36; +} else { + lean_dec_ref(x_36); + 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; +} +} +} } else { -lean_object* x_42; lean_object* x_43; lean_object* x_44; -x_42 = lean_ctor_get(x_8, 0); -x_43 = lean_ctor_get(x_8, 1); -lean_inc(x_43); -lean_inc(x_42); -lean_dec(x_8); -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; +uint8_t x_46; +lean_dec(x_11); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_46 = !lean_is_exclusive(x_13); +if (x_46 == 0) +{ +return x_13; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_13, 0); +x_48 = lean_ctor_get(x_13, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_13); +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; +} } } } @@ -37821,89 +37862,33 @@ return x_3; lean_object* l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___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) { _start: { -lean_object* x_8; uint8_t x_9; -x_8 = lean_array_get_size(x_5); -x_9 = lean_nat_dec_lt(x_4, x_8); -if (x_9 == 0) +lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_8 = lean_ctor_get(x_6, 0); +lean_inc(x_8); +x_9 = lean_array_get_size(x_4); +x_10 = lean_nat_dec_lt(x_3, x_9); +if (x_10 == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; uint8_t x_151; -lean_dec(x_4); -x_10 = lean_ctor_get(x_6, 0); -lean_inc(x_10); -x_11 = l_Lean_Meta_instantiateMVars(x_3, x_6, x_7); +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +lean_dec(x_8); +lean_dec(x_3); +lean_inc(x_5); +x_11 = l_Lean_Meta_instantiateMVars(x_5, x_6, x_7); 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_151 = lean_ctor_get_uint8(x_10, sizeof(void*)*1); -lean_dec(x_10); -if (x_151 == 0) -{ -uint8_t x_152; -x_152 = 0; -x_14 = x_152; -goto block_150; -} -else -{ -uint8_t x_153; -x_153 = l_Array_isEmpty___rarg(x_5); -if (x_153 == 0) -{ -x_14 = x_151; -goto block_150; -} -else -{ -uint8_t x_154; -x_154 = 0; -x_14 = x_154; -goto block_150; -} -} -block_150: -{ -lean_object* x_15; -if (x_14 == 0) -{ -lean_object* x_145; -x_145 = lean_box(0); -x_15 = x_145; -goto block_144; -} -else -{ -lean_object* x_146; uint8_t x_147; -x_146 = l_Lean_Expr_getAppFn___main(x_12); -x_147 = lean_expr_eqv(x_146, x_1); -lean_dec(x_146); -if (x_147 == 0) -{ -lean_object* x_148; -x_148 = lean_box(0); -x_15 = x_148; -goto block_144; -} -else -{ -lean_object* x_149; -lean_dec(x_8); -lean_dec(x_2); -x_149 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_13); -lean_dec(x_5); -return x_149; -} -} -block_144: +x_14 = l_Lean_Expr_getAppFn___main(x_12); +x_15 = lean_expr_eqv(x_14, x_1); +lean_dec(x_14); +if (x_15 == 0) { lean_object* x_16; lean_object* x_17; -lean_dec(x_15); x_16 = l_Lean_Expr_mvarId_x21(x_1); lean_inc(x_6); -lean_inc(x_12); -lean_inc(x_5); -x_17 = l_Lean_Meta_checkAssignment(x_16, x_5, x_12, x_6, x_13); +lean_inc(x_4); +x_17 = l_Lean_Meta_checkAssignment(x_16, x_4, x_12, x_6, x_13); if (lean_obj_tag(x_17) == 0) { lean_object* x_18; @@ -37911,503 +37896,449 @@ x_18 = lean_ctor_get(x_17, 0); lean_inc(x_18); if (lean_obj_tag(x_18) == 0) { -lean_dec(x_8); +lean_object* x_19; lean_object* x_20; lean_dec(x_2); -if (x_14 == 0) +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_20 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_4, x_5, x_6, x_19); +lean_dec(x_4); +if (lean_obj_tag(x_20) == 0) { -uint8_t x_19; -lean_dec(x_12); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_1); -x_19 = !lean_is_exclusive(x_17); -if (x_19 == 0) +lean_object* x_21; uint8_t x_22; +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_unbox(x_21); +if (x_22 == 0) { -lean_object* x_20; uint8_t x_21; lean_object* x_22; -x_20 = lean_ctor_get(x_17, 0); +lean_object* x_23; lean_object* x_24; +lean_dec(x_21); +x_23 = lean_ctor_get(x_20, 1); +lean_inc(x_23); lean_dec(x_20); -x_21 = 0; -x_22 = lean_box(x_21); -lean_ctor_set(x_17, 0, x_22); -return x_17; +x_24 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_9, x_5, x_6, x_23); +return x_24; } else { -lean_object* x_23; uint8_t x_24; lean_object* x_25; lean_object* x_26; -x_23 = lean_ctor_get(x_17, 1); -lean_inc(x_23); -lean_dec(x_17); -x_24 = 0; -x_25 = lean_box(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_23); -return x_26; -} +uint8_t x_25; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_25 = !lean_is_exclusive(x_20); +if (x_25 == 0) +{ +lean_object* x_26; +x_26 = lean_ctor_get(x_20, 0); +lean_dec(x_26); +return x_20; } else { lean_object* x_27; lean_object* x_28; -x_27 = lean_ctor_get(x_17, 1); +x_27 = lean_ctor_get(x_20, 1); lean_inc(x_27); -lean_dec(x_17); -x_28 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_27); -lean_dec(x_5); +lean_dec(x_20); +x_28 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_28, 0, x_21); +lean_ctor_set(x_28, 1, x_27); return x_28; } } -else -{ -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_119; uint8_t x_120; -x_29 = lean_ctor_get(x_17, 1); -lean_inc(x_29); -lean_dec(x_17); -x_30 = lean_ctor_get(x_18, 0); -lean_inc(x_30); -lean_dec(x_18); -x_119 = lean_ctor_get(x_29, 4); -lean_inc(x_119); -x_120 = lean_ctor_get_uint8(x_119, sizeof(void*)*1); -lean_dec(x_119); -if (x_120 == 0) -{ -x_31 = x_29; -goto block_118; } else { -lean_object* x_121; lean_object* x_122; lean_object* x_123; uint8_t x_124; -x_121 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__3; -x_122 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_121, x_6, x_29); -x_123 = lean_ctor_get(x_122, 0); -lean_inc(x_123); -x_124 = lean_unbox(x_123); -lean_dec(x_123); -if (x_124 == 0) -{ -lean_object* x_125; -x_125 = lean_ctor_get(x_122, 1); -lean_inc(x_125); -lean_dec(x_122); -x_31 = x_125; -goto block_118; -} -else -{ -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_126 = lean_ctor_get(x_122, 1); -lean_inc(x_126); -lean_dec(x_122); -lean_inc(x_1); -x_127 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_127, 0, x_1); -x_128 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; -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_unsigned_to_nat(0u); -x_131 = l_Lean_MessageData_coeOfArrayExpr___closed__2; -x_132 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_5, x_130, x_131); -x_133 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_133, 0, x_129); -lean_ctor_set(x_133, 1, x_132); -x_134 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__8; -x_135 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_135, 0, x_133); -lean_ctor_set(x_135, 1, x_134); -lean_inc(x_30); -x_136 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_136, 0, x_30); -x_137 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_137, 0, x_135); -lean_ctor_set(x_137, 1, x_136); -x_138 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_121, x_137, x_6, x_126); -x_139 = lean_ctor_get(x_138, 1); -lean_inc(x_139); -lean_dec(x_138); -x_31 = x_139; -goto block_118; -} -} -block_118: -{ -lean_object* x_32; -lean_inc(x_6); -lean_inc(x_5); -x_32 = l_Lean_Meta_mkLambda(x_5, x_30, x_6, x_31); -if (lean_obj_tag(x_32) == 0) -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; -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_unsigned_to_nat(0u); -x_36 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__1(x_2, x_5, x_5, x_8, x_35); -lean_dec(x_8); -if (x_36 == 0) -{ -lean_object* x_37; -lean_dec(x_12); +uint8_t x_29; +lean_dec(x_9); +lean_dec(x_6); lean_dec(x_5); -x_37 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign(x_1, x_33, x_6, x_34); -return x_37; +lean_dec(x_1); +x_29 = !lean_is_exclusive(x_20); +if (x_29 == 0) +{ +return x_20; } else { -lean_object* x_38; lean_object* x_39; uint8_t x_40; -lean_inc(x_6); +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_20, 0); +x_31 = lean_ctor_get(x_20, 1); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_20); +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 +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_98; uint8_t x_99; +x_33 = lean_ctor_get(x_17, 1); lean_inc(x_33); -x_38 = l_Lean_Meta_isTypeCorrect(x_33, x_6, x_34); -x_39 = lean_ctor_get(x_38, 0); -lean_inc(x_39); -x_40 = lean_unbox(x_39); -lean_dec(x_39); +lean_dec(x_17); +x_34 = lean_ctor_get(x_18, 0); +lean_inc(x_34); +lean_dec(x_18); +x_98 = lean_ctor_get(x_33, 4); +lean_inc(x_98); +x_99 = lean_ctor_get_uint8(x_98, sizeof(void*)*1); +lean_dec(x_98); +if (x_99 == 0) +{ +x_35 = x_33; +goto block_97; +} +else +{ +lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; +x_100 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__3; +x_101 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_100, x_6, x_33); +x_102 = lean_ctor_get(x_101, 0); +lean_inc(x_102); +x_103 = lean_unbox(x_102); +lean_dec(x_102); +if (x_103 == 0) +{ +lean_object* x_104; +x_104 = lean_ctor_get(x_101, 1); +lean_inc(x_104); +lean_dec(x_101); +x_35 = x_104; +goto block_97; +} +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; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; +x_105 = lean_ctor_get(x_101, 1); +lean_inc(x_105); +lean_dec(x_101); +lean_inc(x_1); +x_106 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_106, 0, x_1); +x_107 = l_Lean_Meta_Exception_toTraceMessageData___closed__4; +x_108 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_108, 0, x_106); +lean_ctor_set(x_108, 1, x_107); +x_109 = lean_unsigned_to_nat(0u); +x_110 = l_Lean_MessageData_coeOfArrayExpr___closed__2; +x_111 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_4, x_109, x_110); +x_112 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_112, 0, x_108); +lean_ctor_set(x_112, 1, x_111); +x_113 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__8; +x_114 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_114, 0, x_112); +lean_ctor_set(x_114, 1, x_113); +lean_inc(x_34); +x_115 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_115, 0, x_34); +x_116 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_116, 0, x_114); +lean_ctor_set(x_116, 1, x_115); +x_117 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_100, x_116, x_6, x_105); +x_118 = lean_ctor_get(x_117, 1); +lean_inc(x_118); +lean_dec(x_117); +x_35 = x_118; +goto block_97; +} +} +block_97: +{ +lean_object* x_36; +lean_inc(x_6); +lean_inc(x_4); +x_36 = l_Lean_Meta_mkLambda(x_4, x_34, x_6, x_35); +if (lean_obj_tag(x_36) == 0) +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t 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_unsigned_to_nat(0u); +x_40 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__1(x_2, x_4, x_4, x_9, x_39); if (x_40 == 0) { -uint8_t x_41; -x_41 = !lean_is_exclusive(x_38); -if (x_41 == 0) -{ -lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; -x_42 = lean_ctor_get(x_38, 1); -x_43 = lean_ctor_get(x_38, 0); -lean_dec(x_43); -x_44 = lean_ctor_get(x_42, 4); -lean_inc(x_44); -x_45 = lean_ctor_get_uint8(x_44, sizeof(void*)*1); -lean_dec(x_44); -if (x_45 == 0) -{ -lean_dec(x_33); -if (x_14 == 0) -{ -uint8_t x_46; lean_object* x_47; -lean_dec(x_12); -lean_dec(x_6); +lean_object* x_41; +lean_dec(x_9); lean_dec(x_5); -lean_dec(x_1); -x_46 = 0; -x_47 = lean_box(x_46); -lean_ctor_set(x_38, 0, x_47); -return x_38; +lean_dec(x_4); +x_41 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign(x_1, x_37, x_6, x_38); +return x_41; } else { +lean_object* x_42; lean_object* x_43; uint8_t x_44; +lean_inc(x_6); +lean_inc(x_37); +x_42 = l_Lean_Meta_isTypeCorrect(x_37, x_6, x_38); +x_43 = lean_ctor_get(x_42, 0); +lean_inc(x_43); +x_44 = lean_unbox(x_43); +lean_dec(x_43); +if (x_44 == 0) +{ +lean_object* x_45; uint8_t x_46; lean_object* x_47; lean_object* x_83; uint8_t x_84; +x_45 = lean_ctor_get(x_42, 1); +lean_inc(x_45); +lean_dec(x_42); +x_83 = lean_ctor_get(x_45, 4); +lean_inc(x_83); +x_84 = lean_ctor_get_uint8(x_83, sizeof(void*)*1); +lean_dec(x_83); +if (x_84 == 0) +{ +uint8_t x_85; +x_85 = 0; +x_46 = x_85; +x_47 = x_45; +goto block_82; +} +else +{ +lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; uint8_t x_90; +x_86 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__1; +x_87 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_86, x_6, x_45); +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 = lean_unbox(x_88); +lean_dec(x_88); +x_46 = x_90; +x_47 = x_89; +goto block_82; +} +block_82: +{ +if (x_46 == 0) +{ lean_object* x_48; -lean_free_object(x_38); -x_48 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_42); -lean_dec(x_5); -return x_48; -} +lean_dec(x_37); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_48 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_4, x_5, x_6, x_47); +lean_dec(x_4); +if (lean_obj_tag(x_48) == 0) +{ +lean_object* x_49; uint8_t x_50; +x_49 = lean_ctor_get(x_48, 0); +lean_inc(x_49); +x_50 = lean_unbox(x_49); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; +lean_dec(x_49); +x_51 = lean_ctor_get(x_48, 1); +lean_inc(x_51); +lean_dec(x_48); +x_52 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_9, x_5, x_6, x_51); +return x_52; } else { -lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; -lean_free_object(x_38); -x_49 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__1; -x_50 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_49, x_6, x_42); -x_51 = lean_ctor_get(x_50, 0); -lean_inc(x_51); -x_52 = lean_unbox(x_51); -lean_dec(x_51); -if (x_52 == 0) -{ -lean_dec(x_33); -if (x_14 == 0) -{ uint8_t x_53; -lean_dec(x_12); +lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); lean_dec(x_1); -x_53 = !lean_is_exclusive(x_50); +x_53 = !lean_is_exclusive(x_48); if (x_53 == 0) { -lean_object* x_54; uint8_t x_55; lean_object* x_56; -x_54 = lean_ctor_get(x_50, 0); +lean_object* x_54; +x_54 = lean_ctor_get(x_48, 0); lean_dec(x_54); -x_55 = 0; -x_56 = lean_box(x_55); -lean_ctor_set(x_50, 0, x_56); -return x_50; +return x_48; } else { -lean_object* x_57; uint8_t x_58; lean_object* x_59; lean_object* x_60; -x_57 = lean_ctor_get(x_50, 1); -lean_inc(x_57); -lean_dec(x_50); -x_58 = 0; -x_59 = lean_box(x_58); -x_60 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_60, 0, x_59); -lean_ctor_set(x_60, 1, x_57); +lean_object* x_55; lean_object* x_56; +x_55 = lean_ctor_get(x_48, 1); +lean_inc(x_55); +lean_dec(x_48); +x_56 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_56, 0, x_49); +lean_ctor_set(x_56, 1, x_55); +return x_56; +} +} +} +else +{ +uint8_t x_57; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_57 = !lean_is_exclusive(x_48); +if (x_57 == 0) +{ +return x_48; +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_48, 0); +x_59 = lean_ctor_get(x_48, 1); +lean_inc(x_59); +lean_inc(x_58); +lean_dec(x_48); +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_58); +lean_ctor_set(x_60, 1, x_59); return x_60; } } -else -{ -lean_object* x_61; lean_object* x_62; -x_61 = lean_ctor_get(x_50, 1); -lean_inc(x_61); -lean_dec(x_50); -x_62 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_61); -lean_dec(x_5); -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_object* x_69; -x_63 = lean_ctor_get(x_50, 1); -lean_inc(x_63); -lean_dec(x_50); +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_inc(x_1); +x_61 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_61, 0, x_1); +x_62 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__8; +x_63 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); x_64 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_64, 0, x_1); -x_65 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__8; -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_33); -x_68 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_68, 0, x_66); -lean_ctor_set(x_68, 1, x_67); -x_69 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_49, x_68, x_6, x_63); -if (x_14 == 0) +lean_ctor_set(x_64, 0, x_37); +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_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__1; +x_67 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_66, x_65, x_6, x_47); +x_68 = lean_ctor_get(x_67, 1); +lean_inc(x_68); +lean_dec(x_67); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_69 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_4, x_5, x_6, x_68); +lean_dec(x_4); +if (lean_obj_tag(x_69) == 0) { -uint8_t x_70; -lean_dec(x_12); +lean_object* x_70; uint8_t x_71; +x_70 = lean_ctor_get(x_69, 0); +lean_inc(x_70); +x_71 = lean_unbox(x_70); +if (x_71 == 0) +{ +lean_object* x_72; lean_object* x_73; +lean_dec(x_70); +x_72 = lean_ctor_get(x_69, 1); +lean_inc(x_72); +lean_dec(x_69); +x_73 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_9, x_5, x_6, x_72); +return x_73; +} +else +{ +uint8_t x_74; +lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); lean_dec(x_1); -x_70 = !lean_is_exclusive(x_69); -if (x_70 == 0) +x_74 = !lean_is_exclusive(x_69); +if (x_74 == 0) { -lean_object* x_71; uint8_t x_72; lean_object* x_73; -x_71 = lean_ctor_get(x_69, 0); -lean_dec(x_71); -x_72 = 0; -x_73 = lean_box(x_72); -lean_ctor_set(x_69, 0, x_73); +lean_object* x_75; +x_75 = lean_ctor_get(x_69, 0); +lean_dec(x_75); return x_69; } else { -lean_object* x_74; uint8_t x_75; lean_object* x_76; lean_object* x_77; -x_74 = lean_ctor_get(x_69, 1); -lean_inc(x_74); +lean_object* x_76; lean_object* x_77; +x_76 = lean_ctor_get(x_69, 1); +lean_inc(x_76); lean_dec(x_69); -x_75 = 0; -x_76 = lean_box(x_75); x_77 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_77, 0, x_76); -lean_ctor_set(x_77, 1, x_74); +lean_ctor_set(x_77, 0, x_70); +lean_ctor_set(x_77, 1, x_76); return x_77; } } +} else { -lean_object* x_78; lean_object* x_79; -x_78 = lean_ctor_get(x_69, 1); -lean_inc(x_78); -lean_dec(x_69); -x_79 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_78); +uint8_t x_78; +lean_dec(x_9); +lean_dec(x_6); lean_dec(x_5); -return x_79; -} -} -} +lean_dec(x_1); +x_78 = !lean_is_exclusive(x_69); +if (x_78 == 0) +{ +return x_69; } else { -lean_object* x_80; lean_object* x_81; uint8_t x_82; -x_80 = lean_ctor_get(x_38, 1); +lean_object* x_79; lean_object* x_80; lean_object* x_81; +x_79 = lean_ctor_get(x_69, 0); +x_80 = lean_ctor_get(x_69, 1); lean_inc(x_80); -lean_dec(x_38); -x_81 = lean_ctor_get(x_80, 4); -lean_inc(x_81); -x_82 = lean_ctor_get_uint8(x_81, sizeof(void*)*1); -lean_dec(x_81); -if (x_82 == 0) -{ -lean_dec(x_33); -if (x_14 == 0) -{ -uint8_t x_83; lean_object* x_84; lean_object* x_85; -lean_dec(x_12); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_1); -x_83 = 0; -x_84 = lean_box(x_83); -x_85 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_85, 0, x_84); -lean_ctor_set(x_85, 1, x_80); -return x_85; +lean_inc(x_79); +lean_dec(x_69); +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 -{ -lean_object* x_86; -x_86 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_80); -lean_dec(x_5); -return x_86; } } else { -lean_object* x_87; lean_object* x_88; lean_object* x_89; uint8_t x_90; -x_87 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__1; -x_88 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_87, x_6, x_80); -x_89 = lean_ctor_get(x_88, 0); -lean_inc(x_89); -x_90 = lean_unbox(x_89); -lean_dec(x_89); -if (x_90 == 0) -{ -lean_dec(x_33); -if (x_14 == 0) -{ -lean_object* x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; lean_object* x_95; -lean_dec(x_12); -lean_dec(x_6); +lean_object* x_91; lean_object* x_92; +lean_dec(x_9); lean_dec(x_5); -lean_dec(x_1); -x_91 = lean_ctor_get(x_88, 1); +lean_dec(x_4); +x_91 = lean_ctor_get(x_42, 1); lean_inc(x_91); -if (lean_is_exclusive(x_88)) { - lean_ctor_release(x_88, 0); - lean_ctor_release(x_88, 1); - x_92 = x_88; -} else { - lean_dec_ref(x_88); - x_92 = lean_box(0); +lean_dec(x_42); +x_92 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign(x_1, x_37, x_6, x_91); +return x_92; } -x_93 = 0; -x_94 = lean_box(x_93); -if (lean_is_scalar(x_92)) { - x_95 = lean_alloc_ctor(0, 2, 0); -} else { - x_95 = x_92; -} -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_91); -return x_95; -} -else -{ -lean_object* x_96; lean_object* x_97; -x_96 = lean_ctor_get(x_88, 1); -lean_inc(x_96); -lean_dec(x_88); -x_97 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_96); -lean_dec(x_5); -return x_97; } } else { -lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_98 = lean_ctor_get(x_88, 1); -lean_inc(x_98); -lean_dec(x_88); -lean_inc(x_1); -x_99 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_99, 0, x_1); -x_100 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__8; -x_101 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_101, 0, x_99); -lean_ctor_set(x_101, 1, x_100); -x_102 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_102, 0, x_33); -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 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_87, x_103, x_6, x_98); -if (x_14 == 0) -{ -lean_object* x_105; lean_object* x_106; uint8_t x_107; lean_object* x_108; lean_object* x_109; -lean_dec(x_12); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_1); -x_105 = lean_ctor_get(x_104, 1); -lean_inc(x_105); -if (lean_is_exclusive(x_104)) { - lean_ctor_release(x_104, 0); - lean_ctor_release(x_104, 1); - x_106 = x_104; -} else { - lean_dec_ref(x_104); - x_106 = lean_box(0); -} -x_107 = 0; -x_108 = lean_box(x_107); -if (lean_is_scalar(x_106)) { - x_109 = lean_alloc_ctor(0, 2, 0); -} else { - x_109 = x_106; -} -lean_ctor_set(x_109, 0, x_108); -lean_ctor_set(x_109, 1, x_105); -return x_109; -} -else -{ -lean_object* x_110; lean_object* x_111; -x_110 = lean_ctor_get(x_104, 1); -lean_inc(x_110); -lean_dec(x_104); -x_111 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_5, x_12, x_6, x_110); -lean_dec(x_5); -return x_111; -} -} -} -} -} -else -{ -lean_object* x_112; lean_object* x_113; -lean_dec(x_12); -lean_dec(x_5); -x_112 = lean_ctor_get(x_38, 1); -lean_inc(x_112); -lean_dec(x_38); -x_113 = l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign(x_1, x_33, x_6, x_112); -return x_113; -} -} -} -else -{ -uint8_t x_114; -lean_dec(x_12); -lean_dec(x_8); +uint8_t x_93; +lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); +lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_114 = !lean_is_exclusive(x_32); -if (x_114 == 0) +x_93 = !lean_is_exclusive(x_36); +if (x_93 == 0) { -return x_32; +return x_36; } else { -lean_object* x_115; lean_object* x_116; lean_object* x_117; -x_115 = lean_ctor_get(x_32, 0); -x_116 = lean_ctor_get(x_32, 1); -lean_inc(x_116); -lean_inc(x_115); -lean_dec(x_32); -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; +lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_94 = lean_ctor_get(x_36, 0); +x_95 = lean_ctor_get(x_36, 1); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_36); +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; } } } @@ -38415,685 +38346,558 @@ return x_117; } else { -uint8_t x_140; -lean_dec(x_12); -lean_dec(x_8); +uint8_t x_119; +lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); +lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_140 = !lean_is_exclusive(x_17); -if (x_140 == 0) +x_119 = !lean_is_exclusive(x_17); +if (x_119 == 0) { return x_17; } else { -lean_object* x_141; lean_object* x_142; lean_object* x_143; -x_141 = lean_ctor_get(x_17, 0); -x_142 = lean_ctor_get(x_17, 1); -lean_inc(x_142); -lean_inc(x_141); +lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_120 = lean_ctor_get(x_17, 0); +x_121 = lean_ctor_get(x_17, 1); +lean_inc(x_121); +lean_inc(x_120); lean_dec(x_17); -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; -} -} +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 { -lean_object* x_155; lean_object* x_156; lean_object* x_157; -lean_dec(x_8); -x_155 = lean_ctor_get(x_6, 0); -lean_inc(x_155); -x_156 = lean_array_fget(x_5, x_4); +lean_object* x_123; +lean_dec(x_12); +lean_dec(x_2); lean_inc(x_6); -x_157 = l___private_Init_Lean_Meta_ExprDefEq_16__simpAssignmentArg(x_156, x_6, x_7); -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; -x_158 = lean_ctor_get(x_157, 0); -lean_inc(x_158); -x_159 = lean_ctor_get(x_157, 1); -lean_inc(x_159); -if (lean_is_exclusive(x_157)) { - lean_ctor_release(x_157, 0); - lean_ctor_release(x_157, 1); - x_160 = x_157; -} else { - lean_dec_ref(x_157); - x_160 = lean_box(0); -} -lean_inc(x_158); lean_inc(x_5); -x_161 = lean_array_fset(x_5, x_4, x_158); -if (lean_obj_tag(x_158) == 1) -{ -lean_object* x_211; lean_object* x_212; uint8_t x_213; -x_211 = lean_ctor_get(x_158, 0); -lean_inc(x_211); -x_212 = lean_array_get_size(x_161); -x_213 = lean_nat_dec_le(x_4, x_212); -if (x_213 == 0) -{ -lean_object* x_214; uint8_t x_215; -x_214 = lean_unsigned_to_nat(0u); -x_215 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__2(x_4, x_5, lean_box(0), x_158, x_161, x_212, x_214); -lean_dec(x_212); -lean_dec(x_158); -lean_dec(x_5); -if (x_215 == 0) -{ -lean_object* x_216; uint8_t x_217; -x_216 = lean_ctor_get(x_2, 1); -lean_inc(x_216); -x_217 = l_Lean_LocalContext_contains(x_216, x_211); -lean_dec(x_211); -if (x_217 == 0) -{ -lean_object* x_218; lean_object* x_219; -lean_dec(x_160); -lean_dec(x_155); -x_218 = lean_unsigned_to_nat(1u); -x_219 = lean_nat_add(x_4, x_218); -lean_dec(x_4); -x_4 = x_219; -x_5 = x_161; -x_7 = x_159; -goto _start; -} -else -{ -uint8_t x_221; -x_221 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 2); -if (x_221 == 0) -{ -lean_object* x_222; -lean_dec(x_4); -lean_dec(x_2); -x_222 = lean_box(0); -x_162 = x_222; -goto block_210; -} -else -{ -lean_object* x_223; lean_object* x_224; -lean_dec(x_160); -lean_dec(x_155); -x_223 = lean_unsigned_to_nat(1u); -x_224 = lean_nat_add(x_4, x_223); -lean_dec(x_4); -x_4 = x_224; -x_5 = x_161; -x_7 = x_159; -goto _start; -} -} -} -else -{ -lean_object* x_226; -lean_dec(x_211); -lean_dec(x_4); -lean_dec(x_2); -x_226 = lean_box(0); -x_162 = x_226; -goto block_210; -} -} -else -{ -lean_object* x_227; uint8_t x_228; -lean_dec(x_212); -x_227 = lean_unsigned_to_nat(0u); -x_228 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__3(x_4, x_5, lean_box(0), x_158, lean_box(0), x_161, x_4, x_227); -lean_dec(x_158); -lean_dec(x_5); -if (x_228 == 0) -{ -lean_object* x_229; uint8_t x_230; -x_229 = lean_ctor_get(x_2, 1); -lean_inc(x_229); -x_230 = l_Lean_LocalContext_contains(x_229, x_211); -lean_dec(x_211); -if (x_230 == 0) -{ -lean_object* x_231; lean_object* x_232; -lean_dec(x_160); -lean_dec(x_155); -x_231 = lean_unsigned_to_nat(1u); -x_232 = lean_nat_add(x_4, x_231); -lean_dec(x_4); -x_4 = x_232; -x_5 = x_161; -x_7 = x_159; -goto _start; -} -else -{ -uint8_t x_234; -x_234 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 2); -if (x_234 == 0) -{ -lean_object* x_235; -lean_dec(x_4); -lean_dec(x_2); -x_235 = lean_box(0); -x_162 = x_235; -goto block_210; -} -else -{ -lean_object* x_236; lean_object* x_237; -lean_dec(x_160); -lean_dec(x_155); -x_236 = lean_unsigned_to_nat(1u); -x_237 = lean_nat_add(x_4, x_236); -lean_dec(x_4); -x_4 = x_237; -x_5 = x_161; -x_7 = x_159; -goto _start; -} -} -} -else -{ -lean_object* x_239; -lean_dec(x_211); -lean_dec(x_4); -lean_dec(x_2); -x_239 = lean_box(0); -x_162 = x_239; -goto block_210; -} -} -} -else -{ -uint8_t x_240; -lean_dec(x_160); -lean_dec(x_158); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -x_240 = lean_ctor_get_uint8(x_155, sizeof(void*)*1); -if (x_240 == 0) -{ -uint8_t x_241; -x_241 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 3); -lean_dec(x_155); -if (x_241 == 0) -{ -uint8_t x_242; -x_242 = l_Array_isEmpty___rarg(x_161); -if (x_242 == 0) -{ -uint8_t x_243; -x_243 = l_Lean_Expr_isApp(x_3); -if (x_243 == 0) -{ -lean_object* x_244; lean_object* x_245; -x_244 = lean_array_get_size(x_161); -lean_dec(x_161); -x_245 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_244, x_3, x_6, x_159); -return x_245; -} -else -{ -uint8_t x_246; lean_object* x_247; lean_object* x_248; -lean_dec(x_161); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -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_159); -return x_248; -} -} -else -{ -uint8_t x_249; lean_object* x_250; lean_object* x_251; -lean_dec(x_161); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -x_249 = 0; -x_250 = lean_box(x_249); -x_251 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_251, 0, x_250); -lean_ctor_set(x_251, 1, x_159); -return x_251; -} -} -else -{ -lean_object* x_252; lean_object* x_253; -x_252 = lean_array_get_size(x_161); -lean_dec(x_161); -x_253 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_252, x_3, x_6, x_159); -return x_253; -} -} -else -{ -uint8_t x_254; -x_254 = l_Lean_Expr_isApp(x_3); -if (x_254 == 0) -{ -uint8_t x_255; -x_255 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 3); -lean_dec(x_155); -if (x_255 == 0) -{ -uint8_t x_256; -x_256 = l_Array_isEmpty___rarg(x_161); -if (x_256 == 0) -{ -lean_object* x_257; lean_object* x_258; -x_257 = lean_array_get_size(x_161); -lean_dec(x_161); -x_258 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_257, x_3, x_6, x_159); -return x_258; -} -else -{ -uint8_t x_259; lean_object* x_260; lean_object* x_261; -lean_dec(x_161); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -x_259 = 0; -x_260 = lean_box(x_259); -x_261 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_261, 0, x_260); -lean_ctor_set(x_261, 1, x_159); -return x_261; -} -} -else -{ -lean_object* x_262; lean_object* x_263; -x_262 = lean_array_get_size(x_161); -lean_dec(x_161); -x_263 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_262, x_3, x_6, x_159); -return x_263; -} -} -else -{ -lean_object* x_264; -lean_inc(x_6); -lean_inc(x_3); lean_inc(x_1); -x_264 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_161, x_3, x_6, x_159); -if (lean_obj_tag(x_264) == 0) +x_123 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_4, x_5, x_6, x_13); +lean_dec(x_4); +if (lean_obj_tag(x_123) == 0) { -lean_object* x_265; uint8_t x_266; -x_265 = lean_ctor_get(x_264, 0); -lean_inc(x_265); -x_266 = lean_unbox(x_265); -if (x_266 == 0) +lean_object* x_124; uint8_t x_125; +x_124 = lean_ctor_get(x_123, 0); +lean_inc(x_124); +x_125 = lean_unbox(x_124); +if (x_125 == 0) { -uint8_t x_267; -lean_dec(x_265); -x_267 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 3); -lean_dec(x_155); -if (x_267 == 0) +lean_object* x_126; lean_object* x_127; +lean_dec(x_124); +x_126 = lean_ctor_get(x_123, 1); +lean_inc(x_126); +lean_dec(x_123); +x_127 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_9, x_5, x_6, x_126); +return x_127; +} +else { -uint8_t x_268; -lean_dec(x_161); +uint8_t x_128; +lean_dec(x_9); lean_dec(x_6); -lean_dec(x_3); +lean_dec(x_5); lean_dec(x_1); -x_268 = !lean_is_exclusive(x_264); -if (x_268 == 0) +x_128 = !lean_is_exclusive(x_123); +if (x_128 == 0) { -lean_object* x_269; uint8_t x_270; lean_object* x_271; -x_269 = lean_ctor_get(x_264, 0); -lean_dec(x_269); -x_270 = 0; -x_271 = lean_box(x_270); -lean_ctor_set(x_264, 0, x_271); -return x_264; +lean_object* x_129; +x_129 = lean_ctor_get(x_123, 0); +lean_dec(x_129); +return x_123; } else { -lean_object* x_272; uint8_t x_273; lean_object* x_274; lean_object* x_275; -x_272 = lean_ctor_get(x_264, 1); -lean_inc(x_272); -lean_dec(x_264); -x_273 = 0; -x_274 = lean_box(x_273); -x_275 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_275, 0, x_274); -lean_ctor_set(x_275, 1, x_272); -return x_275; +lean_object* x_130; lean_object* x_131; +x_130 = lean_ctor_get(x_123, 1); +lean_inc(x_130); +lean_dec(x_123); +x_131 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_131, 0, x_124); +lean_ctor_set(x_131, 1, x_130); +return x_131; +} } } else { -lean_object* x_276; lean_object* x_277; lean_object* x_278; -x_276 = lean_ctor_get(x_264, 1); -lean_inc(x_276); -lean_dec(x_264); -x_277 = lean_array_get_size(x_161); -lean_dec(x_161); -x_278 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_277, x_3, x_6, x_276); -return x_278; -} -} -else -{ -uint8_t x_279; -lean_dec(x_161); -lean_dec(x_155); +uint8_t x_132; +lean_dec(x_9); lean_dec(x_6); -lean_dec(x_3); +lean_dec(x_5); lean_dec(x_1); -x_279 = !lean_is_exclusive(x_264); -if (x_279 == 0) +x_132 = !lean_is_exclusive(x_123); +if (x_132 == 0) { -lean_object* x_280; -x_280 = lean_ctor_get(x_264, 0); -lean_dec(x_280); -return x_264; +return x_123; } else { -lean_object* x_281; lean_object* x_282; -x_281 = lean_ctor_get(x_264, 1); -lean_inc(x_281); -lean_dec(x_264); -x_282 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_282, 0, x_265); -lean_ctor_set(x_282, 1, x_281); -return x_282; +lean_object* x_133; lean_object* x_134; lean_object* x_135; +x_133 = lean_ctor_get(x_123, 0); +x_134 = lean_ctor_get(x_123, 1); +lean_inc(x_134); +lean_inc(x_133); +lean_dec(x_123); +x_135 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_135, 0, x_133); +lean_ctor_set(x_135, 1, x_134); +return x_135; +} } } } else { -uint8_t x_283; -lean_dec(x_161); -lean_dec(x_155); +lean_object* x_136; lean_object* x_137; +lean_dec(x_9); +x_136 = lean_array_fget(x_4, x_3); +lean_inc(x_6); +x_137 = l___private_Init_Lean_Meta_ExprDefEq_16__simpAssignmentArg(x_136, x_6, x_7); +if (lean_obj_tag(x_137) == 0) +{ +lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_138 = lean_ctor_get(x_137, 0); +lean_inc(x_138); +x_139 = lean_ctor_get(x_137, 1); +lean_inc(x_139); +lean_dec(x_137); +lean_inc(x_138); +lean_inc(x_4); +x_140 = lean_array_fset(x_4, x_3, x_138); +if (lean_obj_tag(x_138) == 1) +{ +lean_object* x_141; lean_object* x_142; uint8_t x_143; +x_141 = lean_ctor_get(x_138, 0); +lean_inc(x_141); +x_142 = lean_array_get_size(x_140); +x_143 = lean_nat_dec_le(x_3, x_142); +if (x_143 == 0) +{ +lean_object* x_144; uint8_t x_145; +x_144 = lean_unsigned_to_nat(0u); +x_145 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__2(x_3, x_4, lean_box(0), x_138, x_140, x_142, x_144); +lean_dec(x_138); +lean_dec(x_4); +if (x_145 == 0) +{ +lean_object* x_146; uint8_t x_147; +x_146 = lean_ctor_get(x_2, 1); +lean_inc(x_146); +x_147 = l_Lean_LocalContext_contains(x_146, x_141); +lean_dec(x_141); +if (x_147 == 0) +{ +lean_object* x_148; lean_object* x_149; +lean_dec(x_142); +lean_dec(x_8); +x_148 = lean_unsigned_to_nat(1u); +x_149 = lean_nat_add(x_3, x_148); +lean_dec(x_3); +x_3 = x_149; +x_4 = x_140; +x_7 = x_139; +goto _start; +} +else +{ +uint8_t x_151; +x_151 = lean_ctor_get_uint8(x_8, sizeof(void*)*1 + 2); +lean_dec(x_8); +if (x_151 == 0) +{ +lean_object* x_152; +lean_dec(x_3); +lean_dec(x_2); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_152 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_140, x_5, x_6, x_139); +lean_dec(x_140); +if (lean_obj_tag(x_152) == 0) +{ +lean_object* x_153; uint8_t x_154; +x_153 = lean_ctor_get(x_152, 0); +lean_inc(x_153); +x_154 = lean_unbox(x_153); +if (x_154 == 0) +{ +lean_object* x_155; lean_object* x_156; +lean_dec(x_153); +x_155 = lean_ctor_get(x_152, 1); +lean_inc(x_155); +lean_dec(x_152); +x_156 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_142, x_5, x_6, x_155); +return x_156; +} +else +{ +uint8_t x_157; +lean_dec(x_142); lean_dec(x_6); -lean_dec(x_3); +lean_dec(x_5); lean_dec(x_1); -x_283 = !lean_is_exclusive(x_264); -if (x_283 == 0) +x_157 = !lean_is_exclusive(x_152); +if (x_157 == 0) { -return x_264; +lean_object* x_158; +x_158 = lean_ctor_get(x_152, 0); +lean_dec(x_158); +return x_152; } else { -lean_object* x_284; lean_object* x_285; lean_object* x_286; -x_284 = lean_ctor_get(x_264, 0); -x_285 = lean_ctor_get(x_264, 1); -lean_inc(x_285); -lean_inc(x_284); -lean_dec(x_264); -x_286 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_286, 0, x_284); -lean_ctor_set(x_286, 1, x_285); -return x_286; +lean_object* x_159; lean_object* x_160; +x_159 = lean_ctor_get(x_152, 1); +lean_inc(x_159); +lean_dec(x_152); +x_160 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_160, 0, x_153); +lean_ctor_set(x_160, 1, x_159); +return x_160; } } } +else +{ +uint8_t x_161; +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_161 = !lean_is_exclusive(x_152); +if (x_161 == 0) +{ +return x_152; +} +else +{ +lean_object* x_162; lean_object* x_163; lean_object* x_164; +x_162 = lean_ctor_get(x_152, 0); +x_163 = lean_ctor_get(x_152, 1); +lean_inc(x_163); +lean_inc(x_162); +lean_dec(x_152); +x_164 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_164, 0, x_162); +lean_ctor_set(x_164, 1, x_163); +return x_164; } } -block_210: +} +else { -uint8_t x_163; -lean_dec(x_162); -x_163 = lean_ctor_get_uint8(x_155, sizeof(void*)*1); -if (x_163 == 0) +lean_object* x_165; lean_object* x_166; +lean_dec(x_142); +x_165 = lean_unsigned_to_nat(1u); +x_166 = lean_nat_add(x_3, x_165); +lean_dec(x_3); +x_3 = x_166; +x_4 = x_140; +x_7 = x_139; +goto _start; +} +} +} +else { -uint8_t x_164; -x_164 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 3); -lean_dec(x_155); -if (x_164 == 0) +lean_object* x_168; +lean_dec(x_141); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_168 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_140, x_5, x_6, x_139); +lean_dec(x_140); +if (lean_obj_tag(x_168) == 0) { -uint8_t x_165; -x_165 = l_Array_isEmpty___rarg(x_161); -if (x_165 == 0) +lean_object* x_169; uint8_t x_170; +x_169 = lean_ctor_get(x_168, 0); +lean_inc(x_169); +x_170 = lean_unbox(x_169); +if (x_170 == 0) { -uint8_t x_166; -x_166 = l_Lean_Expr_isApp(x_3); -if (x_166 == 0) +lean_object* x_171; lean_object* x_172; +lean_dec(x_169); +x_171 = lean_ctor_get(x_168, 1); +lean_inc(x_171); +lean_dec(x_168); +x_172 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_142, x_5, x_6, x_171); +return x_172; +} +else { -lean_object* x_167; lean_object* x_168; -lean_dec(x_160); -x_167 = lean_array_get_size(x_161); -lean_dec(x_161); -x_168 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_167, x_3, x_6, x_159); +uint8_t x_173; +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_173 = !lean_is_exclusive(x_168); +if (x_173 == 0) +{ +lean_object* x_174; +x_174 = lean_ctor_get(x_168, 0); +lean_dec(x_174); return x_168; } else { -uint8_t x_169; lean_object* x_170; lean_object* x_171; -lean_dec(x_161); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -x_169 = 0; -x_170 = lean_box(x_169); -if (lean_is_scalar(x_160)) { - x_171 = lean_alloc_ctor(0, 2, 0); -} else { - x_171 = x_160; -} -lean_ctor_set(x_171, 0, x_170); -lean_ctor_set(x_171, 1, x_159); -return x_171; -} -} -else -{ -uint8_t x_172; lean_object* x_173; lean_object* x_174; -lean_dec(x_161); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -x_172 = 0; -x_173 = lean_box(x_172); -if (lean_is_scalar(x_160)) { - x_174 = lean_alloc_ctor(0, 2, 0); -} else { - x_174 = x_160; -} -lean_ctor_set(x_174, 0, x_173); -lean_ctor_set(x_174, 1, x_159); -return x_174; -} -} -else -{ lean_object* x_175; lean_object* x_176; -lean_dec(x_160); -x_175 = lean_array_get_size(x_161); -lean_dec(x_161); -x_176 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_175, x_3, x_6, x_159); +x_175 = lean_ctor_get(x_168, 1); +lean_inc(x_175); +lean_dec(x_168); +x_176 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_176, 0, x_169); +lean_ctor_set(x_176, 1, x_175); return x_176; } } +} else { uint8_t x_177; -x_177 = l_Lean_Expr_isApp(x_3); +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_177 = !lean_is_exclusive(x_168); if (x_177 == 0) { -uint8_t x_178; -x_178 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 3); -lean_dec(x_155); -if (x_178 == 0) -{ -uint8_t x_179; -x_179 = l_Array_isEmpty___rarg(x_161); -if (x_179 == 0) -{ -lean_object* x_180; lean_object* x_181; -lean_dec(x_160); -x_180 = lean_array_get_size(x_161); -lean_dec(x_161); -x_181 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_180, x_3, x_6, x_159); -return x_181; +return x_168; } else { -uint8_t x_182; lean_object* x_183; lean_object* x_184; -lean_dec(x_161); -lean_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -x_182 = 0; -x_183 = lean_box(x_182); -if (lean_is_scalar(x_160)) { - x_184 = lean_alloc_ctor(0, 2, 0); -} else { - x_184 = x_160; +lean_object* x_178; lean_object* x_179; lean_object* x_180; +x_178 = lean_ctor_get(x_168, 0); +x_179 = lean_ctor_get(x_168, 1); +lean_inc(x_179); +lean_inc(x_178); +lean_dec(x_168); +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; +} } -lean_ctor_set(x_184, 0, x_183); -lean_ctor_set(x_184, 1, x_159); -return x_184; } } else { +lean_object* x_181; uint8_t x_182; +x_181 = lean_unsigned_to_nat(0u); +x_182 = l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__3(x_3, x_4, lean_box(0), x_138, lean_box(0), x_140, x_3, x_181); +lean_dec(x_138); +lean_dec(x_4); +if (x_182 == 0) +{ +lean_object* x_183; uint8_t x_184; +x_183 = lean_ctor_get(x_2, 1); +lean_inc(x_183); +x_184 = l_Lean_LocalContext_contains(x_183, x_141); +lean_dec(x_141); +if (x_184 == 0) +{ lean_object* x_185; lean_object* x_186; -lean_dec(x_160); -x_185 = lean_array_get_size(x_161); -lean_dec(x_161); -x_186 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_185, x_3, x_6, x_159); -return x_186; -} +lean_dec(x_142); +lean_dec(x_8); +x_185 = lean_unsigned_to_nat(1u); +x_186 = lean_nat_add(x_3, x_185); +lean_dec(x_3); +x_3 = x_186; +x_4 = x_140; +x_7 = x_139; +goto _start; } else { -lean_object* x_187; -lean_dec(x_160); -lean_inc(x_6); -lean_inc(x_3); -lean_inc(x_1); -x_187 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_161, x_3, x_6, x_159); -if (lean_obj_tag(x_187) == 0) +uint8_t x_188; +x_188 = lean_ctor_get_uint8(x_8, sizeof(void*)*1 + 2); +lean_dec(x_8); +if (x_188 == 0) { -lean_object* x_188; uint8_t x_189; -x_188 = lean_ctor_get(x_187, 0); -lean_inc(x_188); -x_189 = lean_unbox(x_188); -if (x_189 == 0) -{ -uint8_t x_190; -lean_dec(x_188); -x_190 = lean_ctor_get_uint8(x_155, sizeof(void*)*1 + 3); -lean_dec(x_155); -if (x_190 == 0) -{ -uint8_t x_191; -lean_dec(x_161); -lean_dec(x_6); +lean_object* x_189; lean_dec(x_3); -lean_dec(x_1); -x_191 = !lean_is_exclusive(x_187); +lean_dec(x_2); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_189 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_140, x_5, x_6, x_139); +lean_dec(x_140); +if (lean_obj_tag(x_189) == 0) +{ +lean_object* x_190; uint8_t x_191; +x_190 = lean_ctor_get(x_189, 0); +lean_inc(x_190); +x_191 = lean_unbox(x_190); if (x_191 == 0) { -lean_object* x_192; uint8_t x_193; lean_object* x_194; -x_192 = lean_ctor_get(x_187, 0); -lean_dec(x_192); -x_193 = 0; -x_194 = lean_box(x_193); -lean_ctor_set(x_187, 0, x_194); -return x_187; +lean_object* x_192; lean_object* x_193; +lean_dec(x_190); +x_192 = lean_ctor_get(x_189, 1); +lean_inc(x_192); +lean_dec(x_189); +x_193 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_142, x_5, x_6, x_192); +return x_193; } else { -lean_object* x_195; uint8_t x_196; lean_object* x_197; lean_object* x_198; -x_195 = lean_ctor_get(x_187, 1); -lean_inc(x_195); -lean_dec(x_187); -x_196 = 0; -x_197 = lean_box(x_196); -x_198 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_198, 0, x_197); -lean_ctor_set(x_198, 1, x_195); -return x_198; +uint8_t x_194; +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_194 = !lean_is_exclusive(x_189); +if (x_194 == 0) +{ +lean_object* x_195; +x_195 = lean_ctor_get(x_189, 0); +lean_dec(x_195); +return x_189; } +else +{ +lean_object* x_196; lean_object* x_197; +x_196 = lean_ctor_get(x_189, 1); +lean_inc(x_196); +lean_dec(x_189); +x_197 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_197, 0, x_190); +lean_ctor_set(x_197, 1, x_196); +return x_197; +} +} +} +else +{ +uint8_t x_198; +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_198 = !lean_is_exclusive(x_189); +if (x_198 == 0) +{ +return x_189; } else { lean_object* x_199; lean_object* x_200; lean_object* x_201; -x_199 = lean_ctor_get(x_187, 1); +x_199 = lean_ctor_get(x_189, 0); +x_200 = lean_ctor_get(x_189, 1); +lean_inc(x_200); lean_inc(x_199); -lean_dec(x_187); -x_200 = lean_array_get_size(x_161); -lean_dec(x_161); -x_201 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_200, x_3, x_6, x_199); +lean_dec(x_189); +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 { -uint8_t x_202; -lean_dec(x_161); -lean_dec(x_155); -lean_dec(x_6); +lean_object* x_202; lean_object* x_203; +lean_dec(x_142); +x_202 = lean_unsigned_to_nat(1u); +x_203 = lean_nat_add(x_3, x_202); lean_dec(x_3); -lean_dec(x_1); -x_202 = !lean_is_exclusive(x_187); -if (x_202 == 0) -{ -lean_object* x_203; -x_203 = lean_ctor_get(x_187, 0); -lean_dec(x_203); -return x_187; -} -else -{ -lean_object* x_204; lean_object* x_205; -x_204 = lean_ctor_get(x_187, 1); -lean_inc(x_204); -lean_dec(x_187); -x_205 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_205, 0, x_188); -lean_ctor_set(x_205, 1, x_204); -return x_205; +x_3 = x_203; +x_4 = x_140; +x_7 = x_139; +goto _start; } } } else { -uint8_t x_206; -lean_dec(x_161); -lean_dec(x_155); -lean_dec(x_6); +lean_object* x_205; +lean_dec(x_141); +lean_dec(x_8); lean_dec(x_3); -lean_dec(x_1); -x_206 = !lean_is_exclusive(x_187); -if (x_206 == 0) +lean_dec(x_2); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_205 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_140, x_5, x_6, x_139); +lean_dec(x_140); +if (lean_obj_tag(x_205) == 0) { -return x_187; -} -else +lean_object* x_206; uint8_t x_207; +x_206 = lean_ctor_get(x_205, 0); +lean_inc(x_206); +x_207 = lean_unbox(x_206); +if (x_207 == 0) { -lean_object* x_207; lean_object* x_208; lean_object* x_209; -x_207 = lean_ctor_get(x_187, 0); -x_208 = lean_ctor_get(x_187, 1); +lean_object* x_208; lean_object* x_209; +lean_dec(x_206); +x_208 = lean_ctor_get(x_205, 1); lean_inc(x_208); -lean_inc(x_207); -lean_dec(x_187); -x_209 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_209, 0, x_207); -lean_ctor_set(x_209, 1, x_208); +lean_dec(x_205); +x_209 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_142, x_5, x_6, x_208); return x_209; } +else +{ +uint8_t x_210; +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_210 = !lean_is_exclusive(x_205); +if (x_210 == 0) +{ +lean_object* x_211; +x_211 = lean_ctor_get(x_205, 0); +lean_dec(x_211); +return x_205; +} +else +{ +lean_object* x_212; lean_object* x_213; +x_212 = lean_ctor_get(x_205, 1); +lean_inc(x_212); +lean_dec(x_205); +x_213 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_213, 0, x_206); +lean_ctor_set(x_213, 1, x_212); +return x_213; +} +} +} +else +{ +uint8_t x_214; +lean_dec(x_142); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_214 = !lean_is_exclusive(x_205); +if (x_214 == 0) +{ +return x_205; +} +else +{ +lean_object* x_215; lean_object* x_216; lean_object* x_217; +x_215 = lean_ctor_get(x_205, 0); +x_216 = lean_ctor_get(x_205, 1); +lean_inc(x_216); +lean_inc(x_215); +lean_dec(x_205); +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; } } } @@ -39101,31 +38905,117 @@ return x_209; } else { -uint8_t x_287; -lean_dec(x_155); +lean_object* x_218; +lean_dec(x_138); +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_1); +x_218 = l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main(x_1, x_140, x_5, x_6, x_139); +if (lean_obj_tag(x_218) == 0) +{ +lean_object* x_219; uint8_t x_220; +x_219 = lean_ctor_get(x_218, 0); +lean_inc(x_219); +x_220 = lean_unbox(x_219); +if (x_220 == 0) +{ +lean_object* x_221; lean_object* x_222; lean_object* x_223; +lean_dec(x_219); +x_221 = lean_ctor_get(x_218, 1); +lean_inc(x_221); +lean_dec(x_218); +x_222 = lean_array_get_size(x_140); +lean_dec(x_140); +x_223 = l___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox(x_1, x_222, x_5, x_6, x_221); +return x_223; +} +else +{ +uint8_t x_224; +lean_dec(x_140); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_224 = !lean_is_exclusive(x_218); +if (x_224 == 0) +{ +lean_object* x_225; +x_225 = lean_ctor_get(x_218, 0); +lean_dec(x_225); +return x_218; +} +else +{ +lean_object* x_226; lean_object* x_227; +x_226 = lean_ctor_get(x_218, 1); +lean_inc(x_226); +lean_dec(x_218); +x_227 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_227, 0, x_219); +lean_ctor_set(x_227, 1, x_226); +return x_227; +} +} +} +else +{ +uint8_t x_228; +lean_dec(x_140); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_228 = !lean_is_exclusive(x_218); +if (x_228 == 0) +{ +return x_218; +} +else +{ +lean_object* x_229; lean_object* x_230; lean_object* x_231; +x_229 = lean_ctor_get(x_218, 0); +x_230 = lean_ctor_get(x_218, 1); +lean_inc(x_230); +lean_inc(x_229); +lean_dec(x_218); +x_231 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_231, 0, x_229); +lean_ctor_set(x_231, 1, x_230); +return x_231; +} +} +} +} +else +{ +uint8_t x_232; +lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_287 = !lean_is_exclusive(x_157); -if (x_287 == 0) +x_232 = !lean_is_exclusive(x_137); +if (x_232 == 0) { -return x_157; +return x_137; } else { -lean_object* x_288; lean_object* x_289; lean_object* x_290; -x_288 = lean_ctor_get(x_157, 0); -x_289 = lean_ctor_get(x_157, 1); -lean_inc(x_289); -lean_inc(x_288); -lean_dec(x_157); -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; +lean_object* x_233; lean_object* x_234; lean_object* x_235; +x_233 = lean_ctor_get(x_137, 0); +x_234 = lean_ctor_get(x_137, 1); +lean_inc(x_234); +lean_inc(x_233); +lean_dec(x_137); +x_235 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_235, 0, x_233); +lean_ctor_set(x_235, 1, x_234); +return x_235; } } } @@ -39248,7 +39138,7 @@ x_21 = lean_unsigned_to_nat(1u); x_22 = lean_nat_sub(x_18, x_21); lean_dec(x_18); x_23 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_1, x_20, x_22); -x_24 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_12, x_15, x_2, x_17, x_23, x_3, x_16); +x_24 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_12, x_15, x_17, x_23, x_2, x_3, x_16); if (lean_obj_tag(x_24) == 0) { lean_object* x_25; lean_object* x_26; uint8_t x_27; @@ -39707,7 +39597,7 @@ x_128 = lean_unsigned_to_nat(1u); x_129 = lean_nat_sub(x_125, x_128); lean_dec(x_125); x_130 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_1, x_127, x_129); -x_131 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_119, x_122, x_2, x_124, x_130, x_3, x_123); +x_131 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_119, x_122, x_124, x_130, x_2, x_3, x_123); if (lean_obj_tag(x_131) == 0) { lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; @@ -40001,7 +39891,7 @@ x_198 = lean_unsigned_to_nat(1u); x_199 = lean_nat_sub(x_195, x_198); lean_dec(x_195); x_200 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_1, x_197, x_199); -x_201 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_189, x_192, x_2, x_194, x_200, x_3, x_193); +x_201 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_189, x_192, x_194, x_200, x_2, x_3, x_193); if (lean_obj_tag(x_201) == 0) { lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; @@ -40321,7 +40211,7 @@ x_261 = lean_nat_sub(x_257, x_260); lean_dec(x_257); x_262 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_1, x_259, x_261); lean_inc(x_3); -x_263 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_251, x_254, x_2, x_256, x_262, x_3, x_255); +x_263 = l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main(x_251, x_254, x_256, x_262, x_2, x_3, x_255); if (lean_obj_tag(x_263) == 0) { lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; uint8_t x_268; @@ -50488,7 +50378,7 @@ return x_31; } default: { -lean_object* x_32; lean_object* x_33; uint8_t x_34; lean_object* x_35; lean_object* x_64; +lean_object* x_32; lean_object* x_33; uint8_t x_34; lean_object* x_35; lean_object* x_355; x_32 = lean_ctor_get(x_13, 1); lean_inc(x_32); if (lean_is_exclusive(x_13)) { @@ -50502,330 +50392,109 @@ if (lean_is_exclusive(x_13)) { lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_64 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_32); -if (lean_obj_tag(x_64) == 0) +x_355 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_32); +if (lean_obj_tag(x_355) == 0) { -lean_object* x_65; uint8_t x_66; -x_65 = lean_ctor_get(x_64, 0); -lean_inc(x_65); -x_66 = lean_unbox(x_65); -lean_dec(x_65); -switch (x_66) { -case 0: +lean_object* x_356; uint8_t x_357; +x_356 = lean_ctor_get(x_355, 0); +lean_inc(x_356); +x_357 = lean_unbox(x_356); +if (x_357 == 0) { -uint8_t x_67; -lean_dec(x_33); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_67 = !lean_is_exclusive(x_64); -if (x_67 == 0) -{ -lean_object* x_68; uint8_t x_69; lean_object* x_70; -x_68 = lean_ctor_get(x_64, 0); -lean_dec(x_68); -x_69 = 0; -x_70 = lean_box(x_69); -lean_ctor_set(x_64, 0, x_70); -return x_64; -} -else -{ -lean_object* x_71; uint8_t x_72; lean_object* x_73; lean_object* x_74; -x_71 = lean_ctor_get(x_64, 1); -lean_inc(x_71); -lean_dec(x_64); -x_72 = 0; -x_73 = lean_box(x_72); -x_74 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_74, 0, x_73); -lean_ctor_set(x_74, 1, x_71); -return x_74; -} -} -case 1: -{ -uint8_t x_75; -lean_dec(x_33); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_75 = !lean_is_exclusive(x_64); -if (x_75 == 0) -{ -lean_object* x_76; uint8_t x_77; lean_object* x_78; -x_76 = lean_ctor_get(x_64, 0); -lean_dec(x_76); -x_77 = 1; -x_78 = lean_box(x_77); -lean_ctor_set(x_64, 0, x_78); -return x_64; -} -else -{ -lean_object* x_79; uint8_t x_80; lean_object* x_81; lean_object* x_82; -x_79 = lean_ctor_get(x_64, 1); -lean_inc(x_79); -lean_dec(x_64); -x_80 = 1; -x_81 = lean_box(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_79); -return x_82; -} -} -default: -{ -lean_object* x_83; lean_object* x_84; -x_83 = lean_ctor_get(x_64, 1); -lean_inc(x_83); -lean_dec(x_64); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_84 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_83); -if (lean_obj_tag(x_84) == 0) -{ -lean_object* x_85; uint8_t x_86; -x_85 = lean_ctor_get(x_84, 0); -lean_inc(x_85); -x_86 = lean_unbox(x_85); -lean_dec(x_85); -switch (x_86) { -case 0: -{ -uint8_t x_87; -lean_dec(x_33); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_87 = !lean_is_exclusive(x_84); -if (x_87 == 0) -{ -lean_object* x_88; uint8_t x_89; lean_object* x_90; -x_88 = lean_ctor_get(x_84, 0); -lean_dec(x_88); -x_89 = 0; -x_90 = lean_box(x_89); -lean_ctor_set(x_84, 0, x_90); -return x_84; -} -else -{ -lean_object* x_91; uint8_t x_92; lean_object* x_93; lean_object* x_94; -x_91 = lean_ctor_get(x_84, 1); -lean_inc(x_91); -lean_dec(x_84); -x_92 = 0; -x_93 = lean_box(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; -} -} -case 1: -{ -uint8_t x_95; -lean_dec(x_33); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_95 = !lean_is_exclusive(x_84); -if (x_95 == 0) -{ -lean_object* x_96; uint8_t x_97; lean_object* x_98; -x_96 = lean_ctor_get(x_84, 0); -lean_dec(x_96); -x_97 = 1; -x_98 = lean_box(x_97); -lean_ctor_set(x_84, 0, x_98); -return x_84; -} -else -{ -lean_object* x_99; uint8_t x_100; lean_object* x_101; lean_object* x_102; -x_99 = lean_ctor_get(x_84, 1); -lean_inc(x_99); -lean_dec(x_84); -x_100 = 1; -x_101 = lean_box(x_100); -x_102 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_102, 0, x_101); -lean_ctor_set(x_102, 1, x_99); -return x_102; -} -} -default: -{ -lean_object* x_103; lean_object* x_104; -x_103 = lean_ctor_get(x_84, 1); -lean_inc(x_103); -lean_dec(x_84); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_104 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_103); -if (lean_obj_tag(x_104) == 0) -{ -lean_object* x_105; uint8_t x_106; -x_105 = lean_ctor_get(x_104, 0); -lean_inc(x_105); -x_106 = lean_unbox(x_105); -if (x_106 == 0) -{ -lean_object* x_107; lean_object* x_108; -lean_dec(x_105); -x_107 = lean_ctor_get(x_104, 1); -lean_inc(x_107); -lean_dec(x_104); +lean_object* x_358; lean_object* x_359; +lean_dec(x_356); +x_358 = lean_ctor_get(x_355, 1); +lean_inc(x_358); +lean_dec(x_355); lean_inc(x_3); lean_inc(x_6); lean_inc(x_9); -x_108 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_107); -if (lean_obj_tag(x_108) == 0) +x_359 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_358); +if (lean_obj_tag(x_359) == 0) { -lean_object* x_109; lean_object* x_110; uint8_t x_111; -x_109 = lean_ctor_get(x_108, 0); -lean_inc(x_109); -x_110 = lean_ctor_get(x_108, 1); -lean_inc(x_110); -lean_dec(x_108); -x_111 = lean_unbox(x_109); -lean_dec(x_109); -x_34 = x_111; -x_35 = x_110; -goto block_63; +lean_object* x_360; lean_object* x_361; uint8_t x_362; +x_360 = lean_ctor_get(x_359, 0); +lean_inc(x_360); +x_361 = lean_ctor_get(x_359, 1); +lean_inc(x_361); +lean_dec(x_359); +x_362 = lean_unbox(x_360); +lean_dec(x_360); +x_34 = x_362; +x_35 = x_361; +goto block_354; } else { -uint8_t x_112; +uint8_t x_363; lean_dec(x_33); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_112 = !lean_is_exclusive(x_108); -if (x_112 == 0) +x_363 = !lean_is_exclusive(x_359); +if (x_363 == 0) { -return x_108; +return x_359; } else { -lean_object* x_113; lean_object* x_114; lean_object* x_115; -x_113 = lean_ctor_get(x_108, 0); -x_114 = lean_ctor_get(x_108, 1); -lean_inc(x_114); -lean_inc(x_113); -lean_dec(x_108); -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; +lean_object* x_364; lean_object* x_365; lean_object* x_366; +x_364 = lean_ctor_get(x_359, 0); +x_365 = lean_ctor_get(x_359, 1); +lean_inc(x_365); +lean_inc(x_364); +lean_dec(x_359); +x_366 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_366, 0, x_364); +lean_ctor_set(x_366, 1, x_365); +return x_366; } } } else { -lean_object* x_116; uint8_t x_117; -x_116 = lean_ctor_get(x_104, 1); -lean_inc(x_116); -lean_dec(x_104); -x_117 = lean_unbox(x_105); -lean_dec(x_105); -x_34 = x_117; -x_35 = x_116; -goto block_63; +lean_object* x_367; uint8_t x_368; +x_367 = lean_ctor_get(x_355, 1); +lean_inc(x_367); +lean_dec(x_355); +x_368 = lean_unbox(x_356); +lean_dec(x_356); +x_34 = x_368; +x_35 = x_367; +goto block_354; } } else { -uint8_t x_118; +uint8_t x_369; lean_dec(x_33); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_118 = !lean_is_exclusive(x_104); -if (x_118 == 0) +x_369 = !lean_is_exclusive(x_355); +if (x_369 == 0) { -return x_104; +return x_355; } else { -lean_object* x_119; lean_object* x_120; lean_object* x_121; -x_119 = lean_ctor_get(x_104, 0); -x_120 = lean_ctor_get(x_104, 1); -lean_inc(x_120); -lean_inc(x_119); -lean_dec(x_104); -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_object* x_370; lean_object* x_371; lean_object* x_372; +x_370 = lean_ctor_get(x_355, 0); +x_371 = lean_ctor_get(x_355, 1); +lean_inc(x_371); +lean_inc(x_370); +lean_dec(x_355); +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; } } -} -} -} -else -{ -uint8_t x_122; -lean_dec(x_33); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_122 = !lean_is_exclusive(x_84); -if (x_122 == 0) -{ -return x_84; -} -else -{ -lean_object* x_123; lean_object* x_124; lean_object* x_125; -x_123 = lean_ctor_get(x_84, 0); -x_124 = lean_ctor_get(x_84, 1); -lean_inc(x_124); -lean_inc(x_123); -lean_dec(x_84); -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_33); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_126 = !lean_is_exclusive(x_64); -if (x_126 == 0) -{ -return x_64; -} -else -{ -lean_object* x_127; lean_object* x_128; lean_object* x_129; -x_127 = lean_ctor_get(x_64, 0); -x_128 = lean_ctor_get(x_64, 1); -lean_inc(x_128); -lean_inc(x_127); -lean_dec(x_64); -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; -} -} -block_63: +block_354: { if (x_34 == 0) { +lean_dec(x_33); switch (lean_obj_tag(x_6)) { case 4: { @@ -50836,270 +50505,509 @@ x_36 = lean_ctor_get(x_6, 0); lean_inc(x_36); x_37 = lean_ctor_get(x_6, 1); lean_inc(x_37); -lean_dec(x_6); x_38 = lean_ctor_get(x_9, 0); lean_inc(x_38); x_39 = lean_ctor_get(x_9, 1); lean_inc(x_39); -lean_dec(x_9); x_40 = lean_name_eq(x_36, x_38); lean_dec(x_38); lean_dec(x_36); if (x_40 == 0) { -lean_object* x_41; lean_object* x_42; +lean_object* x_41; lean_dec(x_39); lean_dec(x_37); -lean_dec(x_3); -x_41 = lean_box(x_34); -if (lean_is_scalar(x_33)) { - x_42 = lean_alloc_ctor(0, 2, 0); -} else { - x_42 = x_33; -} -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_35); -return x_42; -} -else -{ -lean_object* x_43; -lean_dec(x_33); -x_43 = l_Lean_Meta_isListLevelDefEqAux___main(x_37, x_39, x_3, x_35); -lean_dec(x_3); -return x_43; -} -} -else -{ -lean_object* x_44; -lean_dec(x_33); -lean_inc(x_6); -x_44 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_35); -return x_44; -} -} -case 5: -{ -lean_dec(x_33); -if (lean_obj_tag(x_9) == 5) -{ -lean_object* x_45; lean_object* x_46; -x_45 = l_Lean_Expr_getAppFn___main(x_6); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_46 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_45, x_3, x_35); -if (lean_obj_tag(x_46) == 0) +x_41 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_41) == 0) { -lean_object* x_47; uint8_t x_48; -x_47 = lean_ctor_get(x_46, 0); -lean_inc(x_47); -x_48 = lean_unbox(x_47); -if (x_48 == 0) +lean_object* x_42; uint8_t x_43; +x_42 = lean_ctor_get(x_41, 0); +lean_inc(x_42); +x_43 = lean_unbox(x_42); +lean_dec(x_42); +switch (x_43) { +case 0: { -lean_object* x_49; lean_object* x_50; -lean_dec(x_47); -x_49 = lean_ctor_get(x_46, 1); -lean_inc(x_49); -lean_dec(x_46); -lean_inc(x_6); -x_50 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_49); -return x_50; -} -else -{ -uint8_t x_51; +uint8_t x_44; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_51 = !lean_is_exclusive(x_46); -if (x_51 == 0) +x_44 = !lean_is_exclusive(x_41); +if (x_44 == 0) { -lean_object* x_52; -x_52 = lean_ctor_get(x_46, 0); -lean_dec(x_52); -return x_46; +lean_object* x_45; uint8_t x_46; lean_object* x_47; +x_45 = lean_ctor_get(x_41, 0); +lean_dec(x_45); +x_46 = 0; +x_47 = lean_box(x_46); +lean_ctor_set(x_41, 0, x_47); +return x_41; } else { -lean_object* x_53; lean_object* x_54; -x_53 = lean_ctor_get(x_46, 1); -lean_inc(x_53); -lean_dec(x_46); -x_54 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_54, 0, x_47); -lean_ctor_set(x_54, 1, x_53); -return x_54; +lean_object* x_48; uint8_t x_49; lean_object* x_50; lean_object* x_51; +x_48 = lean_ctor_get(x_41, 1); +lean_inc(x_48); +lean_dec(x_41); +x_49 = 0; +x_50 = lean_box(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_48); +return x_51; } } -} -else +case 1: { -uint8_t x_55; +uint8_t x_52; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_55 = !lean_is_exclusive(x_46); -if (x_55 == 0) +x_52 = !lean_is_exclusive(x_41); +if (x_52 == 0) { -return x_46; +lean_object* x_53; uint8_t x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_41, 0); +lean_dec(x_53); +x_54 = 1; +x_55 = lean_box(x_54); +lean_ctor_set(x_41, 0, x_55); +return x_41; } else { -lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_56 = lean_ctor_get(x_46, 0); -x_57 = lean_ctor_get(x_46, 1); -lean_inc(x_57); +lean_object* x_56; uint8_t x_57; lean_object* x_58; lean_object* x_59; +x_56 = lean_ctor_get(x_41, 1); lean_inc(x_56); -lean_dec(x_46); -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_inc(x_6); -x_59 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_35); +lean_dec(x_41); +x_57 = 1; +x_58 = lean_box(x_57); +x_59 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_59, 0, x_58); +lean_ctor_set(x_59, 1, x_56); return x_59; } } default: { -lean_object* x_60; -lean_dec(x_33); -lean_inc(x_6); -x_60 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_35); -return x_60; -} -} -} -else +lean_object* x_60; lean_object* x_61; +x_60 = lean_ctor_get(x_41, 1); +lean_inc(x_60); +lean_dec(x_41); +x_61 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_60); +if (lean_obj_tag(x_61) == 0) { -lean_object* x_61; lean_object* x_62; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_61 = lean_box(x_34); -if (lean_is_scalar(x_33)) { - x_62 = lean_alloc_ctor(0, 2, 0); -} else { - x_62 = x_33; -} -lean_ctor_set(x_62, 0, x_61); -lean_ctor_set(x_62, 1, x_35); -return x_62; -} -} -} -} -} -else -{ -uint8_t x_130; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_130 = !lean_is_exclusive(x_13); -if (x_130 == 0) -{ -return x_13; -} -else -{ -lean_object* x_131; lean_object* x_132; lean_object* x_133; -x_131 = lean_ctor_get(x_13, 0); -x_132 = lean_ctor_get(x_13, 1); -lean_inc(x_132); -lean_inc(x_131); -lean_dec(x_13); -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; -x_134 = lean_expr_eqv(x_2, x_9); -lean_dec(x_2); -if (x_134 == 0) -{ -lean_object* x_135; -lean_dec(x_11); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_135 = l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main(x_6, x_9, x_3, x_10); -if (lean_obj_tag(x_135) == 0) -{ -lean_object* x_136; uint8_t x_137; -x_136 = lean_ctor_get(x_135, 0); -lean_inc(x_136); -x_137 = lean_unbox(x_136); -lean_dec(x_136); -switch (x_137) { +lean_object* x_62; uint8_t x_63; +x_62 = lean_ctor_get(x_61, 0); +lean_inc(x_62); +x_63 = lean_unbox(x_62); +lean_dec(x_62); +switch (x_63) { case 0: { -uint8_t x_138; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_138 = !lean_is_exclusive(x_135); -if (x_138 == 0) +uint8_t x_64; +x_64 = !lean_is_exclusive(x_61); +if (x_64 == 0) { -lean_object* x_139; uint8_t x_140; lean_object* x_141; -x_139 = lean_ctor_get(x_135, 0); -lean_dec(x_139); -x_140 = 0; -x_141 = lean_box(x_140); -lean_ctor_set(x_135, 0, x_141); -return x_135; +lean_object* x_65; uint8_t x_66; lean_object* x_67; +x_65 = lean_ctor_get(x_61, 0); +lean_dec(x_65); +x_66 = 0; +x_67 = lean_box(x_66); +lean_ctor_set(x_61, 0, x_67); +return x_61; } else { -lean_object* x_142; uint8_t x_143; lean_object* x_144; lean_object* x_145; -x_142 = lean_ctor_get(x_135, 1); -lean_inc(x_142); -lean_dec(x_135); -x_143 = 0; -x_144 = lean_box(x_143); -x_145 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_145, 0, x_144); -lean_ctor_set(x_145, 1, x_142); -return x_145; +lean_object* x_68; uint8_t x_69; lean_object* x_70; lean_object* x_71; +x_68 = lean_ctor_get(x_61, 1); +lean_inc(x_68); +lean_dec(x_61); +x_69 = 0; +x_70 = lean_box(x_69); +x_71 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_71, 0, x_70); +lean_ctor_set(x_71, 1, x_68); +return x_71; } } case 1: { +uint8_t x_72; +x_72 = !lean_is_exclusive(x_61); +if (x_72 == 0) +{ +lean_object* x_73; uint8_t x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_61, 0); +lean_dec(x_73); +x_74 = 1; +x_75 = lean_box(x_74); +lean_ctor_set(x_61, 0, x_75); +return x_61; +} +else +{ +lean_object* x_76; uint8_t x_77; lean_object* x_78; lean_object* x_79; +x_76 = lean_ctor_get(x_61, 1); +lean_inc(x_76); +lean_dec(x_61); +x_77 = 1; +x_78 = lean_box(x_77); +x_79 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_76); +return x_79; +} +} +default: +{ +uint8_t x_80; +x_80 = !lean_is_exclusive(x_61); +if (x_80 == 0) +{ +lean_object* x_81; lean_object* x_82; +x_81 = lean_ctor_get(x_61, 0); +lean_dec(x_81); +x_82 = lean_box(x_34); +lean_ctor_set(x_61, 0, x_82); +return x_61; +} +else +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; +x_83 = lean_ctor_get(x_61, 1); +lean_inc(x_83); +lean_dec(x_61); +x_84 = lean_box(x_34); +x_85 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_83); +return x_85; +} +} +} +} +else +{ +uint8_t x_86; +x_86 = !lean_is_exclusive(x_61); +if (x_86 == 0) +{ +return x_61; +} +else +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_61, 0); +x_88 = lean_ctor_get(x_61, 1); +lean_inc(x_88); +lean_inc(x_87); +lean_dec(x_61); +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_9); +lean_dec(x_6); +lean_dec(x_3); +x_90 = !lean_is_exclusive(x_41); +if (x_90 == 0) +{ +return x_41; +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; +x_91 = lean_ctor_get(x_41, 0); +x_92 = lean_ctor_get(x_41, 1); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_41); +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; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_94 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_94) == 0) +{ +lean_object* x_95; uint8_t x_96; +x_95 = lean_ctor_get(x_94, 0); +lean_inc(x_95); +x_96 = lean_unbox(x_95); +lean_dec(x_95); +switch (x_96) { +case 0: +{ +uint8_t x_97; +lean_dec(x_39); +lean_dec(x_37); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_97 = !lean_is_exclusive(x_94); +if (x_97 == 0) +{ +lean_object* x_98; uint8_t x_99; lean_object* x_100; +x_98 = lean_ctor_get(x_94, 0); +lean_dec(x_98); +x_99 = 0; +x_100 = lean_box(x_99); +lean_ctor_set(x_94, 0, x_100); +return x_94; +} +else +{ +lean_object* x_101; uint8_t x_102; lean_object* x_103; lean_object* x_104; +x_101 = lean_ctor_get(x_94, 1); +lean_inc(x_101); +lean_dec(x_94); +x_102 = 0; +x_103 = lean_box(x_102); +x_104 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_101); +return x_104; +} +} +case 1: +{ +uint8_t x_105; +lean_dec(x_39); +lean_dec(x_37); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_105 = !lean_is_exclusive(x_94); +if (x_105 == 0) +{ +lean_object* x_106; uint8_t x_107; lean_object* x_108; +x_106 = lean_ctor_get(x_94, 0); +lean_dec(x_106); +x_107 = 1; +x_108 = lean_box(x_107); +lean_ctor_set(x_94, 0, x_108); +return x_94; +} +else +{ +lean_object* x_109; uint8_t x_110; lean_object* x_111; lean_object* x_112; +x_109 = lean_ctor_get(x_94, 1); +lean_inc(x_109); +lean_dec(x_94); +x_110 = 1; +x_111 = lean_box(x_110); +x_112 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_109); +return x_112; +} +} +default: +{ +lean_object* x_113; lean_object* x_114; +x_113 = lean_ctor_get(x_94, 1); +lean_inc(x_113); +lean_dec(x_94); +lean_inc(x_3); +x_114 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_113); +if (lean_obj_tag(x_114) == 0) +{ +lean_object* x_115; uint8_t x_116; +x_115 = lean_ctor_get(x_114, 0); +lean_inc(x_115); +x_116 = lean_unbox(x_115); +lean_dec(x_115); +switch (x_116) { +case 0: +{ +uint8_t x_117; +lean_dec(x_39); +lean_dec(x_37); +lean_dec(x_3); +x_117 = !lean_is_exclusive(x_114); +if (x_117 == 0) +{ +lean_object* x_118; uint8_t x_119; lean_object* x_120; +x_118 = lean_ctor_get(x_114, 0); +lean_dec(x_118); +x_119 = 0; +x_120 = lean_box(x_119); +lean_ctor_set(x_114, 0, x_120); +return x_114; +} +else +{ +lean_object* x_121; uint8_t x_122; lean_object* x_123; lean_object* x_124; +x_121 = lean_ctor_get(x_114, 1); +lean_inc(x_121); +lean_dec(x_114); +x_122 = 0; +x_123 = lean_box(x_122); +x_124 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_121); +return x_124; +} +} +case 1: +{ +uint8_t x_125; +lean_dec(x_39); +lean_dec(x_37); +lean_dec(x_3); +x_125 = !lean_is_exclusive(x_114); +if (x_125 == 0) +{ +lean_object* x_126; uint8_t x_127; lean_object* x_128; +x_126 = lean_ctor_get(x_114, 0); +lean_dec(x_126); +x_127 = 1; +x_128 = lean_box(x_127); +lean_ctor_set(x_114, 0, x_128); +return x_114; +} +else +{ +lean_object* x_129; uint8_t x_130; lean_object* x_131; lean_object* x_132; +x_129 = lean_ctor_get(x_114, 1); +lean_inc(x_129); +lean_dec(x_114); +x_130 = 1; +x_131 = lean_box(x_130); +x_132 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_132, 0, x_131); +lean_ctor_set(x_132, 1, x_129); +return x_132; +} +} +default: +{ +lean_object* x_133; lean_object* x_134; +x_133 = lean_ctor_get(x_114, 1); +lean_inc(x_133); +lean_dec(x_114); +x_134 = l_Lean_Meta_isListLevelDefEqAux___main(x_37, x_39, x_3, x_133); +lean_dec(x_3); +return x_134; +} +} +} +else +{ +uint8_t x_135; +lean_dec(x_39); +lean_dec(x_37); +lean_dec(x_3); +x_135 = !lean_is_exclusive(x_114); +if (x_135 == 0) +{ +return x_114; +} +else +{ +lean_object* x_136; lean_object* x_137; lean_object* x_138; +x_136 = lean_ctor_get(x_114, 0); +x_137 = lean_ctor_get(x_114, 1); +lean_inc(x_137); +lean_inc(x_136); +lean_dec(x_114); +x_138 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_138, 0, x_136); +lean_ctor_set(x_138, 1, x_137); +return x_138; +} +} +} +} +} +else +{ +uint8_t x_139; +lean_dec(x_39); +lean_dec(x_37); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_139 = !lean_is_exclusive(x_94); +if (x_139 == 0) +{ +return x_94; +} +else +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; +x_140 = lean_ctor_get(x_94, 0); +x_141 = lean_ctor_get(x_94, 1); +lean_inc(x_141); +lean_inc(x_140); +lean_dec(x_94); +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; +} +} +} +} +else +{ +lean_object* x_143; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_143 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_143) == 0) +{ +lean_object* x_144; uint8_t x_145; +x_144 = lean_ctor_get(x_143, 0); +lean_inc(x_144); +x_145 = lean_unbox(x_144); +lean_dec(x_144); +switch (x_145) { +case 0: +{ uint8_t x_146; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_146 = !lean_is_exclusive(x_135); +x_146 = !lean_is_exclusive(x_143); if (x_146 == 0) { lean_object* x_147; uint8_t x_148; lean_object* x_149; -x_147 = lean_ctor_get(x_135, 0); +x_147 = lean_ctor_get(x_143, 0); lean_dec(x_147); -x_148 = 1; +x_148 = 0; x_149 = lean_box(x_148); -lean_ctor_set(x_135, 0, x_149); -return x_135; +lean_ctor_set(x_143, 0, x_149); +return x_143; } else { lean_object* x_150; uint8_t x_151; lean_object* x_152; lean_object* x_153; -x_150 = lean_ctor_get(x_135, 1); +x_150 = lean_ctor_get(x_143, 1); lean_inc(x_150); -lean_dec(x_135); -x_151 = 1; +lean_dec(x_143); +x_151 = 0; x_152 = lean_box(x_151); x_153 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_153, 0, x_152); @@ -51107,513 +51015,152 @@ lean_ctor_set(x_153, 1, x_150); return x_153; } } -default: -{ -lean_object* x_154; lean_object* x_155; uint8_t x_156; lean_object* x_157; lean_object* x_186; -x_154 = lean_ctor_get(x_135, 1); -lean_inc(x_154); -if (lean_is_exclusive(x_135)) { - lean_ctor_release(x_135, 0); - lean_ctor_release(x_135, 1); - x_155 = x_135; -} else { - lean_dec_ref(x_135); - x_155 = lean_box(0); -} -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_186 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_154); -if (lean_obj_tag(x_186) == 0) -{ -lean_object* x_187; uint8_t x_188; -x_187 = lean_ctor_get(x_186, 0); -lean_inc(x_187); -x_188 = lean_unbox(x_187); -lean_dec(x_187); -switch (x_188) { -case 0: -{ -uint8_t x_189; -lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_189 = !lean_is_exclusive(x_186); -if (x_189 == 0) -{ -lean_object* x_190; uint8_t x_191; lean_object* x_192; -x_190 = lean_ctor_get(x_186, 0); -lean_dec(x_190); -x_191 = 0; -x_192 = lean_box(x_191); -lean_ctor_set(x_186, 0, x_192); -return x_186; -} -else -{ -lean_object* x_193; uint8_t x_194; lean_object* x_195; lean_object* x_196; -x_193 = lean_ctor_get(x_186, 1); -lean_inc(x_193); -lean_dec(x_186); -x_194 = 0; -x_195 = lean_box(x_194); -x_196 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_196, 0, x_195); -lean_ctor_set(x_196, 1, x_193); -return x_196; -} -} case 1: { -uint8_t x_197; -lean_dec(x_155); +uint8_t x_154; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_197 = !lean_is_exclusive(x_186); -if (x_197 == 0) +x_154 = !lean_is_exclusive(x_143); +if (x_154 == 0) { -lean_object* x_198; uint8_t x_199; lean_object* x_200; -x_198 = lean_ctor_get(x_186, 0); -lean_dec(x_198); -x_199 = 1; -x_200 = lean_box(x_199); -lean_ctor_set(x_186, 0, x_200); -return x_186; -} -else -{ -lean_object* x_201; uint8_t x_202; lean_object* x_203; lean_object* x_204; -x_201 = lean_ctor_get(x_186, 1); -lean_inc(x_201); -lean_dec(x_186); -x_202 = 1; -x_203 = lean_box(x_202); -x_204 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_204, 0, x_203); -lean_ctor_set(x_204, 1, x_201); -return x_204; -} -} -default: -{ -lean_object* x_205; lean_object* x_206; -x_205 = lean_ctor_get(x_186, 1); -lean_inc(x_205); -lean_dec(x_186); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_206 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_205); -if (lean_obj_tag(x_206) == 0) -{ -lean_object* x_207; uint8_t x_208; -x_207 = lean_ctor_get(x_206, 0); -lean_inc(x_207); -x_208 = lean_unbox(x_207); -lean_dec(x_207); -switch (x_208) { -case 0: -{ -uint8_t x_209; +lean_object* x_155; uint8_t x_156; lean_object* x_157; +x_155 = lean_ctor_get(x_143, 0); lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_209 = !lean_is_exclusive(x_206); -if (x_209 == 0) -{ -lean_object* x_210; uint8_t x_211; lean_object* x_212; -x_210 = lean_ctor_get(x_206, 0); -lean_dec(x_210); -x_211 = 0; -x_212 = lean_box(x_211); -lean_ctor_set(x_206, 0, x_212); -return x_206; +x_156 = 1; +x_157 = lean_box(x_156); +lean_ctor_set(x_143, 0, x_157); +return x_143; } else { -lean_object* x_213; uint8_t x_214; lean_object* x_215; lean_object* x_216; -x_213 = lean_ctor_get(x_206, 1); -lean_inc(x_213); -lean_dec(x_206); -x_214 = 0; -x_215 = lean_box(x_214); -x_216 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_216, 0, x_215); -lean_ctor_set(x_216, 1, x_213); -return x_216; -} -} -case 1: -{ -uint8_t x_217; -lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_217 = !lean_is_exclusive(x_206); -if (x_217 == 0) -{ -lean_object* x_218; uint8_t x_219; lean_object* x_220; -x_218 = lean_ctor_get(x_206, 0); -lean_dec(x_218); -x_219 = 1; -x_220 = lean_box(x_219); -lean_ctor_set(x_206, 0, x_220); -return x_206; -} -else -{ -lean_object* x_221; uint8_t x_222; lean_object* x_223; lean_object* x_224; -x_221 = lean_ctor_get(x_206, 1); -lean_inc(x_221); -lean_dec(x_206); -x_222 = 1; -x_223 = lean_box(x_222); -x_224 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_224, 0, x_223); -lean_ctor_set(x_224, 1, x_221); -return x_224; -} -} -default: -{ -lean_object* x_225; lean_object* x_226; -x_225 = lean_ctor_get(x_206, 1); -lean_inc(x_225); -lean_dec(x_206); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_226 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_225); -if (lean_obj_tag(x_226) == 0) -{ -lean_object* x_227; uint8_t x_228; -x_227 = lean_ctor_get(x_226, 0); -lean_inc(x_227); -x_228 = lean_unbox(x_227); -if (x_228 == 0) -{ -lean_object* x_229; lean_object* x_230; -lean_dec(x_227); -x_229 = lean_ctor_get(x_226, 1); -lean_inc(x_229); -lean_dec(x_226); -lean_inc(x_3); -lean_inc(x_6); -lean_inc(x_9); -x_230 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_229); -if (lean_obj_tag(x_230) == 0) -{ -lean_object* x_231; lean_object* x_232; uint8_t x_233; -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_unbox(x_231); -lean_dec(x_231); -x_156 = x_233; -x_157 = x_232; -goto block_185; -} -else -{ -uint8_t x_234; -lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_234 = !lean_is_exclusive(x_230); -if (x_234 == 0) -{ -return x_230; -} -else -{ -lean_object* x_235; lean_object* x_236; lean_object* x_237; -x_235 = lean_ctor_get(x_230, 0); -x_236 = lean_ctor_get(x_230, 1); -lean_inc(x_236); -lean_inc(x_235); -lean_dec(x_230); -x_237 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_237, 0, x_235); -lean_ctor_set(x_237, 1, x_236); -return x_237; -} -} -} -else -{ -lean_object* x_238; uint8_t x_239; -x_238 = lean_ctor_get(x_226, 1); -lean_inc(x_238); -lean_dec(x_226); -x_239 = lean_unbox(x_227); -lean_dec(x_227); -x_156 = x_239; -x_157 = x_238; -goto block_185; -} -} -else -{ -uint8_t x_240; -lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_240 = !lean_is_exclusive(x_226); -if (x_240 == 0) -{ -return x_226; -} -else -{ -lean_object* x_241; lean_object* x_242; lean_object* x_243; -x_241 = lean_ctor_get(x_226, 0); -x_242 = lean_ctor_get(x_226, 1); -lean_inc(x_242); -lean_inc(x_241); -lean_dec(x_226); -x_243 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_243, 0, x_241); -lean_ctor_set(x_243, 1, x_242); -return x_243; -} -} -} -} -} -else -{ -uint8_t x_244; -lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_244 = !lean_is_exclusive(x_206); -if (x_244 == 0) -{ -return x_206; -} -else -{ -lean_object* x_245; lean_object* x_246; lean_object* x_247; -x_245 = lean_ctor_get(x_206, 0); -x_246 = lean_ctor_get(x_206, 1); -lean_inc(x_246); -lean_inc(x_245); -lean_dec(x_206); -x_247 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_247, 0, x_245); -lean_ctor_set(x_247, 1, x_246); -return x_247; -} -} -} -} -} -else -{ -uint8_t x_248; -lean_dec(x_155); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_248 = !lean_is_exclusive(x_186); -if (x_248 == 0) -{ -return x_186; -} -else -{ -lean_object* x_249; lean_object* x_250; lean_object* x_251; -x_249 = lean_ctor_get(x_186, 0); -x_250 = lean_ctor_get(x_186, 1); -lean_inc(x_250); -lean_inc(x_249); -lean_dec(x_186); -x_251 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_251, 0, x_249); -lean_ctor_set(x_251, 1, x_250); -return x_251; -} -} -block_185: -{ -if (x_156 == 0) -{ -switch (lean_obj_tag(x_6)) { -case 4: -{ -if (lean_obj_tag(x_9) == 4) -{ -lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; uint8_t x_162; -x_158 = lean_ctor_get(x_6, 0); +lean_object* x_158; uint8_t x_159; lean_object* x_160; lean_object* x_161; +x_158 = lean_ctor_get(x_143, 1); lean_inc(x_158); -x_159 = lean_ctor_get(x_6, 1); -lean_inc(x_159); -lean_dec(x_6); -x_160 = lean_ctor_get(x_9, 0); -lean_inc(x_160); -x_161 = lean_ctor_get(x_9, 1); -lean_inc(x_161); -lean_dec(x_9); -x_162 = lean_name_eq(x_158, x_160); -lean_dec(x_160); -lean_dec(x_158); -if (x_162 == 0) +lean_dec(x_143); +x_159 = 1; +x_160 = lean_box(x_159); +x_161 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_161, 0, x_160); +lean_ctor_set(x_161, 1, x_158); +return x_161; +} +} +default: { -lean_object* x_163; lean_object* x_164; -lean_dec(x_161); -lean_dec(x_159); -lean_dec(x_3); -x_163 = lean_box(x_156); -if (lean_is_scalar(x_155)) { - x_164 = lean_alloc_ctor(0, 2, 0); -} else { - x_164 = x_155; -} -lean_ctor_set(x_164, 0, x_163); -lean_ctor_set(x_164, 1, x_157); -return x_164; -} -else -{ -lean_object* x_165; -lean_dec(x_155); -x_165 = l_Lean_Meta_isListLevelDefEqAux___main(x_159, x_161, x_3, x_157); -lean_dec(x_3); -return x_165; -} -} -else -{ -lean_object* x_166; -lean_dec(x_155); -lean_inc(x_6); -x_166 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_157); -return x_166; -} -} -case 5: -{ -lean_dec(x_155); -if (lean_obj_tag(x_9) == 5) -{ -lean_object* x_167; lean_object* x_168; -x_167 = l_Lean_Expr_getAppFn___main(x_6); +lean_object* x_162; lean_object* x_163; +x_162 = lean_ctor_get(x_143, 1); +lean_inc(x_162); +lean_dec(x_143); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_168 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_167, x_3, x_157); -if (lean_obj_tag(x_168) == 0) +x_163 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_162); +if (lean_obj_tag(x_163) == 0) { -lean_object* x_169; uint8_t x_170; -x_169 = lean_ctor_get(x_168, 0); -lean_inc(x_169); -x_170 = lean_unbox(x_169); -if (x_170 == 0) +lean_object* x_164; uint8_t x_165; +x_164 = lean_ctor_get(x_163, 0); +lean_inc(x_164); +x_165 = lean_unbox(x_164); +lean_dec(x_164); +switch (x_165) { +case 0: { -lean_object* x_171; lean_object* x_172; -lean_dec(x_169); -x_171 = lean_ctor_get(x_168, 1); -lean_inc(x_171); -lean_dec(x_168); -lean_inc(x_6); -x_172 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_171); -return x_172; -} -else -{ -uint8_t x_173; +uint8_t x_166; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_173 = !lean_is_exclusive(x_168); -if (x_173 == 0) +x_166 = !lean_is_exclusive(x_163); +if (x_166 == 0) { -lean_object* x_174; -x_174 = lean_ctor_get(x_168, 0); -lean_dec(x_174); -return x_168; +lean_object* x_167; uint8_t x_168; lean_object* x_169; +x_167 = lean_ctor_get(x_163, 0); +lean_dec(x_167); +x_168 = 0; +x_169 = lean_box(x_168); +lean_ctor_set(x_163, 0, x_169); +return x_163; } else { -lean_object* x_175; lean_object* x_176; -x_175 = lean_ctor_get(x_168, 1); -lean_inc(x_175); -lean_dec(x_168); -x_176 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_176, 0, x_169); -lean_ctor_set(x_176, 1, x_175); -return x_176; +lean_object* x_170; uint8_t x_171; lean_object* x_172; lean_object* x_173; +x_170 = lean_ctor_get(x_163, 1); +lean_inc(x_170); +lean_dec(x_163); +x_171 = 0; +x_172 = lean_box(x_171); +x_173 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_173, 0, x_172); +lean_ctor_set(x_173, 1, x_170); +return x_173; } } -} -else +case 1: { -uint8_t x_177; +uint8_t x_174; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_177 = !lean_is_exclusive(x_168); -if (x_177 == 0) +x_174 = !lean_is_exclusive(x_163); +if (x_174 == 0) { -return x_168; +lean_object* x_175; uint8_t x_176; lean_object* x_177; +x_175 = lean_ctor_get(x_163, 0); +lean_dec(x_175); +x_176 = 1; +x_177 = lean_box(x_176); +lean_ctor_set(x_163, 0, x_177); +return x_163; } else { -lean_object* x_178; lean_object* x_179; lean_object* x_180; -x_178 = lean_ctor_get(x_168, 0); -x_179 = lean_ctor_get(x_168, 1); -lean_inc(x_179); +lean_object* x_178; uint8_t x_179; lean_object* x_180; lean_object* x_181; +x_178 = lean_ctor_get(x_163, 1); lean_inc(x_178); -lean_dec(x_168); -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; -} -} -} -else -{ -lean_object* x_181; -lean_inc(x_6); -x_181 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_157); +lean_dec(x_163); +x_179 = 1; +x_180 = lean_box(x_179); +x_181 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_181, 0, x_180); +lean_ctor_set(x_181, 1, x_178); return x_181; } } default: { -lean_object* x_182; -lean_dec(x_155); +lean_object* x_182; lean_object* x_183; +x_182 = lean_ctor_get(x_163, 1); +lean_inc(x_182); +lean_dec(x_163); lean_inc(x_6); -x_182 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_157); -return x_182; +x_183 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_182); +return x_183; } } } else { -lean_object* x_183; lean_object* x_184; +uint8_t x_184; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_183 = lean_box(x_156); -if (lean_is_scalar(x_155)) { - x_184 = lean_alloc_ctor(0, 2, 0); -} else { - x_184 = x_155; +x_184 = !lean_is_exclusive(x_163); +if (x_184 == 0) +{ +return x_163; } -lean_ctor_set(x_184, 0, x_183); -lean_ctor_set(x_184, 1, x_157); -return x_184; +else +{ +lean_object* x_185; lean_object* x_186; lean_object* x_187; +x_185 = lean_ctor_get(x_163, 0); +x_186 = lean_ctor_get(x_163, 1); +lean_inc(x_186); +lean_inc(x_185); +lean_dec(x_163); +x_187 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_187, 0, x_185); +lean_ctor_set(x_187, 1, x_186); +return x_187; } } } @@ -51621,321 +51168,745 @@ return x_184; } else { -uint8_t x_252; +uint8_t x_188; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_252 = !lean_is_exclusive(x_135); -if (x_252 == 0) +x_188 = !lean_is_exclusive(x_143); +if (x_188 == 0) { -return x_135; +return x_143; } else { -lean_object* x_253; lean_object* x_254; lean_object* x_255; -x_253 = lean_ctor_get(x_135, 0); -x_254 = lean_ctor_get(x_135, 1); -lean_inc(x_254); -lean_inc(x_253); -lean_dec(x_135); -x_255 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_255, 0, x_253); -lean_ctor_set(x_255, 1, x_254); -return x_255; +lean_object* x_189; lean_object* x_190; lean_object* x_191; +x_189 = lean_ctor_get(x_143, 0); +x_190 = lean_ctor_get(x_143, 1); +lean_inc(x_190); +lean_inc(x_189); +lean_dec(x_143); +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 +} +case 5: { -uint8_t x_256; lean_object* x_257; lean_object* x_286; +if (lean_obj_tag(x_9) == 5) +{ +lean_object* x_192; lean_object* x_193; +x_192 = l_Lean_Expr_getAppFn___main(x_6); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_286 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_10); -if (lean_obj_tag(x_286) == 0) +x_193 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_193) == 0) { -lean_object* x_287; uint8_t x_288; -x_287 = lean_ctor_get(x_286, 0); -lean_inc(x_287); -x_288 = lean_unbox(x_287); -lean_dec(x_287); -switch (x_288) { +lean_object* x_194; uint8_t x_195; +x_194 = lean_ctor_get(x_193, 0); +lean_inc(x_194); +x_195 = lean_unbox(x_194); +lean_dec(x_194); +switch (x_195) { case 0: { -uint8_t x_289; -lean_dec(x_11); +uint8_t x_196; +lean_dec(x_192); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_289 = !lean_is_exclusive(x_286); -if (x_289 == 0) +x_196 = !lean_is_exclusive(x_193); +if (x_196 == 0) { -lean_object* x_290; uint8_t x_291; lean_object* x_292; -x_290 = lean_ctor_get(x_286, 0); -lean_dec(x_290); -x_291 = 0; -x_292 = lean_box(x_291); -lean_ctor_set(x_286, 0, x_292); -return x_286; +lean_object* x_197; uint8_t x_198; lean_object* x_199; +x_197 = lean_ctor_get(x_193, 0); +lean_dec(x_197); +x_198 = 0; +x_199 = lean_box(x_198); +lean_ctor_set(x_193, 0, x_199); +return x_193; } else { -lean_object* x_293; uint8_t x_294; lean_object* x_295; lean_object* x_296; -x_293 = lean_ctor_get(x_286, 1); -lean_inc(x_293); -lean_dec(x_286); -x_294 = 0; -x_295 = lean_box(x_294); -x_296 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_296, 0, x_295); -lean_ctor_set(x_296, 1, x_293); -return x_296; +lean_object* x_200; uint8_t x_201; lean_object* x_202; lean_object* x_203; +x_200 = lean_ctor_get(x_193, 1); +lean_inc(x_200); +lean_dec(x_193); +x_201 = 0; +x_202 = lean_box(x_201); +x_203 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_203, 0, x_202); +lean_ctor_set(x_203, 1, x_200); +return x_203; } } case 1: { -uint8_t x_297; -lean_dec(x_11); +uint8_t x_204; +lean_dec(x_192); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_297 = !lean_is_exclusive(x_286); -if (x_297 == 0) +x_204 = !lean_is_exclusive(x_193); +if (x_204 == 0) { -lean_object* x_298; uint8_t x_299; lean_object* x_300; -x_298 = lean_ctor_get(x_286, 0); -lean_dec(x_298); -x_299 = 1; -x_300 = lean_box(x_299); -lean_ctor_set(x_286, 0, x_300); -return x_286; +lean_object* x_205; uint8_t x_206; lean_object* x_207; +x_205 = lean_ctor_get(x_193, 0); +lean_dec(x_205); +x_206 = 1; +x_207 = lean_box(x_206); +lean_ctor_set(x_193, 0, x_207); +return x_193; } else { -lean_object* x_301; uint8_t x_302; lean_object* x_303; lean_object* x_304; -x_301 = lean_ctor_get(x_286, 1); -lean_inc(x_301); -lean_dec(x_286); -x_302 = 1; -x_303 = lean_box(x_302); -x_304 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_304, 0, x_303); -lean_ctor_set(x_304, 1, x_301); -return x_304; +lean_object* x_208; uint8_t x_209; lean_object* x_210; lean_object* x_211; +x_208 = lean_ctor_get(x_193, 1); +lean_inc(x_208); +lean_dec(x_193); +x_209 = 1; +x_210 = lean_box(x_209); +x_211 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_211, 0, x_210); +lean_ctor_set(x_211, 1, x_208); +return x_211; } } default: { -lean_object* x_305; lean_object* x_306; -x_305 = lean_ctor_get(x_286, 1); -lean_inc(x_305); -lean_dec(x_286); +lean_object* x_212; lean_object* x_213; +x_212 = lean_ctor_get(x_193, 1); +lean_inc(x_212); +lean_dec(x_193); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_306 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_305); -if (lean_obj_tag(x_306) == 0) +x_213 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_212); +if (lean_obj_tag(x_213) == 0) { -lean_object* x_307; uint8_t x_308; -x_307 = lean_ctor_get(x_306, 0); -lean_inc(x_307); -x_308 = lean_unbox(x_307); -lean_dec(x_307); -switch (x_308) { +lean_object* x_214; uint8_t x_215; +x_214 = lean_ctor_get(x_213, 0); +lean_inc(x_214); +x_215 = lean_unbox(x_214); +lean_dec(x_214); +switch (x_215) { case 0: { -uint8_t x_309; -lean_dec(x_11); +uint8_t x_216; +lean_dec(x_192); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_309 = !lean_is_exclusive(x_306); -if (x_309 == 0) +x_216 = !lean_is_exclusive(x_213); +if (x_216 == 0) { -lean_object* x_310; uint8_t x_311; lean_object* x_312; -x_310 = lean_ctor_get(x_306, 0); -lean_dec(x_310); +lean_object* x_217; uint8_t x_218; lean_object* x_219; +x_217 = lean_ctor_get(x_213, 0); +lean_dec(x_217); +x_218 = 0; +x_219 = lean_box(x_218); +lean_ctor_set(x_213, 0, x_219); +return x_213; +} +else +{ +lean_object* x_220; uint8_t x_221; lean_object* x_222; lean_object* x_223; +x_220 = lean_ctor_get(x_213, 1); +lean_inc(x_220); +lean_dec(x_213); +x_221 = 0; +x_222 = lean_box(x_221); +x_223 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_223, 0, x_222); +lean_ctor_set(x_223, 1, x_220); +return x_223; +} +} +case 1: +{ +uint8_t x_224; +lean_dec(x_192); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_224 = !lean_is_exclusive(x_213); +if (x_224 == 0) +{ +lean_object* x_225; uint8_t x_226; lean_object* x_227; +x_225 = lean_ctor_get(x_213, 0); +lean_dec(x_225); +x_226 = 1; +x_227 = lean_box(x_226); +lean_ctor_set(x_213, 0, x_227); +return x_213; +} +else +{ +lean_object* x_228; uint8_t x_229; lean_object* x_230; lean_object* x_231; +x_228 = lean_ctor_get(x_213, 1); +lean_inc(x_228); +lean_dec(x_213); +x_229 = 1; +x_230 = lean_box(x_229); +x_231 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_231, 0, x_230); +lean_ctor_set(x_231, 1, x_228); +return x_231; +} +} +default: +{ +lean_object* x_232; lean_object* x_233; +x_232 = lean_ctor_get(x_213, 1); +lean_inc(x_232); +lean_dec(x_213); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_233 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_192, x_3, x_232); +if (lean_obj_tag(x_233) == 0) +{ +lean_object* x_234; uint8_t x_235; +x_234 = lean_ctor_get(x_233, 0); +lean_inc(x_234); +x_235 = lean_unbox(x_234); +if (x_235 == 0) +{ +lean_object* x_236; lean_object* x_237; +lean_dec(x_234); +x_236 = lean_ctor_get(x_233, 1); +lean_inc(x_236); +lean_dec(x_233); +lean_inc(x_6); +x_237 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_236); +return x_237; +} +else +{ +uint8_t x_238; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_238 = !lean_is_exclusive(x_233); +if (x_238 == 0) +{ +lean_object* x_239; +x_239 = lean_ctor_get(x_233, 0); +lean_dec(x_239); +return x_233; +} +else +{ +lean_object* x_240; lean_object* x_241; +x_240 = lean_ctor_get(x_233, 1); +lean_inc(x_240); +lean_dec(x_233); +x_241 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_241, 0, x_234); +lean_ctor_set(x_241, 1, x_240); +return x_241; +} +} +} +else +{ +uint8_t x_242; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_242 = !lean_is_exclusive(x_233); +if (x_242 == 0) +{ +return x_233; +} +else +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; +x_243 = lean_ctor_get(x_233, 0); +x_244 = lean_ctor_get(x_233, 1); +lean_inc(x_244); +lean_inc(x_243); +lean_dec(x_233); +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_192); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_246 = !lean_is_exclusive(x_213); +if (x_246 == 0) +{ +return x_213; +} +else +{ +lean_object* x_247; lean_object* x_248; lean_object* x_249; +x_247 = lean_ctor_get(x_213, 0); +x_248 = lean_ctor_get(x_213, 1); +lean_inc(x_248); +lean_inc(x_247); +lean_dec(x_213); +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_250; +lean_dec(x_192); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_250 = !lean_is_exclusive(x_193); +if (x_250 == 0) +{ +return x_193; +} +else +{ +lean_object* x_251; lean_object* x_252; lean_object* x_253; +x_251 = lean_ctor_get(x_193, 0); +x_252 = lean_ctor_get(x_193, 1); +lean_inc(x_252); +lean_inc(x_251); +lean_dec(x_193); +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 +{ +lean_object* x_254; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_254 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_254) == 0) +{ +lean_object* x_255; uint8_t x_256; +x_255 = lean_ctor_get(x_254, 0); +lean_inc(x_255); +x_256 = lean_unbox(x_255); +lean_dec(x_255); +switch (x_256) { +case 0: +{ +uint8_t x_257; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_257 = !lean_is_exclusive(x_254); +if (x_257 == 0) +{ +lean_object* x_258; uint8_t x_259; lean_object* x_260; +x_258 = lean_ctor_get(x_254, 0); +lean_dec(x_258); +x_259 = 0; +x_260 = lean_box(x_259); +lean_ctor_set(x_254, 0, x_260); +return x_254; +} +else +{ +lean_object* x_261; uint8_t x_262; lean_object* x_263; lean_object* x_264; +x_261 = lean_ctor_get(x_254, 1); +lean_inc(x_261); +lean_dec(x_254); +x_262 = 0; +x_263 = lean_box(x_262); +x_264 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_264, 0, x_263); +lean_ctor_set(x_264, 1, x_261); +return x_264; +} +} +case 1: +{ +uint8_t x_265; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_265 = !lean_is_exclusive(x_254); +if (x_265 == 0) +{ +lean_object* x_266; uint8_t x_267; lean_object* x_268; +x_266 = lean_ctor_get(x_254, 0); +lean_dec(x_266); +x_267 = 1; +x_268 = lean_box(x_267); +lean_ctor_set(x_254, 0, x_268); +return x_254; +} +else +{ +lean_object* x_269; uint8_t x_270; lean_object* x_271; lean_object* x_272; +x_269 = lean_ctor_get(x_254, 1); +lean_inc(x_269); +lean_dec(x_254); +x_270 = 1; +x_271 = lean_box(x_270); +x_272 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_272, 0, x_271); +lean_ctor_set(x_272, 1, x_269); +return x_272; +} +} +default: +{ +lean_object* x_273; lean_object* x_274; +x_273 = lean_ctor_get(x_254, 1); +lean_inc(x_273); +lean_dec(x_254); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_274 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_273); +if (lean_obj_tag(x_274) == 0) +{ +lean_object* x_275; uint8_t x_276; +x_275 = lean_ctor_get(x_274, 0); +lean_inc(x_275); +x_276 = lean_unbox(x_275); +lean_dec(x_275); +switch (x_276) { +case 0: +{ +uint8_t x_277; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_277 = !lean_is_exclusive(x_274); +if (x_277 == 0) +{ +lean_object* x_278; uint8_t x_279; lean_object* x_280; +x_278 = lean_ctor_get(x_274, 0); +lean_dec(x_278); +x_279 = 0; +x_280 = lean_box(x_279); +lean_ctor_set(x_274, 0, x_280); +return x_274; +} +else +{ +lean_object* x_281; uint8_t x_282; lean_object* x_283; lean_object* x_284; +x_281 = lean_ctor_get(x_274, 1); +lean_inc(x_281); +lean_dec(x_274); +x_282 = 0; +x_283 = lean_box(x_282); +x_284 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_284, 0, x_283); +lean_ctor_set(x_284, 1, x_281); +return x_284; +} +} +case 1: +{ +uint8_t x_285; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_285 = !lean_is_exclusive(x_274); +if (x_285 == 0) +{ +lean_object* x_286; uint8_t x_287; lean_object* x_288; +x_286 = lean_ctor_get(x_274, 0); +lean_dec(x_286); +x_287 = 1; +x_288 = lean_box(x_287); +lean_ctor_set(x_274, 0, x_288); +return x_274; +} +else +{ +lean_object* x_289; uint8_t x_290; lean_object* x_291; lean_object* x_292; +x_289 = lean_ctor_get(x_274, 1); +lean_inc(x_289); +lean_dec(x_274); +x_290 = 1; +x_291 = lean_box(x_290); +x_292 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_292, 0, x_291); +lean_ctor_set(x_292, 1, x_289); +return x_292; +} +} +default: +{ +lean_object* x_293; lean_object* x_294; +x_293 = lean_ctor_get(x_274, 1); +lean_inc(x_293); +lean_dec(x_274); +lean_inc(x_6); +x_294 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_293); +return x_294; +} +} +} +else +{ +uint8_t x_295; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_295 = !lean_is_exclusive(x_274); +if (x_295 == 0) +{ +return x_274; +} +else +{ +lean_object* x_296; lean_object* x_297; lean_object* x_298; +x_296 = lean_ctor_get(x_274, 0); +x_297 = lean_ctor_get(x_274, 1); +lean_inc(x_297); +lean_inc(x_296); +lean_dec(x_274); +x_298 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_298, 0, x_296); +lean_ctor_set(x_298, 1, x_297); +return x_298; +} +} +} +} +} +else +{ +uint8_t x_299; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_299 = !lean_is_exclusive(x_254); +if (x_299 == 0) +{ +return x_254; +} +else +{ +lean_object* x_300; lean_object* x_301; lean_object* x_302; +x_300 = lean_ctor_get(x_254, 0); +x_301 = lean_ctor_get(x_254, 1); +lean_inc(x_301); +lean_inc(x_300); +lean_dec(x_254); +x_302 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_302, 0, x_300); +lean_ctor_set(x_302, 1, x_301); +return x_302; +} +} +} +} +default: +{ +lean_object* x_303; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_303 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_303) == 0) +{ +lean_object* x_304; uint8_t x_305; +x_304 = lean_ctor_get(x_303, 0); +lean_inc(x_304); +x_305 = lean_unbox(x_304); +lean_dec(x_304); +switch (x_305) { +case 0: +{ +uint8_t x_306; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_306 = !lean_is_exclusive(x_303); +if (x_306 == 0) +{ +lean_object* x_307; uint8_t x_308; lean_object* x_309; +x_307 = lean_ctor_get(x_303, 0); +lean_dec(x_307); +x_308 = 0; +x_309 = lean_box(x_308); +lean_ctor_set(x_303, 0, x_309); +return x_303; +} +else +{ +lean_object* x_310; uint8_t x_311; lean_object* x_312; lean_object* x_313; +x_310 = lean_ctor_get(x_303, 1); +lean_inc(x_310); +lean_dec(x_303); x_311 = 0; x_312 = lean_box(x_311); -lean_ctor_set(x_306, 0, x_312); -return x_306; -} -else -{ -lean_object* x_313; uint8_t x_314; lean_object* x_315; lean_object* x_316; -x_313 = lean_ctor_get(x_306, 1); -lean_inc(x_313); -lean_dec(x_306); -x_314 = 0; -x_315 = lean_box(x_314); -x_316 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_316, 0, x_315); -lean_ctor_set(x_316, 1, x_313); -return x_316; +x_313 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_313, 0, x_312); +lean_ctor_set(x_313, 1, x_310); +return x_313; } } case 1: { -uint8_t x_317; -lean_dec(x_11); +uint8_t x_314; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_317 = !lean_is_exclusive(x_306); -if (x_317 == 0) +x_314 = !lean_is_exclusive(x_303); +if (x_314 == 0) { -lean_object* x_318; uint8_t x_319; lean_object* x_320; -x_318 = lean_ctor_get(x_306, 0); -lean_dec(x_318); -x_319 = 1; -x_320 = lean_box(x_319); -lean_ctor_set(x_306, 0, x_320); -return x_306; +lean_object* x_315; uint8_t x_316; lean_object* x_317; +x_315 = lean_ctor_get(x_303, 0); +lean_dec(x_315); +x_316 = 1; +x_317 = lean_box(x_316); +lean_ctor_set(x_303, 0, x_317); +return x_303; } else { -lean_object* x_321; uint8_t x_322; lean_object* x_323; lean_object* x_324; -x_321 = lean_ctor_get(x_306, 1); -lean_inc(x_321); -lean_dec(x_306); -x_322 = 1; -x_323 = lean_box(x_322); -x_324 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_324, 0, x_323); -lean_ctor_set(x_324, 1, x_321); -return x_324; +lean_object* x_318; uint8_t x_319; lean_object* x_320; lean_object* x_321; +x_318 = lean_ctor_get(x_303, 1); +lean_inc(x_318); +lean_dec(x_303); +x_319 = 1; +x_320 = lean_box(x_319); +x_321 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_321, 0, x_320); +lean_ctor_set(x_321, 1, x_318); +return x_321; } } default: { -lean_object* x_325; lean_object* x_326; -x_325 = lean_ctor_get(x_306, 1); -lean_inc(x_325); -lean_dec(x_306); +lean_object* x_322; lean_object* x_323; +x_322 = lean_ctor_get(x_303, 1); +lean_inc(x_322); +lean_dec(x_303); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_326 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_325); -if (lean_obj_tag(x_326) == 0) +x_323 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_322); +if (lean_obj_tag(x_323) == 0) { -lean_object* x_327; uint8_t x_328; -x_327 = lean_ctor_get(x_326, 0); -lean_inc(x_327); -x_328 = lean_unbox(x_327); -if (x_328 == 0) +lean_object* x_324; uint8_t x_325; +x_324 = lean_ctor_get(x_323, 0); +lean_inc(x_324); +x_325 = lean_unbox(x_324); +lean_dec(x_324); +switch (x_325) { +case 0: { -lean_object* x_329; lean_object* x_330; +uint8_t x_326; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_326 = !lean_is_exclusive(x_323); +if (x_326 == 0) +{ +lean_object* x_327; uint8_t x_328; lean_object* x_329; +x_327 = lean_ctor_get(x_323, 0); lean_dec(x_327); -x_329 = lean_ctor_get(x_326, 1); -lean_inc(x_329); -lean_dec(x_326); -lean_inc(x_3); -lean_inc(x_6); -lean_inc(x_9); -x_330 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_329); -if (lean_obj_tag(x_330) == 0) -{ -lean_object* x_331; lean_object* x_332; uint8_t x_333; -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_333 = lean_unbox(x_331); -lean_dec(x_331); -x_256 = x_333; -x_257 = x_332; -goto block_285; +x_328 = 0; +x_329 = lean_box(x_328); +lean_ctor_set(x_323, 0, x_329); +return x_323; } else { +lean_object* x_330; uint8_t x_331; lean_object* x_332; lean_object* x_333; +x_330 = lean_ctor_get(x_323, 1); +lean_inc(x_330); +lean_dec(x_323); +x_331 = 0; +x_332 = lean_box(x_331); +x_333 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_333, 0, x_332); +lean_ctor_set(x_333, 1, x_330); +return x_333; +} +} +case 1: +{ uint8_t x_334; -lean_dec(x_11); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_334 = !lean_is_exclusive(x_330); +x_334 = !lean_is_exclusive(x_323); if (x_334 == 0) { -return x_330; +lean_object* x_335; uint8_t x_336; lean_object* x_337; +x_335 = lean_ctor_get(x_323, 0); +lean_dec(x_335); +x_336 = 1; +x_337 = lean_box(x_336); +lean_ctor_set(x_323, 0, x_337); +return x_323; } else { -lean_object* x_335; lean_object* x_336; lean_object* x_337; -x_335 = lean_ctor_get(x_330, 0); -x_336 = lean_ctor_get(x_330, 1); -lean_inc(x_336); -lean_inc(x_335); -lean_dec(x_330); -x_337 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_337, 0, x_335); -lean_ctor_set(x_337, 1, x_336); -return x_337; -} -} -} -else -{ -lean_object* x_338; uint8_t x_339; -x_338 = lean_ctor_get(x_326, 1); +lean_object* x_338; uint8_t x_339; lean_object* x_340; lean_object* x_341; +x_338 = lean_ctor_get(x_323, 1); lean_inc(x_338); -lean_dec(x_326); -x_339 = lean_unbox(x_327); -lean_dec(x_327); -x_256 = x_339; -x_257 = x_338; -goto block_285; +lean_dec(x_323); +x_339 = 1; +x_340 = lean_box(x_339); +x_341 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_341, 0, x_340); +lean_ctor_set(x_341, 1, x_338); +return x_341; } } -else +default: { -uint8_t x_340; -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_340 = !lean_is_exclusive(x_326); -if (x_340 == 0) -{ -return x_326; -} -else -{ -lean_object* x_341; lean_object* x_342; lean_object* x_343; -x_341 = lean_ctor_get(x_326, 0); -x_342 = lean_ctor_get(x_326, 1); +lean_object* x_342; lean_object* x_343; +x_342 = lean_ctor_get(x_323, 1); lean_inc(x_342); -lean_inc(x_341); -lean_dec(x_326); -x_343 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_343, 0, x_341); -lean_ctor_set(x_343, 1, x_342); +lean_dec(x_323); +lean_inc(x_6); +x_343 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_342); return x_343; } } } -} -} else { uint8_t x_344; -lean_dec(x_11); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_344 = !lean_is_exclusive(x_306); +x_344 = !lean_is_exclusive(x_323); if (x_344 == 0) { -return x_306; +return x_323; } else { lean_object* x_345; lean_object* x_346; lean_object* x_347; -x_345 = lean_ctor_get(x_306, 0); -x_346 = lean_ctor_get(x_306, 1); +x_345 = lean_ctor_get(x_323, 0); +x_346 = lean_ctor_get(x_323, 1); lean_inc(x_346); lean_inc(x_345); -lean_dec(x_306); +lean_dec(x_323); x_347 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_347, 0, x_345); lean_ctor_set(x_347, 1, x_346); @@ -51948,200 +51919,719 @@ return x_347; else { uint8_t x_348; -lean_dec(x_11); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_348 = !lean_is_exclusive(x_286); +x_348 = !lean_is_exclusive(x_303); if (x_348 == 0) { -return x_286; +return x_303; } else { lean_object* x_349; lean_object* x_350; lean_object* x_351; -x_349 = lean_ctor_get(x_286, 0); -x_350 = lean_ctor_get(x_286, 1); +x_349 = lean_ctor_get(x_303, 0); +x_350 = lean_ctor_get(x_303, 1); lean_inc(x_350); lean_inc(x_349); -lean_dec(x_286); +lean_dec(x_303); x_351 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_351, 0, x_349); lean_ctor_set(x_351, 1, x_350); return x_351; } } -block_285: +} +} +} +else { -if (x_256 == 0) +lean_object* x_352; lean_object* x_353; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_352 = lean_box(x_34); +if (lean_is_scalar(x_33)) { + x_353 = lean_alloc_ctor(0, 2, 0); +} else { + x_353 = x_33; +} +lean_ctor_set(x_353, 0, x_352); +lean_ctor_set(x_353, 1, x_35); +return x_353; +} +} +} +} +} +else { +uint8_t x_373; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_373 = !lean_is_exclusive(x_13); +if (x_373 == 0) +{ +return x_13; +} +else +{ +lean_object* x_374; lean_object* x_375; lean_object* x_376; +x_374 = lean_ctor_get(x_13, 0); +x_375 = lean_ctor_get(x_13, 1); +lean_inc(x_375); +lean_inc(x_374); +lean_dec(x_13); +x_376 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_376, 0, x_374); +lean_ctor_set(x_376, 1, x_375); +return x_376; +} +} +} +else +{ +uint8_t x_377; +x_377 = lean_expr_eqv(x_2, x_9); +lean_dec(x_2); +if (x_377 == 0) +{ +lean_object* x_378; +lean_dec(x_11); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_378 = l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main(x_6, x_9, x_3, x_10); +if (lean_obj_tag(x_378) == 0) +{ +lean_object* x_379; uint8_t x_380; +x_379 = lean_ctor_get(x_378, 0); +lean_inc(x_379); +x_380 = lean_unbox(x_379); +lean_dec(x_379); +switch (x_380) { +case 0: +{ +uint8_t x_381; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_381 = !lean_is_exclusive(x_378); +if (x_381 == 0) +{ +lean_object* x_382; uint8_t x_383; lean_object* x_384; +x_382 = lean_ctor_get(x_378, 0); +lean_dec(x_382); +x_383 = 0; +x_384 = lean_box(x_383); +lean_ctor_set(x_378, 0, x_384); +return x_378; +} +else +{ +lean_object* x_385; uint8_t x_386; lean_object* x_387; lean_object* x_388; +x_385 = lean_ctor_get(x_378, 1); +lean_inc(x_385); +lean_dec(x_378); +x_386 = 0; +x_387 = lean_box(x_386); +x_388 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_388, 0, x_387); +lean_ctor_set(x_388, 1, x_385); +return x_388; +} +} +case 1: +{ +uint8_t x_389; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_389 = !lean_is_exclusive(x_378); +if (x_389 == 0) +{ +lean_object* x_390; uint8_t x_391; lean_object* x_392; +x_390 = lean_ctor_get(x_378, 0); +lean_dec(x_390); +x_391 = 1; +x_392 = lean_box(x_391); +lean_ctor_set(x_378, 0, x_392); +return x_378; +} +else +{ +lean_object* x_393; uint8_t x_394; lean_object* x_395; lean_object* x_396; +x_393 = lean_ctor_get(x_378, 1); +lean_inc(x_393); +lean_dec(x_378); +x_394 = 1; +x_395 = lean_box(x_394); +x_396 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_396, 0, x_395); +lean_ctor_set(x_396, 1, x_393); +return x_396; +} +} +default: +{ +lean_object* x_397; lean_object* x_398; uint8_t x_399; lean_object* x_400; lean_object* x_720; +x_397 = lean_ctor_get(x_378, 1); +lean_inc(x_397); +if (lean_is_exclusive(x_378)) { + lean_ctor_release(x_378, 0); + lean_ctor_release(x_378, 1); + x_398 = x_378; +} else { + lean_dec_ref(x_378); + x_398 = lean_box(0); +} +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_720 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_397); +if (lean_obj_tag(x_720) == 0) +{ +lean_object* x_721; uint8_t x_722; +x_721 = lean_ctor_get(x_720, 0); +lean_inc(x_721); +x_722 = lean_unbox(x_721); +if (x_722 == 0) +{ +lean_object* x_723; lean_object* x_724; +lean_dec(x_721); +x_723 = lean_ctor_get(x_720, 1); +lean_inc(x_723); +lean_dec(x_720); +lean_inc(x_3); +lean_inc(x_6); +lean_inc(x_9); +x_724 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_723); +if (lean_obj_tag(x_724) == 0) +{ +lean_object* x_725; lean_object* x_726; uint8_t x_727; +x_725 = lean_ctor_get(x_724, 0); +lean_inc(x_725); +x_726 = lean_ctor_get(x_724, 1); +lean_inc(x_726); +lean_dec(x_724); +x_727 = lean_unbox(x_725); +lean_dec(x_725); +x_399 = x_727; +x_400 = x_726; +goto block_719; +} +else +{ +uint8_t x_728; +lean_dec(x_398); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_728 = !lean_is_exclusive(x_724); +if (x_728 == 0) +{ +return x_724; +} +else +{ +lean_object* x_729; lean_object* x_730; lean_object* x_731; +x_729 = lean_ctor_get(x_724, 0); +x_730 = lean_ctor_get(x_724, 1); +lean_inc(x_730); +lean_inc(x_729); +lean_dec(x_724); +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; +} +} +} +else +{ +lean_object* x_732; uint8_t x_733; +x_732 = lean_ctor_get(x_720, 1); +lean_inc(x_732); +lean_dec(x_720); +x_733 = lean_unbox(x_721); +lean_dec(x_721); +x_399 = x_733; +x_400 = x_732; +goto block_719; +} +} +else +{ +uint8_t x_734; +lean_dec(x_398); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_734 = !lean_is_exclusive(x_720); +if (x_734 == 0) +{ +return x_720; +} +else +{ +lean_object* x_735; lean_object* x_736; lean_object* x_737; +x_735 = lean_ctor_get(x_720, 0); +x_736 = lean_ctor_get(x_720, 1); +lean_inc(x_736); +lean_inc(x_735); +lean_dec(x_720); +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; +} +} +block_719: +{ +if (x_399 == 0) +{ +lean_dec(x_398); switch (lean_obj_tag(x_6)) { case 4: { if (lean_obj_tag(x_9) == 4) { -lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; uint8_t x_262; -x_258 = lean_ctor_get(x_6, 0); -lean_inc(x_258); -x_259 = lean_ctor_get(x_6, 1); -lean_inc(x_259); -lean_dec(x_6); -x_260 = lean_ctor_get(x_9, 0); -lean_inc(x_260); -x_261 = lean_ctor_get(x_9, 1); -lean_inc(x_261); -lean_dec(x_9); -x_262 = lean_name_eq(x_258, x_260); -lean_dec(x_260); -lean_dec(x_258); -if (x_262 == 0) +lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; uint8_t x_405; +x_401 = lean_ctor_get(x_6, 0); +lean_inc(x_401); +x_402 = lean_ctor_get(x_6, 1); +lean_inc(x_402); +x_403 = lean_ctor_get(x_9, 0); +lean_inc(x_403); +x_404 = lean_ctor_get(x_9, 1); +lean_inc(x_404); +x_405 = lean_name_eq(x_401, x_403); +lean_dec(x_403); +lean_dec(x_401); +if (x_405 == 0) { -lean_object* x_263; lean_object* x_264; -lean_dec(x_261); -lean_dec(x_259); -lean_dec(x_3); -x_263 = lean_box(x_256); -if (lean_is_scalar(x_11)) { - x_264 = lean_alloc_ctor(0, 2, 0); -} else { - x_264 = x_11; -} -lean_ctor_set(x_264, 0, x_263); -lean_ctor_set(x_264, 1, x_257); -return x_264; -} -else -{ -lean_object* x_265; -lean_dec(x_11); -x_265 = l_Lean_Meta_isListLevelDefEqAux___main(x_259, x_261, x_3, x_257); -lean_dec(x_3); -return x_265; -} -} -else -{ -lean_object* x_266; -lean_dec(x_11); -lean_inc(x_6); -x_266 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_257); -return x_266; -} -} -case 5: -{ -lean_dec(x_11); -if (lean_obj_tag(x_9) == 5) -{ -lean_object* x_267; lean_object* x_268; -x_267 = l_Lean_Expr_getAppFn___main(x_6); +lean_object* x_406; +lean_dec(x_404); +lean_dec(x_402); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_268 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_267, x_3, x_257); -if (lean_obj_tag(x_268) == 0) +x_406 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); +if (lean_obj_tag(x_406) == 0) { -lean_object* x_269; uint8_t x_270; -x_269 = lean_ctor_get(x_268, 0); -lean_inc(x_269); -x_270 = lean_unbox(x_269); -if (x_270 == 0) +lean_object* x_407; uint8_t x_408; +x_407 = lean_ctor_get(x_406, 0); +lean_inc(x_407); +x_408 = lean_unbox(x_407); +lean_dec(x_407); +switch (x_408) { +case 0: { -lean_object* x_271; lean_object* x_272; -lean_dec(x_269); -x_271 = lean_ctor_get(x_268, 1); -lean_inc(x_271); -lean_dec(x_268); -lean_inc(x_6); -x_272 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_271); -return x_272; -} -else -{ -uint8_t x_273; +uint8_t x_409; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_273 = !lean_is_exclusive(x_268); -if (x_273 == 0) +x_409 = !lean_is_exclusive(x_406); +if (x_409 == 0) { -lean_object* x_274; -x_274 = lean_ctor_get(x_268, 0); -lean_dec(x_274); -return x_268; +lean_object* x_410; uint8_t x_411; lean_object* x_412; +x_410 = lean_ctor_get(x_406, 0); +lean_dec(x_410); +x_411 = 0; +x_412 = lean_box(x_411); +lean_ctor_set(x_406, 0, x_412); +return x_406; } else { -lean_object* x_275; lean_object* x_276; -x_275 = lean_ctor_get(x_268, 1); -lean_inc(x_275); -lean_dec(x_268); -x_276 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_276, 0, x_269); -lean_ctor_set(x_276, 1, x_275); -return x_276; +lean_object* x_413; uint8_t x_414; lean_object* x_415; lean_object* x_416; +x_413 = lean_ctor_get(x_406, 1); +lean_inc(x_413); +lean_dec(x_406); +x_414 = 0; +x_415 = lean_box(x_414); +x_416 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_416, 0, x_415); +lean_ctor_set(x_416, 1, x_413); +return x_416; } } -} -else +case 1: { -uint8_t x_277; +uint8_t x_417; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_277 = !lean_is_exclusive(x_268); -if (x_277 == 0) +x_417 = !lean_is_exclusive(x_406); +if (x_417 == 0) { -return x_268; +lean_object* x_418; uint8_t x_419; lean_object* x_420; +x_418 = lean_ctor_get(x_406, 0); +lean_dec(x_418); +x_419 = 1; +x_420 = lean_box(x_419); +lean_ctor_set(x_406, 0, x_420); +return x_406; } else { -lean_object* x_278; lean_object* x_279; lean_object* x_280; -x_278 = lean_ctor_get(x_268, 0); -x_279 = lean_ctor_get(x_268, 1); -lean_inc(x_279); -lean_inc(x_278); -lean_dec(x_268); -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; -} -} -} -else -{ -lean_object* x_281; -lean_inc(x_6); -x_281 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_257); -return x_281; +lean_object* x_421; uint8_t x_422; lean_object* x_423; lean_object* x_424; +x_421 = lean_ctor_get(x_406, 1); +lean_inc(x_421); +lean_dec(x_406); +x_422 = 1; +x_423 = lean_box(x_422); +x_424 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_424, 0, x_423); +lean_ctor_set(x_424, 1, x_421); +return x_424; } } default: { -lean_object* x_282; -lean_dec(x_11); -lean_inc(x_6); -x_282 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_257); -return x_282; +lean_object* x_425; lean_object* x_426; +x_425 = lean_ctor_get(x_406, 1); +lean_inc(x_425); +lean_dec(x_406); +x_426 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_425); +if (lean_obj_tag(x_426) == 0) +{ +lean_object* x_427; uint8_t x_428; +x_427 = lean_ctor_get(x_426, 0); +lean_inc(x_427); +x_428 = lean_unbox(x_427); +lean_dec(x_427); +switch (x_428) { +case 0: +{ +uint8_t x_429; +x_429 = !lean_is_exclusive(x_426); +if (x_429 == 0) +{ +lean_object* x_430; uint8_t x_431; lean_object* x_432; +x_430 = lean_ctor_get(x_426, 0); +lean_dec(x_430); +x_431 = 0; +x_432 = lean_box(x_431); +lean_ctor_set(x_426, 0, x_432); +return x_426; +} +else +{ +lean_object* x_433; uint8_t x_434; lean_object* x_435; lean_object* x_436; +x_433 = lean_ctor_get(x_426, 1); +lean_inc(x_433); +lean_dec(x_426); +x_434 = 0; +x_435 = lean_box(x_434); +x_436 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_436, 0, x_435); +lean_ctor_set(x_436, 1, x_433); +return x_436; +} +} +case 1: +{ +uint8_t x_437; +x_437 = !lean_is_exclusive(x_426); +if (x_437 == 0) +{ +lean_object* x_438; uint8_t x_439; lean_object* x_440; +x_438 = lean_ctor_get(x_426, 0); +lean_dec(x_438); +x_439 = 1; +x_440 = lean_box(x_439); +lean_ctor_set(x_426, 0, x_440); +return x_426; +} +else +{ +lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; +x_441 = lean_ctor_get(x_426, 1); +lean_inc(x_441); +lean_dec(x_426); +x_442 = 1; +x_443 = lean_box(x_442); +x_444 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_444, 0, x_443); +lean_ctor_set(x_444, 1, x_441); +return x_444; +} +} +default: +{ +uint8_t x_445; +x_445 = !lean_is_exclusive(x_426); +if (x_445 == 0) +{ +lean_object* x_446; lean_object* x_447; +x_446 = lean_ctor_get(x_426, 0); +lean_dec(x_446); +x_447 = lean_box(x_399); +lean_ctor_set(x_426, 0, x_447); +return x_426; +} +else +{ +lean_object* x_448; lean_object* x_449; lean_object* x_450; +x_448 = lean_ctor_get(x_426, 1); +lean_inc(x_448); +lean_dec(x_426); +x_449 = lean_box(x_399); +x_450 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_450, 0, x_449); +lean_ctor_set(x_450, 1, x_448); +return x_450; +} } } } else { -lean_object* x_283; lean_object* x_284; +uint8_t x_451; +x_451 = !lean_is_exclusive(x_426); +if (x_451 == 0) +{ +return x_426; +} +else +{ +lean_object* x_452; lean_object* x_453; lean_object* x_454; +x_452 = lean_ctor_get(x_426, 0); +x_453 = lean_ctor_get(x_426, 1); +lean_inc(x_453); +lean_inc(x_452); +lean_dec(x_426); +x_454 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_454, 0, x_452); +lean_ctor_set(x_454, 1, x_453); +return x_454; +} +} +} +} +} +else +{ +uint8_t x_455; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_283 = lean_box(x_256); -if (lean_is_scalar(x_11)) { - x_284 = lean_alloc_ctor(0, 2, 0); -} else { - x_284 = x_11; +x_455 = !lean_is_exclusive(x_406); +if (x_455 == 0) +{ +return x_406; } -lean_ctor_set(x_284, 0, x_283); -lean_ctor_set(x_284, 1, x_257); -return x_284; +else +{ +lean_object* x_456; lean_object* x_457; lean_object* x_458; +x_456 = lean_ctor_get(x_406, 0); +x_457 = lean_ctor_get(x_406, 1); +lean_inc(x_457); +lean_inc(x_456); +lean_dec(x_406); +x_458 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_458, 0, x_456); +lean_ctor_set(x_458, 1, x_457); +return x_458; +} +} +} +else +{ +lean_object* x_459; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_459 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); +if (lean_obj_tag(x_459) == 0) +{ +lean_object* x_460; uint8_t x_461; +x_460 = lean_ctor_get(x_459, 0); +lean_inc(x_460); +x_461 = lean_unbox(x_460); +lean_dec(x_460); +switch (x_461) { +case 0: +{ +uint8_t x_462; +lean_dec(x_404); +lean_dec(x_402); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_462 = !lean_is_exclusive(x_459); +if (x_462 == 0) +{ +lean_object* x_463; uint8_t x_464; lean_object* x_465; +x_463 = lean_ctor_get(x_459, 0); +lean_dec(x_463); +x_464 = 0; +x_465 = lean_box(x_464); +lean_ctor_set(x_459, 0, x_465); +return x_459; +} +else +{ +lean_object* x_466; uint8_t x_467; lean_object* x_468; lean_object* x_469; +x_466 = lean_ctor_get(x_459, 1); +lean_inc(x_466); +lean_dec(x_459); +x_467 = 0; +x_468 = lean_box(x_467); +x_469 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_469, 0, x_468); +lean_ctor_set(x_469, 1, x_466); +return x_469; +} +} +case 1: +{ +uint8_t x_470; +lean_dec(x_404); +lean_dec(x_402); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_470 = !lean_is_exclusive(x_459); +if (x_470 == 0) +{ +lean_object* x_471; uint8_t x_472; lean_object* x_473; +x_471 = lean_ctor_get(x_459, 0); +lean_dec(x_471); +x_472 = 1; +x_473 = lean_box(x_472); +lean_ctor_set(x_459, 0, x_473); +return x_459; +} +else +{ +lean_object* x_474; uint8_t x_475; lean_object* x_476; lean_object* x_477; +x_474 = lean_ctor_get(x_459, 1); +lean_inc(x_474); +lean_dec(x_459); +x_475 = 1; +x_476 = lean_box(x_475); +x_477 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_477, 0, x_476); +lean_ctor_set(x_477, 1, x_474); +return x_477; +} +} +default: +{ +lean_object* x_478; lean_object* x_479; +x_478 = lean_ctor_get(x_459, 1); +lean_inc(x_478); +lean_dec(x_459); +lean_inc(x_3); +x_479 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_478); +if (lean_obj_tag(x_479) == 0) +{ +lean_object* x_480; uint8_t x_481; +x_480 = lean_ctor_get(x_479, 0); +lean_inc(x_480); +x_481 = lean_unbox(x_480); +lean_dec(x_480); +switch (x_481) { +case 0: +{ +uint8_t x_482; +lean_dec(x_404); +lean_dec(x_402); +lean_dec(x_3); +x_482 = !lean_is_exclusive(x_479); +if (x_482 == 0) +{ +lean_object* x_483; uint8_t x_484; lean_object* x_485; +x_483 = lean_ctor_get(x_479, 0); +lean_dec(x_483); +x_484 = 0; +x_485 = lean_box(x_484); +lean_ctor_set(x_479, 0, x_485); +return x_479; +} +else +{ +lean_object* x_486; uint8_t x_487; lean_object* x_488; lean_object* x_489; +x_486 = lean_ctor_get(x_479, 1); +lean_inc(x_486); +lean_dec(x_479); +x_487 = 0; +x_488 = lean_box(x_487); +x_489 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_489, 0, x_488); +lean_ctor_set(x_489, 1, x_486); +return x_489; +} +} +case 1: +{ +uint8_t x_490; +lean_dec(x_404); +lean_dec(x_402); +lean_dec(x_3); +x_490 = !lean_is_exclusive(x_479); +if (x_490 == 0) +{ +lean_object* x_491; uint8_t x_492; lean_object* x_493; +x_491 = lean_ctor_get(x_479, 0); +lean_dec(x_491); +x_492 = 1; +x_493 = lean_box(x_492); +lean_ctor_set(x_479, 0, x_493); +return x_479; +} +else +{ +lean_object* x_494; uint8_t x_495; lean_object* x_496; lean_object* x_497; +x_494 = lean_ctor_get(x_479, 1); +lean_inc(x_494); +lean_dec(x_479); +x_495 = 1; +x_496 = lean_box(x_495); +x_497 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_497, 0, x_496); +lean_ctor_set(x_497, 1, x_494); +return x_497; +} +} +default: +{ +lean_object* x_498; lean_object* x_499; +x_498 = lean_ctor_get(x_479, 1); +lean_inc(x_498); +lean_dec(x_479); +x_499 = l_Lean_Meta_isListLevelDefEqAux___main(x_402, x_404, x_3, x_498); +lean_dec(x_3); +return x_499; +} +} +} +else +{ +uint8_t x_500; +lean_dec(x_404); +lean_dec(x_402); +lean_dec(x_3); +x_500 = !lean_is_exclusive(x_479); +if (x_500 == 0) +{ +return x_479; +} +else +{ +lean_object* x_501; lean_object* x_502; lean_object* x_503; +x_501 = lean_ctor_get(x_479, 0); +x_502 = lean_ctor_get(x_479, 1); +lean_inc(x_502); +lean_inc(x_501); +lean_dec(x_479); +x_503 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_503, 0, x_501); +lean_ctor_set(x_503, 1, x_502); +return x_503; } } } @@ -52149,54 +52639,2682 @@ return x_284; } else { -uint8_t x_352; +uint8_t x_504; +lean_dec(x_404); +lean_dec(x_402); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_504 = !lean_is_exclusive(x_459); +if (x_504 == 0) +{ +return x_459; +} +else +{ +lean_object* x_505; lean_object* x_506; lean_object* x_507; +x_505 = lean_ctor_get(x_459, 0); +x_506 = lean_ctor_get(x_459, 1); +lean_inc(x_506); +lean_inc(x_505); +lean_dec(x_459); +x_507 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_507, 0, x_505); +lean_ctor_set(x_507, 1, x_506); +return x_507; +} +} +} +} +else +{ +lean_object* x_508; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_508 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); +if (lean_obj_tag(x_508) == 0) +{ +lean_object* x_509; uint8_t x_510; +x_509 = lean_ctor_get(x_508, 0); +lean_inc(x_509); +x_510 = lean_unbox(x_509); +lean_dec(x_509); +switch (x_510) { +case 0: +{ +uint8_t x_511; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_511 = !lean_is_exclusive(x_508); +if (x_511 == 0) +{ +lean_object* x_512; uint8_t x_513; lean_object* x_514; +x_512 = lean_ctor_get(x_508, 0); +lean_dec(x_512); +x_513 = 0; +x_514 = lean_box(x_513); +lean_ctor_set(x_508, 0, x_514); +return x_508; +} +else +{ +lean_object* x_515; uint8_t x_516; lean_object* x_517; lean_object* x_518; +x_515 = lean_ctor_get(x_508, 1); +lean_inc(x_515); +lean_dec(x_508); +x_516 = 0; +x_517 = lean_box(x_516); +x_518 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_518, 0, x_517); +lean_ctor_set(x_518, 1, x_515); +return x_518; +} +} +case 1: +{ +uint8_t x_519; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_519 = !lean_is_exclusive(x_508); +if (x_519 == 0) +{ +lean_object* x_520; uint8_t x_521; lean_object* x_522; +x_520 = lean_ctor_get(x_508, 0); +lean_dec(x_520); +x_521 = 1; +x_522 = lean_box(x_521); +lean_ctor_set(x_508, 0, x_522); +return x_508; +} +else +{ +lean_object* x_523; uint8_t x_524; lean_object* x_525; lean_object* x_526; +x_523 = lean_ctor_get(x_508, 1); +lean_inc(x_523); +lean_dec(x_508); +x_524 = 1; +x_525 = lean_box(x_524); +x_526 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_526, 0, x_525); +lean_ctor_set(x_526, 1, x_523); +return x_526; +} +} +default: +{ +lean_object* x_527; lean_object* x_528; +x_527 = lean_ctor_get(x_508, 1); +lean_inc(x_527); +lean_dec(x_508); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_528 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_527); +if (lean_obj_tag(x_528) == 0) +{ +lean_object* x_529; uint8_t x_530; +x_529 = lean_ctor_get(x_528, 0); +lean_inc(x_529); +x_530 = lean_unbox(x_529); +lean_dec(x_529); +switch (x_530) { +case 0: +{ +uint8_t x_531; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_531 = !lean_is_exclusive(x_528); +if (x_531 == 0) +{ +lean_object* x_532; uint8_t x_533; lean_object* x_534; +x_532 = lean_ctor_get(x_528, 0); +lean_dec(x_532); +x_533 = 0; +x_534 = lean_box(x_533); +lean_ctor_set(x_528, 0, x_534); +return x_528; +} +else +{ +lean_object* x_535; uint8_t x_536; lean_object* x_537; lean_object* x_538; +x_535 = lean_ctor_get(x_528, 1); +lean_inc(x_535); +lean_dec(x_528); +x_536 = 0; +x_537 = lean_box(x_536); +x_538 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_538, 0, x_537); +lean_ctor_set(x_538, 1, x_535); +return x_538; +} +} +case 1: +{ +uint8_t x_539; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_539 = !lean_is_exclusive(x_528); +if (x_539 == 0) +{ +lean_object* x_540; uint8_t x_541; lean_object* x_542; +x_540 = lean_ctor_get(x_528, 0); +lean_dec(x_540); +x_541 = 1; +x_542 = lean_box(x_541); +lean_ctor_set(x_528, 0, x_542); +return x_528; +} +else +{ +lean_object* x_543; uint8_t x_544; lean_object* x_545; lean_object* x_546; +x_543 = lean_ctor_get(x_528, 1); +lean_inc(x_543); +lean_dec(x_528); +x_544 = 1; +x_545 = lean_box(x_544); +x_546 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_546, 0, x_545); +lean_ctor_set(x_546, 1, x_543); +return x_546; +} +} +default: +{ +lean_object* x_547; lean_object* x_548; +x_547 = lean_ctor_get(x_528, 1); +lean_inc(x_547); +lean_dec(x_528); +lean_inc(x_6); +x_548 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_547); +return x_548; +} +} +} +else +{ +uint8_t x_549; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_549 = !lean_is_exclusive(x_528); +if (x_549 == 0) +{ +return x_528; +} +else +{ +lean_object* x_550; lean_object* x_551; lean_object* x_552; +x_550 = lean_ctor_get(x_528, 0); +x_551 = lean_ctor_get(x_528, 1); +lean_inc(x_551); +lean_inc(x_550); +lean_dec(x_528); +x_552 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_552, 0, x_550); +lean_ctor_set(x_552, 1, x_551); +return x_552; +} +} +} +} +} +else +{ +uint8_t x_553; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_553 = !lean_is_exclusive(x_508); +if (x_553 == 0) +{ +return x_508; +} +else +{ +lean_object* x_554; lean_object* x_555; lean_object* x_556; +x_554 = lean_ctor_get(x_508, 0); +x_555 = lean_ctor_get(x_508, 1); +lean_inc(x_555); +lean_inc(x_554); +lean_dec(x_508); +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; +} +} +} +} +case 5: +{ +if (lean_obj_tag(x_9) == 5) +{ +lean_object* x_557; lean_object* x_558; +x_557 = l_Lean_Expr_getAppFn___main(x_6); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_558 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); +if (lean_obj_tag(x_558) == 0) +{ +lean_object* x_559; uint8_t x_560; +x_559 = lean_ctor_get(x_558, 0); +lean_inc(x_559); +x_560 = lean_unbox(x_559); +lean_dec(x_559); +switch (x_560) { +case 0: +{ +uint8_t x_561; +lean_dec(x_557); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_561 = !lean_is_exclusive(x_558); +if (x_561 == 0) +{ +lean_object* x_562; uint8_t x_563; lean_object* x_564; +x_562 = lean_ctor_get(x_558, 0); +lean_dec(x_562); +x_563 = 0; +x_564 = lean_box(x_563); +lean_ctor_set(x_558, 0, x_564); +return x_558; +} +else +{ +lean_object* x_565; uint8_t x_566; lean_object* x_567; lean_object* x_568; +x_565 = lean_ctor_get(x_558, 1); +lean_inc(x_565); +lean_dec(x_558); +x_566 = 0; +x_567 = lean_box(x_566); +x_568 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_568, 0, x_567); +lean_ctor_set(x_568, 1, x_565); +return x_568; +} +} +case 1: +{ +uint8_t x_569; +lean_dec(x_557); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_569 = !lean_is_exclusive(x_558); +if (x_569 == 0) +{ +lean_object* x_570; uint8_t x_571; lean_object* x_572; +x_570 = lean_ctor_get(x_558, 0); +lean_dec(x_570); +x_571 = 1; +x_572 = lean_box(x_571); +lean_ctor_set(x_558, 0, x_572); +return x_558; +} +else +{ +lean_object* x_573; uint8_t x_574; lean_object* x_575; lean_object* x_576; +x_573 = lean_ctor_get(x_558, 1); +lean_inc(x_573); +lean_dec(x_558); +x_574 = 1; +x_575 = lean_box(x_574); +x_576 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_576, 0, x_575); +lean_ctor_set(x_576, 1, x_573); +return x_576; +} +} +default: +{ +lean_object* x_577; lean_object* x_578; +x_577 = lean_ctor_get(x_558, 1); +lean_inc(x_577); +lean_dec(x_558); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_578 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_577); +if (lean_obj_tag(x_578) == 0) +{ +lean_object* x_579; uint8_t x_580; +x_579 = lean_ctor_get(x_578, 0); +lean_inc(x_579); +x_580 = lean_unbox(x_579); +lean_dec(x_579); +switch (x_580) { +case 0: +{ +uint8_t x_581; +lean_dec(x_557); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_581 = !lean_is_exclusive(x_578); +if (x_581 == 0) +{ +lean_object* x_582; uint8_t x_583; lean_object* x_584; +x_582 = lean_ctor_get(x_578, 0); +lean_dec(x_582); +x_583 = 0; +x_584 = lean_box(x_583); +lean_ctor_set(x_578, 0, x_584); +return x_578; +} +else +{ +lean_object* x_585; uint8_t x_586; lean_object* x_587; lean_object* x_588; +x_585 = lean_ctor_get(x_578, 1); +lean_inc(x_585); +lean_dec(x_578); +x_586 = 0; +x_587 = lean_box(x_586); +x_588 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_588, 0, x_587); +lean_ctor_set(x_588, 1, x_585); +return x_588; +} +} +case 1: +{ +uint8_t x_589; +lean_dec(x_557); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_589 = !lean_is_exclusive(x_578); +if (x_589 == 0) +{ +lean_object* x_590; uint8_t x_591; lean_object* x_592; +x_590 = lean_ctor_get(x_578, 0); +lean_dec(x_590); +x_591 = 1; +x_592 = lean_box(x_591); +lean_ctor_set(x_578, 0, x_592); +return x_578; +} +else +{ +lean_object* x_593; uint8_t x_594; lean_object* x_595; lean_object* x_596; +x_593 = lean_ctor_get(x_578, 1); +lean_inc(x_593); +lean_dec(x_578); +x_594 = 1; +x_595 = lean_box(x_594); +x_596 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_596, 0, x_595); +lean_ctor_set(x_596, 1, x_593); +return x_596; +} +} +default: +{ +lean_object* x_597; lean_object* x_598; +x_597 = lean_ctor_get(x_578, 1); +lean_inc(x_597); +lean_dec(x_578); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_598 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_557, x_3, x_597); +if (lean_obj_tag(x_598) == 0) +{ +lean_object* x_599; uint8_t x_600; +x_599 = lean_ctor_get(x_598, 0); +lean_inc(x_599); +x_600 = lean_unbox(x_599); +if (x_600 == 0) +{ +lean_object* x_601; lean_object* x_602; +lean_dec(x_599); +x_601 = lean_ctor_get(x_598, 1); +lean_inc(x_601); +lean_dec(x_598); +lean_inc(x_6); +x_602 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_601); +return x_602; +} +else +{ +uint8_t x_603; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_603 = !lean_is_exclusive(x_598); +if (x_603 == 0) +{ +lean_object* x_604; +x_604 = lean_ctor_get(x_598, 0); +lean_dec(x_604); +return x_598; +} +else +{ +lean_object* x_605; lean_object* x_606; +x_605 = lean_ctor_get(x_598, 1); +lean_inc(x_605); +lean_dec(x_598); +x_606 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_606, 0, x_599); +lean_ctor_set(x_606, 1, x_605); +return x_606; +} +} +} +else +{ +uint8_t x_607; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_607 = !lean_is_exclusive(x_598); +if (x_607 == 0) +{ +return x_598; +} +else +{ +lean_object* x_608; lean_object* x_609; lean_object* x_610; +x_608 = lean_ctor_get(x_598, 0); +x_609 = lean_ctor_get(x_598, 1); +lean_inc(x_609); +lean_inc(x_608); +lean_dec(x_598); +x_610 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_610, 0, x_608); +lean_ctor_set(x_610, 1, x_609); +return x_610; +} +} +} +} +} +else +{ +uint8_t x_611; +lean_dec(x_557); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_611 = !lean_is_exclusive(x_578); +if (x_611 == 0) +{ +return x_578; +} +else +{ +lean_object* x_612; lean_object* x_613; lean_object* x_614; +x_612 = lean_ctor_get(x_578, 0); +x_613 = lean_ctor_get(x_578, 1); +lean_inc(x_613); +lean_inc(x_612); +lean_dec(x_578); +x_614 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_614, 0, x_612); +lean_ctor_set(x_614, 1, x_613); +return x_614; +} +} +} +} +} +else +{ +uint8_t x_615; +lean_dec(x_557); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_615 = !lean_is_exclusive(x_558); +if (x_615 == 0) +{ +return x_558; +} +else +{ +lean_object* x_616; lean_object* x_617; lean_object* x_618; +x_616 = lean_ctor_get(x_558, 0); +x_617 = lean_ctor_get(x_558, 1); +lean_inc(x_617); +lean_inc(x_616); +lean_dec(x_558); +x_618 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_618, 0, x_616); +lean_ctor_set(x_618, 1, x_617); +return x_618; +} +} +} +else +{ +lean_object* x_619; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_619 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); +if (lean_obj_tag(x_619) == 0) +{ +lean_object* x_620; uint8_t x_621; +x_620 = lean_ctor_get(x_619, 0); +lean_inc(x_620); +x_621 = lean_unbox(x_620); +lean_dec(x_620); +switch (x_621) { +case 0: +{ +uint8_t x_622; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_622 = !lean_is_exclusive(x_619); +if (x_622 == 0) +{ +lean_object* x_623; uint8_t x_624; lean_object* x_625; +x_623 = lean_ctor_get(x_619, 0); +lean_dec(x_623); +x_624 = 0; +x_625 = lean_box(x_624); +lean_ctor_set(x_619, 0, x_625); +return x_619; +} +else +{ +lean_object* x_626; uint8_t x_627; lean_object* x_628; lean_object* x_629; +x_626 = lean_ctor_get(x_619, 1); +lean_inc(x_626); +lean_dec(x_619); +x_627 = 0; +x_628 = lean_box(x_627); +x_629 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_629, 0, x_628); +lean_ctor_set(x_629, 1, x_626); +return x_629; +} +} +case 1: +{ +uint8_t x_630; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_630 = !lean_is_exclusive(x_619); +if (x_630 == 0) +{ +lean_object* x_631; uint8_t x_632; lean_object* x_633; +x_631 = lean_ctor_get(x_619, 0); +lean_dec(x_631); +x_632 = 1; +x_633 = lean_box(x_632); +lean_ctor_set(x_619, 0, x_633); +return x_619; +} +else +{ +lean_object* x_634; uint8_t x_635; lean_object* x_636; lean_object* x_637; +x_634 = lean_ctor_get(x_619, 1); +lean_inc(x_634); +lean_dec(x_619); +x_635 = 1; +x_636 = lean_box(x_635); +x_637 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_637, 0, x_636); +lean_ctor_set(x_637, 1, x_634); +return x_637; +} +} +default: +{ +lean_object* x_638; lean_object* x_639; +x_638 = lean_ctor_get(x_619, 1); +lean_inc(x_638); +lean_dec(x_619); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_639 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_638); +if (lean_obj_tag(x_639) == 0) +{ +lean_object* x_640; uint8_t x_641; +x_640 = lean_ctor_get(x_639, 0); +lean_inc(x_640); +x_641 = lean_unbox(x_640); +lean_dec(x_640); +switch (x_641) { +case 0: +{ +uint8_t x_642; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_642 = !lean_is_exclusive(x_639); +if (x_642 == 0) +{ +lean_object* x_643; uint8_t x_644; lean_object* x_645; +x_643 = lean_ctor_get(x_639, 0); +lean_dec(x_643); +x_644 = 0; +x_645 = lean_box(x_644); +lean_ctor_set(x_639, 0, x_645); +return x_639; +} +else +{ +lean_object* x_646; uint8_t x_647; lean_object* x_648; lean_object* x_649; +x_646 = lean_ctor_get(x_639, 1); +lean_inc(x_646); +lean_dec(x_639); +x_647 = 0; +x_648 = lean_box(x_647); +x_649 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_649, 0, x_648); +lean_ctor_set(x_649, 1, x_646); +return x_649; +} +} +case 1: +{ +uint8_t x_650; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_650 = !lean_is_exclusive(x_639); +if (x_650 == 0) +{ +lean_object* x_651; uint8_t x_652; lean_object* x_653; +x_651 = lean_ctor_get(x_639, 0); +lean_dec(x_651); +x_652 = 1; +x_653 = lean_box(x_652); +lean_ctor_set(x_639, 0, x_653); +return x_639; +} +else +{ +lean_object* x_654; uint8_t x_655; lean_object* x_656; lean_object* x_657; +x_654 = lean_ctor_get(x_639, 1); +lean_inc(x_654); +lean_dec(x_639); +x_655 = 1; +x_656 = lean_box(x_655); +x_657 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_657, 0, x_656); +lean_ctor_set(x_657, 1, x_654); +return x_657; +} +} +default: +{ +lean_object* x_658; lean_object* x_659; +x_658 = lean_ctor_get(x_639, 1); +lean_inc(x_658); +lean_dec(x_639); +lean_inc(x_6); +x_659 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_658); +return x_659; +} +} +} +else +{ +uint8_t x_660; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_660 = !lean_is_exclusive(x_639); +if (x_660 == 0) +{ +return x_639; +} +else +{ +lean_object* x_661; lean_object* x_662; lean_object* x_663; +x_661 = lean_ctor_get(x_639, 0); +x_662 = lean_ctor_get(x_639, 1); +lean_inc(x_662); +lean_inc(x_661); +lean_dec(x_639); +x_663 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_663, 0, x_661); +lean_ctor_set(x_663, 1, x_662); +return x_663; +} +} +} +} +} +else +{ +uint8_t x_664; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_664 = !lean_is_exclusive(x_619); +if (x_664 == 0) +{ +return x_619; +} +else +{ +lean_object* x_665; lean_object* x_666; lean_object* x_667; +x_665 = lean_ctor_get(x_619, 0); +x_666 = lean_ctor_get(x_619, 1); +lean_inc(x_666); +lean_inc(x_665); +lean_dec(x_619); +x_667 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_667, 0, x_665); +lean_ctor_set(x_667, 1, x_666); +return x_667; +} +} +} +} +default: +{ +lean_object* x_668; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_668 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); +if (lean_obj_tag(x_668) == 0) +{ +lean_object* x_669; uint8_t x_670; +x_669 = lean_ctor_get(x_668, 0); +lean_inc(x_669); +x_670 = lean_unbox(x_669); +lean_dec(x_669); +switch (x_670) { +case 0: +{ +uint8_t x_671; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_671 = !lean_is_exclusive(x_668); +if (x_671 == 0) +{ +lean_object* x_672; uint8_t x_673; lean_object* x_674; +x_672 = lean_ctor_get(x_668, 0); +lean_dec(x_672); +x_673 = 0; +x_674 = lean_box(x_673); +lean_ctor_set(x_668, 0, x_674); +return x_668; +} +else +{ +lean_object* x_675; uint8_t x_676; lean_object* x_677; lean_object* x_678; +x_675 = lean_ctor_get(x_668, 1); +lean_inc(x_675); +lean_dec(x_668); +x_676 = 0; +x_677 = lean_box(x_676); +x_678 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_678, 0, x_677); +lean_ctor_set(x_678, 1, x_675); +return x_678; +} +} +case 1: +{ +uint8_t x_679; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_679 = !lean_is_exclusive(x_668); +if (x_679 == 0) +{ +lean_object* x_680; uint8_t x_681; lean_object* x_682; +x_680 = lean_ctor_get(x_668, 0); +lean_dec(x_680); +x_681 = 1; +x_682 = lean_box(x_681); +lean_ctor_set(x_668, 0, x_682); +return x_668; +} +else +{ +lean_object* x_683; uint8_t x_684; lean_object* x_685; lean_object* x_686; +x_683 = lean_ctor_get(x_668, 1); +lean_inc(x_683); +lean_dec(x_668); +x_684 = 1; +x_685 = lean_box(x_684); +x_686 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_686, 0, x_685); +lean_ctor_set(x_686, 1, x_683); +return x_686; +} +} +default: +{ +lean_object* x_687; lean_object* x_688; +x_687 = lean_ctor_get(x_668, 1); +lean_inc(x_687); +lean_dec(x_668); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_688 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_687); +if (lean_obj_tag(x_688) == 0) +{ +lean_object* x_689; uint8_t x_690; +x_689 = lean_ctor_get(x_688, 0); +lean_inc(x_689); +x_690 = lean_unbox(x_689); +lean_dec(x_689); +switch (x_690) { +case 0: +{ +uint8_t x_691; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_691 = !lean_is_exclusive(x_688); +if (x_691 == 0) +{ +lean_object* x_692; uint8_t x_693; lean_object* x_694; +x_692 = lean_ctor_get(x_688, 0); +lean_dec(x_692); +x_693 = 0; +x_694 = lean_box(x_693); +lean_ctor_set(x_688, 0, x_694); +return x_688; +} +else +{ +lean_object* x_695; uint8_t x_696; lean_object* x_697; lean_object* x_698; +x_695 = lean_ctor_get(x_688, 1); +lean_inc(x_695); +lean_dec(x_688); +x_696 = 0; +x_697 = lean_box(x_696); +x_698 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_698, 0, x_697); +lean_ctor_set(x_698, 1, x_695); +return x_698; +} +} +case 1: +{ +uint8_t x_699; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_699 = !lean_is_exclusive(x_688); +if (x_699 == 0) +{ +lean_object* x_700; uint8_t x_701; lean_object* x_702; +x_700 = lean_ctor_get(x_688, 0); +lean_dec(x_700); +x_701 = 1; +x_702 = lean_box(x_701); +lean_ctor_set(x_688, 0, x_702); +return x_688; +} +else +{ +lean_object* x_703; uint8_t x_704; lean_object* x_705; lean_object* x_706; +x_703 = lean_ctor_get(x_688, 1); +lean_inc(x_703); +lean_dec(x_688); +x_704 = 1; +x_705 = lean_box(x_704); +x_706 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_706, 0, x_705); +lean_ctor_set(x_706, 1, x_703); +return x_706; +} +} +default: +{ +lean_object* x_707; lean_object* x_708; +x_707 = lean_ctor_get(x_688, 1); +lean_inc(x_707); +lean_dec(x_688); +lean_inc(x_6); +x_708 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_707); +return x_708; +} +} +} +else +{ +uint8_t x_709; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_709 = !lean_is_exclusive(x_688); +if (x_709 == 0) +{ +return x_688; +} +else +{ +lean_object* x_710; lean_object* x_711; lean_object* x_712; +x_710 = lean_ctor_get(x_688, 0); +x_711 = lean_ctor_get(x_688, 1); +lean_inc(x_711); +lean_inc(x_710); +lean_dec(x_688); +x_712 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_712, 0, x_710); +lean_ctor_set(x_712, 1, x_711); +return x_712; +} +} +} +} +} +else +{ +uint8_t x_713; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_713 = !lean_is_exclusive(x_668); +if (x_713 == 0) +{ +return x_668; +} +else +{ +lean_object* x_714; lean_object* x_715; lean_object* x_716; +x_714 = lean_ctor_get(x_668, 0); +x_715 = lean_ctor_get(x_668, 1); +lean_inc(x_715); +lean_inc(x_714); +lean_dec(x_668); +x_716 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_716, 0, x_714); +lean_ctor_set(x_716, 1, x_715); +return x_716; +} +} +} +} +} +else +{ +lean_object* x_717; lean_object* x_718; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_717 = lean_box(x_399); +if (lean_is_scalar(x_398)) { + x_718 = lean_alloc_ctor(0, 2, 0); +} else { + x_718 = x_398; +} +lean_ctor_set(x_718, 0, x_717); +lean_ctor_set(x_718, 1, x_400); +return x_718; +} +} +} +} +} +else +{ +uint8_t x_738; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_738 = !lean_is_exclusive(x_378); +if (x_738 == 0) +{ +return x_378; +} +else +{ +lean_object* x_739; lean_object* x_740; lean_object* x_741; +x_739 = lean_ctor_get(x_378, 0); +x_740 = lean_ctor_get(x_378, 1); +lean_inc(x_740); +lean_inc(x_739); +lean_dec(x_378); +x_741 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_741, 0, x_739); +lean_ctor_set(x_741, 1, x_740); +return x_741; +} +} +} +else +{ +uint8_t x_742; lean_object* x_743; lean_object* x_1063; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_1063 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_10); +if (lean_obj_tag(x_1063) == 0) +{ +lean_object* x_1064; uint8_t x_1065; +x_1064 = lean_ctor_get(x_1063, 0); +lean_inc(x_1064); +x_1065 = lean_unbox(x_1064); +if (x_1065 == 0) +{ +lean_object* x_1066; lean_object* x_1067; +lean_dec(x_1064); +x_1066 = lean_ctor_get(x_1063, 1); +lean_inc(x_1066); +lean_dec(x_1063); +lean_inc(x_3); +lean_inc(x_6); +lean_inc(x_9); +x_1067 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_1066); +if (lean_obj_tag(x_1067) == 0) +{ +lean_object* x_1068; lean_object* x_1069; uint8_t x_1070; +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_unbox(x_1068); +lean_dec(x_1068); +x_742 = x_1070; +x_743 = x_1069; +goto block_1062; +} +else +{ +uint8_t x_1071; +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1071 = !lean_is_exclusive(x_1067); +if (x_1071 == 0) +{ +return x_1067; +} +else +{ +lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; +x_1072 = lean_ctor_get(x_1067, 0); +x_1073 = lean_ctor_get(x_1067, 1); +lean_inc(x_1073); +lean_inc(x_1072); +lean_dec(x_1067); +x_1074 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1074, 0, x_1072); +lean_ctor_set(x_1074, 1, x_1073); +return x_1074; +} +} +} +else +{ +lean_object* x_1075; uint8_t x_1076; +x_1075 = lean_ctor_get(x_1063, 1); +lean_inc(x_1075); +lean_dec(x_1063); +x_1076 = lean_unbox(x_1064); +lean_dec(x_1064); +x_742 = x_1076; +x_743 = x_1075; +goto block_1062; +} +} +else +{ +uint8_t x_1077; +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1077 = !lean_is_exclusive(x_1063); +if (x_1077 == 0) +{ +return x_1063; +} +else +{ +lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; +x_1078 = lean_ctor_get(x_1063, 0); +x_1079 = lean_ctor_get(x_1063, 1); +lean_inc(x_1079); +lean_inc(x_1078); +lean_dec(x_1063); +x_1080 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1080, 0, x_1078); +lean_ctor_set(x_1080, 1, x_1079); +return x_1080; +} +} +block_1062: +{ +if (x_742 == 0) +{ +lean_dec(x_11); +switch (lean_obj_tag(x_6)) { +case 4: +{ +if (lean_obj_tag(x_9) == 4) +{ +lean_object* x_744; lean_object* x_745; lean_object* x_746; lean_object* x_747; uint8_t x_748; +x_744 = lean_ctor_get(x_6, 0); +lean_inc(x_744); +x_745 = lean_ctor_get(x_6, 1); +lean_inc(x_745); +x_746 = lean_ctor_get(x_9, 0); +lean_inc(x_746); +x_747 = lean_ctor_get(x_9, 1); +lean_inc(x_747); +x_748 = lean_name_eq(x_744, x_746); +lean_dec(x_746); +lean_dec(x_744); +if (x_748 == 0) +{ +lean_object* x_749; +lean_dec(x_747); +lean_dec(x_745); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_749 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); +if (lean_obj_tag(x_749) == 0) +{ +lean_object* x_750; uint8_t x_751; +x_750 = lean_ctor_get(x_749, 0); +lean_inc(x_750); +x_751 = lean_unbox(x_750); +lean_dec(x_750); +switch (x_751) { +case 0: +{ +uint8_t x_752; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_752 = !lean_is_exclusive(x_749); +if (x_752 == 0) +{ +lean_object* x_753; uint8_t x_754; lean_object* x_755; +x_753 = lean_ctor_get(x_749, 0); +lean_dec(x_753); +x_754 = 0; +x_755 = lean_box(x_754); +lean_ctor_set(x_749, 0, x_755); +return x_749; +} +else +{ +lean_object* x_756; uint8_t x_757; lean_object* x_758; lean_object* x_759; +x_756 = lean_ctor_get(x_749, 1); +lean_inc(x_756); +lean_dec(x_749); +x_757 = 0; +x_758 = lean_box(x_757); +x_759 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_759, 0, x_758); +lean_ctor_set(x_759, 1, x_756); +return x_759; +} +} +case 1: +{ +uint8_t x_760; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_760 = !lean_is_exclusive(x_749); +if (x_760 == 0) +{ +lean_object* x_761; uint8_t x_762; lean_object* x_763; +x_761 = lean_ctor_get(x_749, 0); +lean_dec(x_761); +x_762 = 1; +x_763 = lean_box(x_762); +lean_ctor_set(x_749, 0, x_763); +return x_749; +} +else +{ +lean_object* x_764; uint8_t x_765; lean_object* x_766; lean_object* x_767; +x_764 = lean_ctor_get(x_749, 1); +lean_inc(x_764); +lean_dec(x_749); +x_765 = 1; +x_766 = lean_box(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_764); +return x_767; +} +} +default: +{ +lean_object* x_768; lean_object* x_769; +x_768 = lean_ctor_get(x_749, 1); +lean_inc(x_768); +lean_dec(x_749); +x_769 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_768); +if (lean_obj_tag(x_769) == 0) +{ +lean_object* x_770; uint8_t x_771; +x_770 = lean_ctor_get(x_769, 0); +lean_inc(x_770); +x_771 = lean_unbox(x_770); +lean_dec(x_770); +switch (x_771) { +case 0: +{ +uint8_t x_772; +x_772 = !lean_is_exclusive(x_769); +if (x_772 == 0) +{ +lean_object* x_773; uint8_t x_774; lean_object* x_775; +x_773 = lean_ctor_get(x_769, 0); +lean_dec(x_773); +x_774 = 0; +x_775 = lean_box(x_774); +lean_ctor_set(x_769, 0, x_775); +return x_769; +} +else +{ +lean_object* x_776; uint8_t x_777; lean_object* x_778; lean_object* x_779; +x_776 = lean_ctor_get(x_769, 1); +lean_inc(x_776); +lean_dec(x_769); +x_777 = 0; +x_778 = lean_box(x_777); +x_779 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_779, 0, x_778); +lean_ctor_set(x_779, 1, x_776); +return x_779; +} +} +case 1: +{ +uint8_t x_780; +x_780 = !lean_is_exclusive(x_769); +if (x_780 == 0) +{ +lean_object* x_781; uint8_t x_782; lean_object* x_783; +x_781 = lean_ctor_get(x_769, 0); +lean_dec(x_781); +x_782 = 1; +x_783 = lean_box(x_782); +lean_ctor_set(x_769, 0, x_783); +return x_769; +} +else +{ +lean_object* x_784; uint8_t x_785; lean_object* x_786; lean_object* x_787; +x_784 = lean_ctor_get(x_769, 1); +lean_inc(x_784); +lean_dec(x_769); +x_785 = 1; +x_786 = lean_box(x_785); +x_787 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_787, 0, x_786); +lean_ctor_set(x_787, 1, x_784); +return x_787; +} +} +default: +{ +uint8_t x_788; +x_788 = !lean_is_exclusive(x_769); +if (x_788 == 0) +{ +lean_object* x_789; lean_object* x_790; +x_789 = lean_ctor_get(x_769, 0); +lean_dec(x_789); +x_790 = lean_box(x_742); +lean_ctor_set(x_769, 0, x_790); +return x_769; +} +else +{ +lean_object* x_791; lean_object* x_792; lean_object* x_793; +x_791 = lean_ctor_get(x_769, 1); +lean_inc(x_791); +lean_dec(x_769); +x_792 = lean_box(x_742); +x_793 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_793, 0, x_792); +lean_ctor_set(x_793, 1, x_791); +return x_793; +} +} +} +} +else +{ +uint8_t x_794; +x_794 = !lean_is_exclusive(x_769); +if (x_794 == 0) +{ +return x_769; +} +else +{ +lean_object* x_795; lean_object* x_796; lean_object* x_797; +x_795 = lean_ctor_get(x_769, 0); +x_796 = lean_ctor_get(x_769, 1); +lean_inc(x_796); +lean_inc(x_795); +lean_dec(x_769); +x_797 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_797, 0, x_795); +lean_ctor_set(x_797, 1, x_796); +return x_797; +} +} +} +} +} +else +{ +uint8_t x_798; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_798 = !lean_is_exclusive(x_749); +if (x_798 == 0) +{ +return x_749; +} +else +{ +lean_object* x_799; lean_object* x_800; lean_object* x_801; +x_799 = lean_ctor_get(x_749, 0); +x_800 = lean_ctor_get(x_749, 1); +lean_inc(x_800); +lean_inc(x_799); +lean_dec(x_749); +x_801 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_801, 0, x_799); +lean_ctor_set(x_801, 1, x_800); +return x_801; +} +} +} +else +{ +lean_object* x_802; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_802 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); +if (lean_obj_tag(x_802) == 0) +{ +lean_object* x_803; uint8_t x_804; +x_803 = lean_ctor_get(x_802, 0); +lean_inc(x_803); +x_804 = lean_unbox(x_803); +lean_dec(x_803); +switch (x_804) { +case 0: +{ +uint8_t x_805; +lean_dec(x_747); +lean_dec(x_745); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_805 = !lean_is_exclusive(x_802); +if (x_805 == 0) +{ +lean_object* x_806; uint8_t x_807; lean_object* x_808; +x_806 = lean_ctor_get(x_802, 0); +lean_dec(x_806); +x_807 = 0; +x_808 = lean_box(x_807); +lean_ctor_set(x_802, 0, x_808); +return x_802; +} +else +{ +lean_object* x_809; uint8_t x_810; lean_object* x_811; lean_object* x_812; +x_809 = lean_ctor_get(x_802, 1); +lean_inc(x_809); +lean_dec(x_802); +x_810 = 0; +x_811 = lean_box(x_810); +x_812 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_812, 0, x_811); +lean_ctor_set(x_812, 1, x_809); +return x_812; +} +} +case 1: +{ +uint8_t x_813; +lean_dec(x_747); +lean_dec(x_745); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_813 = !lean_is_exclusive(x_802); +if (x_813 == 0) +{ +lean_object* x_814; uint8_t x_815; lean_object* x_816; +x_814 = lean_ctor_get(x_802, 0); +lean_dec(x_814); +x_815 = 1; +x_816 = lean_box(x_815); +lean_ctor_set(x_802, 0, x_816); +return x_802; +} +else +{ +lean_object* x_817; uint8_t x_818; lean_object* x_819; lean_object* x_820; +x_817 = lean_ctor_get(x_802, 1); +lean_inc(x_817); +lean_dec(x_802); +x_818 = 1; +x_819 = lean_box(x_818); +x_820 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_820, 0, x_819); +lean_ctor_set(x_820, 1, x_817); +return x_820; +} +} +default: +{ +lean_object* x_821; lean_object* x_822; +x_821 = lean_ctor_get(x_802, 1); +lean_inc(x_821); +lean_dec(x_802); +lean_inc(x_3); +x_822 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_821); +if (lean_obj_tag(x_822) == 0) +{ +lean_object* x_823; uint8_t x_824; +x_823 = lean_ctor_get(x_822, 0); +lean_inc(x_823); +x_824 = lean_unbox(x_823); +lean_dec(x_823); +switch (x_824) { +case 0: +{ +uint8_t x_825; +lean_dec(x_747); +lean_dec(x_745); +lean_dec(x_3); +x_825 = !lean_is_exclusive(x_822); +if (x_825 == 0) +{ +lean_object* x_826; uint8_t x_827; lean_object* x_828; +x_826 = lean_ctor_get(x_822, 0); +lean_dec(x_826); +x_827 = 0; +x_828 = lean_box(x_827); +lean_ctor_set(x_822, 0, x_828); +return x_822; +} +else +{ +lean_object* x_829; uint8_t x_830; lean_object* x_831; lean_object* x_832; +x_829 = lean_ctor_get(x_822, 1); +lean_inc(x_829); +lean_dec(x_822); +x_830 = 0; +x_831 = lean_box(x_830); +x_832 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_832, 0, x_831); +lean_ctor_set(x_832, 1, x_829); +return x_832; +} +} +case 1: +{ +uint8_t x_833; +lean_dec(x_747); +lean_dec(x_745); +lean_dec(x_3); +x_833 = !lean_is_exclusive(x_822); +if (x_833 == 0) +{ +lean_object* x_834; uint8_t x_835; lean_object* x_836; +x_834 = lean_ctor_get(x_822, 0); +lean_dec(x_834); +x_835 = 1; +x_836 = lean_box(x_835); +lean_ctor_set(x_822, 0, x_836); +return x_822; +} +else +{ +lean_object* x_837; uint8_t x_838; lean_object* x_839; lean_object* x_840; +x_837 = lean_ctor_get(x_822, 1); +lean_inc(x_837); +lean_dec(x_822); +x_838 = 1; +x_839 = lean_box(x_838); +x_840 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_840, 0, x_839); +lean_ctor_set(x_840, 1, x_837); +return x_840; +} +} +default: +{ +lean_object* x_841; lean_object* x_842; +x_841 = lean_ctor_get(x_822, 1); +lean_inc(x_841); +lean_dec(x_822); +x_842 = l_Lean_Meta_isListLevelDefEqAux___main(x_745, x_747, x_3, x_841); +lean_dec(x_3); +return x_842; +} +} +} +else +{ +uint8_t x_843; +lean_dec(x_747); +lean_dec(x_745); +lean_dec(x_3); +x_843 = !lean_is_exclusive(x_822); +if (x_843 == 0) +{ +return x_822; +} +else +{ +lean_object* x_844; lean_object* x_845; lean_object* x_846; +x_844 = lean_ctor_get(x_822, 0); +x_845 = lean_ctor_get(x_822, 1); +lean_inc(x_845); +lean_inc(x_844); +lean_dec(x_822); +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 +{ +uint8_t x_847; +lean_dec(x_747); +lean_dec(x_745); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_847 = !lean_is_exclusive(x_802); +if (x_847 == 0) +{ +return x_802; +} +else +{ +lean_object* x_848; lean_object* x_849; lean_object* x_850; +x_848 = lean_ctor_get(x_802, 0); +x_849 = lean_ctor_get(x_802, 1); +lean_inc(x_849); +lean_inc(x_848); +lean_dec(x_802); +x_850 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_850, 0, x_848); +lean_ctor_set(x_850, 1, x_849); +return x_850; +} +} +} +} +else +{ +lean_object* x_851; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_851 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); +if (lean_obj_tag(x_851) == 0) +{ +lean_object* x_852; uint8_t x_853; +x_852 = lean_ctor_get(x_851, 0); +lean_inc(x_852); +x_853 = lean_unbox(x_852); +lean_dec(x_852); +switch (x_853) { +case 0: +{ +uint8_t x_854; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_854 = !lean_is_exclusive(x_851); +if (x_854 == 0) +{ +lean_object* x_855; uint8_t x_856; lean_object* x_857; +x_855 = lean_ctor_get(x_851, 0); +lean_dec(x_855); +x_856 = 0; +x_857 = lean_box(x_856); +lean_ctor_set(x_851, 0, x_857); +return x_851; +} +else +{ +lean_object* x_858; uint8_t x_859; lean_object* x_860; lean_object* x_861; +x_858 = lean_ctor_get(x_851, 1); +lean_inc(x_858); +lean_dec(x_851); +x_859 = 0; +x_860 = lean_box(x_859); +x_861 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_861, 0, x_860); +lean_ctor_set(x_861, 1, x_858); +return x_861; +} +} +case 1: +{ +uint8_t x_862; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_862 = !lean_is_exclusive(x_851); +if (x_862 == 0) +{ +lean_object* x_863; uint8_t x_864; lean_object* x_865; +x_863 = lean_ctor_get(x_851, 0); +lean_dec(x_863); +x_864 = 1; +x_865 = lean_box(x_864); +lean_ctor_set(x_851, 0, x_865); +return x_851; +} +else +{ +lean_object* x_866; uint8_t x_867; lean_object* x_868; lean_object* x_869; +x_866 = lean_ctor_get(x_851, 1); +lean_inc(x_866); +lean_dec(x_851); +x_867 = 1; +x_868 = lean_box(x_867); +x_869 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_869, 0, x_868); +lean_ctor_set(x_869, 1, x_866); +return x_869; +} +} +default: +{ +lean_object* x_870; lean_object* x_871; +x_870 = lean_ctor_get(x_851, 1); +lean_inc(x_870); +lean_dec(x_851); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_871 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_870); +if (lean_obj_tag(x_871) == 0) +{ +lean_object* x_872; uint8_t x_873; +x_872 = lean_ctor_get(x_871, 0); +lean_inc(x_872); +x_873 = lean_unbox(x_872); +lean_dec(x_872); +switch (x_873) { +case 0: +{ +uint8_t x_874; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_874 = !lean_is_exclusive(x_871); +if (x_874 == 0) +{ +lean_object* x_875; uint8_t x_876; lean_object* x_877; +x_875 = lean_ctor_get(x_871, 0); +lean_dec(x_875); +x_876 = 0; +x_877 = lean_box(x_876); +lean_ctor_set(x_871, 0, x_877); +return x_871; +} +else +{ +lean_object* x_878; uint8_t x_879; lean_object* x_880; lean_object* x_881; +x_878 = lean_ctor_get(x_871, 1); +lean_inc(x_878); +lean_dec(x_871); +x_879 = 0; +x_880 = lean_box(x_879); +x_881 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_881, 0, x_880); +lean_ctor_set(x_881, 1, x_878); +return x_881; +} +} +case 1: +{ +uint8_t x_882; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_882 = !lean_is_exclusive(x_871); +if (x_882 == 0) +{ +lean_object* x_883; uint8_t x_884; lean_object* x_885; +x_883 = lean_ctor_get(x_871, 0); +lean_dec(x_883); +x_884 = 1; +x_885 = lean_box(x_884); +lean_ctor_set(x_871, 0, x_885); +return x_871; +} +else +{ +lean_object* x_886; uint8_t x_887; lean_object* x_888; lean_object* x_889; +x_886 = lean_ctor_get(x_871, 1); +lean_inc(x_886); +lean_dec(x_871); +x_887 = 1; +x_888 = lean_box(x_887); +x_889 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_889, 0, x_888); +lean_ctor_set(x_889, 1, x_886); +return x_889; +} +} +default: +{ +lean_object* x_890; lean_object* x_891; +x_890 = lean_ctor_get(x_871, 1); +lean_inc(x_890); +lean_dec(x_871); +lean_inc(x_6); +x_891 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_890); +return x_891; +} +} +} +else +{ +uint8_t x_892; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_892 = !lean_is_exclusive(x_871); +if (x_892 == 0) +{ +return x_871; +} +else +{ +lean_object* x_893; lean_object* x_894; lean_object* x_895; +x_893 = lean_ctor_get(x_871, 0); +x_894 = lean_ctor_get(x_871, 1); +lean_inc(x_894); +lean_inc(x_893); +lean_dec(x_871); +x_895 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_895, 0, x_893); +lean_ctor_set(x_895, 1, x_894); +return x_895; +} +} +} +} +} +else +{ +uint8_t x_896; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_896 = !lean_is_exclusive(x_851); +if (x_896 == 0) +{ +return x_851; +} +else +{ +lean_object* x_897; lean_object* x_898; lean_object* x_899; +x_897 = lean_ctor_get(x_851, 0); +x_898 = lean_ctor_get(x_851, 1); +lean_inc(x_898); +lean_inc(x_897); +lean_dec(x_851); +x_899 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_899, 0, x_897); +lean_ctor_set(x_899, 1, x_898); +return x_899; +} +} +} +} +case 5: +{ +if (lean_obj_tag(x_9) == 5) +{ +lean_object* x_900; lean_object* x_901; +x_900 = l_Lean_Expr_getAppFn___main(x_6); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_901 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); +if (lean_obj_tag(x_901) == 0) +{ +lean_object* x_902; uint8_t x_903; +x_902 = lean_ctor_get(x_901, 0); +lean_inc(x_902); +x_903 = lean_unbox(x_902); +lean_dec(x_902); +switch (x_903) { +case 0: +{ +uint8_t x_904; +lean_dec(x_900); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_904 = !lean_is_exclusive(x_901); +if (x_904 == 0) +{ +lean_object* x_905; uint8_t x_906; lean_object* x_907; +x_905 = lean_ctor_get(x_901, 0); +lean_dec(x_905); +x_906 = 0; +x_907 = lean_box(x_906); +lean_ctor_set(x_901, 0, x_907); +return x_901; +} +else +{ +lean_object* x_908; uint8_t x_909; lean_object* x_910; lean_object* x_911; +x_908 = lean_ctor_get(x_901, 1); +lean_inc(x_908); +lean_dec(x_901); +x_909 = 0; +x_910 = lean_box(x_909); +x_911 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_911, 0, x_910); +lean_ctor_set(x_911, 1, x_908); +return x_911; +} +} +case 1: +{ +uint8_t x_912; +lean_dec(x_900); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_912 = !lean_is_exclusive(x_901); +if (x_912 == 0) +{ +lean_object* x_913; uint8_t x_914; lean_object* x_915; +x_913 = lean_ctor_get(x_901, 0); +lean_dec(x_913); +x_914 = 1; +x_915 = lean_box(x_914); +lean_ctor_set(x_901, 0, x_915); +return x_901; +} +else +{ +lean_object* x_916; uint8_t x_917; lean_object* x_918; lean_object* x_919; +x_916 = lean_ctor_get(x_901, 1); +lean_inc(x_916); +lean_dec(x_901); +x_917 = 1; +x_918 = lean_box(x_917); +x_919 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_919, 0, x_918); +lean_ctor_set(x_919, 1, x_916); +return x_919; +} +} +default: +{ +lean_object* x_920; lean_object* x_921; +x_920 = lean_ctor_get(x_901, 1); +lean_inc(x_920); +lean_dec(x_901); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_921 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_920); +if (lean_obj_tag(x_921) == 0) +{ +lean_object* x_922; uint8_t x_923; +x_922 = lean_ctor_get(x_921, 0); +lean_inc(x_922); +x_923 = lean_unbox(x_922); +lean_dec(x_922); +switch (x_923) { +case 0: +{ +uint8_t x_924; +lean_dec(x_900); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_924 = !lean_is_exclusive(x_921); +if (x_924 == 0) +{ +lean_object* x_925; uint8_t x_926; lean_object* x_927; +x_925 = lean_ctor_get(x_921, 0); +lean_dec(x_925); +x_926 = 0; +x_927 = lean_box(x_926); +lean_ctor_set(x_921, 0, x_927); +return x_921; +} +else +{ +lean_object* x_928; uint8_t x_929; lean_object* x_930; lean_object* x_931; +x_928 = lean_ctor_get(x_921, 1); +lean_inc(x_928); +lean_dec(x_921); +x_929 = 0; +x_930 = lean_box(x_929); +x_931 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_931, 0, x_930); +lean_ctor_set(x_931, 1, x_928); +return x_931; +} +} +case 1: +{ +uint8_t x_932; +lean_dec(x_900); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_932 = !lean_is_exclusive(x_921); +if (x_932 == 0) +{ +lean_object* x_933; uint8_t x_934; lean_object* x_935; +x_933 = lean_ctor_get(x_921, 0); +lean_dec(x_933); +x_934 = 1; +x_935 = lean_box(x_934); +lean_ctor_set(x_921, 0, x_935); +return x_921; +} +else +{ +lean_object* x_936; uint8_t x_937; lean_object* x_938; lean_object* x_939; +x_936 = lean_ctor_get(x_921, 1); +lean_inc(x_936); +lean_dec(x_921); +x_937 = 1; +x_938 = lean_box(x_937); +x_939 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_939, 0, x_938); +lean_ctor_set(x_939, 1, x_936); +return x_939; +} +} +default: +{ +lean_object* x_940; lean_object* x_941; +x_940 = lean_ctor_get(x_921, 1); +lean_inc(x_940); +lean_dec(x_921); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_941 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_900, x_3, x_940); +if (lean_obj_tag(x_941) == 0) +{ +lean_object* x_942; uint8_t x_943; +x_942 = lean_ctor_get(x_941, 0); +lean_inc(x_942); +x_943 = lean_unbox(x_942); +if (x_943 == 0) +{ +lean_object* x_944; lean_object* x_945; +lean_dec(x_942); +x_944 = lean_ctor_get(x_941, 1); +lean_inc(x_944); +lean_dec(x_941); +lean_inc(x_6); +x_945 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_944); +return x_945; +} +else +{ +uint8_t x_946; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_946 = !lean_is_exclusive(x_941); +if (x_946 == 0) +{ +lean_object* x_947; +x_947 = lean_ctor_get(x_941, 0); +lean_dec(x_947); +return x_941; +} +else +{ +lean_object* x_948; lean_object* x_949; +x_948 = lean_ctor_get(x_941, 1); +lean_inc(x_948); +lean_dec(x_941); +x_949 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_949, 0, x_942); +lean_ctor_set(x_949, 1, x_948); +return x_949; +} +} +} +else +{ +uint8_t x_950; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_950 = !lean_is_exclusive(x_941); +if (x_950 == 0) +{ +return x_941; +} +else +{ +lean_object* x_951; lean_object* x_952; lean_object* x_953; +x_951 = lean_ctor_get(x_941, 0); +x_952 = lean_ctor_get(x_941, 1); +lean_inc(x_952); +lean_inc(x_951); +lean_dec(x_941); +x_953 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_953, 0, x_951); +lean_ctor_set(x_953, 1, x_952); +return x_953; +} +} +} +} +} +else +{ +uint8_t x_954; +lean_dec(x_900); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_954 = !lean_is_exclusive(x_921); +if (x_954 == 0) +{ +return x_921; +} +else +{ +lean_object* x_955; lean_object* x_956; lean_object* x_957; +x_955 = lean_ctor_get(x_921, 0); +x_956 = lean_ctor_get(x_921, 1); +lean_inc(x_956); +lean_inc(x_955); +lean_dec(x_921); +x_957 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_957, 0, x_955); +lean_ctor_set(x_957, 1, x_956); +return x_957; +} +} +} +} +} +else +{ +uint8_t x_958; +lean_dec(x_900); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_958 = !lean_is_exclusive(x_901); +if (x_958 == 0) +{ +return x_901; +} +else +{ +lean_object* x_959; lean_object* x_960; lean_object* x_961; +x_959 = lean_ctor_get(x_901, 0); +x_960 = lean_ctor_get(x_901, 1); +lean_inc(x_960); +lean_inc(x_959); +lean_dec(x_901); +x_961 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_961, 0, x_959); +lean_ctor_set(x_961, 1, x_960); +return x_961; +} +} +} +else +{ +lean_object* x_962; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_962 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); +if (lean_obj_tag(x_962) == 0) +{ +lean_object* x_963; uint8_t x_964; +x_963 = lean_ctor_get(x_962, 0); +lean_inc(x_963); +x_964 = lean_unbox(x_963); +lean_dec(x_963); +switch (x_964) { +case 0: +{ +uint8_t x_965; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_965 = !lean_is_exclusive(x_962); +if (x_965 == 0) +{ +lean_object* x_966; uint8_t x_967; lean_object* x_968; +x_966 = lean_ctor_get(x_962, 0); +lean_dec(x_966); +x_967 = 0; +x_968 = lean_box(x_967); +lean_ctor_set(x_962, 0, x_968); +return x_962; +} +else +{ +lean_object* x_969; uint8_t x_970; lean_object* x_971; lean_object* x_972; +x_969 = lean_ctor_get(x_962, 1); +lean_inc(x_969); +lean_dec(x_962); +x_970 = 0; +x_971 = lean_box(x_970); +x_972 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_972, 0, x_971); +lean_ctor_set(x_972, 1, x_969); +return x_972; +} +} +case 1: +{ +uint8_t x_973; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_973 = !lean_is_exclusive(x_962); +if (x_973 == 0) +{ +lean_object* x_974; uint8_t x_975; lean_object* x_976; +x_974 = lean_ctor_get(x_962, 0); +lean_dec(x_974); +x_975 = 1; +x_976 = lean_box(x_975); +lean_ctor_set(x_962, 0, x_976); +return x_962; +} +else +{ +lean_object* x_977; uint8_t x_978; lean_object* x_979; lean_object* x_980; +x_977 = lean_ctor_get(x_962, 1); +lean_inc(x_977); +lean_dec(x_962); +x_978 = 1; +x_979 = lean_box(x_978); +x_980 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_980, 0, x_979); +lean_ctor_set(x_980, 1, x_977); +return x_980; +} +} +default: +{ +lean_object* x_981; lean_object* x_982; +x_981 = lean_ctor_get(x_962, 1); +lean_inc(x_981); +lean_dec(x_962); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_982 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_981); +if (lean_obj_tag(x_982) == 0) +{ +lean_object* x_983; uint8_t x_984; +x_983 = lean_ctor_get(x_982, 0); +lean_inc(x_983); +x_984 = lean_unbox(x_983); +lean_dec(x_983); +switch (x_984) { +case 0: +{ +uint8_t x_985; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_985 = !lean_is_exclusive(x_982); +if (x_985 == 0) +{ +lean_object* x_986; uint8_t x_987; lean_object* x_988; +x_986 = lean_ctor_get(x_982, 0); +lean_dec(x_986); +x_987 = 0; +x_988 = lean_box(x_987); +lean_ctor_set(x_982, 0, x_988); +return x_982; +} +else +{ +lean_object* x_989; uint8_t x_990; lean_object* x_991; lean_object* x_992; +x_989 = lean_ctor_get(x_982, 1); +lean_inc(x_989); +lean_dec(x_982); +x_990 = 0; +x_991 = lean_box(x_990); +x_992 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_992, 0, x_991); +lean_ctor_set(x_992, 1, x_989); +return x_992; +} +} +case 1: +{ +uint8_t x_993; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_993 = !lean_is_exclusive(x_982); +if (x_993 == 0) +{ +lean_object* x_994; uint8_t x_995; lean_object* x_996; +x_994 = lean_ctor_get(x_982, 0); +lean_dec(x_994); +x_995 = 1; +x_996 = lean_box(x_995); +lean_ctor_set(x_982, 0, x_996); +return x_982; +} +else +{ +lean_object* x_997; uint8_t x_998; lean_object* x_999; lean_object* x_1000; +x_997 = lean_ctor_get(x_982, 1); +lean_inc(x_997); +lean_dec(x_982); +x_998 = 1; +x_999 = lean_box(x_998); +x_1000 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1000, 0, x_999); +lean_ctor_set(x_1000, 1, x_997); +return x_1000; +} +} +default: +{ +lean_object* x_1001; lean_object* x_1002; +x_1001 = lean_ctor_get(x_982, 1); +lean_inc(x_1001); +lean_dec(x_982); +lean_inc(x_6); +x_1002 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_1001); +return x_1002; +} +} +} +else +{ +uint8_t x_1003; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1003 = !lean_is_exclusive(x_982); +if (x_1003 == 0) +{ +return x_982; +} +else +{ +lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; +x_1004 = lean_ctor_get(x_982, 0); +x_1005 = lean_ctor_get(x_982, 1); +lean_inc(x_1005); +lean_inc(x_1004); +lean_dec(x_982); +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_9); +lean_dec(x_6); +lean_dec(x_3); +x_1007 = !lean_is_exclusive(x_962); +if (x_1007 == 0) +{ +return x_962; +} +else +{ +lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; +x_1008 = lean_ctor_get(x_962, 0); +x_1009 = lean_ctor_get(x_962, 1); +lean_inc(x_1009); +lean_inc(x_1008); +lean_dec(x_962); +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; +} +} +} +} +default: +{ +lean_object* x_1011; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_1011 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); +if (lean_obj_tag(x_1011) == 0) +{ +lean_object* x_1012; uint8_t x_1013; +x_1012 = lean_ctor_get(x_1011, 0); +lean_inc(x_1012); +x_1013 = lean_unbox(x_1012); +lean_dec(x_1012); +switch (x_1013) { +case 0: +{ +uint8_t x_1014; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1014 = !lean_is_exclusive(x_1011); +if (x_1014 == 0) +{ +lean_object* x_1015; uint8_t x_1016; lean_object* x_1017; +x_1015 = lean_ctor_get(x_1011, 0); +lean_dec(x_1015); +x_1016 = 0; +x_1017 = lean_box(x_1016); +lean_ctor_set(x_1011, 0, x_1017); +return x_1011; +} +else +{ +lean_object* x_1018; uint8_t x_1019; lean_object* x_1020; lean_object* x_1021; +x_1018 = lean_ctor_get(x_1011, 1); +lean_inc(x_1018); +lean_dec(x_1011); +x_1019 = 0; +x_1020 = lean_box(x_1019); +x_1021 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1021, 0, x_1020); +lean_ctor_set(x_1021, 1, x_1018); +return x_1021; +} +} +case 1: +{ +uint8_t x_1022; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1022 = !lean_is_exclusive(x_1011); +if (x_1022 == 0) +{ +lean_object* x_1023; uint8_t x_1024; lean_object* x_1025; +x_1023 = lean_ctor_get(x_1011, 0); +lean_dec(x_1023); +x_1024 = 1; +x_1025 = lean_box(x_1024); +lean_ctor_set(x_1011, 0, x_1025); +return x_1011; +} +else +{ +lean_object* x_1026; uint8_t x_1027; lean_object* x_1028; lean_object* x_1029; +x_1026 = lean_ctor_get(x_1011, 1); +lean_inc(x_1026); +lean_dec(x_1011); +x_1027 = 1; +x_1028 = lean_box(x_1027); +x_1029 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1029, 0, x_1028); +lean_ctor_set(x_1029, 1, x_1026); +return x_1029; +} +} +default: +{ +lean_object* x_1030; lean_object* x_1031; +x_1030 = lean_ctor_get(x_1011, 1); +lean_inc(x_1030); +lean_dec(x_1011); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_1031 = l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(x_6, x_9, x_3, x_1030); +if (lean_obj_tag(x_1031) == 0) +{ +lean_object* x_1032; uint8_t x_1033; +x_1032 = lean_ctor_get(x_1031, 0); +lean_inc(x_1032); +x_1033 = lean_unbox(x_1032); +lean_dec(x_1032); +switch (x_1033) { +case 0: +{ +uint8_t x_1034; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1034 = !lean_is_exclusive(x_1031); +if (x_1034 == 0) +{ +lean_object* x_1035; uint8_t x_1036; lean_object* x_1037; +x_1035 = lean_ctor_get(x_1031, 0); +lean_dec(x_1035); +x_1036 = 0; +x_1037 = lean_box(x_1036); +lean_ctor_set(x_1031, 0, x_1037); +return x_1031; +} +else +{ +lean_object* x_1038; uint8_t x_1039; lean_object* x_1040; lean_object* x_1041; +x_1038 = lean_ctor_get(x_1031, 1); +lean_inc(x_1038); +lean_dec(x_1031); +x_1039 = 0; +x_1040 = lean_box(x_1039); +x_1041 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1041, 0, x_1040); +lean_ctor_set(x_1041, 1, x_1038); +return x_1041; +} +} +case 1: +{ +uint8_t x_1042; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1042 = !lean_is_exclusive(x_1031); +if (x_1042 == 0) +{ +lean_object* x_1043; uint8_t x_1044; lean_object* x_1045; +x_1043 = lean_ctor_get(x_1031, 0); +lean_dec(x_1043); +x_1044 = 1; +x_1045 = lean_box(x_1044); +lean_ctor_set(x_1031, 0, x_1045); +return x_1031; +} +else +{ +lean_object* x_1046; uint8_t x_1047; lean_object* x_1048; lean_object* x_1049; +x_1046 = lean_ctor_get(x_1031, 1); +lean_inc(x_1046); +lean_dec(x_1031); +x_1047 = 1; +x_1048 = lean_box(x_1047); +x_1049 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1049, 0, x_1048); +lean_ctor_set(x_1049, 1, x_1046); +return x_1049; +} +} +default: +{ +lean_object* x_1050; lean_object* x_1051; +x_1050 = lean_ctor_get(x_1031, 1); +lean_inc(x_1050); +lean_dec(x_1031); +lean_inc(x_6); +x_1051 = l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(x_6, x_9, x_6, x_3, x_1050); +return x_1051; +} +} +} +else +{ +uint8_t x_1052; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1052 = !lean_is_exclusive(x_1031); +if (x_1052 == 0) +{ +return x_1031; +} +else +{ +lean_object* x_1053; lean_object* x_1054; lean_object* x_1055; +x_1053 = lean_ctor_get(x_1031, 0); +x_1054 = lean_ctor_get(x_1031, 1); +lean_inc(x_1054); +lean_inc(x_1053); +lean_dec(x_1031); +x_1055 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1055, 0, x_1053); +lean_ctor_set(x_1055, 1, x_1054); +return x_1055; +} +} +} +} +} +else +{ +uint8_t x_1056; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1056 = !lean_is_exclusive(x_1011); +if (x_1056 == 0) +{ +return x_1011; +} +else +{ +lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; +x_1057 = lean_ctor_get(x_1011, 0); +x_1058 = lean_ctor_get(x_1011, 1); +lean_inc(x_1058); +lean_inc(x_1057); +lean_dec(x_1011); +x_1059 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1059, 0, x_1057); +lean_ctor_set(x_1059, 1, x_1058); +return x_1059; +} +} +} +} +} +else +{ +lean_object* x_1060; lean_object* x_1061; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_1060 = lean_box(x_742); +if (lean_is_scalar(x_11)) { + x_1061 = lean_alloc_ctor(0, 2, 0); +} else { + x_1061 = x_11; +} +lean_ctor_set(x_1061, 0, x_1060); +lean_ctor_set(x_1061, 1, x_743); +return x_1061; +} +} +} +} +} +else +{ +uint8_t x_1081; lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_352 = !lean_is_exclusive(x_8); -if (x_352 == 0) +x_1081 = !lean_is_exclusive(x_8); +if (x_1081 == 0) { return x_8; } else { -lean_object* x_353; lean_object* x_354; lean_object* x_355; -x_353 = lean_ctor_get(x_8, 0); -x_354 = lean_ctor_get(x_8, 1); -lean_inc(x_354); -lean_inc(x_353); +lean_object* x_1082; lean_object* x_1083; lean_object* x_1084; +x_1082 = lean_ctor_get(x_8, 0); +x_1083 = lean_ctor_get(x_8, 1); +lean_inc(x_1083); +lean_inc(x_1082); lean_dec(x_8); -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; +x_1084 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1084, 0, x_1082); +lean_ctor_set(x_1084, 1, x_1083); +return x_1084; } } } else { -uint8_t x_356; +uint8_t x_1085; lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_356 = !lean_is_exclusive(x_5); -if (x_356 == 0) +x_1085 = !lean_is_exclusive(x_5); +if (x_1085 == 0) { return x_5; } else { -lean_object* x_357; lean_object* x_358; lean_object* x_359; -x_357 = lean_ctor_get(x_5, 0); -x_358 = lean_ctor_get(x_5, 1); -lean_inc(x_358); -lean_inc(x_357); +lean_object* x_1086; lean_object* x_1087; lean_object* x_1088; +x_1086 = lean_ctor_get(x_5, 0); +x_1087 = lean_ctor_get(x_5, 1); +lean_inc(x_1087); +lean_inc(x_1086); lean_dec(x_5); -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; +x_1088 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1088, 0, x_1086); +lean_ctor_set(x_1088, 1, x_1087); +return x_1088; } } } diff --git a/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c b/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c index f228348421..73d47caec7 100644 --- a/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c +++ b/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c @@ -16,6 +16,7 @@ extern "C" { lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__7; lean_object* l_Lean_Meta_recursorAttribute; extern lean_object* l_Lean_Name_toString___closed__1; +lean_object* l_Lean_Meta_brecOnSuffix___closed__1; lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); extern lean_object* l_Option_HasRepr___rarg___closed__2; lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); @@ -54,6 +55,7 @@ lean_object* lean_io_ref_get(lean_object*, lean_object*); lean_object* l_Array_findIdxMAux___main___at___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Meta_RecursorInfo_isMinor(lean_object*, lean_object*); lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__14; +lean_object* l_Lean_Meta_recOnSuffix; lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__5; lean_object* l_Lean_Meta_RecursorInfo_numParams(lean_object*); lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Meta_mkRecursorAttr___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -103,6 +105,7 @@ lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__4; lean_object* l___private_Init_Lean_Meta_RecursorInfo_10__getProduceMotiveAndRecursive(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); lean_object* l_List_replicate___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Meta_casesOnSuffix; lean_object* l_Lean_Meta_RecursorInfo_numParams___boxed(lean_object*); lean_object* l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__2; lean_object* l___private_Init_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__7; @@ -110,6 +113,7 @@ lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_Recurso lean_object* l_Array_binSearchAux___main___at_Lean_Meta_getMajorPos_x3f___spec__3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__13; lean_object* l_Lean_RecursorVal_getMajorIdx(lean_object*); +lean_object* l_Lean_Meta_brecOnSuffix; lean_object* l_List_toStringAux___main___at_Lean_Meta_RecursorInfo_HasToString___spec__6(uint8_t, lean_object*); lean_object* l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); @@ -138,7 +142,6 @@ lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_10 lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_6__getParamsPos___spec__2___boxed(lean_object*, lean_object*, lean_object*, 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_Expr_fvarId_x21(lean_object*); -lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_RecursorInfo_9__getUnivLevelPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ConstantInfo_name(lean_object*); @@ -170,6 +173,7 @@ lean_object* l_addParenHeuristic(lean_object*); lean_object* l_List_toStringAux___main___at_Lean_Meta_RecursorInfo_HasToString___spec__8___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__1; lean_object* l_List_foldlM___main___at___private_Init_Lean_Meta_RecursorInfo_9__getUnivLevelPos___spec__2___closed__1; +lean_object* l_Lean_Meta_mkRecOnFor(lean_object*); extern lean_object* l_Lean_mkRecFor___closed__1; extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1; lean_object* l_Lean_Meta_RecursorUnivLevelPos_hasToString___closed__1; @@ -203,9 +207,11 @@ lean_object* l___private_Init_Lean_Meta_RecursorInfo_11__checkMotiveResultType__ lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Meta_mkRecursorAttr___spec__4___closed__1; lean_object* l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); size_t l_USize_mod(size_t, size_t); +lean_object* l_Lean_Meta_mkBRecOnFor(lean_object*); lean_object* l_Lean_RecursorVal_getInduct(lean_object*); extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3; lean_object* l_Lean_ConstantInfo_lparams(lean_object*); +lean_object* l_Lean_Meta_casesOnSuffix___closed__1; lean_object* l___private_Init_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___closed__3; extern lean_object* l_Option_HasRepr___rarg___closed__3; lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__11; @@ -237,6 +243,7 @@ lean_object* lean_io_ref_reset(lean_object*, lean_object*); extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___spec__1___closed__1; lean_object* l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCasesOnFor(lean_object*); lean_object* l_Lean_Meta_RecursorInfo_motivePos(lean_object*); uint8_t l_Lean_Expr_isFVar(lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_RecursorInfo_10__getProduceMotiveAndRecursive___spec__3(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -263,7 +270,6 @@ lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_ob lean_object* lean_io_initializing(lean_object*); extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2; lean_object* l_Array_findIdxMAux___main___at___private_Init_Lean_Meta_RecursorInfo_6__getParamsPos___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4; lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1(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_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__2___closed__1; lean_object* l___private_Init_Lean_Meta_RecursorInfo_6__getParamsPos(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -291,9 +297,9 @@ lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_RecursorI lean_object* l_Array_findIdxMAux___main___at___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_RecursorInfo_13__syntaxToMajorPos___closed__1; lean_object* l_Lean_Meta_mkRecursorAttr___closed__2; -lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__5; lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1___lambda__1___boxed(lean_object**); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_mkRecursorAttr___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +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_Lean_Meta_mkRecursorAttr___closed__1; lean_object* l_Lean_Meta_forallTelescopeReducing___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -303,6 +309,81 @@ uint8_t l_Lean_Expr_isSort(lean_object*); lean_object* l_Lean_Meta_RecursorInfo_numIndices___boxed(lean_object*); uint8_t lean_string_dec_eq(lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* _init_l_Lean_Meta_casesOnSuffix___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("casesOn"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_casesOnSuffix() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_casesOnSuffix___closed__1; +return x_1; +} +} +lean_object* _init_l_Lean_Meta_recOnSuffix___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("recOn"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_recOnSuffix() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_recOnSuffix___closed__1; +return x_1; +} +} +lean_object* _init_l_Lean_Meta_brecOnSuffix___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("brecOn"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_brecOnSuffix() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Meta_brecOnSuffix___closed__1; +return x_1; +} +} +lean_object* l_Lean_Meta_mkCasesOnFor(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Meta_casesOnSuffix; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkRecOnFor(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Meta_recOnSuffix; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkBRecOnFor(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Meta_brecOnSuffix; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} lean_object* _init_l_Lean_Meta_RecursorUnivLevelPos_hasToString___closed__1() { _start: { @@ -1738,30 +1819,6 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("casesOn"); -return x_1; -} -} -lean_object* _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("recOn"); -return x_1; -} -} -lean_object* _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__5() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("brecOn"); -return x_1; -} -} lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -1793,17 +1850,17 @@ lean_inc(x_10); x_11 = lean_ctor_get(x_1, 1); lean_inc(x_11); lean_dec(x_1); -x_57 = l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4; +x_57 = l_Lean_Meta_recOnSuffix; 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___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; +x_59 = l_Lean_Meta_casesOnSuffix; 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___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__5; +x_61 = l_Lean_Meta_brecOnSuffix; x_62 = lean_string_dec_eq(x_11, x_61); if (x_62 == 0) { @@ -1870,7 +1927,7 @@ lean_inc(x_21); x_22 = lean_nat_add(x_20, x_21); lean_dec(x_21); lean_dec(x_20); -x_23 = l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; +x_23 = l_Lean_Meta_casesOnSuffix; x_24 = lean_string_dec_eq(x_11, x_23); lean_dec(x_11); if (x_24 == 0) @@ -1916,7 +1973,7 @@ lean_inc(x_34); x_35 = lean_nat_add(x_33, x_34); lean_dec(x_34); lean_dec(x_33); -x_36 = l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; +x_36 = l_Lean_Meta_casesOnSuffix; x_37 = lean_string_dec_eq(x_11, x_36); lean_dec(x_11); if (x_37 == 0) @@ -9771,6 +9828,18 @@ lean_dec_ref(res); res = initialize_Init_Lean_Meta_Message(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_Meta_casesOnSuffix___closed__1 = _init_l_Lean_Meta_casesOnSuffix___closed__1(); +lean_mark_persistent(l_Lean_Meta_casesOnSuffix___closed__1); +l_Lean_Meta_casesOnSuffix = _init_l_Lean_Meta_casesOnSuffix(); +lean_mark_persistent(l_Lean_Meta_casesOnSuffix); +l_Lean_Meta_recOnSuffix___closed__1 = _init_l_Lean_Meta_recOnSuffix___closed__1(); +lean_mark_persistent(l_Lean_Meta_recOnSuffix___closed__1); +l_Lean_Meta_recOnSuffix = _init_l_Lean_Meta_recOnSuffix(); +lean_mark_persistent(l_Lean_Meta_recOnSuffix); +l_Lean_Meta_brecOnSuffix___closed__1 = _init_l_Lean_Meta_brecOnSuffix___closed__1(); +lean_mark_persistent(l_Lean_Meta_brecOnSuffix___closed__1); +l_Lean_Meta_brecOnSuffix = _init_l_Lean_Meta_brecOnSuffix(); +lean_mark_persistent(l_Lean_Meta_brecOnSuffix); l_Lean_Meta_RecursorUnivLevelPos_hasToString___closed__1 = _init_l_Lean_Meta_RecursorUnivLevelPos_hasToString___closed__1(); lean_mark_persistent(l_Lean_Meta_RecursorUnivLevelPos_hasToString___closed__1); l_List_toStringAux___main___at_Lean_Meta_RecursorInfo_HasToString___spec__2___closed__1 = _init_l_List_toStringAux___main___at_Lean_Meta_RecursorInfo_HasToString___spec__2___closed__1(); @@ -9821,12 +9890,6 @@ l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed lean_mark_persistent(l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__1); l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__2 = _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__2(); lean_mark_persistent(l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__2); -l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3 = _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3(); -lean_mark_persistent(l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3); -l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4 = _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4(); -lean_mark_persistent(l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__4); -l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__5 = _init_l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__5(); -lean_mark_persistent(l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__5); l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__1 = _init_l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__1(); lean_mark_persistent(l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__1); l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__2 = _init_l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Cases.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Cases.c index 684df4ea40..cb2df8fc96 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Cases.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Cases.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta.Tactic.Cases -// Imports: Init.Lean.Meta.Tactic.Induction +// Imports: Init.Lean.Meta.AppBuilder Init.Lean.Meta.Tactic.Induction Init.Lean.Meta.Tactic.Assert Init.Lean.Meta.Tactic.Subst #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -15,34 +15,47 @@ extern "C" { #endif lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__39___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__33___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7; lean_object* l_Lean_Meta_getLCtx___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_assert(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__38(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5; uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__19(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___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__24___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalDecl_userName(lean_object*); lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__19___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3; -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7; +lean_object* l_Lean_Meta_Cases_cases___boxed(lean_object*, lean_object*, lean_object*, lean_object*, 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*); uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__13(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__33(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_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__26___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkForall(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalizeIndices___lambda__1(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*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__25___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__16___boxed(lean_object*, 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_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_metavar_ctx_get_expr_assignment(lean_object*, lean_object*); +lean_object* l_Lean_Meta_Cases_cases___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__15(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__2; extern lean_object* l_Array_empty___closed__1; lean_object* lean_environment_find(lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__21(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -50,92 +63,144 @@ uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5 uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__43(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__7; lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isApp(lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___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* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8(lean_object*, lean_object*, lean_object*); 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_Meta_Cases_cases___lambda__1___closed__3; +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_getAppArgs___closed__1; lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__42___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1; uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__35(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_anyAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__10(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__44(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__36___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*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__27(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__12(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6; lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2; +lean_object* l___private_Init_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*, lean_object*); lean_object* l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__43___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__5; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__37___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__35___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_casesOnSuffix; lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___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*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1; uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__26(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___rarg(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_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__46___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_substCore(lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__30___boxed(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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__4; lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__22(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__45(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__22___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_mkNoConfusion___closed__3; lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___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* l___private_Init_Lean_Meta_Tactic_Cases_3__withNewIndexEqs___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__37(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__9; +lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__6; +extern lean_object* l_Lean_Expr_heq_x3f___closed__2; +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7(lean_object*, lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_fvarId_x21(lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__41(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__4; -extern lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; +lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Meta_clear(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalizeIndices(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_mkNoConfusion___closed__4; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__40___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_cases(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); +lean_object* l_Lean_Meta_cases(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__10; +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_repr(lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__30(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__34(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__1; +extern lean_object* l_Lean_Meta_mkHEqRefl___closed__1; lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___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* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__9; lean_object* l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__38___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__1; lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Environment_contains(lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2; lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__8(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__3; uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__42(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__4; uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__23(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalizeIndices___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_isEmpty___rarg(lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main(lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__3; lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__21___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalizeIndices___closed__1; lean_object* l_Lean_LocalDecl_toExpr(lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__44___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__29___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__8; +lean_object* l_List_redLength___main___rarg(lean_object*); lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__1; +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(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_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; lean_object* l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8; extern lean_object* l_HashSet_Inhabited___closed__1; lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___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* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5(lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__20(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__17___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4; lean_object* l_Lean_LocalDecl_fvarId(lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__23___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__11___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_mkEqRefl___closed__2; lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__15___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__41___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__16(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -143,14 +208,21 @@ uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__has lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__27___boxed(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_LocalDecl_type(lean_object*); +lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__2; lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__2; +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*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__39(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__29(lean_object*, 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*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1(lean_object*, lean_object*, 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___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__12___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*, 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_Cases_cases(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__28___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Nat_anyAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___boxed(lean_object*, lean_object*, lean_object*); @@ -158,12 +230,18 @@ lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_objec lean_object* l_Lean_Meta_getLocalDecl(lean_object*, lean_object*, lean_object*); uint8_t lean_expr_eqv(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_3__withNewIndexEqs(lean_object*); +lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_Cases_cases___lambda__1___closed__4; uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); uint8_t l_Lean_Expr_hasMVar(lean_object*); -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__5; -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3; +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEqAndProof(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__45___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__6; +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__34___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkApp4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -175,38 +253,53 @@ lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___mai lean_object* l_Lean_Meta_generalizeIndices___lambda__1___closed__2; lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__11(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__14(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_compose(lean_object*, lean_object*); lean_object* l_Lean_Meta_generalizeIndices___lambda__1___closed__1; lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux(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*); extern lean_object* l_Lean_Expr_Inhabited; lean_object* lean_mk_array(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6; +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__5; uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__24(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__40(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_cases___rarg(lean_object*); uint8_t l_Nat_anyAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__3(lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__32(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkOptionalNode___closed__2; lean_object* l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_getDecl(lean_object*, lean_object*); +lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__31(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_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__20___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__14___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__2; uint8_t l_Lean_Expr_hasFVar(lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__18___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_anyAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__13___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqOfHEq(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(lean_object*, lean_object*); lean_object* l_PersistentArray_anyM___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__31___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_anyMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__32___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__36(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -216,74 +309,12 @@ lean_object* l_Lean_Meta_forallTelescopeReducing___rarg(lean_object*, lean_objec lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_MetavarContext_8__dep___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__18(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7; +lean_object* l_Lean_Meta_induction(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); -lean_object* l_Lean_Meta_cases___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_cases___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("HEq"); -return x_1; -} -} -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("refl"); -return x_1; -} -} -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2; -x_2 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__5() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("Eq"); -return x_1; -} -} -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__5; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6; -x_2 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_1__mkEqAndProof(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; @@ -343,13 +374,13 @@ x_19 = lean_box(0); x_20 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_20, 0, x_12); lean_ctor_set(x_20, 1, x_19); -x_21 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2; +x_21 = l_Lean_Expr_heq_x3f___closed__2; lean_inc(x_20); x_22 = l_Lean_mkConst(x_21, x_20); lean_inc(x_1); lean_inc(x_6); x_23 = l_Lean_mkApp4(x_22, x_6, x_1, x_9, x_2); -x_24 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4; +x_24 = l_Lean_Meta_mkHEqRefl___closed__1; x_25 = l_Lean_mkConst(x_24, x_20); x_26 = l_Lean_mkAppB(x_25, x_6, x_1); x_27 = lean_alloc_ctor(0, 2, 0); @@ -368,13 +399,13 @@ x_29 = lean_box(0); x_30 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_30, 0, x_12); lean_ctor_set(x_30, 1, x_29); -x_31 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2; +x_31 = l_Lean_Expr_heq_x3f___closed__2; lean_inc(x_30); x_32 = l_Lean_mkConst(x_31, x_30); lean_inc(x_1); lean_inc(x_6); x_33 = l_Lean_mkApp4(x_32, x_6, x_1, x_9, x_2); -x_34 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4; +x_34 = l_Lean_Meta_mkHEqRefl___closed__1; x_35 = l_Lean_mkConst(x_34, x_30); x_36 = l_Lean_mkAppB(x_35, x_6, x_1); x_37 = lean_alloc_ctor(0, 2, 0); @@ -400,13 +431,13 @@ x_41 = lean_box(0); x_42 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_42, 0, x_12); lean_ctor_set(x_42, 1, x_41); -x_43 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6; +x_43 = l_Lean_Expr_eq_x3f___closed__2; lean_inc(x_42); x_44 = l_Lean_mkConst(x_43, x_42); lean_inc(x_1); lean_inc(x_6); x_45 = l_Lean_mkApp3(x_44, x_6, x_1, x_2); -x_46 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7; +x_46 = l_Lean_Meta_mkEqRefl___closed__2; x_47 = l_Lean_mkConst(x_46, x_42); x_48 = l_Lean_mkAppB(x_47, x_6, x_1); x_49 = lean_alloc_ctor(0, 2, 0); @@ -425,13 +456,13 @@ x_51 = lean_box(0); x_52 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_52, 0, x_12); lean_ctor_set(x_52, 1, x_51); -x_53 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6; +x_53 = l_Lean_Expr_eq_x3f___closed__2; lean_inc(x_52); x_54 = l_Lean_mkConst(x_53, x_52); lean_inc(x_1); lean_inc(x_6); x_55 = l_Lean_mkApp3(x_54, x_6, x_1, x_2); -x_56 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7; +x_56 = l_Lean_Meta_mkEqRefl___closed__2; x_57 = l_Lean_mkConst(x_56, x_52); x_58 = l_Lean_mkAppB(x_57, x_6, x_1); x_59 = lean_alloc_ctor(0, 2, 0); @@ -607,7 +638,7 @@ x_12 = l_Lean_Expr_Inhabited; x_13 = lean_array_get(x_12, x_1, x_4); x_14 = lean_array_get(x_12, x_2, x_4); lean_inc(x_7); -x_15 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq(x_13, x_14, x_7, x_8); +x_15 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEqAndProof(x_13, x_14, x_7, x_8); 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_object* x_21; uint8_t x_22; lean_object* x_23; @@ -800,7 +831,7 @@ lean_dec(x_33); x_42 = lean_array_get_size(x_4); lean_dec(x_4); x_43 = lean_box(0); -x_44 = 1; +x_44 = 0; x_45 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_44, x_41, x_42, x_43, x_11, x_40); if (lean_obj_tag(x_45) == 0) { @@ -1109,7 +1140,7 @@ x_12 = l_Lean_LocalDecl_toExpr(x_1); lean_inc(x_10); lean_inc(x_2); lean_inc(x_12); -x_13 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq(x_12, x_2, x_10, x_11); +x_13 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEqAndProof(x_12, x_2, x_10, x_11); 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; uint8_t x_21; lean_object* x_22; @@ -1213,9 +1244,11 @@ return x_16; lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__1() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("inductive type expected"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_mkNoConfusion___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_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2() { @@ -1223,7 +1256,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__1; -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; } @@ -1231,19 +1264,19 @@ return x_2; lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___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; +x_1 = lean_mk_string("indexed inductive type expected"); +return x_1; } } lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__4() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("indexed inductive type expected"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___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_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5() { @@ -1251,7 +1284,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__4; -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; } @@ -1259,19 +1292,19 @@ return x_2; lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ill-formed inductive datatype"); +return x_1; } } lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ill-formed inductive datatype"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___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_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8() { @@ -1279,16 +1312,6 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__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_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__9() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -1313,7 +1336,7 @@ lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_14 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3; +x_14 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2; x_15 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_14, x_10, x_11); lean_dec(x_10); return x_15; @@ -1344,7 +1367,7 @@ lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_21 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6; +x_21 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5; x_22 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_21, x_10, x_11); lean_dec(x_10); x_23 = !lean_is_exclusive(x_22); @@ -1387,7 +1410,7 @@ lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_46 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__9; +x_46 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8; x_47 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_46, x_10, x_11); lean_dec(x_10); x_48 = !lean_is_exclusive(x_47); @@ -1489,7 +1512,7 @@ lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); -x_52 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3; +x_52 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2; x_53 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_52, x_10, x_11); lean_dec(x_10); return x_53; @@ -1523,7 +1546,7 @@ lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_60 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3; +x_60 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2; x_61 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_60, x_10, x_11); lean_dec(x_10); return x_61; @@ -1854,7 +1877,7 @@ lean_inc(x_21); x_22 = lean_ctor_get(x_21, 0); lean_inc(x_22); lean_dec(x_21); -x_23 = l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__3; +x_23 = l_Lean_Meta_casesOnSuffix___closed__1; x_24 = lean_name_mk_string(x_22, x_23); x_25 = lean_environment_find(x_1, x_24); if (lean_obj_tag(x_25) == 0) @@ -2039,7 +2062,7 @@ _start: lean_object* x_4; lean_object* x_5; uint8_t x_6; x_4 = lean_ctor_get(x_3, 0); lean_inc(x_4); -x_5 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6; +x_5 = l_Lean_Expr_eq_x3f___closed__2; lean_inc(x_4); x_6 = l_Lean_Environment_contains(x_4, x_5); if (x_6 == 0) @@ -2057,111 +2080,111 @@ return x_8; else { lean_object* x_9; uint8_t x_10; -x_9 = l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2; +x_9 = l_Lean_Expr_heq_x3f___closed__2; lean_inc(x_4); x_10 = l_Lean_Environment_contains(x_4, x_9); if (x_10 == 0) { -lean_object* x_11; -lean_inc(x_2); -x_11 = l_Lean_Meta_getLocalDecl(x_1, x_2, x_3); -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_12 = lean_ctor_get(x_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_LocalDecl_type(x_12); -lean_inc(x_2); -x_15 = l_Lean_Meta_whnf(x_14, x_2, 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; 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_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_Lean_Expr_getAppNumArgsAux___main(x_16, x_18); -x_20 = l_Lean_Expr_getAppArgs___closed__1; -lean_inc(x_19); -x_21 = lean_mk_array(x_19, x_20); -x_22 = lean_unsigned_to_nat(1u); -x_23 = lean_nat_sub(x_19, x_22); -lean_dec(x_19); -x_24 = l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f___spec__1(x_4, x_12, x_16, x_21, x_23, x_2, x_17); -lean_dec(x_2); -return x_24; -} -else -{ -uint8_t x_25; -lean_dec(x_12); -lean_dec(x_4); -lean_dec(x_2); -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 -{ -uint8_t x_29; -lean_dec(x_4); -lean_dec(x_2); -x_29 = !lean_is_exclusive(x_11); -if (x_29 == 0) -{ -return x_11; -} -else -{ -lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_30 = lean_ctor_get(x_11, 0); -x_31 = lean_ctor_get(x_11, 1); -lean_inc(x_31); -lean_inc(x_30); -lean_dec(x_11); -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 -{ -lean_object* x_33; lean_object* x_34; +lean_object* x_11; lean_object* x_12; lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_33 = lean_box(0); -x_34 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_3); +x_11 = lean_box(0); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_3); +return x_12; +} +else +{ +lean_object* x_13; +lean_inc(x_2); +x_13 = l_Lean_Meta_getLocalDecl(x_1, x_2, x_3); +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_Lean_LocalDecl_type(x_14); +lean_inc(x_2); +x_17 = l_Lean_Meta_whnf(x_16, x_2, x_15); +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 = lean_unsigned_to_nat(0u); +x_21 = l_Lean_Expr_getAppNumArgsAux___main(x_18, x_20); +x_22 = l_Lean_Expr_getAppArgs___closed__1; +lean_inc(x_21); +x_23 = lean_mk_array(x_21, x_22); +x_24 = lean_unsigned_to_nat(1u); +x_25 = lean_nat_sub(x_21, x_24); +lean_dec(x_21); +x_26 = l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f___spec__1(x_4, x_14, x_18, x_23, x_25, x_2, x_19); +lean_dec(x_2); +return x_26; +} +else +{ +uint8_t x_27; +lean_dec(x_14); +lean_dec(x_4); +lean_dec(x_2); +x_27 = !lean_is_exclusive(x_17); +if (x_27 == 0) +{ +return x_17; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_17, 0); +x_29 = lean_ctor_get(x_17, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_17); +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_4); +lean_dec(x_2); +x_31 = !lean_is_exclusive(x_13); +if (x_31 == 0) +{ +return x_13; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_13, 0); +x_33 = lean_ctor_get(x_13, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_13); +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_Expr_withAppAux___main___at___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f___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: { @@ -10364,62 +10387,3280 @@ lean_dec(x_1); return x_4; } } -lean_object* l_Lean_Meta_cases___rarg(lean_object* x_1) { +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___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_2; lean_object* x_3; -x_2 = l_Lean_Meta_Exception_Inhabited___closed__1; -x_3 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); -return x_3; -} -} -lean_object* l_Lean_Meta_cases(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5) { -_start: +lean_object* x_7; uint8_t x_8; +x_7 = lean_array_get_size(x_2); +x_8 = lean_nat_dec_lt(x_3, x_7); +lean_dec(x_7); +if (x_8 == 0) { -lean_object* x_6; -x_6 = lean_alloc_closure((void*)(l_Lean_Meta_cases___rarg), 1, 0); -return x_6; -} -} -lean_object* l_Lean_Meta_cases___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -uint8_t x_6; lean_object* x_7; -x_6 = lean_unbox(x_4); -lean_dec(x_4); -x_7 = l_Lean_Meta_cases(x_1, x_2, x_3, x_6, x_5); -lean_dec(x_5); +lean_object* x_9; lean_dec(x_3); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_4); +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; +x_10 = lean_array_fget(x_2, x_3); +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_3, x_11); +lean_dec(x_3); +x_13 = lean_ctor_get(x_4, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_4, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_4, 2); +lean_inc(x_15); +x_16 = l_Lean_Meta_FVarSubst_get(x_15, x_10); +lean_inc(x_6); +x_17 = l_Lean_Meta_clear(x_13, x_16, x_5, x_6); +if (lean_obj_tag(x_17) == 0) +{ +uint8_t x_18; +lean_dec(x_6); +x_18 = !lean_is_exclusive(x_4); +if (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_4, 2); +lean_dec(x_19); +x_20 = lean_ctor_get(x_4, 1); +lean_dec(x_20); +x_21 = lean_ctor_get(x_4, 0); +lean_dec(x_21); +x_22 = lean_ctor_get(x_17, 0); +lean_inc(x_22); +x_23 = lean_ctor_get(x_17, 1); +lean_inc(x_23); +lean_dec(x_17); +x_24 = l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(x_10, x_15); +lean_dec(x_10); +lean_ctor_set(x_4, 2, x_24); +lean_ctor_set(x_4, 0, x_22); +x_3 = x_12; +x_6 = x_23; +goto _start; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +lean_dec(x_4); +x_26 = lean_ctor_get(x_17, 0); +lean_inc(x_26); +x_27 = lean_ctor_get(x_17, 1); +lean_inc(x_27); +lean_dec(x_17); +x_28 = l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(x_10, x_15); +lean_dec(x_10); +x_29 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_29, 0, x_26); +lean_ctor_set(x_29, 1, x_14); +lean_ctor_set(x_29, 2, x_28); +x_3 = x_12; +x_4 = x_29; +x_6 = x_27; +goto _start; +} +} +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_dec(x_15); +lean_dec(x_14); +lean_dec(x_10); +x_31 = lean_ctor_get(x_17, 1); +lean_inc(x_31); +lean_dec(x_17); +x_32 = lean_ctor_get(x_6, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_6, 1); +lean_inc(x_33); +x_34 = lean_ctor_get(x_6, 5); +lean_inc(x_34); +lean_dec(x_6); +x_35 = l_Lean_Meta_restore(x_32, x_33, x_34, x_5, x_31); +x_36 = lean_ctor_get(x_35, 1); +lean_inc(x_36); +lean_dec(x_35); +x_3 = x_12; +x_6 = x_36; +goto _start; +} +} +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___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; +x_7 = lean_array_get_size(x_4); +x_8 = lean_nat_dec_lt(x_3, x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_3); +x_9 = l_Array_empty___closed__1; +x_10 = x_4; +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_6); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_12 = lean_array_fget(x_4, x_3); +x_13 = lean_box(0); +x_14 = x_13; +x_15 = lean_array_fset(x_4, x_3, x_14); +x_16 = lean_unsigned_to_nat(0u); +lean_inc(x_12); +x_17 = l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__1(x_1, x_2, x_16, x_12, x_5, x_6); +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(1u); +x_21 = lean_nat_add(x_3, x_20); +x_22 = x_18; +lean_dec(x_12); +x_23 = lean_array_fset(x_15, x_3, x_22); +lean_dec(x_3); +x_3 = x_21; +x_4 = x_23; +x_6 = x_19; +goto _start; +} +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices(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, 1); +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__2(x_1, x_5, x_6, x_2, x_3, x_4); +return x_7; +} +} +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___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_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); return x_7; } } +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___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_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___spec__2(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_array_get_size(x_3); +x_5 = lean_nat_dec_lt(x_2, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Name_inhabited; +x_13 = lean_array_get(x_12, x_1, x_2); +lean_inc(x_8); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_8); +lean_ctor_set(x_14, 1, x_13); +x_15 = lean_unsigned_to_nat(1u); +x_16 = lean_nat_add(x_2, x_15); +x_17 = x_14; +lean_dec(x_8); +x_18 = lean_array_fset(x_11, x_2, x_17); +lean_dec(x_2); +x_2 = x_16; +x_3 = x_18; +goto _start; +} +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_unsigned_to_nat(0u); +x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(x_2, x_3, x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1___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___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_array_get_size(x_3); +x_5 = lean_nat_dec_lt(x_2, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___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_3); +x_5 = lean_nat_dec_lt(x_2, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_array_get_size(x_3); +x_5 = lean_nat_dec_lt(x_2, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_array_get_size(x_3); +x_5 = lean_nat_dec_lt(x_2, x_4); +lean_dec(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, 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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14(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_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +x_12 = l_Lean_Meta_FVarSubst_get(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; +lean_dec(x_8); +x_16 = lean_array_fset(x_11, x_2, x_15); +lean_dec(x_2); +x_2 = x_14; +x_3 = x_16; +goto _start; +} +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("cases"); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_mkNoConfusion___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_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___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_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_10 = l_Lean_LocalDecl_type(x_7); +x_11 = l_Lean_Expr_heq_x3f___closed__2; +x_12 = lean_unsigned_to_nat(4u); +x_13 = l_Lean_Expr_isAppOfArity___main(x_10, x_11, x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_14 = l_Lean_Expr_eq_x3f___closed__2; +x_15 = lean_unsigned_to_nat(3u); +x_16 = l_Lean_Expr_isAppOfArity___main(x_10, x_14, x_15); +if (x_16 == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_10); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_17 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2; +x_18 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__4; +x_19 = l_Lean_Meta_throwTacticEx___rarg(x_17, x_1, x_18, x_8, x_9); +lean_dec(x_8); +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; +x_20 = lean_unsigned_to_nat(0u); +x_21 = l_Lean_Expr_getAppNumArgsAux___main(x_10, x_20); +x_22 = lean_unsigned_to_nat(1u); +x_23 = lean_nat_sub(x_21, x_22); +x_24 = lean_nat_sub(x_23, x_22); +lean_dec(x_23); +x_25 = l_Lean_Expr_getRevArg_x21___main(x_10, x_24); +x_26 = lean_unsigned_to_nat(2u); +x_27 = lean_nat_sub(x_21, x_26); +lean_dec(x_21); +x_28 = lean_nat_sub(x_27, x_22); +lean_dec(x_27); +x_29 = l_Lean_Expr_getRevArg_x21___main(x_10, x_28); +lean_dec(x_10); +lean_inc(x_8); +lean_inc(x_29); +lean_inc(x_25); +x_30 = l_Lean_Meta_isExprDefEq(x_25, x_29, x_8, x_9); +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_40; uint8_t x_59; +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_59 = lean_unbox(x_31); +lean_dec(x_31); +if (x_59 == 0) +{ +if (lean_obj_tag(x_25) == 1) +{ +lean_dec(x_33); +switch (lean_obj_tag(x_29)) { +case 0: +{ +uint8_t x_60; uint8_t x_61; lean_object* x_62; +lean_dec(x_29); +lean_dec(x_25); +x_60 = 0; +x_61 = 1; +x_62 = l_Lean_Meta_substCore(x_1, x_5, x_60, x_61, x_8, x_32); +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; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; +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, 0); +lean_inc(x_65); +x_66 = lean_ctor_get(x_63, 1); +lean_inc(x_66); +lean_dec(x_63); +x_67 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__2(x_65, x_20, x_2); +x_68 = l_Lean_Meta_FVarSubst_compose(x_65, x_3); +x_69 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_69, 0, x_66); +lean_ctor_set(x_69, 1, x_67); +lean_ctor_set(x_69, 2, x_68); +x_70 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_4); +x_71 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_70, x_8, x_64); +lean_dec(x_8); +return x_71; +} +else +{ +uint8_t x_72; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_72 = !lean_is_exclusive(x_62); +if (x_72 == 0) +{ +return x_62; +} +else +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_73 = lean_ctor_get(x_62, 0); +x_74 = lean_ctor_get(x_62, 1); +lean_inc(x_74); +lean_inc(x_73); +lean_dec(x_62); +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; +} +} +} +case 1: +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_76 = lean_ctor_get(x_25, 0); +lean_inc(x_76); +lean_dec(x_25); +x_77 = lean_ctor_get(x_29, 0); +lean_inc(x_77); +lean_dec(x_29); +lean_inc(x_8); +x_78 = l_Lean_Meta_getLocalDecl(x_76, x_8, x_32); +if (lean_obj_tag(x_78) == 0) +{ +lean_object* x_79; lean_object* x_80; +x_79 = lean_ctor_get(x_78, 1); +lean_inc(x_79); +lean_dec(x_78); +lean_inc(x_8); +x_80 = l_Lean_Meta_getLocalDecl(x_77, x_8, x_79); +if (lean_obj_tag(x_80) == 0) +{ +lean_object* x_81; uint8_t x_82; uint8_t x_83; lean_object* x_84; +x_81 = lean_ctor_get(x_80, 1); +lean_inc(x_81); +lean_dec(x_80); +x_82 = 0; +x_83 = 1; +x_84 = l_Lean_Meta_substCore(x_1, x_5, x_82, x_83, x_8, x_81); +if (lean_obj_tag(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; lean_object* x_91; lean_object* x_92; lean_object* x_93; +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); +x_87 = lean_ctor_get(x_85, 0); +lean_inc(x_87); +x_88 = lean_ctor_get(x_85, 1); +lean_inc(x_88); +lean_dec(x_85); +x_89 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3(x_87, x_20, x_2); +x_90 = l_Lean_Meta_FVarSubst_compose(x_87, x_3); +x_91 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_91, 0, x_88); +lean_ctor_set(x_91, 1, x_89); +lean_ctor_set(x_91, 2, x_90); +x_92 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_4); +x_93 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_92, x_8, x_86); +lean_dec(x_8); +return x_93; +} +else +{ +uint8_t x_94; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_94 = !lean_is_exclusive(x_84); +if (x_94 == 0) +{ +return x_84; +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; +x_95 = lean_ctor_get(x_84, 0); +x_96 = lean_ctor_get(x_84, 1); +lean_inc(x_96); +lean_inc(x_95); +lean_dec(x_84); +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_8); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_98 = !lean_is_exclusive(x_80); +if (x_98 == 0) +{ +return x_80; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_99 = lean_ctor_get(x_80, 0); +x_100 = lean_ctor_get(x_80, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_80); +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_77); +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_102 = !lean_is_exclusive(x_78); +if (x_102 == 0) +{ +return x_78; +} +else +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; +x_103 = lean_ctor_get(x_78, 0); +x_104 = lean_ctor_get(x_78, 1); +lean_inc(x_104); +lean_inc(x_103); +lean_dec(x_78); +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; +} +} +} +case 2: +{ +uint8_t x_106; uint8_t x_107; lean_object* x_108; +lean_dec(x_29); +lean_dec(x_25); +x_106 = 0; +x_107 = 1; +x_108 = l_Lean_Meta_substCore(x_1, x_5, x_106, x_107, x_8, x_32); +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_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; +x_109 = lean_ctor_get(x_108, 0); +lean_inc(x_109); +x_110 = lean_ctor_get(x_108, 1); +lean_inc(x_110); +lean_dec(x_108); +x_111 = lean_ctor_get(x_109, 0); +lean_inc(x_111); +x_112 = lean_ctor_get(x_109, 1); +lean_inc(x_112); +lean_dec(x_109); +x_113 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4(x_111, x_20, x_2); +x_114 = l_Lean_Meta_FVarSubst_compose(x_111, x_3); +x_115 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_115, 0, x_112); +lean_ctor_set(x_115, 1, x_113); +lean_ctor_set(x_115, 2, x_114); +x_116 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_4); +x_117 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_116, x_8, x_110); +lean_dec(x_8); +return x_117; +} +else +{ +uint8_t x_118; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_118 = !lean_is_exclusive(x_108); +if (x_118 == 0) +{ +return x_108; +} +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; +x_119 = lean_ctor_get(x_108, 0); +x_120 = lean_ctor_get(x_108, 1); +lean_inc(x_120); +lean_inc(x_119); +lean_dec(x_108); +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; +} +} +} +case 3: +{ +uint8_t x_122; uint8_t x_123; lean_object* x_124; +lean_dec(x_29); +lean_dec(x_25); +x_122 = 0; +x_123 = 1; +x_124 = l_Lean_Meta_substCore(x_1, x_5, x_122, x_123, x_8, x_32); +if (lean_obj_tag(x_124) == 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; +x_125 = lean_ctor_get(x_124, 0); +lean_inc(x_125); +x_126 = lean_ctor_get(x_124, 1); +lean_inc(x_126); +lean_dec(x_124); +x_127 = lean_ctor_get(x_125, 0); +lean_inc(x_127); +x_128 = lean_ctor_get(x_125, 1); +lean_inc(x_128); +lean_dec(x_125); +x_129 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5(x_127, x_20, x_2); +x_130 = l_Lean_Meta_FVarSubst_compose(x_127, x_3); +x_131 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_131, 0, x_128); +lean_ctor_set(x_131, 1, x_129); +lean_ctor_set(x_131, 2, x_130); +x_132 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_132, 0, x_131); +lean_ctor_set(x_132, 1, x_4); +x_133 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_132, x_8, x_126); +lean_dec(x_8); +return x_133; +} +else +{ +uint8_t x_134; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_134 = !lean_is_exclusive(x_124); +if (x_134 == 0) +{ +return x_124; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; +x_135 = lean_ctor_get(x_124, 0); +x_136 = lean_ctor_get(x_124, 1); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_124); +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; +} +} +} +case 4: +{ +uint8_t x_138; uint8_t x_139; lean_object* x_140; +lean_dec(x_29); +lean_dec(x_25); +x_138 = 0; +x_139 = 1; +x_140 = l_Lean_Meta_substCore(x_1, x_5, x_138, x_139, x_8, x_32); +if (lean_obj_tag(x_140) == 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; +x_141 = lean_ctor_get(x_140, 0); +lean_inc(x_141); +x_142 = lean_ctor_get(x_140, 1); +lean_inc(x_142); +lean_dec(x_140); +x_143 = lean_ctor_get(x_141, 0); +lean_inc(x_143); +x_144 = lean_ctor_get(x_141, 1); +lean_inc(x_144); +lean_dec(x_141); +x_145 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6(x_143, x_20, x_2); +x_146 = l_Lean_Meta_FVarSubst_compose(x_143, x_3); +x_147 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_147, 0, x_144); +lean_ctor_set(x_147, 1, x_145); +lean_ctor_set(x_147, 2, x_146); +x_148 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_148, 0, x_147); +lean_ctor_set(x_148, 1, x_4); +x_149 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_148, x_8, x_142); +lean_dec(x_8); +return x_149; +} +else +{ +uint8_t x_150; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_150 = !lean_is_exclusive(x_140); +if (x_150 == 0) +{ +return x_140; +} +else +{ +lean_object* x_151; lean_object* x_152; lean_object* x_153; +x_151 = lean_ctor_get(x_140, 0); +x_152 = lean_ctor_get(x_140, 1); +lean_inc(x_152); +lean_inc(x_151); +lean_dec(x_140); +x_153 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_153, 0, x_151); +lean_ctor_set(x_153, 1, x_152); +return x_153; +} +} +} +case 5: +{ +uint8_t x_154; uint8_t x_155; lean_object* x_156; +lean_dec(x_29); +lean_dec(x_25); +x_154 = 0; +x_155 = 1; +x_156 = l_Lean_Meta_substCore(x_1, x_5, x_154, x_155, x_8, x_32); +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; +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 = lean_ctor_get(x_157, 0); +lean_inc(x_159); +x_160 = lean_ctor_get(x_157, 1); +lean_inc(x_160); +lean_dec(x_157); +x_161 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7(x_159, x_20, x_2); +x_162 = l_Lean_Meta_FVarSubst_compose(x_159, x_3); +x_163 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_163, 0, x_160); +lean_ctor_set(x_163, 1, x_161); +lean_ctor_set(x_163, 2, x_162); +x_164 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_164, 0, x_163); +lean_ctor_set(x_164, 1, x_4); +x_165 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_164, x_8, x_158); +lean_dec(x_8); +return x_165; +} +else +{ +uint8_t x_166; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_166 = !lean_is_exclusive(x_156); +if (x_166 == 0) +{ +return x_156; +} +else +{ +lean_object* x_167; lean_object* x_168; lean_object* x_169; +x_167 = lean_ctor_get(x_156, 0); +x_168 = lean_ctor_get(x_156, 1); +lean_inc(x_168); +lean_inc(x_167); +lean_dec(x_156); +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; +} +} +} +case 6: +{ +uint8_t x_170; uint8_t x_171; lean_object* x_172; +lean_dec(x_29); +lean_dec(x_25); +x_170 = 0; +x_171 = 1; +x_172 = l_Lean_Meta_substCore(x_1, x_5, x_170, x_171, x_8, x_32); +if (lean_obj_tag(x_172) == 0) +{ +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_173 = lean_ctor_get(x_172, 0); +lean_inc(x_173); +x_174 = lean_ctor_get(x_172, 1); +lean_inc(x_174); +lean_dec(x_172); +x_175 = lean_ctor_get(x_173, 0); +lean_inc(x_175); +x_176 = lean_ctor_get(x_173, 1); +lean_inc(x_176); +lean_dec(x_173); +x_177 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8(x_175, x_20, x_2); +x_178 = l_Lean_Meta_FVarSubst_compose(x_175, x_3); +x_179 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_179, 0, x_176); +lean_ctor_set(x_179, 1, x_177); +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_4); +x_181 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_180, x_8, x_174); +lean_dec(x_8); +return x_181; +} +else +{ +uint8_t x_182; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_182 = !lean_is_exclusive(x_172); +if (x_182 == 0) +{ +return x_172; +} +else +{ +lean_object* x_183; lean_object* x_184; lean_object* x_185; +x_183 = lean_ctor_get(x_172, 0); +x_184 = lean_ctor_get(x_172, 1); +lean_inc(x_184); +lean_inc(x_183); +lean_dec(x_172); +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; +} +} +} +case 7: +{ +uint8_t x_186; uint8_t x_187; lean_object* x_188; +lean_dec(x_29); +lean_dec(x_25); +x_186 = 0; +x_187 = 1; +x_188 = l_Lean_Meta_substCore(x_1, x_5, x_186, x_187, x_8, x_32); +if (lean_obj_tag(x_188) == 0) +{ +lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; +x_189 = lean_ctor_get(x_188, 0); +lean_inc(x_189); +x_190 = lean_ctor_get(x_188, 1); +lean_inc(x_190); +lean_dec(x_188); +x_191 = lean_ctor_get(x_189, 0); +lean_inc(x_191); +x_192 = lean_ctor_get(x_189, 1); +lean_inc(x_192); +lean_dec(x_189); +x_193 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9(x_191, x_20, x_2); +x_194 = l_Lean_Meta_FVarSubst_compose(x_191, x_3); +x_195 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_195, 0, x_192); +lean_ctor_set(x_195, 1, x_193); +lean_ctor_set(x_195, 2, x_194); +x_196 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_196, 0, x_195); +lean_ctor_set(x_196, 1, x_4); +x_197 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_196, x_8, x_190); +lean_dec(x_8); +return x_197; +} +else +{ +uint8_t x_198; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_198 = !lean_is_exclusive(x_188); +if (x_198 == 0) +{ +return x_188; +} +else +{ +lean_object* x_199; lean_object* x_200; lean_object* x_201; +x_199 = lean_ctor_get(x_188, 0); +x_200 = lean_ctor_get(x_188, 1); +lean_inc(x_200); +lean_inc(x_199); +lean_dec(x_188); +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; +} +} +} +case 8: +{ +uint8_t x_202; uint8_t x_203; lean_object* x_204; +lean_dec(x_29); +lean_dec(x_25); +x_202 = 0; +x_203 = 1; +x_204 = l_Lean_Meta_substCore(x_1, x_5, x_202, x_203, x_8, x_32); +if (lean_obj_tag(x_204) == 0) +{ +lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; +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 = lean_ctor_get(x_205, 0); +lean_inc(x_207); +x_208 = lean_ctor_get(x_205, 1); +lean_inc(x_208); +lean_dec(x_205); +x_209 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10(x_207, x_20, x_2); +x_210 = l_Lean_Meta_FVarSubst_compose(x_207, x_3); +x_211 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_211, 0, x_208); +lean_ctor_set(x_211, 1, x_209); +lean_ctor_set(x_211, 2, x_210); +x_212 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_212, 0, x_211); +lean_ctor_set(x_212, 1, x_4); +x_213 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_212, x_8, x_206); +lean_dec(x_8); +return x_213; +} +else +{ +uint8_t x_214; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_214 = !lean_is_exclusive(x_204); +if (x_214 == 0) +{ +return x_204; +} +else +{ +lean_object* x_215; lean_object* x_216; lean_object* x_217; +x_215 = lean_ctor_get(x_204, 0); +x_216 = lean_ctor_get(x_204, 1); +lean_inc(x_216); +lean_inc(x_215); +lean_dec(x_204); +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; +} +} +} +case 9: +{ +uint8_t x_218; uint8_t x_219; lean_object* x_220; +lean_dec(x_29); +lean_dec(x_25); +x_218 = 0; +x_219 = 1; +x_220 = l_Lean_Meta_substCore(x_1, x_5, x_218, x_219, x_8, x_32); +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; lean_object* x_227; lean_object* x_228; lean_object* x_229; +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_ctor_get(x_221, 0); +lean_inc(x_223); +x_224 = lean_ctor_get(x_221, 1); +lean_inc(x_224); +lean_dec(x_221); +x_225 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11(x_223, x_20, x_2); +x_226 = l_Lean_Meta_FVarSubst_compose(x_223, x_3); +x_227 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_227, 0, x_224); +lean_ctor_set(x_227, 1, x_225); +lean_ctor_set(x_227, 2, x_226); +x_228 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_228, 0, x_227); +lean_ctor_set(x_228, 1, x_4); +x_229 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_228, x_8, x_222); +lean_dec(x_8); +return x_229; +} +else +{ +uint8_t x_230; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_230 = !lean_is_exclusive(x_220); +if (x_230 == 0) +{ +return x_220; +} +else +{ +lean_object* x_231; lean_object* x_232; lean_object* x_233; +x_231 = lean_ctor_get(x_220, 0); +x_232 = lean_ctor_get(x_220, 1); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_220); +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; +} +} +} +case 10: +{ +uint8_t x_234; uint8_t x_235; lean_object* x_236; +lean_dec(x_29); +lean_dec(x_25); +x_234 = 0; +x_235 = 1; +x_236 = l_Lean_Meta_substCore(x_1, x_5, x_234, x_235, x_8, 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; +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 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12(x_239, x_20, x_2); +x_242 = l_Lean_Meta_FVarSubst_compose(x_239, x_3); +x_243 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_243, 0, x_240); +lean_ctor_set(x_243, 1, x_241); +lean_ctor_set(x_243, 2, x_242); +x_244 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_244, 0, x_243); +lean_ctor_set(x_244, 1, x_4); +x_245 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_244, x_8, x_238); +lean_dec(x_8); +return x_245; +} +else +{ +uint8_t x_246; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_246 = !lean_is_exclusive(x_236); +if (x_246 == 0) +{ +return x_236; +} +else +{ +lean_object* x_247; lean_object* x_248; lean_object* x_249; +x_247 = lean_ctor_get(x_236, 0); +x_248 = lean_ctor_get(x_236, 1); +lean_inc(x_248); +lean_inc(x_247); +lean_dec(x_236); +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; +} +} +} +case 11: +{ +uint8_t x_250; uint8_t x_251; lean_object* x_252; +lean_dec(x_29); +lean_dec(x_25); +x_250 = 0; +x_251 = 1; +x_252 = l_Lean_Meta_substCore(x_1, x_5, x_250, x_251, x_8, x_32); +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; lean_object* 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 = lean_ctor_get(x_253, 0); +lean_inc(x_255); +x_256 = lean_ctor_get(x_253, 1); +lean_inc(x_256); +lean_dec(x_253); +x_257 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13(x_255, x_20, x_2); +x_258 = l_Lean_Meta_FVarSubst_compose(x_255, x_3); +x_259 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_259, 0, x_256); +lean_ctor_set(x_259, 1, x_257); +lean_ctor_set(x_259, 2, x_258); +x_260 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_260, 0, x_259); +lean_ctor_set(x_260, 1, x_4); +x_261 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_260, x_8, x_254); +lean_dec(x_8); +return x_261; +} +else +{ +uint8_t x_262; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_262 = !lean_is_exclusive(x_252); +if (x_262 == 0) +{ +return x_252; +} +else +{ +lean_object* x_263; lean_object* x_264; lean_object* x_265; +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_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); +return x_265; +} +} +} +default: +{ +uint8_t x_266; uint8_t x_267; lean_object* x_268; +lean_dec(x_29); +lean_dec(x_25); +x_266 = 0; +x_267 = 1; +x_268 = l_Lean_Meta_substCore(x_1, x_5, x_266, x_267, x_8, x_32); +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; +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 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14(x_271, x_20, x_2); +x_274 = l_Lean_Meta_FVarSubst_compose(x_271, x_3); +x_275 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_275, 0, x_272); +lean_ctor_set(x_275, 1, x_273); +lean_ctor_set(x_275, 2, x_274); +x_276 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_276, 0, x_275); +lean_ctor_set(x_276, 1, x_4); +x_277 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_276, x_8, x_270); +lean_dec(x_8); +return x_277; +} +else +{ +uint8_t x_278; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_278 = !lean_is_exclusive(x_268); +if (x_278 == 0) +{ +return x_268; +} +else +{ +lean_object* x_279; lean_object* x_280; lean_object* x_281; +x_279 = lean_ctor_get(x_268, 0); +x_280 = lean_ctor_get(x_268, 1); +lean_inc(x_280); +lean_inc(x_279); +lean_dec(x_268); +x_281 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_281, 0, x_279); +lean_ctor_set(x_281, 1, x_280); +return x_281; +} +} +} +} +} +else +{ +lean_object* x_282; +lean_dec(x_25); +x_282 = lean_box(0); +x_40 = x_282; +goto block_58; +} +} +else +{ +lean_object* x_283; +lean_dec(x_33); +lean_dec(x_29); +lean_dec(x_25); +x_283 = l_Lean_Meta_clear(x_1, x_5, x_8, x_32); +if (lean_obj_tag(x_283) == 0) +{ +lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; +x_284 = lean_ctor_get(x_283, 0); +lean_inc(x_284); +x_285 = lean_ctor_get(x_283, 1); +lean_inc(x_285); +lean_dec(x_283); +x_286 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_286, 0, x_284); +lean_ctor_set(x_286, 1, x_2); +lean_ctor_set(x_286, 2, x_3); +x_287 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_287, 0, x_286); +lean_ctor_set(x_287, 1, x_4); +x_288 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_287, x_8, x_285); +lean_dec(x_8); +return x_288; +} +else +{ +uint8_t x_289; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_289 = !lean_is_exclusive(x_283); +if (x_289 == 0) +{ +return x_283; +} +else +{ +lean_object* x_290; lean_object* x_291; lean_object* x_292; +x_290 = lean_ctor_get(x_283, 0); +x_291 = lean_ctor_get(x_283, 1); +lean_inc(x_291); +lean_inc(x_290); +lean_dec(x_283); +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; +} +} +} +block_39: +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +lean_dec(x_34); +x_35 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_35, 0, x_1); +lean_ctor_set(x_35, 1, x_2); +lean_ctor_set(x_35, 2, x_3); +x_36 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_4); +x_37 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_37, 0, x_36); +if (lean_is_scalar(x_33)) { + x_38 = lean_alloc_ctor(0, 2, 0); +} else { + x_38 = x_33; +} +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_32); +return x_38; +} +block_58: +{ +lean_dec(x_40); +if (lean_obj_tag(x_29) == 1) +{ +uint8_t x_41; uint8_t x_42; lean_object* x_43; +lean_dec(x_33); +lean_dec(x_29); +x_41 = 0; +x_42 = 1; +x_43 = l_Lean_Meta_substCore(x_1, x_5, x_41, x_42, x_8, x_32); +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; lean_object* x_52; +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 = lean_ctor_get(x_44, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_44, 1); +lean_inc(x_47); +lean_dec(x_44); +x_48 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1(x_46, x_20, x_2); +x_49 = l_Lean_Meta_FVarSubst_compose(x_46, x_3); +x_50 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_50, 0, x_47); +lean_ctor_set(x_50, 1, x_48); +lean_ctor_set(x_50, 2, 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_4); +x_52 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_6, x_51, x_8, x_45); +lean_dec(x_8); +return x_52; +} +else +{ +uint8_t x_53; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_53 = !lean_is_exclusive(x_43); +if (x_53 == 0) +{ +return x_43; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_43, 0); +x_55 = lean_ctor_get(x_43, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_43); +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 +{ +lean_object* x_57; +lean_dec(x_29); +lean_dec(x_8); +lean_dec(x_5); +x_57 = lean_box(0); +x_34 = x_57; +goto block_39; +} +} +} +else +{ +uint8_t x_293; +lean_dec(x_29); +lean_dec(x_25); +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_293 = !lean_is_exclusive(x_30); +if (x_293 == 0) +{ +return x_30; +} +else +{ +lean_object* x_294; lean_object* x_295; lean_object* x_296; +x_294 = lean_ctor_get(x_30, 0); +x_295 = lean_ctor_get(x_30, 1); +lean_inc(x_295); +lean_inc(x_294); +lean_dec(x_30); +x_296 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_296, 0, x_294); +lean_ctor_set(x_296, 1, x_295); +return x_296; +} +} +} +} +else +{ +lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; +x_297 = lean_unsigned_to_nat(0u); +x_298 = l_Lean_Expr_getAppNumArgsAux___main(x_10, x_297); +x_299 = lean_unsigned_to_nat(1u); +x_300 = lean_nat_sub(x_298, x_299); +x_301 = lean_nat_sub(x_300, x_299); +lean_dec(x_300); +x_302 = l_Lean_Expr_getRevArg_x21___main(x_10, x_301); +x_303 = lean_nat_sub(x_298, x_12); +lean_dec(x_298); +x_304 = lean_nat_sub(x_303, x_299); +lean_dec(x_303); +x_305 = l_Lean_Expr_getRevArg_x21___main(x_10, x_304); +lean_dec(x_10); +lean_inc(x_5); +x_306 = l_Lean_mkFVar(x_5); +lean_inc(x_8); +x_307 = l_Lean_Meta_mkEqOfHEq(x_306, x_8, x_9); +if (lean_obj_tag(x_307) == 0) +{ +lean_object* x_308; lean_object* x_309; lean_object* x_310; +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); +lean_inc(x_8); +x_310 = l_Lean_Meta_mkEq(x_302, x_305, x_8, x_309); +if (lean_obj_tag(x_310) == 0) +{ +lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; +x_311 = lean_ctor_get(x_310, 0); +lean_inc(x_311); +x_312 = lean_ctor_get(x_310, 1); +lean_inc(x_312); +lean_dec(x_310); +x_313 = l_Lean_LocalDecl_userName(x_7); +x_314 = l_Lean_Meta_assert(x_1, x_313, x_311, x_308, x_8, x_312); +if (lean_obj_tag(x_314) == 0) +{ +lean_object* x_315; lean_object* x_316; lean_object* x_317; +x_315 = lean_ctor_get(x_314, 0); +lean_inc(x_315); +x_316 = lean_ctor_get(x_314, 1); +lean_inc(x_316); +lean_dec(x_314); +x_317 = l_Lean_Meta_clear(x_315, x_5, x_8, x_316); +if (lean_obj_tag(x_317) == 0) +{ +lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; +x_318 = lean_ctor_get(x_317, 0); +lean_inc(x_318); +x_319 = lean_ctor_get(x_317, 1); +lean_inc(x_319); +lean_dec(x_317); +x_320 = lean_nat_add(x_6, x_299); +x_321 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_321, 0, x_318); +lean_ctor_set(x_321, 1, x_2); +lean_ctor_set(x_321, 2, x_3); +x_322 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_322, 0, x_321); +lean_ctor_set(x_322, 1, x_4); +x_323 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_320, x_322, x_8, x_319); +lean_dec(x_8); +lean_dec(x_320); +return x_323; +} +else +{ +uint8_t x_324; +lean_dec(x_8); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_324 = !lean_is_exclusive(x_317); +if (x_324 == 0) +{ +return x_317; +} +else +{ +lean_object* x_325; lean_object* x_326; lean_object* x_327; +x_325 = lean_ctor_get(x_317, 0); +x_326 = lean_ctor_get(x_317, 1); +lean_inc(x_326); +lean_inc(x_325); +lean_dec(x_317); +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; +} +} +} +else +{ +uint8_t x_328; +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_328 = !lean_is_exclusive(x_314); +if (x_328 == 0) +{ +return x_314; +} +else +{ +lean_object* x_329; lean_object* x_330; lean_object* x_331; +x_329 = lean_ctor_get(x_314, 0); +x_330 = lean_ctor_get(x_314, 1); +lean_inc(x_330); +lean_inc(x_329); +lean_dec(x_314); +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 +{ +uint8_t x_332; +lean_dec(x_308); +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_332 = !lean_is_exclusive(x_310); +if (x_332 == 0) +{ +return x_310; +} +else +{ +lean_object* x_333; lean_object* x_334; lean_object* x_335; +x_333 = lean_ctor_get(x_310, 0); +x_334 = lean_ctor_get(x_310, 1); +lean_inc(x_334); +lean_inc(x_333); +lean_dec(x_310); +x_335 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_335, 0, x_333); +lean_ctor_set(x_335, 1, x_334); +return x_335; +} +} +} +else +{ +uint8_t x_336; +lean_dec(x_305); +lean_dec(x_302); +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_336 = !lean_is_exclusive(x_307); +if (x_336 == 0) +{ +return x_307; +} +else +{ +lean_object* x_337; lean_object* x_338; lean_object* x_339; +x_337 = lean_ctor_get(x_307, 0); +x_338 = lean_ctor_get(x_307, 1); +lean_inc(x_338); +lean_inc(x_337); +lean_dec(x_307); +x_339 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_339, 0, x_337); +lean_ctor_set(x_339, 1, x_338); +return x_339; +} +} +} +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__2; +x_2 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unifyEqs ["); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___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_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("] "); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__5; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__8() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unifyEqs "); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___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_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__9; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(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_unsigned_to_nat(0u); +x_6 = lean_nat_dec_eq(x_1, x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_39; uint8_t x_40; +x_7 = lean_unsigned_to_nat(1u); +x_8 = lean_nat_sub(x_1, x_7); +x_39 = lean_ctor_get(x_4, 4); +lean_inc(x_39); +x_40 = lean_ctor_get_uint8(x_39, sizeof(void*)*1); +lean_dec(x_39); +if (x_40 == 0) +{ +x_9 = x_4; +goto block_38; +} +else +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; +x_41 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; +x_42 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_41, x_3, x_4); +x_43 = lean_ctor_get(x_42, 0); +lean_inc(x_43); +x_44 = lean_unbox(x_43); +lean_dec(x_43); +if (x_44 == 0) +{ +lean_object* x_45; +x_45 = lean_ctor_get(x_42, 1); +lean_inc(x_45); +lean_dec(x_42); +x_9 = x_45; +goto block_38; +} +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; +x_46 = lean_ctor_get(x_42, 1); +lean_inc(x_46); +lean_dec(x_42); +x_47 = lean_nat_add(x_8, x_7); +x_48 = l_Nat_repr(x_47); +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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__4; +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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7; +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_ctor_get(x_2, 0); +lean_inc(x_55); +x_56 = lean_ctor_get(x_55, 0); +lean_inc(x_56); +lean_dec(x_55); +x_57 = lean_alloc_ctor(5, 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_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_41, x_58, x_3, x_46); +x_60 = lean_ctor_get(x_59, 1); +lean_inc(x_60); +lean_dec(x_59); +x_9 = x_60; +goto block_38; +} +} +block_38: +{ +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; +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 = lean_ctor_get(x_10, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_10, 2); +lean_inc(x_14); +lean_dec(x_10); +x_15 = 1; +x_16 = l_Lean_Meta_intro1(x_12, x_15, x_3, 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; 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, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_17, 1); +lean_inc(x_20); +lean_dec(x_17); +lean_inc(x_19); +x_21 = lean_alloc_closure((void*)(l_Lean_Meta_getLocalDecl), 3, 1); +lean_closure_set(x_21, 0, x_19); +lean_inc(x_20); +x_22 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___boxed), 9, 6); +lean_closure_set(x_22, 0, x_20); +lean_closure_set(x_22, 1, x_13); +lean_closure_set(x_22, 2, x_14); +lean_closure_set(x_22, 3, x_11); +lean_closure_set(x_22, 4, x_19); +lean_closure_set(x_22, 5, x_8); +x_23 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_23, 0, x_21); +lean_closure_set(x_23, 1, x_22); +x_24 = l_Lean_Meta_getMVarDecl(x_20, x_3, x_18); +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, 1); +lean_inc(x_27); +x_28 = lean_ctor_get(x_25, 4); +lean_inc(x_28); +lean_dec(x_25); +x_29 = l_Lean_Meta_withLocalContext___rarg(x_27, x_28, x_23, x_3, x_26); +return x_29; +} +else +{ +uint8_t x_30; +lean_dec(x_23); +x_30 = !lean_is_exclusive(x_24); +if (x_30 == 0) +{ +return x_24; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_31 = lean_ctor_get(x_24, 0); +x_32 = lean_ctor_get(x_24, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_24); +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 +{ +uint8_t x_34; +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_11); +lean_dec(x_8); +x_34 = !lean_is_exclusive(x_16); +if (x_34 == 0) +{ +return x_16; +} +else +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_35 = lean_ctor_get(x_16, 0); +x_36 = lean_ctor_get(x_16, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_16); +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_61; uint8_t x_62; +x_61 = lean_ctor_get(x_4, 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_63; lean_object* x_64; +x_63 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_63, 0, x_2); +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; +} +else +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; uint8_t x_68; +x_65 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; +x_66 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_65, x_3, x_4); +x_67 = lean_ctor_get(x_66, 0); +lean_inc(x_67); +x_68 = lean_unbox(x_67); +lean_dec(x_67); +if (x_68 == 0) +{ +uint8_t x_69; +x_69 = !lean_is_exclusive(x_66); +if (x_69 == 0) +{ +lean_object* x_70; lean_object* x_71; +x_70 = lean_ctor_get(x_66, 0); +lean_dec(x_70); +x_71 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_71, 0, x_2); +lean_ctor_set(x_66, 0, x_71); +return x_66; +} +else +{ +lean_object* x_72; lean_object* x_73; lean_object* x_74; +x_72 = lean_ctor_get(x_66, 1); +lean_inc(x_72); +lean_dec(x_66); +x_73 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_73, 0, x_2); +x_74 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_74, 0, x_73); +lean_ctor_set(x_74, 1, x_72); +return x_74; +} +} +else +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; uint8_t x_82; +x_75 = lean_ctor_get(x_2, 0); +lean_inc(x_75); +x_76 = lean_ctor_get(x_66, 1); +lean_inc(x_76); +lean_dec(x_66); +x_77 = lean_ctor_get(x_75, 0); +lean_inc(x_77); +lean_dec(x_75); +x_78 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_78, 0, x_77); +x_79 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__10; +x_80 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_78); +x_81 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_65, x_80, x_3, x_76); +x_82 = !lean_is_exclusive(x_81); +if (x_82 == 0) +{ +lean_object* x_83; lean_object* x_84; +x_83 = lean_ctor_get(x_81, 0); +lean_dec(x_83); +x_84 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_84, 0, x_2); +lean_ctor_set(x_81, 0, x_84); +return x_81; +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_85 = lean_ctor_get(x_81, 1); +lean_inc(x_85); +lean_dec(x_81); +x_86 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_86, 0, x_2); +x_87 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_87, 0, x_86); +lean_ctor_set(x_87, 1, x_85); +return x_87; +} +} +} +} +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__1(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__2(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__4(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__5(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__6(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__7(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__8(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__9(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__10(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__11(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__12(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__13(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14___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___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__14(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +x_10 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_7); +lean_dec(x_6); +return x_10; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_5; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux(x_1, x_2, x_3, x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___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; +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 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main(x_1, x_11, x_6, x_7); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_4 = x_13; +x_7 = x_16; +goto _start; +} +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_ctor_get(x_15, 0); +lean_inc(x_19); +lean_dec(x_15); +x_20 = lean_array_push(x_5, x_19); +x_4 = x_13; +x_5 = x_20; +x_7 = x_18; +goto _start; +} +} +else +{ +uint8_t x_22; +lean_dec(x_13); +lean_dec(x_5); +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___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs(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_unsigned_to_nat(0u); +x_6 = l_Array_empty___closed__1; +x_7 = l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___spec__1(x_1, x_2, x_2, x_5, x_6, x_3, x_4); +return x_7; +} +} +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___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_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___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_Init_Lean_Meta_Tactic_Cases_9__unifyEqs___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs(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_Lean_Meta_Cases_cases___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("not applicable to the given hypothesis"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Cases_cases___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Cases_cases___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_Cases_cases___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Cases_cases___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_Cases_cases___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("after generalizeIndices"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Cases_cases___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Cases_cases___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_Cases_cases___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Cases_cases___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_Cases_cases___lambda__1___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_Cases_cases___lambda__1___closed__6; +x_2 = l_Lean_MessageData_ofList___closed__3; +x_3 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_Cases_cases___lambda__1(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, lean_object* x_8) { +_start: +{ +lean_object* x_9; +lean_inc(x_7); +lean_inc(x_1); +x_9 = l___private_Init_Lean_Meta_Tactic_Cases_4__mkCasesContext_x3f(x_1, x_7, x_8); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_4); +lean_dec(x_1); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_Lean_Meta_Cases_cases___lambda__1___closed__3; +x_13 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_12, x_7, x_11); +lean_dec(x_7); +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; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; uint8_t x_27; +lean_dec(x_2); +x_14 = lean_ctor_get(x_9, 1); +lean_inc(x_14); +lean_dec(x_9); +x_15 = lean_ctor_get(x_10, 0); +lean_inc(x_15); +lean_dec(x_10); +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_16, 4); +lean_inc(x_17); +x_18 = l_List_redLength___main___rarg(x_17); +x_19 = lean_mk_empty_array_with_capacity(x_18); +lean_dec(x_18); +x_20 = l_List_toArrayAux___main___rarg(x_17, x_19); +x_21 = lean_ctor_get(x_16, 0); +lean_inc(x_21); +lean_dec(x_16); +x_22 = lean_ctor_get(x_21, 0); +lean_inc(x_22); +lean_dec(x_21); +x_23 = l_Lean_Meta_casesOnSuffix; +x_24 = lean_name_mk_string(x_22, x_23); +x_25 = l___private_Init_Lean_Meta_Tactic_Cases_5__hasIndepIndices(x_15, x_7, x_14); +lean_dec(x_15); +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) +{ +lean_object* x_28; lean_object* x_29; +x_28 = lean_ctor_get(x_25, 1); +lean_inc(x_28); +lean_dec(x_25); +x_29 = l_Lean_Meta_generalizeIndices(x_3, x_1, x_7, x_28); +if (lean_obj_tag(x_29) == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_50; uint8_t x_51; +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_50 = lean_ctor_get(x_31, 4); +lean_inc(x_50); +x_51 = lean_ctor_get_uint8(x_50, sizeof(void*)*1); +lean_dec(x_50); +if (x_51 == 0) +{ +x_32 = x_31; +goto block_49; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_52 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1; +x_53 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(x_52, x_7, x_31); +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) +{ +lean_object* x_56; +x_56 = lean_ctor_get(x_53, 1); +lean_inc(x_56); +lean_dec(x_53); +x_32 = x_56; +goto block_49; +} +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; +x_57 = lean_ctor_get(x_53, 1); +lean_inc(x_57); +lean_dec(x_53); +x_58 = lean_ctor_get(x_30, 0); +lean_inc(x_58); +x_59 = lean_alloc_ctor(5, 1, 0); +lean_ctor_set(x_59, 0, x_58); +x_60 = l_Lean_Meta_Cases_cases___lambda__1___closed__7; +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_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isTypeCorrect___spec__1(x_52, x_61, x_7, x_57); +x_63 = lean_ctor_get(x_62, 1); +lean_inc(x_63); +lean_dec(x_62); +x_32 = x_63; +goto block_49; +} +} +block_49: +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_30, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_30, 2); +lean_inc(x_34); +x_35 = l_Lean_Meta_induction(x_33, x_34, x_24, x_4, x_5, x_7, x_32); +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; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +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___private_Init_Lean_Meta_Tactic_Cases_6__elimAuxIndices(x_30, x_36, x_7, x_37); +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_unsigned_to_nat(0u); +x_42 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(x_20, x_41, x_39); +lean_dec(x_20); +x_43 = lean_ctor_get(x_30, 3); +lean_inc(x_43); +lean_dec(x_30); +x_44 = l___private_Init_Lean_Meta_Tactic_Cases_9__unifyEqs(x_43, x_42, x_7, x_40); +lean_dec(x_7); +lean_dec(x_42); +lean_dec(x_43); +return x_44; +} +else +{ +uint8_t x_45; +lean_dec(x_30); +lean_dec(x_20); +lean_dec(x_7); +x_45 = !lean_is_exclusive(x_35); +if (x_45 == 0) +{ +return x_35; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_35, 0); +x_47 = lean_ctor_get(x_35, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_35); +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_64; +lean_dec(x_24); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_4); +x_64 = !lean_is_exclusive(x_29); +if (x_64 == 0) +{ +return x_29; +} +else +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_65 = lean_ctor_get(x_29, 0); +x_66 = lean_ctor_get(x_29, 1); +lean_inc(x_66); +lean_inc(x_65); +lean_dec(x_29); +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; lean_object* x_69; +x_68 = lean_ctor_get(x_25, 1); +lean_inc(x_68); +lean_dec(x_25); +x_69 = l_Lean_Meta_induction(x_3, x_1, x_24, x_4, x_5, x_7, x_68); +lean_dec(x_7); +if (lean_obj_tag(x_69) == 0) +{ +uint8_t x_70; +x_70 = !lean_is_exclusive(x_69); +if (x_70 == 0) +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_71 = lean_ctor_get(x_69, 0); +x_72 = lean_unsigned_to_nat(0u); +x_73 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(x_20, x_72, x_71); +lean_dec(x_20); +lean_ctor_set(x_69, 0, x_73); +return x_69; +} +else +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_74 = lean_ctor_get(x_69, 0); +x_75 = lean_ctor_get(x_69, 1); +lean_inc(x_75); +lean_inc(x_74); +lean_dec(x_69); +x_76 = lean_unsigned_to_nat(0u); +x_77 = l_Array_umapMAux___main___at___private_Init_Lean_Meta_Tactic_Cases_7__toCasesSubgoals___spec__1(x_20, x_76, x_74); +lean_dec(x_20); +x_78 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_75); +return x_78; +} +} +else +{ +uint8_t x_79; +lean_dec(x_20); +x_79 = !lean_is_exclusive(x_69); +if (x_79 == 0) +{ +return x_69; +} +else +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_80 = lean_ctor_get(x_69, 0); +x_81 = lean_ctor_get(x_69, 1); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_69); +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_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_83 = !lean_is_exclusive(x_9); +if (x_83 == 0) +{ +return x_9; +} +else +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_9, 0); +x_85 = lean_ctor_get(x_9, 1); +lean_inc(x_85); +lean_inc(x_84); +lean_dec(x_9); +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* l_Lean_Meta_Cases_cases(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_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_7 = l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2; +lean_inc(x_1); +x_8 = lean_alloc_closure((void*)(l_Lean_Meta_checkNotAssigned___boxed), 4, 2); +lean_closure_set(x_8, 0, x_1); +lean_closure_set(x_8, 1, x_7); +x_9 = lean_box(x_4); +lean_inc(x_1); +x_10 = lean_alloc_closure((void*)(l_Lean_Meta_Cases_cases___lambda__1___boxed), 8, 5); +lean_closure_set(x_10, 0, x_2); +lean_closure_set(x_10, 1, x_7); +lean_closure_set(x_10, 2, x_1); +lean_closure_set(x_10, 3, x_3); +lean_closure_set(x_10, 4, x_9); +x_11 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_11, 0, x_8); +lean_closure_set(x_11, 1, x_10); +x_12 = l_Lean_Meta_getMVarDecl(x_1, x_5, x_6); +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 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +x_16 = lean_ctor_get(x_13, 4); +lean_inc(x_16); +lean_dec(x_13); +x_17 = l_Lean_Meta_withLocalContext___rarg(x_15, x_16, x_11, x_5, x_14); +return x_17; +} +else +{ +uint8_t x_18; +lean_dec(x_11); +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; +} +} +} +} +lean_object* l_Lean_Meta_Cases_cases___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: +{ +uint8_t x_9; lean_object* x_10; +x_9 = lean_unbox(x_5); +lean_dec(x_5); +x_10 = l_Lean_Meta_Cases_cases___lambda__1(x_1, x_2, x_3, x_4, x_9, x_6, x_7, x_8); +lean_dec(x_6); +return x_10; +} +} +lean_object* l_Lean_Meta_Cases_cases___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_Cases_cases(x_1, x_2, x_3, x_7, x_5, x_6); +lean_dec(x_5); +return x_8; +} +} +lean_object* l_Lean_Meta_cases(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_Cases_cases(x_1, x_2, x_3, x_4, x_5, x_6); +return x_7; +} +} +lean_object* l_Lean_Meta_cases___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_cases(x_1, x_2, x_3, x_7, x_5, x_6); +lean_dec(x_5); +return x_8; +} +} +lean_object* initialize_Init_Lean_Meta_AppBuilder(lean_object*); lean_object* initialize_Init_Lean_Meta_Tactic_Induction(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Assert(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Subst(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Meta_Tactic_Cases(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; +res = initialize_Init_Lean_Meta_AppBuilder(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Init_Lean_Meta_Tactic_Induction(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__1 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__1); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__2); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__3); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__4); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__5 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__5(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__5); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__6); -l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7 = _init_l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7(); -lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_1__mkEq___closed__7); +res = initialize_Init_Lean_Meta_Tactic_Assert(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Subst(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__1 = _init_l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__1(); lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__1); l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__2 = _init_l___private_Init_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___main___rarg___closed__2(); @@ -10440,14 +13681,54 @@ l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___close lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7); l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8 = _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8(); lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8); -l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__9 = _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__9(); -lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__9); l_Lean_Meta_generalizeIndices___lambda__1___closed__1 = _init_l_Lean_Meta_generalizeIndices___lambda__1___closed__1(); lean_mark_persistent(l_Lean_Meta_generalizeIndices___lambda__1___closed__1); l_Lean_Meta_generalizeIndices___lambda__1___closed__2 = _init_l_Lean_Meta_generalizeIndices___lambda__1___closed__2(); lean_mark_persistent(l_Lean_Meta_generalizeIndices___lambda__1___closed__2); l_Lean_Meta_generalizeIndices___closed__1 = _init_l_Lean_Meta_generalizeIndices___closed__1(); lean_mark_persistent(l_Lean_Meta_generalizeIndices___closed__1); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__1); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__3 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__3); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__4 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__4); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__1); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__2 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__2); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__3 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__3); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__4 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__4(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__4); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__5 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__5(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__5); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__6 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__6(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__6); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__7); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__8 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__8(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__8); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__9 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__9(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__9); +l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__10 = _init_l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__10(); +lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___closed__10); +l_Lean_Meta_Cases_cases___lambda__1___closed__1 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__1); +l_Lean_Meta_Cases_cases___lambda__1___closed__2 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__2); +l_Lean_Meta_Cases_cases___lambda__1___closed__3 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__3); +l_Lean_Meta_Cases_cases___lambda__1___closed__4 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__4); +l_Lean_Meta_Cases_cases___lambda__1___closed__5 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__5); +l_Lean_Meta_Cases_cases___lambda__1___closed__6 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__6); +l_Lean_Meta_Cases_cases___lambda__1___closed__7 = _init_l_Lean_Meta_Cases_cases___lambda__1___closed__7(); +lean_mark_persistent(l_Lean_Meta_Cases_cases___lambda__1___closed__7); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/FVarSubst.c b/stage0/stdlib/Init/Lean/Meta/Tactic/FVarSubst.c index f5cca7ad8c..4ea65db83d 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/FVarSubst.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/FVarSubst.c @@ -14,35 +14,49 @@ extern "C" { #endif lean_object* lean_expr_update_forall(lean_object*, uint8_t, lean_object*, lean_object*); -lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_apply___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_FVarSubst_apply___boxed(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*); -lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__2(lean_object*, size_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_erase(lean_object*, lean_object*); lean_object* lean_array_uset(lean_object*, size_t, lean_object*); +lean_object* l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2___boxed(lean_object*, lean_object*); lean_object* l_RBNode_fold___main___at_Lean_Meta_FVarSubst_compose___spec__1(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(lean_object*, lean_object*); +lean_object* l_RBNode_balRight___rarg(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_NameMap_contains___rarg(lean_object*, lean_object*); -lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_FVarSubst_apply(lean_object*, lean_object*); -lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_apply___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(lean_object*, size_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_get___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___closed__2; uint8_t l_Lean_Meta_FVarSubst_contains(lean_object*, lean_object*); lean_object* lean_expr_update_let(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkFVar(lean_object*); uint8_t l_Lean_Expr_Data_binderInfo(uint64_t); lean_object* l_Lean_Meta_FVarSubst_contains___boxed(lean_object*, lean_object*); lean_object* lean_expr_update_proj(lean_object*, lean_object*); size_t l_USize_mod(size_t, size_t); +lean_object* l_Lean_Meta_FVarSubst_get(lean_object*, lean_object*); size_t lean_ptr_addr(lean_object*); lean_object* l_Lean_Meta_FVarSubst_empty; +lean_object* l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_appendTrees___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_Meta_FVarSubst_insert(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_balLeft___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_setBlack___rarg(lean_object*); lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_FVarSubst_compose(lean_object*, lean_object*); +lean_object* l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(lean_object*, lean_object*); +lean_object* l_Lean_Meta_FVarSubst_erase___boxed(lean_object*, lean_object*); lean_object* lean_expr_update_app(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasFVar(lean_object*); +lean_object* l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(lean_object*, lean_object*); +uint8_t l_RBNode_isBlack___rarg(lean_object*); +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_ReplaceImpl_initCache; lean_object* _init_l_Lean_Meta_FVarSubst_empty() { _start: @@ -79,7 +93,209 @@ x_4 = lean_box(x_3); return x_4; } } -lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_apply___spec__1(lean_object* x_1, lean_object* x_2) { +lean_object* l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_2; +} +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; lean_object* x_7; uint8_t x_8; +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_ctor_get(x_2, 3); +x_8 = l_Lean_Name_quickLt(x_1, x_5); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = l_Lean_Name_quickLt(x_5, x_1); +if (x_9 == 0) +{ +lean_object* x_10; +lean_free_object(x_2); +lean_dec(x_6); +lean_dec(x_5); +x_10 = l_RBNode_appendTrees___main___rarg(x_4, x_7); +return x_10; +} +else +{ +uint8_t x_11; +x_11 = l_RBNode_isBlack___rarg(x_7); +if (x_11 == 0) +{ +lean_object* x_12; uint8_t x_13; +x_12 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_7); +x_13 = 0; +lean_ctor_set(x_2, 3, x_12); +lean_ctor_set_uint8(x_2, sizeof(void*)*4, x_13); +return x_2; +} +else +{ +lean_object* x_14; lean_object* x_15; +lean_free_object(x_2); +x_14 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_7); +x_15 = l_RBNode_balRight___rarg(x_4, x_5, x_6, x_14); +return x_15; +} +} +} +else +{ +uint8_t x_16; +x_16 = l_RBNode_isBlack___rarg(x_4); +if (x_16 == 0) +{ +lean_object* x_17; uint8_t x_18; +x_17 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_4); +x_18 = 0; +lean_ctor_set(x_2, 0, x_17); +lean_ctor_set_uint8(x_2, sizeof(void*)*4, x_18); +return x_2; +} +else +{ +lean_object* x_19; lean_object* x_20; +lean_free_object(x_2); +x_19 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_4); +x_20 = l_RBNode_balLeft___rarg(x_19, x_5, x_6, x_7); +return x_20; +} +} +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; +x_21 = lean_ctor_get(x_2, 0); +x_22 = lean_ctor_get(x_2, 1); +x_23 = lean_ctor_get(x_2, 2); +x_24 = lean_ctor_get(x_2, 3); +lean_inc(x_24); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_dec(x_2); +x_25 = l_Lean_Name_quickLt(x_1, x_22); +if (x_25 == 0) +{ +uint8_t x_26; +x_26 = l_Lean_Name_quickLt(x_22, x_1); +if (x_26 == 0) +{ +lean_object* x_27; +lean_dec(x_23); +lean_dec(x_22); +x_27 = l_RBNode_appendTrees___main___rarg(x_21, x_24); +return x_27; +} +else +{ +uint8_t x_28; +x_28 = l_RBNode_isBlack___rarg(x_24); +if (x_28 == 0) +{ +lean_object* x_29; uint8_t x_30; lean_object* x_31; +x_29 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_24); +x_30 = 0; +x_31 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_31, 0, x_21); +lean_ctor_set(x_31, 1, x_22); +lean_ctor_set(x_31, 2, x_23); +lean_ctor_set(x_31, 3, x_29); +lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_30); +return x_31; +} +else +{ +lean_object* x_32; lean_object* x_33; +x_32 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_24); +x_33 = l_RBNode_balRight___rarg(x_21, x_22, x_23, x_32); +return x_33; +} +} +} +else +{ +uint8_t x_34; +x_34 = l_RBNode_isBlack___rarg(x_21); +if (x_34 == 0) +{ +lean_object* x_35; uint8_t x_36; lean_object* x_37; +x_35 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_21); +x_36 = 0; +x_37 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_37, 0, x_35); +lean_ctor_set(x_37, 1, x_22); +lean_ctor_set(x_37, 2, x_23); +lean_ctor_set(x_37, 3, x_24); +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_36); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; +x_38 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_21); +x_39 = l_RBNode_balLeft___rarg(x_38, x_22, x_23, x_24); +return x_39; +} +} +} +} +} +} +lean_object* l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_2); +x_4 = l_RBNode_setBlack___rarg(x_3); +return x_4; +} +} +lean_object* l_Lean_Meta_FVarSubst_erase(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(x_2, x_1); +return x_3; +} +} +lean_object* l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_del___main___at_Lean_Meta_FVarSubst_erase___spec__2(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_erase___at_Lean_Meta_FVarSubst_erase___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_FVarSubst_erase___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_FVarSubst_erase(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(lean_object* x_1, lean_object* x_2) { _start: { if (lean_obj_tag(x_1) == 0) @@ -122,78 +338,106 @@ goto _start; } } } -lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__2(lean_object* x_1, size_t x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_FVarSubst_get(lean_object* x_1, lean_object* x_2) { _start: { -size_t x_5; size_t x_6; lean_object* x_7; lean_object* x_159; lean_object* x_160; size_t x_161; uint8_t x_162; +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +lean_inc(x_2); +return x_2; +} +else +{ +lean_object* x_4; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +lean_dec(x_3); +return x_4; +} +} +} +lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_FVarSubst_get___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_FVarSubst_get(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_160 = lean_array_uget(x_159, x_6); -x_161 = lean_ptr_addr(x_160); -lean_dec(x_160); -x_162 = x_161 == x_5; -if (x_162 == 0) +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) == 1) { -lean_object* x_163; lean_object* x_164; -x_163 = lean_ctor_get(x_3, 0); -lean_inc(x_163); -x_164 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_163); -lean_dec(x_163); -if (lean_obj_tag(x_164) == 0) +lean_object* x_170; lean_object* x_171; +x_170 = lean_ctor_get(x_3, 0); +lean_inc(x_170); +x_171 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(x_1, x_170); +lean_dec(x_170); +if (lean_obj_tag(x_171) == 0) { -lean_object* x_165; -lean_dec(x_159); -x_165 = lean_box(0); -x_7 = x_165; -goto block_158; +lean_inc(x_3); +x_160 = x_3; +goto block_166; } else { -lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; -x_166 = lean_ctor_get(x_164, 0); -lean_inc(x_166); -lean_dec(x_164); -x_167 = lean_array_uset(x_159, x_6, x_3); -x_168 = lean_ctor_get(x_4, 1); -lean_inc(x_168); -lean_dec(x_4); -lean_inc(x_166); -x_169 = lean_array_uset(x_168, x_6, x_166); -x_170 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_170, 0, x_167); -lean_ctor_set(x_170, 1, x_169); -x_171 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_171, 0, x_166); -lean_ctor_set(x_171, 1, x_170); -return x_171; +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_mkFVar(x_172); +x_160 = x_173; +goto block_166; } } else { -lean_object* x_172; +lean_object* x_174; lean_dec(x_159); -x_172 = lean_box(0); -x_7 = x_172; +x_174 = lean_box(0); +x_7 = x_174; goto block_158; } } else { -lean_object* x_173; lean_object* x_174; lean_object* x_175; +lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_dec(x_159); lean_dec(x_3); -x_173 = lean_ctor_get(x_4, 1); -lean_inc(x_173); -x_174 = lean_array_uget(x_173, x_6); -lean_dec(x_173); -x_175 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_175, 0, x_174); -lean_ctor_set(x_175, 1, x_4); -return x_175; +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: { @@ -206,13 +450,13 @@ 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_FVarSubst_apply___spec__2(x_1, x_2, x_8, x_4); +x_10 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_FVarSubst_apply___spec__2(x_1, x_2, x_9, x_12); +x_13 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2, x_9, x_12); x_14 = !lean_is_exclusive(x_13); if (x_14 == 0) { @@ -271,13 +515,13 @@ 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_FVarSubst_apply___spec__2(x_1, x_2, x_32, x_4); +x_35 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_FVarSubst_apply___spec__2(x_1, x_2, x_33, x_37); +x_38 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2, x_33, x_37); x_39 = !lean_is_exclusive(x_38); if (x_39 == 0) { @@ -338,13 +582,13 @@ 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_FVarSubst_apply___spec__2(x_1, x_2, x_59, x_4); +x_62 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_FVarSubst_apply___spec__2(x_1, x_2, x_60, x_64); +x_65 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2, x_60, x_64); x_66 = !lean_is_exclusive(x_65); if (x_66 == 0) { @@ -406,19 +650,19 @@ 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_FVarSubst_apply___spec__2(x_1, x_2, x_86, x_4); +x_89 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_FVarSubst_apply___spec__2(x_1, x_2, x_87, x_91); +x_92 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_FVarSubst_apply___spec__2(x_1, x_2, x_88, x_94); +x_95 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2, x_88, x_94); x_96 = !lean_is_exclusive(x_95); if (x_96 == 0) { @@ -474,7 +718,7 @@ 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_FVarSubst_apply___spec__2(x_1, x_2, x_114, x_4); +x_115 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2, x_114, x_4); x_116 = !lean_is_exclusive(x_115); if (x_116 == 0) { @@ -530,7 +774,7 @@ 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_FVarSubst_apply___spec__2(x_1, x_2, x_134, x_4); +x_135 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2, x_134, x_4); x_136 = !lean_is_exclusive(x_135); if (x_136 == 0) { @@ -600,6 +844,23 @@ 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_FVarSubst_apply(lean_object* x_1, lean_object* x_2) { @@ -622,7 +883,7 @@ 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_FVarSubst_apply___spec__2(x_1, x_4, x_2, x_5); +x_6 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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); @@ -631,23 +892,13 @@ return x_7; } } } -lean_object* l_RBNode_find___main___at_Lean_Meta_FVarSubst_apply___spec__1___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_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_FVarSubst_apply___spec__2(x_1, x_5, x_3, x_4); +x_6 = l_Lean_Expr_ReplaceImpl_replaceUnsafeM___main___at_Lean_Meta_FVarSubst_apply___spec__1(x_1, x_5, x_3, x_4); lean_dec(x_1); return x_6; } @@ -670,7 +921,7 @@ return x_1; } else { -lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +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); @@ -681,18 +932,35 @@ x_6 = lean_ctor_get(x_2, 3); lean_inc(x_6); lean_dec(x_2); x_7 = l_RBNode_fold___main___at_Lean_Meta_FVarSubst_compose___spec__1(x_1, x_3); -x_8 = l_Lean_NameMap_contains___rarg(x_7, x_4); -if (x_8 == 0) +x_8 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(x_7, x_4); +if (lean_obj_tag(x_8) == 0) { -lean_object* x_9; lean_object* x_10; -x_9 = l_Lean_Meta_FVarSubst_apply(x_7, x_5); -x_10 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_4, x_9); +lean_object* x_9; +x_9 = l_RBNode_find___main___at_Lean_Meta_FVarSubst_get___spec__1(x_7, x_5); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; +x_10 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_4, x_5); x_1 = x_10; x_2 = x_6; goto _start; } else { +lean_object* x_12; lean_object* x_13; +lean_dec(x_5); +x_12 = lean_ctor_get(x_9, 0); +lean_inc(x_12); +lean_dec(x_9); +x_13 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_4, x_12); +x_1 = x_13; +x_2 = x_6; +goto _start; +} +} +else +{ +lean_dec(x_8); lean_dec(x_5); lean_dec(x_4); x_1 = x_7; diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Induction.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Induction.c index f529a0a54a..ac9b86de1e 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Induction.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Induction.c @@ -80,6 +80,7 @@ lean_object* l_Lean_Expr_fvarId_x21(lean_object*); lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_List_foldlM___main___at_Lean_Meta_induction___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); +uint8_t l_Lean_Expr_isHeadBetaTarget(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Meta_induction___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); @@ -151,7 +152,6 @@ lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_induction___spec__7___ lean_object* l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__5; extern lean_object* l_Lean_mkOptionalNode___closed__2; extern lean_object* l_Lean_Meta_isClassQuick___main___closed__1; -uint8_t l_Lean_Expr_isHeadBetaTarget___main(lean_object*); lean_object* l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___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_List_toArrayAux___main___rarg(lean_object*, lean_object*); lean_object* l_Nat_forMAux___main___at_Lean_Meta_induction___spec__3___closed__4; @@ -210,7 +210,7 @@ block_7: { uint8_t x_3; lean_dec(x_2); -x_3 = l_Lean_Expr_isHeadBetaTarget___main(x_1); +x_3 = l_Lean_Expr_isHeadBetaTarget(x_1); if (x_3 == 0) { lean_object* x_4; @@ -667,7 +667,7 @@ x_14 = lean_nat_dec_le(x_12, x_13); lean_dec(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_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; x_15 = l_Lean_Name_inhabited; x_16 = lean_array_get(x_15, x_1, x_12); x_17 = lean_nat_sub(x_12, x_3); @@ -676,10 +676,9 @@ x_18 = lean_nat_sub(x_17, x_10); lean_dec(x_17); x_19 = lean_array_get(x_15, x_4, x_18); lean_dec(x_18); -x_20 = l_Lean_mkFVar(x_19); -x_21 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_16, x_20); +x_20 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_16, x_19); x_6 = x_11; -x_7 = x_21; +x_7 = x_20; goto _start; } else @@ -714,7 +713,7 @@ x_14 = lean_nat_dec_le(x_12, x_13); lean_dec(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_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; x_15 = l_Lean_Name_inhabited; x_16 = lean_array_get(x_15, x_1, x_12); x_17 = lean_nat_sub(x_12, x_3); @@ -723,10 +722,9 @@ x_18 = lean_nat_sub(x_17, x_10); lean_dec(x_17); x_19 = lean_array_get(x_15, x_4, x_18); lean_dec(x_18); -x_20 = l_Lean_mkFVar(x_19); -x_21 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_16, x_20); +x_20 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_16, x_19); x_6 = x_11; -x_7 = x_21; +x_7 = x_20; goto _start; } else @@ -2902,19 +2900,18 @@ 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_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; x_8 = lean_array_fget(x_3, x_4); x_9 = l_Lean_Expr_fvarId_x21(x_8); lean_dec(x_8); x_10 = l_Lean_Name_inhabited; x_11 = lean_array_get(x_10, x_2, x_4); -x_12 = l_Lean_mkFVar(x_11); -x_13 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_9, x_12); -x_14 = lean_unsigned_to_nat(1u); -x_15 = lean_nat_add(x_4, x_14); +x_12 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_9, x_11); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_4, x_13); lean_dec(x_4); -x_4 = x_15; -x_5 = x_13; +x_4 = x_14; +x_5 = x_12; goto _start; } } diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c index 6218af1d16..e95200d84a 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c @@ -134,7 +134,7 @@ x_8 = lean_unsigned_to_nat(0u); x_9 = lean_nat_dec_eq(x_4, 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_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_unsigned_to_nat(1u); x_11 = lean_nat_sub(x_4, x_10); lean_dec(x_4); @@ -145,20 +145,19 @@ x_14 = l_Lean_Name_inhabited; x_15 = lean_array_get(x_14, x_1, x_13); x_16 = lean_array_get(x_14, x_2, x_13); lean_dec(x_13); -x_17 = l_Lean_mkFVar(x_16); -x_18 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_15, x_17); +x_17 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_15, x_16); x_4 = x_11; -x_5 = x_18; +x_5 = x_17; goto _start; } else { -lean_object* x_20; +lean_object* x_19; lean_dec(x_4); -x_20 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_20, 0, x_5); -lean_ctor_set(x_20, 1, x_7); -return x_20; +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_5); +lean_ctor_set(x_19, 1, x_7); +return x_19; } } } @@ -170,7 +169,7 @@ x_8 = lean_unsigned_to_nat(0u); x_9 = lean_nat_dec_eq(x_4, 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_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_unsigned_to_nat(1u); x_11 = lean_nat_sub(x_4, x_10); lean_dec(x_4); @@ -181,20 +180,19 @@ x_14 = l_Lean_Name_inhabited; x_15 = lean_array_get(x_14, x_1, x_13); x_16 = lean_array_get(x_14, x_2, x_13); lean_dec(x_13); -x_17 = l_Lean_mkFVar(x_16); -x_18 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_15, x_17); +x_17 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_15, x_16); x_4 = x_11; -x_5 = x_18; +x_5 = x_17; goto _start; } else { -lean_object* x_20; +lean_object* x_19; lean_dec(x_4); -x_20 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_20, 0, x_5); -lean_ctor_set(x_20, 1, x_7); -return x_20; +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_5); +lean_ctor_set(x_19, 1, x_7); +return x_19; } } } @@ -206,7 +204,7 @@ x_8 = lean_unsigned_to_nat(0u); x_9 = lean_nat_dec_eq(x_4, 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_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_unsigned_to_nat(1u); x_11 = lean_nat_sub(x_4, x_10); lean_dec(x_4); @@ -217,20 +215,19 @@ x_14 = l_Lean_Name_inhabited; x_15 = lean_array_get(x_14, x_1, x_13); x_16 = lean_array_get(x_14, x_2, x_13); lean_dec(x_13); -x_17 = l_Lean_mkFVar(x_16); -x_18 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_15, x_17); +x_17 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_15, x_16); x_4 = x_11; -x_5 = x_18; +x_5 = x_17; goto _start; } else { -lean_object* x_20; +lean_object* x_19; lean_dec(x_4); -x_20 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_20, 0, x_5); -lean_ctor_set(x_20, 1, x_7); -return x_20; +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_5); +lean_ctor_set(x_19, 1, x_7); +return x_19; } } }