From 932f4a7646b4f796be3e59778f3a276d4c79da28 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Sat, 15 Feb 2020 15:44:21 -0800 Subject: [PATCH] chore: update stage0 --- stage0/src/Init/Lean/LocalContext.lean | 5 + stage0/src/Init/Lean/Meta/AppBuilder.lean | 12 + stage0/src/Init/Lean/Meta/Basic.lean | 17 +- stage0/src/Init/Lean/Meta/ExprDefEq.lean | 25 +- stage0/src/Init/Lean/Meta/LevelDefEq.lean | 27 +- stage0/src/Init/Lean/Meta/Tactic.lean | 3 + .../src/Init/Lean/Meta/Tactic/Generalize.lean | 31 + stage0/src/Init/Lean/Meta/Tactic/Intro.lean | 4 +- .../src/Init/Lean/Meta/Tactic/LocalDecl.lean | 25 + stage0/src/Init/Lean/Meta/Tactic/Rewrite.lean | 67 + stage0/src/Init/Lean/Meta/Tactic/Util.lean | 6 + .../src/library/compiler/extract_closed.cpp | 11 + stage0/stdlib/CMakeLists.txt | 2 +- .../stdlib/Init/Lean/Elab/BuiltinNotation.c | 27 +- stage0/stdlib/Init/Lean/Elab/Quotation.c | 12 +- stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c | 95 +- stage0/stdlib/Init/Lean/Elab/Term.c | 33 +- stage0/stdlib/Init/Lean/LocalContext.c | 50 +- stage0/stdlib/Init/Lean/Meta/AppBuilder.c | 148 + stage0/stdlib/Init/Lean/Meta/Basic.c | 1625 +++++------ stage0/stdlib/Init/Lean/Meta/ExprDefEq.c | 232 +- stage0/stdlib/Init/Lean/Meta/LevelDefEq.c | 500 +--- stage0/stdlib/Init/Lean/Meta/Tactic.c | 14 +- stage0/stdlib/Init/Lean/Meta/Tactic/Apply.c | 43 +- stage0/stdlib/Init/Lean/Meta/Tactic/Assert.c | 83 +- .../stdlib/Init/Lean/Meta/Tactic/Assumption.c | 43 +- stage0/stdlib/Init/Lean/Meta/Tactic/Clear.c | 42 +- .../stdlib/Init/Lean/Meta/Tactic/Generalize.c | 548 ++++ stage0/stdlib/Init/Lean/Meta/Tactic/Intro.c | 106 +- .../stdlib/Init/Lean/Meta/Tactic/LocalDecl.c | 360 +++ stage0/stdlib/Init/Lean/Meta/Tactic/Revert.c | 59 +- stage0/stdlib/Init/Lean/Meta/Tactic/Rewrite.c | 2457 +++++++++++++++++ stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c | 356 ++- stage0/stdlib/Init/Lean/Meta/Tactic/Target.c | 83 +- stage0/stdlib/Init/Lean/Meta/Tactic/Util.c | 73 +- 35 files changed, 5561 insertions(+), 1663 deletions(-) create mode 100644 stage0/src/Init/Lean/Meta/Tactic/Generalize.lean create mode 100644 stage0/src/Init/Lean/Meta/Tactic/LocalDecl.lean create mode 100644 stage0/src/Init/Lean/Meta/Tactic/Rewrite.lean create mode 100644 stage0/stdlib/Init/Lean/Meta/Tactic/Generalize.c create mode 100644 stage0/stdlib/Init/Lean/Meta/Tactic/LocalDecl.c create mode 100644 stage0/stdlib/Init/Lean/Meta/Tactic/Rewrite.c diff --git a/stage0/src/Init/Lean/LocalContext.lean b/stage0/src/Init/Lean/LocalContext.lean index e65338fb61..4b907ba0fc 100644 --- a/stage0/src/Init/Lean/LocalContext.lean +++ b/stage0/src/Init/Lean/LocalContext.lean @@ -94,6 +94,11 @@ match lctx with let decl := LocalDecl.ldecl idx fvarId userName type value; { fvarIdToDecl := map.insert fvarId decl, decls := decls.push decl } +/- Low level API -/ +def addDecl (lctx : LocalContext) (newDecl : LocalDecl) : LocalContext := +match lctx with +| { fvarIdToDecl := map, decls := decls } => { fvarIdToDecl := map.insert newDecl.fvarId newDecl, decls := decls.set newDecl.index newDecl } + @[export lean_local_ctx_find] def find? (lctx : LocalContext) (fvarId : FVarId) : Option LocalDecl := lctx.fvarIdToDecl.find? fvarId diff --git a/stage0/src/Init/Lean/Meta/AppBuilder.lean b/stage0/src/Init/Lean/Meta/AppBuilder.lean index 11bf749986..4c79ca4c06 100644 --- a/stage0/src/Init/Lean/Meta/AppBuilder.lean +++ b/stage0/src/Init/Lean/Meta/AppBuilder.lean @@ -13,6 +13,12 @@ if p.isAppOfArity `Eq 3 then else none +@[inline] def Expr.iff? (p : Expr) : Option (Expr × Expr) := +if p.isAppOfArity `Iff 2 then + some (p.getArg! 0, p.getArg! 1) +else + none + @[inline] def Expr.heq? (p : Expr) : Option (Expr × Expr × Expr × Expr) := if p.isAppOfArity `HEq 4 then some (p.getArg! 0, p.getArg! 1, p.getArg! 2, p.getArg! 4) @@ -196,5 +202,11 @@ else do pure $ mkAppN (mkConst `Eq.rec [u1, u2]) #[α, a, motive, h1, b, h2] | _ => throwEx $ Exception.appBuilder `Eq.rec "invalid motive" #[motive] +def mkEqMP (eqProof pr : Expr) : MetaM Expr := +mkAppM `Eq.mp #[eqProof, pr] + +def mkEqMPR (eqProof pr : Expr) : MetaM Expr := +mkAppM `Eq.mpr #[eqProof, pr] + end Meta end Lean diff --git a/stage0/src/Init/Lean/Meta/Basic.lean b/stage0/src/Init/Lean/Meta/Basic.lean index 3276bfae04..54e7df5be1 100644 --- a/stage0/src/Init/Lean/Meta/Basic.lean +++ b/stage0/src/Init/Lean/Meta/Basic.lean @@ -781,18 +781,21 @@ let savedMCtx := s.mctx; modify $ fun s => { mctx := s.mctx.incDepth, .. s }; finally x (modify $ fun s => { mctx := savedMCtx, .. s }) +def withLocalContext {α} (lctx : LocalContext) (localInsts : LocalInstances) (x : MetaM α) : MetaM α := do +localInstsCurr ← getLocalInstances; +adaptReader (fun (ctx : Context) => { lctx := lctx, localInstances := localInsts, .. ctx }) $ + if localInsts == localInstsCurr then + x + else + resettingSynthInstanceCache x + /-- Execute `x` using the given metavariable `LocalContext` and `LocalInstances`. The type class resolution cache is flushed when executing `x` if its `LocalInstances` are different from the current ones. -/ -def withMVarContext {α} (mvarId : MVarId) (x : MetaM α) : MetaM α := do +@[inline] def withMVarContext {α} (mvarId : MVarId) (x : MetaM α) : MetaM α := do mvarDecl ← getMVarDecl mvarId; -localInsts ← getLocalInstances; -adaptReader (fun (ctx : Context) => { lctx := mvarDecl.lctx, localInstances := mvarDecl.localInstances, .. ctx }) $ - if localInsts == mvarDecl.localInstances then - x - else - resettingSynthInstanceCache x +withLocalContext mvarDecl.lctx mvarDecl.localInstances x @[inline] def withMCtx {α} (mctx : MetavarContext) (x : MetaM α) : MetaM α := do mctx' ← getMCtx; diff --git a/stage0/src/Init/Lean/Meta/ExprDefEq.lean b/stage0/src/Init/Lean/Meta/ExprDefEq.lean index 632ae6c234..57f6e1f4a2 100644 --- a/stage0/src/Init/Lean/Meta/ExprDefEq.lean +++ b/stage0/src/Init/Lean/Meta/ExprDefEq.lean @@ -31,7 +31,7 @@ if a.isLambda && !b.isLambda then do match bType with | Expr.forallE n d _ c => let b' := Lean.mkLambda n c.binderInfo d (mkApp b (mkBVar 0)); - try $ isExprDefEqAux a b' + commitWhen $ isExprDefEqAux a b' | _ => pure false else pure false @@ -567,7 +567,7 @@ 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 (try $ processAssignmentFOApproxAux mvar args v) + condM (commitWhen $ processAssignmentFOApproxAux mvar args v) (pure true) (do v? ← unfoldDefinition? v; match v? with @@ -701,7 +701,7 @@ private def tryHeuristic (t s : Expr) : MetaM Bool := let tFn := t.getAppFn; let sFn := s.getAppFn; traceCtx `Meta.isDefEq.delta $ - try $ do + commitWhen $ do b ← isDefEqArgs tFn t.getAppArgs s.getAppArgs <&&> isListLevelDefEqAux tFn.constLevels! sFn.constLevels!; @@ -924,10 +924,10 @@ private partial def isDefEqQuick : Expr → Expr → MetaM LBool if s.isMVar && !t.isMVar then /- Solve `?m t =?= ?n` by trying first `?n := ?m t`. Reason: this assignment is precise. -/ - condM (try (processAssignment s t)) (pure LBool.true) $ + condM (commitWhen (processAssignment s t)) (pure LBool.true) $ assign t s else - condM (try (processAssignment t s)) (pure LBool.true) $ + condM (commitWhen (processAssignment t s)) (pure LBool.true) $ assign s t private def isDefEqProofIrrel (t s : Expr) : MetaM LBool := do @@ -945,7 +945,7 @@ match status with (do sType ← inferType s; toLBoolM $ isExprDefEqAux tType sType) (pure LBool.undef) -@[inline] def tryL (x : MetaM LBool) (k : MetaM Bool) : MetaM Bool := do +@[inline] def whenUndefDo (x : MetaM LBool) (k : MetaM Bool) : MetaM Bool := do status ← x; match status with | LBool.true => pure true @@ -960,7 +960,8 @@ s' ← whnfCore s; if t == t' && s == s' then k t' s' else - tryL (isDefEqQuick t' s') $ k t' s' + whenUndefDo (isDefEqQuick t' s') $ + k t' s' @[specialize] private def unstuckMVar (e : Expr) @@ -988,17 +989,17 @@ partial def isExprDefEqAuxImpl : Expr → Expr → MetaM Bool let t := consumeLet t; let s := consumeLet s; trace `Meta.isDefEq.step $ fun _ => t ++ " =?= " ++ s; - tryL (isDefEqQuick t s) $ - tryL (isDefEqProofIrrel t s) $ + whenUndefDo (isDefEqQuick t s) $ + whenUndefDo (isDefEqProofIrrel t s) $ isDefEqWHNF t s $ fun t s => do - tryL (isDefEqOffset t s) $ do - tryL (isDefEqDelta t s) $ + 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 _ _ _ => let tFn := t.getAppFn; - condM (try (isExprDefEqAux tFn s.getAppFn <&&> isDefEqArgs tFn t.getAppArgs s.getAppArgs)) + condM (commitWhen (isExprDefEqAux tFn s.getAppFn <&&> isDefEqArgs tFn t.getAppArgs s.getAppArgs)) (pure true) (isDefEqOnFailure t s) | _, _ => isDefEqOnFailure t s diff --git a/stage0/src/Init/Lean/Meta/LevelDefEq.lean b/stage0/src/Init/Lean/Meta/LevelDefEq.lean index 7d2c5f973d..7f17b569f5 100644 --- a/stage0/src/Init/Lean/Meta/LevelDefEq.lean +++ b/stage0/src/Init/Lean/Meta/LevelDefEq.lean @@ -189,17 +189,16 @@ numPostponed ← getNumPostponed; if numPostponed == 0 then pure true else traceCtx `Meta.isLevelDefEq.postponed $ processPostponedAux () - -private def restore (env : Environment) (mctx : MetavarContext) (postponed : PersistentArray PostponedEntry) : MetaM Unit := +def restore (env : Environment) (mctx : MetavarContext) (postponed : PersistentArray PostponedEntry) : MetaM Unit := modify $ fun s => { env := env, mctx := mctx, postponed := postponed, .. s } /-- - `try x` executes `x` and process all postponed universe level constraints produced by `x`. + `commitWhen x` executes `x` and process all postponed universe level constraints produced by `x`. We keep the modifications only if both return `true`. Remark: postponed universe level constraints must be solved before returning. Otherwise, we don't know whether `x` really succeeded. -/ -@[specialize] def try (x : MetaM Bool) : MetaM Bool := do +@[specialize] def commitWhen (x : MetaM Bool) : MetaM Bool := do s ← get; let env := s.env; let mctx := s.mctx; @@ -213,33 +212,17 @@ catch (do restore env mctx postponed; pure false)) (fun ex => do restore env mctx postponed; throw ex) -@[specialize] def tryOpt {α} (x : MetaM (Option α)) : MetaM (Option α) := do -s ← get; -let env := s.env; -let mctx := s.mctx; -let postponed := s.postponed; -modify $ fun s => { postponed := {}, .. s }; -catch - (do a? ← x; - match a? with - | some a => - condM processPostponed - (pure (some a)) - (do restore env mctx postponed; pure none) - | none => do restore env mctx postponed; pure none) - (fun ex => do restore env mctx postponed; throw ex) - /- Public interface -/ def isLevelDefEq (u v : Level) : MetaM Bool := traceCtx `Meta.isLevelDefEq $ do - b ← try $ isLevelDefEqAux u v; + b ← commitWhen $ isLevelDefEqAux u v; trace! `Meta.isLevelDefEq (u ++ " =?= " ++ v ++ " ... " ++ if b then "success" else "failure"); pure b def isExprDefEq (t s : Expr) : MetaM Bool := traceCtx `Meta.isDefEq $ do - b ← try $ isExprDefEqAux t s; + b ← commitWhen $ isExprDefEqAux t s; trace! `Meta.isDefEq (t ++ " =?= " ++ s ++ " ... " ++ if b then "success" else "failure"); pure b diff --git a/stage0/src/Init/Lean/Meta/Tactic.lean b/stage0/src/Init/Lean/Meta/Tactic.lean index fab4afd706..2523657cf5 100644 --- a/stage0/src/Init/Lean/Meta/Tactic.lean +++ b/stage0/src/Init/Lean/Meta/Tactic.lean @@ -11,3 +11,6 @@ import Init.Lean.Meta.Tactic.Revert import Init.Lean.Meta.Tactic.Clear import Init.Lean.Meta.Tactic.Assert import Init.Lean.Meta.Tactic.Target +import Init.Lean.Meta.Tactic.Rewrite +import Init.Lean.Meta.Tactic.Generalize +import Init.Lean.Meta.Tactic.LocalDecl diff --git a/stage0/src/Init/Lean/Meta/Tactic/Generalize.lean b/stage0/src/Init/Lean/Meta/Tactic/Generalize.lean new file mode 100644 index 0000000000..c86a6811ec --- /dev/null +++ b/stage0/src/Init/Lean/Meta/Tactic/Generalize.lean @@ -0,0 +1,31 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ +prelude +import Init.Lean.Meta.KAbstract +import Init.Lean.Meta.Tactic.Util + +namespace Lean +namespace Meta + +def generalize (mvarId : MVarId) (e : Expr) (x : Name) : MetaM MVarId := do +withMVarContext mvarId $ do + checkNotAssigned mvarId `generalize; + tag ← getMVarTag mvarId; + target ← getMVarType mvarId; + target ← instantiateMVars target; + targetAbst ← kabstract target e; + unless targetAbst.hasLooseBVars $ + throwTacticEx `generalize mvarId ("failed to find expression in the target"); + eType ← inferType e; + let targetNew := Lean.mkForall x BinderInfo.default eType targetAbst; + unlessM (isTypeCorrect targetNew) $ + throwTacticEx `generalize mvarId ("result is not type correct"); + mvarNew ← mkFreshExprSyntheticOpaqueMVar targetNew tag; + assignExprMVar mvarId (mkApp mvarNew e); + pure mvarNew.mvarId! + +end Meta +end Lean diff --git a/stage0/src/Init/Lean/Meta/Tactic/Intro.lean b/stage0/src/Init/Lean/Meta/Tactic/Intro.lean index 723b82e9f3..59c269c10e 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/Intro.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/Intro.lean @@ -68,8 +68,8 @@ def intro (mvarId : MVarId) (name : Name) : MetaM (FVarId × MVarId) := do (fvarIds, mvarId) ← introN mvarId 1 [name]; pure (fvarIds.get! 0, mvarId) -def intro1 (mvarId : MVarId) : MetaM (FVarId × MVarId) := do -(fvarIds, mvarId) ← introN mvarId 1 []; +def intro1 (mvarId : MVarId) (useUnusedNames := true) : MetaM (FVarId × MVarId) := do +(fvarIds, mvarId) ← introN mvarId 1 [] useUnusedNames; pure (fvarIds.get! 0, mvarId) end Meta diff --git a/stage0/src/Init/Lean/Meta/Tactic/LocalDecl.lean b/stage0/src/Init/Lean/Meta/Tactic/LocalDecl.lean new file mode 100644 index 0000000000..eb51efce3c --- /dev/null +++ b/stage0/src/Init/Lean/Meta/Tactic/LocalDecl.lean @@ -0,0 +1,25 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +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.Util +import Init.Lean.Meta.Tactic.Assert +import Init.Lean.Meta.Tactic.Intro +import Init.Lean.Meta.Tactic.Clear + +namespace Lean +namespace Meta + +def replaceLocalDecl (mvarId : MVarId) (fvarId : FVarId) (newType : Expr) (eqProof : Expr) : MetaM (FVarId × MVarId) := do +withMVarContext mvarId $ do + localDecl ← getLocalDecl fvarId; + newTypePr ← mkEqMP eqProof (mkFVar fvarId); + mvarId ← assert mvarId localDecl.userName newType newTypePr; + (fvarIdNew, mvarId) ← intro1 mvarId; + (do mvarId ← clear mvarId fvarId; pure (fvarIdNew, mvarId)) <|> pure (fvarIdNew, mvarId) + +end Meta +end Lean diff --git a/stage0/src/Init/Lean/Meta/Tactic/Rewrite.lean b/stage0/src/Init/Lean/Meta/Tactic/Rewrite.lean new file mode 100644 index 0000000000..a5c8f7c795 --- /dev/null +++ b/stage0/src/Init/Lean/Meta/Tactic/Rewrite.lean @@ -0,0 +1,67 @@ +/- +Copyright (c) 2020 Microsoft Corporation. All rights reserved. +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.KAbstract +import Init.Lean.Meta.Check +import Init.Lean.Meta.Tactic.Apply + +namespace Lean +namespace Meta + +structure RewriteResult := +(eNew : Expr) +(eqPrf : Expr) +(newGoals : List MVarId) + +def rewriteCore (mvarId : MVarId) (e : Expr) (heq : Expr) (symm : Bool := false) (occs : Occurrences := Occurrences.all) : MetaM RewriteResult := +withMVarContext mvarId $ do + checkNotAssigned mvarId `rewrite; + heqType ← inferType heq; + (newMVars, binderInfos, heqType) ← forallMetaTelescopeReducing heqType; + let heq := mkAppN heq newMVars; + let continue (heq heqType : Expr) : MetaM RewriteResult := + match heqType.eq? with + | none => throwTacticEx `rewrite mvarId ("equality of iff proof expected") + | some (α, lhs, rhs) => + let continue (heq heqType lhs rhs : Expr) : MetaM RewriteResult := do { + when lhs.getAppFn.isMVar $ + throwTacticEx `rewrite mvarId ("pattern is a metavariable"); + e ← instantiateMVars e; + eAbst ← kabstract e lhs occs; + unless eAbst.hasLooseBVars $ + throwTacticEx `rewrite mvarId ("did not find instance of the pattern in the target expression"); + -- construct rewrite proof + let eNew := eAbst.instantiate1 rhs; + eNew ← instantiateMVars eNew; + eEqE ← mkEq e e; + let eEqEAbst := mkApp eEqE.appFn! eAbst; + let motive := Lean.mkLambda `_a BinderInfo.default α eEqEAbst; + unlessM (isTypeCorrect motive) $ + throwTacticEx `rewrite mvarId ("motive is not type correct"); + eqRefl ← mkEqRefl e; + eqPrf ← mkEqNDRec motive eqRefl heq; + postprocessAppMVars `rewrite mvarId newMVars binderInfos; + newMVars ← newMVars.filterM $ fun mvar => not <$> isExprMVarAssigned mvar.mvarId!; + pure { eNew := eNew, eqPrf := eqPrf, newGoals := newMVars.toList.map Expr.mvarId! } + }; + match symm with + | false => continue heq heqType lhs rhs + | true => do { + heq ← mkEqSymm heq; + heqType ← mkEq rhs lhs; + continue heq heqType rhs lhs + }; + match heqType.iff? with + | some (lhs, rhs) => do + heqType ← mkEq lhs rhs; + let heq := mkApp3 (mkConst `propext) lhs rhs heq; + continue heq heqType + | none => + continue heq heqType + +end Meta +end Lean diff --git a/stage0/src/Init/Lean/Meta/Tactic/Util.lean b/stage0/src/Init/Lean/Meta/Tactic/Util.lean index 0eb31ad85b..154eacfb25 100644 --- a/stage0/src/Init/Lean/Meta/Tactic/Util.lean +++ b/stage0/src/Init/Lean/Meta/Tactic/Util.lean @@ -5,6 +5,7 @@ Authors: Leonardo de Moura -/ prelude import Init.Lean.Meta.Basic +import Init.Lean.Meta.LevelDefEq namespace Lean namespace Meta @@ -36,6 +37,11 @@ mctx ← getMCtx; opts ← getOptions; pure $ ppGoal env mctx opts mvarId +@[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⟩ + @[init] private def regTraceClasses : IO Unit := registerTraceClass `Meta.Tactic diff --git a/stage0/src/library/compiler/extract_closed.cpp b/stage0/src/library/compiler/extract_closed.cpp index 34c61f313f..3bfd953e17 100644 --- a/stage0/src/library/compiler/extract_closed.cpp +++ b/stage0/src/library/compiler/extract_closed.cpp @@ -187,11 +187,22 @@ class extract_closed_fn { return !is_lambda(info->get_value()); } + bool is_join_point_app(expr const & e) const { + if (!is_app(e)) return false; + expr const & fn = get_app_fn(e); + return + is_fvar(fn) && + is_join_point_name(m_lctx.get_local_decl(fn).get_user_name()); + } + expr mk_aux_constant(expr const & e0) { expr e = find(e0); if (is_enf_neutral(e) || is_enf_unreachable(e)) { return e0; } + if (is_join_point_app(e)) { + return e0; + } if (is_constant(e) && arity_eq_0(const_name(e))) { /* Remarr: if a constant `C` has arity > 0, then it is worth creating a new constant with arity 0 that just returns `C`. In this way, we cache the closure allocation. diff --git a/stage0/stdlib/CMakeLists.txt b/stage0/stdlib/CMakeLists.txt index 7bd0a811af..cab4327f17 100644 --- a/stage0/stdlib/CMakeLists.txt +++ b/stage0/stdlib/CMakeLists.txt @@ -1 +1 @@ -add_library (stage0 OBJECT Init/./Coe.c Init/./Control.c Init/./Control/Alternative.c Init/./Control/Applicative.c Init/./Control/Conditional.c Init/./Control/EState.c Init/./Control/Except.c Init/./Control/Functor.c Init/./Control/Id.c Init/./Control/Lift.c Init/./Control/Monad.c Init/./Control/Option.c Init/./Control/Reader.c Init/./Control/State.c Init/./Core.c Init/./Data.c Init/./Data/Array.c Init/./Data/Array/Basic.c Init/./Data/Array/BinSearch.c Init/./Data/Array/QSort.c Init/./Data/AssocList.c Init/./Data/Basic.c Init/./Data/BinomialHeap.c Init/./Data/BinomialHeap/Basic.c Init/./Data/ByteArray.c Init/./Data/ByteArray/Basic.c Init/./Data/Char.c Init/./Data/Char/Basic.c Init/./Data/DList.c Init/./Data/Fin.c Init/./Data/Fin/Basic.c Init/./Data/HashMap.c Init/./Data/HashMap/Basic.c Init/./Data/HashSet.c Init/./Data/Hashable.c Init/./Data/Int.c Init/./Data/Int/Basic.c Init/./Data/List.c Init/./Data/List/Basic.c Init/./Data/List/BasicAux.c Init/./Data/List/Control.c Init/./Data/List/Instances.c Init/./Data/Nat.c Init/./Data/Nat/Basic.c Init/./Data/Nat/Bitwise.c Init/./Data/Nat/Control.c Init/./Data/Nat/Div.c Init/./Data/Option.c Init/./Data/Option/Basic.c Init/./Data/Option/BasicAux.c Init/./Data/Option/Instances.c Init/./Data/PersistentArray.c Init/./Data/PersistentArray/Basic.c Init/./Data/PersistentHashMap.c Init/./Data/PersistentHashMap/Basic.c Init/./Data/PersistentHashSet.c Init/./Data/Queue.c Init/./Data/Queue/Basic.c Init/./Data/RBMap.c Init/./Data/RBMap/Basic.c Init/./Data/RBMap/BasicAux.c Init/./Data/RBTree.c Init/./Data/RBTree/Basic.c Init/./Data/Random.c Init/./Data/Repr.c Init/./Data/Stack.c Init/./Data/Stack/Basic.c Init/./Data/String.c Init/./Data/String/Basic.c Init/./Data/ToString.c Init/./Data/UInt.c Init/./Default.c Init/./Fix.c Init/./HasCoe.c Init/./Lean.c Init/./Lean/Attributes.c Init/./Lean/AuxRecursor.c Init/./Lean/Class.c Init/./Lean/Compiler.c Init/./Lean/Compiler/ClosedTermCache.c Init/./Lean/Compiler/ConstFolding.c Init/./Lean/Compiler/ExportAttr.c Init/./Lean/Compiler/ExternAttr.c Init/./Lean/Compiler/IR.c Init/./Lean/Compiler/IR/Basic.c Init/./Lean/Compiler/IR/Borrow.c Init/./Lean/Compiler/IR/Boxing.c Init/./Lean/Compiler/IR/Checker.c Init/./Lean/Compiler/IR/CompilerM.c Init/./Lean/Compiler/IR/CtorLayout.c Init/./Lean/Compiler/IR/ElimDeadBranches.c Init/./Lean/Compiler/IR/ElimDeadVars.c Init/./Lean/Compiler/IR/EmitC.c Init/./Lean/Compiler/IR/EmitUtil.c Init/./Lean/Compiler/IR/ExpandResetReuse.c Init/./Lean/Compiler/IR/Format.c Init/./Lean/Compiler/IR/FreeVars.c Init/./Lean/Compiler/IR/LiveVars.c Init/./Lean/Compiler/IR/NormIds.c Init/./Lean/Compiler/IR/PushProj.c Init/./Lean/Compiler/IR/RC.c Init/./Lean/Compiler/IR/ResetReuse.c Init/./Lean/Compiler/IR/SimpCase.c Init/./Lean/Compiler/IR/UnboxResult.c Init/./Lean/Compiler/ImplementedByAttr.c Init/./Lean/Compiler/InitAttr.c Init/./Lean/Compiler/InlineAttrs.c Init/./Lean/Compiler/NameMangling.c Init/./Lean/Compiler/NeverExtractAttr.c Init/./Lean/Compiler/Specialize.c Init/./Lean/Compiler/Util.c Init/./Lean/Data/Format.c Init/./Lean/Data/KVMap.c Init/./Lean/Data/LBool.c Init/./Lean/Data/LOption.c Init/./Lean/Data/Name.c Init/./Lean/Data/Occurrences.c Init/./Lean/Data/Options.c Init/./Lean/Data/Position.c Init/./Lean/Data/SMap.c Init/./Lean/Data/Trie.c Init/./Lean/Declaration.c Init/./Lean/Elab.c Init/./Lean/Elab/Alias.c Init/./Lean/Elab/App.c Init/./Lean/Elab/Binders.c Init/./Lean/Elab/BuiltinNotation.c Init/./Lean/Elab/Command.c Init/./Lean/Elab/DeclModifiers.c Init/./Lean/Elab/Declaration.c Init/./Lean/Elab/Definition.c Init/./Lean/Elab/DoNotation.c Init/./Lean/Elab/Exception.c Init/./Lean/Elab/Frontend.c Init/./Lean/Elab/Import.c Init/./Lean/Elab/Level.c Init/./Lean/Elab/Log.c Init/./Lean/Elab/Match.c Init/./Lean/Elab/Quotation.c Init/./Lean/Elab/ResolveName.c Init/./Lean/Elab/StrategyAttrs.c Init/./Lean/Elab/StructInst.c Init/./Lean/Elab/Syntax.c Init/./Lean/Elab/SyntheticMVars.c Init/./Lean/Elab/Tactic.c Init/./Lean/Elab/Tactic/Basic.c Init/./Lean/Elab/Tactic/ElabTerm.c Init/./Lean/Elab/Term.c Init/./Lean/Elab/Util.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Eval.c Init/./Lean/Expr.c Init/./Lean/HeadIndex.c Init/./Lean/Hygiene.c Init/./Lean/Level.c Init/./Lean/Linter.c Init/./Lean/LocalContext.c Init/./Lean/Message.c Init/./Lean/Meta.c Init/./Lean/Meta/AbstractMVars.c Init/./Lean/Meta/AppBuilder.c Init/./Lean/Meta/Basic.c Init/./Lean/Meta/Check.c Init/./Lean/Meta/DiscrTree.c Init/./Lean/Meta/DiscrTreeTypes.c Init/./Lean/Meta/Exception.c Init/./Lean/Meta/ExprDefEq.c Init/./Lean/Meta/FunInfo.c Init/./Lean/Meta/InferType.c Init/./Lean/Meta/Instances.c Init/./Lean/Meta/KAbstract.c Init/./Lean/Meta/LevelDefEq.c Init/./Lean/Meta/Message.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/Tactic.c Init/./Lean/Meta/Tactic/Apply.c Init/./Lean/Meta/Tactic/Assert.c Init/./Lean/Meta/Tactic/Assumption.c Init/./Lean/Meta/Tactic/Clear.c Init/./Lean/Meta/Tactic/FVarSubst.c Init/./Lean/Meta/Tactic/Intro.c Init/./Lean/Meta/Tactic/Revert.c Init/./Lean/Meta/Tactic/Subst.c Init/./Lean/Meta/Tactic/Target.c Init/./Lean/Meta/Tactic/Util.c Init/./Lean/Meta/WHNF.c Init/./Lean/MetavarContext.c Init/./Lean/Modifiers.c Init/./Lean/Parser.c Init/./Lean/Parser/Command.c Init/./Lean/Parser/Level.c Init/./Lean/Parser/Module.c Init/./Lean/Parser/Parser.c Init/./Lean/Parser/Syntax.c Init/./Lean/Parser/Tactic.c Init/./Lean/Parser/Term.c Init/./Lean/Parser/Transform.c Init/./Lean/ProjFns.c Init/./Lean/ReducibilityAttrs.c Init/./Lean/ReplaceExpr.c Init/./Lean/Runtime.c Init/./Lean/Scopes.c Init/./Lean/Structure.c Init/./Lean/Syntax.c Init/./Lean/ToExpr.c Init/./Lean/Util/CollectFVars.c Init/./Lean/Util/CollectLevelParams.c Init/./Lean/Util/CollectMVars.c Init/./Lean/Util/FindMVar.c Init/./Lean/Util/MonadCache.c Init/./Lean/Util/PPExt.c Init/./Lean/Util/PPGoal.c Init/./Lean/Util/Path.c Init/./Lean/Util/Profile.c Init/./Lean/Util/RecDepth.c Init/./Lean/Util/Sorry.c Init/./Lean/Util/Trace.c Init/./Lean/Util/WHNF.c Init/./LeanInit.c Init/./MutQuot.c Init/./System.c Init/./System/FilePath.c Init/./System/IO.c Init/./System/IOError.c Init/./System/Platform.c Init/./Util.c Init/./WF.c) +add_library (stage0 OBJECT Init/./Coe.c Init/./Control.c Init/./Control/Alternative.c Init/./Control/Applicative.c Init/./Control/Conditional.c Init/./Control/EState.c Init/./Control/Except.c Init/./Control/Functor.c Init/./Control/Id.c Init/./Control/Lift.c Init/./Control/Monad.c Init/./Control/Option.c Init/./Control/Reader.c Init/./Control/State.c Init/./Core.c Init/./Data.c Init/./Data/Array.c Init/./Data/Array/Basic.c Init/./Data/Array/BinSearch.c Init/./Data/Array/QSort.c Init/./Data/AssocList.c Init/./Data/Basic.c Init/./Data/BinomialHeap.c Init/./Data/BinomialHeap/Basic.c Init/./Data/ByteArray.c Init/./Data/ByteArray/Basic.c Init/./Data/Char.c Init/./Data/Char/Basic.c Init/./Data/DList.c Init/./Data/Fin.c Init/./Data/Fin/Basic.c Init/./Data/HashMap.c Init/./Data/HashMap/Basic.c Init/./Data/HashSet.c Init/./Data/Hashable.c Init/./Data/Int.c Init/./Data/Int/Basic.c Init/./Data/List.c Init/./Data/List/Basic.c Init/./Data/List/BasicAux.c Init/./Data/List/Control.c Init/./Data/List/Instances.c Init/./Data/Nat.c Init/./Data/Nat/Basic.c Init/./Data/Nat/Bitwise.c Init/./Data/Nat/Control.c Init/./Data/Nat/Div.c Init/./Data/Option.c Init/./Data/Option/Basic.c Init/./Data/Option/BasicAux.c Init/./Data/Option/Instances.c Init/./Data/PersistentArray.c Init/./Data/PersistentArray/Basic.c Init/./Data/PersistentHashMap.c Init/./Data/PersistentHashMap/Basic.c Init/./Data/PersistentHashSet.c Init/./Data/Queue.c Init/./Data/Queue/Basic.c Init/./Data/RBMap.c Init/./Data/RBMap/Basic.c Init/./Data/RBMap/BasicAux.c Init/./Data/RBTree.c Init/./Data/RBTree/Basic.c Init/./Data/Random.c Init/./Data/Repr.c Init/./Data/Stack.c Init/./Data/Stack/Basic.c Init/./Data/String.c Init/./Data/String/Basic.c Init/./Data/ToString.c Init/./Data/UInt.c Init/./Default.c Init/./Fix.c Init/./HasCoe.c Init/./Lean.c Init/./Lean/Attributes.c Init/./Lean/AuxRecursor.c Init/./Lean/Class.c Init/./Lean/Compiler.c Init/./Lean/Compiler/ClosedTermCache.c Init/./Lean/Compiler/ConstFolding.c Init/./Lean/Compiler/ExportAttr.c Init/./Lean/Compiler/ExternAttr.c Init/./Lean/Compiler/IR.c Init/./Lean/Compiler/IR/Basic.c Init/./Lean/Compiler/IR/Borrow.c Init/./Lean/Compiler/IR/Boxing.c Init/./Lean/Compiler/IR/Checker.c Init/./Lean/Compiler/IR/CompilerM.c Init/./Lean/Compiler/IR/CtorLayout.c Init/./Lean/Compiler/IR/ElimDeadBranches.c Init/./Lean/Compiler/IR/ElimDeadVars.c Init/./Lean/Compiler/IR/EmitC.c Init/./Lean/Compiler/IR/EmitUtil.c Init/./Lean/Compiler/IR/ExpandResetReuse.c Init/./Lean/Compiler/IR/Format.c Init/./Lean/Compiler/IR/FreeVars.c Init/./Lean/Compiler/IR/LiveVars.c Init/./Lean/Compiler/IR/NormIds.c Init/./Lean/Compiler/IR/PushProj.c Init/./Lean/Compiler/IR/RC.c Init/./Lean/Compiler/IR/ResetReuse.c Init/./Lean/Compiler/IR/SimpCase.c Init/./Lean/Compiler/IR/UnboxResult.c Init/./Lean/Compiler/ImplementedByAttr.c Init/./Lean/Compiler/InitAttr.c Init/./Lean/Compiler/InlineAttrs.c Init/./Lean/Compiler/NameMangling.c Init/./Lean/Compiler/NeverExtractAttr.c Init/./Lean/Compiler/Specialize.c Init/./Lean/Compiler/Util.c Init/./Lean/Data/Format.c Init/./Lean/Data/KVMap.c Init/./Lean/Data/LBool.c Init/./Lean/Data/LOption.c Init/./Lean/Data/Name.c Init/./Lean/Data/Occurrences.c Init/./Lean/Data/Options.c Init/./Lean/Data/Position.c Init/./Lean/Data/SMap.c Init/./Lean/Data/Trie.c Init/./Lean/Declaration.c Init/./Lean/Elab.c Init/./Lean/Elab/Alias.c Init/./Lean/Elab/App.c Init/./Lean/Elab/Binders.c Init/./Lean/Elab/BuiltinNotation.c Init/./Lean/Elab/Command.c Init/./Lean/Elab/DeclModifiers.c Init/./Lean/Elab/Declaration.c Init/./Lean/Elab/Definition.c Init/./Lean/Elab/DoNotation.c Init/./Lean/Elab/Exception.c Init/./Lean/Elab/Frontend.c Init/./Lean/Elab/Import.c Init/./Lean/Elab/Level.c Init/./Lean/Elab/Log.c Init/./Lean/Elab/Match.c Init/./Lean/Elab/Quotation.c Init/./Lean/Elab/ResolveName.c Init/./Lean/Elab/StrategyAttrs.c Init/./Lean/Elab/StructInst.c Init/./Lean/Elab/Syntax.c Init/./Lean/Elab/SyntheticMVars.c Init/./Lean/Elab/Tactic.c Init/./Lean/Elab/Tactic/Basic.c Init/./Lean/Elab/Tactic/ElabTerm.c Init/./Lean/Elab/Term.c Init/./Lean/Elab/Util.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Eval.c Init/./Lean/Expr.c Init/./Lean/HeadIndex.c Init/./Lean/Hygiene.c Init/./Lean/Level.c Init/./Lean/Linter.c Init/./Lean/LocalContext.c Init/./Lean/Message.c Init/./Lean/Meta.c Init/./Lean/Meta/AbstractMVars.c Init/./Lean/Meta/AppBuilder.c Init/./Lean/Meta/Basic.c Init/./Lean/Meta/Check.c Init/./Lean/Meta/DiscrTree.c Init/./Lean/Meta/DiscrTreeTypes.c Init/./Lean/Meta/Exception.c Init/./Lean/Meta/ExprDefEq.c Init/./Lean/Meta/FunInfo.c Init/./Lean/Meta/InferType.c Init/./Lean/Meta/Instances.c Init/./Lean/Meta/KAbstract.c Init/./Lean/Meta/LevelDefEq.c Init/./Lean/Meta/Message.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/Tactic.c Init/./Lean/Meta/Tactic/Apply.c Init/./Lean/Meta/Tactic/Assert.c Init/./Lean/Meta/Tactic/Assumption.c Init/./Lean/Meta/Tactic/Clear.c Init/./Lean/Meta/Tactic/FVarSubst.c Init/./Lean/Meta/Tactic/Generalize.c Init/./Lean/Meta/Tactic/Intro.c Init/./Lean/Meta/Tactic/LocalDecl.c Init/./Lean/Meta/Tactic/Revert.c Init/./Lean/Meta/Tactic/Rewrite.c Init/./Lean/Meta/Tactic/Subst.c Init/./Lean/Meta/Tactic/Target.c Init/./Lean/Meta/Tactic/Util.c Init/./Lean/Meta/WHNF.c Init/./Lean/MetavarContext.c Init/./Lean/Modifiers.c Init/./Lean/Parser.c Init/./Lean/Parser/Command.c Init/./Lean/Parser/Level.c Init/./Lean/Parser/Module.c Init/./Lean/Parser/Parser.c Init/./Lean/Parser/Syntax.c Init/./Lean/Parser/Tactic.c Init/./Lean/Parser/Term.c Init/./Lean/Parser/Transform.c Init/./Lean/ProjFns.c Init/./Lean/ReducibilityAttrs.c Init/./Lean/ReplaceExpr.c Init/./Lean/Runtime.c Init/./Lean/Scopes.c Init/./Lean/Structure.c Init/./Lean/Syntax.c Init/./Lean/ToExpr.c Init/./Lean/Util/CollectFVars.c Init/./Lean/Util/CollectLevelParams.c Init/./Lean/Util/CollectMVars.c Init/./Lean/Util/FindMVar.c Init/./Lean/Util/MonadCache.c Init/./Lean/Util/PPExt.c Init/./Lean/Util/PPGoal.c Init/./Lean/Util/Path.c Init/./Lean/Util/Profile.c Init/./Lean/Util/RecDepth.c Init/./Lean/Util/Sorry.c Init/./Lean/Util/Trace.c Init/./Lean/Util/WHNF.c Init/./LeanInit.c Init/./MutQuot.c Init/./System.c Init/./System/FilePath.c Init/./System/IO.c Init/./System/IOError.c Init/./System/Platform.c Init/./Util.c Init/./WF.c) diff --git a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c index b812d87411..24a768b6c4 100644 --- a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c @@ -226,6 +226,7 @@ lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabseq(lean_object*); lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__10; lean_object* l_Lean_Elab_Term_elabLE___closed__1; lean_object* l_Lean_Elab_Term_ElabFComp___closed__4; +extern lean_object* l_Lean_Expr_iff_x3f___closed__2; lean_object* l_Lean_Elab_Term_expandIf(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabDiv___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabLE___boxed(lean_object*, lean_object*, lean_object*); @@ -261,7 +262,6 @@ lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabParserMacro___closed__3; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMul___closed__1; lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabIff___closed__2; lean_object* l_Lean_Elab_Term_expandSubtype___closed__8; lean_object* l_Lean_Elab_Term_elabHEq(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__2; @@ -383,7 +383,6 @@ lean_object* l_Lean_Elab_Term_expandIf___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabOrM(lean_object*); lean_object* l_Lean_Elab_Term_elabLE___closed__4; lean_object* l_Lean_Elab_Term_elabOrM___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Term_elabIff___closed__1; lean_object* l___regBuiltinMacro_Lean_Elab_Term_elabMapRev(lean_object*); lean_object* l_Lean_Elab_Term_elabGE___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_seqRight___elambda__1___closed__1; @@ -5901,29 +5900,11 @@ x_4 = l_Lean_Elab_addBuiltinMacro(x_2, x_3, x_1); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_elabIff___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("Iff"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_elabIff___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_elabIff___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* l_Lean_Elab_Term_elabIff(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; lean_object* x_5; -x_4 = l_Lean_Elab_Term_elabIff___closed__2; +x_4 = l_Lean_Expr_iff_x3f___closed__2; x_5 = l_Lean_Elab_Term_elabInfixOp(x_4, x_1, x_2, x_3); return x_5; } @@ -7232,10 +7213,6 @@ lean_mark_persistent(l___regBuiltinMacro_Lean_Elab_Term_elabOr___closed__1); res = l___regBuiltinMacro_Lean_Elab_Term_elabOr(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Elab_Term_elabIff___closed__1 = _init_l_Lean_Elab_Term_elabIff___closed__1(); -lean_mark_persistent(l_Lean_Elab_Term_elabIff___closed__1); -l_Lean_Elab_Term_elabIff___closed__2 = _init_l_Lean_Elab_Term_elabIff___closed__2(); -lean_mark_persistent(l_Lean_Elab_Term_elabIff___closed__2); l___regBuiltinMacro_Lean_Elab_Term_elabIff___closed__1 = _init_l___regBuiltinMacro_Lean_Elab_Term_elabIff___closed__1(); lean_mark_persistent(l___regBuiltinMacro_Lean_Elab_Term_elabIff___closed__1); res = l___regBuiltinMacro_Lean_Elab_Term_elabIff(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Elab/Quotation.c b/stage0/stdlib/Init/Lean/Elab/Quotation.c index bd07639d80..f8ab1eef78 100644 --- a/stage0/stdlib/Init/Lean/Elab/Quotation.c +++ b/stage0/stdlib/Init/Lean/Elab/Quotation.c @@ -145,7 +145,6 @@ extern lean_object* l_String_splitAux___main___closed__1; lean_object* l___private_Init_Lean_Elab_Quotation_12__exprPlaceholder; lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___lambda__2___closed__2; lean_object* l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__9; -extern lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___spec__1___closed__3; extern lean_object* l_Lean_Syntax_termIdToAntiquot___closed__1; lean_object* l_Lean_Elab_Term_Quotation_antiquotKind_x3f___boxed(lean_object*); @@ -167,6 +166,7 @@ lean_object* l___private_Init_Lean_Elab_Quotation_8__explodeHeadPat___lambda__1_ lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_Quotation_match__syntax_expand___spec__1___lambda__1___boxed(lean_object*); lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__1(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__4; lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__47; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___spec__1___closed__7; extern lean_object* l_Lean_mkTermIdFromIdent___closed__1; @@ -16237,7 +16237,7 @@ else { lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; uint8_t x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_dec(x_300); -x_417 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; +x_417 = l_Lean_Meta_rewriteCore___lambda__1___closed__4; x_418 = lean_name_mk_string(x_27, x_417); x_419 = l_Lean_Elab_Term_getLCtx(x_2, x_3); x_420 = lean_ctor_get(x_419, 0); @@ -18398,7 +18398,7 @@ else { lean_object* x_1037; lean_object* x_1038; lean_object* x_1039; lean_object* x_1040; lean_object* x_1041; lean_object* x_1042; uint8_t x_1043; lean_object* x_1044; lean_object* x_1045; lean_object* x_1046; lean_object* x_1047; lean_object* x_1048; lean_object* x_1049; lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; lean_object* x_1053; lean_object* x_1054; lean_object* x_1055; lean_object* x_1056; lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; lean_object* x_1060; lean_object* x_1061; lean_object* x_1062; lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; lean_object* x_1068; lean_object* x_1069; lean_object* x_1070; lean_object* x_1071; uint8_t x_1072; uint8_t x_1073; uint8_t x_1074; lean_object* x_1075; lean_object* x_1076; lean_object* x_1077; lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; lean_object* x_1081; lean_object* x_1082; lean_object* x_1083; lean_dec(x_959); -x_1037 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; +x_1037 = l_Lean_Meta_rewriteCore___lambda__1___closed__4; x_1038 = lean_name_mk_string(x_27, x_1037); x_1039 = l_Lean_Elab_Term_getLCtx(x_2, x_3); x_1040 = lean_ctor_get(x_1039, 0); @@ -20254,7 +20254,7 @@ else { lean_object* x_1547; lean_object* x_1548; lean_object* x_1549; lean_object* x_1550; lean_object* x_1551; lean_object* x_1552; uint8_t x_1553; lean_object* x_1554; lean_object* x_1555; lean_object* x_1556; lean_object* x_1557; lean_object* x_1558; lean_object* x_1559; lean_object* x_1560; lean_object* x_1561; lean_object* x_1562; lean_object* x_1563; lean_object* x_1564; lean_object* x_1565; lean_object* x_1566; lean_object* x_1567; lean_object* x_1568; lean_object* x_1569; lean_object* x_1570; lean_object* x_1571; lean_object* x_1572; lean_object* x_1573; lean_object* x_1574; lean_object* x_1575; lean_object* x_1576; lean_object* x_1577; lean_object* x_1578; lean_object* x_1579; lean_object* x_1580; lean_object* x_1581; uint8_t x_1582; uint8_t x_1583; uint8_t x_1584; lean_object* x_1585; lean_object* x_1586; lean_object* x_1587; lean_object* x_1588; lean_object* x_1589; lean_object* x_1590; lean_object* x_1591; lean_object* x_1592; lean_object* x_1593; lean_dec(x_1469); -x_1547 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; +x_1547 = l_Lean_Meta_rewriteCore___lambda__1___closed__4; x_1548 = lean_name_mk_string(x_27, x_1547); x_1549 = l_Lean_Elab_Term_getLCtx(x_2, x_3); x_1550 = lean_ctor_get(x_1549, 0); @@ -22143,7 +22143,7 @@ else { lean_object* x_2063; lean_object* x_2064; lean_object* x_2065; lean_object* x_2066; lean_object* x_2067; lean_object* x_2068; uint8_t x_2069; lean_object* x_2070; lean_object* x_2071; lean_object* x_2072; lean_object* x_2073; lean_object* x_2074; lean_object* x_2075; lean_object* x_2076; lean_object* x_2077; lean_object* x_2078; lean_object* x_2079; lean_object* x_2080; lean_object* x_2081; lean_object* x_2082; lean_object* x_2083; lean_object* x_2084; lean_object* x_2085; lean_object* x_2086; lean_object* x_2087; lean_object* x_2088; lean_object* x_2089; lean_object* x_2090; lean_object* x_2091; lean_object* x_2092; lean_object* x_2093; lean_object* x_2094; lean_object* x_2095; lean_object* x_2096; lean_object* x_2097; uint8_t x_2098; uint8_t x_2099; uint8_t x_2100; lean_object* x_2101; lean_object* x_2102; lean_object* x_2103; lean_object* x_2104; lean_object* x_2105; lean_object* x_2106; lean_object* x_2107; lean_object* x_2108; lean_object* x_2109; lean_dec(x_1985); -x_2063 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; +x_2063 = l_Lean_Meta_rewriteCore___lambda__1___closed__4; x_2064 = lean_name_mk_string(x_27, x_2063); x_2065 = l_Lean_Elab_Term_getLCtx(x_2, x_3); x_2066 = lean_ctor_get(x_2065, 0); @@ -24064,7 +24064,7 @@ else { lean_object* x_2586; lean_object* x_2587; lean_object* x_2588; lean_object* x_2589; lean_object* x_2590; lean_object* x_2591; uint8_t x_2592; lean_object* x_2593; lean_object* x_2594; lean_object* x_2595; lean_object* x_2596; lean_object* x_2597; lean_object* x_2598; lean_object* x_2599; lean_object* x_2600; lean_object* x_2601; lean_object* x_2602; lean_object* x_2603; lean_object* x_2604; lean_object* x_2605; lean_object* x_2606; lean_object* x_2607; lean_object* x_2608; lean_object* x_2609; lean_object* x_2610; lean_object* x_2611; lean_object* x_2612; lean_object* x_2613; lean_object* x_2614; lean_object* x_2615; lean_object* x_2616; lean_object* x_2617; lean_object* x_2618; lean_object* x_2619; lean_object* x_2620; uint8_t x_2621; uint8_t x_2622; uint8_t x_2623; lean_object* x_2624; lean_object* x_2625; lean_object* x_2626; lean_object* x_2627; lean_object* x_2628; lean_object* x_2629; lean_object* x_2630; lean_object* x_2631; lean_object* x_2632; lean_dec(x_2508); -x_2586 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; +x_2586 = l_Lean_Meta_rewriteCore___lambda__1___closed__4; x_2587 = lean_name_mk_string(x_27, x_2586); x_2588 = l_Lean_Elab_Term_getLCtx(x_2, x_3); x_2589 = lean_ctor_get(x_2588, 0); diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c index f92a68a73e..3fb1e36d71 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c @@ -401,7 +401,7 @@ lean_object* l_Lean_Elab_Tactic_adaptExpander(lean_object*, lean_object*, lean_o lean_object* l_Lean_Elab_log___at_Lean_Elab_Tactic_evalTraceState___spec__1(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getEnv___rarg(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSeq___closed__3; -lean_object* l_Lean_Meta_intro1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_EStateM_Backtrackable___closed__2; 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*); @@ -14129,67 +14129,68 @@ return x_21; lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; -x_4 = l_Lean_Meta_intro1(x_1, x_2, x_3); -if (lean_obj_tag(x_4) == 0) +uint8_t x_4; lean_object* x_5; +x_4 = 1; +x_5 = l_Lean_Meta_intro1(x_1, x_4, x_2, x_3); +if (lean_obj_tag(x_5) == 0) { -uint8_t x_5; -x_5 = !lean_is_exclusive(x_4); -if (x_5 == 0) +uint8_t x_6; +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_6 = lean_ctor_get(x_4, 0); -x_7 = lean_ctor_get(x_6, 1); -lean_inc(x_7); -lean_dec(x_6); -x_8 = lean_box(0); -x_9 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_9, 0, x_7); -lean_ctor_set(x_9, 1, x_8); -lean_ctor_set(x_4, 0, x_9); -return x_4; +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_5, 0); +x_8 = lean_ctor_get(x_7, 1); +lean_inc(x_8); +lean_dec(x_7); +x_9 = lean_box(0); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_8); +lean_ctor_set(x_10, 1, x_9); +lean_ctor_set(x_5, 0, x_10); +return x_5; } else { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_10 = lean_ctor_get(x_4, 0); -x_11 = lean_ctor_get(x_4, 1); -lean_inc(x_11); -lean_inc(x_10); -lean_dec(x_4); -x_12 = lean_ctor_get(x_10, 1); +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_11 = lean_ctor_get(x_5, 0); +x_12 = lean_ctor_get(x_5, 1); lean_inc(x_12); -lean_dec(x_10); -x_13 = lean_box(0); -x_14 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_14, 0, x_12); -lean_ctor_set(x_14, 1, x_13); -x_15 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_15, 0, x_14); -lean_ctor_set(x_15, 1, x_11); -return x_15; +lean_inc(x_11); +lean_dec(x_5); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = lean_box(0); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_12); +return x_16; } } else { -uint8_t x_16; -x_16 = !lean_is_exclusive(x_4); -if (x_16 == 0) +uint8_t x_17; +x_17 = !lean_is_exclusive(x_5); +if (x_17 == 0) { -return x_4; +return x_5; } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_4, 0); -x_18 = lean_ctor_get(x_4, 1); +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_5, 0); +x_19 = lean_ctor_get(x_5, 1); +lean_inc(x_19); lean_inc(x_18); -lean_inc(x_17); -lean_dec(x_4); -x_19 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_19, 0, x_17); -lean_ctor_set(x_19, 1, x_18); -return x_19; +lean_dec(x_5); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Term.c b/stage0/stdlib/Init/Lean/Elab/Term.c index 472b84cbf4..6203000813 100644 --- a/stage0/stdlib/Init/Lean/Elab/Term.c +++ b/stage0/stdlib/Init/Lean/Elab/Term.c @@ -43,7 +43,6 @@ lean_object* l_Lean_Elab_Term_elabArrayLit___closed__8; lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabImplicitLambdaAux___closed__1; lean_object* l_Lean_Elab_Term_elabRawStrLit(lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabRawCharLit___closed__3; lean_object* l_PersistentArray_foldlMAux___main___at___private_Init_Lean_Elab_Term_3__fromMetaState___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); @@ -194,7 +193,6 @@ lean_object* l_Lean_Elab_Term_logTrace___boxed(lean_object*, lean_object*, lean_ extern lean_object* l_Lean_Expr_getAppArgs___closed__1; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Term_3__fromMetaState___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_registerBuiltinTermElabAttr___lambda__1___closed__3; -lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; uint8_t l___private_Init_Lean_Elab_Term_11__isExplicit(lean_object*); lean_object* l_Lean_Elab_Term_isTypeFormer(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_withIncRecDepth(lean_object*); @@ -238,7 +236,6 @@ lean_object* l_Lean_Elab_Term_mkFreshExprMVar___boxed(lean_object*, lean_object* lean_object* l_Lean_Elab_Term_LVal_hasToString(lean_object*); lean_object* l_Lean_Elab_Term_elabImplicitLambda___main(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__7; -lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2; lean_object* l_Lean_Elab_Term_trace___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Lean_Elab_Term_elabBadCDot___closed__1; @@ -400,6 +397,7 @@ lean_object* l___private_Init_Lean_Elab_Term_13__tryCoeSort___boxed(lean_object* lean_object* l___private_Init_Lean_Elab_Term_1__mkMessageAux(lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Elab_Term_monadQuotation___closed__1; lean_object* l___private_Init_Lean_Elab_Term_13__tryCoeSort___closed__1; +extern lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; lean_object* l_Lean_Elab_Term_elabTypeStx(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__3; lean_object* l_Lean_Elab_Term_monadLog___closed__6; @@ -805,6 +803,7 @@ lean_object* l_Lean_Elab_Term_elabNum(lean_object*, lean_object*, lean_object*, lean_object* l___private_Init_Lean_Elab_Term_3__fromMetaState(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabListLit___closed__3; extern lean_object* l_Lean_Unhygienic_run___rarg___closed__1; +extern lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__5; lean_object* l_Lean_mkNatLit(lean_object*); lean_object* l_Lean_mkStrLit(lean_object*); lean_object* l_Lean_Elab_Term_addContext(lean_object*, lean_object*, lean_object*); @@ -10944,24 +10943,6 @@ x_4 = lean_box(x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("_a"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg(lean_object* x_1) { _start: { @@ -10974,7 +10955,7 @@ x_3 = lean_ctor_get(x_1, 4); x_4 = lean_unsigned_to_nat(1u); x_5 = lean_nat_add(x_3, x_4); lean_ctor_set(x_1, 4, x_5); -x_6 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2; +x_6 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; x_7 = l_Lean_Name_appendIndexAfter(x_6, x_3); x_8 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_8, 0, x_7); @@ -11006,7 +10987,7 @@ lean_ctor_set(x_17, 2, x_11); lean_ctor_set(x_17, 3, x_12); lean_ctor_set(x_17, 4, x_16); lean_ctor_set(x_17, 5, x_14); -x_18 = l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2; +x_18 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; x_19 = l_Lean_Name_appendIndexAfter(x_18, x_13); x_20 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_20, 0, x_19); @@ -15724,7 +15705,7 @@ x_78 = l_Lean_mkConst(x_77, x_76); x_79 = l_Lean_Parser_declareBuiltinParser___closed__8; lean_inc(x_24); x_80 = lean_array_push(x_79, x_24); -x_81 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; +x_81 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; x_82 = lean_array_push(x_80, x_81); lean_inc(x_15); x_83 = lean_array_push(x_82, x_15); @@ -28451,10 +28432,6 @@ l_Lean_Elab_Term_levelMVarToParam___closed__1 = _init_l_Lean_Elab_Term_levelMVar lean_mark_persistent(l_Lean_Elab_Term_levelMVarToParam___closed__1); l_Lean_Elab_Term_levelMVarToParam___closed__2 = _init_l_Lean_Elab_Term_levelMVarToParam___closed__2(); lean_mark_persistent(l_Lean_Elab_Term_levelMVarToParam___closed__2); -l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1 = _init_l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1(); -lean_mark_persistent(l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__1); -l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2 = _init_l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2(); -lean_mark_persistent(l_Lean_Elab_Term_mkFreshAnonymousName___rarg___closed__2); l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__1 = _init_l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__1(); lean_mark_persistent(l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__1); l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__2 = _init_l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__2(); diff --git a/stage0/stdlib/Init/Lean/LocalContext.c b/stage0/stdlib/Init/Lean/LocalContext.c index b95dcdb6b4..91033fbdef 100644 --- a/stage0/stdlib/Init/Lean/LocalContext.c +++ b/stage0/stdlib/Init/Lean/LocalContext.c @@ -292,6 +292,7 @@ lean_object* l_PersistentArray_findSomeRevMAux___main___at_Lean_LocalContext_fin lean_object* l_Array_iterateMAux___main___at_Lean_LocalContext_foldlFrom___spec__8___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalContext_get_x21___closed__2; lean_object* l_Array_anyRangeMAux___main___at_Lean_LocalContext_anyM___spec__3(lean_object*); +lean_object* l_Lean_LocalContext_addDecl(lean_object*, lean_object*); lean_object* l_Lean_LocalContext_any___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_LocalContext_1__popTailNoneAux(lean_object*); lean_object* l_Lean_LocalContext_mkLambda(lean_object*, lean_object*, lean_object*); @@ -1406,6 +1407,51 @@ return x_21; } } } +lean_object* l_Lean_LocalContext_addDecl(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_LocalDecl_fvarId(x_2); +lean_inc(x_2); +x_7 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_4, x_6, x_2); +x_8 = l_Lean_LocalDecl_index(x_2); +x_9 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_9, 0, x_2); +x_10 = l_PersistentArray_set___rarg(x_5, x_8, x_9); +lean_dec(x_8); +lean_ctor_set(x_1, 1, x_10); +lean_ctor_set(x_1, 0, x_7); +return x_1; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_11 = lean_ctor_get(x_1, 0); +x_12 = lean_ctor_get(x_1, 1); +lean_inc(x_12); +lean_inc(x_11); +lean_dec(x_1); +x_13 = l_Lean_LocalDecl_fvarId(x_2); +lean_inc(x_2); +x_14 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_11, x_13, x_2); +x_15 = l_Lean_LocalDecl_index(x_2); +x_16 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_16, 0, x_2); +x_17 = l_PersistentArray_set___rarg(x_12, x_15, x_16); +lean_dec(x_15); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_14); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +} lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_LocalContext_find_x3f___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -1612,7 +1658,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l_Lean_LocalDecl_value___closed__1; -x_2 = lean_unsigned_to_nat(107u); +x_2 = lean_unsigned_to_nat(112u); x_3 = lean_unsigned_to_nat(12u); x_4 = l_Lean_LocalContext_get_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5195,7 +5241,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l_Lean_LocalDecl_value___closed__1; -x_2 = lean_unsigned_to_nat(273u); +x_2 = lean_unsigned_to_nat(278u); x_3 = lean_unsigned_to_nat(12u); x_4 = l_Lean_LocalContext_get_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 bb309e86cf..91aa9f6ca6 100644 --- a/stage0/stdlib/Init/Lean/Meta/AppBuilder.c +++ b/stage0/stdlib/Init/Lean/Meta/AppBuilder.c @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* l_Lean_Expr_eq_x3f___closed__1; +lean_object* l_Lean_Expr_iff_x3f(lean_object*); lean_object* l___private_Init_Lean_Util_Trace_2__addNode___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l_Lean_Expr_mvarId_x21(lean_object*); @@ -38,6 +39,7 @@ 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_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; lean_object* lean_nat_add(lean_object*, lean_object*); @@ -53,10 +55,13 @@ lean_object* l_Lean_Meta_mkCongrArg___closed__1; lean_object* l_Lean_Meta_mkEqSymm___closed__2; lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); 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_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_Expr_iff_x3f___closed__2; lean_object* l_Lean_Expr_heq_x3f(lean_object*); lean_object* lean_instantiate_type_lparams(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqRec___closed__2; @@ -64,14 +69,17 @@ lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__ lean_object* l_Lean_Meta_mkHEqRefl___closed__1; lean_object* l_Lean_Expr_eq_x3f(lean_object*); lean_object* l_Lean_Meta_mkEqTrans___closed__1; +lean_object* l_Lean_Expr_iff_x3f___boxed(lean_object*); lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqRec___closed__1; lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqNDRec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_iff_x3f___closed__1; lean_object* l_Lean_Meta_mkEqTrans___closed__2; lean_object* l_Lean_Meta_mkCongrFun___closed__1; 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_Lean_Meta_mkEqNDRec___closed__4; uint8_t l_Lean_Expr_isForall(lean_object*); @@ -98,6 +106,7 @@ lean_object* l_Lean_mkApp5(lean_object*, lean_object*, lean_object*, lean_object lean_object* l_Lean_Meta_mkAppM___closed__1; lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_incDepth(lean_object*); +lean_object* l_Lean_Meta_mkEqMPR(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqTrans(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkHEqTrans(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkApp4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -105,6 +114,7 @@ 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_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*); @@ -203,6 +213,70 @@ lean_dec(x_1); return x_2; } } +lean_object* _init_l_Lean_Expr_iff_x3f___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Iff"); +return x_1; +} +} +lean_object* _init_l_Lean_Expr_iff_x3f___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Expr_iff_x3f___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Expr_iff_x3f(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; +x_2 = l_Lean_Expr_iff_x3f___closed__2; +x_3 = lean_unsigned_to_nat(2u); +x_4 = l_Lean_Expr_isAppOfArity___main(x_1, x_2, x_3); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = lean_box(0); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = lean_nat_sub(x_7, x_9); +lean_dec(x_7); +x_13 = lean_nat_sub(x_12, x_9); +lean_dec(x_12); +x_14 = l_Lean_Expr_getRevArg_x21___main(x_1, x_13); +x_15 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_15, 0, x_11); +lean_ctor_set(x_15, 1, x_14); +x_16 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_16, 0, x_15); +return x_16; +} +} +} +lean_object* l_Lean_Expr_iff_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Expr_iff_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} lean_object* _init_l_Lean_Expr_heq_x3f___closed__1() { _start: { @@ -8552,6 +8626,68 @@ return x_216; } } } +lean_object* _init_l_Lean_Meta_mkEqMP___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("mp"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkEqMP___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_eq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqMP___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkEqMP(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = l_Lean_mkAppStx___closed__9; +x_6 = lean_array_push(x_5, x_1); +x_7 = lean_array_push(x_6, x_2); +x_8 = l_Lean_Meta_mkEqMP___closed__2; +x_9 = l_Lean_Meta_mkAppM(x_8, x_7, x_3, x_4); +lean_dec(x_7); +return x_9; +} +} +lean_object* _init_l_Lean_Meta_mkEqMPR___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("mpr"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkEqMPR___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_eq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqMPR___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkEqMPR(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_5 = l_Lean_mkAppStx___closed__9; +x_6 = lean_array_push(x_5, x_1); +x_7 = lean_array_push(x_6, x_2); +x_8 = l_Lean_Meta_mkEqMPR___closed__2; +x_9 = l_Lean_Meta_mkAppM(x_8, x_7, x_3, x_4); +lean_dec(x_7); +return x_9; +} +} lean_object* initialize_Init_Default(lean_object*); lean_object* initialize_Init_Lean_Meta_SynthInstance(lean_object*); static bool _G_initialized = false; @@ -8569,6 +8705,10 @@ l_Lean_Expr_eq_x3f___closed__1 = _init_l_Lean_Expr_eq_x3f___closed__1(); lean_mark_persistent(l_Lean_Expr_eq_x3f___closed__1); l_Lean_Expr_eq_x3f___closed__2 = _init_l_Lean_Expr_eq_x3f___closed__2(); lean_mark_persistent(l_Lean_Expr_eq_x3f___closed__2); +l_Lean_Expr_iff_x3f___closed__1 = _init_l_Lean_Expr_iff_x3f___closed__1(); +lean_mark_persistent(l_Lean_Expr_iff_x3f___closed__1); +l_Lean_Expr_iff_x3f___closed__2 = _init_l_Lean_Expr_iff_x3f___closed__2(); +lean_mark_persistent(l_Lean_Expr_iff_x3f___closed__2); l_Lean_Expr_heq_x3f___closed__1 = _init_l_Lean_Expr_heq_x3f___closed__1(); lean_mark_persistent(l_Lean_Expr_heq_x3f___closed__1); l_Lean_Expr_heq_x3f___closed__2 = _init_l_Lean_Expr_heq_x3f___closed__2(); @@ -8633,6 +8773,14 @@ l_Lean_Meta_mkEqRec___closed__1 = _init_l_Lean_Meta_mkEqRec___closed__1(); lean_mark_persistent(l_Lean_Meta_mkEqRec___closed__1); l_Lean_Meta_mkEqRec___closed__2 = _init_l_Lean_Meta_mkEqRec___closed__2(); lean_mark_persistent(l_Lean_Meta_mkEqRec___closed__2); +l_Lean_Meta_mkEqMP___closed__1 = _init_l_Lean_Meta_mkEqMP___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkEqMP___closed__1); +l_Lean_Meta_mkEqMP___closed__2 = _init_l_Lean_Meta_mkEqMP___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkEqMP___closed__2); +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); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/Basic.c b/stage0/stdlib/Init/Lean/Meta/Basic.c index 1b87a02f79..bbceba956b 100644 --- a/stage0/stdlib/Init/Lean/Meta/Basic.c +++ b/stage0/stdlib/Init/Lean/Meta/Basic.c @@ -54,6 +54,7 @@ lean_object* l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__1; lean_object* l_Lean_Meta_mkFreshExprMVarAt___boxed(lean_object*, lean_object*, lean_object*, 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___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux(lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_local_ctx_mk_let_decl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_bind___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_forallMetaTelescope___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -135,7 +136,6 @@ lean_object* l___private_Init_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux_ lean_object* l_Lean_Meta_getEnv___rarg(lean_object*); lean_object* l_Lean_MetavarContext_hasAssignableMVar___main(lean_object*, lean_object*); lean_object* l_Lean_Meta_getConfig___boxed(lean_object*, lean_object*); -uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_metavar_ctx_is_expr_assigned(lean_object*, lean_object*); extern lean_object* l_Lean_LocalContext_Inhabited___closed__2; lean_object* l_Lean_Meta_shouldReduceAll(lean_object*, lean_object*); @@ -185,6 +185,7 @@ lean_object* l_Lean_Meta_dbgTrace___rarg___lambda__1___boxed(lean_object*, lean_ lean_object* l_Lean_Expr_fvarId_x21(lean_object*); lean_object* l_Lean_Meta_withTransparency(lean_object*); lean_object* l_Lean_Meta_tracer___closed__5; +lean_object* l_Lean_Meta_withLocalContext___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkSynthPendingRef___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkForallUsedOnly(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_2__getTraceState___rarg(lean_object*); @@ -212,6 +213,7 @@ lean_object* l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1(lean lean_object* l_Lean_Meta_InfoCacheKey_HasBeq___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_setMVarKind(lean_object*, uint8_t, lean_object*, lean_object*); extern lean_object* l_PersistentArray_empty___closed__3; +uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_runMeta___rarg___closed__3; lean_object* l_Lean_Meta_lambdaMetaTelescope(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*); @@ -320,6 +322,7 @@ lean_object* l_Lean_Meta_withNewLocalInstances___main___at___private_Init_Lean_M lean_object* l_Lean_Meta_whnfRef; lean_object* l_Lean_Meta_synthPending(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_MetaExtState_inhabited___closed__3; +lean_object* l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isExprDefEqAuxRef; lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at_Lean_Meta_forallBoundedTelescope___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_TransparencyMode_HasBeq; @@ -399,7 +402,6 @@ lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Meta_mkMetaExtension___ lean_object* l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; lean_object* l_Lean_Meta_TransparencyMode_hash___boxed(lean_object*); lean_object* l_Lean_Meta_isReadOnlyOrSyntheticOpaqueExprMVar(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMCtx(lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); @@ -440,6 +442,7 @@ extern lean_object* l_Lean_NameGenerator_Inhabited___closed__3; lean_object* l___private_Init_Lean_Meta_Basic_8__lambdaMetaTelescopeAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Meta_mkMetaExtension___spec__1___closed__1; lean_object* l_Lean_Meta_getFVarLocalDecl___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalContext(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getConstAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -46558,7 +46561,7 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Meta_withNewMCtxDepth___rarg), 3, 0); return x_2; } } -uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___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) { +uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___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; @@ -46600,6 +46603,808 @@ goto _start; } } } +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; +x_6 = lean_ctor_get(x_4, 0); +x_7 = lean_ctor_get(x_4, 2); +x_8 = lean_ctor_get(x_4, 3); +x_9 = lean_ctor_get(x_4, 4); +x_10 = lean_array_get_size(x_2); +x_11 = lean_array_get_size(x_7); +x_12 = lean_nat_dec_eq(x_10, x_11); +lean_dec(x_11); +lean_dec(x_10); +lean_inc(x_9); +lean_inc(x_8); +lean_inc(x_2); +lean_inc(x_6); +x_13 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_13, 0, x_6); +lean_ctor_set(x_13, 1, x_1); +lean_ctor_set(x_13, 2, x_2); +lean_ctor_set(x_13, 3, x_8); +lean_ctor_set(x_13, 4, x_9); +if (x_12 == 0) +{ +lean_object* x_174; +lean_dec(x_2); +x_174 = lean_box(0); +x_14 = x_174; +goto block_173; +} +else +{ +lean_object* x_175; uint8_t x_176; +x_175 = lean_unsigned_to_nat(0u); +x_176 = l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___spec__1(x_2, x_4, lean_box(0), x_2, x_7, x_175); +lean_dec(x_2); +if (x_176 == 0) +{ +lean_object* x_177; +x_177 = lean_box(0); +x_14 = x_177; +goto block_173; +} +else +{ +lean_object* x_178; +x_178 = lean_apply_2(x_3, x_13, x_5); +return x_178; +} +} +block_173: +{ +uint8_t x_15; +lean_dec(x_14); +x_15 = !lean_is_exclusive(x_5); +if (x_15 == 0) +{ +lean_object* x_16; uint8_t x_17; +x_16 = lean_ctor_get(x_5, 2); +x_17 = !lean_is_exclusive(x_16); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_16, 2); +x_19 = l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; +lean_ctor_set(x_16, 2, x_19); +x_20 = lean_apply_2(x_3, x_13, x_5); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; lean_object* x_22; uint8_t x_23; +x_21 = lean_ctor_get(x_20, 1); +lean_inc(x_21); +x_22 = lean_ctor_get(x_21, 2); +lean_inc(x_22); +x_23 = !lean_is_exclusive(x_20); +if (x_23 == 0) +{ +lean_object* x_24; uint8_t x_25; +x_24 = lean_ctor_get(x_20, 1); +lean_dec(x_24); +x_25 = !lean_is_exclusive(x_21); +if (x_25 == 0) +{ +lean_object* x_26; uint8_t x_27; +x_26 = lean_ctor_get(x_21, 2); +lean_dec(x_26); +x_27 = !lean_is_exclusive(x_22); +if (x_27 == 0) +{ +lean_object* x_28; +x_28 = lean_ctor_get(x_22, 2); +lean_dec(x_28); +lean_ctor_set(x_22, 2, x_18); +return x_20; +} +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(0, 3, 0); +lean_ctor_set(x_31, 0, x_29); +lean_ctor_set(x_31, 1, x_30); +lean_ctor_set(x_31, 2, x_18); +lean_ctor_set(x_21, 2, x_31); +return x_20; +} +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_32 = lean_ctor_get(x_21, 0); +x_33 = lean_ctor_get(x_21, 1); +x_34 = lean_ctor_get(x_21, 3); +x_35 = lean_ctor_get(x_21, 4); +x_36 = lean_ctor_get(x_21, 5); +lean_inc(x_36); +lean_inc(x_35); +lean_inc(x_34); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_21); +x_37 = lean_ctor_get(x_22, 0); +lean_inc(x_37); +x_38 = lean_ctor_get(x_22, 1); +lean_inc(x_38); +if (lean_is_exclusive(x_22)) { + lean_ctor_release(x_22, 0); + lean_ctor_release(x_22, 1); + lean_ctor_release(x_22, 2); + x_39 = x_22; +} else { + lean_dec_ref(x_22); + x_39 = lean_box(0); +} +if (lean_is_scalar(x_39)) { + x_40 = lean_alloc_ctor(0, 3, 0); +} else { + x_40 = x_39; +} +lean_ctor_set(x_40, 0, x_37); +lean_ctor_set(x_40, 1, x_38); +lean_ctor_set(x_40, 2, x_18); +x_41 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_41, 0, x_32); +lean_ctor_set(x_41, 1, x_33); +lean_ctor_set(x_41, 2, x_40); +lean_ctor_set(x_41, 3, x_34); +lean_ctor_set(x_41, 4, x_35); +lean_ctor_set(x_41, 5, x_36); +lean_ctor_set(x_20, 1, x_41); +return x_20; +} +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_42 = lean_ctor_get(x_20, 0); +lean_inc(x_42); +lean_dec(x_20); +x_43 = lean_ctor_get(x_21, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_21, 1); +lean_inc(x_44); +x_45 = lean_ctor_get(x_21, 3); +lean_inc(x_45); +x_46 = lean_ctor_get(x_21, 4); +lean_inc(x_46); +x_47 = lean_ctor_get(x_21, 5); +lean_inc(x_47); +if (lean_is_exclusive(x_21)) { + lean_ctor_release(x_21, 0); + lean_ctor_release(x_21, 1); + lean_ctor_release(x_21, 2); + lean_ctor_release(x_21, 3); + lean_ctor_release(x_21, 4); + lean_ctor_release(x_21, 5); + x_48 = x_21; +} else { + lean_dec_ref(x_21); + x_48 = lean_box(0); +} +x_49 = lean_ctor_get(x_22, 0); +lean_inc(x_49); +x_50 = lean_ctor_get(x_22, 1); +lean_inc(x_50); +if (lean_is_exclusive(x_22)) { + lean_ctor_release(x_22, 0); + lean_ctor_release(x_22, 1); + lean_ctor_release(x_22, 2); + x_51 = x_22; +} else { + lean_dec_ref(x_22); + x_51 = lean_box(0); +} +if (lean_is_scalar(x_51)) { + x_52 = lean_alloc_ctor(0, 3, 0); +} else { + x_52 = x_51; +} +lean_ctor_set(x_52, 0, x_49); +lean_ctor_set(x_52, 1, x_50); +lean_ctor_set(x_52, 2, x_18); +if (lean_is_scalar(x_48)) { + x_53 = lean_alloc_ctor(0, 6, 0); +} else { + x_53 = x_48; +} +lean_ctor_set(x_53, 0, x_43); +lean_ctor_set(x_53, 1, x_44); +lean_ctor_set(x_53, 2, x_52); +lean_ctor_set(x_53, 3, x_45); +lean_ctor_set(x_53, 4, x_46); +lean_ctor_set(x_53, 5, x_47); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_42); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +else +{ +lean_object* x_55; lean_object* x_56; uint8_t x_57; +x_55 = lean_ctor_get(x_20, 1); +lean_inc(x_55); +x_56 = lean_ctor_get(x_55, 2); +lean_inc(x_56); +x_57 = !lean_is_exclusive(x_20); +if (x_57 == 0) +{ +lean_object* x_58; uint8_t x_59; +x_58 = lean_ctor_get(x_20, 1); +lean_dec(x_58); +x_59 = !lean_is_exclusive(x_55); +if (x_59 == 0) +{ +lean_object* x_60; uint8_t x_61; +x_60 = lean_ctor_get(x_55, 2); +lean_dec(x_60); +x_61 = !lean_is_exclusive(x_56); +if (x_61 == 0) +{ +lean_object* x_62; +x_62 = lean_ctor_get(x_56, 2); +lean_dec(x_62); +lean_ctor_set(x_56, 2, x_18); +return x_20; +} +else +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; +x_63 = lean_ctor_get(x_56, 0); +x_64 = lean_ctor_get(x_56, 1); +lean_inc(x_64); +lean_inc(x_63); +lean_dec(x_56); +x_65 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_65, 0, x_63); +lean_ctor_set(x_65, 1, x_64); +lean_ctor_set(x_65, 2, x_18); +lean_ctor_set(x_55, 2, x_65); +return x_20; +} +} +else +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; +x_66 = lean_ctor_get(x_55, 0); +x_67 = lean_ctor_get(x_55, 1); +x_68 = lean_ctor_get(x_55, 3); +x_69 = lean_ctor_get(x_55, 4); +x_70 = lean_ctor_get(x_55, 5); +lean_inc(x_70); +lean_inc(x_69); +lean_inc(x_68); +lean_inc(x_67); +lean_inc(x_66); +lean_dec(x_55); +x_71 = lean_ctor_get(x_56, 0); +lean_inc(x_71); +x_72 = lean_ctor_get(x_56, 1); +lean_inc(x_72); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + lean_ctor_release(x_56, 1); + lean_ctor_release(x_56, 2); + x_73 = x_56; +} else { + lean_dec_ref(x_56); + x_73 = lean_box(0); +} +if (lean_is_scalar(x_73)) { + x_74 = lean_alloc_ctor(0, 3, 0); +} else { + x_74 = x_73; +} +lean_ctor_set(x_74, 0, x_71); +lean_ctor_set(x_74, 1, x_72); +lean_ctor_set(x_74, 2, x_18); +x_75 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_75, 0, x_66); +lean_ctor_set(x_75, 1, x_67); +lean_ctor_set(x_75, 2, x_74); +lean_ctor_set(x_75, 3, x_68); +lean_ctor_set(x_75, 4, x_69); +lean_ctor_set(x_75, 5, x_70); +lean_ctor_set(x_20, 1, x_75); +return x_20; +} +} +else +{ +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_76 = lean_ctor_get(x_20, 0); +lean_inc(x_76); +lean_dec(x_20); +x_77 = lean_ctor_get(x_55, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_55, 1); +lean_inc(x_78); +x_79 = lean_ctor_get(x_55, 3); +lean_inc(x_79); +x_80 = lean_ctor_get(x_55, 4); +lean_inc(x_80); +x_81 = lean_ctor_get(x_55, 5); +lean_inc(x_81); +if (lean_is_exclusive(x_55)) { + lean_ctor_release(x_55, 0); + lean_ctor_release(x_55, 1); + lean_ctor_release(x_55, 2); + lean_ctor_release(x_55, 3); + lean_ctor_release(x_55, 4); + lean_ctor_release(x_55, 5); + x_82 = x_55; +} else { + lean_dec_ref(x_55); + x_82 = lean_box(0); +} +x_83 = lean_ctor_get(x_56, 0); +lean_inc(x_83); +x_84 = lean_ctor_get(x_56, 1); +lean_inc(x_84); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + lean_ctor_release(x_56, 1); + lean_ctor_release(x_56, 2); + x_85 = x_56; +} else { + lean_dec_ref(x_56); + x_85 = lean_box(0); +} +if (lean_is_scalar(x_85)) { + x_86 = lean_alloc_ctor(0, 3, 0); +} else { + x_86 = x_85; +} +lean_ctor_set(x_86, 0, x_83); +lean_ctor_set(x_86, 1, x_84); +lean_ctor_set(x_86, 2, x_18); +if (lean_is_scalar(x_82)) { + x_87 = lean_alloc_ctor(0, 6, 0); +} else { + x_87 = x_82; +} +lean_ctor_set(x_87, 0, x_77); +lean_ctor_set(x_87, 1, x_78); +lean_ctor_set(x_87, 2, x_86); +lean_ctor_set(x_87, 3, x_79); +lean_ctor_set(x_87, 4, x_80); +lean_ctor_set(x_87, 5, x_81); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_76); +lean_ctor_set(x_88, 1, x_87); +return x_88; +} +} +} +else +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_89 = lean_ctor_get(x_16, 0); +x_90 = lean_ctor_get(x_16, 1); +x_91 = lean_ctor_get(x_16, 2); +lean_inc(x_91); +lean_inc(x_90); +lean_inc(x_89); +lean_dec(x_16); +x_92 = l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; +x_93 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_93, 0, x_89); +lean_ctor_set(x_93, 1, x_90); +lean_ctor_set(x_93, 2, x_92); +lean_ctor_set(x_5, 2, x_93); +x_94 = lean_apply_2(x_3, x_13, x_5); +if (lean_obj_tag(x_94) == 0) +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; +x_95 = lean_ctor_get(x_94, 1); +lean_inc(x_95); +x_96 = lean_ctor_get(x_95, 2); +lean_inc(x_96); +x_97 = lean_ctor_get(x_94, 0); +lean_inc(x_97); +if (lean_is_exclusive(x_94)) { + lean_ctor_release(x_94, 0); + lean_ctor_release(x_94, 1); + x_98 = x_94; +} else { + lean_dec_ref(x_94); + x_98 = lean_box(0); +} +x_99 = lean_ctor_get(x_95, 0); +lean_inc(x_99); +x_100 = lean_ctor_get(x_95, 1); +lean_inc(x_100); +x_101 = lean_ctor_get(x_95, 3); +lean_inc(x_101); +x_102 = lean_ctor_get(x_95, 4); +lean_inc(x_102); +x_103 = lean_ctor_get(x_95, 5); +lean_inc(x_103); +if (lean_is_exclusive(x_95)) { + lean_ctor_release(x_95, 0); + lean_ctor_release(x_95, 1); + lean_ctor_release(x_95, 2); + lean_ctor_release(x_95, 3); + lean_ctor_release(x_95, 4); + lean_ctor_release(x_95, 5); + x_104 = x_95; +} else { + lean_dec_ref(x_95); + x_104 = lean_box(0); +} +x_105 = lean_ctor_get(x_96, 0); +lean_inc(x_105); +x_106 = lean_ctor_get(x_96, 1); +lean_inc(x_106); +if (lean_is_exclusive(x_96)) { + lean_ctor_release(x_96, 0); + lean_ctor_release(x_96, 1); + lean_ctor_release(x_96, 2); + x_107 = x_96; +} else { + lean_dec_ref(x_96); + x_107 = lean_box(0); +} +if (lean_is_scalar(x_107)) { + x_108 = lean_alloc_ctor(0, 3, 0); +} else { + x_108 = x_107; +} +lean_ctor_set(x_108, 0, x_105); +lean_ctor_set(x_108, 1, x_106); +lean_ctor_set(x_108, 2, x_91); +if (lean_is_scalar(x_104)) { + x_109 = lean_alloc_ctor(0, 6, 0); +} else { + x_109 = x_104; +} +lean_ctor_set(x_109, 0, x_99); +lean_ctor_set(x_109, 1, x_100); +lean_ctor_set(x_109, 2, x_108); +lean_ctor_set(x_109, 3, x_101); +lean_ctor_set(x_109, 4, x_102); +lean_ctor_set(x_109, 5, x_103); +if (lean_is_scalar(x_98)) { + x_110 = lean_alloc_ctor(0, 2, 0); +} else { + x_110 = x_98; +} +lean_ctor_set(x_110, 0, x_97); +lean_ctor_set(x_110, 1, x_109); +return x_110; +} +else +{ +lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_111 = lean_ctor_get(x_94, 1); +lean_inc(x_111); +x_112 = lean_ctor_get(x_111, 2); +lean_inc(x_112); +x_113 = lean_ctor_get(x_94, 0); +lean_inc(x_113); +if (lean_is_exclusive(x_94)) { + lean_ctor_release(x_94, 0); + lean_ctor_release(x_94, 1); + x_114 = x_94; +} else { + lean_dec_ref(x_94); + x_114 = lean_box(0); +} +x_115 = lean_ctor_get(x_111, 0); +lean_inc(x_115); +x_116 = lean_ctor_get(x_111, 1); +lean_inc(x_116); +x_117 = lean_ctor_get(x_111, 3); +lean_inc(x_117); +x_118 = lean_ctor_get(x_111, 4); +lean_inc(x_118); +x_119 = lean_ctor_get(x_111, 5); +lean_inc(x_119); +if (lean_is_exclusive(x_111)) { + lean_ctor_release(x_111, 0); + lean_ctor_release(x_111, 1); + lean_ctor_release(x_111, 2); + lean_ctor_release(x_111, 3); + lean_ctor_release(x_111, 4); + lean_ctor_release(x_111, 5); + x_120 = x_111; +} else { + lean_dec_ref(x_111); + x_120 = lean_box(0); +} +x_121 = lean_ctor_get(x_112, 0); +lean_inc(x_121); +x_122 = lean_ctor_get(x_112, 1); +lean_inc(x_122); +if (lean_is_exclusive(x_112)) { + lean_ctor_release(x_112, 0); + lean_ctor_release(x_112, 1); + lean_ctor_release(x_112, 2); + x_123 = x_112; +} else { + lean_dec_ref(x_112); + x_123 = lean_box(0); +} +if (lean_is_scalar(x_123)) { + x_124 = lean_alloc_ctor(0, 3, 0); +} else { + x_124 = x_123; +} +lean_ctor_set(x_124, 0, x_121); +lean_ctor_set(x_124, 1, x_122); +lean_ctor_set(x_124, 2, x_91); +if (lean_is_scalar(x_120)) { + x_125 = lean_alloc_ctor(0, 6, 0); +} else { + x_125 = x_120; +} +lean_ctor_set(x_125, 0, x_115); +lean_ctor_set(x_125, 1, x_116); +lean_ctor_set(x_125, 2, x_124); +lean_ctor_set(x_125, 3, x_117); +lean_ctor_set(x_125, 4, x_118); +lean_ctor_set(x_125, 5, x_119); +if (lean_is_scalar(x_114)) { + x_126 = lean_alloc_ctor(1, 2, 0); +} else { + x_126 = x_114; +} +lean_ctor_set(x_126, 0, x_113); +lean_ctor_set(x_126, 1, x_125); +return x_126; +} +} +} +else +{ +lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_127 = lean_ctor_get(x_5, 2); +x_128 = lean_ctor_get(x_5, 0); +x_129 = lean_ctor_get(x_5, 1); +x_130 = lean_ctor_get(x_5, 3); +x_131 = lean_ctor_get(x_5, 4); +x_132 = lean_ctor_get(x_5, 5); +lean_inc(x_132); +lean_inc(x_131); +lean_inc(x_130); +lean_inc(x_127); +lean_inc(x_129); +lean_inc(x_128); +lean_dec(x_5); +x_133 = lean_ctor_get(x_127, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_127, 1); +lean_inc(x_134); +x_135 = lean_ctor_get(x_127, 2); +lean_inc(x_135); +if (lean_is_exclusive(x_127)) { + lean_ctor_release(x_127, 0); + lean_ctor_release(x_127, 1); + lean_ctor_release(x_127, 2); + x_136 = x_127; +} else { + lean_dec_ref(x_127); + x_136 = lean_box(0); +} +x_137 = l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; +if (lean_is_scalar(x_136)) { + x_138 = lean_alloc_ctor(0, 3, 0); +} else { + x_138 = x_136; +} +lean_ctor_set(x_138, 0, x_133); +lean_ctor_set(x_138, 1, x_134); +lean_ctor_set(x_138, 2, x_137); +x_139 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_139, 0, x_128); +lean_ctor_set(x_139, 1, x_129); +lean_ctor_set(x_139, 2, x_138); +lean_ctor_set(x_139, 3, x_130); +lean_ctor_set(x_139, 4, x_131); +lean_ctor_set(x_139, 5, x_132); +x_140 = lean_apply_2(x_3, x_13, x_139); +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; 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_141 = lean_ctor_get(x_140, 1); +lean_inc(x_141); +x_142 = lean_ctor_get(x_141, 2); +lean_inc(x_142); +x_143 = lean_ctor_get(x_140, 0); +lean_inc(x_143); +if (lean_is_exclusive(x_140)) { + lean_ctor_release(x_140, 0); + lean_ctor_release(x_140, 1); + x_144 = x_140; +} else { + lean_dec_ref(x_140); + x_144 = lean_box(0); +} +x_145 = lean_ctor_get(x_141, 0); +lean_inc(x_145); +x_146 = lean_ctor_get(x_141, 1); +lean_inc(x_146); +x_147 = lean_ctor_get(x_141, 3); +lean_inc(x_147); +x_148 = lean_ctor_get(x_141, 4); +lean_inc(x_148); +x_149 = lean_ctor_get(x_141, 5); +lean_inc(x_149); +if (lean_is_exclusive(x_141)) { + lean_ctor_release(x_141, 0); + lean_ctor_release(x_141, 1); + lean_ctor_release(x_141, 2); + lean_ctor_release(x_141, 3); + lean_ctor_release(x_141, 4); + lean_ctor_release(x_141, 5); + x_150 = x_141; +} else { + lean_dec_ref(x_141); + x_150 = lean_box(0); +} +x_151 = lean_ctor_get(x_142, 0); +lean_inc(x_151); +x_152 = lean_ctor_get(x_142, 1); +lean_inc(x_152); +if (lean_is_exclusive(x_142)) { + lean_ctor_release(x_142, 0); + lean_ctor_release(x_142, 1); + lean_ctor_release(x_142, 2); + x_153 = x_142; +} else { + lean_dec_ref(x_142); + x_153 = lean_box(0); +} +if (lean_is_scalar(x_153)) { + x_154 = lean_alloc_ctor(0, 3, 0); +} else { + x_154 = x_153; +} +lean_ctor_set(x_154, 0, x_151); +lean_ctor_set(x_154, 1, x_152); +lean_ctor_set(x_154, 2, x_135); +if (lean_is_scalar(x_150)) { + x_155 = lean_alloc_ctor(0, 6, 0); +} else { + x_155 = x_150; +} +lean_ctor_set(x_155, 0, x_145); +lean_ctor_set(x_155, 1, x_146); +lean_ctor_set(x_155, 2, x_154); +lean_ctor_set(x_155, 3, x_147); +lean_ctor_set(x_155, 4, x_148); +lean_ctor_set(x_155, 5, x_149); +if (lean_is_scalar(x_144)) { + x_156 = lean_alloc_ctor(0, 2, 0); +} else { + x_156 = x_144; +} +lean_ctor_set(x_156, 0, x_143); +lean_ctor_set(x_156, 1, x_155); +return x_156; +} +else +{ +lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; +x_157 = lean_ctor_get(x_140, 1); +lean_inc(x_157); +x_158 = lean_ctor_get(x_157, 2); +lean_inc(x_158); +x_159 = lean_ctor_get(x_140, 0); +lean_inc(x_159); +if (lean_is_exclusive(x_140)) { + lean_ctor_release(x_140, 0); + lean_ctor_release(x_140, 1); + x_160 = x_140; +} else { + lean_dec_ref(x_140); + x_160 = lean_box(0); +} +x_161 = lean_ctor_get(x_157, 0); +lean_inc(x_161); +x_162 = lean_ctor_get(x_157, 1); +lean_inc(x_162); +x_163 = lean_ctor_get(x_157, 3); +lean_inc(x_163); +x_164 = lean_ctor_get(x_157, 4); +lean_inc(x_164); +x_165 = lean_ctor_get(x_157, 5); +lean_inc(x_165); +if (lean_is_exclusive(x_157)) { + lean_ctor_release(x_157, 0); + lean_ctor_release(x_157, 1); + lean_ctor_release(x_157, 2); + lean_ctor_release(x_157, 3); + lean_ctor_release(x_157, 4); + lean_ctor_release(x_157, 5); + x_166 = x_157; +} else { + lean_dec_ref(x_157); + x_166 = lean_box(0); +} +x_167 = lean_ctor_get(x_158, 0); +lean_inc(x_167); +x_168 = lean_ctor_get(x_158, 1); +lean_inc(x_168); +if (lean_is_exclusive(x_158)) { + lean_ctor_release(x_158, 0); + lean_ctor_release(x_158, 1); + lean_ctor_release(x_158, 2); + x_169 = x_158; +} else { + lean_dec_ref(x_158); + x_169 = lean_box(0); +} +if (lean_is_scalar(x_169)) { + x_170 = lean_alloc_ctor(0, 3, 0); +} else { + x_170 = x_169; +} +lean_ctor_set(x_170, 0, x_167); +lean_ctor_set(x_170, 1, x_168); +lean_ctor_set(x_170, 2, x_135); +if (lean_is_scalar(x_166)) { + x_171 = lean_alloc_ctor(0, 6, 0); +} else { + x_171 = x_166; +} +lean_ctor_set(x_171, 0, x_161); +lean_ctor_set(x_171, 1, x_162); +lean_ctor_set(x_171, 2, x_170); +lean_ctor_set(x_171, 3, x_163); +lean_ctor_set(x_171, 4, x_164); +lean_ctor_set(x_171, 5, x_165); +if (lean_is_scalar(x_160)) { + x_172 = lean_alloc_ctor(1, 2, 0); +} else { + x_172 = x_160; +} +lean_ctor_set(x_172, 0, x_159); +lean_ctor_set(x_172, 1, x_171); +return x_172; +} +} +} +} +} +lean_object* l_Lean_Meta_withLocalContext(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_withLocalContext___rarg___boxed), 5, 0); +return x_2; +} +} +lean_object* l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; lean_object* x_8; +x_7 = l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_8 = lean_box(x_7); +return x_8; +} +} +lean_object* l_Lean_Meta_withLocalContext___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_Meta_withLocalContext___rarg(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +return x_6; +} +} lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -46607,806 +47412,41 @@ lean_object* x_5; x_5 = l_Lean_Meta_getMVarDecl(x_1, x_3, x_4); if (lean_obj_tag(x_5) == 0) { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17; lean_object* x_18; +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; x_6 = lean_ctor_get(x_5, 0); lean_inc(x_6); x_7 = lean_ctor_get(x_5, 1); lean_inc(x_7); lean_dec(x_5); -x_8 = lean_ctor_get(x_3, 0); -x_9 = lean_ctor_get(x_3, 2); -x_10 = lean_ctor_get(x_3, 3); -x_11 = lean_ctor_get(x_3, 4); -x_12 = lean_ctor_get(x_6, 1); -lean_inc(x_12); -x_13 = lean_ctor_get(x_6, 4); -lean_inc(x_13); -x_14 = lean_array_get_size(x_9); -x_15 = lean_array_get_size(x_13); -x_16 = lean_nat_dec_eq(x_14, x_15); -lean_dec(x_15); -lean_dec(x_14); -lean_inc(x_11); -lean_inc(x_10); -lean_inc(x_13); +x_8 = lean_ctor_get(x_6, 1); lean_inc(x_8); -x_17 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_17, 0, x_8); -lean_ctor_set(x_17, 1, x_12); -lean_ctor_set(x_17, 2, x_13); -lean_ctor_set(x_17, 3, x_10); -lean_ctor_set(x_17, 4, x_11); -if (x_16 == 0) -{ -lean_object* x_178; -lean_dec(x_13); +x_9 = lean_ctor_get(x_6, 4); +lean_inc(x_9); lean_dec(x_6); -x_178 = lean_box(0); -x_18 = x_178; -goto block_177; +x_10 = l_Lean_Meta_withLocalContext___rarg(x_8, x_9, x_2, x_3, x_7); +return x_10; } else { -lean_object* x_179; uint8_t x_180; -x_179 = lean_unsigned_to_nat(0u); -x_180 = l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1(x_3, x_6, lean_box(0), x_9, x_13, x_179); -lean_dec(x_13); -lean_dec(x_6); -if (x_180 == 0) -{ -lean_object* x_181; -x_181 = lean_box(0); -x_18 = x_181; -goto block_177; -} -else -{ -lean_object* x_182; -x_182 = lean_apply_2(x_2, x_17, x_7); -return x_182; -} -} -block_177: -{ -uint8_t x_19; -lean_dec(x_18); -x_19 = !lean_is_exclusive(x_7); -if (x_19 == 0) -{ -lean_object* x_20; uint8_t x_21; -x_20 = lean_ctor_get(x_7, 2); -x_21 = !lean_is_exclusive(x_20); -if (x_21 == 0) -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; -x_22 = lean_ctor_get(x_20, 2); -x_23 = l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; -lean_ctor_set(x_20, 2, x_23); -x_24 = lean_apply_2(x_2, x_17, x_7); -if (lean_obj_tag(x_24) == 0) -{ -lean_object* x_25; lean_object* x_26; uint8_t x_27; -x_25 = lean_ctor_get(x_24, 1); -lean_inc(x_25); -x_26 = lean_ctor_get(x_25, 2); -lean_inc(x_26); -x_27 = !lean_is_exclusive(x_24); -if (x_27 == 0) -{ -lean_object* x_28; uint8_t x_29; -x_28 = lean_ctor_get(x_24, 1); -lean_dec(x_28); -x_29 = !lean_is_exclusive(x_25); -if (x_29 == 0) -{ -lean_object* x_30; uint8_t x_31; -x_30 = lean_ctor_get(x_25, 2); -lean_dec(x_30); -x_31 = !lean_is_exclusive(x_26); -if (x_31 == 0) -{ -lean_object* x_32; -x_32 = lean_ctor_get(x_26, 2); -lean_dec(x_32); -lean_ctor_set(x_26, 2, x_22); -return x_24; -} -else -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_33 = lean_ctor_get(x_26, 0); -x_34 = lean_ctor_get(x_26, 1); -lean_inc(x_34); -lean_inc(x_33); -lean_dec(x_26); -x_35 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_35, 0, x_33); -lean_ctor_set(x_35, 1, x_34); -lean_ctor_set(x_35, 2, x_22); -lean_ctor_set(x_25, 2, x_35); -return x_24; -} -} -else -{ -lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_36 = lean_ctor_get(x_25, 0); -x_37 = lean_ctor_get(x_25, 1); -x_38 = lean_ctor_get(x_25, 3); -x_39 = lean_ctor_get(x_25, 4); -x_40 = lean_ctor_get(x_25, 5); -lean_inc(x_40); -lean_inc(x_39); -lean_inc(x_38); -lean_inc(x_37); -lean_inc(x_36); -lean_dec(x_25); -x_41 = lean_ctor_get(x_26, 0); -lean_inc(x_41); -x_42 = lean_ctor_get(x_26, 1); -lean_inc(x_42); -if (lean_is_exclusive(x_26)) { - lean_ctor_release(x_26, 0); - lean_ctor_release(x_26, 1); - lean_ctor_release(x_26, 2); - x_43 = x_26; -} else { - lean_dec_ref(x_26); - x_43 = lean_box(0); -} -if (lean_is_scalar(x_43)) { - x_44 = lean_alloc_ctor(0, 3, 0); -} else { - x_44 = x_43; -} -lean_ctor_set(x_44, 0, x_41); -lean_ctor_set(x_44, 1, x_42); -lean_ctor_set(x_44, 2, x_22); -x_45 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_45, 0, x_36); -lean_ctor_set(x_45, 1, x_37); -lean_ctor_set(x_45, 2, x_44); -lean_ctor_set(x_45, 3, x_38); -lean_ctor_set(x_45, 4, x_39); -lean_ctor_set(x_45, 5, x_40); -lean_ctor_set(x_24, 1, x_45); -return x_24; -} -} -else -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_46 = lean_ctor_get(x_24, 0); -lean_inc(x_46); -lean_dec(x_24); -x_47 = lean_ctor_get(x_25, 0); -lean_inc(x_47); -x_48 = lean_ctor_get(x_25, 1); -lean_inc(x_48); -x_49 = lean_ctor_get(x_25, 3); -lean_inc(x_49); -x_50 = lean_ctor_get(x_25, 4); -lean_inc(x_50); -x_51 = lean_ctor_get(x_25, 5); -lean_inc(x_51); -if (lean_is_exclusive(x_25)) { - lean_ctor_release(x_25, 0); - lean_ctor_release(x_25, 1); - lean_ctor_release(x_25, 2); - lean_ctor_release(x_25, 3); - lean_ctor_release(x_25, 4); - lean_ctor_release(x_25, 5); - x_52 = x_25; -} else { - lean_dec_ref(x_25); - x_52 = lean_box(0); -} -x_53 = lean_ctor_get(x_26, 0); -lean_inc(x_53); -x_54 = lean_ctor_get(x_26, 1); -lean_inc(x_54); -if (lean_is_exclusive(x_26)) { - lean_ctor_release(x_26, 0); - lean_ctor_release(x_26, 1); - lean_ctor_release(x_26, 2); - x_55 = x_26; -} else { - lean_dec_ref(x_26); - x_55 = lean_box(0); -} -if (lean_is_scalar(x_55)) { - x_56 = lean_alloc_ctor(0, 3, 0); -} else { - x_56 = x_55; -} -lean_ctor_set(x_56, 0, x_53); -lean_ctor_set(x_56, 1, x_54); -lean_ctor_set(x_56, 2, x_22); -if (lean_is_scalar(x_52)) { - x_57 = lean_alloc_ctor(0, 6, 0); -} else { - x_57 = x_52; -} -lean_ctor_set(x_57, 0, x_47); -lean_ctor_set(x_57, 1, x_48); -lean_ctor_set(x_57, 2, x_56); -lean_ctor_set(x_57, 3, x_49); -lean_ctor_set(x_57, 4, x_50); -lean_ctor_set(x_57, 5, x_51); -x_58 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_58, 0, x_46); -lean_ctor_set(x_58, 1, x_57); -return x_58; -} -} -else -{ -lean_object* x_59; lean_object* x_60; uint8_t x_61; -x_59 = lean_ctor_get(x_24, 1); -lean_inc(x_59); -x_60 = lean_ctor_get(x_59, 2); -lean_inc(x_60); -x_61 = !lean_is_exclusive(x_24); -if (x_61 == 0) -{ -lean_object* x_62; uint8_t x_63; -x_62 = lean_ctor_get(x_24, 1); -lean_dec(x_62); -x_63 = !lean_is_exclusive(x_59); -if (x_63 == 0) -{ -lean_object* x_64; uint8_t x_65; -x_64 = lean_ctor_get(x_59, 2); -lean_dec(x_64); -x_65 = !lean_is_exclusive(x_60); -if (x_65 == 0) -{ -lean_object* x_66; -x_66 = lean_ctor_get(x_60, 2); -lean_dec(x_66); -lean_ctor_set(x_60, 2, x_22); -return x_24; -} -else -{ -lean_object* x_67; lean_object* x_68; lean_object* x_69; -x_67 = lean_ctor_get(x_60, 0); -x_68 = lean_ctor_get(x_60, 1); -lean_inc(x_68); -lean_inc(x_67); -lean_dec(x_60); -x_69 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_69, 0, x_67); -lean_ctor_set(x_69, 1, x_68); -lean_ctor_set(x_69, 2, x_22); -lean_ctor_set(x_59, 2, x_69); -return x_24; -} -} -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; -x_70 = lean_ctor_get(x_59, 0); -x_71 = lean_ctor_get(x_59, 1); -x_72 = lean_ctor_get(x_59, 3); -x_73 = lean_ctor_get(x_59, 4); -x_74 = lean_ctor_get(x_59, 5); -lean_inc(x_74); -lean_inc(x_73); -lean_inc(x_72); -lean_inc(x_71); -lean_inc(x_70); -lean_dec(x_59); -x_75 = lean_ctor_get(x_60, 0); -lean_inc(x_75); -x_76 = lean_ctor_get(x_60, 1); -lean_inc(x_76); -if (lean_is_exclusive(x_60)) { - lean_ctor_release(x_60, 0); - lean_ctor_release(x_60, 1); - lean_ctor_release(x_60, 2); - x_77 = x_60; -} else { - lean_dec_ref(x_60); - x_77 = lean_box(0); -} -if (lean_is_scalar(x_77)) { - x_78 = lean_alloc_ctor(0, 3, 0); -} else { - x_78 = x_77; -} -lean_ctor_set(x_78, 0, x_75); -lean_ctor_set(x_78, 1, x_76); -lean_ctor_set(x_78, 2, x_22); -x_79 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_79, 0, x_70); -lean_ctor_set(x_79, 1, x_71); -lean_ctor_set(x_79, 2, x_78); -lean_ctor_set(x_79, 3, x_72); -lean_ctor_set(x_79, 4, x_73); -lean_ctor_set(x_79, 5, x_74); -lean_ctor_set(x_24, 1, x_79); -return x_24; -} -} -else -{ -lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; -x_80 = lean_ctor_get(x_24, 0); -lean_inc(x_80); -lean_dec(x_24); -x_81 = lean_ctor_get(x_59, 0); -lean_inc(x_81); -x_82 = lean_ctor_get(x_59, 1); -lean_inc(x_82); -x_83 = lean_ctor_get(x_59, 3); -lean_inc(x_83); -x_84 = lean_ctor_get(x_59, 4); -lean_inc(x_84); -x_85 = lean_ctor_get(x_59, 5); -lean_inc(x_85); -if (lean_is_exclusive(x_59)) { - lean_ctor_release(x_59, 0); - lean_ctor_release(x_59, 1); - lean_ctor_release(x_59, 2); - lean_ctor_release(x_59, 3); - lean_ctor_release(x_59, 4); - lean_ctor_release(x_59, 5); - x_86 = x_59; -} else { - lean_dec_ref(x_59); - x_86 = lean_box(0); -} -x_87 = lean_ctor_get(x_60, 0); -lean_inc(x_87); -x_88 = lean_ctor_get(x_60, 1); -lean_inc(x_88); -if (lean_is_exclusive(x_60)) { - lean_ctor_release(x_60, 0); - lean_ctor_release(x_60, 1); - lean_ctor_release(x_60, 2); - x_89 = x_60; -} else { - lean_dec_ref(x_60); - x_89 = lean_box(0); -} -if (lean_is_scalar(x_89)) { - x_90 = lean_alloc_ctor(0, 3, 0); -} else { - x_90 = x_89; -} -lean_ctor_set(x_90, 0, x_87); -lean_ctor_set(x_90, 1, x_88); -lean_ctor_set(x_90, 2, x_22); -if (lean_is_scalar(x_86)) { - x_91 = lean_alloc_ctor(0, 6, 0); -} else { - x_91 = x_86; -} -lean_ctor_set(x_91, 0, x_81); -lean_ctor_set(x_91, 1, x_82); -lean_ctor_set(x_91, 2, x_90); -lean_ctor_set(x_91, 3, x_83); -lean_ctor_set(x_91, 4, x_84); -lean_ctor_set(x_91, 5, x_85); -x_92 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_92, 0, x_80); -lean_ctor_set(x_92, 1, x_91); -return x_92; -} -} -} -else -{ -lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; -x_93 = lean_ctor_get(x_20, 0); -x_94 = lean_ctor_get(x_20, 1); -x_95 = lean_ctor_get(x_20, 2); -lean_inc(x_95); -lean_inc(x_94); -lean_inc(x_93); -lean_dec(x_20); -x_96 = l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; -x_97 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_97, 0, x_93); -lean_ctor_set(x_97, 1, x_94); -lean_ctor_set(x_97, 2, x_96); -lean_ctor_set(x_7, 2, x_97); -x_98 = lean_apply_2(x_2, x_17, x_7); -if (lean_obj_tag(x_98) == 0) -{ -lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; -x_99 = lean_ctor_get(x_98, 1); -lean_inc(x_99); -x_100 = lean_ctor_get(x_99, 2); -lean_inc(x_100); -x_101 = lean_ctor_get(x_98, 0); -lean_inc(x_101); -if (lean_is_exclusive(x_98)) { - lean_ctor_release(x_98, 0); - lean_ctor_release(x_98, 1); - x_102 = x_98; -} else { - lean_dec_ref(x_98); - x_102 = lean_box(0); -} -x_103 = lean_ctor_get(x_99, 0); -lean_inc(x_103); -x_104 = lean_ctor_get(x_99, 1); -lean_inc(x_104); -x_105 = lean_ctor_get(x_99, 3); -lean_inc(x_105); -x_106 = lean_ctor_get(x_99, 4); -lean_inc(x_106); -x_107 = lean_ctor_get(x_99, 5); -lean_inc(x_107); -if (lean_is_exclusive(x_99)) { - lean_ctor_release(x_99, 0); - lean_ctor_release(x_99, 1); - lean_ctor_release(x_99, 2); - lean_ctor_release(x_99, 3); - lean_ctor_release(x_99, 4); - lean_ctor_release(x_99, 5); - x_108 = x_99; -} else { - lean_dec_ref(x_99); - x_108 = lean_box(0); -} -x_109 = lean_ctor_get(x_100, 0); -lean_inc(x_109); -x_110 = lean_ctor_get(x_100, 1); -lean_inc(x_110); -if (lean_is_exclusive(x_100)) { - lean_ctor_release(x_100, 0); - lean_ctor_release(x_100, 1); - lean_ctor_release(x_100, 2); - x_111 = x_100; -} else { - lean_dec_ref(x_100); - x_111 = lean_box(0); -} -if (lean_is_scalar(x_111)) { - x_112 = lean_alloc_ctor(0, 3, 0); -} else { - x_112 = x_111; -} -lean_ctor_set(x_112, 0, x_109); -lean_ctor_set(x_112, 1, x_110); -lean_ctor_set(x_112, 2, x_95); -if (lean_is_scalar(x_108)) { - x_113 = lean_alloc_ctor(0, 6, 0); -} else { - x_113 = x_108; -} -lean_ctor_set(x_113, 0, x_103); -lean_ctor_set(x_113, 1, x_104); -lean_ctor_set(x_113, 2, x_112); -lean_ctor_set(x_113, 3, x_105); -lean_ctor_set(x_113, 4, x_106); -lean_ctor_set(x_113, 5, x_107); -if (lean_is_scalar(x_102)) { - x_114 = lean_alloc_ctor(0, 2, 0); -} else { - x_114 = x_102; -} -lean_ctor_set(x_114, 0, x_101); -lean_ctor_set(x_114, 1, x_113); -return x_114; -} -else -{ -lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; -x_115 = lean_ctor_get(x_98, 1); -lean_inc(x_115); -x_116 = lean_ctor_get(x_115, 2); -lean_inc(x_116); -x_117 = lean_ctor_get(x_98, 0); -lean_inc(x_117); -if (lean_is_exclusive(x_98)) { - lean_ctor_release(x_98, 0); - lean_ctor_release(x_98, 1); - x_118 = x_98; -} else { - lean_dec_ref(x_98); - x_118 = lean_box(0); -} -x_119 = lean_ctor_get(x_115, 0); -lean_inc(x_119); -x_120 = lean_ctor_get(x_115, 1); -lean_inc(x_120); -x_121 = lean_ctor_get(x_115, 3); -lean_inc(x_121); -x_122 = lean_ctor_get(x_115, 4); -lean_inc(x_122); -x_123 = lean_ctor_get(x_115, 5); -lean_inc(x_123); -if (lean_is_exclusive(x_115)) { - lean_ctor_release(x_115, 0); - lean_ctor_release(x_115, 1); - lean_ctor_release(x_115, 2); - lean_ctor_release(x_115, 3); - lean_ctor_release(x_115, 4); - lean_ctor_release(x_115, 5); - x_124 = x_115; -} else { - lean_dec_ref(x_115); - x_124 = lean_box(0); -} -x_125 = lean_ctor_get(x_116, 0); -lean_inc(x_125); -x_126 = lean_ctor_get(x_116, 1); -lean_inc(x_126); -if (lean_is_exclusive(x_116)) { - lean_ctor_release(x_116, 0); - lean_ctor_release(x_116, 1); - lean_ctor_release(x_116, 2); - x_127 = x_116; -} else { - lean_dec_ref(x_116); - x_127 = lean_box(0); -} -if (lean_is_scalar(x_127)) { - x_128 = lean_alloc_ctor(0, 3, 0); -} else { - x_128 = x_127; -} -lean_ctor_set(x_128, 0, x_125); -lean_ctor_set(x_128, 1, x_126); -lean_ctor_set(x_128, 2, x_95); -if (lean_is_scalar(x_124)) { - x_129 = lean_alloc_ctor(0, 6, 0); -} else { - x_129 = x_124; -} -lean_ctor_set(x_129, 0, x_119); -lean_ctor_set(x_129, 1, x_120); -lean_ctor_set(x_129, 2, x_128); -lean_ctor_set(x_129, 3, x_121); -lean_ctor_set(x_129, 4, x_122); -lean_ctor_set(x_129, 5, x_123); -if (lean_is_scalar(x_118)) { - x_130 = lean_alloc_ctor(1, 2, 0); -} else { - x_130 = x_118; -} -lean_ctor_set(x_130, 0, x_117); -lean_ctor_set(x_130, 1, x_129); -return x_130; -} -} -} -else -{ -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; -x_131 = lean_ctor_get(x_7, 2); -x_132 = lean_ctor_get(x_7, 0); -x_133 = lean_ctor_get(x_7, 1); -x_134 = lean_ctor_get(x_7, 3); -x_135 = lean_ctor_get(x_7, 4); -x_136 = lean_ctor_get(x_7, 5); -lean_inc(x_136); -lean_inc(x_135); -lean_inc(x_134); -lean_inc(x_131); -lean_inc(x_133); -lean_inc(x_132); -lean_dec(x_7); -x_137 = lean_ctor_get(x_131, 0); -lean_inc(x_137); -x_138 = lean_ctor_get(x_131, 1); -lean_inc(x_138); -x_139 = lean_ctor_get(x_131, 2); -lean_inc(x_139); -if (lean_is_exclusive(x_131)) { - lean_ctor_release(x_131, 0); - lean_ctor_release(x_131, 1); - lean_ctor_release(x_131, 2); - x_140 = x_131; -} else { - lean_dec_ref(x_131); - x_140 = lean_box(0); -} -x_141 = l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; -if (lean_is_scalar(x_140)) { - x_142 = lean_alloc_ctor(0, 3, 0); -} else { - x_142 = x_140; -} -lean_ctor_set(x_142, 0, x_137); -lean_ctor_set(x_142, 1, x_138); -lean_ctor_set(x_142, 2, x_141); -x_143 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_143, 0, x_132); -lean_ctor_set(x_143, 1, x_133); -lean_ctor_set(x_143, 2, x_142); -lean_ctor_set(x_143, 3, x_134); -lean_ctor_set(x_143, 4, x_135); -lean_ctor_set(x_143, 5, x_136); -x_144 = lean_apply_2(x_2, x_17, x_143); -if (lean_obj_tag(x_144) == 0) -{ -lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; 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; -x_145 = lean_ctor_get(x_144, 1); -lean_inc(x_145); -x_146 = lean_ctor_get(x_145, 2); -lean_inc(x_146); -x_147 = lean_ctor_get(x_144, 0); -lean_inc(x_147); -if (lean_is_exclusive(x_144)) { - lean_ctor_release(x_144, 0); - lean_ctor_release(x_144, 1); - x_148 = x_144; -} else { - lean_dec_ref(x_144); - x_148 = lean_box(0); -} -x_149 = lean_ctor_get(x_145, 0); -lean_inc(x_149); -x_150 = lean_ctor_get(x_145, 1); -lean_inc(x_150); -x_151 = lean_ctor_get(x_145, 3); -lean_inc(x_151); -x_152 = lean_ctor_get(x_145, 4); -lean_inc(x_152); -x_153 = lean_ctor_get(x_145, 5); -lean_inc(x_153); -if (lean_is_exclusive(x_145)) { - lean_ctor_release(x_145, 0); - lean_ctor_release(x_145, 1); - lean_ctor_release(x_145, 2); - lean_ctor_release(x_145, 3); - lean_ctor_release(x_145, 4); - lean_ctor_release(x_145, 5); - x_154 = x_145; -} else { - lean_dec_ref(x_145); - x_154 = lean_box(0); -} -x_155 = lean_ctor_get(x_146, 0); -lean_inc(x_155); -x_156 = lean_ctor_get(x_146, 1); -lean_inc(x_156); -if (lean_is_exclusive(x_146)) { - lean_ctor_release(x_146, 0); - lean_ctor_release(x_146, 1); - lean_ctor_release(x_146, 2); - x_157 = x_146; -} else { - lean_dec_ref(x_146); - x_157 = lean_box(0); -} -if (lean_is_scalar(x_157)) { - x_158 = lean_alloc_ctor(0, 3, 0); -} else { - x_158 = x_157; -} -lean_ctor_set(x_158, 0, x_155); -lean_ctor_set(x_158, 1, x_156); -lean_ctor_set(x_158, 2, x_139); -if (lean_is_scalar(x_154)) { - x_159 = lean_alloc_ctor(0, 6, 0); -} else { - x_159 = x_154; -} -lean_ctor_set(x_159, 0, x_149); -lean_ctor_set(x_159, 1, x_150); -lean_ctor_set(x_159, 2, x_158); -lean_ctor_set(x_159, 3, x_151); -lean_ctor_set(x_159, 4, x_152); -lean_ctor_set(x_159, 5, x_153); -if (lean_is_scalar(x_148)) { - x_160 = lean_alloc_ctor(0, 2, 0); -} else { - x_160 = x_148; -} -lean_ctor_set(x_160, 0, x_147); -lean_ctor_set(x_160, 1, x_159); -return x_160; -} -else -{ -lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; -x_161 = lean_ctor_get(x_144, 1); -lean_inc(x_161); -x_162 = lean_ctor_get(x_161, 2); -lean_inc(x_162); -x_163 = lean_ctor_get(x_144, 0); -lean_inc(x_163); -if (lean_is_exclusive(x_144)) { - lean_ctor_release(x_144, 0); - lean_ctor_release(x_144, 1); - x_164 = x_144; -} else { - lean_dec_ref(x_144); - x_164 = lean_box(0); -} -x_165 = lean_ctor_get(x_161, 0); -lean_inc(x_165); -x_166 = lean_ctor_get(x_161, 1); -lean_inc(x_166); -x_167 = lean_ctor_get(x_161, 3); -lean_inc(x_167); -x_168 = lean_ctor_get(x_161, 4); -lean_inc(x_168); -x_169 = lean_ctor_get(x_161, 5); -lean_inc(x_169); -if (lean_is_exclusive(x_161)) { - lean_ctor_release(x_161, 0); - lean_ctor_release(x_161, 1); - lean_ctor_release(x_161, 2); - lean_ctor_release(x_161, 3); - lean_ctor_release(x_161, 4); - lean_ctor_release(x_161, 5); - x_170 = x_161; -} else { - lean_dec_ref(x_161); - x_170 = lean_box(0); -} -x_171 = lean_ctor_get(x_162, 0); -lean_inc(x_171); -x_172 = lean_ctor_get(x_162, 1); -lean_inc(x_172); -if (lean_is_exclusive(x_162)) { - lean_ctor_release(x_162, 0); - lean_ctor_release(x_162, 1); - lean_ctor_release(x_162, 2); - x_173 = x_162; -} else { - lean_dec_ref(x_162); - x_173 = lean_box(0); -} -if (lean_is_scalar(x_173)) { - x_174 = lean_alloc_ctor(0, 3, 0); -} else { - x_174 = x_173; -} -lean_ctor_set(x_174, 0, x_171); -lean_ctor_set(x_174, 1, x_172); -lean_ctor_set(x_174, 2, x_139); -if (lean_is_scalar(x_170)) { - x_175 = lean_alloc_ctor(0, 6, 0); -} else { - x_175 = x_170; -} -lean_ctor_set(x_175, 0, x_165); -lean_ctor_set(x_175, 1, x_166); -lean_ctor_set(x_175, 2, x_174); -lean_ctor_set(x_175, 3, x_167); -lean_ctor_set(x_175, 4, x_168); -lean_ctor_set(x_175, 5, x_169); -if (lean_is_scalar(x_164)) { - x_176 = lean_alloc_ctor(1, 2, 0); -} else { - x_176 = x_164; -} -lean_ctor_set(x_176, 0, x_163); -lean_ctor_set(x_176, 1, x_175); -return x_176; -} -} -} -} -else -{ -uint8_t x_183; +uint8_t x_11; lean_dec(x_2); -x_183 = !lean_is_exclusive(x_5); -if (x_183 == 0) +x_11 = !lean_is_exclusive(x_5); +if (x_11 == 0) { return x_5; } else { -lean_object* x_184; lean_object* x_185; lean_object* x_186; -x_184 = lean_ctor_get(x_5, 0); -x_185 = lean_ctor_get(x_5, 1); -lean_inc(x_185); -lean_inc(x_184); +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_5, 0); +x_13 = lean_ctor_get(x_5, 1); +lean_inc(x_13); +lean_inc(x_12); lean_dec(x_5); -x_186 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_186, 0, x_184); -lean_ctor_set(x_186, 1, x_185); -return x_186; +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; } } } @@ -47419,19 +47459,6 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Meta_withMVarContext___rarg___boxed), 4, return x_2; } } -lean_object* l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { -_start: -{ -uint8_t x_7; lean_object* x_8; -x_7 = l_Array_isEqvAux___main___at_Lean_Meta_withMVarContext___spec__1(x_1, x_2, x_3, x_4, x_5, x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_8 = lean_box(x_7); -return x_8; -} -} lean_object* l_Lean_Meta_withMVarContext___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { diff --git a/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c b/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c index 6dcd7eed7e..7ef3612830 100644 --- a/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c +++ b/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c @@ -16,17 +16,19 @@ extern "C" { lean_object* l_Lean_Meta_CheckAssignmentQuick_check___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_HashMapImp_find_x3f___at___private_Init_Lean_Meta_ExprDefEq_8__findCached_x3f___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_42__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__51; +lean_object* l_Lean_Meta_restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_expr_update_forall(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_11__checkAssignmentFailure___closed__9; lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_9__cache___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2; uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignmentQuick_check___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1; +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__2(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_AssocList_contains___main___at___private_Init_Lean_Meta_ExprDefEq_9__cache___spec__2(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__4; @@ -65,10 +67,10 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_10__visit(lean_object*, lean_o lean_object* lean_metavar_ctx_get_expr_assignment(lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignment_check___main___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__1; +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkMVar(lean_object*); lean_object* l_Lean_Meta_isClassQuick___main(lean_object*, lean_object*, lean_object*); extern lean_object* l_Array_empty___closed__1; -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2; lean_object* l_Lean_Meta_isExprDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isDefEqBindingDomain___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isProofQuick___main(lean_object*, lean_object*, lean_object*); @@ -114,23 +116,21 @@ lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_HashMapImp_find_x3f___at___private_Init_Lean_Meta_ExprDefEq_8__findCached_x3f___spec__1(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_43__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_13__processAssignmentFOApproxAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_updateLambdaE_x21___closed__1; +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); uint8_t lean_metavar_ctx_is_expr_assigned(lean_object*, lean_object*); lean_object* l_Lean_Meta_isClass(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_assignToConstFun(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_check(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_checkAssignment___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_38__etaEq___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_21__isListLevelDefEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_RecursorVal_getMajorIdx(lean_object*); lean_object* l_HashMapImp_expand___at___private_Init_Lean_Meta_ExprDefEq_9__cache___spec__3(lean_object*, lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3; lean_object* l___private_Init_Lean_Meta_ExprDefEq_2__isDefEqArgsFirstPass___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_20__isDeltaCandidate___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at___private_Init_Lean_Meta_ExprDefEq_8__findCached_x3f___spec__2(lean_object*, lean_object*); @@ -161,7 +161,6 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___close lean_object* l___private_Init_Lean_Meta_ExprDefEq_35__isDelayedAssignedHead(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignmentQuick_check___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasExprMVar(lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, uint64_t, lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isDefEqBindingDomain___main___at___private_Init_Lean_Meta_ExprDefEq_5__isDefEqBindingAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Expr_2__mkAppRangeAux___main(lean_object*, lean_object*, lean_object*, lean_object*); @@ -172,12 +171,13 @@ lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_37__isAssignable___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_contains___at_Lean_Meta_CheckAssignment_check___main___spec__2___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_29__unfoldComparingHeadsDefEq(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; lean_object* l___private_Init_Lean_Meta_ExprDefEq_42__isDefEqWHNF(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ConstantInfo_name(lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_12__processPostponed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__5; lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_coeOfArrayExpr___closed__2; lean_object* l_Lean_Meta_isDefEqOffset(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__7; @@ -187,7 +187,6 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___clos lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___at_Lean_Meta_CheckAssignment_assignToConstFun___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); size_t l_Lean_Expr_hash(lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_checkMVar___at_Lean_Meta_CheckAssignment_check___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_mkHashMap___at_Lean_Meta_checkAssignmentAux___spec__1(lean_object*); extern lean_object* l_PersistentArray_empty___closed__3; @@ -196,10 +195,10 @@ lean_object* l_Lean_Meta_CheckAssignment_checkMVar(lean_object*, lean_object*, l lean_object* l_Lean_Meta_CheckAssignment_mkAuxMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isEtaUnassignedMVar___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_assignExpr(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__4; lean_object* l___private_Init_Lean_Meta_ExprDefEq_15__simpAssignmentArgAux___main(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Meta_TransparencyMode_beq(uint8_t, uint8_t); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__1; size_t lean_usize_modn(size_t, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__3; @@ -211,9 +210,9 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_36__isSynthetic(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*); lean_object* l_Lean_Meta_mkFreshId___rarg(lean_object*); +lean_object* l_Lean_Meta_whenUndefDo(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_6__isDefEqBinding(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_CheckAssignment_assignToConstFun___spec__4___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkAssignment(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_mkHashMapImp___rarg(lean_object*); lean_object* l___private_Init_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); @@ -234,9 +233,9 @@ lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_CheckAssignment_check_ lean_object* l___private_Init_Lean_Meta_ExprDefEq_37__isAssignable(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_23__isDefEqRight___closed__1; lean_object* l_Array_back___at___private_Init_Lean_Meta_ExprDefEq_13__processAssignmentFOApproxAux___spec__1(lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); uint8_t l_Lean_Expr_isLambda(lean_object*); lean_object* l_AssocList_replace___main___at___private_Init_Lean_Meta_ExprDefEq_9__cache___spec__6(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_expr_update_proj(lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__4(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_3__isDefEqArgsAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -258,14 +257,12 @@ lean_object* l_Lean_LocalDecl_type(lean_object*); lean_object* l_Lean_LocalDecl_value_x3f(lean_object*); lean_object* lean_local_ctx_mk_local_decl(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignmentQuick_check___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_11__checkAssignmentFailure___closed__5; lean_object* l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___closed__1; lean_object* l_Lean_WHNF_isRecStuck___at___private_Init_Lean_Meta_ExprDefEq_44__isDefEqOnFailure___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_getMCtx(lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__4; uint8_t l_Lean_MetavarKind_isSyntheticOpaque(uint8_t); lean_object* l___private_Init_Lean_Meta_ExprDefEq_26__unfold(lean_object*); @@ -287,6 +284,7 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__2; uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__4; lean_object* l___private_Init_Lean_Meta_ExprDefEq_31__unfoldReducibeDefEq___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_metavar_ctx_mk_decl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); @@ -297,7 +295,6 @@ lean_object* lean_panic_fn(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_45__consumeLet___main(lean_object*); lean_object* l_Lean_Meta_CheckAssignmentQuick_check(uint8_t, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_41__isDefEqProofIrrel(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___closed__2; lean_object* l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__1; extern lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_FunInfo_6__getFunInfoAux___spec__2___closed__1; @@ -306,7 +303,6 @@ lean_object* l_AssocList_foldlM___main___at___private_Init_Lean_Meta_ExprDefEq_9 lean_object* l___private_Init_Lean_Meta_ExprDefEq_4__isDefEqArgs___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_synthPending(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignment_check___main___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_isExprDefEqAuxRef; lean_object* l___private_Init_Lean_Meta_ExprDefEq_2__isDefEqArgsFirstPass___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignmentQuick_check___main(uint8_t, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -327,6 +323,7 @@ lean_object* lean_metavar_ctx_find_decl(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_16__simpAssignmentArg(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isFVar(lean_object*); extern lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1; +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_updateLet_x21___closed__1; lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); @@ -335,6 +332,7 @@ lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); lean_object* lean_expr_instantiate_rev(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_11__checkAssignmentFailure___closed__6; uint8_t l_Lean_Meta_TransparencyMode_lt(uint8_t, uint8_t); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isDelayedAssigned(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasLooseBVars(lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_3__isDefEqArgsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -348,19 +346,16 @@ lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_objec lean_object* l___private_Init_Lean_Meta_ExprDefEq_34__isAssigned(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at___private_Init_Lean_Meta_ExprDefEq_8__findCached_x3f___spec__2___boxed(lean_object*, lean_object*); lean_object* lean_mk_array(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1; lean_object* l___private_Init_Lean_Meta_ExprDefEq_9__cache(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_34__isAssigned___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_mkAuxMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_Lean_MonadCache___closed__3; uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__processAssignmentAux___main___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_20__isDeltaCandidate(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at___private_Init_Lean_Meta_ExprDefEq_17__processConstApprox___spec__4___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_getMCtx___boxed(lean_object*); lean_object* l_Lean_Meta_setIsExprDefEqAuxRef___closed__1; -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Expr_9__etaExpandedAux___main(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_32__unfoldNonProjFnDefEq___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_11__checkAssignmentFailure___closed__4; @@ -374,14 +369,17 @@ lean_object* l_Lean_Meta_isReadOnlyOrSyntheticOpaqueExprMVar(lean_object*, lean_ lean_object* l___private_Init_Lean_Meta_ExprDefEq_19__processAssignment(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__5; lean_object* l___private_Init_Lean_Meta_ExprDefEq_45__consumeLet(lean_object*); -lean_object* l_Lean_Meta_tryL(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_5__isDefEqBindingAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_local_ctx_find(lean_object*, lean_object*); lean_object* l_AssocList_contains___main___at___private_Init_Lean_Meta_ExprDefEq_9__cache___spec__2___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_33__isDefEqDelta(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, uint64_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignmentQuick_check___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isProp(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_HasBeq; lean_object* l_Lean_mkBVar(lean_object*); @@ -399,8 +397,10 @@ uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_18__ lean_object* l___private_Init_Lean_Meta_ExprDefEq_24__isDefEqLeftRight(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_LocalContext_isSubPrefixOf(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_46__regTraceClasses(lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3; lean_object* l_Lean_Meta_CheckAssignment_getMCtx___rarg(lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignment_check___main___spec__6(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_ReducibilityHints_lt(lean_object*, lean_object*); extern lean_object* l_Lean_MetavarContext_MkBinding_mkBinding___closed__1; lean_object* l___private_Init_Lean_Meta_ExprDefEq_11__checkAssignmentFailure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -412,7 +412,7 @@ uint8_t l_Lean_LocalDecl_isLet(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__7; lean_object* l_Lean_Meta_getFVarLocalDecl(lean_object*, lean_object*, lean_object*); -lean_object* _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1() { +lean_object* _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1() { _start: { lean_object* x_1; lean_object* x_2; @@ -421,12 +421,12 @@ x_2 = l_Lean_mkBVar(x_1); return x_2; } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, uint64_t x_5, lean_object* x_6, lean_object* x_7) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, uint64_t x_5, lean_object* x_6, lean_object* x_7) { _start: { uint8_t x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; x_8 = (uint8_t)((x_5 << 24) >> 61); -x_9 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; +x_9 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1; x_10 = l_Lean_mkApp(x_2, x_9); x_11 = l_Lean_mkLambda(x_3, x_8, x_4, x_10); x_12 = !lean_is_exclusive(x_7); @@ -454,7 +454,7 @@ lean_object* x_28; lean_object* x_29; uint8_t x_30; x_28 = lean_ctor_get(x_25, 1); lean_inc(x_28); lean_dec(x_25); -x_29 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_13, x_14, x_15, x_6, x_28); +x_29 = l_Lean_Meta_restore(x_13, x_14, x_15, x_6, x_28); lean_dec(x_6); x_30 = !lean_is_exclusive(x_29); if (x_30 == 0) @@ -497,7 +497,7 @@ lean_object* x_38; lean_object* x_39; uint8_t x_40; x_38 = lean_ctor_get(x_35, 1); lean_inc(x_38); lean_dec(x_35); -x_39 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_13, x_14, x_15, x_6, x_38); +x_39 = l_Lean_Meta_restore(x_13, x_14, x_15, x_6, x_38); lean_dec(x_6); x_40 = !lean_is_exclusive(x_39); if (x_40 == 0) @@ -577,7 +577,7 @@ goto block_24; block_24: { lean_object* x_19; uint8_t x_20; -x_19 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_13, x_14, x_15, x_6, x_18); +x_19 = l_Lean_Meta_restore(x_13, x_14, x_15, x_6, x_18); lean_dec(x_6); x_20 = !lean_is_exclusive(x_19); if (x_20 == 0) @@ -642,7 +642,7 @@ lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean x_70 = lean_ctor_get(x_67, 1); lean_inc(x_70); lean_dec(x_67); -x_71 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_52, x_53, x_57, x_6, x_70); +x_71 = l_Lean_Meta_restore(x_52, x_53, x_57, x_6, x_70); lean_dec(x_6); x_72 = lean_ctor_get(x_71, 1); lean_inc(x_72); @@ -683,7 +683,7 @@ lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean x_79 = lean_ctor_get(x_76, 1); lean_inc(x_79); lean_dec(x_76); -x_80 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_52, x_53, x_57, x_6, x_79); +x_80 = l_Lean_Meta_restore(x_52, x_53, x_57, x_6, x_79); lean_dec(x_6); x_81 = lean_ctor_get(x_80, 1); lean_inc(x_81); @@ -760,7 +760,7 @@ goto block_66; block_66: { lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_62 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_52, x_53, x_57, x_6, x_61); +x_62 = l_Lean_Meta_restore(x_52, x_53, x_57, x_6, x_61); lean_dec(x_6); x_63 = lean_ctor_get(x_62, 1); lean_inc(x_63); @@ -840,7 +840,7 @@ x_17 = lean_ctor_get(x_14, 1); lean_inc(x_17); x_18 = lean_ctor_get_uint64(x_14, sizeof(void*)*3); lean_dec(x_14); -x_19 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(x_1, x_2, x_16, x_17, x_18, x_3, x_15); +x_19 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(x_1, x_2, x_16, x_17, x_18, x_3, x_15); lean_dec(x_16); return x_19; } @@ -945,13 +945,13 @@ return x_38; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___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: { uint64_t x_8; lean_object* x_9; x_8 = lean_unbox_uint64(x_5); lean_dec(x_5); -x_9 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(x_1, x_2, x_3, x_4, x_8, x_6, x_7); +x_9 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1(x_1, x_2, x_3, x_4, x_8, x_6, x_7); lean_dec(x_3); return x_9; } @@ -29536,7 +29536,7 @@ lean_dec(x_2); return x_6; } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(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; @@ -29565,7 +29565,7 @@ lean_object* x_22; lean_object* x_23; uint8_t x_24; x_22 = lean_ctor_get(x_19, 1); lean_inc(x_22); lean_dec(x_19); -x_23 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_7, x_8, x_9, x_4, x_22); +x_23 = l_Lean_Meta_restore(x_7, x_8, x_9, x_4, x_22); lean_dec(x_4); x_24 = !lean_is_exclusive(x_23); if (x_24 == 0) @@ -29608,7 +29608,7 @@ lean_object* x_32; lean_object* x_33; uint8_t x_34; x_32 = lean_ctor_get(x_29, 1); lean_inc(x_32); lean_dec(x_29); -x_33 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_7, x_8, x_9, x_4, x_32); +x_33 = l_Lean_Meta_restore(x_7, x_8, x_9, x_4, x_32); lean_dec(x_4); x_34 = !lean_is_exclusive(x_33); if (x_34 == 0) @@ -29688,7 +29688,7 @@ goto block_18; block_18: { lean_object* x_13; uint8_t x_14; -x_13 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_7, x_8, x_9, x_4, x_12); +x_13 = l_Lean_Meta_restore(x_7, x_8, x_9, x_4, x_12); lean_dec(x_4); x_14 = !lean_is_exclusive(x_13); if (x_14 == 0) @@ -29753,7 +29753,7 @@ lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean x_64 = lean_ctor_get(x_61, 1); lean_inc(x_64); lean_dec(x_61); -x_65 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_46, x_47, x_51, x_4, x_64); +x_65 = l_Lean_Meta_restore(x_46, x_47, x_51, x_4, x_64); lean_dec(x_4); x_66 = lean_ctor_get(x_65, 1); lean_inc(x_66); @@ -29794,7 +29794,7 @@ lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean x_73 = lean_ctor_get(x_70, 1); lean_inc(x_73); lean_dec(x_70); -x_74 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_46, x_47, x_51, x_4, x_73); +x_74 = l_Lean_Meta_restore(x_46, x_47, x_51, x_4, x_73); lean_dec(x_4); x_75 = lean_ctor_get(x_74, 1); lean_inc(x_75); @@ -29871,7 +29871,7 @@ goto block_60; block_60: { lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_56 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_46, x_47, x_51, x_4, x_55); +x_56 = l_Lean_Meta_restore(x_46, x_47, x_51, x_4, x_55); lean_dec(x_4); x_57 = lean_ctor_get(x_56, 1); lean_inc(x_57); @@ -29988,7 +29988,7 @@ lean_object* x_7; lean_inc(x_4); lean_inc(x_3); lean_inc(x_1); -x_7 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(x_1, x_2, x_3, x_4, x_6); +x_7 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(x_1, x_2, x_3, x_4, x_6); if (lean_obj_tag(x_7) == 0) { lean_object* x_8; uint8_t x_9; @@ -30130,11 +30130,11 @@ return x_31; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { lean_object* x_6; -x_6 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(x_1, x_2, x_3, x_4, x_5); +x_6 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApprox___main___spec__1(x_1, x_2, x_3, x_4, x_5); lean_dec(x_2); return x_6; } @@ -41275,7 +41275,7 @@ return x_64; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { _start: { if (x_3 == 0) @@ -41297,7 +41297,7 @@ return x_10; } } } -lean_object* _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1() { +lean_object* _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1() { _start: { lean_object* x_1; @@ -41305,27 +41305,27 @@ x_1 = lean_mk_string("heuristic failed "); return x_1; } } -lean_object* _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2() { +lean_object* _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1; +x_1 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3() { +lean_object* _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2; +x_1 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2(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: { if (x_4 == 0) @@ -41393,7 +41393,7 @@ lean_inc(x_20); lean_dec(x_11); x_21 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_21, 0, x_2); -x_22 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3; +x_22 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3; x_23 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_23, 0, x_22); lean_ctor_set(x_23, 1, x_21); @@ -41446,7 +41446,7 @@ return x_36; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___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; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; @@ -41472,13 +41472,13 @@ x_19 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_4__isDefE lean_closure_set(x_19, 0, x_3); lean_closure_set(x_19, 1, x_14); lean_closure_set(x_19, 2, x_18); -x_20 = lean_alloc_closure((void*)(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed), 5, 2); +x_20 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed), 5, 2); lean_closure_set(x_20, 0, x_3); lean_closure_set(x_20, 1, x_4); x_21 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_21, 0, x_19); lean_closure_set(x_21, 1, x_20); -x_22 = lean_alloc_closure((void*)(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed), 6, 3); +x_22 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed), 6, 3); lean_closure_set(x_22, 0, x_5); lean_closure_set(x_22, 1, x_1); lean_closure_set(x_22, 2, x_2); @@ -41507,7 +41507,7 @@ lean_object* x_39; lean_object* x_40; uint8_t x_41; x_39 = lean_ctor_get(x_36, 1); lean_inc(x_39); lean_dec(x_36); -x_40 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_24, x_25, x_26, x_6, x_39); +x_40 = l_Lean_Meta_restore(x_24, x_25, x_26, x_6, x_39); lean_dec(x_6); x_41 = !lean_is_exclusive(x_40); if (x_41 == 0) @@ -41550,7 +41550,7 @@ lean_object* x_49; lean_object* x_50; uint8_t x_51; x_49 = lean_ctor_get(x_46, 1); lean_inc(x_49); lean_dec(x_46); -x_50 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_24, x_25, x_26, x_6, x_49); +x_50 = l_Lean_Meta_restore(x_24, x_25, x_26, x_6, x_49); lean_dec(x_6); x_51 = !lean_is_exclusive(x_50); if (x_51 == 0) @@ -41630,7 +41630,7 @@ goto block_35; block_35: { lean_object* x_30; uint8_t x_31; -x_30 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_24, x_25, x_26, x_6, x_29); +x_30 = l_Lean_Meta_restore(x_24, x_25, x_26, x_6, x_29); lean_dec(x_6); x_31 = !lean_is_exclusive(x_30); if (x_31 == 0) @@ -41695,7 +41695,7 @@ lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean x_81 = lean_ctor_get(x_78, 1); lean_inc(x_81); lean_dec(x_78); -x_82 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_63, x_64, x_68, x_6, x_81); +x_82 = l_Lean_Meta_restore(x_63, x_64, x_68, x_6, x_81); lean_dec(x_6); x_83 = lean_ctor_get(x_82, 1); lean_inc(x_83); @@ -41736,7 +41736,7 @@ lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean x_90 = lean_ctor_get(x_87, 1); lean_inc(x_90); lean_dec(x_87); -x_91 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_63, x_64, x_68, x_6, x_90); +x_91 = l_Lean_Meta_restore(x_63, x_64, x_68, x_6, x_90); lean_dec(x_6); x_92 = lean_ctor_get(x_91, 1); lean_inc(x_92); @@ -41813,7 +41813,7 @@ goto block_77; block_77: { lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_63, x_64, x_68, x_6, x_72); +x_73 = l_Lean_Meta_restore(x_63, x_64, x_68, x_6, x_72); lean_dec(x_6); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); @@ -41838,7 +41838,7 @@ return x_76; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___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* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___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) { _start: { lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; @@ -41864,13 +41864,13 @@ x_19 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_4__isDefE lean_closure_set(x_19, 0, x_3); lean_closure_set(x_19, 1, x_14); lean_closure_set(x_19, 2, x_18); -x_20 = lean_alloc_closure((void*)(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed), 5, 2); +x_20 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed), 5, 2); lean_closure_set(x_20, 0, x_3); lean_closure_set(x_20, 1, x_4); x_21 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_21, 0, x_19); lean_closure_set(x_21, 1, x_20); -x_22 = lean_alloc_closure((void*)(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed), 6, 3); +x_22 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed), 6, 3); lean_closure_set(x_22, 0, x_5); lean_closure_set(x_22, 1, x_1); lean_closure_set(x_22, 2, x_2); @@ -41899,7 +41899,7 @@ lean_object* x_39; lean_object* x_40; uint8_t x_41; x_39 = lean_ctor_get(x_36, 1); lean_inc(x_39); lean_dec(x_36); -x_40 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_24, x_25, x_26, x_6, x_39); +x_40 = l_Lean_Meta_restore(x_24, x_25, x_26, x_6, x_39); lean_dec(x_6); x_41 = !lean_is_exclusive(x_40); if (x_41 == 0) @@ -41942,7 +41942,7 @@ lean_object* x_49; lean_object* x_50; uint8_t x_51; x_49 = lean_ctor_get(x_46, 1); lean_inc(x_49); lean_dec(x_46); -x_50 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_24, x_25, x_26, x_6, x_49); +x_50 = l_Lean_Meta_restore(x_24, x_25, x_26, x_6, x_49); lean_dec(x_6); x_51 = !lean_is_exclusive(x_50); if (x_51 == 0) @@ -42022,7 +42022,7 @@ goto block_35; block_35: { lean_object* x_30; uint8_t x_31; -x_30 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_24, x_25, x_26, x_6, x_29); +x_30 = l_Lean_Meta_restore(x_24, x_25, x_26, x_6, x_29); lean_dec(x_6); x_31 = !lean_is_exclusive(x_30); if (x_31 == 0) @@ -42087,7 +42087,7 @@ lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean x_81 = lean_ctor_get(x_78, 1); lean_inc(x_81); lean_dec(x_78); -x_82 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_63, x_64, x_68, x_6, x_81); +x_82 = l_Lean_Meta_restore(x_63, x_64, x_68, x_6, x_81); lean_dec(x_6); x_83 = lean_ctor_get(x_82, 1); lean_inc(x_83); @@ -42128,7 +42128,7 @@ lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean x_90 = lean_ctor_get(x_87, 1); lean_inc(x_90); lean_dec(x_87); -x_91 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_63, x_64, x_68, x_6, x_90); +x_91 = l_Lean_Meta_restore(x_63, x_64, x_68, x_6, x_90); lean_dec(x_6); x_92 = lean_ctor_get(x_91, 1); lean_inc(x_92); @@ -42205,7 +42205,7 @@ goto block_77; block_77: { lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_63, x_64, x_68, x_6, x_72); +x_73 = l_Lean_Meta_restore(x_63, x_64, x_68, x_6, x_72); lean_dec(x_6); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); @@ -42282,7 +42282,7 @@ x_12 = lean_ctor_get_uint8(x_10, sizeof(void*)*1); x_13 = 0; lean_ctor_set_uint8(x_10, sizeof(void*)*1, x_13); x_14 = l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__2; -x_15 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(x_1, x_2, x_5, x_6, x_14, x_3, x_8); +x_15 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(x_1, x_2, x_5, x_6, x_14, x_3, x_8); if (lean_obj_tag(x_15) == 0) { lean_object* x_16; lean_object* x_17; uint8_t x_18; @@ -42577,7 +42577,7 @@ lean_ctor_set(x_79, 0, x_77); lean_ctor_set_uint8(x_79, sizeof(void*)*1, x_78); lean_ctor_set(x_8, 4, x_79); x_80 = l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__2; -x_81 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(x_1, x_2, x_5, x_6, x_80, x_3, x_8); +x_81 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(x_1, x_2, x_5, x_6, x_80, x_3, x_8); if (lean_obj_tag(x_81) == 0) { lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; 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; @@ -42772,7 +42772,7 @@ lean_ctor_set(x_123, 3, x_116); lean_ctor_set(x_123, 4, x_122); lean_ctor_set(x_123, 5, x_117); x_124 = l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__2; -x_125 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(x_1, x_2, x_5, x_6, x_124, x_3, x_123); +x_125 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1(x_1, x_2, x_5, x_6, x_124, x_3, x_123); if (lean_obj_tag(x_125) == 0) { lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; 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; @@ -42936,7 +42936,7 @@ lean_inc(x_158); lean_dec(x_156); x_159 = l___private_Init_Lean_Meta_ExprDefEq_22__isDefEqLeft___closed__2; lean_inc(x_3); -x_160 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__2(x_1, x_2, x_5, x_6, x_159, x_3, x_158); +x_160 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__2(x_1, x_2, x_5, x_6, x_159, x_3, x_158); if (lean_obj_tag(x_160) == 0) { lean_object* x_161; lean_object* x_162; lean_object* x_163; uint8_t x_164; @@ -43004,26 +43004,26 @@ return x_174; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___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* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { uint8_t x_6; lean_object* x_7; x_6 = lean_unbox(x_3); lean_dec(x_3); -x_7 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1(x_1, x_2, x_6, x_4, x_5); +x_7 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__1(x_1, x_2, x_6, x_4, x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); return x_7; } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { uint8_t x_7; lean_object* x_8; x_7 = lean_unbox(x_4); lean_dec(x_4); -x_8 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2(x_1, x_2, x_3, x_7, x_5, x_6); +x_8 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2(x_1, x_2, x_3, x_7, x_5, x_6); lean_dec(x_5); return x_8; } @@ -45168,7 +45168,7 @@ return x_17; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -45197,7 +45197,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_18, 1); lean_inc(x_21); lean_dec(x_18); -x_22 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_21); +x_22 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_21); lean_dec(x_3); x_23 = !lean_is_exclusive(x_22); if (x_23 == 0) @@ -45240,7 +45240,7 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_28, 1); lean_inc(x_31); lean_dec(x_28); -x_32 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_31); +x_32 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_31); lean_dec(x_3); x_33 = !lean_is_exclusive(x_32); if (x_33 == 0) @@ -45320,7 +45320,7 @@ goto block_17; block_17: { lean_object* x_12; uint8_t x_13; -x_12 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_11); +x_12 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_11); lean_dec(x_3); x_13 = !lean_is_exclusive(x_12); if (x_13 == 0) @@ -45385,7 +45385,7 @@ lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean x_63 = lean_ctor_get(x_60, 1); lean_inc(x_63); lean_dec(x_60); -x_64 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_63); +x_64 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_63); lean_dec(x_3); x_65 = lean_ctor_get(x_64, 1); lean_inc(x_65); @@ -45426,7 +45426,7 @@ lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean x_72 = lean_ctor_get(x_69, 1); lean_inc(x_72); lean_dec(x_69); -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_72); +x_73 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_72); lean_dec(x_3); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); @@ -45503,7 +45503,7 @@ goto block_59; block_59: { lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_54); +x_55 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_54); lean_dec(x_3); x_56 = lean_ctor_get(x_55, 1); lean_inc(x_56); @@ -45528,7 +45528,7 @@ return x_58; } } } -lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -45557,7 +45557,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_18, 1); lean_inc(x_21); lean_dec(x_18); -x_22 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_21); +x_22 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_21); lean_dec(x_3); x_23 = !lean_is_exclusive(x_22); if (x_23 == 0) @@ -45600,7 +45600,7 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_28, 1); lean_inc(x_31); lean_dec(x_28); -x_32 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_31); +x_32 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_31); lean_dec(x_3); x_33 = !lean_is_exclusive(x_32); if (x_33 == 0) @@ -45680,7 +45680,7 @@ goto block_17; block_17: { lean_object* x_12; uint8_t x_13; -x_12 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_11); +x_12 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_11); lean_dec(x_3); x_13 = !lean_is_exclusive(x_12); if (x_13 == 0) @@ -45745,7 +45745,7 @@ lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean x_63 = lean_ctor_get(x_60, 1); lean_inc(x_63); lean_dec(x_60); -x_64 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_63); +x_64 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_63); lean_dec(x_3); x_65 = lean_ctor_get(x_64, 1); lean_inc(x_65); @@ -45786,7 +45786,7 @@ lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean x_72 = lean_ctor_get(x_69, 1); lean_inc(x_72); lean_dec(x_69); -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_72); +x_73 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_72); lean_dec(x_3); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); @@ -45863,7 +45863,7 @@ goto block_59; block_59: { lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_54); +x_55 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_54); lean_dec(x_3); x_56 = lean_ctor_get(x_55, 1); lean_inc(x_56); @@ -46891,7 +46891,7 @@ lean_dec(x_48); lean_inc(x_3); lean_inc(x_2); lean_inc(x_1); -x_49 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__1(x_1, x_2, x_3, x_47); +x_49 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__1(x_1, x_2, x_3, x_47); if (lean_obj_tag(x_49) == 0) { lean_object* x_50; uint8_t x_51; @@ -47027,7 +47027,7 @@ lean_dec(x_82); lean_inc(x_3); lean_inc(x_2); lean_inc(x_1); -x_83 = l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__2(x_1, x_2, x_3, x_47); +x_83 = l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___spec__2(x_1, x_2, x_3, x_47); if (lean_obj_tag(x_83) == 0) { lean_object* x_84; uint8_t x_85; @@ -48585,7 +48585,7 @@ return x_93; } } } -lean_object* l_Lean_Meta_tryL(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_whenUndefDo(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; @@ -49986,7 +49986,7 @@ lean_dec(x_1); return x_2; } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { _start: { if (x_4 == 0) @@ -50027,7 +50027,7 @@ return x_20; } } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; @@ -50036,7 +50036,7 @@ lean_inc(x_3); x_7 = lean_alloc_closure((void*)(l_Lean_Meta_isExprDefEqAux), 4, 2); lean_closure_set(x_7, 0, x_3); lean_closure_set(x_7, 1, x_6); -x_8 = lean_alloc_closure((void*)(l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1___boxed), 6, 3); +x_8 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1___boxed), 6, 3); lean_closure_set(x_8, 0, x_1); lean_closure_set(x_8, 1, x_2); lean_closure_set(x_8, 2, x_3); @@ -50065,7 +50065,7 @@ lean_object* x_25; lean_object* x_26; uint8_t x_27; x_25 = lean_ctor_get(x_22, 1); lean_inc(x_25); lean_dec(x_22); -x_26 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_10, x_11, x_12, x_4, x_25); +x_26 = l_Lean_Meta_restore(x_10, x_11, x_12, x_4, x_25); lean_dec(x_4); x_27 = !lean_is_exclusive(x_26); if (x_27 == 0) @@ -50108,7 +50108,7 @@ lean_object* x_35; lean_object* x_36; uint8_t x_37; x_35 = lean_ctor_get(x_32, 1); lean_inc(x_35); lean_dec(x_32); -x_36 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_10, x_11, x_12, x_4, x_35); +x_36 = l_Lean_Meta_restore(x_10, x_11, x_12, x_4, x_35); lean_dec(x_4); x_37 = !lean_is_exclusive(x_36); if (x_37 == 0) @@ -50188,7 +50188,7 @@ goto block_21; block_21: { lean_object* x_16; uint8_t x_17; -x_16 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_10, x_11, x_12, x_4, x_15); +x_16 = l_Lean_Meta_restore(x_10, x_11, x_12, x_4, x_15); lean_dec(x_4); x_17 = !lean_is_exclusive(x_16); if (x_17 == 0) @@ -50253,7 +50253,7 @@ lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean x_67 = lean_ctor_get(x_64, 1); lean_inc(x_67); lean_dec(x_64); -x_68 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_49, x_50, x_54, x_4, x_67); +x_68 = l_Lean_Meta_restore(x_49, x_50, x_54, x_4, x_67); lean_dec(x_4); x_69 = lean_ctor_get(x_68, 1); lean_inc(x_69); @@ -50294,7 +50294,7 @@ lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean x_76 = lean_ctor_get(x_73, 1); lean_inc(x_76); lean_dec(x_73); -x_77 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_49, x_50, x_54, x_4, x_76); +x_77 = l_Lean_Meta_restore(x_49, x_50, x_54, x_4, x_76); lean_dec(x_4); x_78 = lean_ctor_get(x_77, 1); lean_inc(x_78); @@ -50371,7 +50371,7 @@ goto block_63; block_63: { lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; -x_59 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_49, x_50, x_54, x_4, x_58); +x_59 = l_Lean_Meta_restore(x_49, x_50, x_54, x_4, x_58); lean_dec(x_4); x_60 = lean_ctor_get(x_59, 1); lean_inc(x_60); @@ -50913,7 +50913,7 @@ 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_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_45, x_3, x_35); +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) { lean_object* x_47; uint8_t x_48; @@ -51534,7 +51534,7 @@ x_167 = l_Lean_Expr_getAppFn___main(x_6); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_168 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_167, x_3, x_157); +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) { lean_object* x_169; uint8_t x_170; @@ -52062,7 +52062,7 @@ x_267 = l_Lean_Expr_getAppFn___main(x_6); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_268 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_267, x_3, x_257); +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) { lean_object* x_269; uint8_t x_270; @@ -52519,13 +52519,13 @@ return x_56; } } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___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* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { uint8_t x_7; lean_object* x_8; x_7 = lean_unbox(x_4); lean_dec(x_4); -x_8 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1(x_1, x_2, x_3, x_7, x_5, x_6); +x_8 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambda__1(x_1, x_2, x_3, x_7, x_5, x_6); return x_8; } } @@ -52723,8 +52723,8 @@ lean_dec_ref(res); res = initialize_Init_Lean_Meta_Offset(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1 = _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1(); -lean_mark_persistent(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1); +l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1 = _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta___spec__1___closed__1); l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__1 = _init_l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__1(); lean_mark_persistent(l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__1); l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__2 = _init_l___private_Init_Lean_Meta_ExprDefEq_7__checkTypesAndAssign___closed__2(); @@ -52799,12 +52799,12 @@ l___private_Init_Lean_Meta_ExprDefEq_24__isDefEqLeftRight___closed__1 = _init_l_ lean_mark_persistent(l___private_Init_Lean_Meta_ExprDefEq_24__isDefEqLeftRight___closed__1); l___private_Init_Lean_Meta_ExprDefEq_24__isDefEqLeftRight___closed__2 = _init_l___private_Init_Lean_Meta_ExprDefEq_24__isDefEqLeftRight___closed__2(); lean_mark_persistent(l___private_Init_Lean_Meta_ExprDefEq_24__isDefEqLeftRight___closed__2); -l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1 = _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1(); -lean_mark_persistent(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1); -l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2 = _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2(); -lean_mark_persistent(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2); -l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3 = _init_l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3(); -lean_mark_persistent(l_Lean_Meta_try___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3); +l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1 = _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1(); +lean_mark_persistent(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__1); +l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2 = _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2(); +lean_mark_persistent(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__2); +l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3 = _init_l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3(); +lean_mark_persistent(l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_25__tryHeuristic___spec__1___lambda__2___closed__3); l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__1 = _init_l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__1(); lean_mark_persistent(l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__1); l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__2 = _init_l___private_Init_Lean_Meta_ExprDefEq_40__isDefEqQuick___main___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Meta/LevelDefEq.c b/stage0/stdlib/Init/Lean/Meta/LevelDefEq.c index 1d7c38ee32..d3637fd3fe 100644 --- a/stage0/stdlib/Init/Lean/Meta/LevelDefEq.c +++ b/stage0/stdlib/Init/Lean/Meta/LevelDefEq.c @@ -14,6 +14,7 @@ extern "C" { #endif extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__51; +lean_object* l_Lean_Meta_restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_Trace_2__addNode___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Level_normalize___main(lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); @@ -24,7 +25,6 @@ uint8_t l___private_Init_Lean_Meta_LevelDefEq_2__strictOccursMaxAux(lean_object* lean_object* l_Lean_Meta_isExprDefEq___closed__2; uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_5__solveSelfMax(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l___private_Init_Lean_Meta_LevelDefEq_2__strictOccursMaxAux___main(lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__2; lean_object* l_Lean_Meta_isExprDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); @@ -35,7 +35,6 @@ lean_object* l_PersistentArray_foldlMAux___main___at___private_Init_Lean_Meta_Le lean_object* l_Lean_Meta_instantiateLevelMVars(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isLevelDefEq___closed__3; lean_object* l_Lean_Meta_isExprDefEq___closed__1; -lean_object* l_Lean_Meta_tryOpt(lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main(lean_object*); lean_object* l_PersistentArray_push___rarg(lean_object*, lean_object*); @@ -51,7 +50,6 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_4__mkMaxArgsDiff___boxed(lean lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__1; lean_object* l_Lean_Meta_isLevelDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isLevelDefEqAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_LevelDefEq_14__regTraceClasses(lean_object*); uint8_t l_Lean_MetavarContext_hasAssignableLevelMVar___main(lean_object*, lean_object*); lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__2; lean_object* l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); @@ -59,6 +57,7 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_6__postponeIsLevelDefEq___box lean_object* lean_array_fget(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Meta_isListLevelDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__regTraceClasses(lean_object*); lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__4; lean_object* l___private_Init_Lean_Meta_LevelDefEq_8__getNumPostponed___rarg(lean_object*); lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -70,7 +69,6 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_9__getResetPostponed(lean_obj lean_object* l_Lean_mkLevelMax(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_4__mkMaxArgsDiff___main(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_12__processPostponed(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__restore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___rarg___boxed(lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); @@ -79,12 +77,9 @@ extern lean_object* l_PersistentArray_empty___closed__3; lean_object* l_Lean_Meta_addContext(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___closed__3; lean_object* l___private_Init_Lean_Util_Trace_3__getResetTraces___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__6(lean_object*); -lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_4__mkMaxArgsDiff___main___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_tryOpt___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isListLevelDefEqAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_1__decAux_x3f___main___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignLevelMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__5; lean_object* l___private_Init_Lean_Meta_LevelDefEq_3__strictOccursMax___boxed(lean_object*, lean_object*); @@ -92,12 +87,11 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___cl lean_object* l_Lean_Meta_isLevelDefEqAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_12__processPostponed___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__6; -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__7; lean_object* l_Lean_Meta_isLevelDefEq___closed__6; +lean_object* l_Lean_Meta_commitWhen(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_5__solveSelfMax___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isListLevelDefEqAux___main(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isDefEq(lean_object*, lean_object*, lean_object*, lean_object*); @@ -113,7 +107,6 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___mai uint8_t l_Lean_Level_isMVar(lean_object*); uint8_t l___private_Init_Lean_Meta_LevelDefEq_3__strictOccursMax(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_2__strictOccursMaxAux___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_8__getNumPostponed(lean_object*); lean_object* l_Lean_Meta_isLevelDefEq___closed__4; lean_object* l___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___closed__1; @@ -126,6 +119,7 @@ lean_object* l___private_Init_Lean_Util_Trace_3__getResetTraces___at___private_I lean_object* l___private_Init_Lean_Meta_LevelDefEq_6__postponeIsLevelDefEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_foldlM___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__1(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__4; +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isLevelDefEq___closed__1; lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux(lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -133,10 +127,13 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_4__mkMaxArgsDiff(lean_object* lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__6; lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_9__getResetPostponed___rarg(lean_object*); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isLevelDefEq___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); lean_object* l_Lean_Meta_isLevelDefEq___closed__2; lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Meta_restore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_8__getNumPostponed___boxed(lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__8; lean_object* l___private_Init_Lean_Meta_LevelDefEq_7__getLevelConstraintKind___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -146,6 +143,7 @@ lean_object* l___private_Init_Lean_Meta_LevelDefEq_1__decAux_x3f___main(lean_obj lean_object* l_Lean_Meta_isReadOnlyLevelMVar(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__9; lean_object* l_PersistentArray_foldlMAux___main___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__2(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__2; lean_object* l___private_Init_Lean_Meta_LevelDefEq_11__processPostponedAux___main___rarg___closed__1; @@ -154,7 +152,7 @@ lean_object* l_Lean_Meta_decLevel_x3f(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_toArray___rarg(lean_object*); lean_object* l___private_Init_Lean_Util_Trace_2__addNode___at___private_Init_Lean_Meta_LevelDefEq_10__processPostponedStep___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_1__decAux_x3f___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -8153,7 +8151,7 @@ lean_dec(x_1); return x_3; } } -lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__restore(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_restore(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; @@ -8201,16 +8199,16 @@ return x_17; } } } -lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__restore___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Meta_restore___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_Meta_LevelDefEq_13__restore(x_1, x_2, x_3, x_4, x_5); +x_6 = l_Lean_Meta_restore(x_1, x_2, x_3, x_4, x_5); lean_dec(x_4); return x_6; } } -lean_object* l_Lean_Meta_try(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Meta_commitWhen(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; @@ -8239,7 +8237,7 @@ lean_object* x_20; lean_object* x_21; uint8_t x_22; x_20 = lean_ctor_get(x_17, 1); lean_inc(x_20); lean_dec(x_17); -x_21 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_5, x_6, x_7, x_2, x_20); +x_21 = l_Lean_Meta_restore(x_5, x_6, x_7, x_2, x_20); lean_dec(x_2); x_22 = !lean_is_exclusive(x_21); if (x_22 == 0) @@ -8282,7 +8280,7 @@ lean_object* x_30; lean_object* x_31; uint8_t x_32; x_30 = lean_ctor_get(x_27, 1); lean_inc(x_30); lean_dec(x_27); -x_31 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_5, x_6, x_7, x_2, x_30); +x_31 = l_Lean_Meta_restore(x_5, x_6, x_7, x_2, x_30); lean_dec(x_2); x_32 = !lean_is_exclusive(x_31); if (x_32 == 0) @@ -8362,7 +8360,7 @@ goto block_16; block_16: { lean_object* x_11; uint8_t x_12; -x_11 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_5, x_6, x_7, x_2, x_10); +x_11 = l_Lean_Meta_restore(x_5, x_6, x_7, x_2, x_10); lean_dec(x_2); x_12 = !lean_is_exclusive(x_11); if (x_12 == 0) @@ -8427,7 +8425,7 @@ lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean x_62 = lean_ctor_get(x_59, 1); lean_inc(x_62); lean_dec(x_59); -x_63 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_44, x_45, x_49, x_2, x_62); +x_63 = l_Lean_Meta_restore(x_44, x_45, x_49, x_2, x_62); lean_dec(x_2); x_64 = lean_ctor_get(x_63, 1); lean_inc(x_64); @@ -8468,7 +8466,7 @@ lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean x_71 = lean_ctor_get(x_68, 1); lean_inc(x_71); lean_dec(x_68); -x_72 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_44, x_45, x_49, x_2, x_71); +x_72 = l_Lean_Meta_restore(x_44, x_45, x_49, x_2, x_71); lean_dec(x_2); x_73 = lean_ctor_get(x_72, 1); lean_inc(x_73); @@ -8545,7 +8543,7 @@ goto block_58; block_58: { lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; -x_54 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_44, x_45, x_49, x_2, x_53); +x_54 = l_Lean_Meta_restore(x_44, x_45, x_49, x_2, x_53); lean_dec(x_2); x_55 = lean_ctor_get(x_54, 1); lean_inc(x_55); @@ -8570,381 +8568,7 @@ return x_57; } } } -lean_object* l_Lean_Meta_tryOpt___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint8_t x_4; -x_4 = !lean_is_exclusive(x_3); -if (x_4 == 0) -{ -lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_17; -x_5 = lean_ctor_get(x_3, 0); -x_6 = lean_ctor_get(x_3, 1); -x_7 = lean_ctor_get(x_3, 5); -x_8 = l_PersistentArray_empty___closed__3; -lean_inc(x_6); -lean_inc(x_5); -lean_ctor_set(x_3, 5, x_8); -lean_inc(x_2); -x_17 = lean_apply_2(x_1, x_2, x_3); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_18; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -if (lean_obj_tag(x_18) == 0) -{ -lean_object* x_19; lean_object* x_20; uint8_t x_21; -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -lean_dec(x_17); -x_20 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_5, x_6, x_7, x_2, x_19); -lean_dec(x_2); -x_21 = !lean_is_exclusive(x_20); -if (x_21 == 0) -{ -lean_object* x_22; -x_22 = lean_ctor_get(x_20, 0); -lean_dec(x_22); -lean_ctor_set(x_20, 0, x_18); -return x_20; -} -else -{ -lean_object* x_23; lean_object* x_24; -x_23 = lean_ctor_get(x_20, 1); -lean_inc(x_23); -lean_dec(x_20); -x_24 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_24, 0, x_18); -lean_ctor_set(x_24, 1, x_23); -return x_24; -} -} -else -{ -lean_object* x_25; lean_object* x_26; -x_25 = lean_ctor_get(x_17, 1); -lean_inc(x_25); -lean_dec(x_17); -x_26 = l___private_Init_Lean_Meta_LevelDefEq_12__processPostponed(x_2, x_25); -if (lean_obj_tag(x_26) == 0) -{ -lean_object* x_27; uint8_t x_28; -x_27 = lean_ctor_get(x_26, 0); -lean_inc(x_27); -x_28 = lean_unbox(x_27); -lean_dec(x_27); -if (x_28 == 0) -{ -lean_object* x_29; lean_object* x_30; uint8_t x_31; -lean_dec(x_18); -x_29 = lean_ctor_get(x_26, 1); -lean_inc(x_29); -lean_dec(x_26); -x_30 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_5, x_6, x_7, x_2, x_29); -lean_dec(x_2); -x_31 = !lean_is_exclusive(x_30); -if (x_31 == 0) -{ -lean_object* x_32; lean_object* x_33; -x_32 = lean_ctor_get(x_30, 0); -lean_dec(x_32); -x_33 = lean_box(0); -lean_ctor_set(x_30, 0, x_33); -return x_30; -} -else -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_34 = lean_ctor_get(x_30, 1); -lean_inc(x_34); -lean_dec(x_30); -x_35 = lean_box(0); -x_36 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -return x_36; -} -} -else -{ -uint8_t x_37; -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_2); -x_37 = !lean_is_exclusive(x_26); -if (x_37 == 0) -{ -lean_object* x_38; -x_38 = lean_ctor_get(x_26, 0); -lean_dec(x_38); -lean_ctor_set(x_26, 0, x_18); -return x_26; -} -else -{ -lean_object* x_39; lean_object* x_40; -x_39 = lean_ctor_get(x_26, 1); -lean_inc(x_39); -lean_dec(x_26); -x_40 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_40, 0, x_18); -lean_ctor_set(x_40, 1, x_39); -return x_40; -} -} -} -else -{ -lean_object* x_41; lean_object* x_42; -lean_dec(x_18); -x_41 = lean_ctor_get(x_26, 0); -lean_inc(x_41); -x_42 = lean_ctor_get(x_26, 1); -lean_inc(x_42); -lean_dec(x_26); -x_9 = x_41; -x_10 = x_42; -goto block_16; -} -} -} -else -{ -lean_object* x_43; lean_object* x_44; -x_43 = lean_ctor_get(x_17, 0); -lean_inc(x_43); -x_44 = lean_ctor_get(x_17, 1); -lean_inc(x_44); -lean_dec(x_17); -x_9 = x_43; -x_10 = x_44; -goto block_16; -} -block_16: -{ -lean_object* x_11; uint8_t x_12; -x_11 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_5, x_6, x_7, x_2, x_10); -lean_dec(x_2); -x_12 = !lean_is_exclusive(x_11); -if (x_12 == 0) -{ -lean_object* x_13; -x_13 = lean_ctor_get(x_11, 0); -lean_dec(x_13); -lean_ctor_set_tag(x_11, 1); -lean_ctor_set(x_11, 0, x_9); -return x_11; -} -else -{ -lean_object* x_14; lean_object* x_15; -x_14 = lean_ctor_get(x_11, 1); -lean_inc(x_14); -lean_dec(x_11); -x_15 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_15, 0, x_9); -lean_ctor_set(x_15, 1, x_14); -return x_15; -} -} -} -else -{ -lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_60; -x_45 = lean_ctor_get(x_3, 0); -x_46 = lean_ctor_get(x_3, 1); -x_47 = lean_ctor_get(x_3, 2); -x_48 = lean_ctor_get(x_3, 3); -x_49 = lean_ctor_get(x_3, 4); -x_50 = lean_ctor_get(x_3, 5); -lean_inc(x_50); -lean_inc(x_49); -lean_inc(x_48); -lean_inc(x_47); -lean_inc(x_46); -lean_inc(x_45); -lean_dec(x_3); -x_51 = l_PersistentArray_empty___closed__3; -lean_inc(x_46); -lean_inc(x_45); -x_52 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_52, 0, x_45); -lean_ctor_set(x_52, 1, x_46); -lean_ctor_set(x_52, 2, x_47); -lean_ctor_set(x_52, 3, x_48); -lean_ctor_set(x_52, 4, x_49); -lean_ctor_set(x_52, 5, x_51); -lean_inc(x_2); -x_60 = lean_apply_2(x_1, x_2, x_52); -if (lean_obj_tag(x_60) == 0) -{ -lean_object* x_61; -x_61 = lean_ctor_get(x_60, 0); -lean_inc(x_61); -if (lean_obj_tag(x_61) == 0) -{ -lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_62 = lean_ctor_get(x_60, 1); -lean_inc(x_62); -lean_dec(x_60); -x_63 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_2, x_62); -lean_dec(x_2); -x_64 = lean_ctor_get(x_63, 1); -lean_inc(x_64); -if (lean_is_exclusive(x_63)) { - lean_ctor_release(x_63, 0); - lean_ctor_release(x_63, 1); - x_65 = x_63; -} else { - lean_dec_ref(x_63); - x_65 = lean_box(0); -} -if (lean_is_scalar(x_65)) { - x_66 = lean_alloc_ctor(0, 2, 0); -} else { - x_66 = x_65; -} -lean_ctor_set(x_66, 0, x_61); -lean_ctor_set(x_66, 1, x_64); -return x_66; -} -else -{ -lean_object* x_67; lean_object* x_68; -x_67 = lean_ctor_get(x_60, 1); -lean_inc(x_67); -lean_dec(x_60); -x_68 = l___private_Init_Lean_Meta_LevelDefEq_12__processPostponed(x_2, x_67); -if (lean_obj_tag(x_68) == 0) -{ -lean_object* x_69; uint8_t x_70; -x_69 = lean_ctor_get(x_68, 0); -lean_inc(x_69); -x_70 = lean_unbox(x_69); -lean_dec(x_69); -if (x_70 == 0) -{ -lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; -lean_dec(x_61); -x_71 = lean_ctor_get(x_68, 1); -lean_inc(x_71); -lean_dec(x_68); -x_72 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_2, x_71); -lean_dec(x_2); -x_73 = lean_ctor_get(x_72, 1); -lean_inc(x_73); -if (lean_is_exclusive(x_72)) { - lean_ctor_release(x_72, 0); - lean_ctor_release(x_72, 1); - x_74 = x_72; -} else { - lean_dec_ref(x_72); - x_74 = lean_box(0); -} -x_75 = lean_box(0); -if (lean_is_scalar(x_74)) { - x_76 = lean_alloc_ctor(0, 2, 0); -} else { - x_76 = x_74; -} -lean_ctor_set(x_76, 0, x_75); -lean_ctor_set(x_76, 1, x_73); -return x_76; -} -else -{ -lean_object* x_77; lean_object* x_78; lean_object* x_79; -lean_dec(x_50); -lean_dec(x_46); -lean_dec(x_45); -lean_dec(x_2); -x_77 = lean_ctor_get(x_68, 1); -lean_inc(x_77); -if (lean_is_exclusive(x_68)) { - lean_ctor_release(x_68, 0); - lean_ctor_release(x_68, 1); - x_78 = x_68; -} else { - lean_dec_ref(x_68); - x_78 = lean_box(0); -} -if (lean_is_scalar(x_78)) { - x_79 = lean_alloc_ctor(0, 2, 0); -} else { - x_79 = x_78; -} -lean_ctor_set(x_79, 0, x_61); -lean_ctor_set(x_79, 1, x_77); -return x_79; -} -} -else -{ -lean_object* x_80; lean_object* x_81; -lean_dec(x_61); -x_80 = lean_ctor_get(x_68, 0); -lean_inc(x_80); -x_81 = lean_ctor_get(x_68, 1); -lean_inc(x_81); -lean_dec(x_68); -x_53 = x_80; -x_54 = x_81; -goto block_59; -} -} -} -else -{ -lean_object* x_82; lean_object* x_83; -x_82 = lean_ctor_get(x_60, 0); -lean_inc(x_82); -x_83 = lean_ctor_get(x_60, 1); -lean_inc(x_83); -lean_dec(x_60); -x_53 = x_82; -x_54 = x_83; -goto block_59; -} -block_59: -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_2, x_54); -lean_dec(x_2); -x_56 = lean_ctor_get(x_55, 1); -lean_inc(x_56); -if (lean_is_exclusive(x_55)) { - lean_ctor_release(x_55, 0); - lean_ctor_release(x_55, 1); - x_57 = x_55; -} else { - lean_dec_ref(x_55); - x_57 = lean_box(0); -} -if (lean_is_scalar(x_57)) { - x_58 = lean_alloc_ctor(1, 2, 0); -} else { - x_58 = x_57; - lean_ctor_set_tag(x_58, 1); -} -lean_ctor_set(x_58, 0, x_53); -lean_ctor_set(x_58, 1, x_56); -return x_58; -} -} -} -} -lean_object* l_Lean_Meta_tryOpt(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Meta_tryOpt___rarg), 3, 0); -return x_2; -} -} -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -8972,7 +8596,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_18, 1); lean_inc(x_21); lean_dec(x_18); -x_22 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_21); +x_22 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_21); x_23 = !lean_is_exclusive(x_22); if (x_23 == 0) { @@ -9014,7 +8638,7 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_28, 1); lean_inc(x_31); lean_dec(x_28); -x_32 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_31); +x_32 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_31); x_33 = !lean_is_exclusive(x_32); if (x_33 == 0) { @@ -9092,7 +8716,7 @@ goto block_17; block_17: { lean_object* x_12; uint8_t x_13; -x_12 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_11); +x_12 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_11); x_13 = !lean_is_exclusive(x_12); if (x_13 == 0) { @@ -9155,7 +8779,7 @@ lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean x_63 = lean_ctor_get(x_60, 1); lean_inc(x_63); lean_dec(x_60); -x_64 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_63); +x_64 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_63); x_65 = lean_ctor_get(x_64, 1); lean_inc(x_65); if (lean_is_exclusive(x_64)) { @@ -9195,7 +8819,7 @@ lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean x_72 = lean_ctor_get(x_69, 1); lean_inc(x_72); lean_dec(x_69); -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_72); +x_73 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_72); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); if (lean_is_exclusive(x_73)) { @@ -9270,7 +8894,7 @@ goto block_59; block_59: { lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_54); +x_55 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_54); x_56 = lean_ctor_get(x_55, 1); lean_inc(x_56); if (lean_is_exclusive(x_55)) { @@ -9294,7 +8918,7 @@ return x_58; } } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -9322,7 +8946,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_18, 1); lean_inc(x_21); lean_dec(x_18); -x_22 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_21); +x_22 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_21); x_23 = !lean_is_exclusive(x_22); if (x_23 == 0) { @@ -9364,7 +8988,7 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_28, 1); lean_inc(x_31); lean_dec(x_28); -x_32 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_31); +x_32 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_31); x_33 = !lean_is_exclusive(x_32); if (x_33 == 0) { @@ -9442,7 +9066,7 @@ goto block_17; block_17: { lean_object* x_12; uint8_t x_13; -x_12 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_11); +x_12 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_11); x_13 = !lean_is_exclusive(x_12); if (x_13 == 0) { @@ -9505,7 +9129,7 @@ lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean x_63 = lean_ctor_get(x_60, 1); lean_inc(x_63); lean_dec(x_60); -x_64 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_63); +x_64 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_63); x_65 = lean_ctor_get(x_64, 1); lean_inc(x_65); if (lean_is_exclusive(x_64)) { @@ -9545,7 +9169,7 @@ lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean x_72 = lean_ctor_get(x_69, 1); lean_inc(x_72); lean_dec(x_69); -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_72); +x_73 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_72); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); if (lean_is_exclusive(x_73)) { @@ -9620,7 +9244,7 @@ goto block_59; block_59: { lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_54); +x_55 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_54); x_56 = lean_ctor_get(x_55, 1); lean_inc(x_56); if (lean_is_exclusive(x_55)) { @@ -9779,7 +9403,7 @@ x_11 = 0; lean_ctor_set_uint8(x_8, sizeof(void*)*1, x_11); lean_inc(x_2); lean_inc(x_1); -x_57 = l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_6); +x_57 = l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_6); if (lean_obj_tag(x_57) == 0) { lean_object* x_58; lean_object* x_59; uint8_t x_60; lean_object* x_61; lean_object* x_84; uint8_t x_85; @@ -10075,7 +9699,7 @@ lean_ctor_set_uint8(x_96, sizeof(void*)*1, x_95); lean_ctor_set(x_6, 4, x_96); lean_inc(x_2); lean_inc(x_1); -x_128 = l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_6); +x_128 = l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_6); if (lean_obj_tag(x_128) == 0) { lean_object* x_129; lean_object* x_130; uint8_t x_131; lean_object* x_132; lean_object* x_155; uint8_t x_156; @@ -10359,7 +9983,7 @@ lean_ctor_set(x_175, 4, x_174); lean_ctor_set(x_175, 5, x_169); lean_inc(x_2); lean_inc(x_1); -x_207 = l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_175); +x_207 = l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_175); if (lean_obj_tag(x_207) == 0) { lean_object* x_208; lean_object* x_209; uint8_t x_210; lean_object* x_211; lean_object* x_234; uint8_t x_235; @@ -10611,7 +10235,7 @@ lean_inc(x_245); lean_dec(x_243); lean_inc(x_2); lean_inc(x_1); -x_257 = l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__2(x_1, x_2, x_3, x_245); +x_257 = l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__2(x_1, x_2, x_3, x_245); if (lean_obj_tag(x_257) == 0) { lean_object* x_258; lean_object* x_259; uint8_t x_260; lean_object* x_261; lean_object* x_284; uint8_t x_285; @@ -10785,20 +10409,20 @@ return x_255; } } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_4); +x_5 = l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__1(x_1, x_2, x_3, x_4); lean_dec(x_3); return x_5; } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Lean_Meta_try___at_Lean_Meta_isLevelDefEq___spec__2(x_1, x_2, x_3, x_4); +x_5 = l_Lean_Meta_commitWhen___at_Lean_Meta_isLevelDefEq___spec__2(x_1, x_2, x_3, x_4); lean_dec(x_3); return x_5; } @@ -10812,7 +10436,7 @@ lean_dec(x_3); return x_5; } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -10841,7 +10465,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_18, 1); lean_inc(x_21); lean_dec(x_18); -x_22 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_21); +x_22 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_21); lean_dec(x_3); x_23 = !lean_is_exclusive(x_22); if (x_23 == 0) @@ -10884,7 +10508,7 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_28, 1); lean_inc(x_31); lean_dec(x_28); -x_32 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_31); +x_32 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_31); lean_dec(x_3); x_33 = !lean_is_exclusive(x_32); if (x_33 == 0) @@ -10964,7 +10588,7 @@ goto block_17; block_17: { lean_object* x_12; uint8_t x_13; -x_12 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_11); +x_12 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_11); lean_dec(x_3); x_13 = !lean_is_exclusive(x_12); if (x_13 == 0) @@ -11029,7 +10653,7 @@ lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean x_63 = lean_ctor_get(x_60, 1); lean_inc(x_63); lean_dec(x_60); -x_64 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_63); +x_64 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_63); lean_dec(x_3); x_65 = lean_ctor_get(x_64, 1); lean_inc(x_65); @@ -11070,7 +10694,7 @@ lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean x_72 = lean_ctor_get(x_69, 1); lean_inc(x_72); lean_dec(x_69); -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_72); +x_73 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_72); lean_dec(x_3); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); @@ -11147,7 +10771,7 @@ goto block_59; block_59: { lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_54); +x_55 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_54); lean_dec(x_3); x_56 = lean_ctor_get(x_55, 1); lean_inc(x_56); @@ -11172,7 +10796,7 @@ return x_58; } } } -lean_object* l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -11201,7 +10825,7 @@ lean_object* x_21; lean_object* x_22; uint8_t x_23; x_21 = lean_ctor_get(x_18, 1); lean_inc(x_21); lean_dec(x_18); -x_22 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_21); +x_22 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_21); lean_dec(x_3); x_23 = !lean_is_exclusive(x_22); if (x_23 == 0) @@ -11244,7 +10868,7 @@ lean_object* x_31; lean_object* x_32; uint8_t x_33; x_31 = lean_ctor_get(x_28, 1); lean_inc(x_31); lean_dec(x_28); -x_32 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_31); +x_32 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_31); lean_dec(x_3); x_33 = !lean_is_exclusive(x_32); if (x_33 == 0) @@ -11324,7 +10948,7 @@ goto block_17; block_17: { lean_object* x_12; uint8_t x_13; -x_12 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_6, x_7, x_8, x_3, x_11); +x_12 = l_Lean_Meta_restore(x_6, x_7, x_8, x_3, x_11); lean_dec(x_3); x_13 = !lean_is_exclusive(x_12); if (x_13 == 0) @@ -11389,7 +11013,7 @@ lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean x_63 = lean_ctor_get(x_60, 1); lean_inc(x_63); lean_dec(x_60); -x_64 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_63); +x_64 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_63); lean_dec(x_3); x_65 = lean_ctor_get(x_64, 1); lean_inc(x_65); @@ -11430,7 +11054,7 @@ lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean x_72 = lean_ctor_get(x_69, 1); lean_inc(x_72); lean_dec(x_69); -x_73 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_72); +x_73 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_72); lean_dec(x_3); x_74 = lean_ctor_get(x_73, 1); lean_inc(x_74); @@ -11507,7 +11131,7 @@ goto block_59; block_59: { lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_55 = l___private_Init_Lean_Meta_LevelDefEq_13__restore(x_45, x_46, x_50, x_3, x_54); +x_55 = l_Lean_Meta_restore(x_45, x_46, x_50, x_3, x_54); lean_dec(x_3); x_56 = lean_ctor_get(x_55, 1); lean_inc(x_56); @@ -11602,7 +11226,7 @@ lean_ctor_set_uint8(x_8, sizeof(void*)*1, x_11); lean_inc(x_3); lean_inc(x_2); lean_inc(x_1); -x_57 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__1(x_1, x_2, x_3, x_6); +x_57 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__1(x_1, x_2, x_3, x_6); if (lean_obj_tag(x_57) == 0) { lean_object* x_58; lean_object* x_59; uint8_t x_60; lean_object* x_61; lean_object* x_84; uint8_t x_85; @@ -11903,7 +11527,7 @@ lean_ctor_set(x_6, 4, x_96); lean_inc(x_3); lean_inc(x_2); lean_inc(x_1); -x_128 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__1(x_1, x_2, x_3, x_6); +x_128 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__1(x_1, x_2, x_3, x_6); if (lean_obj_tag(x_128) == 0) { lean_object* x_129; lean_object* x_130; uint8_t x_131; lean_object* x_132; lean_object* x_155; uint8_t x_156; @@ -12192,7 +11816,7 @@ lean_ctor_set(x_175, 5, x_169); lean_inc(x_3); lean_inc(x_2); lean_inc(x_1); -x_207 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__1(x_1, x_2, x_3, x_175); +x_207 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__1(x_1, x_2, x_3, x_175); if (lean_obj_tag(x_207) == 0) { lean_object* x_208; lean_object* x_209; uint8_t x_210; lean_object* x_211; lean_object* x_234; uint8_t x_235; @@ -12449,7 +12073,7 @@ lean_dec(x_243); lean_inc(x_3); lean_inc(x_2); lean_inc(x_1); -x_257 = l_Lean_Meta_try___at_Lean_Meta_isExprDefEq___spec__2(x_1, x_2, x_3, x_245); +x_257 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEq___spec__2(x_1, x_2, x_3, x_245); if (lean_obj_tag(x_257) == 0) { lean_object* x_258; lean_object* x_259; uint8_t x_260; lean_object* x_261; lean_object* x_284; uint8_t x_285; @@ -12633,7 +12257,7 @@ x_5 = l_Lean_Meta_isExprDefEq(x_1, x_2, x_3, x_4); return x_5; } } -lean_object* l___private_Init_Lean_Meta_LevelDefEq_14__regTraceClasses(lean_object* x_1) { +lean_object* l___private_Init_Lean_Meta_LevelDefEq_13__regTraceClasses(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -12771,7 +12395,7 @@ l_Lean_Meta_isExprDefEq___closed__1 = _init_l_Lean_Meta_isExprDefEq___closed__1( lean_mark_persistent(l_Lean_Meta_isExprDefEq___closed__1); l_Lean_Meta_isExprDefEq___closed__2 = _init_l_Lean_Meta_isExprDefEq___closed__2(); lean_mark_persistent(l_Lean_Meta_isExprDefEq___closed__2); -res = l___private_Init_Lean_Meta_LevelDefEq_14__regTraceClasses(lean_io_mk_world()); +res = l___private_Init_Lean_Meta_LevelDefEq_13__regTraceClasses(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); return lean_mk_io_result(lean_box(0)); diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic.c b/stage0/stdlib/Init/Lean/Meta/Tactic.c index 12a8138566..c4e61c6f65 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta.Tactic -// Imports: Init.Lean.Meta.Tactic.Intro Init.Lean.Meta.Tactic.Assumption Init.Lean.Meta.Tactic.Apply Init.Lean.Meta.Tactic.Revert Init.Lean.Meta.Tactic.Clear Init.Lean.Meta.Tactic.Assert Init.Lean.Meta.Tactic.Target +// Imports: Init.Lean.Meta.Tactic.Intro Init.Lean.Meta.Tactic.Assumption Init.Lean.Meta.Tactic.Apply Init.Lean.Meta.Tactic.Revert Init.Lean.Meta.Tactic.Clear Init.Lean.Meta.Tactic.Assert Init.Lean.Meta.Tactic.Target Init.Lean.Meta.Tactic.Rewrite Init.Lean.Meta.Tactic.Generalize Init.Lean.Meta.Tactic.LocalDecl #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -20,6 +20,9 @@ lean_object* initialize_Init_Lean_Meta_Tactic_Revert(lean_object*); lean_object* initialize_Init_Lean_Meta_Tactic_Clear(lean_object*); lean_object* initialize_Init_Lean_Meta_Tactic_Assert(lean_object*); lean_object* initialize_Init_Lean_Meta_Tactic_Target(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Rewrite(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Generalize(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_LocalDecl(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Meta_Tactic(lean_object* w) { lean_object * res; @@ -46,6 +49,15 @@ lean_dec_ref(res); res = initialize_Init_Lean_Meta_Tactic_Target(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Rewrite(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Generalize(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_LocalDecl(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/Meta/Tactic/Apply.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Apply.c index f7fcc71ebd..35525c30b3 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Apply.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Apply.c @@ -22,6 +22,7 @@ lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); extern lean_object* l_Lean_MessageData_ofList___closed__3; uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_FindMVar_main___main___at___private_Init_Lean_Meta_Tactic_Apply_4__dependsOnOthers___spec__1___boxed(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* lean_array_fswap(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Array_empty___closed__1; @@ -81,12 +82,12 @@ lean_object* l___private_Init_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg__ lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Meta_Tactic_Apply_5__reorderNonDependentFirst___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasMVar(lean_object*); uint8_t l_Lean_Name_isAnonymous(lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Apply_3__throwApplyError___rarg___closed__4; lean_object* l_Nat_forMAux___main___at_Lean_Meta_synthAppInstances___spec__1___closed__1; 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_Nat_forMAux___main___at_Lean_Meta_synthAppInstances___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Array_toList___rarg(lean_object*); extern lean_object* l_Lean_Expr_Inhabited; lean_object* l_Nat_forMAux___main___at_Lean_Meta_synthAppInstances___spec__1___closed__2; @@ -2461,9 +2462,47 @@ lean_closure_set(x_7, 2, x_5); x_8 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_8, 0, x_6); lean_closure_set(x_8, 1, x_7); -x_9 = l_Lean_Meta_withMVarContext___rarg(x_1, x_8, x_3, x_4); +x_9 = l_Lean_Meta_getMVarDecl(x_1, x_3, x_4); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +x_13 = lean_ctor_get(x_10, 4); +lean_inc(x_13); +lean_dec(x_10); +x_14 = l_Lean_Meta_withLocalContext___rarg(x_12, x_13, x_8, x_3, x_11); +return x_14; +} +else +{ +uint8_t x_15; +lean_dec(x_8); +x_15 = !lean_is_exclusive(x_9); +if (x_15 == 0) +{ return x_9; } +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_9, 0); +x_17 = lean_ctor_get(x_9, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_9); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_16); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +} } lean_object* l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Assert.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Assert.c index 39c0611af4..623cf57b34 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Assert.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Assert.c @@ -16,6 +16,7 @@ extern "C" { lean_object* l_Lean_Meta_assert(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_Meta_assert___closed__2; +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assert___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); @@ -30,12 +31,12 @@ lean_object* l_Lean_Meta_define___lambda__1___boxed(lean_object*, lean_object*, lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___closed__2; lean_object* l_Lean_mkForall(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___closed__1; lean_object* l_Lean_mkLet(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_define___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assert___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: @@ -219,9 +220,47 @@ lean_closure_set(x_9, 3, x_4); x_10 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_10, 0, x_8); lean_closure_set(x_10, 1, x_9); -x_11 = l_Lean_Meta_withMVarContext___rarg(x_1, x_10, x_5, x_6); +x_11 = l_Lean_Meta_getMVarDecl(x_1, x_5, x_6); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_12, 4); +lean_inc(x_15); +lean_dec(x_12); +x_16 = l_Lean_Meta_withLocalContext___rarg(x_14, x_15, x_10, x_5, x_13); +return x_16; +} +else +{ +uint8_t x_17; +lean_dec(x_10); +x_17 = !lean_is_exclusive(x_11); +if (x_17 == 0) +{ return x_11; } +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_11, 0); +x_19 = lean_ctor_get(x_11, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_11); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} } lean_object* l_Lean_Meta_assert___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: @@ -423,9 +462,47 @@ lean_closure_set(x_9, 3, x_4); x_10 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_10, 0, x_8); lean_closure_set(x_10, 1, x_9); -x_11 = l_Lean_Meta_withMVarContext___rarg(x_1, x_10, x_5, x_6); +x_11 = l_Lean_Meta_getMVarDecl(x_1, x_5, x_6); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_12, 4); +lean_inc(x_15); +lean_dec(x_12); +x_16 = l_Lean_Meta_withLocalContext___rarg(x_14, x_15, x_10, x_5, x_13); +return x_16; +} +else +{ +uint8_t x_17; +lean_dec(x_10); +x_17 = !lean_is_exclusive(x_11); +if (x_17 == 0) +{ return x_11; } +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_11, 0); +x_19 = lean_ctor_get(x_11, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_11); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} } lean_object* l_Lean_Meta_define___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Assumption.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Assumption.c index 17e03f16cc..f77dfaec1e 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Assumption.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Assumption.c @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* l_Lean_LocalContext_findDeclRevM_x3f___at_Lean_Meta_assumptionAux___spec__1(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_PersistentArray_findSomeRevM_x3f___at_Lean_Meta_assumptionAux___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__3(lean_object*, lean_object*, lean_object*, 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*); @@ -43,9 +44,9 @@ lean_object* l_Lean_Meta_assumptionAux___closed__1; lean_object* l_PersistentArray_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assumptionAux___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_findSomeRevM_x3f___at_Lean_Meta_assumptionAux___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Array_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); @@ -890,9 +891,47 @@ lean_closure_set(x_6, 0, x_1); x_7 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_7, 0, x_5); lean_closure_set(x_7, 1, x_6); -x_8 = l_Lean_Meta_withMVarContext___rarg(x_1, x_7, x_2, x_3); +x_8 = l_Lean_Meta_getMVarDecl(x_1, x_2, x_3); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_9, 4); +lean_inc(x_12); +lean_dec(x_9); +x_13 = l_Lean_Meta_withLocalContext___rarg(x_11, x_12, x_7, x_2, x_10); +return x_13; +} +else +{ +uint8_t x_14; +lean_dec(x_7); +x_14 = !lean_is_exclusive(x_8); +if (x_14 == 0) +{ return x_8; } +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_8, 0); +x_16 = lean_ctor_get(x_8, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_8); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} } lean_object* l_Array_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Clear.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Clear.c index f9bb4b8ed0..17d2851d1c 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Clear.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Clear.c @@ -18,6 +18,7 @@ lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Array_eraseIdx___rarg(lean_object*, lean_object*); lean_object* l_Lean_Meta_clear___lambda__1___closed__2; uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_local_ctx_erase(lean_object*, lean_object*); lean_object* l_Lean_Meta_clear___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); @@ -55,7 +56,6 @@ lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_o lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at_Lean_Meta_clear___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalContext_forM___at_Lean_Meta_clear___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_forM___at_Lean_Meta_clear___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_LocalContext_forM___at_Lean_Meta_clear___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -1055,9 +1055,47 @@ lean_closure_set(x_7, 2, x_5); x_8 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_8, 0, x_6); lean_closure_set(x_8, 1, x_7); -x_9 = l_Lean_Meta_withMVarContext___rarg(x_1, x_8, x_3, x_4); +x_9 = l_Lean_Meta_getMVarDecl(x_1, x_3, x_4); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +x_13 = lean_ctor_get(x_10, 4); +lean_inc(x_13); +lean_dec(x_10); +x_14 = l_Lean_Meta_withLocalContext___rarg(x_12, x_13, x_8, x_3, x_11); +return x_14; +} +else +{ +uint8_t x_15; +lean_dec(x_8); +x_15 = !lean_is_exclusive(x_9); +if (x_15 == 0) +{ return x_9; } +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_9, 0); +x_17 = lean_ctor_get(x_9, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_9); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_16); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +} } lean_object* l_Array_forMAux___main___at_Lean_Meta_clear___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { _start: diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Generalize.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Generalize.c new file mode 100644 index 0000000000..1337d3871f --- /dev/null +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Generalize.c @@ -0,0 +1,548 @@ +// Lean compiler output +// Module: Init.Lean.Meta.Tactic.Generalize +// Imports: Init.Lean.Meta.KAbstract Init.Lean.Meta.Tactic.Util +#include "runtime/lean.h" +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_Meta_generalize___lambda__1___closed__5; +lean_object* l_Lean_Meta_withLocalContext___rarg(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_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_isTypeCorrect(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_checkNotAssigned___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___lambda__1___closed__6; +lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___lambda__1___closed__3; +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___closed__2; +lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___closed__1; +lean_object* l_Lean_Meta_generalize___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___lambda__1___closed__1; +lean_object* l_Lean_mkForall(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_hasLooseBVars(lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalize___lambda__1___closed__2; +lean_object* l_Lean_Meta_generalize___lambda__1___closed__4; +lean_object* l_Lean_Meta_kabstract(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* _init_l_Lean_Meta_generalize___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("result is not type correct"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_generalize___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_generalize___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_generalize___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_generalize___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_generalize___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("failed to find expression in the target"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_generalize___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_generalize___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_generalize___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_generalize___lambda__1___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_generalize___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; +lean_inc(x_1); +x_8 = l_Lean_Meta_getMVarTag(x_1, x_6, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +lean_inc(x_1); +x_11 = l_Lean_Meta_getMVarType(x_1, x_6, x_10); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = l_Lean_Meta_instantiateMVars(x_12, x_6, x_13); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_box(0); +lean_inc(x_6); +lean_inc(x_2); +x_18 = l_Lean_Meta_kabstract(x_15, x_2, x_17, x_6, x_16); +if (lean_obj_tag(x_18) == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; uint8_t x_59; +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_59 = l_Lean_Expr_hasLooseBVars(x_19); +if (x_59 == 0) +{ +lean_object* x_60; lean_object* x_61; uint8_t x_62; +lean_dec(x_19); +lean_dec(x_9); +lean_dec(x_2); +x_60 = l_Lean_Meta_generalize___lambda__1___closed__6; +x_61 = l_Lean_Meta_throwTacticEx___rarg(x_4, x_1, x_60, x_6, x_20); +lean_dec(x_6); +x_62 = !lean_is_exclusive(x_61); +if (x_62 == 0) +{ +return x_61; +} +else +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; +x_63 = lean_ctor_get(x_61, 0); +x_64 = lean_ctor_get(x_61, 1); +lean_inc(x_64); +lean_inc(x_63); +lean_dec(x_61); +x_65 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_65, 0, x_63); +lean_ctor_set(x_65, 1, x_64); +return x_65; +} +} +else +{ +x_21 = x_20; +goto block_58; +} +block_58: +{ +lean_object* x_22; +lean_inc(x_6); +lean_inc(x_2); +x_22 = l_Lean_Meta_inferType(x_2, x_6, x_21); +if (lean_obj_tag(x_22) == 0) +{ +lean_object* x_23; lean_object* x_24; uint8_t x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; +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 = 0; +x_26 = l_Lean_mkForall(x_3, x_25, x_23, x_19); +lean_inc(x_6); +lean_inc(x_26); +x_27 = l_Lean_Meta_isTypeCorrect(x_26, x_6, x_24); +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_unbox(x_28); +lean_dec(x_28); +if (x_29 == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; +lean_dec(x_26); +lean_dec(x_9); +lean_dec(x_2); +x_30 = lean_ctor_get(x_27, 1); +lean_inc(x_30); +lean_dec(x_27); +x_31 = l_Lean_Meta_generalize___lambda__1___closed__3; +x_32 = l_Lean_Meta_throwTacticEx___rarg(x_4, x_1, x_31, x_6, x_30); +lean_dec(x_6); +x_33 = !lean_is_exclusive(x_32); +if (x_33 == 0) +{ +return x_32; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_32, 0); +x_35 = lean_ctor_get(x_32, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_32); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; +} +} +else +{ +lean_object* x_37; uint8_t x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +lean_dec(x_4); +x_37 = lean_ctor_get(x_27, 1); +lean_inc(x_37); +lean_dec(x_27); +x_38 = 2; +lean_inc(x_6); +x_39 = l_Lean_Meta_mkFreshExprMVar(x_26, x_9, x_38, x_6, x_37); +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); +lean_inc(x_40); +x_42 = l_Lean_mkApp(x_40, x_2); +x_43 = l_Lean_Meta_assignExprMVar(x_1, x_42, x_6, x_41); +lean_dec(x_6); +if (lean_obj_tag(x_43) == 0) +{ +uint8_t x_44; +x_44 = !lean_is_exclusive(x_43); +if (x_44 == 0) +{ +lean_object* x_45; lean_object* x_46; +x_45 = lean_ctor_get(x_43, 0); +lean_dec(x_45); +x_46 = l_Lean_Expr_mvarId_x21(x_40); +lean_dec(x_40); +lean_ctor_set(x_43, 0, x_46); +return x_43; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_43, 1); +lean_inc(x_47); +lean_dec(x_43); +x_48 = l_Lean_Expr_mvarId_x21(x_40); +lean_dec(x_40); +x_49 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_47); +return x_49; +} +} +else +{ +uint8_t x_50; +lean_dec(x_40); +x_50 = !lean_is_exclusive(x_43); +if (x_50 == 0) +{ +return x_43; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; +x_51 = lean_ctor_get(x_43, 0); +x_52 = lean_ctor_get(x_43, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_43); +x_53 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_53, 0, x_51); +lean_ctor_set(x_53, 1, x_52); +return x_53; +} +} +} +} +else +{ +uint8_t x_54; +lean_dec(x_19); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_54 = !lean_is_exclusive(x_22); +if (x_54 == 0) +{ +return x_22; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_22, 0); +x_56 = lean_ctor_get(x_22, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_22); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_55); +lean_ctor_set(x_57, 1, x_56); +return x_57; +} +} +} +} +else +{ +uint8_t x_66; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_66 = !lean_is_exclusive(x_18); +if (x_66 == 0) +{ +return x_18; +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; +x_67 = lean_ctor_get(x_18, 0); +x_68 = lean_ctor_get(x_18, 1); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_18); +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_67); +lean_ctor_set(x_69, 1, x_68); +return x_69; +} +} +} +else +{ +uint8_t x_70; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_70 = !lean_is_exclusive(x_11); +if (x_70 == 0) +{ +return x_11; +} +else +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_71 = lean_ctor_get(x_11, 0); +x_72 = lean_ctor_get(x_11, 1); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_11); +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_6); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_74 = !lean_is_exclusive(x_8); +if (x_74 == 0) +{ +return x_8; +} +else +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_75 = lean_ctor_get(x_8, 0); +x_76 = lean_ctor_get(x_8, 1); +lean_inc(x_76); +lean_inc(x_75); +lean_dec(x_8); +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; +} +} +} +} +lean_object* _init_l_Lean_Meta_generalize___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("generalize"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_generalize___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_generalize___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_generalize(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = l_Lean_Meta_generalize___closed__2; +lean_inc(x_1); +x_7 = lean_alloc_closure((void*)(l_Lean_Meta_checkNotAssigned___boxed), 4, 2); +lean_closure_set(x_7, 0, x_1); +lean_closure_set(x_7, 1, x_6); +lean_inc(x_1); +x_8 = lean_alloc_closure((void*)(l_Lean_Meta_generalize___lambda__1___boxed), 7, 4); +lean_closure_set(x_8, 0, x_1); +lean_closure_set(x_8, 1, x_2); +lean_closure_set(x_8, 2, x_3); +lean_closure_set(x_8, 3, x_6); +x_9 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_9, 0, x_7); +lean_closure_set(x_9, 1, x_8); +x_10 = l_Lean_Meta_getMVarDecl(x_1, x_4, x_5); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_11, 4); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l_Lean_Meta_withLocalContext___rarg(x_13, x_14, x_9, x_4, x_12); +return x_15; +} +else +{ +uint8_t x_16; +lean_dec(x_9); +x_16 = !lean_is_exclusive(x_10); +if (x_16 == 0) +{ +return x_10; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_10, 0); +x_18 = lean_ctor_get(x_10, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_10); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} +lean_object* l_Lean_Meta_generalize___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; +x_8 = l_Lean_Meta_generalize___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_5); +lean_dec(x_3); +return x_8; +} +} +lean_object* l_Lean_Meta_generalize___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_Lean_Meta_generalize(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* initialize_Init_Lean_Meta_KAbstract(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Util(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Meta_Tactic_Generalize(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_KAbstract(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Util(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Meta_generalize___lambda__1___closed__1 = _init_l_Lean_Meta_generalize___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_generalize___lambda__1___closed__1); +l_Lean_Meta_generalize___lambda__1___closed__2 = _init_l_Lean_Meta_generalize___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Meta_generalize___lambda__1___closed__2); +l_Lean_Meta_generalize___lambda__1___closed__3 = _init_l_Lean_Meta_generalize___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Meta_generalize___lambda__1___closed__3); +l_Lean_Meta_generalize___lambda__1___closed__4 = _init_l_Lean_Meta_generalize___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Meta_generalize___lambda__1___closed__4); +l_Lean_Meta_generalize___lambda__1___closed__5 = _init_l_Lean_Meta_generalize___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Meta_generalize___lambda__1___closed__5); +l_Lean_Meta_generalize___lambda__1___closed__6 = _init_l_Lean_Meta_generalize___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Meta_generalize___lambda__1___closed__6); +l_Lean_Meta_generalize___closed__1 = _init_l_Lean_Meta_generalize___closed__1(); +lean_mark_persistent(l_Lean_Meta_generalize___closed__1); +l_Lean_Meta_generalize___closed__2 = _init_l_Lean_Meta_generalize___closed__2(); +lean_mark_persistent(l_Lean_Meta_generalize___closed__2); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Intro.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Intro.c index 9ddddbe08c..81d71e951b 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Intro.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Intro.c @@ -21,6 +21,7 @@ lean_object* l_Lean_Meta_introN(lean_object*, lean_object*, lean_object*, uint8_ lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_introN___spec__4(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_EIO_Monad___closed__1; uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_local_ctx_mk_let_decl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_bind___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_introN___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -79,11 +80,11 @@ lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object* lean_object* l_Lean_Meta_introNCoreAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkAuxName___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_intro1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_introNCoreAux___main___rarg___closed__1; lean_object* l_Lean_Meta_introNCoreAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1; @@ -98,7 +99,7 @@ lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_introN___sp lean_object* l_Lean_Meta_introNCoreAux___main(lean_object*); lean_object* l_Lean_Meta_introNCoreAux(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Meta_introN___spec__5(lean_object*, lean_object*); -lean_object* l_Lean_Meta_intro1___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_intro1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l_Lean_Meta_getFVarLocalDecl(lean_object*, lean_object*, lean_object*); lean_object* _init_l_Lean_Meta_introNCoreAux___main___rarg___lambda__1___closed__1() { @@ -736,9 +737,47 @@ lean_closure_set(x_11, 1, lean_box(0)); lean_closure_set(x_11, 2, lean_box(0)); lean_closure_set(x_11, 3, x_8); lean_closure_set(x_11, 4, x_9); -x_12 = l_Lean_Meta_withMVarContext___rarg(x_1, x_11, x_5, x_6); +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_introNCore(lean_object* x_1) { _start: @@ -5662,9 +5701,47 @@ lean_closure_set(x_10, 3, x_4); 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_withMVarContext___rarg(x_2, x_11, x_5, x_6); +x_12 = l_Lean_Meta_getMVarDecl(x_2, 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_introN(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { _start: @@ -5869,14 +5946,13 @@ lean_dec(x_3); return x_5; } } -lean_object* l_Lean_Meta_intro1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Meta_intro1(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; -x_4 = lean_box(0); -x_5 = 1; +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_box(0); x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_5, x_1, x_6, x_4, x_2, x_3); +x_7 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_2, x_1, x_6, x_5, x_3, x_4); if (lean_obj_tag(x_7) == 0) { uint8_t x_8; @@ -5977,13 +6053,15 @@ return x_34; } } } -lean_object* l_Lean_Meta_intro1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Meta_intro1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_4; -x_4 = l_Lean_Meta_intro1(x_1, x_2, x_3); +uint8_t x_5; lean_object* x_6; +x_5 = lean_unbox(x_2); lean_dec(x_2); -return x_4; +x_6 = l_Lean_Meta_intro1(x_1, x_5, x_3, x_4); +lean_dec(x_3); +return x_6; } } lean_object* initialize_Init_Lean_Meta_Tactic_Util(lean_object*); diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/LocalDecl.c b/stage0/stdlib/Init/Lean/Meta/Tactic/LocalDecl.c new file mode 100644 index 0000000000..9f15e47757 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/LocalDecl.c @@ -0,0 +1,360 @@ +// Lean compiler output +// Module: Init.Lean.Meta.Tactic.LocalDecl +// Imports: Init.Lean.Meta.AppBuilder Init.Lean.Meta.Tactic.Util Init.Lean.Meta.Tactic.Assert Init.Lean.Meta.Tactic.Intro Init.Lean.Meta.Tactic.Clear +#include "runtime/lean.h" +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_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*); +lean_object* l_Lean_LocalDecl_userName(lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_replaceLocalDecl___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, 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_Lean_Meta_mkEqMP(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_replaceLocalDecl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_clear(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkFVar(lean_object*); +lean_object* l_Lean_Meta_getLocalDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_replaceLocalDecl___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_replaceLocalDecl___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_replaceLocalDecl___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; lean_object* x_9; +lean_inc(x_1); +x_8 = l_Lean_mkFVar(x_1); +lean_inc(x_6); +x_9 = l_Lean_Meta_mkEqMP(x_2, x_8, x_6, x_7); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = l_Lean_LocalDecl_userName(x_5); +x_13 = l_Lean_Meta_assert(x_3, x_12, x_4, x_10, x_6, x_11); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; uint8_t 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 = 1; +x_17 = l_Lean_Meta_intro1(x_14, x_16, x_6, 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; +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +x_20 = lean_ctor_get(x_18, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_18, 1); +lean_inc(x_21); +lean_inc(x_19); +x_22 = l_Lean_Meta_clear(x_21, x_1, x_6, x_19); +if (lean_obj_tag(x_22) == 0) +{ +uint8_t x_23; +lean_dec(x_19); +lean_dec(x_6); +x_23 = !lean_is_exclusive(x_18); +if (x_23 == 0) +{ +lean_object* x_24; lean_object* x_25; uint8_t x_26; +x_24 = lean_ctor_get(x_18, 1); +lean_dec(x_24); +x_25 = lean_ctor_get(x_18, 0); +lean_dec(x_25); +x_26 = !lean_is_exclusive(x_22); +if (x_26 == 0) +{ +lean_object* x_27; +x_27 = lean_ctor_get(x_22, 0); +lean_ctor_set(x_18, 1, x_27); +lean_ctor_set(x_22, 0, x_18); +return x_22; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_22, 0); +x_29 = lean_ctor_get(x_22, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_22); +lean_ctor_set(x_18, 1, x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_18); +lean_ctor_set(x_30, 1, x_29); +return x_30; +} +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +lean_dec(x_18); +x_31 = lean_ctor_get(x_22, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_22, 1); +lean_inc(x_32); +if (lean_is_exclusive(x_22)) { + lean_ctor_release(x_22, 0); + lean_ctor_release(x_22, 1); + x_33 = x_22; +} else { + lean_dec_ref(x_22); + x_33 = lean_box(0); +} +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_20); +lean_ctor_set(x_34, 1, x_31); +if (lean_is_scalar(x_33)) { + x_35 = lean_alloc_ctor(0, 2, 0); +} else { + x_35 = x_33; +} +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_32); +return x_35; +} +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; uint8_t x_41; +lean_dec(x_20); +x_36 = lean_ctor_get(x_22, 1); +lean_inc(x_36); +lean_dec(x_22); +x_37 = lean_ctor_get(x_19, 0); +lean_inc(x_37); +x_38 = lean_ctor_get(x_19, 1); +lean_inc(x_38); +x_39 = lean_ctor_get(x_19, 5); +lean_inc(x_39); +lean_dec(x_19); +x_40 = l_Lean_Meta_restore(x_37, x_38, x_39, x_6, x_36); +lean_dec(x_6); +x_41 = !lean_is_exclusive(x_40); +if (x_41 == 0) +{ +lean_object* x_42; +x_42 = lean_ctor_get(x_40, 0); +lean_dec(x_42); +lean_ctor_set(x_40, 0, x_18); +return x_40; +} +else +{ +lean_object* x_43; lean_object* x_44; +x_43 = lean_ctor_get(x_40, 1); +lean_inc(x_43); +lean_dec(x_40); +x_44 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_44, 0, x_18); +lean_ctor_set(x_44, 1, x_43); +return x_44; +} +} +} +else +{ +uint8_t x_45; +lean_dec(x_6); +lean_dec(x_1); +x_45 = !lean_is_exclusive(x_17); +if (x_45 == 0) +{ +return x_17; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_17, 0); +x_47 = lean_ctor_get(x_17, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_17); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_46); +lean_ctor_set(x_48, 1, x_47); +return x_48; +} +} +} +else +{ +uint8_t x_49; +lean_dec(x_6); +lean_dec(x_1); +x_49 = !lean_is_exclusive(x_13); +if (x_49 == 0) +{ +return x_13; +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_13, 0); +x_51 = lean_ctor_get(x_13, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_13); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set(x_52, 1, x_51); +return x_52; +} +} +} +else +{ +uint8_t x_53; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_53 = !lean_is_exclusive(x_9); +if (x_53 == 0) +{ +return x_9; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_9, 0); +x_55 = lean_ctor_get(x_9, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_9); +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; +} +} +} +} +lean_object* l_Lean_Meta_replaceLocalDecl(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_inc(x_2); +x_7 = lean_alloc_closure((void*)(l_Lean_Meta_getLocalDecl), 3, 1); +lean_closure_set(x_7, 0, x_2); +lean_inc(x_1); +x_8 = lean_alloc_closure((void*)(l_Lean_Meta_replaceLocalDecl___lambda__1___boxed), 7, 4); +lean_closure_set(x_8, 0, x_2); +lean_closure_set(x_8, 1, x_4); +lean_closure_set(x_8, 2, x_1); +lean_closure_set(x_8, 3, x_3); +x_9 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_9, 0, x_7); +lean_closure_set(x_9, 1, x_8); +x_10 = l_Lean_Meta_getMVarDecl(x_1, x_5, x_6); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_11, 4); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l_Lean_Meta_withLocalContext___rarg(x_13, x_14, x_9, x_5, x_12); +return x_15; +} +else +{ +uint8_t x_16; +lean_dec(x_9); +x_16 = !lean_is_exclusive(x_10); +if (x_16 == 0) +{ +return x_10; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_10, 0); +x_18 = lean_ctor_get(x_10, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_10); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} +} +lean_object* l_Lean_Meta_replaceLocalDecl___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; +x_8 = l_Lean_Meta_replaceLocalDecl___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_5); +return x_8; +} +} +lean_object* l_Lean_Meta_replaceLocalDecl___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; +x_7 = l_Lean_Meta_replaceLocalDecl(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_5); +return x_7; +} +} +lean_object* initialize_Init_Lean_Meta_AppBuilder(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Util(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Assert(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Intro(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Clear(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Meta_Tactic_LocalDecl(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_Util(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +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_Intro(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Clear(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Revert.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Revert.c index 1af92607d9..0dc382f968 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Revert.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Revert.c @@ -16,6 +16,7 @@ extern "C" { lean_object* l_Array_umapMAux___main___at_Lean_Meta_revert___spec__1(lean_object*, lean_object*); lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkMVar(lean_object*); extern lean_object* l_Array_empty___closed__1; lean_object* l_Lean_Meta_elimMVarDeps(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); @@ -42,7 +43,7 @@ lean_object* l_Lean_Meta_revert___lambda__1___closed__2; lean_object* l_Lean_Meta_revert___lambda__1___closed__1; lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_revert___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* lean_mk_array(lean_object*, lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarTag___boxed(lean_object*, lean_object*, lean_object*); @@ -326,19 +327,57 @@ lean_closure_set(x_9, 2, x_8); x_10 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_10, 0, x_7); lean_closure_set(x_10, 1, x_9); -x_11 = l_Lean_Meta_withMVarContext___rarg(x_1, x_10, x_4, x_5); +x_11 = l_Lean_Meta_getMVarDecl(x_1, x_4, x_5); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_12, 4); +lean_inc(x_15); +lean_dec(x_12); +x_16 = l_Lean_Meta_withLocalContext___rarg(x_14, x_15, x_10, x_4, x_13); +return x_16; +} +else +{ +uint8_t x_17; +lean_dec(x_10); +x_17 = !lean_is_exclusive(x_11); +if (x_17 == 0) +{ return x_11; } else { -lean_object* x_12; lean_object* x_13; -x_12 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_12, 0, x_2); -lean_ctor_set(x_12, 1, x_1); -x_13 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_13, 0, x_12); -lean_ctor_set(x_13, 1, x_5); -return x_13; +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_11, 0); +x_19 = lean_ctor_get(x_11, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_11); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} +else +{ +lean_object* x_21; lean_object* x_22; +x_21 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_21, 0, x_2); +lean_ctor_set(x_21, 1, x_1); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_5); +return x_22; } } } diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Rewrite.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Rewrite.c new file mode 100644 index 0000000000..a990d4f683 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Rewrite.c @@ -0,0 +1,2457 @@ +// Lean compiler output +// Module: Init.Lean.Meta.Tactic.Rewrite +// Imports: Init.Lean.Meta.AppBuilder Init.Lean.Meta.KAbstract Init.Lean.Meta.Check Init.Lean.Meta.Tactic.Apply +#include "runtime/lean.h" +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +extern lean_object* l_Lean_Expr_eq_x3f___closed__2; +lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, 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_List_map___main___at_Lean_Meta_rewriteCore___spec__1(lean_object*); +lean_object* l_Lean_Expr_appFn_x21(lean_object*); +lean_object* lean_expr_instantiate1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__11; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__8; +lean_object* l_Lean_Meta_isTypeCorrect(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppFn___main(lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__17; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__4; +lean_object* l_Lean_Meta_checkNotAssigned___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__9; +lean_object* l_Lean_Meta_postprocessAppMVars(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__6; +lean_object* l_Lean_Meta_mkEqRefl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___closed__1; +lean_object* l_Lean_Meta_rewriteCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_sub(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqSymm(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Expr_iff_x3f___closed__2; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__2; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__1; +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqNDRec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__7; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__16; +lean_object* l_Lean_mkLambda(lean_object*, uint8_t, lean_object*, lean_object*); +uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___closed__2; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__13; +lean_object* l_Lean_Meta_forallMetaTelescopeReducing(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__3; +uint8_t l_Lean_Expr_isMVar(lean_object*); +lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); +lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__14; +lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_hasLooseBVars(lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toList___rarg(lean_object*); +lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__15; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__5; +lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_kabstract(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkConst(lean_object*, lean_object*); +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__10; +lean_object* l_Lean_Meta_rewriteCore___lambda__1___closed__12; +lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_Lean_Expr_mvarId_x21(x_4); +lean_dec(x_4); +x_7 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_Lean_Expr_mvarId_x21(x_8); +lean_dec(x_8); +x_11 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("equality of iff proof expected"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___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_rewriteCore___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___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_rewriteCore___lambda__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("_a"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_rewriteCore___lambda__1___closed__4; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__6() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("motive is not type correct"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___lambda__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_Meta_rewriteCore___lambda__1___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___lambda__1___closed__7; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__9() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("did not find instance of the pattern in the target expression"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___lambda__1___closed__9; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__11() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___lambda__1___closed__10; +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_rewriteCore___lambda__1___closed__12() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("pattern is a metavariable"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___lambda__1___closed__12; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__14() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_rewriteCore___lambda__1___closed__13; +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_rewriteCore___lambda__1___closed__15() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("propext"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__16() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_rewriteCore___lambda__1___closed__15; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___lambda__1___closed__17() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_rewriteCore___lambda__1___closed__16; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_rewriteCore___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +lean_inc(x_8); +lean_inc(x_1); +x_10 = l_Lean_Meta_inferType(x_1, x_8, x_9); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; lean_object* x_15; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_box(0); +x_14 = 0; +lean_inc(x_8); +x_15 = l_Lean_Meta_forallMetaTelescopeReducing(x_11, x_13, x_14, x_8, x_12); +if (lean_obj_tag(x_15) == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_16, 1); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); +lean_inc(x_18); +lean_dec(x_15); +x_19 = lean_ctor_get(x_16, 0); +lean_inc(x_19); +lean_dec(x_16); +x_20 = lean_ctor_get(x_17, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_17, 1); +lean_inc(x_21); +lean_dec(x_17); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_19, x_19, x_22, x_1); +x_24 = l_Lean_Expr_iff_x3f___closed__2; +x_25 = lean_unsigned_to_nat(2u); +x_26 = l_Lean_Expr_isAppOfArity___main(x_21, x_24, x_25); +if (x_26 == 0) +{ +lean_object* x_27; lean_object* x_28; uint8_t x_29; +x_27 = l_Lean_Expr_eq_x3f___closed__2; +x_28 = lean_unsigned_to_nat(3u); +x_29 = l_Lean_Expr_isAppOfArity___main(x_21, x_27, x_28); +if (x_29 == 0) +{ +lean_object* x_30; lean_object* x_31; +lean_dec(x_23); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_5); +x_30 = l_Lean_Meta_rewriteCore___lambda__1___closed__3; +x_31 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_30, x_8, x_18); +lean_dec(x_8); +return x_31; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_32 = l_Lean_Expr_getAppNumArgsAux___main(x_21, x_22); +x_33 = lean_nat_sub(x_32, x_22); +x_34 = lean_unsigned_to_nat(1u); +x_35 = lean_nat_sub(x_33, x_34); +lean_dec(x_33); +x_36 = l_Lean_Expr_getRevArg_x21___main(x_21, x_35); +x_37 = lean_nat_sub(x_32, x_34); +x_38 = lean_nat_sub(x_37, x_34); +lean_dec(x_37); +x_39 = l_Lean_Expr_getRevArg_x21___main(x_21, x_38); +x_40 = lean_nat_sub(x_32, x_25); +lean_dec(x_32); +x_41 = lean_nat_sub(x_40, x_34); +lean_dec(x_40); +x_42 = l_Lean_Expr_getRevArg_x21___main(x_21, x_41); +lean_dec(x_21); +if (x_4 == 0) +{ +lean_object* x_43; uint8_t x_44; +x_43 = l_Lean_Expr_getAppFn___main(x_39); +x_44 = l_Lean_Expr_isMVar(x_43); +lean_dec(x_43); +if (x_44 == 0) +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_45 = l_Lean_Meta_instantiateMVars(x_5, x_8, x_18); +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +lean_inc(x_8); +lean_inc(x_46); +x_48 = l_Lean_Meta_kabstract(x_46, x_39, x_6, x_8, x_47); +if (lean_obj_tag(x_48) == 0) +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_114; +x_49 = lean_ctor_get(x_48, 0); +lean_inc(x_49); +x_50 = lean_ctor_get(x_48, 1); +lean_inc(x_50); +lean_dec(x_48); +x_114 = l_Lean_Expr_hasLooseBVars(x_49); +if (x_114 == 0) +{ +lean_object* x_115; lean_object* x_116; uint8_t x_117; +lean_dec(x_49); +lean_dec(x_46); +lean_dec(x_42); +lean_dec(x_36); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +x_115 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_116 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_115, x_8, x_50); +lean_dec(x_8); +x_117 = !lean_is_exclusive(x_116); +if (x_117 == 0) +{ +return x_116; +} +else +{ +lean_object* x_118; lean_object* x_119; lean_object* x_120; +x_118 = lean_ctor_get(x_116, 0); +x_119 = lean_ctor_get(x_116, 1); +lean_inc(x_119); +lean_inc(x_118); +lean_dec(x_116); +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_118); +lean_ctor_set(x_120, 1, x_119); +return x_120; +} +} +else +{ +x_51 = x_50; +goto block_113; +} +block_113: +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_52 = lean_expr_instantiate1(x_49, x_42); +lean_dec(x_42); +x_53 = l_Lean_Meta_instantiateMVars(x_52, x_8, x_51); +x_54 = lean_ctor_get(x_53, 0); +lean_inc(x_54); +x_55 = lean_ctor_get(x_53, 1); +lean_inc(x_55); +lean_dec(x_53); +lean_inc(x_8); +lean_inc_n(x_46, 2); +x_56 = l_Lean_Meta_mkEq(x_46, x_46, x_8, x_55); +if (lean_obj_tag(x_56) == 0) +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; uint8_t x_62; lean_object* x_63; lean_object* x_64; lean_object* x_98; lean_object* x_99; uint8_t x_100; +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_56, 1); +lean_inc(x_58); +lean_dec(x_56); +x_59 = l_Lean_Expr_appFn_x21(x_57); +lean_dec(x_57); +x_60 = l_Lean_mkApp(x_59, x_49); +x_61 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_62 = 0; +x_63 = l_Lean_mkLambda(x_61, x_62, x_36, x_60); +lean_inc(x_8); +lean_inc(x_63); +x_98 = l_Lean_Meta_isTypeCorrect(x_63, x_8, x_58); +x_99 = lean_ctor_get(x_98, 0); +lean_inc(x_99); +x_100 = lean_unbox(x_99); +lean_dec(x_99); +if (x_100 == 0) +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; uint8_t x_104; +lean_dec(x_63); +lean_dec(x_54); +lean_dec(x_46); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +x_101 = lean_ctor_get(x_98, 1); +lean_inc(x_101); +lean_dec(x_98); +x_102 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_103 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_102, x_8, x_101); +lean_dec(x_8); +x_104 = !lean_is_exclusive(x_103); +if (x_104 == 0) +{ +return x_103; +} +else +{ +lean_object* x_105; lean_object* x_106; lean_object* x_107; +x_105 = lean_ctor_get(x_103, 0); +x_106 = lean_ctor_get(x_103, 1); +lean_inc(x_106); +lean_inc(x_105); +lean_dec(x_103); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_105); +lean_ctor_set(x_107, 1, x_106); +return x_107; +} +} +else +{ +lean_object* x_108; +x_108 = lean_ctor_get(x_98, 1); +lean_inc(x_108); +lean_dec(x_98); +x_64 = x_108; +goto block_97; +} +block_97: +{ +lean_object* x_65; +lean_inc(x_8); +x_65 = l_Lean_Meta_mkEqRefl(x_46, x_8, x_64); +if (lean_obj_tag(x_65) == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; +x_66 = lean_ctor_get(x_65, 0); +lean_inc(x_66); +x_67 = lean_ctor_get(x_65, 1); +lean_inc(x_67); +lean_dec(x_65); +lean_inc(x_8); +x_68 = l_Lean_Meta_mkEqNDRec(x_63, x_66, x_23, x_8, x_67); +if (lean_obj_tag(x_68) == 0) +{ +lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_69 = lean_ctor_get(x_68, 0); +lean_inc(x_69); +x_70 = lean_ctor_get(x_68, 1); +lean_inc(x_70); +lean_dec(x_68); +lean_inc(x_8); +x_71 = l_Lean_Meta_postprocessAppMVars(x_2, x_3, x_19, x_20, x_8, x_70); +lean_dec(x_20); +if (lean_obj_tag(x_71) == 0) +{ +lean_object* x_72; lean_object* x_73; uint8_t x_74; +x_72 = lean_ctor_get(x_71, 1); +lean_inc(x_72); +lean_dec(x_71); +x_73 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_19, x_22, x_22, x_8, x_72); +lean_dec(x_8); +x_74 = !lean_is_exclusive(x_73); +if (x_74 == 0) +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_75 = lean_ctor_get(x_73, 0); +x_76 = l_Array_toList___rarg(x_75); +lean_dec(x_75); +x_77 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_76); +x_78 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_78, 0, x_54); +lean_ctor_set(x_78, 1, x_69); +lean_ctor_set(x_78, 2, x_77); +lean_ctor_set(x_73, 0, x_78); +return x_73; +} +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; +x_79 = lean_ctor_get(x_73, 0); +x_80 = lean_ctor_get(x_73, 1); +lean_inc(x_80); +lean_inc(x_79); +lean_dec(x_73); +x_81 = l_Array_toList___rarg(x_79); +lean_dec(x_79); +x_82 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_81); +x_83 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_83, 0, x_54); +lean_ctor_set(x_83, 1, x_69); +lean_ctor_set(x_83, 2, x_82); +x_84 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_84, 0, x_83); +lean_ctor_set(x_84, 1, x_80); +return x_84; +} +} +else +{ +uint8_t x_85; +lean_dec(x_69); +lean_dec(x_54); +lean_dec(x_19); +lean_dec(x_8); +x_85 = !lean_is_exclusive(x_71); +if (x_85 == 0) +{ +return x_71; +} +else +{ +lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_86 = lean_ctor_get(x_71, 0); +x_87 = lean_ctor_get(x_71, 1); +lean_inc(x_87); +lean_inc(x_86); +lean_dec(x_71); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_86); +lean_ctor_set(x_88, 1, x_87); +return x_88; +} +} +} +else +{ +uint8_t x_89; +lean_dec(x_54); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_89 = !lean_is_exclusive(x_68); +if (x_89 == 0) +{ +return x_68; +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; +x_90 = lean_ctor_get(x_68, 0); +x_91 = lean_ctor_get(x_68, 1); +lean_inc(x_91); +lean_inc(x_90); +lean_dec(x_68); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_90); +lean_ctor_set(x_92, 1, x_91); +return x_92; +} +} +} +else +{ +uint8_t x_93; +lean_dec(x_63); +lean_dec(x_54); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_93 = !lean_is_exclusive(x_65); +if (x_93 == 0) +{ +return x_65; +} +else +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_94 = lean_ctor_get(x_65, 0); +x_95 = lean_ctor_get(x_65, 1); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_65); +x_96 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_96, 0, x_94); +lean_ctor_set(x_96, 1, x_95); +return x_96; +} +} +} +} +else +{ +uint8_t x_109; +lean_dec(x_54); +lean_dec(x_49); +lean_dec(x_46); +lean_dec(x_36); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_109 = !lean_is_exclusive(x_56); +if (x_109 == 0) +{ +return x_56; +} +else +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; +x_110 = lean_ctor_get(x_56, 0); +x_111 = lean_ctor_get(x_56, 1); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_56); +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_110); +lean_ctor_set(x_112, 1, x_111); +return x_112; +} +} +} +} +else +{ +uint8_t x_121; +lean_dec(x_46); +lean_dec(x_42); +lean_dec(x_36); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_121 = !lean_is_exclusive(x_48); +if (x_121 == 0) +{ +return x_48; +} +else +{ +lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_122 = lean_ctor_get(x_48, 0); +x_123 = lean_ctor_get(x_48, 1); +lean_inc(x_123); +lean_inc(x_122); +lean_dec(x_48); +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_122); +lean_ctor_set(x_124, 1, x_123); +return x_124; +} +} +} +else +{ +lean_object* x_125; lean_object* x_126; uint8_t x_127; +lean_dec(x_42); +lean_dec(x_39); +lean_dec(x_36); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_5); +x_125 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_126 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_125, x_8, x_18); +lean_dec(x_8); +x_127 = !lean_is_exclusive(x_126); +if (x_127 == 0) +{ +return x_126; +} +else +{ +lean_object* x_128; lean_object* x_129; lean_object* x_130; +x_128 = lean_ctor_get(x_126, 0); +x_129 = lean_ctor_get(x_126, 1); +lean_inc(x_129); +lean_inc(x_128); +lean_dec(x_126); +x_130 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_130, 0, x_128); +lean_ctor_set(x_130, 1, x_129); +return x_130; +} +} +} +else +{ +lean_object* x_131; +lean_inc(x_8); +x_131 = l_Lean_Meta_mkEqSymm(x_23, x_8, x_18); +if (lean_obj_tag(x_131) == 0) +{ +lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_216; +x_132 = lean_ctor_get(x_131, 0); +lean_inc(x_132); +x_133 = lean_ctor_get(x_131, 1); +lean_inc(x_133); +lean_dec(x_131); +lean_inc(x_8); +lean_inc(x_39); +lean_inc(x_42); +x_216 = l_Lean_Meta_mkEq(x_42, x_39, x_8, x_133); +if (lean_obj_tag(x_216) == 0) +{ +lean_object* x_217; lean_object* x_218; uint8_t x_219; +x_217 = lean_ctor_get(x_216, 1); +lean_inc(x_217); +lean_dec(x_216); +x_218 = l_Lean_Expr_getAppFn___main(x_42); +x_219 = l_Lean_Expr_isMVar(x_218); +lean_dec(x_218); +if (x_219 == 0) +{ +x_134 = x_217; +goto block_215; +} +else +{ +lean_object* x_220; lean_object* x_221; uint8_t x_222; +lean_dec(x_132); +lean_dec(x_42); +lean_dec(x_39); +lean_dec(x_36); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_5); +x_220 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_221 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_220, x_8, x_217); +lean_dec(x_8); +x_222 = !lean_is_exclusive(x_221); +if (x_222 == 0) +{ +return x_221; +} +else +{ +lean_object* x_223; lean_object* x_224; lean_object* x_225; +x_223 = lean_ctor_get(x_221, 0); +x_224 = lean_ctor_get(x_221, 1); +lean_inc(x_224); +lean_inc(x_223); +lean_dec(x_221); +x_225 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_225, 0, x_223); +lean_ctor_set(x_225, 1, x_224); +return x_225; +} +} +} +else +{ +uint8_t x_226; +lean_dec(x_132); +lean_dec(x_42); +lean_dec(x_39); +lean_dec(x_36); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_226 = !lean_is_exclusive(x_216); +if (x_226 == 0) +{ +return x_216; +} +else +{ +lean_object* x_227; lean_object* x_228; lean_object* x_229; +x_227 = lean_ctor_get(x_216, 0); +x_228 = lean_ctor_get(x_216, 1); +lean_inc(x_228); +lean_inc(x_227); +lean_dec(x_216); +x_229 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_229, 0, x_227); +lean_ctor_set(x_229, 1, x_228); +return x_229; +} +} +block_215: +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; +x_135 = l_Lean_Meta_instantiateMVars(x_5, x_8, x_134); +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); +lean_inc(x_8); +lean_inc(x_136); +x_138 = l_Lean_Meta_kabstract(x_136, x_42, x_6, x_8, x_137); +if (lean_obj_tag(x_138) == 0) +{ +lean_object* x_139; lean_object* x_140; lean_object* x_141; uint8_t x_204; +x_139 = lean_ctor_get(x_138, 0); +lean_inc(x_139); +x_140 = lean_ctor_get(x_138, 1); +lean_inc(x_140); +lean_dec(x_138); +x_204 = l_Lean_Expr_hasLooseBVars(x_139); +if (x_204 == 0) +{ +lean_object* x_205; lean_object* x_206; uint8_t x_207; +lean_dec(x_139); +lean_dec(x_136); +lean_dec(x_132); +lean_dec(x_39); +lean_dec(x_36); +lean_dec(x_20); +lean_dec(x_19); +x_205 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_206 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_205, x_8, x_140); +lean_dec(x_8); +x_207 = !lean_is_exclusive(x_206); +if (x_207 == 0) +{ +return x_206; +} +else +{ +lean_object* x_208; lean_object* x_209; lean_object* x_210; +x_208 = lean_ctor_get(x_206, 0); +x_209 = lean_ctor_get(x_206, 1); +lean_inc(x_209); +lean_inc(x_208); +lean_dec(x_206); +x_210 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_210, 0, x_208); +lean_ctor_set(x_210, 1, x_209); +return x_210; +} +} +else +{ +x_141 = x_140; +goto block_203; +} +block_203: +{ +lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; +x_142 = lean_expr_instantiate1(x_139, x_39); +lean_dec(x_39); +x_143 = l_Lean_Meta_instantiateMVars(x_142, x_8, x_141); +x_144 = lean_ctor_get(x_143, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_143, 1); +lean_inc(x_145); +lean_dec(x_143); +lean_inc(x_8); +lean_inc_n(x_136, 2); +x_146 = l_Lean_Meta_mkEq(x_136, x_136, x_8, x_145); +if (lean_obj_tag(x_146) == 0) +{ +lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; uint8_t x_152; lean_object* x_153; lean_object* x_154; lean_object* x_188; lean_object* x_189; uint8_t x_190; +x_147 = lean_ctor_get(x_146, 0); +lean_inc(x_147); +x_148 = lean_ctor_get(x_146, 1); +lean_inc(x_148); +lean_dec(x_146); +x_149 = l_Lean_Expr_appFn_x21(x_147); +lean_dec(x_147); +x_150 = l_Lean_mkApp(x_149, x_139); +x_151 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_152 = 0; +x_153 = l_Lean_mkLambda(x_151, x_152, x_36, x_150); +lean_inc(x_8); +lean_inc(x_153); +x_188 = l_Lean_Meta_isTypeCorrect(x_153, x_8, x_148); +x_189 = lean_ctor_get(x_188, 0); +lean_inc(x_189); +x_190 = lean_unbox(x_189); +lean_dec(x_189); +if (x_190 == 0) +{ +lean_object* x_191; lean_object* x_192; lean_object* x_193; uint8_t x_194; +lean_dec(x_153); +lean_dec(x_144); +lean_dec(x_136); +lean_dec(x_132); +lean_dec(x_20); +lean_dec(x_19); +x_191 = lean_ctor_get(x_188, 1); +lean_inc(x_191); +lean_dec(x_188); +x_192 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_193 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_192, x_8, x_191); +lean_dec(x_8); +x_194 = !lean_is_exclusive(x_193); +if (x_194 == 0) +{ +return x_193; +} +else +{ +lean_object* x_195; lean_object* x_196; lean_object* x_197; +x_195 = lean_ctor_get(x_193, 0); +x_196 = lean_ctor_get(x_193, 1); +lean_inc(x_196); +lean_inc(x_195); +lean_dec(x_193); +x_197 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_197, 0, x_195); +lean_ctor_set(x_197, 1, x_196); +return x_197; +} +} +else +{ +lean_object* x_198; +x_198 = lean_ctor_get(x_188, 1); +lean_inc(x_198); +lean_dec(x_188); +x_154 = x_198; +goto block_187; +} +block_187: +{ +lean_object* x_155; +lean_inc(x_8); +x_155 = l_Lean_Meta_mkEqRefl(x_136, x_8, x_154); +if (lean_obj_tag(x_155) == 0) +{ +lean_object* x_156; lean_object* x_157; lean_object* x_158; +x_156 = lean_ctor_get(x_155, 0); +lean_inc(x_156); +x_157 = lean_ctor_get(x_155, 1); +lean_inc(x_157); +lean_dec(x_155); +lean_inc(x_8); +x_158 = l_Lean_Meta_mkEqNDRec(x_153, x_156, x_132, x_8, x_157); +if (lean_obj_tag(x_158) == 0) +{ +lean_object* x_159; lean_object* x_160; lean_object* x_161; +x_159 = lean_ctor_get(x_158, 0); +lean_inc(x_159); +x_160 = lean_ctor_get(x_158, 1); +lean_inc(x_160); +lean_dec(x_158); +lean_inc(x_8); +x_161 = l_Lean_Meta_postprocessAppMVars(x_2, x_3, x_19, x_20, x_8, x_160); +lean_dec(x_20); +if (lean_obj_tag(x_161) == 0) +{ +lean_object* x_162; lean_object* x_163; uint8_t x_164; +x_162 = lean_ctor_get(x_161, 1); +lean_inc(x_162); +lean_dec(x_161); +x_163 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_19, x_22, x_22, x_8, x_162); +lean_dec(x_8); +x_164 = !lean_is_exclusive(x_163); +if (x_164 == 0) +{ +lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; +x_165 = lean_ctor_get(x_163, 0); +x_166 = l_Array_toList___rarg(x_165); +lean_dec(x_165); +x_167 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_166); +x_168 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_168, 0, x_144); +lean_ctor_set(x_168, 1, x_159); +lean_ctor_set(x_168, 2, x_167); +lean_ctor_set(x_163, 0, x_168); +return x_163; +} +else +{ +lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; +x_169 = lean_ctor_get(x_163, 0); +x_170 = lean_ctor_get(x_163, 1); +lean_inc(x_170); +lean_inc(x_169); +lean_dec(x_163); +x_171 = l_Array_toList___rarg(x_169); +lean_dec(x_169); +x_172 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_171); +x_173 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_173, 0, x_144); +lean_ctor_set(x_173, 1, x_159); +lean_ctor_set(x_173, 2, x_172); +x_174 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_174, 0, x_173); +lean_ctor_set(x_174, 1, x_170); +return x_174; +} +} +else +{ +uint8_t x_175; +lean_dec(x_159); +lean_dec(x_144); +lean_dec(x_19); +lean_dec(x_8); +x_175 = !lean_is_exclusive(x_161); +if (x_175 == 0) +{ +return x_161; +} +else +{ +lean_object* x_176; lean_object* x_177; lean_object* x_178; +x_176 = lean_ctor_get(x_161, 0); +x_177 = lean_ctor_get(x_161, 1); +lean_inc(x_177); +lean_inc(x_176); +lean_dec(x_161); +x_178 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_178, 0, x_176); +lean_ctor_set(x_178, 1, x_177); +return x_178; +} +} +} +else +{ +uint8_t x_179; +lean_dec(x_144); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_179 = !lean_is_exclusive(x_158); +if (x_179 == 0) +{ +return x_158; +} +else +{ +lean_object* x_180; lean_object* x_181; lean_object* x_182; +x_180 = lean_ctor_get(x_158, 0); +x_181 = lean_ctor_get(x_158, 1); +lean_inc(x_181); +lean_inc(x_180); +lean_dec(x_158); +x_182 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_182, 0, x_180); +lean_ctor_set(x_182, 1, x_181); +return x_182; +} +} +} +else +{ +uint8_t x_183; +lean_dec(x_153); +lean_dec(x_144); +lean_dec(x_132); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_183 = !lean_is_exclusive(x_155); +if (x_183 == 0) +{ +return x_155; +} +else +{ +lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_184 = lean_ctor_get(x_155, 0); +x_185 = lean_ctor_get(x_155, 1); +lean_inc(x_185); +lean_inc(x_184); +lean_dec(x_155); +x_186 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_186, 0, x_184); +lean_ctor_set(x_186, 1, x_185); +return x_186; +} +} +} +} +else +{ +uint8_t x_199; +lean_dec(x_144); +lean_dec(x_139); +lean_dec(x_136); +lean_dec(x_132); +lean_dec(x_36); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_199 = !lean_is_exclusive(x_146); +if (x_199 == 0) +{ +return x_146; +} +else +{ +lean_object* x_200; lean_object* x_201; lean_object* x_202; +x_200 = lean_ctor_get(x_146, 0); +x_201 = lean_ctor_get(x_146, 1); +lean_inc(x_201); +lean_inc(x_200); +lean_dec(x_146); +x_202 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_202, 0, x_200); +lean_ctor_set(x_202, 1, x_201); +return x_202; +} +} +} +} +else +{ +uint8_t x_211; +lean_dec(x_136); +lean_dec(x_132); +lean_dec(x_39); +lean_dec(x_36); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_211 = !lean_is_exclusive(x_138); +if (x_211 == 0) +{ +return x_138; +} +else +{ +lean_object* x_212; lean_object* x_213; lean_object* x_214; +x_212 = lean_ctor_get(x_138, 0); +x_213 = lean_ctor_get(x_138, 1); +lean_inc(x_213); +lean_inc(x_212); +lean_dec(x_138); +x_214 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_214, 0, x_212); +lean_ctor_set(x_214, 1, x_213); +return x_214; +} +} +} +} +else +{ +uint8_t x_230; +lean_dec(x_42); +lean_dec(x_39); +lean_dec(x_36); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_230 = !lean_is_exclusive(x_131); +if (x_230 == 0) +{ +return x_131; +} +else +{ +lean_object* x_231; lean_object* x_232; lean_object* x_233; +x_231 = lean_ctor_get(x_131, 0); +x_232 = lean_ctor_get(x_131, 1); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_131); +x_233 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_233, 0, x_231); +lean_ctor_set(x_233, 1, x_232); +return x_233; +} +} +} +} +} +else +{ +lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; +x_234 = l_Lean_Expr_getAppNumArgsAux___main(x_21, x_22); +x_235 = lean_nat_sub(x_234, x_22); +x_236 = lean_unsigned_to_nat(1u); +x_237 = lean_nat_sub(x_235, x_236); +lean_dec(x_235); +x_238 = l_Lean_Expr_getRevArg_x21___main(x_21, x_237); +x_239 = lean_nat_sub(x_234, x_236); +lean_dec(x_234); +x_240 = lean_nat_sub(x_239, x_236); +lean_dec(x_239); +x_241 = l_Lean_Expr_getRevArg_x21___main(x_21, x_240); +lean_dec(x_21); +lean_inc(x_8); +lean_inc(x_241); +lean_inc(x_238); +x_242 = l_Lean_Meta_mkEq(x_238, x_241, x_8, x_18); +if (lean_obj_tag(x_242) == 0) +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; uint8_t x_249; +x_243 = lean_ctor_get(x_242, 0); +lean_inc(x_243); +x_244 = lean_ctor_get(x_242, 1); +lean_inc(x_244); +lean_dec(x_242); +x_245 = l_Lean_Meta_rewriteCore___lambda__1___closed__17; +x_246 = l_Lean_mkApp3(x_245, x_238, x_241, x_23); +x_247 = l_Lean_Expr_eq_x3f___closed__2; +x_248 = lean_unsigned_to_nat(3u); +x_249 = l_Lean_Expr_isAppOfArity___main(x_243, x_247, x_248); +if (x_249 == 0) +{ +lean_object* x_250; lean_object* x_251; +lean_dec(x_246); +lean_dec(x_243); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_5); +x_250 = l_Lean_Meta_rewriteCore___lambda__1___closed__3; +x_251 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_250, x_8, x_244); +lean_dec(x_8); +return x_251; +} +else +{ +lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; +x_252 = l_Lean_Expr_getAppNumArgsAux___main(x_243, x_22); +x_253 = lean_nat_sub(x_252, x_22); +x_254 = lean_nat_sub(x_253, x_236); +lean_dec(x_253); +x_255 = l_Lean_Expr_getRevArg_x21___main(x_243, x_254); +x_256 = lean_nat_sub(x_252, x_236); +x_257 = lean_nat_sub(x_256, x_236); +lean_dec(x_256); +x_258 = l_Lean_Expr_getRevArg_x21___main(x_243, x_257); +x_259 = lean_nat_sub(x_252, x_25); +lean_dec(x_252); +x_260 = lean_nat_sub(x_259, x_236); +lean_dec(x_259); +x_261 = l_Lean_Expr_getRevArg_x21___main(x_243, x_260); +lean_dec(x_243); +if (x_4 == 0) +{ +lean_object* x_262; uint8_t x_263; +x_262 = l_Lean_Expr_getAppFn___main(x_258); +x_263 = l_Lean_Expr_isMVar(x_262); +lean_dec(x_262); +if (x_263 == 0) +{ +lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; +x_264 = l_Lean_Meta_instantiateMVars(x_5, x_8, x_244); +x_265 = lean_ctor_get(x_264, 0); +lean_inc(x_265); +x_266 = lean_ctor_get(x_264, 1); +lean_inc(x_266); +lean_dec(x_264); +lean_inc(x_8); +lean_inc(x_265); +x_267 = l_Lean_Meta_kabstract(x_265, x_258, x_6, x_8, x_266); +if (lean_obj_tag(x_267) == 0) +{ +lean_object* x_268; lean_object* x_269; lean_object* x_270; uint8_t x_333; +x_268 = lean_ctor_get(x_267, 0); +lean_inc(x_268); +x_269 = lean_ctor_get(x_267, 1); +lean_inc(x_269); +lean_dec(x_267); +x_333 = l_Lean_Expr_hasLooseBVars(x_268); +if (x_333 == 0) +{ +lean_object* x_334; lean_object* x_335; uint8_t x_336; +lean_dec(x_268); +lean_dec(x_265); +lean_dec(x_261); +lean_dec(x_255); +lean_dec(x_246); +lean_dec(x_20); +lean_dec(x_19); +x_334 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_335 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_334, x_8, x_269); +lean_dec(x_8); +x_336 = !lean_is_exclusive(x_335); +if (x_336 == 0) +{ +return x_335; +} +else +{ +lean_object* x_337; lean_object* x_338; lean_object* x_339; +x_337 = lean_ctor_get(x_335, 0); +x_338 = lean_ctor_get(x_335, 1); +lean_inc(x_338); +lean_inc(x_337); +lean_dec(x_335); +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; +} +} +else +{ +x_270 = x_269; +goto block_332; +} +block_332: +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; +x_271 = lean_expr_instantiate1(x_268, x_261); +lean_dec(x_261); +x_272 = l_Lean_Meta_instantiateMVars(x_271, x_8, x_270); +x_273 = lean_ctor_get(x_272, 0); +lean_inc(x_273); +x_274 = lean_ctor_get(x_272, 1); +lean_inc(x_274); +lean_dec(x_272); +lean_inc(x_8); +lean_inc_n(x_265, 2); +x_275 = l_Lean_Meta_mkEq(x_265, x_265, x_8, x_274); +if (lean_obj_tag(x_275) == 0) +{ +lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; uint8_t x_281; lean_object* x_282; lean_object* x_283; lean_object* x_317; lean_object* x_318; uint8_t x_319; +x_276 = lean_ctor_get(x_275, 0); +lean_inc(x_276); +x_277 = lean_ctor_get(x_275, 1); +lean_inc(x_277); +lean_dec(x_275); +x_278 = l_Lean_Expr_appFn_x21(x_276); +lean_dec(x_276); +x_279 = l_Lean_mkApp(x_278, x_268); +x_280 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_281 = 0; +x_282 = l_Lean_mkLambda(x_280, x_281, x_255, x_279); +lean_inc(x_8); +lean_inc(x_282); +x_317 = l_Lean_Meta_isTypeCorrect(x_282, x_8, x_277); +x_318 = lean_ctor_get(x_317, 0); +lean_inc(x_318); +x_319 = lean_unbox(x_318); +lean_dec(x_318); +if (x_319 == 0) +{ +lean_object* x_320; lean_object* x_321; lean_object* x_322; uint8_t x_323; +lean_dec(x_282); +lean_dec(x_273); +lean_dec(x_265); +lean_dec(x_246); +lean_dec(x_20); +lean_dec(x_19); +x_320 = lean_ctor_get(x_317, 1); +lean_inc(x_320); +lean_dec(x_317); +x_321 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_322 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_321, x_8, x_320); +lean_dec(x_8); +x_323 = !lean_is_exclusive(x_322); +if (x_323 == 0) +{ +return x_322; +} +else +{ +lean_object* x_324; lean_object* x_325; lean_object* x_326; +x_324 = lean_ctor_get(x_322, 0); +x_325 = lean_ctor_get(x_322, 1); +lean_inc(x_325); +lean_inc(x_324); +lean_dec(x_322); +x_326 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_326, 0, x_324); +lean_ctor_set(x_326, 1, x_325); +return x_326; +} +} +else +{ +lean_object* x_327; +x_327 = lean_ctor_get(x_317, 1); +lean_inc(x_327); +lean_dec(x_317); +x_283 = x_327; +goto block_316; +} +block_316: +{ +lean_object* x_284; +lean_inc(x_8); +x_284 = l_Lean_Meta_mkEqRefl(x_265, x_8, x_283); +if (lean_obj_tag(x_284) == 0) +{ +lean_object* x_285; lean_object* x_286; lean_object* x_287; +x_285 = lean_ctor_get(x_284, 0); +lean_inc(x_285); +x_286 = lean_ctor_get(x_284, 1); +lean_inc(x_286); +lean_dec(x_284); +lean_inc(x_8); +x_287 = l_Lean_Meta_mkEqNDRec(x_282, x_285, x_246, x_8, x_286); +if (lean_obj_tag(x_287) == 0) +{ +lean_object* x_288; lean_object* x_289; lean_object* x_290; +x_288 = lean_ctor_get(x_287, 0); +lean_inc(x_288); +x_289 = lean_ctor_get(x_287, 1); +lean_inc(x_289); +lean_dec(x_287); +lean_inc(x_8); +x_290 = l_Lean_Meta_postprocessAppMVars(x_2, x_3, x_19, x_20, x_8, x_289); +lean_dec(x_20); +if (lean_obj_tag(x_290) == 0) +{ +lean_object* x_291; lean_object* x_292; uint8_t x_293; +x_291 = lean_ctor_get(x_290, 1); +lean_inc(x_291); +lean_dec(x_290); +x_292 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_19, x_22, x_22, x_8, x_291); +lean_dec(x_8); +x_293 = !lean_is_exclusive(x_292); +if (x_293 == 0) +{ +lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; +x_294 = lean_ctor_get(x_292, 0); +x_295 = l_Array_toList___rarg(x_294); +lean_dec(x_294); +x_296 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_295); +x_297 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_297, 0, x_273); +lean_ctor_set(x_297, 1, x_288); +lean_ctor_set(x_297, 2, x_296); +lean_ctor_set(x_292, 0, x_297); +return x_292; +} +else +{ +lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; +x_298 = lean_ctor_get(x_292, 0); +x_299 = lean_ctor_get(x_292, 1); +lean_inc(x_299); +lean_inc(x_298); +lean_dec(x_292); +x_300 = l_Array_toList___rarg(x_298); +lean_dec(x_298); +x_301 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_300); +x_302 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_302, 0, x_273); +lean_ctor_set(x_302, 1, x_288); +lean_ctor_set(x_302, 2, x_301); +x_303 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_303, 0, x_302); +lean_ctor_set(x_303, 1, x_299); +return x_303; +} +} +else +{ +uint8_t x_304; +lean_dec(x_288); +lean_dec(x_273); +lean_dec(x_19); +lean_dec(x_8); +x_304 = !lean_is_exclusive(x_290); +if (x_304 == 0) +{ +return x_290; +} +else +{ +lean_object* x_305; lean_object* x_306; lean_object* x_307; +x_305 = lean_ctor_get(x_290, 0); +x_306 = lean_ctor_get(x_290, 1); +lean_inc(x_306); +lean_inc(x_305); +lean_dec(x_290); +x_307 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_307, 0, x_305); +lean_ctor_set(x_307, 1, x_306); +return x_307; +} +} +} +else +{ +uint8_t x_308; +lean_dec(x_273); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_308 = !lean_is_exclusive(x_287); +if (x_308 == 0) +{ +return x_287; +} +else +{ +lean_object* x_309; lean_object* x_310; lean_object* x_311; +x_309 = lean_ctor_get(x_287, 0); +x_310 = lean_ctor_get(x_287, 1); +lean_inc(x_310); +lean_inc(x_309); +lean_dec(x_287); +x_311 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_311, 0, x_309); +lean_ctor_set(x_311, 1, x_310); +return x_311; +} +} +} +else +{ +uint8_t x_312; +lean_dec(x_282); +lean_dec(x_273); +lean_dec(x_246); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_312 = !lean_is_exclusive(x_284); +if (x_312 == 0) +{ +return x_284; +} +else +{ +lean_object* x_313; lean_object* x_314; lean_object* x_315; +x_313 = lean_ctor_get(x_284, 0); +x_314 = lean_ctor_get(x_284, 1); +lean_inc(x_314); +lean_inc(x_313); +lean_dec(x_284); +x_315 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_315, 0, x_313); +lean_ctor_set(x_315, 1, x_314); +return x_315; +} +} +} +} +else +{ +uint8_t x_328; +lean_dec(x_273); +lean_dec(x_268); +lean_dec(x_265); +lean_dec(x_255); +lean_dec(x_246); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_328 = !lean_is_exclusive(x_275); +if (x_328 == 0) +{ +return x_275; +} +else +{ +lean_object* x_329; lean_object* x_330; lean_object* x_331; +x_329 = lean_ctor_get(x_275, 0); +x_330 = lean_ctor_get(x_275, 1); +lean_inc(x_330); +lean_inc(x_329); +lean_dec(x_275); +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_340; +lean_dec(x_265); +lean_dec(x_261); +lean_dec(x_255); +lean_dec(x_246); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_340 = !lean_is_exclusive(x_267); +if (x_340 == 0) +{ +return x_267; +} +else +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; +x_341 = lean_ctor_get(x_267, 0); +x_342 = lean_ctor_get(x_267, 1); +lean_inc(x_342); +lean_inc(x_341); +lean_dec(x_267); +x_343 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_343, 0, x_341); +lean_ctor_set(x_343, 1, x_342); +return x_343; +} +} +} +else +{ +lean_object* x_344; lean_object* x_345; uint8_t x_346; +lean_dec(x_261); +lean_dec(x_258); +lean_dec(x_255); +lean_dec(x_246); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_5); +x_344 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_345 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_344, x_8, x_244); +lean_dec(x_8); +x_346 = !lean_is_exclusive(x_345); +if (x_346 == 0) +{ +return x_345; +} +else +{ +lean_object* x_347; lean_object* x_348; lean_object* x_349; +x_347 = lean_ctor_get(x_345, 0); +x_348 = lean_ctor_get(x_345, 1); +lean_inc(x_348); +lean_inc(x_347); +lean_dec(x_345); +x_349 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_349, 0, x_347); +lean_ctor_set(x_349, 1, x_348); +return x_349; +} +} +} +else +{ +lean_object* x_350; +lean_inc(x_8); +x_350 = l_Lean_Meta_mkEqSymm(x_246, x_8, x_244); +if (lean_obj_tag(x_350) == 0) +{ +lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_435; +x_351 = lean_ctor_get(x_350, 0); +lean_inc(x_351); +x_352 = lean_ctor_get(x_350, 1); +lean_inc(x_352); +lean_dec(x_350); +lean_inc(x_8); +lean_inc(x_258); +lean_inc(x_261); +x_435 = l_Lean_Meta_mkEq(x_261, x_258, x_8, x_352); +if (lean_obj_tag(x_435) == 0) +{ +lean_object* x_436; lean_object* x_437; uint8_t x_438; +x_436 = lean_ctor_get(x_435, 1); +lean_inc(x_436); +lean_dec(x_435); +x_437 = l_Lean_Expr_getAppFn___main(x_261); +x_438 = l_Lean_Expr_isMVar(x_437); +lean_dec(x_437); +if (x_438 == 0) +{ +x_353 = x_436; +goto block_434; +} +else +{ +lean_object* x_439; lean_object* x_440; uint8_t x_441; +lean_dec(x_351); +lean_dec(x_261); +lean_dec(x_258); +lean_dec(x_255); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_5); +x_439 = l_Lean_Meta_rewriteCore___lambda__1___closed__14; +x_440 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_439, x_8, x_436); +lean_dec(x_8); +x_441 = !lean_is_exclusive(x_440); +if (x_441 == 0) +{ +return x_440; +} +else +{ +lean_object* x_442; lean_object* x_443; lean_object* x_444; +x_442 = lean_ctor_get(x_440, 0); +x_443 = lean_ctor_get(x_440, 1); +lean_inc(x_443); +lean_inc(x_442); +lean_dec(x_440); +x_444 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_444, 0, x_442); +lean_ctor_set(x_444, 1, x_443); +return x_444; +} +} +} +else +{ +uint8_t x_445; +lean_dec(x_351); +lean_dec(x_261); +lean_dec(x_258); +lean_dec(x_255); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_445 = !lean_is_exclusive(x_435); +if (x_445 == 0) +{ +return x_435; +} +else +{ +lean_object* x_446; lean_object* x_447; lean_object* x_448; +x_446 = lean_ctor_get(x_435, 0); +x_447 = lean_ctor_get(x_435, 1); +lean_inc(x_447); +lean_inc(x_446); +lean_dec(x_435); +x_448 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_448, 0, x_446); +lean_ctor_set(x_448, 1, x_447); +return x_448; +} +} +block_434: +{ +lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; +x_354 = l_Lean_Meta_instantiateMVars(x_5, x_8, x_353); +x_355 = lean_ctor_get(x_354, 0); +lean_inc(x_355); +x_356 = lean_ctor_get(x_354, 1); +lean_inc(x_356); +lean_dec(x_354); +lean_inc(x_8); +lean_inc(x_355); +x_357 = l_Lean_Meta_kabstract(x_355, x_261, x_6, x_8, x_356); +if (lean_obj_tag(x_357) == 0) +{ +lean_object* x_358; lean_object* x_359; lean_object* x_360; uint8_t x_423; +x_358 = lean_ctor_get(x_357, 0); +lean_inc(x_358); +x_359 = lean_ctor_get(x_357, 1); +lean_inc(x_359); +lean_dec(x_357); +x_423 = l_Lean_Expr_hasLooseBVars(x_358); +if (x_423 == 0) +{ +lean_object* x_424; lean_object* x_425; uint8_t x_426; +lean_dec(x_358); +lean_dec(x_355); +lean_dec(x_351); +lean_dec(x_258); +lean_dec(x_255); +lean_dec(x_20); +lean_dec(x_19); +x_424 = l_Lean_Meta_rewriteCore___lambda__1___closed__11; +x_425 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_424, x_8, x_359); +lean_dec(x_8); +x_426 = !lean_is_exclusive(x_425); +if (x_426 == 0) +{ +return x_425; +} +else +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; +x_427 = lean_ctor_get(x_425, 0); +x_428 = lean_ctor_get(x_425, 1); +lean_inc(x_428); +lean_inc(x_427); +lean_dec(x_425); +x_429 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_429, 0, x_427); +lean_ctor_set(x_429, 1, x_428); +return x_429; +} +} +else +{ +x_360 = x_359; +goto block_422; +} +block_422: +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; +x_361 = lean_expr_instantiate1(x_358, x_258); +lean_dec(x_258); +x_362 = l_Lean_Meta_instantiateMVars(x_361, x_8, x_360); +x_363 = lean_ctor_get(x_362, 0); +lean_inc(x_363); +x_364 = lean_ctor_get(x_362, 1); +lean_inc(x_364); +lean_dec(x_362); +lean_inc(x_8); +lean_inc_n(x_355, 2); +x_365 = l_Lean_Meta_mkEq(x_355, x_355, x_8, x_364); +if (lean_obj_tag(x_365) == 0) +{ +lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; uint8_t x_371; lean_object* x_372; lean_object* x_373; lean_object* x_407; lean_object* x_408; uint8_t x_409; +x_366 = lean_ctor_get(x_365, 0); +lean_inc(x_366); +x_367 = lean_ctor_get(x_365, 1); +lean_inc(x_367); +lean_dec(x_365); +x_368 = l_Lean_Expr_appFn_x21(x_366); +lean_dec(x_366); +x_369 = l_Lean_mkApp(x_368, x_358); +x_370 = l_Lean_Meta_rewriteCore___lambda__1___closed__5; +x_371 = 0; +x_372 = l_Lean_mkLambda(x_370, x_371, x_255, x_369); +lean_inc(x_8); +lean_inc(x_372); +x_407 = l_Lean_Meta_isTypeCorrect(x_372, x_8, x_367); +x_408 = lean_ctor_get(x_407, 0); +lean_inc(x_408); +x_409 = lean_unbox(x_408); +lean_dec(x_408); +if (x_409 == 0) +{ +lean_object* x_410; lean_object* x_411; lean_object* x_412; uint8_t x_413; +lean_dec(x_372); +lean_dec(x_363); +lean_dec(x_355); +lean_dec(x_351); +lean_dec(x_20); +lean_dec(x_19); +x_410 = lean_ctor_get(x_407, 1); +lean_inc(x_410); +lean_dec(x_407); +x_411 = l_Lean_Meta_rewriteCore___lambda__1___closed__8; +x_412 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_411, x_8, x_410); +lean_dec(x_8); +x_413 = !lean_is_exclusive(x_412); +if (x_413 == 0) +{ +return x_412; +} +else +{ +lean_object* x_414; lean_object* x_415; lean_object* x_416; +x_414 = lean_ctor_get(x_412, 0); +x_415 = lean_ctor_get(x_412, 1); +lean_inc(x_415); +lean_inc(x_414); +lean_dec(x_412); +x_416 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_416, 0, x_414); +lean_ctor_set(x_416, 1, x_415); +return x_416; +} +} +else +{ +lean_object* x_417; +x_417 = lean_ctor_get(x_407, 1); +lean_inc(x_417); +lean_dec(x_407); +x_373 = x_417; +goto block_406; +} +block_406: +{ +lean_object* x_374; +lean_inc(x_8); +x_374 = l_Lean_Meta_mkEqRefl(x_355, x_8, x_373); +if (lean_obj_tag(x_374) == 0) +{ +lean_object* x_375; lean_object* x_376; lean_object* x_377; +x_375 = lean_ctor_get(x_374, 0); +lean_inc(x_375); +x_376 = lean_ctor_get(x_374, 1); +lean_inc(x_376); +lean_dec(x_374); +lean_inc(x_8); +x_377 = l_Lean_Meta_mkEqNDRec(x_372, x_375, x_351, x_8, x_376); +if (lean_obj_tag(x_377) == 0) +{ +lean_object* x_378; lean_object* x_379; lean_object* x_380; +x_378 = lean_ctor_get(x_377, 0); +lean_inc(x_378); +x_379 = lean_ctor_get(x_377, 1); +lean_inc(x_379); +lean_dec(x_377); +lean_inc(x_8); +x_380 = l_Lean_Meta_postprocessAppMVars(x_2, x_3, x_19, x_20, x_8, x_379); +lean_dec(x_20); +if (lean_obj_tag(x_380) == 0) +{ +lean_object* x_381; lean_object* x_382; uint8_t x_383; +x_381 = lean_ctor_get(x_380, 1); +lean_inc(x_381); +lean_dec(x_380); +x_382 = l_Array_filterMAux___main___at_Lean_Meta_apply___spec__1(x_19, x_22, x_22, x_8, x_381); +lean_dec(x_8); +x_383 = !lean_is_exclusive(x_382); +if (x_383 == 0) +{ +lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; +x_384 = lean_ctor_get(x_382, 0); +x_385 = l_Array_toList___rarg(x_384); +lean_dec(x_384); +x_386 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_385); +x_387 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_387, 0, x_363); +lean_ctor_set(x_387, 1, x_378); +lean_ctor_set(x_387, 2, x_386); +lean_ctor_set(x_382, 0, x_387); +return x_382; +} +else +{ +lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; +x_388 = lean_ctor_get(x_382, 0); +x_389 = lean_ctor_get(x_382, 1); +lean_inc(x_389); +lean_inc(x_388); +lean_dec(x_382); +x_390 = l_Array_toList___rarg(x_388); +lean_dec(x_388); +x_391 = l_List_map___main___at_Lean_Meta_rewriteCore___spec__1(x_390); +x_392 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_392, 0, x_363); +lean_ctor_set(x_392, 1, x_378); +lean_ctor_set(x_392, 2, x_391); +x_393 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_393, 0, x_392); +lean_ctor_set(x_393, 1, x_389); +return x_393; +} +} +else +{ +uint8_t x_394; +lean_dec(x_378); +lean_dec(x_363); +lean_dec(x_19); +lean_dec(x_8); +x_394 = !lean_is_exclusive(x_380); +if (x_394 == 0) +{ +return x_380; +} +else +{ +lean_object* x_395; lean_object* x_396; lean_object* x_397; +x_395 = lean_ctor_get(x_380, 0); +x_396 = lean_ctor_get(x_380, 1); +lean_inc(x_396); +lean_inc(x_395); +lean_dec(x_380); +x_397 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_397, 0, x_395); +lean_ctor_set(x_397, 1, x_396); +return x_397; +} +} +} +else +{ +uint8_t x_398; +lean_dec(x_363); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_398 = !lean_is_exclusive(x_377); +if (x_398 == 0) +{ +return x_377; +} +else +{ +lean_object* x_399; lean_object* x_400; lean_object* x_401; +x_399 = lean_ctor_get(x_377, 0); +x_400 = lean_ctor_get(x_377, 1); +lean_inc(x_400); +lean_inc(x_399); +lean_dec(x_377); +x_401 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_401, 0, x_399); +lean_ctor_set(x_401, 1, x_400); +return x_401; +} +} +} +else +{ +uint8_t x_402; +lean_dec(x_372); +lean_dec(x_363); +lean_dec(x_351); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_402 = !lean_is_exclusive(x_374); +if (x_402 == 0) +{ +return x_374; +} +else +{ +lean_object* x_403; lean_object* x_404; lean_object* x_405; +x_403 = lean_ctor_get(x_374, 0); +x_404 = lean_ctor_get(x_374, 1); +lean_inc(x_404); +lean_inc(x_403); +lean_dec(x_374); +x_405 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_405, 0, x_403); +lean_ctor_set(x_405, 1, x_404); +return x_405; +} +} +} +} +else +{ +uint8_t x_418; +lean_dec(x_363); +lean_dec(x_358); +lean_dec(x_355); +lean_dec(x_351); +lean_dec(x_255); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_418 = !lean_is_exclusive(x_365); +if (x_418 == 0) +{ +return x_365; +} +else +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; +x_419 = lean_ctor_get(x_365, 0); +x_420 = lean_ctor_get(x_365, 1); +lean_inc(x_420); +lean_inc(x_419); +lean_dec(x_365); +x_421 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_421, 0, x_419); +lean_ctor_set(x_421, 1, x_420); +return x_421; +} +} +} +} +else +{ +uint8_t x_430; +lean_dec(x_355); +lean_dec(x_351); +lean_dec(x_258); +lean_dec(x_255); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_3); +lean_dec(x_2); +x_430 = !lean_is_exclusive(x_357); +if (x_430 == 0) +{ +return x_357; +} +else +{ +lean_object* x_431; lean_object* x_432; lean_object* x_433; +x_431 = lean_ctor_get(x_357, 0); +x_432 = lean_ctor_get(x_357, 1); +lean_inc(x_432); +lean_inc(x_431); +lean_dec(x_357); +x_433 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_433, 0, x_431); +lean_ctor_set(x_433, 1, x_432); +return x_433; +} +} +} +} +else +{ +uint8_t x_449; +lean_dec(x_261); +lean_dec(x_258); +lean_dec(x_255); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_449 = !lean_is_exclusive(x_350); +if (x_449 == 0) +{ +return x_350; +} +else +{ +lean_object* x_450; lean_object* x_451; lean_object* x_452; +x_450 = lean_ctor_get(x_350, 0); +x_451 = lean_ctor_get(x_350, 1); +lean_inc(x_451); +lean_inc(x_450); +lean_dec(x_350); +x_452 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_452, 0, x_450); +lean_ctor_set(x_452, 1, x_451); +return x_452; +} +} +} +} +} +else +{ +uint8_t x_453; +lean_dec(x_241); +lean_dec(x_238); +lean_dec(x_23); +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_453 = !lean_is_exclusive(x_242); +if (x_453 == 0) +{ +return x_242; +} +else +{ +lean_object* x_454; lean_object* x_455; lean_object* x_456; +x_454 = lean_ctor_get(x_242, 0); +x_455 = lean_ctor_get(x_242, 1); +lean_inc(x_455); +lean_inc(x_454); +lean_dec(x_242); +x_456 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_456, 0, x_454); +lean_ctor_set(x_456, 1, x_455); +return x_456; +} +} +} +} +else +{ +uint8_t x_457; +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_457 = !lean_is_exclusive(x_15); +if (x_457 == 0) +{ +return x_15; +} +else +{ +lean_object* x_458; lean_object* x_459; lean_object* x_460; +x_458 = lean_ctor_get(x_15, 0); +x_459 = lean_ctor_get(x_15, 1); +lean_inc(x_459); +lean_inc(x_458); +lean_dec(x_15); +x_460 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_460, 0, x_458); +lean_ctor_set(x_460, 1, x_459); +return x_460; +} +} +} +else +{ +uint8_t x_461; +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_461 = !lean_is_exclusive(x_10); +if (x_461 == 0) +{ +return x_10; +} +else +{ +lean_object* x_462; lean_object* x_463; lean_object* x_464; +x_462 = lean_ctor_get(x_10, 0); +x_463 = lean_ctor_get(x_10, 1); +lean_inc(x_463); +lean_inc(x_462); +lean_dec(x_10); +x_464 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_464, 0, x_462); +lean_ctor_set(x_464, 1, x_463); +return x_464; +} +} +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("rewrite"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_rewriteCore___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_rewriteCore___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_rewriteCore(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_8 = l_Lean_Meta_rewriteCore___closed__2; +lean_inc(x_1); +x_9 = lean_alloc_closure((void*)(l_Lean_Meta_checkNotAssigned___boxed), 4, 2); +lean_closure_set(x_9, 0, x_1); +lean_closure_set(x_9, 1, x_8); +x_10 = lean_box(x_4); +lean_inc(x_1); +x_11 = lean_alloc_closure((void*)(l_Lean_Meta_rewriteCore___lambda__1___boxed), 9, 6); +lean_closure_set(x_11, 0, x_3); +lean_closure_set(x_11, 1, x_8); +lean_closure_set(x_11, 2, x_1); +lean_closure_set(x_11, 3, x_10); +lean_closure_set(x_11, 4, x_2); +lean_closure_set(x_11, 5, x_5); +x_12 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_12, 0, x_9); +lean_closure_set(x_12, 1, x_11); +x_13 = l_Lean_Meta_getMVarDecl(x_1, x_6, x_7); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +x_17 = lean_ctor_get(x_14, 4); +lean_inc(x_17); +lean_dec(x_14); +x_18 = l_Lean_Meta_withLocalContext___rarg(x_16, x_17, x_12, x_6, x_15); +return x_18; +} +else +{ +uint8_t x_19; +lean_dec(x_12); +x_19 = !lean_is_exclusive(x_13); +if (x_19 == 0) +{ +return x_13; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_13, 0); +x_21 = lean_ctor_get(x_13, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_13); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; +} +} +} +} +lean_object* l_Lean_Meta_rewriteCore___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: +{ +uint8_t x_10; lean_object* x_11; +x_10 = lean_unbox(x_4); +lean_dec(x_4); +x_11 = l_Lean_Meta_rewriteCore___lambda__1(x_1, x_2, x_3, x_10, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_7); +lean_dec(x_6); +return x_11; +} +} +lean_object* l_Lean_Meta_rewriteCore___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +uint8_t x_8; lean_object* x_9; +x_8 = lean_unbox(x_4); +lean_dec(x_4); +x_9 = l_Lean_Meta_rewriteCore(x_1, x_2, x_3, x_8, x_5, x_6, x_7); +lean_dec(x_6); +return x_9; +} +} +lean_object* initialize_Init_Lean_Meta_AppBuilder(lean_object*); +lean_object* initialize_Init_Lean_Meta_KAbstract(lean_object*); +lean_object* initialize_Init_Lean_Meta_Check(lean_object*); +lean_object* initialize_Init_Lean_Meta_Tactic_Apply(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Meta_Tactic_Rewrite(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_KAbstract(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Check(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Meta_Tactic_Apply(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Meta_rewriteCore___lambda__1___closed__1 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__1(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__1); +l_Lean_Meta_rewriteCore___lambda__1___closed__2 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__2(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__2); +l_Lean_Meta_rewriteCore___lambda__1___closed__3 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__3(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__3); +l_Lean_Meta_rewriteCore___lambda__1___closed__4 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__4(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__4); +l_Lean_Meta_rewriteCore___lambda__1___closed__5 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__5(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__5); +l_Lean_Meta_rewriteCore___lambda__1___closed__6 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__6(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__6); +l_Lean_Meta_rewriteCore___lambda__1___closed__7 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__7(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__7); +l_Lean_Meta_rewriteCore___lambda__1___closed__8 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__8(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__8); +l_Lean_Meta_rewriteCore___lambda__1___closed__9 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__9(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__9); +l_Lean_Meta_rewriteCore___lambda__1___closed__10 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__10(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__10); +l_Lean_Meta_rewriteCore___lambda__1___closed__11 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__11(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__11); +l_Lean_Meta_rewriteCore___lambda__1___closed__12 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__12(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__12); +l_Lean_Meta_rewriteCore___lambda__1___closed__13 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__13(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__13); +l_Lean_Meta_rewriteCore___lambda__1___closed__14 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__14(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__14); +l_Lean_Meta_rewriteCore___lambda__1___closed__15 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__15(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__15); +l_Lean_Meta_rewriteCore___lambda__1___closed__16 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__16(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__16); +l_Lean_Meta_rewriteCore___lambda__1___closed__17 = _init_l_Lean_Meta_rewriteCore___lambda__1___closed__17(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___lambda__1___closed__17); +l_Lean_Meta_rewriteCore___closed__1 = _init_l_Lean_Meta_rewriteCore___closed__1(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___closed__1); +l_Lean_Meta_rewriteCore___closed__2 = _init_l_Lean_Meta_rewriteCore___closed__2(); +lean_mark_persistent(l_Lean_Meta_rewriteCore___closed__2); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c index ac3ea010dc..d0fa9ea1af 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Subst.c @@ -25,6 +25,7 @@ lean_object* l_Lean_Meta_substCore___lambda__3___closed__17; lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__4; uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1___closed__4; lean_object* l_Lean_Meta_substCore___lambda__3___closed__1; lean_object* l_Lean_Meta_substCore___lambda__3___closed__8; @@ -94,13 +95,13 @@ lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, le lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_subst___lambda__1___closed__5; lean_object* l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isFVar(lean_object*); extern lean_object* l_Lean_mkAppStx___closed__9; lean_object* l_Lean_Meta_substCore___lambda__3___closed__5; lean_object* l_Lean_Meta_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_substCore___lambda__3___closed__14; lean_object* lean_expr_abstract(lean_object*, lean_object*); lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -1654,32 +1655,32 @@ lean_dec(x_26); x_28 = l_Lean_Expr_getRevArg_x21___main(x_13, x_27); if (x_3 == 0) { -uint8_t x_105; -x_105 = 0; -x_29 = x_105; -goto block_104; +uint8_t x_114; +x_114 = 0; +x_29 = x_114; +goto block_113; } else { -uint8_t x_106; -x_106 = 1; -x_29 = x_106; -goto block_104; +uint8_t x_115; +x_115 = 1; +x_29 = x_115; +goto block_113; } -block_104: +block_113: { lean_object* x_30; lean_object* x_40; if (x_29 == 0) { lean_inc(x_24); x_40 = x_24; -goto block_103; +goto block_112; } else { lean_inc(x_28); x_40 = x_28; -goto block_103; +goto block_112; } block_39: { @@ -1711,86 +1712,86 @@ lean_dec(x_5); return x_38; } } -block_103: +block_112: { lean_object* x_41; if (x_29 == 0) { lean_dec(x_24); x_41 = x_28; -goto block_102; +goto block_111; } else { lean_dec(x_28); x_41 = x_24; -goto block_102; +goto block_111; } -block_102: +block_111: { if (lean_obj_tag(x_40) == 1) { -lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_86; uint8_t x_87; +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_95; uint8_t x_96; lean_dec(x_13); x_42 = lean_ctor_get(x_40, 0); lean_inc(x_42); x_43 = lean_ctor_get(x_12, 1); lean_inc(x_43); lean_inc(x_41); -x_86 = l_Lean_MetavarContext_exprDependsOn(x_43, x_41, x_42); -x_87 = lean_unbox(x_86); -lean_dec(x_86); -if (x_87 == 0) +x_95 = l_Lean_MetavarContext_exprDependsOn(x_43, x_41, x_42); +x_96 = lean_unbox(x_95); +lean_dec(x_95); +if (x_96 == 0) { lean_dec(x_41); lean_dec(x_40); x_44 = x_12; -goto block_85; +goto block_94; } else { -lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; uint8_t x_97; +lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; uint8_t x_106; lean_dec(x_42); lean_dec(x_4); lean_dec(x_2); -x_88 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_88, 0, x_40); -x_89 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; -x_90 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_90, 0, x_89); -lean_ctor_set(x_90, 1, x_88); -x_91 = l_Lean_Meta_substCore___lambda__3___closed__19; -x_92 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_92, 0, x_90); -lean_ctor_set(x_92, 1, x_91); -x_93 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_93, 0, x_41); -x_94 = l_Lean_indentExpr(x_93); -x_95 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_95, 0, x_92); -lean_ctor_set(x_95, 1, x_94); -x_96 = l_Lean_Meta_throwTacticEx___rarg(x_7, x_1, x_95, x_5, x_12); +x_97 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_97, 0, x_40); +x_98 = l_Array_forMAux___main___at_Lean_Meta_clear___spec__5___closed__8; +x_99 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_99, 0, x_98); +lean_ctor_set(x_99, 1, x_97); +x_100 = l_Lean_Meta_substCore___lambda__3___closed__19; +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_41); +x_103 = l_Lean_indentExpr(x_102); +x_104 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_104, 0, x_101); +lean_ctor_set(x_104, 1, x_103); +x_105 = l_Lean_Meta_throwTacticEx___rarg(x_7, x_1, x_104, x_5, x_12); lean_dec(x_5); -x_97 = !lean_is_exclusive(x_96); -if (x_97 == 0) +x_106 = !lean_is_exclusive(x_105); +if (x_106 == 0) { -return x_96; +return x_105; } else { -lean_object* x_98; lean_object* x_99; lean_object* x_100; -x_98 = lean_ctor_get(x_96, 0); -x_99 = lean_ctor_get(x_96, 1); -lean_inc(x_99); -lean_inc(x_98); -lean_dec(x_96); -x_100 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_100, 0, x_98); -lean_ctor_set(x_100, 1, x_99); -return x_100; +lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_107 = lean_ctor_get(x_105, 0); +x_108 = lean_ctor_get(x_105, 1); +lean_inc(x_108); +lean_inc(x_107); +lean_dec(x_105); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_107); +lean_ctor_set(x_109, 1, x_108); +return x_109; } } -block_85: +block_94: { lean_object* x_45; lean_inc(x_5); @@ -1864,99 +1865,138 @@ lean_closure_set(x_70, 10, x_14); x_71 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_71, 0, x_68); lean_closure_set(x_71, 1, x_70); -x_72 = l_Lean_Meta_withMVarContext___rarg(x_62, x_71, x_5, x_60); +x_72 = l_Lean_Meta_getMVarDecl(x_62, x_5, x_60); +if (lean_obj_tag(x_72) == 0) +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_73 = lean_ctor_get(x_72, 0); +lean_inc(x_73); +x_74 = lean_ctor_get(x_72, 1); +lean_inc(x_74); +lean_dec(x_72); +x_75 = lean_ctor_get(x_73, 1); +lean_inc(x_75); +x_76 = lean_ctor_get(x_73, 4); +lean_inc(x_76); +lean_dec(x_73); +x_77 = l_Lean_Meta_withLocalContext___rarg(x_75, x_76, x_71, x_5, x_74); lean_dec(x_5); +return x_77; +} +else +{ +uint8_t x_78; +lean_dec(x_71); +lean_dec(x_5); +x_78 = !lean_is_exclusive(x_72); +if (x_78 == 0) +{ return x_72; } else { -uint8_t x_73; +lean_object* x_79; lean_object* x_80; lean_object* x_81; +x_79 = lean_ctor_get(x_72, 0); +x_80 = lean_ctor_get(x_72, 1); +lean_inc(x_80); +lean_inc(x_79); +lean_dec(x_72); +x_81 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_81, 0, x_79); +lean_ctor_set(x_81, 1, x_80); +return x_81; +} +} +} +else +{ +uint8_t x_82; lean_dec(x_54); lean_dec(x_5); lean_dec(x_4); -x_73 = !lean_is_exclusive(x_58); -if (x_73 == 0) +x_82 = !lean_is_exclusive(x_58); +if (x_82 == 0) { return x_58; } else { -lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_74 = lean_ctor_get(x_58, 0); -x_75 = lean_ctor_get(x_58, 1); -lean_inc(x_75); -lean_inc(x_74); +lean_object* x_83; lean_object* x_84; lean_object* x_85; +x_83 = lean_ctor_get(x_58, 0); +x_84 = lean_ctor_get(x_58, 1); +lean_inc(x_84); +lean_inc(x_83); lean_dec(x_58); -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_85 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_85, 0, x_83); +lean_ctor_set(x_85, 1, x_84); +return x_85; } } } else { -uint8_t x_77; +uint8_t x_86; lean_dec(x_5); lean_dec(x_4); -x_77 = !lean_is_exclusive(x_51); -if (x_77 == 0) +x_86 = !lean_is_exclusive(x_51); +if (x_86 == 0) { return x_51; } else { -lean_object* x_78; lean_object* x_79; lean_object* x_80; -x_78 = lean_ctor_get(x_51, 0); -x_79 = lean_ctor_get(x_51, 1); -lean_inc(x_79); -lean_inc(x_78); +lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_87 = lean_ctor_get(x_51, 0); +x_88 = lean_ctor_get(x_51, 1); +lean_inc(x_88); +lean_inc(x_87); lean_dec(x_51); -x_80 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_80, 0, x_78); -lean_ctor_set(x_80, 1, x_79); -return x_80; +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_81; +uint8_t x_90; lean_dec(x_42); lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_81 = !lean_is_exclusive(x_45); -if (x_81 == 0) +x_90 = !lean_is_exclusive(x_45); +if (x_90 == 0) { return x_45; } else { -lean_object* x_82; lean_object* x_83; lean_object* x_84; -x_82 = lean_ctor_get(x_45, 0); -x_83 = lean_ctor_get(x_45, 1); -lean_inc(x_83); -lean_inc(x_82); +lean_object* x_91; lean_object* x_92; lean_object* x_93; +x_91 = lean_ctor_get(x_45, 0); +x_92 = lean_ctor_get(x_45, 1); +lean_inc(x_92); +lean_inc(x_91); lean_dec(x_45); -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_82); -lean_ctor_set(x_84, 1, x_83); -return x_84; +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_101; +lean_object* x_110; lean_dec(x_41); lean_dec(x_40); lean_dec(x_4); lean_dec(x_2); -x_101 = lean_box(0); -x_30 = x_101; +x_110 = lean_box(0); +x_30 = x_110; goto block_39; } } @@ -1966,55 +2006,55 @@ goto block_39; } else { -uint8_t x_107; +uint8_t x_116; lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_107 = !lean_is_exclusive(x_10); -if (x_107 == 0) +x_116 = !lean_is_exclusive(x_10); +if (x_116 == 0) { return x_10; } else { -lean_object* x_108; lean_object* x_109; lean_object* x_110; -x_108 = lean_ctor_get(x_10, 0); -x_109 = lean_ctor_get(x_10, 1); -lean_inc(x_109); -lean_inc(x_108); +lean_object* x_117; lean_object* x_118; lean_object* x_119; +x_117 = lean_ctor_get(x_10, 0); +x_118 = lean_ctor_get(x_10, 1); +lean_inc(x_118); +lean_inc(x_117); lean_dec(x_10); -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_108); -lean_ctor_set(x_110, 1, x_109); -return x_110; +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_117); +lean_ctor_set(x_119, 1, x_118); +return x_119; } } } else { -uint8_t x_111; +uint8_t x_120; lean_dec(x_5); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_111 = !lean_is_exclusive(x_8); -if (x_111 == 0) +x_120 = !lean_is_exclusive(x_8); +if (x_120 == 0) { return x_8; } else { -lean_object* x_112; lean_object* x_113; lean_object* x_114; -x_112 = lean_ctor_get(x_8, 0); -x_113 = lean_ctor_get(x_8, 1); -lean_inc(x_113); -lean_inc(x_112); +lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_121 = lean_ctor_get(x_8, 0); +x_122 = lean_ctor_get(x_8, 1); +lean_inc(x_122); +lean_inc(x_121); lean_dec(x_8); -x_114 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_114, 0, x_112); -lean_ctor_set(x_114, 1, x_113); -return x_114; +x_123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_123, 0, x_121); +lean_ctor_set(x_123, 1, x_122); +return x_123; } } } @@ -2035,9 +2075,47 @@ lean_closure_set(x_9, 2, x_8); x_10 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_10, 0, x_7); lean_closure_set(x_10, 1, x_9); -x_11 = l_Lean_Meta_withMVarContext___rarg(x_1, x_10, x_5, x_6); +x_11 = l_Lean_Meta_getMVarDecl(x_1, x_5, x_6); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +lean_dec(x_11); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_12, 4); +lean_inc(x_15); +lean_dec(x_12); +x_16 = l_Lean_Meta_withLocalContext___rarg(x_14, x_15, x_10, x_5, x_13); +return x_16; +} +else +{ +uint8_t x_17; +lean_dec(x_10); +x_17 = !lean_is_exclusive(x_11); +if (x_17 == 0) +{ return x_11; } +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_11, 0); +x_19 = lean_ctor_get(x_11, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_11); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +return x_20; +} +} +} } lean_object* l_Lean_Meta_substCore___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: @@ -3011,9 +3089,47 @@ lean_closure_set(x_6, 1, x_1); x_7 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_7, 0, x_5); lean_closure_set(x_7, 1, x_6); -x_8 = l_Lean_Meta_withMVarContext___rarg(x_1, x_7, x_3, x_4); +x_8 = l_Lean_Meta_getMVarDecl(x_1, x_3, x_4); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_9, 4); +lean_inc(x_12); +lean_dec(x_9); +x_13 = l_Lean_Meta_withLocalContext___rarg(x_11, x_12, x_7, x_3, x_10); +return x_13; +} +else +{ +uint8_t x_14; +lean_dec(x_7); +x_14 = !lean_is_exclusive(x_8); +if (x_14 == 0) +{ return x_8; } +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_8, 0); +x_16 = lean_ctor_get(x_8, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_8); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} } lean_object* l_Array_findSomeMAux___main___at_Lean_Meta_subst___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Target.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Target.c index 7c15b200c2..e91eb8b303 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Target.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Target.c @@ -15,6 +15,7 @@ extern "C" { #endif lean_object* l_Lean_Meta_replaceTargetDefEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_Meta_withLocalContext___rarg(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_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -31,8 +32,8 @@ lean_object* l_Lean_Meta_replaceTargetEq___boxed(lean_object*, lean_object*, lea uint8_t lean_expr_eqv(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_replaceTargetDefEq___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_replaceTargetEq___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_replaceTargetEq___closed__1; lean_object* l_Lean_Meta_replaceTargetEq___closed__2; @@ -284,9 +285,47 @@ lean_closure_set(x_8, 1, x_2); x_9 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_9, 0, x_7); lean_closure_set(x_9, 1, x_8); -x_10 = l_Lean_Meta_withMVarContext___rarg(x_1, x_9, x_4, x_5); +x_10 = l_Lean_Meta_getMVarDecl(x_1, x_4, x_5); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_ctor_get(x_11, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_11, 4); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l_Lean_Meta_withLocalContext___rarg(x_13, x_14, x_9, x_4, x_12); +return x_15; +} +else +{ +uint8_t x_16; +lean_dec(x_9); +x_16 = !lean_is_exclusive(x_10); +if (x_16 == 0) +{ return x_10; } +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_10, 0); +x_18 = lean_ctor_get(x_10, 1); +lean_inc(x_18); +lean_inc(x_17); +lean_dec(x_10); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_17); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +} } lean_object* l_Lean_Meta_replaceTargetEq___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: @@ -692,9 +731,47 @@ lean_closure_set(x_7, 1, x_2); x_8 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); lean_closure_set(x_8, 0, x_6); lean_closure_set(x_8, 1, x_7); -x_9 = l_Lean_Meta_withMVarContext___rarg(x_1, x_8, x_3, x_4); +x_9 = l_Lean_Meta_getMVarDecl(x_1, x_3, x_4); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +x_13 = lean_ctor_get(x_10, 4); +lean_inc(x_13); +lean_dec(x_10); +x_14 = l_Lean_Meta_withLocalContext___rarg(x_12, x_13, x_8, x_3, x_11); +return x_14; +} +else +{ +uint8_t x_15; +lean_dec(x_8); +x_15 = !lean_is_exclusive(x_9); +if (x_15 == 0) +{ return x_9; } +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_9, 0); +x_17 = lean_ctor_get(x_9, 1); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_9); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_16); +lean_ctor_set(x_18, 1, x_17); +return x_18; +} +} +} } lean_object* l_Lean_Meta_replaceTargetDefEq___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: diff --git a/stage0/stdlib/Init/Lean/Meta/Tactic/Util.c b/stage0/stdlib/Init/Lean/Meta/Tactic/Util.c index f6cb1da88b..f76a75c673 100644 --- a/stage0/stdlib/Init/Lean/Meta/Tactic/Util.c +++ b/stage0/stdlib/Init/Lean/Meta/Tactic/Util.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta.Tactic.Util -// Imports: Init.Lean.Meta.Basic +// Imports: Init.Lean.Meta.Basic Init.Lean.Meta.LevelDefEq #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -13,14 +13,18 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_Lean_Meta_restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_setMVarTag___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Lean_Meta_throwTacticEx(lean_object*); +lean_object* l_Lean_Meta_orelse___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned___closed__3; extern lean_object* l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__2; lean_object* l_Lean_Meta_checkNotAssigned___closed__1; lean_object* l_Lean_Meta_getMVarTag(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned___closed__2; +lean_object* l_Lean_Meta_Meta_hasOrelse___closed__1; +lean_object* l_Lean_Meta_orelse(lean_object*); lean_object* l_Lean_MetavarContext_setMVarUserName(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_throwTacticEx___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -34,6 +38,7 @@ lean_object* l_Lean_Meta_getMVarType___boxed(lean_object*, lean_object*, lean_ob lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_Meta_hasOrelse(lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__1; lean_object* l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__2; @@ -381,6 +386,66 @@ lean_ctor_set(x_9, 1, x_3); return x_9; } } +lean_object* l_Lean_Meta_orelse___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_4); +lean_inc(x_3); +x_5 = lean_apply_2(x_1, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_6 = lean_ctor_get(x_5, 1); +lean_inc(x_6); +lean_dec(x_5); +x_7 = lean_ctor_get(x_4, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_4, 1); +lean_inc(x_8); +x_9 = lean_ctor_get(x_4, 5); +lean_inc(x_9); +lean_dec(x_4); +x_10 = l_Lean_Meta_restore(x_7, x_8, x_9, x_3, x_6); +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_apply_2(x_2, x_3, x_11); +return x_12; +} +} +} +lean_object* l_Lean_Meta_orelse(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_orelse___rarg), 4, 0); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_Meta_hasOrelse___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Meta_orelse___rarg), 4, 0); +return x_1; +} +} +lean_object* l_Lean_Meta_Meta_hasOrelse(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Meta_Meta_hasOrelse___closed__1; +return x_2; +} +} lean_object* _init_l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__1() { _start: { @@ -409,6 +474,7 @@ return x_3; } } lean_object* initialize_Init_Lean_Meta_Basic(lean_object*); +lean_object* initialize_Init_Lean_Meta_LevelDefEq(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Meta_Tactic_Util(lean_object* w) { lean_object * res; @@ -417,12 +483,17 @@ _G_initialized = true; res = initialize_Init_Lean_Meta_Basic(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Meta_LevelDefEq(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l_Lean_Meta_checkNotAssigned___closed__1 = _init_l_Lean_Meta_checkNotAssigned___closed__1(); lean_mark_persistent(l_Lean_Meta_checkNotAssigned___closed__1); l_Lean_Meta_checkNotAssigned___closed__2 = _init_l_Lean_Meta_checkNotAssigned___closed__2(); lean_mark_persistent(l_Lean_Meta_checkNotAssigned___closed__2); l_Lean_Meta_checkNotAssigned___closed__3 = _init_l_Lean_Meta_checkNotAssigned___closed__3(); lean_mark_persistent(l_Lean_Meta_checkNotAssigned___closed__3); +l_Lean_Meta_Meta_hasOrelse___closed__1 = _init_l_Lean_Meta_Meta_hasOrelse___closed__1(); +lean_mark_persistent(l_Lean_Meta_Meta_hasOrelse___closed__1); l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__1 = _init_l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__1(); lean_mark_persistent(l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__1); l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__2 = _init_l___private_Init_Lean_Meta_Tactic_Util_1__regTraceClasses___closed__2();